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

课前练习II--九九乘法表

[复制链接]
发表于 2011-9-27 09:37:36 | 显示全部楼层 |阅读模式
本帖最后由 wudixin96 于 2011-10-8 16:32 编辑

答案依旧以CODE形式提交,无需提交文件
效果看动画,要求单元格为文本值,而非公式或其它。
截止时间:2011年10月7日
奖励:20登攀

x.gif
回复

使用道具 举报

发表于 2011-9-27 10:20:43 | 显示全部楼层
本帖最后由 cateran 于 2011-10-7 13:23 编辑

这两天的书没有白看啊!{:soso__3935283558017159110_1:}


  1. Public Sub 九九乘法表()
  2.     Dim iI As Integer
  3.     Dim iJ As Integer
  4.     For iI = 1 To 9
  5.         For iJ = 1 To 9
  6.         If iI >= iJ Then
  7.             Cells(iI, iJ) = iJ & "*" & iI & "=" & iI * iJ
  8.         End If
  9.         Next
  10.     Next
  11. End Sub
复制代码
还没有结贴,再来个简单滴{:soso__7543349466180499292_4:}
  1. Public Sub 小九九()
  2.     Range("A1:I9").FormulaR1C1 = "=IF(ROW()<COLUMN(),"""",COLUMN()&""*""&ROW()&""=""&(ROW()*COLUMN()))"
  3. End Sub

复制代码



点评

FormulaR1C1 是什么意思  发表于 2011-10-8 18:51

评分

参与人数 1登攀 +15 收起 理由
wudixin96 + 15 不错哦

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 11:48:32 | 显示全部楼层
  1. Sub 乘法口诀表()
  2. Dim i%, j%
  3. For i = 1 To 9
  4. For j = 1 To 9
  5. If j >= i Then
  6. Cells(j, i) = i & "*" & j & "=" & i * j
  7. End If
  8. Next
  9. Next
  10. End Sub
复制代码

评分

参与人数 1登攀 +15 收起 理由
wudixin96 + 15

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 12:03:13 | 显示全部楼层
本帖最后由 大锚 于 2011-10-1 17:17 编辑





  1. Sub Macro2()
  2. [a1:i9].ClearContents
  3. Range("A1:A9,B2:B9,C3:C9,D4:D9,E5:E9,F6:F9,G7:G9,H8:H9,I9") = "=COLUMN()&""*""&ROW()&""=""&ROW()*COLUMN()"
  4. Range("A1:I9").Select
  5. Selection.Copy
  6. ActiveSheet.Paste
  7. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  8. :=False, Transpose:=False
  9. Range("G3").Select
  10. Application.CutCopyMode = False
  11. Range("M19").Select
  12. End Sub
复制代码

评分

参与人数 1登攀 +12 收起 理由
wudixin96 + 12

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 14:05:51 | 显示全部楼层
  1. '一、函数录制宏
  2. Sub Macro3()
  3.     Range("A1").Select
  4.     ActiveCell.FormulaR1C1 = _
  5.         "=IF(ROW()<COLUMN(),"""",COLUMN()&""*""&ROW()&""=""&ROW()*COLUMN())"
  6.     Range("A1").Select
  7.     Selection.AutoFill Destination:=Range("A1:A9"), Type:=xlFillDefault
  8.     Range("A1:A9").Select
  9.     Selection.AutoFill Destination:=Range("A1:I9"), Type:=xlFillDefault
  10. End Sub
复制代码
'-------------------------------------------------------------------------
  1. '二、代码输入
  2. Sub chengfa()
  3. Dim i, j
  4. For j = 1 To 9
  5.     For i = j To 9
  6.     Cells(i, j) = j & "*" & i & "=" & i * j
  7.     Next i
  8.     Next j
  9. End Sub
复制代码

评分

参与人数 1登攀 +20 收起 理由
wudixin96 + 20

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 14:52:25 | 显示全部楼层

我真的不会做,所以就用录制的宏

本帖最后由 hdr811003 于 2011-9-29 13:52 编辑

  1. Sub 按钮1_Click()
  2. '
  3. ' 按钮1_Click 宏
  4. '

  5. '
  6.     Range("A1").Select
  7.     ActiveCell.FormulaR1C1 = "=(1&""*""&ROW()&""="")&1*TRANSPOSE(ROW())"
  8.     Range("A1").Select
  9.     Selection.AutoFill Destination:=Range("A1:A9"), Type:=xlFillDefault
  10.     Range("A1:A9").Select
  11.     Range("A1").Select
  12.     Selection.Copy
  13.     Range("B2").Select
  14.     ActiveSheet.Paste
  15.     Application.CutCopyMode = False
  16.     ActiveCell.FormulaR1C1 = "=(2&""*""&ROW()&""="")&2*TRANSPOSE(ROW())"
  17.     Range("B2").Select
  18.     Selection.AutoFill Destination:=Range("B2:B9"), Type:=xlFillDefault
  19.     Range("B2:B9").Select
  20.     Range("B2").Select
  21.     ActiveCell.FormulaR1C1 = "=(2&""*""&ROW()&""="")&2*TRANSPOSE(ROW())"
  22.     Range("C3").Select
  23.     ActiveCell.FormulaR1C1 = "=(3&""*""&ROW()&""="")&3*TRANSPOSE(ROW())"
  24.     Range("C3").Select
  25.     Selection.AutoFill Destination:=Range("C3:C9"), Type:=xlFillDefault
  26.     Range("C3:C9").Select
  27.     Range("C3").Select
  28.     Selection.Copy
  29.     Range("D4").Select
  30.     ActiveSheet.Paste
  31.     Application.CutCopyMode = False
  32.     ActiveCell.FormulaR1C1 = "=(4&""*""&ROW()&""="")&4*TRANSPOSE(ROW())"
  33.     Range("D4").Select
  34.     Selection.AutoFill Destination:=Range("D4:D9"), Type:=xlFillDefault
  35.     Range("D4:D9").Select
  36.     Range("D4").Select
  37.     Selection.Copy
  38.     Range("E5").Select
  39.     ActiveSheet.Paste
  40.     Application.CutCopyMode = False
  41.     ActiveCell.FormulaR1C1 = "=(5&""*""&ROW()&""="")&5*TRANSPOSE(ROW())"
  42.     Range("E5").Select
  43.     Selection.AutoFill Destination:=Range("E5:E9"), Type:=xlFillDefault
  44.     Range("E5:E9").Select
  45.     Range("E5").Select
  46.     Selection.Copy
  47.     Range("F6").Select
  48.     ActiveSheet.Paste
  49.     Application.CutCopyMode = False
  50.     ActiveCell.FormulaR1C1 = "=(6&""*""&ROW()&""="")&6*TRANSPOSE(ROW())"
  51.     Range("F6").Select
  52.     Selection.AutoFill Destination:=Range("F6:F9"), Type:=xlFillDefault
  53.     Range("F6:F9").Select
  54.     Range("F6").Select
  55.     Selection.Copy
  56.     Range("G7").Select
  57.     ActiveSheet.Paste
  58.     Application.CutCopyMode = False
  59.     ActiveCell.FormulaR1C1 = "=(7&""*""&ROW()&""="")&7*TRANSPOSE(ROW())"
  60.     Range("G7").Select
  61.     Selection.AutoFill Destination:=Range("G7:G9"), Type:=xlFillDefault
  62.     Range("G7:G9").Select
  63.     Range("G7").Select
  64.     Selection.Copy
  65.     Range("H8").Select
  66.     ActiveSheet.Paste
  67.     Application.CutCopyMode = False
  68.     ActiveCell.FormulaR1C1 = "=(8&""*""&ROW()&""="")&8*TRANSPOSE(ROW())"
  69.     Range("H8").Select
  70.     Selection.AutoFill Destination:=Range("H8:H9"), Type:=xlFillDefault
  71.     Range("H8:H9").Select
  72.     Range("H8").Select
  73.     Selection.Copy
  74.     Range("I9").Select
  75.     ActiveSheet.Paste
  76.     Application.CutCopyMode = False
  77.     ActiveCell.FormulaR1C1 = "=(9&""*""&ROW()&""="")&9*TRANSPOSE(ROW())"
  78.     Range("I10").Select
  79.     Range("A1:I9").Select
  80.     Selection.Copy
  81.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  82.         :=False, Transpose:=False
  83.     Range("A1:I9").Select
  84.     Application.CutCopyMode = False
  85. End Sub
复制代码

评分

参与人数 1登攀 +5 收起 理由
wudixin96 + 5

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 15:23:02 | 显示全部楼层
本帖最后由 huyuan851215 于 2011-9-28 18:22 编辑
  1. Sub 按钮1_单击()
  2. Range("A1").Select
  3. ActiveCell.FormulaR1C1 = _
  4. "=IF(COLUMN(RC)>ROW(RC),"""",COLUMN(RC)&""*""&ROW(RC)&""=""&ROW(RC)*COLUMN(RC))"
  5. Range("A1").Select
  6. Selection.AutoFill Destination:=Range("A1:A9"), Type:=xlFillDefault
  7. Range("A1:A9").Select
  8. Selection.AutoFill Destination:=Range("A1:I9"), Type:=xlFillDefault
  9. Range("A1:I9").Select
  10. End Sub
复制代码
没写成功。。。先录个,占个楼层再慢慢想写的办法。{:soso_e107:}

  1. Sub 按钮1_单击()
  2. Dim i As Integer, j As Integer

  3. For i = 1 To 9
  4. For j = 1 To i

  5. Cells(i, j).Value = j & "*" & i & "=" & (i * j)

  6. Next j

  7. Next i

  8. End Sub
复制代码

写了删  删了写  真不容易  开始还在不停地 i+1  j+1 我说怎么我都没有偶数行和列的
激动万分 修改最终稿 MARK。

评分

参与人数 1登攀 +20 收起 理由
wudixin96 + 20

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 15:43:41 | 显示全部楼层
  1. Sub 宏1()
  2. '
  3. ' 宏1 宏
  4. '

  5. '
  6.     Range("A1").Select
  7.     ActiveCell.FormulaR1C1 = _
  8.         "=IF(OR(COLUMN(RC)>9,ROW(RC)>9,COLUMN(RC)>ROW(RC)),"""",ROW(RC)&""*""&COLUMN(RC)&""=""&ROW(RC)*COLUMN(RC))"
  9.     Selection.AutoFill Destination:=Range("A1:L1"), Type:=xlFillDefault
  10.     Range("A1:L1").Select
  11.     Selection.AutoFill Destination:=Range("A1:L17"), Type:=xlFillDefault
  12.     Range("A1").Select
  13. End Sub
复制代码
录制的代码
  1. sub aa()
  2. For I = 1 To 9   
  3.          For J = I To 9
  4.    Cells(J, I) = I & "*" & J & "=" & I * J
  5.   Next
  6. Next
  7. end sub
复制代码

评分

参与人数 1登攀 +20 收起 理由
wudixin96 + 20

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 17:47:13 | 显示全部楼层

不好意思,刚知道怎么写… 还有什么要求吗?

本帖最后由 buchihuluobo 于 2011-9-29 09:24 编辑
  1. Sub chengfa()
  2. Dim i As Integer
  3. Dim j As Integer

  4. For i = 1 To 9
  5. For j = 1 To i
  6. Cells(i, j) = j & "*" & i & "=" & i * j
  7. Next j
  8. Next i

  9. End Sub
复制代码


点评

不按要求提交,将不予评分,谢谢  发表于 2011-9-27 17:49

评分

参与人数 1登攀 +20 收起 理由
wudixin96 + 20

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-28 09:21:25 | 显示全部楼层
  1. Sub aaa()
  2. Dim i As Integer
  3. Dim j As Integer
  4. For i = 1 To 9
  5. For j = 1 To i
  6. Cells(i, j) = i & "*" & j & "=" & i * j
  7. Next j
  8. Next i
  9. End Sub
复制代码

评分

参与人数 1登攀 +20 收起 理由
wudixin96 + 20

查看全部评分

回复 支持 反对

使用道具 举报

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

本版积分规则

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