08 2023 档案

VBA清除所有Textbox
摘要：Private Sub CommandButton2_Click() Dim c For Each c In UserForm2.Controls If TypeName(c) = "TextBox" Then c.Text = "" Next End Sub 资料来源https://zhidao. 阅读全文
posted @ 2023-08-18 14:41 tec2019 阅读(189) 评论(0) 推荐(0)
VBA判断系统系统语言(转载）
摘要：Option Explicit Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Private Sub Form_Load() Dim LocaleID As Long LocaleID = GetSys 阅读全文
posted @ 2023-08-09 10:40 tec2019 阅读(121) 评论(0) 推荐(0)
Excel VBA 窗体UserForm制作菜单栏与添加窗体最大化最小化功能(转载)
摘要：窗体 ' '->Forms ' Module ' ClassModules ' Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Str 阅读全文
posted @ 2023-08-01 13:27 tec2019 阅读(1652) 评论(1) 推荐(0)