Question

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

我有31张代表该月的日子和一张＆＃34; Master＆＃34;带有当前日期的选项卡（用于数据输入）。我希望进行数据输入的人能够对工作表进行签名和约会，单击按钮并将首字母的值复制粘贴到相应的日期选项卡中。我使用带有嵌入式INDIRECT参考的INDEX / MATCH函数挖掘和操作数据，但我不知道如何在VBA中执行此操作。

示例，我正在进行8月14日的数据录入。主标签检索所有8月14日的数据。输入后，我想点击用户表单上的一个按钮，它会将其复制并粘贴到适当的日期＆＃34; tab ...在这种情况下，选项卡名为＆＃34; 14＆＃34;

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

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

动态参考表：VBA

1 个答案: