正确答案
Sub Zero1()
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
1.
Dim c As Range
2.
For Each c in
3. Worksheets(\
If c.Value < .001 Then
4.
c.Value = 0
5.
End If
6.
Next c
7.
End Sub
8.
问题 5
对工作表Sheet1上包含单元格A1的区域（活动区域）进行排序，按第一列中的数据进行排序，并且自动使用标题行（如果存在）。本例假定活动区域（包
含单元格A1）中有数据存在，Sort方法将自动确定活动区域。
正确答案
Sub SortRange2()
所选答案 [- 未给定]
1.
Worksheets(\[2Key1:=Worksheets(\- 未. =xlGuess 给
定
]
End Sub
3
[- 未
.
给定]
问题 1 得 0 分，满分 20 分
模仿Excel的条件格式设置，对工作表Sheet1的所有单元格，凡数值小于
60的用红颜色显示。
正确答案
Private Sub Cond_Format() 1.
所选答
案 [未- 给定] [未- 给定] [未- 给定] [未- 给
定] [未- 给定] [未- 给定] [未- 给定] [未- 给定]
Dim i As Long, j As Long 2.
For i = Sheet1.UsedRange.Row To 3.
Sheet1.UsedRange.Row +
Sheet1.UsedRange.Rows.Count - 1 For j = Sheet1.UsedRange.Column To 4.
Sheet1.UsedRange.Column +
Sheet1.UsedRange.Columns.Count - 1 If Cells(i,j).Value < 60 Then 5.
Cells(i,j).Font.Color = GRB(255, 0, 0) 6.
End If 7.
Next j 8.
Next i 9.
[未
- 给定] [未- 给定]
得 0 分，满分 20 分
End Sub
10.
问题 2
本例在Sheet1上的单元格区域 A1:D10中进行循环。如果这些单元格中的
值小于0.001，则将其值替换为0（零）。
正确答案
Sub Zero1()
所选答案 [未给
- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
1.
Dim c As Range
2.
For Each c in
3. Worksheets(\
If c.Value < .001 Then
4.
c.Value = 0
5.
End If
6.
Next c
7.
End Sub
8.
问题 3
正确答案
Public Sub myfs() 1.
在Excel中创建一个设置单元格字体和字号大小的过程。
所选答案 - [未给定] - [未给定] - [未给定]
With Selection.Font 2.
.Name = \3.
.FontStyle = \ .Size = 16
End With 4.
End sub 5.
- [未给定] - [未给定]
得 0 分，满分 20 分
问题 4
正确答案
Sub RngCells()
将单元格区域 A1:D10所有绝对值小于10的数字都设置为红色。
所选答
案 [未- 给定] [未- 给定]
1.
Dim c As Range
2.
For Each c In [未Worksheets(\ - 给3.
定]
If Abs(c.Value) < 10 Then c.Font.ColorIndex = [未3 4. - 给
定]
Next
5.
End Sub
[未
- 给定] [未- 给定]
得 0 分，满分 20 分
6.
问题 5
在工作表1上创建“窗体”按钮并建立与之相关的“宏”，编写代码完成：从键盘输入一个整数n，输出如下图之图形。其中每个“*”要加粗，并在单元格中水平和垂直方向居中。
正确答案
Sub 按钮1_单击()
所选答案 [未给- 定] [未给- 定]
1. 2.
Dim n As Integer, i As Integer, j As Integer
Worksheets(1).Activate 3. ActiveSheet.Cells.Clear
n = InputBox(\输入一个整数\ For i = 1 To n
[未给- 定] [未给- 定] [未给- 定]
4.
For j = 1 To 2 * i - 1
5.
Cells(i, n - i + j) = \[未给6. Cells(i, n - i + j).Font.Bold = True - 定]
Cells(i, n - i + j).VerticalAlignment = xlCenter
Cells(i, n - i + j).HorizontalAlignment = xlCenter
Next j
7.
Next i
[未给- 定] [未给- 定] [未给- 定]
8.
End Sub
9.
问题 1
正确答案
Sub SumbyCol()
得 0 分，满分 20 分
对当前工作表整个区域，按每一列求和，并把结果添加在每列的最后。
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定]
1.
Dim Rng As Range
2. 3.
Rng.Cells(Rng.Cells.Count + 1) = 4. WorksheetFunction.Sum(Rng)
For Each Rng In ActiveSheet.UsedRange.Columns