PTT數位生活區 / Office

[算表] VBA基本概念

看板Office作者 (我還小)時間8年前 (2017/12/15 22:36), 編輯推噓0(0推 0噓 9→)
留言9則, 3人參與, 8年前最新討論串1/1
軟體: EXCEL 版本: 2016 大家好 看書自學excel vba有個基本概念不懂 例如1到100能被3整除的數字依序寫入A欄 Sub mod3() Dim i As Integer xrow = 1 For i = 1 To 100 If i Mod 3 = 0 Then Cells(xrow, "A").Value = i xrow = xrow + 1 End If Next End Sub 那我把xrow = xrow + 1和 End If 對調 會造成每三列才會出現數字 原因為何?謝謝! Sub mod3() Dim i As Integer xrow = 1 For i = 1 To 100 If i Mod 3 = 0 Then Cells(xrow, "A").Value = i End If xrow = xrow + 1 Next End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.143.80.229 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1513348567.A.6D0.html
→
12/15 22:39, 8年前 , 1F
因不管i mod 3 =0是否為0，xrow都會進行累加
12/15 22:39, 1F
→
12/15 22:41, 8年前 , 2F
以原文範例，下面的寫法，和cells(xrow,"a")改為cells(i,
12/15 22:41, 2F
→
12/15 22:41, 8年前 , 3F
"a")是相同的
12/15 22:41, 3F
→
12/15 23:02, 8年前 , 4F
按F8一步一步看能更清楚你的code在幹麻
12/15 23:02, 4F
→
12/15 23:16, 8年前 , 5F
我用ne大方法看懂so大說啥了，謝謝!
12/15 23:16, 5F
→
12/15 23:20, 8年前 , 6F
所以xrow = xrow + 1放在if裡代表整除才換行，If外就會每次
12/15 23:20, 6F
→
12/15 23:20, 8年前 , 7F
都換行 對吧?!
12/15 23:20, 7F
→
12/15 23:22, 8年前 , 8F
如原po回文所述
12/15 23:22, 8F
→
12/15 23:25, 8年前 , 9F
謝謝你們!
12/15 23:25, 9F
‣ 更多 zzatr 的文章
文章代碼(AID): #1QCztNRG (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 zzatr 的文章
文章代碼(AID): #1QCztNRG (Office)