07 2020 档案

WIN7桌面IE图标删除不了的问题，两种办法亲测有效
摘要：方法一： 1、点击“开始”，在搜索中输入“gpedit.msc”回车打开注册表； 2、点击“用户配置-管理模板-桌面”左侧的下拉按钮； 3、单击”桌面“，右侧弹出桌面的设置栏； 4、双击“删除桌面向导”，打开向导界面； 5、选择”已禁用“，点击”应用—确定“，设置完成。现在再去删除桌面ie图标吧，已 阅读全文
posted @ 2020-07-26 10:34 袁氏家谱网 阅读(878) 评论(0) 推荐(0)
一键清理2345残留
摘要：主程序RegCool.exe，百度搜索有下载。 ，在最上面编辑点开，下面有 查找 打开，，输入：2345explorer,开始搜索，主界面下面出来全部结果，右键 点全选，然后 删除 打开软件 一定搜索 这个词 查找：2345explorer 查出结果 右键全选 然后删除，，完美删除全部。 这是删除注 阅读全文
posted @ 2020-07-26 10:15 袁氏家谱网 阅读(1297) 评论(0) 推荐(0)
VBA基础十：With语句，省略相同的前缀
摘要：前边如果用到了 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 袁氏家谱网 阅读(683) 评论(1) 推荐(0)
VBA基础九：画表格线及表外线的颜色定义
摘要：原表 目标统计汇总表 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 袁氏家谱网 阅读(1465) 评论(5) 推荐(0)
VBA基础八：汉字数字转阿拉伯数字
摘要：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 袁氏家谱网 阅读(1537) 评论(1) 推荐(0)
VBA基础七：字典
摘要：借花献佛：一、定义字典 Set d = CreateObject("Scripting.Dictionary")二、呼之即来，挥之即去d("张三“)=1 '相当于给字典赋值，张三过来（没有就生成）拿个1站一边去d("李四”)=2 '相当于给字典赋值，李四过来（没有就生成）拿个2站一边去d("李四”) 阅读全文
posted @ 2020-07-15 19:53 袁氏家谱网 阅读(1824) 评论(3) 推荐(0)
VBA基础六：遍历、循环的实例DO....WHILE/UNTILL/LOOP
摘要：Do While...Loop 语句是条件为True时循环 Do until...Loop 语句是直到条件变成True时才停止循环 如果事先知道循环次数，应该使用For循环，据说它比Do循环速度快 不知道起点和终点，需要在循环内计算结果出来以后才能判断是否该终止循环的，用Do Loop循环。反之，如 阅读全文
posted @ 2020-07-14 14:24 袁氏家谱网 阅读(4075) 评论(0) 推荐(0)
VBA基础五：单元格cell操作例子
摘要：例一、用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 袁氏家谱网 阅读(2484) 评论(0) 推荐(0)
VBA基础四：数据库链接(WPS2019)
摘要：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 袁氏家谱网 阅读(1189) 评论(0) 推荐(0)
VBA基础三：循环（DO...LOOP，）
摘要：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 袁氏家谱网 阅读(779) 评论(1) 推荐(0)
VBA基础二：判断（IF，IIF，CASE）
摘要：'VBA中的IF条件判断语句，就像函数中的IF一样'IF可单条件，也可多条件。 Sub IF条件判断之单条件1()Dim a%, b%a = 2b = 2If a = b Then MsgBox "相等"End Sub Sub IF条件判断之单条件2()Dim a%, b%a = 2b = 2 If 阅读全文
posted @ 2020-07-12 14:45 袁氏家谱网 阅读(2112) 评论(0) 推荐(0)
VBA基础一：对象、属性、方法、变量
摘要：'1、工作簿（Workbooks） ' Workbooks（N）第N个工作簿 ' Workbooks ("工作簿名") ' ActiveWorkbook 活动工作簿 ' ThisWorkBook '代码所在工作簿 '2、工作表（Worksheets） 'Sheets(N) 第N个工作表 'Sheet 阅读全文
posted @ 2020-07-12 11:22 袁氏家谱网 阅读(1284) 评论(1) 推荐(0)