Question

我是excel宏的新手，但有基本的了解。

我试图从Sheet1中找到一个最大值，我有代码，但是如果我从工作簿上的任何其他工作表中运行此代码，我想知道如何获得相同的结果。

Sub FindMaxDate()
Set Worksheet = Sheets("Sheet1")
Max_date = Application.WorksheetFunction.Max(Columns("A"))
MsgBox CDate(Max_date)
End Sub

例如：我在Sheet1.Range上提交了日期（＆＃34; A：A＆＃34;），并且可用的最大日期是01.01.2018（Cod会给我相同的值），但如果我是在Sheet2上运行此代码，它将从Sheet2获取值并显示我＆＃34; 12：00：00 AM＆＃34;。

有人请帮我纠正这段代码，以便始终显示Sheet1的最大值（01.01.2018）

希望你们得到我的追求。另外请告诉我。

谢谢

Answer 1

Sub FindMaxDate()
Set Worksheet = Sheets("Sheet1")
Max_date = Application.WorksheetFunction.Max(Worksheet.Columns("A"))
MsgBox CDate(Max_date)
End Sub

VBA：代码审核

1 个答案: