台灣最大程式設計社群網站
線上人數
803
 
會員總數:245217
討論主題:189089
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> EXCEL_巨集錄製VB_單次按鈕問題
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
EXCEL_巨集錄製VB_單次按鈕問題
價值 : 100 QP  點閱數:232 回應數:1

樓主

阿均
門外漢
0 1
10 0
發送站內信

請問各位版上大大:
我在EXCEL上錄製完巨集後再增設一個導入數據的按鈕,可以讓這個按鈕只能擊發一次,按第二次就失效嗎?下列就是我錄製的巨集程式碼,拜託各位大大解說,謝謝.


Sub 報表資料擷取_每月1號()
'
' 報表資料擷取_每月1號 巨集

'

'
Sheets("PLC數據_日(誤動)").Select
Range("C2:F3").Select
Selection.Copy
Sheets("1").Select
ActiveWindow.SmallScroll Down:=-12
Range("C12:F13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PLC數據_日(誤動)").Select
Range("C7:F35").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1").Select
Range("C21:F49").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-12
Range("C12:F13").Select
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("C21:F49").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("H26").Select


End Sub[/color]




搜尋相關Tags的文章: [ 單次按鈕 ] ,
本篇文章發表於2019-08-04 23:32
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

roar
檢舉此回應
我會試著在其中一個沒用到的存儲格(假設為A1)放入1,來判斷

if ActiveSheet.Range("A1").value=1
then
'值為1不動作
else
你的程式碼
ActiveSheet.Range("A1").value=1
end if
本篇文章回覆於2019-08-05 16:16
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.