[VBA ] 請問下列程式如何將sub程序改成function程序?
Sub 去零值()
Dim 轉換格式 As String
Dim BB, AnyString, MyStr
Sheets(1).Select
轉換格式 = Application.WorksheetFunction.Text(Range("B1"),"[DBNum2]")
Range("B2").Value = 轉換格式
BB = "零"
k = Len(轉換格式)
For i = 1 To k
MyStr = Mid(轉換格式, i, 1)
If MyStr < > BB Then
aa = aa + MyStr
End If
Next
Range("B3").Value = aa + " 元整"
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.69.120.129