Re: [VBA ] 根據數字做為重複次數貼上文字值

看板Visual_Basic作者Yaiba (緋心刀刃)時間8年前 (2016/11/23 20:13)推噓4(4推 0噓 1→)

留言5則, 3人參與討論串2/2 (看更多)

Sub 按鈕1_Click() Dim lastR As Integer Dim indexI As Integer Dim indexJ As Integer Dim countK As Integer lastR = Cells(Rows.Count, 1).End(xlUp).Row countK = 2 For indexI = 2 To lastR For indexJ = 1 To Cells(indexI, 2) Cells(countK, 4) = Cells(indexI, 1) countK = countK + 1 Next Next End Sub 不太會去寫VBA的東西所以第一行是看你用才用的(lastR) 另外變數宣告我有自己的命名方式但之前有看文章好像不是很建議我就特別不使用用常人比較常的方式你還有做很多特別的行為像是清空之類的但因為你想清空的空間等一下就會被蓋掉了所以我就省略了...XD 至於幾行做完那我想不是重點你會做Function 給人家的Code都可以很短啊 Sub 按鈕1_Click() Dim lastR As Integer Dim indexI As Integer Dim indexJ As Integer Dim countK As Integer lastR = Cells(Rows.Count, 1).End(xlUp).Row countK = 2 For indexI = 2 To lastR Call Function1(Cells(indexI, 1), Cells(indexI, 2), countK) countK = countK + Cells(indexI, 2) '用ByRef就不用這行了 Next End Sub Sub Function1(str As String, dataCount As Integer, ByVal startIndex As Integer) For indexJ = 1 To dataCount Cells(startIndex, 4) = str startIndex = startIndex + 1 Next End Sub 這樣也只要一行就完成了(假1行...XD 差別只在於Function是誰寫的罷了) 不過好像很多人喜歡用幾行來討論程式的好壞像是某功能只花幾行就寫出來了或是某系統我可是寫了一萬行(聽別的女生說有人跟他炫耀女生問我一萬行很多嗎) 對我來說那些都不是重點要看情況如果九九乘法表寫了99行Code....那效能是1等1.....XD 但我認為要看相對時間如果你花1小時結果完成的Code要跑40分鐘但又花了9小時合計10小時結果完成的Code只要跑4分鐘如果後面會大量執行(比如說超過15次) 你的時間就省下來了如果你花1小時結果完成的Code要跑4秒鐘但又花了9小時合計10小時結果完成的Code只要跑1秒鐘如果後面執行不到10800次你的時間就虧了 (這裡說的都是一些沒有什麼特別意義的小程式只是想要去寫我就寫了很多XD) (這些小程式執行個幾十次還有可能上百次或上千次根本不可能) 所以如果你多花時間能讓未來時間是節省的那就有意義如果根本賺不回來那亂寫反而是比較賺的(意指不用特別去想效能問題) 故我寫出來的程式如果跑一次要N分鐘或N 10鐘我可能會去改效能從40分鐘變成現在2分鐘超有成就感的... 但如果是N秒鐘我完全不會去在意他的效能去改寫是浪費生命嘛... 所以就是在程式開發時間程式使用頻率程式可節省時間(不同寫法的差異) 去做取捨沒有哪一種是比較對的方式都是看情況的... -- 常發人好人名片　　　Yaiba：您好，我是好人　　　　　　幫正妹組電腦送到府　　　　　　　　　外加一年到府維護 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.219.252.245 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1479903235.A.ABC.html

推

luckid

11/23 20:35, , 1^F

11/23 20:35, 1^F

→

luckid

11/23 20:40, , 2^F

11/23 20:40, 2^F

說真的打這些程式不到五分鐘但打那些廢話卻打了十分鐘吧...XD 其實本來只想貼Code.... 結果越打越多XD ※ 編輯: Yaiba (118.160.78.31), 11/23/2016 23:32:00