||
一.自动搜索文件夹下的文件名并保存
1.搜索当前文件夹下的文件名
Sub test() '读取当前文件夹下的文件名,并保存在表格内
a = 1
Set fso = CreateObject("scripting.filesystemobject")
Set ff = fso.getfolder(ThisWorkbook.Path)
For Each f In ff.Files
If f.Name <> ThisWorkbook.Name Then
'Workbooks.Open f '打开搜索到的文件
Sheets(1).Cells(a, 1) = f.Name
a = a + 1
End If
Next f
End Sub
2.搜索当前文件夹的下级文件夹里的文件名
Sub bbb() '修改之后的,读取下一级文件夹下的文件名
a = 1
Dim arr, MyPath$, MyName$, Fol
MyPath = ThisWorkbook.Path
For Each Fol In CreateObject("scripting.filesystemobject").getfolder(MyPath).subfolders
For Each f In Fol.Files
Sheets(2).Cells(a, 1) = f.Name
a = a + 1
Next f
Next Fol
End Sub
二.选择对应区域的行或者列
1、选择对应区域的行
Range("a1:a10").EntireRow.Select
Cells(11, 1).EntireRow.Select
2、选择对应区域的列
Range("a1:a10").EntireColumn.Select
Cells(11, 1).EntireColumn.Select
三.返回非空行的最大行号和返回最大非空列的列号
1.返回非空行的最大行号
Cells(Rows.Count, 1).End(3).Row
Cells(Rows.Count, 1).End(xlUp).Row
2. 返回非空列的最大列号
Cells(1, Columns.Count).End(1).Column
Cells(1, Columns.Count).End(xlToLeft).Column
四.Checkboxes的返回对应的单元格地址,使用频率不是很大,但是关于checkboxes用处还是比较多的
Checkboxes的value属性是返回是否被选中,text属性是指checkboxes的名称。以下代码是返回被选中的checkboxes对应的单元格地址。
Sub Macro1()
Dim i As Byte
With ActiveSheet
For i = 1 To 4
If .CheckBoxes(i).Value = 1 Then MsgBox .CheckBoxes(i).TopLeftCell.Address
Next
End With
End Sub
表格事件处理,第二列单元格有变化,在其他表内查找数据
GMT+8, 2024-3-28 18:51 , Processed in 0.032242 second(s), 8 queries , Gzip On, Redis On.
Powered by Discuz! X3.4
© 1999-2023 Wooffice Inc.
沪公网安备 31011702000001号 沪ICP备11019229号-2
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! 本站特聘法律顾问:李志群律师