用于编辑宏的 InputBox 函数

Question

Windows("XXX Consolidated PL 03312018.xlsx").Activate
ActiveCell.Offset(187, 8).Range("A1").Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select

如何创建一个宏或 InputBox 函数来更改数字“03312018”？

数字代表日期。每个月点差 sheet 都会变化，所以我想手动输入新数字。

Answer 1

像这样的东西会起作用。虽然您可能希望在继续您的代码之前验证条目：

Dim MyDate as Variant
MyDate = Inputbox ("Input Date Serial")

Windows("XXX Consolidated PL " & MyDate & ".xlsx").Activate

Answer 2

类似于：

Option Explicit 
Public Sub test()
    Dim wkbk As String, dateVar As String
    'dateVar = "03312018"
    dateVar = Application.InputBox("Enter date string")
    If dateVar = vbNullString Then Exit Sub
    wkbk = "XXX Consolidated PL " & dateVar & ".xlsx"
    On Error GoTo Errhand
    Windows(wkbk).Activate
    'other code
    Exit Sub
Errhand:
    If Err.Number <> 0 Then
        Select Case Err.Number
        Case 9
            MsgBox "Workbook not found"
            'Other handling
        End Select
    End If
End Sub

用于编辑宏的 InputBox 函数

InputBox Function to Edit Macro

excel

vba

inputbox