回答
什麼你需要做的是你的價值分手使用left
,mid
和right
功能3成。
然後根據需要進行循環。我自己嘗試一下,所以一旦我這樣做,我會更新我的答案。
添加的代碼:
Sub Testing()
Dim myIn As String
myIn = "M201001"
Dim myLeft As String
Dim myMid As Integer, myRight As Integer, i As Integer
Dim myOut As String
myLeft = Left(myIn, 1)
myMid = CInt(Mid(myIn, 2, 2))
myRight = CInt(Right(myIn, 4))
myOut = myLeft & Format(myMid, "00") & Format(myRight, "0000")
i = 0
Debug.Print "IN: " & myIn
Debug.Print "BROKEN UP: " & myOut
Do Until myMid = -1
Debug.Print "ITERATION " & Format(i, "00") & ": " & myLeft & Format(myMid, "00") & Format(myRight, "0000")
myMid = myMid - 1
myRight = myRight + 1
myOut = myLeft & Format(myMid, "00") & Format(myRight, "0000")
i = i + 1
Loop
End Sub
如果您需要任何解釋,請詢問。我會很樂意解釋。
這真棒超出我的能力! 它甚至計算它內宏我猜是什麼調試打印是和使用ITERATION現在得到了,我需要把它放在一個表格中,它將im戈納德與它周圍發佈並張貼在這裏 – 2013-02-21 05:38:41
我不得不發佈一個新的問題,因爲該網站的規則,這樣做是在這個頁面上http://stackoverflow.com/questions/14996655/changing-vba-macro-code-to-change-number-part-2試圖讓它的工作幾乎在那裏 – 2013-02-21 07:28:18
使用試試這個
Function GetNextNumber(n As String) As Variant
' Validate input
If Len(n) <> 7 Then
GetNextNumber = xlErrNum
Exit Function
ElseIf Left$(n, 1) <> "M" Then
GetNextNumber = CVErr(xlErrNum)
Exit Function
End If
GetNextNumber = Left$(n, 1) & Format(val(Mid$(n, 2)) - 9999, "000000")
End Function
測試此
Sub demo()
Dim n As Variant
n = "M201001"
Debug.Print n
Do
n = GetNextNumber(CStr(n))
If IsError(n) Then Exit Sub
Debug.Print n
Loop Until val(Mid$(n, 2)) <= 19999
End Sub
感謝您的幫助,但我需要它分開數量像宏觀波紋管 – 2013-02-21 05:33:58
我不得不發佈一個新的問題,因爲網站的狀態規則這樣做是在這個頁面http://stackoverflow.com/questions/14996655/changing-vba-macro-code-to-change-number-part-2 – 2013-02-21 07:22:48
- 1. 更改VBA宏代碼變更號碼,第2部分
- 2. 使用Excel公式更改VBA代碼
- 3. 更改代碼svn2git
- 4. HTML代碼更改
- 5. Jslider更改代碼
- 6. 跟蹤更改VBA代碼 - 如何重寫此代碼?
- 7. 更新後更改窗體背景顏色的VBA代碼
- 8. 更改數據時自動更新VBA代碼
- 9. 改進VBA代碼
- 10. VBA更改日期
- 11. 代碼更改到3.x
- 12. 狀態更改代碼
- 13. 更改jQuery加載代碼
- 14. 更改背後的代碼
- 15. iOS更改場景代碼
- 16. 更改代碼以.NET 2.0
- 17. git - 更改代碼版本?
- 18. 修改代碼更具體?
- 19. 更改源代碼php
- 20. 更改腳本代碼
- 21. 需要更改C++代碼
- 22. 更改java源代碼
- 23. 更改塊的ECC代碼
- 24. 如何更改JavaScript代碼?
- 25. DAX代碼更改建議
- 26. Eclipse代碼行更改
- 27. JavaScript:更改橫幅代碼
- 28. 反編譯代碼更改代碼
- 29. 瀏覽器不更新代碼更改?
- 30. 更新並更改我的代碼
不知道這是在題目這裏,但如果你想與你工作在宏觀幫助,它可能是有用的,包括它在你的問題';-)' – halfer 2013-02-20 23:47:28
你確定VB.NET標記是正確的嗎? VB.NET!= VB(或VBA)。 – Tim 2013-02-20 23:53:29