定]
If Abs(c.Value) < 10 Then c.Font.ColorIndex = 3
4.
Next
[未- 给定] [未- 给定] [未- 给定]
5.
End Sub
6.
问题 2
设置为10磅，以后每个加2磅。
得 0 分，满分 20 分
在A1：A10输入相同的字，如“ZUCC”，编写程序设置它们的字体大小，A1
正确答案
1. Sub 改变字体大小()
所选答案 - [未给定]
2. Dim k As Integer, c As String - [未给定] 3. For k = 1 To 10 4. c = \
- [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定]
得 0 分，满分 20 分
5. Range(c).Select 6. With Selection.Font 7. .Size = 10 + 2 * k 8. End With 9. Next k
End Sub 10.
问题 3
用工作表函数计算Sheet1上位于A1～A100单元格区域中的、值大于等于10
且小于等于20的单元格数目。
正确答案
所选答
案 [未 - 给定]
Sub a1020()
1.
Set iRang =
Worksheets(\ 2.
With Application.WorksheetFunction
[未
- 给定] [未- 给定]
3.
result = .Countif(iRange, \- .Countif [未(iRange, \ 4. - 给
定]
End With
5.
MsgBox result End Sub 6.
[未
- 给定] [未- 给定]
得 0 分，满分 20 分
问题 4
正确答案
Sub SumbyCol()
对当前工作表整个区域，按每一列求和，并把结果添加在每列的最后。
所选答案 [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]
得 0 分，满分 20 分
1.
Dim Rng As Range
2.
For Each Rng In
3. ActiveSheet.UsedRange.Columns Rng.Cells(Rng.Cells.Count + 1) = 4. WorksheetFunction.Sum(Rng)
Next Rng
5.
End Sub
6.
问题 5
正确答案
在Excel中创建一个设置单元格字体和字号大小的过程。
所选答案 - [未给定]
Public Sub myfs() 1.
With Selection.Font 2.
.Name = \3.
.FontStyle = \ .Size = 16 End With 4.
End sub 5.
- [未给定] - [未给定]
- [未给定] - [未给定]
问题 1 得 0 分，满分 20 分
本例在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.
问题 2
对工作表Sheet1上包含单元格A1的区域（活动区域）进行排序，按第一列中的数据进行排序，并且自动使用标题行（如果存在）。本例假定活动区域（包
含单元格A1）中有数据存在，Sort方法将自动确定活动区域。
正确答案
Sub SortRange2()
所选答案 [- 未给定]
1.
Worksheets(\[
2Key1:=Worksheets(\- 未 . =xlGuess 给
定
]
End Sub
3.
[- 未给定]
得 0 分，满分 20 分
问题 3
正确答案 1. Sub a32() 2. Dim rng As Range
在范围C1:H26的所有单元格中，显示各自的列号与行号。
所选答案 - [未给定] - [未给定]
3. Set rng = ActiveSheet.Range(”C1:H26”) - [未给定] 4. With rng
- [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定] - [未给定]
得 0 分，满分 20 分
5. For i = 1 To .Columns.Count 6. For j = 1 To .Rows.Count
7. .Cells(j, i).Value = j & \ 8. Next j
Next i 9. End With
End Sub 10.
问题 4
用工作表函数计算Sheet1上位于A1～A100单元格区域中的、值大于等于10
且小于等于20的单元格数目。
正确答案
Sub a1020()
所选答案 [未- 给定] [未- 给定] [未- 给
定]
1.
Set iRang =
Worksheets(\ 2.
With Application.WorksheetFunction
3.
result = .Countif(iRange, \- .Countif [未(iRange, \ 4. - 给
定]
End With
5.
MsgBox result End Sub 6.
[未
- 给定] [未- 给定]
得 0 分，满分 20 分
问题 5
正确答案
Sub SumbyCol()
对当前工作表整个区域，按每一列求和，并把结果添加在每列的最后。
所选答案 [未给- 定] [未给- 定] [未给 - 定] [未给- 定] [未给- 定] [未给
1.
Dim Rng As Range
2.
For Each Rng In
3. ActiveSheet.UsedRange.Columns Rng.Cells(Rng.Cells.Count + 1) = 4. WorksheetFunction.Sum(Rng)
Next Rng
5.
End Sub