摘要: 方法一: 1、点击“开始”,在搜索中输入“gpedit.msc”回车打开注册表; 2、点击“用户配置-管理模板-桌面”左侧的下拉按钮; 3、单击”桌面“,右侧弹出桌面的设置栏; 4、双击“删除桌面向导”,打开向导界面; 5、选择”已禁用“,点击”应用—确定“,设置完成。现在再去删除桌面ie图标吧,已 阅读全文
posted @ 2020-07-26 10:34 袁氏家谱网 阅读(811) 评论(0) 推荐(0) 编辑
摘要: 主程序RegCool.exe,百度搜索有下载。 ,在最上面编辑点开,下面有 查找 打开,,输入:2345explorer,开始搜索,主界面下面出来全部结果,右键 点全选,然后 删除 打开软件 一定搜索 这个词 查找:2345explorer 查出结果 右键全选 然后删除,,完美删除全部。 这是删除注 阅读全文
posted @ 2020-07-26 10:15 袁氏家谱网 阅读(1240) 评论(0) 推荐(0) 编辑
摘要: 前边如果用到了 Sub with嵌套1()Sheet1.Range("a1").Value = "我是谁"Sheet1.Range("a1").Parent.Name = "Hello World"Sheet1.Range("a1").Font.Size = 20Sheet1.Range("a1") 阅读全文
posted @ 2020-07-17 09:54 袁氏家谱网 阅读(643) 评论(1) 推荐(0) 编辑
摘要: 原表 目标统计汇总表 VBA代码 Private Sub CommandButton1_Click() Dim arr, i&, n&, d As Object, s$, a() arr = Sheet1.Range("A1").CurrentRegion Set d = CreateObject( 阅读全文
posted @ 2020-07-16 14:28 袁氏家谱网 阅读(1374) 评论(5) 推荐(0) 编辑
摘要: Option Explicit Sub test() '汉字转阿拉伯数字模块Dim tm, iiDim arrPre, arrResarrPre = Range("A2:A20") '待转换汉字存放位置A列,可修改ReDim arrRes(1 To UBound(arrPre), 1 To 1)Fo 阅读全文
posted @ 2020-07-16 13:08 袁氏家谱网 阅读(1446) 评论(1) 推荐(0) 编辑
摘要: 借花献佛:一、定义字典 Set d = CreateObject("Scripting.Dictionary")二、呼之即来,挥之即去d("张三“)=1 '相当于给字典赋值,张三过来(没有就生成)拿个1站一边去d("李四”)=2 '相当于给字典赋值,李四过来(没有就生成)拿个2站一边去d("李四”) 阅读全文
posted @ 2020-07-15 19:53 袁氏家谱网 阅读(1619) 评论(3) 推荐(0) 编辑
摘要: Do While...Loop 语句是条件为True时循环 Do until...Loop 语句是直到条件变成True时才停止循环 如果事先知道循环次数,应该使用For循环,据说它比Do循环速度快 不知道起点和终点,需要在循环内计算结果出来以后才能判断是否该终止循环的,用Do Loop循环。反之,如 阅读全文
posted @ 2020-07-14 14:24 袁氏家谱网 阅读(3743) 评论(0) 推荐(0) 编辑
摘要: 例一、用cells(行,列)定位 Private Sub CommandButton1_Click()Cells(12, 6) = IIf(Cells(1, 2) > 80, "优秀", "不优秀")'cells(2,3)表示第12行第6列位置显示后面的判断内容结果 Cells(13, 6) = I 阅读全文
posted @ 2020-07-14 11:57 袁氏家谱网 阅读(1720) 评论(0) 推荐(0) 编辑
摘要: Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=G:\20200627\test.mdb;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database 阅读全文
posted @ 2020-07-12 17:59 袁氏家谱网 阅读(1125) 评论(0) 推荐(0) 编辑
摘要: Sub 基本示例()Dim a%a = -20Doa = a + 1If a > 10 ThenMsgBox a & "终于大于10"Exit DoEnd IfLoopEnd Sub Sub 基本示例()Dim rs%rs = 1Do rs = rs + 1 If rs > 10 Then Exit 阅读全文
posted @ 2020-07-12 14:58 袁氏家谱网 阅读(758) 评论(1) 推荐(0) 编辑