Excel VBA
Christopher Cheung
人生很短,岁月很长;三五知己,围炉共度
展开
-
Excel VBA中特殊单元格的定位
Option Explicit'1 已使用的单元格区域 Sub RangesUsed() 'UsedRange属性 Sheets("sheet1").UsedRange.Select End Sub'2 某单元格所在的单元格区域 Sub RangesLocation() 'CurrentRegion Range("b8").CurrentRegion.Selec原创 2017-05-14 09:14:36 · 3193 阅读 · 0 评论 -
Excel VBA 中 Excel文件的操作
'1 判断A.Xls文件是否存在 Sub W1() If Len(Dir("D:\A.xls")) = 0 Then MsgBox "A文件不存在" Else MsgBox "A文件存在" End If End Sub'2 判断A.Xls文件是否打开 Sub W2() Dim X As Integer原创 2017-05-13 23:58:27 · 960 阅读 · 0 评论 -
Excel VBA 移动文件和文件夹
1、移动指定文件:Public Sub 移动文件() Dim myFile As String Dim myNewFilePath As String Dim fso As Scripting.FileSystemObject myFile = ThisWorkbook.Path & "\test.txt" '要移动的文件 myNewFilePath =原创 2017-05-14 10:27:03 · 9886 阅读 · 2 评论 -
Excel VBA 中单元格选取
Option Explicit'1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select [a1].Select End Sub'2 表示相邻单元格区域 Sub d() '原创 2017-05-14 00:34:24 · 20487 阅读 · 0 评论 -
Excel VBA工作簿与工作表的操作
1.保存当前工作簿Public Sub保存当前工作簿() Dim wb As Workbook Set wb = ThisWorkbook '可指定任意工作簿 wb.Save Set wb = NothingEnd Sub如果是第一次保存工作簿,请使用SaveAs方法为该文件指定文件名Public Sub 另存工作簿()Dim wb As Workbook原创 2017-05-13 00:46:53 · 2275 阅读 · 0 评论 -
Excel VBA 单元格信息
1 单元格的值 Sub x1() Range("b10") = Range("c2").Value Range("b11") = Range("c2").Text Range("b11") = "'" & Range("c2").Formula '获取单元格的公式 End Sub2 单元格的地址 Sub x2() With原创 2017-07-16 10:31:43 · 638 阅读 · 0 评论