VBA实例2

Alpha · 发表于 2022-12-26 16:35:31

本帖最后由 Alpha 于 2022-12-26 16:41 编辑

该实例用于在活动工作表中的第一个空白行之前插入一行，并在该行中填写当前日期和时间，同时还会弹出一个消息框，提示用户操作已完成：

Sub InsertDateTimeRow()

Dim lastRow As Long

lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Rows(lastRow + 1).Insert
Cells(lastRow + 1, 1).Value = Now

MsgBox "行已插入。"

End Sub

注释：使用了 Now 函数来获取当前日期和时间，并使用 MsgBox 函数弹出一个消息框

飞奔的老冯 · 发表于 2022-12-27 11:46:23

你不如直接开个vba的小课堂，从基础的一点点讲解，每次不需要讲很多实用为主，大家也能学到知识

江江江江江 · 发表于 2023-2-5 21:24:17

飞奔的老冯发表于 2022-12-27 11:46
你不如直接开个vba的小课堂，从基础的一点点讲解，每次不需要讲很多实用为主，大家也能学到知识 ...

我觉得这个提议非常好！可以从入门基础开始讲，不然看不懂

十月 · 发表于 2023-2-6 10:34:29

直接网盘分享给我们一个课程吧，我们自己私下去学

飞奔的老冯 · 发表于 2023-3-3 16:41:28

对呀，我还挺想学vba的

549669126 · 发表于 2023-3-5 20:44:00

期待新技能培训

Jiaxd0619 · 发表于 2023-3-6 14:31:08

感谢分享