1 高开低走。

尚未进行身份认证

暂无相关简介

等级
TA的排名 28w+

全民一起玩Python基础篇第二课:基础知识

算术符号直接用这种叫做交互式窗口,写一条翻译一条Python3中间7/2=3.5Python2中间7/2=37/2.0=3.57/float(2)=3.5这有点类似C语言了,两种版本的Python不太一样整除运算符//返回小于真实结果的最大整数幂运算 **模运算%源程序写法在编辑器中ctrl+N然后键入代码输出用print()按下run或者F5运行...

2020-01-23 21:15:01

全民一起玩Python基础篇第一课:安装Python环境

登录python官网:https://www.python.org/,选择downloads选择最新版的python下载下载好后选择自定义安装customize installment一定要记得 Add Python 3.8 to PATH用默认设置,next就行自定义安装目录安装,然后就完事了调用python不是双击EXE文件,而是win+r...

2020-01-22 09:37:58

全民一起VBA实战篇第七课:实战篇小结

实战篇一共学习了六个专题在第一个专题里学习了表格格式操作与Excel功能调用包括文件打印的方法以及设置打印细节定时器的应用跨range的处理操作窗体、图表等Shape对象在第二个专题里学习了文本的查找定位和替换包括Find方法的使用Findnext的使用定位最后一行的技巧各种情况Usedrange或SpecialCellsEnd属性Find方法倒序循...

2020-02-27 16:18:08

VBA实战案例:处理挂科数据

Option ExplicitSub 统计() Dim t, i, count1, count2 As Long Dim w As Worksheet Set w = ActiveSheet t = Timer() '记录当前时间 count1 = 0: count2 = 0 '判断是否存在Sheet2,Sheet3 w.UsedR...

2020-02-11 18:26:56

全民一起VBA实战篇第六课:VBA编程技巧及Word调用

Err 对象使用Err可以提升程序的健壮性,有利于用户使用。Option ExplicitSub errDemo() Dim i As Long i = 3 On Error GoTo sthwrong '出现问题跳转到sthwrong Do While Cells(i, 2) <> "" ...

2020-02-09 17:17:33

全民一起VBA实战篇第一课:表格格式操作与Excel功能调用

文件打印Sub 批量打印() Dim fn As String, wb As Workbook, ws As Worksheet fn = Dir("E:\EXCEL\*.xlsx") Do While fn <> "" Set wb = Workbooks.Open("E:\EXCEL\" & fn) ...

2020-02-08 15:58:47

全民一起VBA实战篇第五课:外部文件处理技巧

题目一用窗口选择/打开文件Sub get方法() Dim fname fname = Application.GetOpenFilename() '获取选择的文件名 If fname <> False Then '判断是否有选中,如果点了取消,则退出程序 '否则运行文件 MsgBox fname ...

2020-02-06 11:28:08

全民一起VBA实战篇第四课:文本内容的处理技巧

题目一按照要求设置输出格式Option ExplicitSub 单位() Dim i, s i = 1222.222223 s = Format(i, "$.###") '#代表一位数字 MsgBox s End SubOption ExplicitSub 单位() Dim i, s i = 1222.2 ...

2020-02-04 17:03:11

全民一起VBA实战篇第三课:文本内容的实用技巧

题目要求:要求大家编写程序自动在F列中标记出每一个交易记录是该客户的第几次交易。比如第3行的“赵六”是第一次出现,所以F3为 1 ,而第4行的“赵六”是第二次出现,所以F4应为 2 。方法一:双重循环Option ExplicitSub demo() Dim i As Long, j As Long, s As Long Dim r As Object Set...

2020-02-01 21:04:16

全民一起VBA实战篇第二课:表格数据处理的实用技巧

Find方法官方文档https://docs.microsoft.com/zh-TW/office/vba/api/excel.range.find内容可使用通配符符号含义?一个任意字符,比如?a?*任意多个任意字符,a~转义符,把通配符改为普通字符串题目一题目要求:(1) 找到第一个内容为“程序员”的单元格,并用Msgbox显示其单元格地...

2020-01-28 20:25:45

全民一起VBA基础篇第十一课:基础篇小结

程序设计变量常量字符串循环判断过程字符串&UcaseLcaseTrim()Len()Instr()Left()Right()Mid()循环分为For … NextDo While … LoopFor Each In …Next判断分为If Then…Elseif…Else… End IFAnd,Or,Not过程...

2020-01-20 21:54:50

全民一起VBA提高篇第十四课:提高篇小结

提高篇主要学习了以下几个方面的知识基础原理与知识office功能扩展实用工具与技巧基础原理与知识数据类型全部数据类型VariantInteger %Long&Double#Currency@String$DateBooleanObjectSingle特殊值NothingNullEmpty类型转换自动类型转换...

2020-01-20 21:43:43

全民一起VBA提高篇第十三课:简单爬虫

目标要求:爬取中国银行最新的汇率爬取关键获取网页字符串并保存到VBA变量中使用正则表达式等方法处理字符串首先进入网址https://www.boc.cn/sourcedb/whpj/打开源网页找到需要的这一部分需要通过正则表达式除去标签部分Option ExplicitSub demo() Dim t t = Timer() Dim s...

2020-01-20 20:45:33

全民一起VBA提高篇第十二课:调用WORD

VBA操作word标记数字要求:将word 文档中的所有数字标记出来Sub 修改word的所有数字()t = Timer() Dim i As Long, c As Range, d As Document '遍历该段落中全部字符 For i = 1 To Application.ActiveDocument.Characters.Count ...

2020-01-20 17:25:09

全民一起VBA提高篇第十一课:Do循环和空值

Do循环Do While i<10 … Loop当i小于10时,执行循环Do Until i<10 … Loop直到i小于10时,停止循环Do While cells(i,1)<>""Do Until cells(i,1)=""上面是先判断再执行Do … Loop While i<5Do… Loop Until i<5下面这个是先执行...

2020-01-20 08:47:33

全民一起VBA提高篇第十课:字典对象

题目要求将课程名称以及挂科人数进行汇总给出的数据是几十个班混在一起,挂科人数是每个班的人数,现在需要把他们相同的科目统计一个总人数只看这个要求,其实用数据透视表可以很快得出结果,但是任何EXCEL的处理面对要批量处理的要求后,只能靠VBA才能完美解决因此,我先用数据透视表给出结果,两者相互验算这里用VBA处理需要字典,字典相当于将扫描的关键字存入,相同的累加其条目数,不同的则新建一...

2020-01-19 18:32:46

全民一起VBA提高篇第九课:正则表达式入门

正则表达式不是VBA的一部分,很多语言都需要他,包括WORD中的查找通配符,也属于正则表达式的变体测试工具:https://deerchao.cn/tools/wegester/重复结构只处理紧贴在前的一个字符,更靠前的不管同一内容连续出现 n次+ 前面的内容连续出现1次或更多次空格a+b+空格+为元字符,a和b称为文字正则表达式中的每一个字符,如果不是元字符,就会被视作文字...

2020-01-19 16:12:25

全民一起VBA提高篇第七课:图形界面设计一

基本操作从VBE中插入用户窗体改变属性通过视图调出工具箱选中命令和窗体一样,自己设置属性编辑好了窗体,双击控件,比如这里双击"添加员工记录"就可以写这段代码,在窗体中Private Sub CommandButton1_Click() Dim r As Range, i As Long Set r = Worksheets(1).UsedRan...

2020-01-17 10:17:49

全民一起VBA提高篇第八课:图形界面设计二

功能要求:能通过窗体显示数据能通过窗体添加数据能通过窗体修改数据能通过窗体删除信息图片演示效果显示数据添加数据修改数据删除数据代码实现窗体设置,拖动各个控件,并把对应的caption以及名称修改以便后用界面中首先添加控件Sub 显示列表框3()UserForm3.ShowEnd Sub初始化Private Sub UserForm_Initia...

2020-01-16 12:11:58

全民一起VBA提高篇第六课:事件编程

事件编程事件编程要写在事件的发生地,放在事件编码中Private Sub Workbook_Open()'对应子过程名写好Dim i As IntegerRandomizei = Rnd()'如果随机数i在0到0.5之间,则随机生成一个1到3之间的中奖号码If i < 0.5 Then Range("c7").Value = Int(Rnd() * 3)...

2020-01-15 09:55:58

查看更多

勋章 我的勋章
  • 持之以恒
    持之以恒
    授予每个自然月内发布4篇或4篇以上原创或翻译IT博文的用户。不积跬步无以至千里,不积小流无以成江海,程序人生的精彩需要坚持不懈地积累!
  • 勤写标兵Lv4
    勤写标兵Lv4
    授予每个自然周发布9篇以上(包括9篇)原创IT博文的用户。本勋章将于次周周三上午根据用户上周的博文发布情况由系统自动颁发。