06 2022 档案

VBA 焦点居A1，sheet居sheet1, 预览大小调整100% ,设置打印页脚水印（操作同一文件夹下所有excel）
摘要：Sub BtnChooseFolder_Click() Worksheets("util").Cells(6, 2).Value = "" Dim folderPath As String If Application.FileDialog(msoFileDialogFolderPicker).Sh 阅读全文
posted @ 2022-06-21 14:26 人鬼情未了 阅读(181) 评论(0) 推荐(0) 编辑
vba 选择文件，文件夹，判断是否存在
摘要：打开文件夹：Public Function ChooseFolder(Rg As Range) With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Rg = .SelectedItems(1) End If End 阅读全文
posted @ 2022-06-21 13:41 人鬼情未了 阅读(593) 评论(0) 推荐(0) 编辑
给所选区域单元格的某部分固定文字改变颜色
摘要：Public Sub ChgTxtColor() Set myRange = Range("A1:A100") '検索範囲 substr = "(RD)" '赤になる文字 txtColor = 3 '文字色 For Each myString In myRange lenstr = Len(mySt 阅读全文
posted @ 2022-06-06 17:16 人鬼情未了 阅读(115) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示