weixin_43292547的博客

【代码】FileDateTime , enable/disable filter。

【代码】transform xls file to csv file(Recursively)

【代码】vba sleep,read and write text file utf8。

【代码】Application.OnTime。

alt+f11打开code界面，双击需要实现上述功能的sheet，把下面的代码放在代码区即可(replied by chatgpt)选择一个单元格，包含该单元格的行自动更改颜色。选择另一个行中的单元格，则新行将更改其颜色，旧选择行将恢复其旧颜色。

平常工作中直接打开ttermpro.exe在gui中连接linux服务器，最近接触到用excel控制teraterm的marco，学习了一下。留作记录。

Sub s() [a1] = "=b1 + 16" '=B1+16 [a2] = Evaluate("=b1 + 16") '17,显示公式计算的结果 [a3] = "=b1" & "&""me""" & "&16" '=B1&"me"&16 [a4].FormulaArray = "=sum(b1:b2*c1:c2)" '={=SUM(B

各自操作都需要日志，做了个简单的日志模块使用方法：通过getLoglist获得全局变量loglist和设置日志要保存的文件名，loglist.add添加日志getLoglist的参数dataCount !=0时保存有滞后性operateLoglist里，日志条数>=dataCount(默认值100)时会写一次文件，并清空loglist方法执行完后需要operateLoglist(0)来保存和清空loglist里剩下的日志Public staticLoglist As New Collec

参考：http://www.excelpx.com/thread-153811-1-1.html自动关闭的对话框Public Declare Function MsgBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As ...

截图原贴http://club.excelhome.net/thread-1193134-1-1.html可以全屏截图和当前窗口截图Private Declare Sub keybd_event Lib "user32" _(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As...

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Public Declare Function GetCursorPos Lib "u...

设置编码格式的写入特别注意：write2TextFile里的strbuf = .readtext，表示是读取文件内容，此时游标在所有文本后面，写入内容的话就变成追加。建议换行后再写新内容。如果注释掉strbuf = .readtext，就从文件头开始写。如果新文本长度大于原内容长度，相当于实现覆盖的效果。否则会出现新文本原文本混合的情况。如果原文件文本是12345，新内容是666，写完就是66...

对要try-catch的语句On Error GoTo errorHandle，然后errorHandle里对err(.number)进行判断，对不同的error进行不同的error处理。似乎运行时错误用On Error GoTo errorHandle和On Error Resume Next都无法捕获。Sub asdasd() Set li2 = New Collection ...

'module3Sub Macro1() MsgBox 1End SubSub Macro2() MsgBox 2 Application.Run "Macro1"End SubFunction f1(a) MsgBox a & "module3" f1 = aEnd Function'module4Sub maCRO2() ...

原贴地址：https://www.jianshu.com/p/9766dfdf45d51.尽量调用内置功能，即，使用系统提供的属性、方法和函数很多时候我们要实现某些功能，如果本身对excel不熟悉的话，可能会想办法去实现某些看上去很复杂的功能，殊不知，其实excel本身已经提供了类似的功能，有的时候可能仅仅是一个函数就解决了的事情，结果你搞半天，说不定辛苦弄出来，结果效率和效果还没内置的好。...

truncate，drop table，create table的返回对象是Fields类型，始终是空，count=0Sub TestConnectTodb() Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER={MySql ODBC 5.3 Unicode Driver};Server=localho...

sql语句最后可以有0个，1个或多个分号。执行完不需要commitinsertinsert多条数据：insert into s1 values(xx),(xx)，要删除最后的逗号否则报错。Sub TestConnectTodb() Set conn = New ADODB.Connection conn.ConnectionString = "DRIVER={MySql O...

环境配置：https://www.cnblogs.com/SH170706/p/7714829.htmlMySQL的ODBC驱动下载及安装：https://blog.youkuaiyun.com/weixin_38746118/article/details/94878714报错Error 1918：安装visual c++ 2013，下载老版本的odbc，https://dev.mysql.com/d...

原贴地址：http://club.excelhome.net/thread-1466658-1-1.html?tdsourcetag=s_pcqq_aiomsg日文环境下BytesToBstr可能需要修改编码类型。HTMLFILE对象无法使用execScript和querySelector，原因不明。HTMLFILE对象用来解析html，也可以直接用正则表达式解析BytesToBstr。P...

原贴地址：https://blog.youkuaiyun.com/u011410413/article/details/54629770代码会打开IE浏览器逐步操作，和使用python selenium的效果一样。没有找到更换浏览器的方法Sub aa() url = "http://club.excelhome.net/thread-1466658-1-1.html?tdsourcetag=s_p...

like的详细用法：Sub aa() a = "asd" Like "a?" '''false a = "asd" Like "[agjs3]*" '''true ,[ABCDEGHIJ2345]=[A-EG-J2-5]， a = "asd" Like "asD" '...

注意dict(“X”)会dict add “X”,Empty，Dictionary是有序的字典Sub testCollection() Dim x As New Collection x.Add "a0" x.Add "a9" x.Add "a5", "a5key" t1 = x("a5key") '''a5 t2 = x(...

excel文件保存相关：Public Function fast_start(Optional ByVal displayalert = True) With Application .ScreenUpdating = False .Calculation = xlCalculationManual '.CalculateBeforeSav...

Function isLastPageBreakReal(ByVal ws As Worksheet, Optional offsetrow = 40, Optional offsetcol = 20) With ws Set zzz = .HPageBreaks If zzz.Count = 0 Then isLastPageBre...

19年底做项目时自己写的工具，应该不会有改动，保存起来以后参考。设计上比上一个工具好点，力求少复制粘贴，但增添新功能时依旧不太方便；一开始以为基本设计是必须打开的就写死了，导致很多新增的功能也要先打开基本设计才能运行，后来懒得改了。还有因为这个版本的vba依旧无法正常保存中文，所以没写注释，导致后来读写代码很不方便。很多功能没有写，比如review的逻辑(非常有用但很难写的一块，打算多写些...

1，rayout–>印刷title–>余白可以设置打印时内容的页边距2，rayout–>印刷title–>head/foot可以设置打印页面的标题(head)，比如某sheet页打印出来3页，设置标题后每页都会带这个标题，foot也是。foot和header可以设置内容，居左中右，字体等，foot常用来设置页数。适应page余白的多选框，作用似乎是使foot/feet根...

========================================================================使用openastextstream读取txt，汉字会变成乱码。如果用append模式加文本，新添加的文本可能是乱码，但用write模式加文本却正常显示。原因应该是append模式添加的文本后以前的文本被一起编码导致乱码，新添加的文本本身没有问题。...

========================================================================public const PP as long=33把一些常数设成定数，还可以放到定数模块里========================================================================dim...