动态参考表：VBA

Question

我是新来的VBA和需要一些帮助，宏我试图编程

我代表一个月，一个“大师”标签的天与当前31张日期（这用于数据输入）。我希望进行数据输入的人员能够签署和日期工作表，单击按钮并将首字母缩写值复制到适当的日期选项卡中。我已经开采和使用INDEX/MATCH函数与嵌入式间接引用操纵数据，但我不知道如何在VBA做到这一点。

例子，我做了8月14日的数据输入。主标签检索所有8月14日的数据。输入后，我想点击一个用户窗体上按钮，它会复制并粘贴到相应的“天”标签......在这种情况下，片名叫“14”

感谢您的帮助！我在学习，但到了那里。

Answer 1

你只需要参考表名称的日期的格式。例如：

Function TheSheet(ByVal dt As Date) As Worksheet 
    Dim ws As Worksheet 
    Set ws = Worksheets(Format(dt, "dd")) 
    If Not ws Is Nothing Then Set TheSheet = ws 
End Function