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

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

[复制链接]
发表于 2011-9-29 08:20:06 | 显示全部楼层
本帖最后由 11005046 于 2011-9-29 12:39 编辑
  1. Sub 九九乘法()
  2. Dim rg As Range
  3. For Each rg In Range("A1:A9,B2:B9,C3:C9,D4:D9,E5:E9,F6:F9,G7:G9,H8:H9,I9")
  4.     rg = rg.Column & "*" & rg.Row & "=" & rg.Row * rg.Column
  5.   Next rg
  6. End Sub
复制代码
  1. Sub 九九乘法3()
  2. Dim rg As Range
  3. For Each rg In Range("A1:I9")
  4.     If rg.Row >= rg.Column Then
  5.         rg = rg.Column & "*" & rg.Row & "=" & rg.Row * rg.Column
  6.     End If
  7.   Next rg
  8. End Sub
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-30 16:15:23 | 显示全部楼层
本帖最后由 灰兰色 于 2011-9-30 16:21 编辑

  1. Sub 宏1()
  2. '
  3. ' 宏1 宏
  4. ' 宏由灰兰色录制,2011-9-30
  5. '
  6. '
  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.     Range("A2").Select
  10.        Range("A1").Select
  11.     Selection.AutoFill Destination:=Range("A1:I1"), Type:=xlFillDefault
  12.     Range("A1:I1").Select
  13.     Selection.AutoFill Destination:=Range("A1:I9"), Type:=xlFillDefault
  14.     Range("A1:I9").Select
  15.     Selection.Copy
  16.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  17.         :=False, Transpose:=False
  18.     Range("A1").Select
  19.     Application.CutCopyMode = False
  20.        Range("A1").Select
  21. End Sub
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-30 16:42:45 | 显示全部楼层
  1. Sub 九九乘法()
  2. Dim i As Integer, j As Integer
  3. For i = 1 To 9
  4.     For j = 1 To i
  5.     Sheets("sheet1").Cells(1).Offset(i - 1, j - 1) = i & "*" & j & "=" & i * j
  6.     Next
  7. Next
  8. End Sub
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-10-2 14:49:25 | 显示全部楼层
本帖最后由 tianti 于 2011-10-6 08:36 编辑
  1. Sub chengfa()
  2.     Dim i As Integer,j as integer
  3.      For j = 1 To 9
  4.        For i = j To 9
  5.           Cells(i, j) = j & "*" & i & "=" & i * j
  6.        Next
  7.      Next
  8. End Sub
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-10-2 15:05:48 | 显示全部楼层
本帖最后由 nana081 于 2011-10-2 15:32 编辑

  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' 宏由 微软系统 录制,时间: 2011-10-2
  5. '

  6. '
  7.     ActiveCell.FormulaR1C1 = _
  8.         "=IF(OR(ROW()>9,COLUMN()>9,COLUMN()>ROW()),"""",COLUMN()&""×""&ROW()&""=""&COLUMN()*ROW())"
  9.     Range("A1").Select
  10.     Selection.AutoFill Destination:=Range("A1:A12"), Type:=xlFillDefault
  11.     Range("A1:A12").Select
  12.     Selection.AutoFill Destination:=Range("A1:J12"), Type:=xlFillDefault
  13.     Range("A1:J12").Select
  14. End Sub
  15. 做完后,在复制,选择性黏贴成文本
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-10-3 00:13:17 | 显示全部楼层
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro


  4. ActiveSheet.Buttons.Add(483.75, 18.75, 59.25, 24.75).Select
  5. Selection.OnAction = "Macro1"

  6. For i = 1 To 9
  7. For j = 1 To i
  8. Cells(i, j) = j & "x" & i & "=" & j * i
  9. Next
  10. Next
  11. End Sub
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-10-3 20:57:20 | 显示全部楼层
本帖最后由 suran141 于 2011-10-3 21:13 编辑

Sub 九九乘法表()
Dim i As Integer, j As Integer, x As Integer
    For i = 1 To 9
   
       For j = 1 To 9
           x = i * j
      
           If i <= j And j <= 9 Then
           
           
            Cells(j, i) = i & "×" & j & "=" & x
            
           Else: Cells(j, i) = ""
           End If
           
            
        Next j
        
    Next i
   
   
End Sub
九九乘法表.gif

点评

代码提交格式不正确  发表于 2011-10-3 21:30

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-10-3 22:17:09 | 显示全部楼层
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' 宏由 Windows XP Mode 录制,时间: 2011-10-3
  5. '

  6. '
  7.     Range("A1").Select
  8.     ActiveCell.FormulaR1C1 = "1*1=1"
  9.     Range("A2").Select
  10.     ActiveCell.FormulaR1C1 = "1*2=2"
  11.     Range("A3").Select
  12.     ActiveCell.FormulaR1C1 = "1*3=3"
  13.     Range("A4").Select
  14.     ActiveCell.FormulaR1C1 = "1*4=4"
  15.     Range("A5").Select
  16.     ActiveCell.FormulaR1C1 = "1*5=5"
  17.     Range("A6").Select
  18.     ActiveCell.FormulaR1C1 = "1*6=6"
  19.     Range("A7").Select
  20.     ActiveCell.FormulaR1C1 = "1*7=7"
  21.     Range("A8").Select
  22.     ActiveCell.FormulaR1C1 = "1*8=8"
  23.     Range("A9").Select
  24.     ActiveCell.FormulaR1C1 = "1*9=9"
  25.     Range("B2").Select
  26.     ActiveCell.FormulaR1C1 = "2*2=4"
  27.     Range("B3").Select
  28.     ActiveCell.FormulaR1C1 = "2*3=6"
  29.     Range("B4").Select
  30.     ActiveCell.FormulaR1C1 = "2*4=8"
  31.     Range("B5").Select
  32.     ActiveCell.FormulaR1C1 = "2*5=10"
  33.     Range("B6").Select
  34.     ActiveCell.FormulaR1C1 = "2*6=12"
  35.     Range("B7").Select
  36.     ActiveCell.FormulaR1C1 = "2*7=14"
  37.     Range("B8").Select
  38.     ActiveCell.FormulaR1C1 = "2*8=16"
  39.     Range("B9").Select
  40.     ActiveCell.FormulaR1C1 = "2*9=18"
  41.     Range("C3").Select
  42.     ActiveCell.FormulaR1C1 = "3*3=9"
  43.     Range("C4").Select
  44.     ActiveCell.FormulaR1C1 = "3*4=12"
  45.     Range("C5").Select
  46.     ActiveCell.FormulaR1C1 = "3*5=15"
  47.     Range("C6").Select
  48.     ActiveCell.FormulaR1C1 = "3*6=18"
  49.     Range("C7").Select
  50.     ActiveCell.FormulaR1C1 = "3*7=21"
  51.     Range("C8").Select
  52.     ActiveCell.FormulaR1C1 = "3*8=24"
  53.     Range("C9").Select
  54.     ActiveCell.FormulaR1C1 = "3*9=27"
  55.     Range("D4").Select
  56.     ActiveCell.FormulaR1C1 = "4*4=16"
  57.     Range("D5").Select
  58.     ActiveCell.FormulaR1C1 = "4*5=20"
  59.     Range("D6").Select
  60.     ActiveCell.FormulaR1C1 = "4*6=24"
  61.     Range("D7").Select
  62.     ActiveCell.FormulaR1C1 = "4*7=28"
  63.     Range("D8").Select
  64.     ActiveCell.FormulaR1C1 = "4*8=32"
  65.     Range("D9").Select
  66.     ActiveCell.FormulaR1C1 = "4*9=36"
  67.     Range("E5").Select
  68.     ActiveCell.FormulaR1C1 = "5*5=25"
  69.     Range("E6").Select
  70.     ActiveCell.FormulaR1C1 = "5*6=30"
  71.     Range("E7").Select
  72.     ActiveCell.FormulaR1C1 = "5*7=35"
  73.     Range("E8").Select
  74.     ActiveCell.FormulaR1C1 = "5*8=40"
  75.     Range("E9").Select
  76.     ActiveCell.FormulaR1C1 = "5*9=45"
  77.     Range("F6").Select
  78.     ActiveCell.FormulaR1C1 = "6*6=36"
  79.     Range("F7").Select
  80.     ActiveCell.FormulaR1C1 = "6*7=42"
  81.     Range("F8").Select
  82.     ActiveCell.FormulaR1C1 = "6*8=48"
  83.     Range("F9").Select
  84.     ActiveCell.FormulaR1C1 = "6*9=54"
  85.     Range("G7").Select
  86.     ActiveCell.FormulaR1C1 = "7*7=49"
  87.     Range("G8").Select
  88.     ActiveCell.FormulaR1C1 = "7*8=56"
  89.     Range("G9").Select
  90.     ActiveCell.FormulaR1C1 = "7*9=63"
  91.     Range("H8").Select
  92.     ActiveCell.FormulaR1C1 = "8*8=64"
  93.     Range("H9").Select
  94.     ActiveCell.FormulaR1C1 = "8*9=72"
  95.     Range("I9").Select
  96.     ActiveCell.FormulaR1C1 = "9*9=81"
  97. End Sub
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-10-5 11:16:09 | 显示全部楼层
  1. Sub zhai()
  2. Dim i As Integer
  3. Dim m As Integer
  4. For i = 1 To 9
  5. For m = 1 To 9
  6. If m > i Then
  7. Cells(i, m) = ""
  8. Else
  9. Cells(i, m) = i & "*" & i & "=" & i * i
  10. End If
  11. Next m
  12. Next i
  13. End Sub
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-10-6 00:05:09 | 显示全部楼层
  1. Sub Macro1()
  2.     Range("A1").Select
  3.     ActiveCell.FormulaR1C1 = "1*1=1"
  4.     Range("A2").Select
  5.     ActiveCell.FormulaR1C1 = "1*2=2"
  6.     Range("A3").Select
  7.     ActiveCell.FormulaR1C1 = "1*3=3"
  8.     Range("A4").Select
  9.     ActiveCell.FormulaR1C1 = "1*4=4"
  10.     Range("A5").Select
  11.     ActiveCell.FormulaR1C1 = "1*5=5"
  12.     Range("A6").Select
  13.     ActiveCell.FormulaR1C1 = "1*6=6"
  14.     Range("A7").Select
  15.     ActiveCell.FormulaR1C1 = "1*7=7"
  16.     Range("A8").Select
  17.     ActiveCell.FormulaR1C1 = "1*8=8"
  18.     Range("A9").Select
  19.     ActiveCell.FormulaR1C1 = "1*9=9"
  20.     Range("B2").Select
  21.     ActiveCell.FormulaR1C1 = "2*2=4"
  22.     Range("B3").Select
  23.     ActiveCell.FormulaR1C1 = "2*3=6"
  24.     Range("B4").Select
  25.     ActiveCell.FormulaR1C1 = "2*4=8"
  26.     Range("B5").Select
  27.     ActiveCell.FormulaR1C1 = "2*5=10"
  28.     Range("B6").Select
  29.     ActiveCell.FormulaR1C1 = "2*6=12"
  30.     Range("B7").Select
  31.     ActiveCell.FormulaR1C1 = "2*7=14"
  32.     Range("B8").Select
  33.     ActiveCell.FormulaR1C1 = "2*8=16"
  34.     Range("B9").Select
  35.     ActiveCell.FormulaR1C1 = "2*9=18"
  36.     Range("C3").Select
  37.     ActiveCell.FormulaR1C1 = "3*3=9"
  38.     Range("C4").Select
  39.     ActiveCell.FormulaR1C1 = "3*4=12"
  40.     Range("C5").Select
  41.     ActiveCell.FormulaR1C1 = "3*5=15"
  42.     Range("C6").Select
  43.     ActiveCell.FormulaR1C1 = "3*6=18"
  44.     Range("C7").Select
  45.     ActiveCell.FormulaR1C1 = "3*7=21"
  46.     Range("C8").Select
  47.     ActiveCell.FormulaR1C1 = "3*8=24"
  48.     Range("C9").Select
  49.     ActiveCell.FormulaR1C1 = "3*9=27"
  50.     Range("D4").Select
  51.     ActiveCell.FormulaR1C1 = "4*4=16"
  52.     Range("D5").Select
  53.     ActiveCell.FormulaR1C1 = "4*5=20"
  54.     Range("D6").Select
  55.     ActiveCell.FormulaR1C1 = "4*6=24"
  56.     Range("D7").Select
  57.     ActiveCell.FormulaR1C1 = "4*7=28"
  58.     Range("D8").Select
  59.     ActiveCell.FormulaR1C1 = "4*8=32"
  60.     Range("D9").Select
  61.     ActiveCell.FormulaR1C1 = "4*9=36"
  62.     Range("E5").Select
  63.     ActiveCell.FormulaR1C1 = "5*5=25"
  64.     Range("E6").Select
  65.     ActiveCell.FormulaR1C1 = "5*6=30"
  66.     Range("E7").Select
  67.     ActiveCell.FormulaR1C1 = "5*7=35"
  68.     Range("E8").Select
  69.     ActiveCell.FormulaR1C1 = "5*8=40"
  70.     Range("E9").Select
  71.     ActiveCell.FormulaR1C1 = "5*9=45"
  72.     Range("F6").Select
  73.     ActiveCell.FormulaR1C1 = "6*6=36"
  74.     Range("F7").Select
  75.     ActiveCell.FormulaR1C1 = "6*7=42"
  76.     Range("F8").Select
  77.     ActiveCell.FormulaR1C1 = "6*8=48"
  78.     Range("F9").Select
  79.     ActiveCell.FormulaR1C1 = "6*9=54"
  80.     Range("G7").Select
  81.     ActiveCell.FormulaR1C1 = "7*7=49"
  82.     Range("G8").Select
  83.     ActiveCell.FormulaR1C1 = "7*8=56"
  84.     Range("G9").Select
  85.     ActiveCell.FormulaR1C1 = "7*9=63"
  86.     Range("H8").Select
  87.     ActiveCell.FormulaR1C1 = "8*8=64"
  88.     Range("H9").Select
  89.     ActiveCell.FormulaR1C1 = "8*9=72"
  90.     Range("I9").Select
  91.     ActiveCell.FormulaR1C1 = "9*9=81"
  92.     Range("A1:I9").Select
  93.     Selection.NumberFormatLocal = "@"
  94.     Range("I11").Select
  95. End Sub
复制代码

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

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

本版积分规则

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