做了一个19*19的乘法口诀表，喜欢的请用

itigeru

Sub 制作乘法口诀表1()
Dim i, j, i1, j1%
For i = 1 To 20
    i1 = i + 3
    For j = 1 To 20
        j1 = j + 1
        Cells(i1, j1) = j & "×" & i & "=" & i * j

    Next j
Next i
End Sub

大灰狼1976

另一种方法

1. Sub test()
   
2. [a1].Resize(19, 19) = [if(column(a:s)<=row(1:19),column(a:s)&"*"&row(1:19)&"="&column(a:s)*row(1:19),"")]
   
3. End Sub

复制代码

morpheus126

传说，印度就是用19*19的

micch

为什么不是 20*20

leolee82

这种直接口算就行吧？

今铭昔

excelkill

认真学习，天天向上

micch

1. Sub Main()
   
2.     Range("C3:x21").Interior.Color = xlNone
   
3.     Range("B2:x21").Font.Color = 0
   
4.     For i = 1 To 20
   
5.     For j = 1 To 20
   
6.         If i >= j Then
   
7.             Cells(i + 1, j + 1).Value = i * j
   
8.         Else
   
9.             Cells(i + 1, j + 1).Value = IIf(i = 1, j, i)
   
10.             If i > 1 Then Cells(i + 1, j + 1).Font.Color = RGB(182, 182, 182)
    
11.         End If
    
12.         If i > 1 And i = j Then Cells(i + 1, j + 1).Font.Color = vbRed
    
13.     Next
    
14.     Next
    
15.             Cells(1 + 1, 23).Value = "平方数"
    
16.             Cells(1 + 1, 24).Value = "立方数"
    
17.     For i = 2 To 20
    
18.             Cells(i + 1, 23).Value = i * i
    
19.             Cells(i + 1, 24).Value = i * i * i
    
20.     Next
    
21. End Sub
    
22. 
    
23. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
24.     Range("B2:x21").Interior.Color = xlNone
    
25.     If Intersect(Target(1), Range("c3:u21")) Is Nothing Then Exit Sub
    
26.     If Target(1).Row < Target(1).Column Then Exit Sub
    
27.     Cells(Target(1).Row, 2).Resize(1, Target(1).Row - 1).Interior.Color = vbYellow
    
28.     Range(Target(1), Cells(2, Target(1).Column)).Interior.Color = vbYellow
    
29. End Sub

复制代码

cidanji

morpheus126 发表于 2024-1-30 12:15
传说，印度就是用19*19的

印度这么狠

itigeru

大灰狼1976 发表于 2024-1-30 10:50
另一种方法

这个老牛掰了