乘法口诀演示

wenchduan

这个比较实用，望大家有所启发！

雄鹰

不错，你可以做的更好！

雄鹰

来个VBA的：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim arr(1 To 9, 1 To 9), rng As Range
  a = Target.Column - 1
  b = Target.Row - 1
  c = Int(Rnd() * 7) + 2
  Set rng = Cells(b + 1, a + 1)
  For i = 1 To 9
    For j = 1 To i
      arr(i, j) = i & "×" & j & "=" & i * j
      Set rng = Union(rng, Cells(i + b, j + a))
    Next
  Next
  With rng
    .Value = arr
    .Interior.ColorIndex = c
  End With
End Sub

wenchduan

雄鹰 发表于 2012-1-5 22:12
来个VBA的：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim arr(1 To 9, 1 To 9) ...

不懂VBA，谢谢分享！

yanglinman

谢谢提供，已下载！