-1
我在Visual Basic中編寫了此加載項,並且需要打開和關閉它。Excel加載項KeyPress/KeyDown實現(Visual Basic)
Imports Microsoft.Office.Interop.Excel
Public Class ThisAddIn
Private Sub ThisAddIn_Startup() Handles Me.Startup
End Sub
Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
End Sub
Sub Application_SheetChange(Sh As Object, Target As Range) Handles Application.SheetChange
Target.Offset(0, 1).PrintOut(Copies:=1, Preview:=True)
End Sub
End Class
我寫了一個僞碼算法來解決這個問題。
Imports Microsoft.Office.Interop.Excel
Public Class ThisAddIn
int toggle = 0 'off
Sub Press F1 key
if (toggle == 1) 'if on turn off
toggle = 0
else
toggle = 1 'else turn on
End Sub
Sub Application_SheetChange(Sh As Object, Target As Range) Handles Application.SheetChange
if(toggle == 1)
Target.Offset(0, 1).PrintOut(Copies:=1, Preview:=True)
End Sub
End Class
我有if語句和變量的工作。我真的需要幫助才能實現KeyPress或KeyDown功能。
我想使用F1鍵,所以我認爲它需要是KeyDown事件。
如果您有任何建議,將不勝感激。