我是编写VBA代码的新手。我在编写以下代码时遇到了麻烦。我知道这可能很简单,但是我已经尝试了3天,并认为我会提供一些专业帮助。
有一本包含多张纸的excel工作簿。第一张工作表称为表单,其中包含用于启动各种用户表单的命令按钮。第二张表名为“数据表”,其中填充了用户的工作项和所花费的时间。
“数据表”列A具有用户ID列表。 B列包含输入工作项目的日期。 Q列具有输入数据时的系统时间,日期和ID。
现在,如果用户错误地输入了错误的条目,我想为他们提供删除该条目的选项。
因此,我创建了一个名为Deletetime的用户表单。它有一个标签,其标题是登录到系统的用户的ID。 然后有一个日期选择器,用户可以从中选择他选择删除条目的任何日期。然后有一个名为“删除”的命令按钮。
这是请求。
有什么可以帮助我的代码吗? 如果用户选择一个日期并单击删除按钮,那么系统应在“数据表”中的A列中使用userid在label1.caption中进行搜索,同时在B列中以用户在DTPicker1中选择的日期进行搜索。 / p>
如果有结果,则在Q列中返回一个具有相应值的消息框,并提示您是否要删除yes或no。 如果选择是,则删除用户选择的label1.caption和DTPicker1.Value的整行。 如果选择否,则关闭消息框,将日期选择器设置为现在日期。
如果未找到任何数据,则返回一个消息框,提示“找不到已登录用户和所选日期的数据”。单击确定时,消息框关闭,将日期选择器设置为现在日期。
非常感谢