[Excel VBA] 如何获取北京时间

Sub abc()

Dim a, b, c As String '定义变量

a = Date '当前年月日

b = Time '当前时间

c = Now '当前年月日 和 时间

MsgBox a & b & c '显示 a ，b ，c

End Sub

'VB Environ系统环境变量函数大全：

Public Sub Get_Environ()

DebugPrint Environ("Windir")  'c:\windows Windows 目录

DebugPrint Environ("ProgramFiles")  'c:\ProgramFiles 应用程序文件夹

DebugPrint Environ("UserProfile")  'C:\Documents and Settings\Administrator 用户配置文件目录

DebugPrint Environ("ALLUSERSPROFILE")  '局部 返回所有“用户配置文件”的位置。

DebugPrint Environ("APPDATA")  '局部 返回默认情况下应用程序存储数据的位置。

DebugPrint Environ("COMPUTERNAME")  '系统 返回计算机的名称。

DebugPrint Environ("COMSPEC")  '系统 返回命令行解释器可执行程序的准确路径。

DebugPrint Environ("HOMEDRIVE")  '系统 返回连接到用户主目录的本地工作站驱动器号。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。

DebugPrint Environ("HOMEPATH")  '系统 返回用户主目录的完整路径。基于主目录值的设置。用户主目录是在“本地用户和组”中指定的。

DebugPrint Environ("NUMBER_OF_PROCESSORS")  '系统 指定安装在计算机上的处理器的数目。

DebugPrint Environ("OS")  '系统 返回 *** 作系统的名称。Windows 2000 将 *** 作系统显示为 Windows_NT。

DebugPrint Environ("PATH")  '系统 指定可执行文件的搜索路径。

DebugPrint Environ("PATHEXT")  '系统 返回 *** 作系统认为可执行的文件扩展名的列表。

DebugPrint Environ("PROCESSOR_ARCHITECTURE")  '系统 返回处理器的芯片体系结构。值: x86，IA64。

DebugPrint Environ("PROCESSOR_LEVEL")  '系统 返回计算机上安装的处理器的型号。

DebugPrint Environ("PROCESSOR_LEVEL")  '系统 返回处理器的版本号。

DebugPrint Environ("SYSTEMDRIVE")  '系统 返回包含 Windows XP 根目录（即系统根目录）的驱动器。

DebugPrint Environ("SYSTEMROOT")  '系统 返回 Windows XP 根目录的位置。

DebugPrint Environ("TEMP")  'and %TMP") '系统和用户 返回对当前登录用户可用的应用程序所使用的默认临时目录。有些应用程序需要 TEMP，而其它应用程序则需要 TMP。

DebugPrint Environ("USERDOMAIN")  '局部 返回包含用户帐户的域的名称。

DebugPrint Environ("USERNAME")  '局部 返回当前登录的用户的名称。

End Sub

Do

If Minute(Now) Mod 5 = 3 And Second(Now) = 30 Then aa

n = Timer

Do

DoEvents

Loop While n = Timer

Loop

很简单，如果你是直接在EXCEL的UserForm里面做的，那么就一句代码：

Private Sub CommandButton1_Click()

Cells(1, "A") = Format(Now(), "yyyy-mm-dd,hh:mm:ss") '在A1写入年-月-日，时：分：秒

Range("A2") = Format(Now(), "yyyy-mm-dd") '在A2写入年-月-日

Cells(3,1) = format(Now(),"hh:mm:ss") '在A3写入时：分：秒

End Sub

表单控件

Sub 显示行号()

 MsgBox ActiveSheetShapes("按钮 1")BottomRightCellRow

End Sub

存放代码参考

Excel数据如何快速排列

ActiveX控件

Private Sub CommandButton1_Click()

 MsgBox Shapes("CommandButton1")BottomRightCellRow

End Sub

Excel工作表被修改后自动升序排列

代码放在

以上就是关于[Excel VBA] 如何获取北京时间全部的内容，包括:[Excel VBA] 如何获取北京时间、VBA获得软件版本号、VBA 中 如何获取当前系统时间 执行动作 aa，大侠写写代码！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！