返回列表 上一主題 發帖

[發問] 請教 文字類型數字遞加問題

yunshiow

帖子
2 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
10 
性別
男 
註冊時間
2012-9-13 
最後登錄
2015-12-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-6-25 15:42 | 只看該作者

[發問] 請教 文字類型數字遞加問題

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

  3. Dim ws As Excel.Worksheet
  4. Set ws = ThisWorkbook.Worksheets(1)
  5.         
  6. Dim strStart As String
  7. Dim strEnd As String

  9. strStart = ws.Cells(1, 1)
  10. strEnd = ws.Cells(2, 1)

  12. 'strStart  = 005560
  13. 'strEnd = 005999

  15. I = 1

  17. For Y = strStart To strEnd
  18. ws.Cells(I, 2) = Trim(Y)
  19. I = I + 1
  20. Next Y

  22. End Sub
複製代碼
但是跑出來都是5560，5561，5562，....5998，5999
想請教各位大大可否指導需要修改那部分呢?
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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                  '存的值還是數字
複製代碼

TOP

yunshiow

帖子
2 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
10 
性別
男 
註冊時間
2012-9-13 
最後登錄
2015-12-21 
3#
發表於 2014-6-25 19:02 | 只看該作者
非常感謝大大的指導  :)

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題