如何获取当前时区并在Excel中的单元格中显示？
发布时间：2023-08-17 12:01:45
您知道如何找出系统在您的计算机中设置的时区吗？ 在这里，我将向您展示一种简单的方法来在Excel中实现它。
获取当前时区并在具有用户定义功能的单元格中显示
以下用户定义的函数将帮助您直接在Excel中的所需单元格中显示系统的当前时区。 请做如下。
1。 按 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。
2。 在里面 Microsoft Visual Basic for Applications 窗口中，单击 插页 > 模块。 然后将VBA代码复制到模块窗口中。
VBA代码：在Excel中获取当前时区
Function GetTimeZoneAtPresent() As String
‘Updated by Extendoffice 20180814
Dim xObjIs, xObjI
On Error GoTo ER
Set xObjIs = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_TimeZone")
If xObjIs.Count = 1 Then
For Each xObjI In xObjIs
If Len(xObjI.Caption) > 1 Then
GetTimeZoneAtPresent = xObjI.Caption
Exit Function
Else
GetTimeZoneAtPresent = "Null"
Exit Function
End If
Next
End If
ER:
GetTimeZoneAtPresent = "Failed"
End Function
3。 按 其他 + Q 键退出 Microsoft Visual Basic for Applications 窗口。
4。 选择显示时区所需的单元格，键入以下公式： =GetTimeZoneAtPresent() 然后按 输入 获取时区细节的关键。 查看截图：
0
投稿猜你喜欢
在使用win10系统过程中，经常会用到一些压缩包等文件，有时会提示压缩文件损坏，导致整个压缩包无法打开。这样的错误提示很伤脑筋，也严重影响到- c盘是电脑的心脏，操作系统在里面，而其运行，会产生非常多的垃圾文件，同时不少的软件默认安装在c盘，还有很多系统更新、补丁之类的，自动储存在c
- 作为微软最新的操作系统，越来越多用户都升级或重装了最新的Windows10，不过也有部分电脑用户遇到了一些比较棘手的问题，比如今天要分享的w
- Win7旗舰版是目前最完善的一款操作系统，Win7旗舰版系统使用久了，感觉电脑运行速度变慢了就想查看进行系统优化，Win7旗舰版系统应该如何
- 在工作或学习中，常常会碰到要使用网格线来进行编辑。但是WPS文字中默认的网格线有时不符合规格，以下是小编给大家整理的WPS文字中设置个性化网
- Win10系统怎么调出我的电脑图标？很多用户在新装的Win10系统桌面上看不到我的电脑图标，发现桌面只有一个回收站图标，今天系统之家小编就来
- 苹果 OS X 10.10.4正式版发布下载，此次 OS X 10.10.4 提高了网络连接的可靠性，主要的途径就是移除 Discovery
- 怎么设置页眉不同wps？最近不少同学都开始写论文了，今天，我们就来学习论文排版中最让人头疼的：页眉页脚设置问题！背景介绍一般情况下，页眉页脚
- 在日常工作中，使用Excel统计数据，但对于统计函数，大部分人还是不熟悉的，不能轻松的使用函数完成统计工作。但是如果你用Excel数据透视表
- Win10更新失败怎么办？大家都知道微软会不断的推送Win10更新程序，很多用户便进行了安装，但是很多用户会碰到Win10更新失败的情况，造
- 网络速度快与慢，总是影响着用户的心情，网络速度慢，办事效率就慢，心情就差，是什么导致了网络速度变慢呢?怎样才能提高电脑网速呢?现在就让小编来
- 怎么快速制作一个指定内容大小的txt或word文档？我们需要上传或者下载特定大小的文件，以懒蛇的测试环境为例，windows phone支持
- Win10家庭版笔记本电脑找不到gpedit.msc如何解决？使用过笔记本电脑的用户都知道，笔记本电脑出厂预装的系统都是win10家庭版的系
- excel打印每页都有表头？在办公中我们经常会遇到打印超长的表格情况，但是表头只有一个，如何能让打印的每页都显示表头呢？遇到这种情况一般你会
- 很多使用Win10专业版的小伙伴，为了能够使用电脑能够更加流畅给力，会选择使用8G的内存。但是却不知道该怎么样去设置虚拟内存。下面就给大家介
- 有时，通过添加说明来指示如何填写已添加到联机表单中的特定内容控件是非常有用的。当有人使用该表单时，这些说明将替换为实际内容。1.在“开发工具
- Win10系统更新有时候还不够稳定，当我们系统固件升级的时候，偶尔会出现win10更新失败的情况，甚至是用不了系统。那么当显示win10更新
- ppt怎么制作逐字出现的诗词动画效果？ppt中想要制作一个按字出现的诗词，该怎么制作这个动画效果呢？下面我们就来看看详细的教程，需要的朋友可
- 目前还是有部分用户在使用win8系统的，但是这些用户想将win8升级win10系统，但是却不知道怎么操作，别着急，下面小编就来告诉你win8
- 命令提示符是Windows状态下所保留的DOS命令，很多电脑牛人都能熟练的使用DOS命令，当然现在也有很多电脑技术人员习惯使用DOS命令来查
