VBA中关于数据源可以自己录入

Adel345

各位大神：

           如下表格，我想在取数表格中，标黄色表格，弹出文本框，然后我输入表格名称1，就取1的数字，我输入表格名称2，就取2的数字，我输入表格名称3，就取3的数字。还有弹出一个文本框，我输入1，就打开1并把1设置为活动单元表，我输入2，就打开2并把2设置为活动单元表，我输入3，就打开3并把3设置为活动单元表，如上两个需求，可以两段代码哈。跪谢各位大神。

小凡、、、

试试这样-------

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub 按钮1_Click()
    Application.ScreenUpdating = False
    n = Application.InputBox("请输入提取的工作簿序号：", "输入数字：", 1, , , , , 1)
    Set wb = ThisWorkbook
    p = wb.Path & "\"
    If IsNumeric(n) Then
        f = Dir(p & n & ".xlsx")
        If f <> "" Then
            With Workbooks.Open(p & n & ".xlsx", 0)
                wb.Sheets(1).[a2] = .Sheets(1).[a2]
                .Close 0
            End With
        Else
            wb.Sheets(1).[a2] = Empty
        End If
    End If
    Application.ScreenUpdating = True
    Beep
End Sub
Sub 按钮2_Click()
    n = Application.InputBox("请输入提取的工作簿序号：", "输入数字：", 1, , , , , 1)
    Set wb = ThisWorkbook
    p = wb.Path & "\"
    If IsNumeric(n) Then
        f = Dir(p & n & ".xlsx")
        If f <> "" Then
            With Workbooks.Open(p & n & ".xlsx", 0)
                .Sheets(1).Activate
                [a2].Select
            End With
        End If
    End If
    Beep
End Sub

Adel345

小凡、、、 发表于 2024-9-11 21:51
试试这样-------

大神，跪谢！！！

Adel345

quqiyuan 发表于 2024-9-11 22:40
代码如下。。。
Sub 按钮1_Click()
    Application.ScreenUpdating = False

大神太贴心了，跪谢！！！