00:10:00
問題已解決
怎么錄制一個宏，點擊一下讓單元格的數(shù)字加1，比如單元的數(shù)字是1，點擊一下變成2
溫馨提示：如果以上題目與您遇到的情況不符，可直接提問，隨時問隨時答
你好
1.
代碼如下：
Sub
add()
Dim
i,
a
For
i
=
2
To
99
a
=
Range(B
&
i)
If
a
>
0
Then
a
=
a
+
1:
Range(B
&
i)
=
a
Next
i
End
Sub
2.
根據(jù)你的實際行號范圍，調(diào)整
for循環(huán)
的最大值（99）。
2021 03/27 08:14
84784958 
2021 03/27 11:27
這個代碼不用輸入某個單元格嗎
84784958
2021 03/27 11:29
我需要在n3單元格設置
玲老師 
2021 03/27 11:43
單元格設置的。沒有操作過。
84784958
2021 03/27 11:45
你這個設置的是啥
玲老師
2021 03/27 12:02
這個是寫代碼。
你可以按照下面這個流程里操作一下。
用宏的方法：
在工作表中按alt+f11進入vba編程界面
工作具欄第二個按鈕拉下來，選擇“模塊”，插入一個模塊
在左邊欄的“模塊1”名字上雙擊，打開右邊的程序書寫區(qū)域
將下面的程序粘貼進去
sub changeprefix()
dim rn as range, r as range
dim sh as worksheet
set rn = activesheet.usedrange
for each r in rn
if r.prefixcharacter = "'" then
t = r.value
r.clearcomments
r.numberformatlocal = "@"
r.value = t
end if
next
end sub
現(xiàn)在關閉編程窗口回到工作表，按alt+f8打開“宏”對話窗口，然后點擊“執(zhí)行”
（注意：要把宏的安全級別設為中或低以允許宏的運行）
上述操作完成后，帶前綴“'”輸入的字符內(nèi)容就會被換成不帶前綴的字符內(nèi)容
閱讀 1709
描述你的問題，直接向老師提問
1401
意見反饋
