Question

前一段时间，我编写了一个程序，当按下一个按钮时，该程序跳至相应的行（1月，2月，3月..）。这始终应用于一个区域。现在，我必须将其应用于列标题。标题格式为“ 01.01.2018”。

现在如何修改代码？有人有主意吗？

打招呼

Sub PrcCurrentMonth()

Dim vNumber As Long
Dim vDate As Date
Dim vMonth As Variant
Dim vRange As Range

On Error GoTo ExitSub

vMonth = ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption
vNumber = WorksheetFunction.Match(vMonth, Application.GetCustomListContents(7), 0)
vDate = DateSerial(2018, vNumber, 1)


Set vRange = ActiveSheet.Range("D4:ABK4").Find(vDate, lookat:=xlWhole, LookIn:=xlValues)

    If Not vRange Is Nothing Then
        Application.GoTo vRange, True
        Set vRange = Nothing

    End If

ExitSub:
End Sub

Answer 1

这是必要的：

Set vRange = Range("TblOne[[#Headers],[" & vDate & "]]")

跳至日期/栏标题

1 个答案: