EXCEL VBA学习笔记（2）

4/2/2019
the second learning for excel VBA

Sub 赋值语言()
    ' way 1
    Range("b5") = 456
    '只有数值可以省去双引号
    ' way 2
    Range("d6").Select
    ActiveCell.FormulaR1C1 = "123"
    
    Range("c5") = 124 & "love"
    ' &符号前后需要加空格
    
    Range("d7").Select
    ActiveCell.romular1c1 = "=[function]"
    ' 函数中单元格表示使用相对位置
    ' 如果行列没有改变时可以不写
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "=OFFSET(R[-3]C[-3],1,1)"
    
    Range("D4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    
    
End Sub

Sub 删除()
   Range("A2:D5").Select
   Selection.ClearContents
End Sub

以下代码为一个困惑点

Sub test()
    Range("D1").Select
    Selection.FormulaR1C1 = 123
    Range("D2").Select
    Selection.ClearContents
End Sub

	' 用于清除上一个粘贴内容
	Application.CutCopyModel=false
	'粘贴
	'columns("G:G").select
	Activesheet.paste

VBA 运行优化

'运算属性
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic
Application.Calculation = xlCalculationSemiautomatic
'屏幕刷新属性
Application.ScreenUpdating = False
' 显示提示框
Application.DisplayAlerts = False

author :llovewyq