.VBA基础入门（32.1）【答疑】Find的应用

昨天有朋友提问了一个问题，让我们一起去看一看是怎么解决的？

首先，我们先分析一下提问者，提出了哪些需求？

打开Excel自动实行。

然后，我们逐一去解决。

第一个，打开Excel自动实行，我们可以参照以往分享的课程。

VBA基础入门（26）如何一打开Excel就运行VBA？

注：可以打开上面超链接查看

一个Workbook_Open事件，就可以解决打开Excel就执行你想要执行的代码。

获取当前日期。

第二个，Date函数就可以获取当前的日期。

延伸：日期函数

编号	函数	描述
1	Date	一个函数，它返回当前的系统日期。
2	CDate	一个函数，将给定的输入转换为日期。
3	DateAdd	一个函数，它返回一个指定的时间间隔被添加的日期。
4	DateDiff	一个函数，它返回两个时间段之间的差异。
5	DatePart	一个函数，它返回给定输入日期值的指定部分。
6	DateSerial	函数，返回给定年份，月份和日期的有效日期。
7	FormatDateTime	一个函数，根据提供的参数格式化日期。
8	IsDate	无论提供的参数是否为日期，都返回一个布尔值的函数。
9	Day	一个函数，它返回一个1到31之间的整数，表示指定日期的某一天。
10	Month	一个函数，它返回一个介于1和12之间的整数，表示指定日期的月份。
11	Year	一个函数，它返回一个表示指定日期的年份的整数。
12	MonthName	一个函数，返回指定日期的特定月份的名称。
13	WeekDay	一个函数，返回一个整数(1到7)，表示指定日期的星期几。
14	WeekDayName	一个函数，返回指定日期的星期几名称。

延伸：时间函数

编号	函数	描述
1	Now	一个函数，它返回当前系统的日期和时间。
2	Hour	一个函数，它返回一个介于0到23之间的整数，表示给定时间的小时部分。
3	Minute	一个函数，它返回0到59之间的整数，表示给定时间的分钟部分。
4	Second	一个函数，返回0到59之间的一个整数，表示给定时间的秒数部分。
5	Time	一个函数，它返回当前的系统时间。
6	Timer	一个函数，返回自上午12:00以来的秒数和毫秒数。
7	TimeSerial	一个函数，它返回小时，分钟和秒的特定输入的时间。
8	TimeValue	将输入字符串转换为时间格式的函数。

查找到当前日期，并跳转。

我们昨天正好分享了Find方法，我们正好可以用Find方法来解决。

VBA基础入门（32）超越遍历的查找功能

注：可以打开上面超链接查看

【代码】

Sub workbook_open()

Cells.Find(What:=Date).Activate

End Sub

✕

✕

✕

✕

✕

✕

只用了一行代码就解决了这个问题。

如果你的日期有很多列，那你只需要外面套上一个sheet页的遍历即可。