伊人飘香完整版:自学资料（Excel VBA）[收集整理1]

自学资料（Excel VBA）[收集整理1]

默认分类   2009-08-01 11:47   阅读34   评论0   字号： 大大  中中  小小 1、Application.CommandBars("Worksheet Menu Bar").Enabled = false
2、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值
3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置
    Dim shtSheet As Worksheet
    For Each shtSheet In Sheets
        If shtSheet.Name = "KK" Then Exit Sub
    Next shtSheet
    Set shtSheet = Sheets.Add(Before:=Sheets(1))
    shtSheet.Name = "KK"
End Sub
4、Sheet1.ListBox1.List = Array("一月", "二月", "三月", "四月")'一次性增加项目
5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中
6、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识me
Me.Unprotect
Cells.Locked = False
Range("D11:E11").Locked = True
Me.Protect
End Sub
7、Application.CommandBars("Ply").Enabled = False'工作表标签上快捷菜单失效
8、Sub aa()'把B1到B12单元格的数据填入c1到c12
For i = 1 To 12
Range("C" & i) = Range("B" & i)
Next i
End Sub
9、ActiveCell.AddComment
Selection.Font.Size = 12'在点选的单元格插入批注，字体为12号
10、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub
11、ScrollArea 属性
参阅应用于示例特性以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型，可读写。
说明
可将本属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。
示例
本示例设置第一张工作表的滚动区域。
Worksheets(1).ScrollArea = "a1:f10"
12\if application.max([a1:e1])=10 then
msgbox""
commandbutton1.enabled=false
'A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮
12、本示例将更改的单元格的颜色设为蓝色。
Private Sub Worksheet_Change(ByVal Target as Range)
    Target.Font.ColorIndex = 5
End Sub
13、Sub test()'求和
Dim rng As Range, rng2 As Range
For Each rng In ActiveSheet.UsedRange.Columns
        Set rng2 = Range(Cells(1, rng.Column), Cells(Cells(65536, rng.Column).End(xlUp).Row, rng.Column))
        rng2.Cells(rng2.Cells.Count).Offset(1, 0) = WorksheetFunction.Sum(rng2)
Next rng
End Sub
14、将工作薄中的全部n张工作表都在sheet1中建上链接
Sub test2()
Dim Pt As Range
Dim i As Integer
With Sheet1
    Set Pt = .Range("a1")
    For i = 2 To ThisWorkbook.Worksheets.Count
        .Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & "!A1"
        Set Pt = Pt.Offset(1, 0)
    Next i
End With
End Sub
15、保存所有打开的工作簿，然后退出 Microsoft Excel。
For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit
16、让form标题栏上的关闭按钮失效
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub
17、Sub countsh()'获得工作表的总数
MsgBox Sheets.Count
End Sub
18、Sub IE()'打开个人网页
ActiveWorkbook.FollowHyperlink "about:blank"
SendKeys "{F4}ykk1976.anyp.cn{ENTER}", True
End Sub
19、Sub delback()'一次性删除工作簿中所有工作表的背景
For Each shtSheet In Sheets
    shtSheet.SetBackgroundPicture Filename:=""
    Next shtSheet
End Sub
20、[a1].formula="=b1+c1"'A1中设定公式为=B1+C1
21、Private Sub CommandButton1_Click()'将A1到C6中大于=3的数依次放入E列
Dim i As Long
r = 1
For Each i In Range("a1:c6")
    If i > =3 Then Cells(r, 5) = i: r = r + 1
Next
End Sub
22、Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)'显示带数字的表名
b = Split(Sh.Name, "(")
On Error GoTo ss
num = CInt(Left(b(1), Len(b(1)) - 1))
If num >= 1 And num < 20 Then
MsgBox Sh.Name
End If
Exit Sub
ss:
MsgBox "error", 16, ""
End Sub
23、Sub Test()'选择所有工作表名以"业报"开头的工作表或头两个字是业报的报表名引用
Set Sh = ActiveSheet
If Left(Sh.Name, 2) = "业报" Then ' 或if sh.name like"业报*"then
MsgBox "你成功了", 64, ""
End If
End Sub
24、1.建立文件夹的方法
MkDir "D:\Music"
2.打开文件夹的方法
ActiveWorkbook.FollowHyperlink Address:="D:\Music", NewWindow:=True转载自 http://bbs.it.com.cn/showtopic-169943.aspx