白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 网易云课堂-Excel数据透视表应用大全
Excel图表神技
查看: 615|回复: 8

练习1

[复制链接]
发表于 2015-8-3 20:52:36 | 显示全部楼层 |阅读模式
本帖最后由 临时户口 于 2015-8-17 22:42 编辑

具体要求见附件。第一题10dp,第二题20dp。
用数组解答额外加10dp只需提交代码,无需提交文件。
此题目有小奇老师zmnyu提供
截止日期2015-8-10


VBA初11123班练习题1.rar

10.34 KB, 下载次数: 42

回复

使用道具 举报

发表于 2015-8-4 10:36:57 | 显示全部楼层
本帖最后由 夏寂雨透 于 2015-8-4 10:39 编辑

练习一 第一题
  1. Sub test1()
  2.     Dim i%
  3.     xrow = 1
  4.     For i = 1 To 56 Step 1
  5.     Cells(i, "A").Value = i
  6.     Cells(i, "A").Interior.ColorIndex = i
  7.     xrow = xrow + 1
  8.     Next
  9. End Sub
复制代码
练习一 第二题
  1. Sub test2()
  2.     Dim i%, rng As Range
  3.     i = 1
  4.     For Each rng In Range("a1:g8")
  5.     rng.Value = i
  6.     rng.Interior.ColorIndex = i
  7.     i = i + 1
  8.     Next
  9. End Sub
复制代码

点评

step1 可以省略  发表于 2015-8-13 10:43

评分

参与人数 1登攀 +30 收起 理由
临时户口 + 30

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-4 13:01:12 | 显示全部楼层
本帖最后由 lilyren 于 2015-8-8 10:16 编辑
  1. '第一题
  2. Sub 填充1()
  3.     Dim i%
  4.     i = 1
  5.     For i = 1 To 56
  6.     Worksheets("第一题").Cells(i, 1).Interior.ColorIndex = i
  7.     Worksheets("第一题").Cells(i, 1) = i
  8.     Next
  9. End Sub
  10. '第二题
  11. Sub 填充2()
  12.     Dim i%, rng As Range
  13.     i = 1
  14.     For Each rng In Worksheets("第二题").Range("a1", "G8")
  15.     rng.Interior.ColorIndex = i
  16.     rng = i
  17.     i = i + 1
  18.     Next
  19. End Sub
复制代码

点评

i-0意义何在  发表于 2015-8-5 11:22

评分

参与人数 1登攀 +30 收起 理由
临时户口 + 30

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-4 15:17:09 | 显示全部楼层
  1. Sub 第一题1()
  2.     Dim i&
  3.     Application.ScreenUpdating = False
  4.     With Sheet1
  5.         .Range("a1:a56").Clear
  6.         For i = 1 To 56
  7.             .Range("a" & i).Value = i
  8.             .Range("a" & i).Interior.ColorIndex = i
  9.         Next
  10.     End With
  11.     Application.ScreenUpdating = True
  12. End Sub
  13. Sub 第一题2()
  14.     Dim arr(1 To 56), i&
  15.     Application.ScreenUpdating = False
  16.     With Sheet1
  17.         .Range("a1:a56").Clear
  18.         For i = 1 To 56
  19.             arr(i) = i
  20.             .Range("a" & i).Interior.ColorIndex = i
  21.         Next i
  22.         .Range("a1").Resize(UBound(arr)) = WorksheetFunction.Transpose(arr)
  23.     End With
  24.     Application.ScreenUpdating = True
  25. End Sub
  26. Sub 第二题1()
  27.     Dim i&, j&, k&, arr
  28.     Application.ScreenUpdating = False
  29.     With Sheet2
  30.         .Range("a1:g8").Clear
  31.         For i = 1 To 8
  32.             For j = 1 To 7
  33.                 k = k + 1
  34.                 .Cells(i, j) = k
  35.                 .Cells(i, j).Interior.ColorIndex = k
  36.             Next j
  37.         Next i
  38.     End With
  39.     Application.ScreenUpdating = True
  40. End Sub
  41. Sub 第二题2()
  42.     Dim arr(1 To 8, 1 To 7), i&, j&, k&
  43.     Application.ScreenUpdating = False
  44.     With Sheet2
  45.         .Range("a1:g8").Clear
  46.         For i = 1 To 8
  47.             For j = 1 To 7
  48.                 k = k + 1
  49.                 arr(i, j) = k
  50.                 .Cells(i, j).Interior.ColorIndex = k
  51.             Next j
  52.         Next i
  53.         .Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
  54.     End With
  55.     Application.ScreenUpdating = False
  56. End Sub
复制代码

评分

参与人数 1登攀 +40 收起 理由
临时户口 + 40

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-8 16:11:29 | 显示全部楼层
第一题:
  1. Sub addcolour()
  2. Dim arr(1 To 56, 1 To 1), x, i As Integer
  3. i = 1
  4. For x = 1 To 56
  5.     arr(x, 1) = i
  6.     i = i + 1
  7. Next
  8. Range("a1:a56").Value = arr
  9. Dim m As Integer
  10. For m = 1 To 56
  11.     Cells(m, 1).Interior.ColorIndex = m
  12. Next m
  13. End Sub
复制代码

第二题:
  1. Sub addcolour1()
  2. Dim arr(1 To 8, 1 To 7), x, y, i As Integer
  3. i = 1
  4. For x = 1 To 8
  5.     For y = 1 To 7
  6.     arr(x, y) = i
  7.     i = i + 1
  8.     Next
  9. Next
  10. Range("a1:g8").Value = arr
  11. Dim m As Integer, n As Integer
  12. For m = 1 To 8
  13.     For n = 1 To 7
  14.     Cells(m, n).Interior.ColorIndex = (m - 1) * 7 + n
  15.     Next n
  16. Next m
  17. End Sub
复制代码



点评

第二题做的太复杂  发表于 2015-8-13 10:46

评分

参与人数 1登攀 +40 收起 理由
临时户口 + 40

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-9 22:36:19 | 显示全部楼层
  1. Sub 第一题()
  2.   Dim i As Integer
  3.   For i = 1 To 56
  4.   Cells(i, 1).Interior.ColorIndex = i
  5.   Cells(i, 1) = i
  6.   Next
  7. End Sub
复制代码
只会做第一个

评分

参与人数 1登攀 +10 收起 理由
临时户口 + 10

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

快速回复 返回顶部 返回列表