標題: [發問] 請教 文字類型數字遞加問題 [打印本頁]

---

作者: yunshiow    時間: 2014-6-25 15:42     標題: 請教 文字類型數字遞加問題

小弟有個問題請教 我有兩個數字(文字類型) 要取中間的值
舉例:005660~005999  要列出來:005560，005561，005562，....005998，005999

1. Sub test()
   
2. 
   
3. Dim ws As Excel.Worksheet
   
4. Set ws = ThisWorkbook.Worksheets(1)
   
5.         
   
6. Dim strStart As String
   
7. Dim strEnd As String
   
8. 
   
9. strStart = ws.Cells(1, 1)
   
10. strEnd = ws.Cells(2, 1)
    
11. 
    
12. 'strStart  = 005560
    
13. 'strEnd = 005999
    
14. 
    
15. I = 1
    
16. 
    
17. For Y = strStart To strEnd
    
18. ws.Cells(I, 2) = Trim(Y)
    
19. I = I + 1
    
20. Next Y
    
21. 
    
22. End Sub

複製代碼

但是跑出來都是5560，5561，5562，....5998，5999
想請教各位大大可否指導需要修改那部分呢?

---

作者: stillfish00    時間: 2014-6-25 16:49

回復 1# yunshiow
你要知道你的For迴圈中，y還是數字
兩種方法，看你儲存格內是要放文字還是數字
1.

1.     ws.Cells(i, 2).NumberFormat = "@"   '儲存格格式改文字
   
2.     ws.Cells(i, 2) = Format(y, "000000")  '數字轉成文字，未滿六位數前面補零

複製代碼

2.

1.     ws.Cells(i, 2).NumberFormat = "000000"  '修改儲存格顯示的格式
   
2.     ws.Cells(i, 2) = y                  '存的值還是數字

複製代碼

---

作者: yunshiow    時間: 2014-6-25 19:02

非常感謝大大的指導  :)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)