小编Yog*_*oga的帖子

我已经为excel创建了一个宏,它将弹出包含按钮和文本字段的表单.有没有办法为按钮指定热键,例如'ctrl + Enter'或'F12'？无论焦点在哪个字段或按钮上,热键都应该有效.

(到目前为止,我已设法创建按钮/ fields_Keydowns来检查vbKeyF12的MSForms.ReturnInteger,但我必须为每个字段和按钮执行此操作,是否有更简单的方法？)

说,我在表单上有2个东西,按钮"CommandButton1"和textfield"TextBox1"

按钮的代码:

Private Sub CommandButton1_click()
ActiveCell.FormulaR1C1 = UserForm1.TextBox1.Text 
End Sub

当我添加更多字段和按钮时,热键将非常有用......

另外如何设置'Escape'按钮来关闭/隐藏表单？

大家好,我收到了一个错误

Run-time error '9':
Subscript out of range 

使用以下代码

Public newarray() As String

Sub test1() 
    Dim int1 As Integer 
    int1 = 0
    Do 
        int1 = int1 + 1 
        newarray(int1) = int1 * 5     
    Loop Until int1 > 3
End Sub

当我决定阵列

Public newarray(4) As string

它工作,但我希望声明一个动态数组.请帮忙.谢谢.