欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

VBA是什么？簡(jiǎn)單的說(shuō)VBA是excel中用于編程的語(yǔ)言，想實(shí)現什么功能都可以用它編寫(xiě)。

在公式中我們很熟悉單元格的表示方法，在VBA中怎么表示的呢？

以下摘自 蘭色幻想VBA80集視頻教程第11集

'1 表示一個(gè)單元格(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() '選取單元格a1:c5
' Range('a1:c5').Select
' Range('A1', 'C5').Select
' Range(Cells(1, 1), Cells(5, 3)).Select
'Range('a1:a10').Offset(0, 1).Select
Range('a1').Resize(5, 3).Select
End Sub

'3 表示不相鄰的單元格區域

Sub d1()

Range('a1,c1:f4,a7').Select

'Union(Range('a1'), Range('c1:f4'), Range('a7')).Select

End Sub

Sub dd() 'union示例
Dim rg As Range, x As Integer
For x = 2 To 10 Step 2
If x = 2 Then Set rg = Cells(x, 1)

Set rg = Union(rg, Cells(x, 1))
Next x
rg.Select
End Sub

'4 表示行

Sub h()

'Rows(1).Select
'Rows('3:7').Select
'Range('1:2,4:5').Select
Range('c4:f5').EntireRow.Select

End Sub

'5 表示列

Sub L()

' Columns(1).Select
' Columns('A:B').Select
' Range('A:B,D:E').Select
Range('c4:f5').EntireColumn.Select '選取c4:f5所在的行

End Sub

'6 重置坐標下的單元格表示方法

Sub cc()

Range('b2').Range('a1') = 100

End Sub

'7 表示正在選取的單元格區域

Sub d2()
Selection.Value = 100
End Sub