00:10:00
當(dāng)前位置：財(cái)稅問(wèn)題 >
實(shí)務(wù)
問(wèn)題已解決
怎么錄制一個(gè)宏，點(diǎn)擊一下讓單元格的數(shù)字加1，比如單元的數(shù)字是1，點(diǎn)擊一下變成2
溫馨提示：如果以上題目與您遇到的情況不符，可直接提問(wèn)，隨時(shí)問(wèn)隨時(shí)答
你好
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ù)你的實(shí)際行號(hào)范圍，調(diào)整
for循環(huán)
的最大值（99）。
2021 03/27 08:14
84784958 
2021 03/27 11:27
這個(gè)代碼不用輸入某個(gè)單元格嗎
84784958
2021 03/27 11:29
我需要在n3單元格設(shè)置
玲老師 
2021 03/27 11:43
單元格設(shè)置的。沒(méi)有操作過(guò)。
84784958
2021 03/27 11:45
你這個(gè)設(shè)置的是啥
玲老師
2021 03/27 12:02
這個(gè)是寫(xiě)代碼。
你可以按照下面這個(gè)流程里操作一下。
用宏的方法：
在工作表中按alt+f11進(jìn)入vba編程界面
工作具欄第二個(gè)按鈕拉下來(lái)，選擇“模塊”，插入一個(gè)模塊
在左邊欄的“模塊1”名字上雙擊，打開(kāi)右邊的程序書(shū)寫(xiě)區(qū)域
將下面的程序粘貼進(jìn)去
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)在關(guān)閉編程窗口回到工作表，按alt+f8打開(kāi)“宏”對(duì)話窗口，然后點(diǎn)擊“執(zhí)行”
（注意：要把宏的安全級(jí)別設(shè)為中或低以允許宏的運(yùn)行）
上述操作完成后，帶前綴“'”輸入的字符內(nèi)容就會(huì)被換成不帶前綴的字符內(nèi)容
閱讀 1709
描述你的問(wèn)題，直接向老師提問(wèn)
1401
意見(jiàn)反饋
