返回列表 上一主題 發帖

[發問] 跳格累加

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-5-18 
1# 跳轉到 »
發表於 2023-12-11 09:00 | 顯示全部帖子
本帖最後由 Andy2483 於 2023-12-11 09:05 編輯

謝謝論壇,謝謝各位前輩
後學藉此帖練習Do Until Loop,學習方案如下,請各位前輩指教
執行前:


執行結果:


一般模組:
Option Explicit
Sub TEST()
Dim Y%, R%, xR As Range
Set xR = [A1]
Do Until R >= 101
   Y = Y + 1
   R = Y * 5 + 1
   xR(R) = Val(xR) + 10 * Y
Loop
End Sub

工作表模組:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then Call TEST
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題