# EXCEL在VB中的编程概念全解

Sub  FormatRange()
Workbooks( "Book1" ).Sheets( "Sheet1" ).Range( "A1:D5" ) _
.Font.Bold =  True
End   Sub

Range( "A1" ) 单元格 A1
Range( "A1:B5" ) 从单元格 A1 到单元格 B5 的区域
Range( "C5:D9,G9:H16" ) 多块选定区域
Range( "A:A" ) A 列
Range( "1:1" ) 第一行
Range( "A:C" ) 从 A 列到 C 列的区域
Range( "1:5" ) 从第一行到第五行的区域
Range( "1:1,3:3,8:8" ) 第 1、3 和 8 行
Range( "A:A,C:C,F:F" ) A 、C 和 F 列

Sub  EnterValue()
Worksheets( "Sheet1" ).Cells(6, 1).Value = 10
End   Sub

Sub  CycleThrough()
Dim  counter As Integer
For  counter = 1  To  20
Worksheets( "Sheet1" ).Cells(counter, 3).Value = counter
Next  counter
End   Sub

Sub  RowBold()
Worksheets( "Sheet1" ).Rows(1).Font.Bold =  True
End   Sub

Rows(1) 第一行
Rows 工作表上所有的行
Columns(1) 第一列
Columns( "A" ) 第一列
Columns 工作表上所有的列

Sub  SeveralRows()
Worksheets( "Sheet1" ).Activate
Dim  myUnion As Range
Set  myUnion = Union(Rows(1), Rows(3), Rows(5))
myUnion.Font.Bold =  True
End   Sub

Sub  ClearRange()
Worksheets( "Sheet1" ).[A1:B5].ClearContents
End   Sub

Sub  SetValue()
[myRange].Value = 30
End   Sub

Sub  FormatRange()
Range( "MyBook.xls!MyRange" ).Font.Italic =  True
End   Sub

Sub  FormatSales()
Range( "[Report.xls]Sheet1!Sales" ).BorderAround Weight:=xlthin
End   Sub

Sub  ClearRange()
Application.Goto Reference:= "MyBook.xls!MyRange"
Selection.ClearContents
End   Sub

Sub  ClearRange()
Application.Goto Reference:= "MyRange"
Selection.ClearContents
End   Sub

Sub  ApplyColor()
Const  Limit As Integer = 25
For   Each  c  In  Range( "MyRange" )
If  c.Value > Limit  Then
c.Interior.ColorIndex = 27
End   If
Next  c
End   Sub

Sub  Underline()
ActiveCell.Offset(1, 3).Font.Underline = xlDouble
End   Sub

Sub  CycleThrough()
Dim  counter As Integer
For  counter = 1  To  20
Worksheets( "Sheet1" ).Cells(counter, 3).Value = counter * 5
Next  counter
End   Sub

Sub  Random()
Dim  myRange As Range
Set  myRange = Worksheets( "Sheet1" ).Range( "A1:D5" )
myRange.Formula =  "=RAND()"
myRange.Font.Bold =  True
End   Sub

Sub  ClearSheet()
Worksheets( "Sheet1" ).Cells.ClearContents
End   Sub

Sub  ClearRanges()
Worksheets( "Sheet1" ).Range( "C5:D9,G9:H16,B14:D18" ). _
ClearContents
End   Sub

Sub  ClearNamed()
Range( "MyRange, YourRange, HisRange" ).ClearContents
End   Sub

Sub  MultipleRange()
Dim  r1, r2, myMultipleRange As Range
Set  r1 = Sheets( "Sheet1" ).Range( "A1:B2" )
Set  r2 = Sheets( "Sheet1" ).Range( "C3:D4" )
Set  myMultipleRange = Union(r1, r2)
myMultipleRange.Font.Bold =  True
End   Sub

Sub  FindMultiple()
If  Selection.Areas.Count > 1  Then
MsgBox   "Cannot do this to a multiple selection."
End   If
End   Sub

Sub  RoundToZero1()
For  counter = 1  To  20
Set  curCell = Worksheets( "Sheet1" ).Cells(counter, 3)
If  Abs(curCell.Value) < 0.01  Then  curCell.Value = 0
Next  counter
End   Sub

Sub  RoundToZero2()
For   Each  c  In  Worksheets( "Sheet1" ).Range( "A1:D10" ).Cells
If  Abs(c.Value) < 0.01  Then  c.Value = 0
Next
End   Sub

Sub  RoundToZero3()
For   Each  c  In  ActiveCell.CurrentRegion.Cells
If  Abs(c.Value) < 0.01  Then  c.Value = 0
Next
End   Sub

Sub  EnterFormula()
Worksheets( "Sheet1" ).Range( "D6" ).Formula =  "=SUM(D2:D5)"
End   Sub

Select  方法激活工作表和工作表上的对象；而 Selection 属性返回代表活动工作簿中活动工作表上的当前选定区域的对象。在成功使用 Selection 属性之前，必须先激活工作簿，并激活或选定工作表，然后用  Select  方法选定单元格区域（或其他对象）。

Sub  Macro1()
Sheets( "Sheet1" ). Select
Range( "A1" ). Select
ActiveCell.FormulaR1C1 =  "Name"
Range( "B1" ). Select
Range( "A1:B1" ). Select
Selection.Font.Bold =  True
End   Sub

Sub  Labels()
With Worksheets( "Sheet1" )
.Range( "A1" ) =  "Name"
.Range( "A1:B1" ).Font.Bold =  True
End  With
End   Sub

Sub  CopyRow()
Worksheets( "Sheet1" ).Rows(1).Copy
Worksheets( "Sheet2" ). Select
Worksheets( "Sheet2" ).Rows(1). Select
Worksheets( "Sheet2" ).Paste
End   Sub

Sub  MakeActive()
Worksheets( "Sheet1" ).Activate
Range( "A1:D4" ). Select
Range( "B2" ).Activate
End   Sub

Sub  FormatSheets()
Sheets( Array ( "Sheet2""Sheet3""Sheet5" )). Select
Range( "A1:H1" ). Select
Selection.Borders(xlBottom).LineStyle = xlDouble
End   Sub

Sub  FillAll()
Worksheets( "Sheet2" ).Range( "A1:H1" ) _
.Borders(xlBottom).LineStyle = xlDouble
Worksheets.FillAcrossSheets (Worksheets( "Sheet2" ) _
.Range( "A1:H1" ))
End   Sub

ActiveCell 属性返回代表活动单元格的 Range 对象。可对活动单元格应用 Range 对象的任何属性和方法，如下例所示。

Sub  SetValue()
Worksheets( "Sheet1" ).Activate
ActiveCell.Value = 35
End   Sub

Sub  SetActive()
Worksheets( "Sheet1" ).Activate
Worksheets( "Sheet1" ).Range( "B5" ).Activate
ActiveCell.Font.Bold =  True
End   Sub

Sub  MoveActive()
Worksheets( "Sheet1" ).Activate
Range( "A1:D10" ). Select
ActiveCell.Value =  "Monthly Totals"
ActiveCell.Offset(0, 1).Activate
End   Sub

CurrentRegion 属性返回由空白行和空白列所包围的单元格区域。下例中，选定区域扩充到与活动单元格相邻的包含数据的单元格中，然后用“货币”样式设置该区域的格式。

Sub  Region()
Worksheets( "Sheet1" ).Activate
ActiveCell.CurrentRegion. Select
Selection.Style =  "Currency"
End   Sub

Tags: VB EXCEL

• 点赞 1
• 评论
• 分享
x

海报分享

扫一扫，分享海报

• 收藏 1
• 手机看

分享到微信朋友圈

x

扫一扫，手机阅读

• 打赏

打赏

nxhujiee

你的鼓励将是我创作的最大动力

C币 余额
2C币 4C币 6C币 10C币 20C币 50C币
• 一键三连

点赞Mark关注该博主, 随时了解TA的最新博文

05-13 1万+
11-26 1万+
04-11 8956
04-04 6670
10-24
08-08 2924
12-19