Sub 九九剩法()
Dim i As Integer
Dim j As Integer
For i = 1 To 9
For j = 1 To 9
im = i Mod 2
k = i & "×" & j & "=" & i * j
If i <= j Then
Sheets("Sheet1").Cells(j, i) = k
Cells(j, i).Interior.ColorIndex = 3
If im = 0 Then
Cells(j, i).Interior.ColorIndex = 6
End If
End If
Next j
Next i
End Sub
案列二
Sub fun()
MsgBox "Entered value is" & Range("A1").Value & vbNewLine & Range("B1").Value
'输出字符串entered value is单元格A1的值以及换行单元格B1的值
End Sub
案列三
Sub fun()
Dim answer As Integer
answer = MsgBox("Are you sure you want to empty the sheet?", 4 + 32, "Empty sheet")
'msgbox函数4代表“是”和“否”；32代表警告窗口
answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")
'msgbox函数vbYesNo代表“是”和“否”；VBQuestion代表警告窗口
If answer = vbYes Then
Cells.ClearContents '如果点击answer对话框是yes的，那么将清空所有单元格内容
Else
'do nothing
End If
End Sub
宏的录制方法
Sub 宏41()
'
' 宏41 宏
'
' 快捷键: Ctrl+s
'
Selection.NumberFormatLocal = "0.00%" '单元格里面变成0.00%
End Sub
Sub 宏2()
'
' 宏2 宏
'
'
Selection.NumberFormatLocal = _
"_ ￥* #,##0.00_ ;_ ￥* -#,##0.00_ ;_ ￥* ""-""??_ ;_ @_ " '单元格里面的数字变成价钱金额
End Sub
Sub 宏6()
'
' 宏6 宏
'
'
ActiveCell.FormulaR1C1 = "salse" '在单元格中填写sales
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "production" '在单元格中填写production
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "logistics" '在单元格中填写logistics
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Private Sub CommandButton3_Click()
Range("E4").Formula = "=B12*2"
End Sub
Private Sub CommandButton2_Click()
Range("E4").FormulaR1C1 = "=R12C2*2" '单元格的绝对引用
End Sub
Private Sub CommandButton1_Click()
Range("E4").FormulaR1C1 = "=R[8]C[-3]*2"
'相对单元格的引用结果跟第一个一样
End Sub
打开一个工作表并给工作表加密！
Sub 按钮1_Click()
If Application.InputBox("请输入密码:") = 123 Then
Range("A1").Value = 10
Else
MsgBox "密码错误，即将退去！"
Sheets("sheet2").Select
End If
End Sub
2.在单元格里面输值以及清除单元格格式以及内容
Sub inserte()
Dim Color As Integer
Range("A1：A2").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "text"
ActiveCell.FormulaR1C1 = "formulas"
Range("A1:A2").BorderAround Weight:=1
Range("A1:A6").Clear
End Sub
3.The properties of the cell selection
Sub Rngselect()
'Sheet1.Range("A3:F6, B1:C5").Select
Sheet2.Range("$A$3:F6 ,$C$5:$G$7").Select
'
End Sub
Sub Rngselect1()
'Sheet1.Range("A3:F6, B1:C5").Select
Sheet1.Range("A3:F6 ,C5:G7").Select
'Select the merge cell section
End Sub
Sub Rngselect2()
'Sheet1.Range("A3:F6, B1:C5").Select
Sheet1.Range("A3:F6 C5:G7").Select
'Select the intersecting cell section
End Sub
4.单元格序号填充
Sub cell()
Sub cell()
Dim Icell As Integer
For Icell = 1 To 100
Sheet2.Cells(Icell, 1).Value = Icell
'单元格序号填充
' 英文注释 The cell number is filled
Next
End Sub
5.for.......next带循环语句
Sub cell()
Dim Icell, sum, j As Integer
For Icell = 1 To 100
sum = Icell + 1
j = j + sum
Sheet2.Cells(Icell, 1).Value = j
'单元格序号填充
' 英文注释 The cell number is filled
Next
End Sub
