袁氏家谱网

摘要： 方法一： 1、点击“开始”，在搜索中输入“gpedit.msc”回车打开注册表； 2、点击“用户配置-管理模板-桌面”左侧的下拉按钮； 3、单击”桌面“，右侧弹出桌面的设置栏； 4、双击“删除桌面向导”，打开向导界面； 5、选择”已禁用“，点击”应用—确定“，设置完成。现在再去删除桌面ie图标吧，已 阅读全文

摘要： 主程序RegCool.exe，百度搜索有下载。 ，在最上面编辑点开，下面有 查找 打开，，输入：2345explorer,开始搜索，主界面下面出来全部结果，右键 点全选，然后 删除 打开软件 一定搜索 这个词 查找：2345explorer 查出结果 右键全选 然后删除，，完美删除全部。 这是删除注 阅读全文

摘要： 前边如果用到了 Sub with嵌套1()Sheet1.Range("a1").Value = "我是谁"Sheet1.Range("a1").Parent.Name = "Hello World"Sheet1.Range("a1").Font.Size = 20Sheet1.Range("a1") 阅读全文

摘要： 原表 目标统计汇总表 VBA代码 Private Sub CommandButton1_Click() Dim arr, i&, n&, d As Object, s$, a() arr = Sheet1.Range("A1").CurrentRegion Set d = CreateObject( 阅读全文

摘要： Option Explicit Sub test() '汉字转阿拉伯数字模块Dim tm, iiDim arrPre, arrResarrPre = Range("A2:A20") '待转换汉字存放位置A列，可修改ReDim arrRes(1 To UBound(arrPre), 1 To 1)Fo 阅读全文

摘要： 借花献佛：一、定义字典 Set d = CreateObject("Scripting.Dictionary")二、呼之即来，挥之即去d("张三“)=1 '相当于给字典赋值，张三过来（没有就生成）拿个1站一边去d("李四”)=2 '相当于给字典赋值，李四过来（没有就生成）拿个2站一边去d("李四”) 阅读全文

摘要： Do While...Loop 语句是条件为True时循环 Do until...Loop 语句是直到条件变成True时才停止循环 如果事先知道循环次数，应该使用For循环，据说它比Do循环速度快 不知道起点和终点，需要在循环内计算结果出来以后才能判断是否该终止循环的，用Do Loop循环。反之，如 阅读全文

摘要： 例一、用cells(行，列)定位 Private Sub CommandButton1_Click()Cells(12, 6) = IIf(Cells(1, 2) > 80, "优秀", "不优秀")'cells(2,3)表示第12行第6列位置显示后面的判断内容结果 Cells(13, 6) = I 阅读全文

摘要： 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 阅读全文

摘要： 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 阅读全文