- 博客(52)
- 收藏
- 关注
RSS订阅原创 VB6.0列表框按CTRL+C居然会自行滚动
百思不得其解, 还以为是自己的问题, 查了好久才发现以下:VB6.0中的列表框, 如果里面的项目是类似下面那种冒号, 下划线组成的路径样式时按CTRL+C就会自动遍历循环下去, 到最底部时再按还会返回顶部继续循环.List1.AddItem “c:\1新单”List1.AddItem “c:\1新单\kjj.add”如果只是一般的字符串, 则没有这样的效果. 按CTRL+C是没反应的, 醉了...
2020-12-27 17:24:04
310
原创 Windows10下管理员权限或兼容模式打开程序时的一些异常汇总
Windows10下管理员权限或兼容模式打开程序时的一些异常汇总在VB6 IDE中调试的时候发现 Getobject(,“excel.application”) 的使用时总是无法获取打开着的EXCEL对象报错情况: err.description ActiveX 部件无法创建对象 err.number 429可疑惑是IDE生成的EXE文件是可以正常使用这语句运行的这时我头大了, 最害怕的是微软默默通过某些补丁把这个ActiveX部件创建对象功能去掉了. 因为记得WIN10在这之前有升级过.试了
2020-12-18 21:55:06
863
1
原创 VB6开发时Listbox中使用模拟mouse event进行右键事件的案例
使用VB6开发时Listbox中使用右键事件的案例这里的鼠标点击 Mouseclick API函数执行起来感觉有点慢, 感觉会先到cmdGoTo_Click那里, 顺序就乱了开始的时候我使用Sleep函数, 发现一用系统就当机了, 好像连想延迟的mouse event也没有执行, 郁闷想了好久才想起了timeGetTime API. 按以下用法解决问题API真是个好东西Private Sub List1_MouseDown(Button As Integer, Shift As Integer,
2020-12-01 16:40:20
676
原创 VB6 Getobject(,“excel.application“) 错误429 ActiveX 部件无法创建对象
VB6 IDE中调试的时候发现 Getobject(,“excel.application”) 的使用时总是无法获取打开着的EXCEL对象报错情况: err.description ActiveX 部件无法创建对象 err.number 429可疑惑是IDE生成的EXE文件是可以正常运行的这时我头大了, 最害怕的是微软通过某些补丁把这个ActiveX部件创建对象功能去掉了.那以后怎么搞生产力软件? 这个可是交通大道哦!但又试了下Createobject(“excel.application”)
2020-11-24 22:00:06
6579
2
原创 CSV (逗号分隔符文件) 的不同读取方式引发的差异
CSV 文件手动打开 (EXCEL 2019)时, 日期在常规的格子, 显示字符串 比如 12/2/2012 代表2月12号,我从一个格子按手动打开状态复制到另一个工作表, 显示也是原样式, 是字符串.包括我双击进入格子, 再回车, 样式仍然不变.但是如果用EXCEL VBA 的workbooks.open打开, 会变成2012年12月2号, 自作主张.当然如果是21/2/2012, 这种他就不预处理了, 因为无法识别的原因吧.然后又没有办法, 只好使用open for input 的方式进行文件
2020-11-09 12:19:20
374
原创 vb6 access数据库死机
vb6 在使用access accdb数据库时 在工程中调试, 发现第1次是可以正常地使用, 结果也是可以被正常的查询到Set Cn = CreateObject(“adodb.connection”)Set Rs = CreateObject(“adodb.recordset”)Cn.open “provider=microsoft.ace.oledb.12.0;data source=” & App.Path & “\dat.accdb”但是第2次往后到了第3句的时候, 工程就老
2020-10-15 12:05:29
358
原创 编程中为什么好多时候下标是从0开始的呢?
编程中为什么好多时候下标是从0开始的呢?我的理解: Mod 与 整除时, 下标从0开始的好处, 可能与很多编程中一些元素下标从0开始是有相关具体比如7元素个为一组,关于Mod 如果下标从1开始, 那么 1/7=[1] 2/7=[2] … 7/7=[0] 可以发现结果是从1,2…0, 这样顺序就感觉不太对, 而如果使用了下标从0开始, 那么效果是这样的 0/7=[0] 1/7=[1] … 6/7=[0] 可以发现结果是从0,1…6, 这样顺序就感觉顺多了整除也有类似的效应如果
2020-09-26 21:10:24
281
原创 Excel筛选状态下 字符串后面空格对查找的影响
Excel筛选状态下 如果一个字符串后面有个空格将这个字符串放到筛选的查找里面, 会找不到信息,把这个空格去除后, 就能找到相应没有这最个空格的选项.
2020-09-16 16:24:41
723
原创 Python之module安装历险记
Python之module安装历险记PIL模块原来在lib\site-packages下就有, 但是不知道为什么老是在我使用from openpyxl.drawing.image import Image去导入图片到excel中时报错如下ModuleNotFoundError: No module named ‘Image’ModuleNotFoundError: No module named ‘PIL’ImportError: You must install PIL to fetch ima
2020-09-05 22:12:34
139
原创 WPS中VBA控制word时出现调用错误
WPS中VBA控制word时出现调用错误背景, 在WPS的环境下, 我的WORD自动填写软件出错,主要怀疑:如果没有WORD文件被打开的状态下如果最后一个文件被关掉, 与EXCEL不同, 这时对象一起也关掉应对方案:建立一个新的临时Word文件Set DcT=Word.Documents.Add但是, 这个新建文件似乎在Word对象打开其它文件的时候就自动被关闭而起不到作用.这是在EXCEL中的发现, WPS中未试应对: 在这个dct文件中输入一些字符防止,这样可以防止自动关闭然后到最后
2020-08-17 20:20:25
1413
原创 关于range中套嵌使用range的一些发现
关于selection与range以下代码选择的有偏移偏移的好像是当前工作表与selection之间的左上角之间位移Set rg = SelectionSet rg1 = rg.Range(rg.Range(“a1”), rg.Cells(1, rg.Columns.Count))’ 这里是对策点, 需要把第一个rg改成sheet单位, 就能实现括号内部实际想要的区域rg1.Select...
2020-07-04 22:13:29
480
原创 多区域赋值给数组
多区域赋值给数组如果有两块区域分别是5行2列,分开的并列在一个EXCEL, 中间隔一列用CTRL加鼠标一起选中运行以下代码a = Selectionb = UBound(a) '结果5c = UBound(a, 2) '结果2Debug.Print Selection.Count '结果是20这样看来只是取右边一个区域, 而不是全部的区域如果是上下结构, 列相同中间一行隔开那么所得到的数组是上方区域对应的结果.其它未再详测, 主要是要知道这里面的特点...
2020-07-03 18:35:35
1366
原创 VBA删除重排的问题与对策
注意, 这里与Worksheets(I)可能类似, 就是说这个I作为Index, 如果在有相应对象被删除的时候, 会发生重排的问题, 有点像EXCEL表格中的行数, 中间一旦有被删行, 那么会导致的问题就是所有的自然行数会要被重排. 一旦重排, 可能就会发生引用错序而出错的问题对策, 可以倒序删除For I = M.Pictures.Count To 1 Step -1Debug.Print M.Pictures(I).NameM.Pictures(I).DeleteNext I或者使用For
2020-07-01 17:56:03
146
原创 VBA与EXCEL中的名称
VBA与EXCEL中的名称在VBA中, 可以使用比如这样[range4]来直接引用名称, 此名称的名字是"range4"另外, For each n in thisworkbook.names : n.visible=true: debug.print n.name可以进行遍历, (取消)隐藏等工作.可以使用[range4]来引用其内容, 突然想起来使用[a2]=“234”, 可以对[a2]单元格进行赋值, 可能是同样的对名称引用的方式.示例如下:For Each n In ThisWorkbo
2020-06-16 22:03:34
915
原创 选择邻近区域时: 代码操作与实际EXCEL键盘操作的区别 Currentregion与CTRL+A的区别, 又存在于,比如第一行有数据(合并单元格), 第二行为空, 第三行往下有数据, 第一行选中其中
选择邻近区域时: 代码操作与实际EXCEL键盘操作的区别Currentregion与CTRL+A的区别, 又存在于,比如第一行有数据(合并单元格), 第二行为空, 第三行往下有数据, 第一行选中其中合并单元格,按CTRL+A的时候,所有的有效表格区域都选中, 而如果在代码中使用第一行合并单元格, 再用上Currentregion, 只会得到第一行数据.注意:这个可能与合并单元格有关系, 因为我专门测试没有合并单元格的类似样式, 则使用ctrl+a也只能得到第一行数据.一块区域d3:j10, 布满数据,
2020-06-08 14:50:35
292
原创 前后期绑定Excel/Word对象的应用
前后期绑定Excel/Word对象的应用Set W = CreateObject(“word.application”) '这种是后期绑定'注意,运行到这里是这里把程序重置以后,不管visible=true/false这里的WORD实例对象还是存在,'记的EXCEL如果是这种情况下是会在进程中自动关掉的(见下方描述). 此处不管Public W或是dim W均是这样W.Visible = TrueVB6,Set E = CreateObject(“excel.application”)这句发生后,
2020-06-03 15:56:15
2059
原创 在剪贴板上有大量信息，是否保留其内容, 以便此后粘贴到其他程序中? VBA 对策
在剪贴板上有大量信息，是否保留其内容, 以便此后粘贴到其他程序中?对策a是文件关闭前,随便复制一个空单元格就可以了.对策bApplication.DisplayAlerts = False'关闭任何提醒 → 但复制的信息将仍旧保存在剪贴板中.对策cApplication.CutCopyMode = False '直接关闭剪贴板，刚才复制的信息将从剪贴板中清空。对策DEXCEL中如果复制过一个格子,然后使用一个UNION区域的selection.clearcontents之后,这个剪贴板就消
2020-05-27 14:13:39
8728
原创 使用ADO对象+SQL语句, 将EXCEL中的数据批量超快速传入ACCESS一例
使用ADO对象+SQL语句, 将EXCEL中的数据批量超快速传入ACCESS一例Set Conn = CreateObject(“ADODB.Connection”)Conn.Open strConnstrSQL = “insert into [模板] select * From [Excel 12.0;Database=” & ThisWorkbook.FullName & “].[填充KaTeX parse error: Expected 'EOF', got '&' at
2020-05-24 14:04:40
843
原创 vba关于取消自动筛选:
关于取消自动筛选: If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData从蓝桥玄霜版主那看到了,先判断是否做了筛先.=================取消自动筛选：Sheets("sheet1").AutoFilterMode = False '注意这里对象是sheet, 不需要sheet中的具体区域,比如[a1:c1]之类'关于Autofiltermode与Filtermode的区别, 前是是已经使用了筛选状态. 首行中已经出现筛选..
2020-05-20 21:08:27
18944
3
原创 VBA字典问题
VBA字典问题可以直接把cells(1,1)加入key, 但问题是这个Key有点特殊, 造成一些理解与取值上的问题如下Sub Test()Dim d, dKSet d = CreateObject(“scripting.dictionary”)d(Cells(1, 1)) = 0For Each dK In d.keysDebug.Print dK.Text '结果是1Debug.Print d(dK) ’ 结果是0Debug.Print d(Cells(1, 1)) '似乎无效, 不能获
2020-05-19 17:17:26
408
原创 透视表中如何使用多条件中位数
透视表中如何使用多条件中位数=MEDIAN(IF((A:A=A1)*(B:B<>B1),B:B))注意, 1 这里=A1,或<>B1都不能直接输入数据, 比如123, 比如"aaa", 会报错名称有问题 2 双条件不能使用if + and, 而要向上文那样用两个区域的判定布尔值相乘来获得多条件特性 3 注意这里要使用数组公式ctrl+shift+enter...
2020-05-14 20:35:45
5969
原创 ado控件 进行sql 查询 access 的问题
ado控件 进行sql 查询 access 的问题注意, access中包含手动操作从excel中复制过去的数据, 这里面某些列是空的, 不排除此因素引起以下问题'Sq = "Select last(ID) from 爱笔记 order by ID" '这句会得到一个中间的ID, 而不是我想要的最后一个ID, 这一行中第2列是空的, 而如果没记错, 从下方开始这个第2列是非空的了 约 4400中的第4200多记录Sq = "Select Top 1 ID from 爱笔记 order by ID D
2020-05-09 14:44:58
156
原创 vba range的使用记录
vba range的使用记录以下两种单元格选定方式有点特别 ActiveCell.Range(“A1:A3”).Select,这种是可以选择此单元格及以下两个ActiveCell.Offset(1, 0).Cells(“1,1”).Select,这种是错误的输入,但会返回包含此单元格ActiveCell.Offset(1, 0)至向下第11个单元格感觉这是实现了 ActiveCell.Of...
2020-05-05 13:51:10
539
原创 Vba clearformats 的异常报告一则
Vba clearformats 的异常报告一则操作系统:win10 office系统: 2019clearformats之前, 比如单元格1的字体是calibri, 单元格2的字体是宋体(标题)clearformats之后, 单元格1的字体是宋体, 单元格2的字体变成了空白怀疑是与被处理Excel文件本身的预设有关系.使用了一个空白表格来测试默认单元格字体是等线(正文)设置格1原...
2020-05-01 15:46:47
319
原创 vba中字典循环时的报错
'本错误/问题与字典相关, 因为如果是一般的for i=1 to X 这种循环未出现问题.'同一个存在于某固定行数的For循环体系如果没跑完不能回到之前并继续进行同一个(存在于某固定行数)的循环, 否则报错'该数组被固定或暂时锁定, 英文: This array is fixed or temporarily locked.'如果是到了另一个For循环体系(不同行数), 虽然循环的内容一模一...
2020-04-29 15:42:31
903
原创 EXCEL与WPS中名称的一点差别
EXCEL与WPS中名称的一点差别EXCEL2019中,如果在单元格中使用以下TEST名称会被报错 #NAME!, 在WPS中可以正常运行在单元格中单独使用TEST名称对应的公式, 则正常运行.TEST==OFFSET(Sheet2!$A$1,2,_col2)=“X”_Col2=ROUNDDOWN((COLUMN(Sheet2!G18)-7)/3,0)*3+7...
2020-04-24 17:51:23
231
原创 EXCEL与DPI之我见
理解: DPI, 屏幕图像中的像素点距离是固定的, 那么英寸, 厘米等长度应该就是可变的 高DPI, 用更多的像素点来代表相同长度的距离(这里的距离比如1英寸,不是生活中的1英寸, 而是电脑中认为的1英寸, 这样图像自然显示放大了在EXCEL中, 同样一个表格, 页面视图下点住调整列的那个小竖线, 提示是2.54cm(120pixels) 然而回到常规视图下, 点住调列宽的小竖线,...
2020-04-18 10:29:49
1603
原创 日期变量变成数值时的注意项 val函数 cdbl函数在此用法上的不同点
日期变量变成数值时的注意项 val函数 cdbl函数在此用法上的不同点Sub test()Dim vDim dA As DatedA = “2019-1-2 12:13:14”v = Val(dA) '结果是2019v = CDbl(dA) '结果是 43938.4201388889'以下用da来代表一个标准型的日期变量'然后如果只需要取da的日期部分, 则使用int即可, 如果需...
2020-04-17 10:15:57
662
原创 VB6 在Win10中 DPI字体125%的时候显示模糊的解决方案
VB6 在Win10中 DPI字体125%的时候显示模糊的解决方案右键VB6的主程序选择右键菜单中的属性选择上方兼容性选项卡点击更改高DPI设置勾选替代高DPI缩放行为, 选项内容"应用程序" 即可点确定再使用, 怎么样, 世界变得如此清晰....
2020-04-11 18:22:34
1492
1
原创 Isnumreic 若干用法注意点
Isnumreic 若干用法注意点textbox.text如果是空值, 则isnumeric会认为是false如果是?isnumeric(sheet3.[b12]),而这个b12格子是空的, isnumeric会认为是True.注意这点不同注意: 下面的strT是String字符串,比如还没有赋值,或值为""时,isnumeric函数得到的结果是False?isnumeric(strT)...
2020-04-08 16:33:19
404
原创 关于strconv unicode的一些理解
----以下是一些我的记录关于strconv unicode的一些理解----'这是源数据, 如果理解不错估计是二进制字节型数组.?strData楷獮潰汯丬づ? ,Ne00:以下为测试1:?strconv(strdata,vbfromUnicode)’我的理解: 这样是把二进制再转成二进制, 所以逻辑不通, 出问题正常?麪???丬づ???以下为测试2:?strconv(strdat...
2020-04-07 18:50:22
301
原创 数值从单元格区域赋值给单元格区域的研究
这是关于数值从单元格区域赋值给单元格区域的研究 也可以说是range对象对range对象直接赋值这两种可以实现:mu.[b1:I1] = yu.[E9:L9].Valuemu.[b1:I1].Value = yu.[E9:L9].Value这一种不可以实现mu.[b1:I1] = yu.[E9:L9],像这样又可以mu.[j3] = yu.[C8]似乎与多重单元格有关系.这种整行...
2020-04-06 20:38:09
594
原创 vba open 打开状态Excel/Word时的状态
vba open 打开状态Excel/Word时的状态Getobject的使用发现 发现如果这个Word文件打开着的状态, 就算有过改动 , 运行以下代码的时候, 再打开这个文件时,没有任何变化或提示说是否重新打开, 是否放弃更改之类的信息.晕.直接打开, 打开其实也就之前那个打开的文件,含变化的版本, 而非是正常需要的原始未有变化的的版本, 郁闷Set Wd = GetObject(, “w...
2020-04-05 17:47:27
1870
1
原创 EXCEL变卡慢问题探究之一
EXCEL变卡慢如果一个EXCEL文件比较大,而文件中工作表是空的, 这并不代表这些空的位置没有问题,很可能有一些残留格式之类,这个时候需要把这些删除,注意是整行删除这种,而不是用DELETE(清除内容).有可能文件就变小了.===========EXCEL中选择大量区域(不是整行),selection.delete(删除)之后,文件运行变得超慢,文件也变得非常大,恢复方法是整行选中整体删除...
2020-04-02 19:35:13
554
原创 win10中标准短日期格式引发的数据不匹配
Winodws 10 中短日期的显示样式 通过使用yyyy/m/d/dddd, 让任务栏中的日期里面支持显示星期数, 原始状态是yyyy/m/d, 方法是通过控制面板中日期和时间-更改日期和时间-更改日历设置- 短日期格式调整 这样做表面上看是任务栏显示方便了, 却带来一个问题, 就是标准日期格式赋给比如变量数组时, 得到的日期格式也是带有星期几, 我再从这种日期格式想导入ACCESS的时候, 发...
2020-03-29 12:52:43
533
原创 instr 日文 sql ado access 连联演出的内存溢出大戏{}
instr 日文 sql ado access 连联演出的内存溢出大戏{}vba中发现关于Instr不分大小写时的报错一例bt: 很仙的衬衣男港风ins超火的痞帅长袖衬衫春季pureピュア外套上衣If InStr(1, Bt, Mid(Gjc, i, 1), vbTextCompare) = 0, 报错, 内存溢出, 怀疑是这里有日文字符导致的instr函数时使用不分大小写参数时出错因为...
2020-03-27 17:01:15
302
原创 关于Instr不分大小写时的报错一例
关于Instr不分大小写时的报错一例bt: 很仙的衬衣男港风ins超火的痞帅长袖衬衫春季pureピュア外套上衣If InStr(1, Bt, Mid(Gjc, i, 1), vbTextCompare) = 0, 报错, 内存溢出, 怀疑是这里有日文字符导致的instr函数时使用不分大小写参数时出错因为如果区分大小写, 则不会出现这样的问题?instr(“很仙的衬衣男港风ins超火的痞帅长...
2020-03-26 15:13:11
476
原创 数组赋值给某些单元格区域时的异常信息
office 2019 excel 在将数组赋值给某些单元格区域, 比如[d1]单元格作为开始格, 进行赋入, 如果筛选过的情况, 在筛选显示出来的那些区域会显示d1格中的内容, 而非被赋入数组中实际的内容, 而筛选隐藏部分则是正常的赋值. 对策, 筛选取消后 即恢复正常....
2020-03-25 14:27:38
319
原创 EXCEL 查找与筛选的疑惑
Office 2019 EXCEL中的筛选下拉中显示是5.8034E+11的科学技术法, 然后实际值是580339751256. 下拉中输入这个实际值居然是查不到的, 醉了, 需要按科学技术法那种样式输入才行, 但是按搜索功能(CTRL+F)就可以按实际值找, 相反, 按显示样式是找不到了… 呵呵~~...
2020-03-22 11:45:00
220
原创 字典使用中的问题: Key自动被非意愿加入
字典使用中的问题: Key自动被非意愿加入问题1:比如一开始并没有这个key(Rel),然后使用了IIF,d1中不存在这个Rel,第一次能正常取值Rel,但这个语句过后, 好像Rel就自动被加入到d1中了,从count,d1.exists()均发现了这个事实,郁闷.Rel = IIf(d1.exists(Rel), d1(Rel), Rel),对策, 使用if,而不是iif.问题:比如以...
2020-03-15 12:17:22
277
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人