- 博客(12)
- 收藏
- 关注
RSS订阅原创 Excel VBA 自动筛选，取消筛选
若要为工作表创建 AutoFilter 对象，必须手动或使用 Range 对象的 AutoFilter 方法为工作表上的某个区域启用自动筛选。If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData '判断激活中的工作表是否处于筛选状态，是的话，取消筛选。'AutoFilterMode 如果当前在工作表上显示有“自动筛选”下拉箭头，则该值为 True。'FilterMode 如果工作表处于筛选模式，则为 True。
2024-01-23 13:47:36
2817
1
原创 excel vba利用DateSerial来获取某个月的第一天和最后一天
'DateSerial的第三个参数设置成1，day一定是1，第二个参数Month(Date) - 1，则表示上一个月。FirstDate = InputBox("", "请输入要开始的时间", defaultDate)LastDate = InputBox("", "请输入结束的时间", defaultDate)'DateSerial的第三个参数设置成0，那么会获month的上一个月的最后一天。
2023-12-26 15:13:17
2212
1
原创 在mouse_event和keybd_event不推荐使用的时候，用sendinput代替。
本文章就是展示如何使用sendinput（在Excel的VBA中使用），实现EXCEL按键精灵一般的操作,Excel利用sendinput函数实现自动化操作，比如鼠标点击，复制粘贴
2023-11-15 15:27:13
342
原创 mouse_event事件无法进行绝对位置移动
'1.把原先&H8000改成&H8000&，就能解决无法绝对移动的问题。'2.把&H1 Or &H8000&，替换成数值 32769就行。具体的请查看链接这里有大佬的回答。
2023-11-14 16:29:04
237
原创 VBA ADO RecordCount=-1
当Recordset对象open的时候没有设置合适的参数，就会导致查询后Recordset对象有会值，这时候RecordCount的值应该是你返回的个数，但是recordCount却依然是-1。1 键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。用户对记录说做的修改，增加或删除记录都将反映到记录集中。3 静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。1 锁定类型，默认的，只读，不能作任何修改。
2023-09-22 09:10:20
530
1
原创 Python tkinter trewview scrollbar 滑块
# 设定下边的滚动scrollbar_down = ttk.Scrollbar(self.master, orient=HORIZONTAL)# 下边的滚动在X轴充满scrollbar_down.pack(side=BOTTOM, fill=X)# 设定右边的滚动scrollbar_right = ttk.Scrollbar(self.master)# 右边的滚动在Y轴充满scrollbar_right.pack(side=RIGHT, fill=Y)# 记住在创建treeview的时候一.
2021-11-26 10:41:52
1000
原创 2021-05-04
vba窗体中的文本框的输入法问题默认输入法是英文，但我平时想用的时候是中文，我就把所有的文本框设置成中文。例如：TextBox1.IMEMode = fmIMEModeHanziFull，这样就可以了当我使用这个文本框的时候跳出来就是中文...
2021-05-04 10:53:44
770
原创 2021-03-30
ascii中大数字键盘的数字0~9对应的ascii码是48~57，小数字键盘的0~9的ascii码则是96~105。表面我们都是输入0~9的数字，但是实际上完全不一样。输入数字的时候键盘发给系统的ascii码是不一样的，导致一些涉及到按键的代码失效。在Excel的vba中使用appcation.onkey “1” ，此时的的1是对应大数字键盘的小数字键盘无效。后续情况让我研究完后再记录吧...
2021-03-30 09:13:19
87
原创 2021-03-19
sub代替字典的数组（）Dim arr() As Variant'先定义一个数组If (ActiveSheet.FilterMode = True) Then ActiveSheet.ShowAllData '判断是不是处于筛选状态,是的话清除筛选a = Sheet1.Range("B1048576").End(xlUp).Row '找到表格1，b列的最后一行的行数ReDim Preserve arr(1 To 1) As Variant‘重新定义数组，并且保留之前的数组数据n = 0'定义一.
2021-03-19 14:42:30
180
原创 2021-03-19
Excel VBA：具有多个条件的自动筛选器，只能按数组中的最后一项进行筛选,如何解决arr =array（“1”，“2”，“3”，“4”，“5”）Range(Cells(1, 1), Cells(10, 10)).AutoFilter FIELD:=2, Criteria1:=arr, Operator:=xlFilterValues '筛选,如果没有 Operator:=xlFilterValues，那么只会筛选arr的最后一个值也就5...
2021-03-19 14:29:18
104
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人