- 帖子
- 110
- 主題
- 14
- 精華
- 0
- 積分
- 239
- 點名
- 0
- 作業系統
- win xp
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-8-2
- 最後登錄
- 2017-5-10
|
回復 60# GBKEE
謝謝 GBKEE 版大，您的方式不完全是我想要的結果，我是用了最笨的方式繞了一大圈做出我要的結果
起先我是用「=SUBSTITUTE(A4,"0拾","")」這種方式，但run的時候一直出現sub相關字的錯誤，所以才改為Replace，
但不曉得 GBKEE 版大對我這樣的做法有無更好的建議，還有我為了比照顯示的結果，本來用
Sheets("工作表1").[B1] = t
Sheets("工作表1").[B2] = t1
↑這樣來對照不同的顯示結果，但不曉得為什麼這樣執行會有當掉的情形- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range)
- '１２,３４５萬６千７百８十
- Dim Dot As Long, m As String, t As String, t1 As String
- m = "0萬0仟0佰0拾0"
- Dot = Sheets("工作表1").[A1]
- If Len(CStr(Dot)) = 1 Then m = "0"
- If Len(CStr(Dot)) = 2 Then m = "0拾0"
- If Len(CStr(Dot)) = 3 Then m = "0佰0拾0"
- If Len(CStr(Dot)) = 4 Then m = "0仟0佰0拾0"
- t = Format(Dot, m)
- 'Sheets("工作表1").[B1] = Format(Dot, m)
- With Sheets("工作表1")
- t1 = Replace(t, "拾0", "拾")
- t1 = Replace(t1, "0拾0", "")
- t1 = Replace(t1, "0拾", "")
- t1 = Replace(t1, "0佰", "")
- Sheets("工作表1").[A4] = t1
- End With
- End Sub
 test2.rar (16.1 KB)
|
|
發表於 2013-4-22 15:39
| 
