哪位大神帮忙写个VBA

lownumber

我想打开表格，定位到当前日期所在的那一列并选中。自己研究了好久，实在搞不来，没有找到什么方法，希望有人能够帮忙解决一下，万分感谢。


下面附上表格样本。

一把小刀闯天下

Option Explicit

Private Sub Workbook_Open()
  Dim i
  With Sheets("sheet1")
    For i = .Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1
      If .Cells(1, i) = Date Then .Columns(i).Select: Exit Sub
    Next
  End With
End Sub

liulang0808

Private Sub Workbook_Open()
    Sheets(1).Select
    For j = Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1
        If CDate(Cells(1, j)) - Date = 0 Then
            Columns(j).Select
            Exit For
        End If
    Next j
End Sub

lownumber

一把小刀闯天下 发表于 2018-8-31 13:54
Option Explicit

Private Sub Workbook_Open()

非常感谢！测试成功！非常了

lownumber

liulang0808 发表于 2018-8-31 14:07
Private Sub Workbook_Open()
    Sheets(1).Select
    For j = Cells(1, Columns.Count).End(xlToLeft) ...

谢谢版主，这个代码测试也OK