(3)with 语句 and VBAExecl简单的公式,函数

Sub Swith() 'with 语句
Dim a, b, c As String
a = Range("a1").Address        'A1单元格的地址
b = Range("a1").Parent.name    'A1单元格的父母 也就是工作表的名字
Range("a1") = "A1单元格内容"    '赋值

With Range("a2")
a = .Address
b = .Parent.name
.Value = "A2单元格内容"
End With
'------正常语句跟with语句的对比
Range("a3").Value = "A3单元格内容"
Range("a3").Parent.name = "工作表1"
Range("a3").Font.Size = 20   '单元格字体大小
Range("a3").Font.Bold = True

'with语句的运用
With Range("a4")
.Value = "A4单元格内容"
.Parent.name = "工作表1"
   With .Font
     .Size = 22       '字体大小
     .Bold = True     '属性 加粗否
   End With
End With

End Sub

Sub VBAadd()  '普通公式
Dim a As Integer
Sheet1.Range("D9") = "=A9+B9"        '普通公式  加
Sheet1.Cells(10, 4) = "=A10+B10"     '普通公式  加
'----循环公式相加
 For a = 13 To 17
 Sheet1.Cells(a, 3) = "=A" & a & "+ b" & a
 Next a
 
'-----数组公式  FormulaArray 支持数组公式
Range("e13:e17").FormulaArray = "=a13:a17 + b13:b17"  '真数组公式  表中公式不会变化
Range("e13:e17") = "=a13:a17 + b13:b17"              '假数组公式  表中公式会变化
'------函数公式  =sum(A1:B1)
a = 1
For a = 1 To 5
Range("C" & a) = "=sum(A" & a & ":B" & a & ")"
Next a
End Sub

Sub Sum()
'countif ()'统计A1-C5 单元格内 > 3  的个数
Cells(1, 4) = "=countif(A1:C5,"">3"")"
  '求和 A1-C10 单元格   

 ' ' 'indirect函数对单元格引用 ：=SUM(INDIRECT("'1'!B2:B11"))。

 ' '  '解释：indirect（“’工作表名’！单元格区域”）
Cells(1, 5) = "=sum(INDIRECT(""A1:C10""))"
Cells(1, 6) = "=sum(A1:C10)"
End Sub