將excel里一個單元格里的算式里每個數字擴大兩倍顯示到另一個單元格里，不要求算出結果，只要顯示出來就好，如上圖。
懇請大神幫助，我的郵箱[email protected]
uj5u.com熱心網友回復：
來個簡單的：Function twiceStr(ByVal bStr As String) As String
''輸入 2*7+6*5==>4*14+12*10
If Len(Trim(bStr)) = 0 Then Exit Function
Dim i As Long, w1 As String, w2 As String, w3 As String
For i = 1 To Len(bStr)
w2 = Mid$(bStr, i, 1)
If InStr("0123456789", w2) > 0 Then
w3 = w3 & w2
Else
If w3 <> "" Then w1 = w1 & CStr(Val(w3) * 2)
w1 = w1 & w2
w3 = ""
End If
Next
If w3 <> "" Then w1 = w1 & CStr(Val(w3) * 2)
twiceStr = w1
End Function
uj5u.com熱心網友回復：
樓上的代碼都給了~就是先判斷有多少字符，然后每個字符判斷是不是數字，是就乘以不是就保留，然后在整體呈現在B中。不過有了代碼直接用吧
uj5u.com熱心網友回復：
受教了，謝謝啊，以后還得好好學uj5u.com熱心網友回復：
大神出現問題了，如果擴大倍是小數是出現錯誤
uj5u.com熱心網友回復：
哥們，你沒說有小數啊，再說，這點小問題還是應該動動腦筋的，不能總“拿來主義”啊把代碼中的"0123456789"改成"0123456789."試試
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/109563.html
標籤：VBA
上一篇：用VB呼叫指定含有宏的EXCEL檔案,打開后，運行該檔案里的宏，非正常關閉
下一篇：VB通信問題