用 Excel VBA 完成 九九乘法表

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. Private Sub CommandButton1_Click()
   
2.         On Error Resume Next
   
3.         Application.DisplayAlerts = False
   
4.         Application.ScreenUpdating = False
   
5.         Cells.ClearContents
   
6.         Range("A1").Select
   
7.         列 = 1
   
8.         栏 = 1
   
9.         For 外层 = 2 To 5
   
10.              For 内层 = 1 To 9
    
11.           Application.ScreenUpdating = True
    
12.                    Cells(列, 栏).Activate
    
13.                    时 = Hour(Now())
    
14.                    分 = Minute(Now())
    
15.                    秒 = Second(Now()) + 1
    
16.                    等待时间 = TimeSerial(时, 分, 秒)
    
17.                    Application.Wait 等待时间
    
18.                    Cells(列, 栏) = 外层 & " × " & 内层
    
19.               Application.ScreenUpdating = False
    
20.               
    
21.                   Cells(列, 栏 + 1) = "="
    
22.                   Cells(列, 栏 + 2) = 外层 * 内层
    
23.                  列 = 列 + 1
    
24.            Next 内层
    
25.           列 = 1
    
26.           栏 = 栏 + 3
    
27.         Next 外层
    
28.       
    
29.         列 = 11
    
30.         栏 = 1
    
31.         For 外层 = 6 To 9
    
32.             For 内层 = 1 To 9
    
33.           Application.ScreenUpdating = True
    
34.                    Cells(列, 栏).Activate
    
35.                    时 = Hour(Now())
    
36.                    分 = Minute(Now())
    
37.                    秒 = Second(Now()) + 1
    
38.                    等待时间 = TimeSerial(时, 分, 秒)
    
39.                    Application.Wait 等待时间
    
40.                    Cells(列, 栏) = 外层 & " × " & 内层
    
41.                 Application.ScreenUpdating = False
    
42.                
    
43.                   Cells(列, 栏 + 1) = "="
    
44.                   Cells(列, 栏 + 2) = 外层 * 内层
    
45.                   列 = 列 + 1
    
46.             Next 内层
    
47.             
    
48.             列 = 11
    
49.             栏 = 栏 + 3
    
50.         Next 外层
    
51.     Range("O2").Select
    
52. End Sub

复制代码

执行后结果:

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：EXCEL xcel exce cel VBA Excel VBA Excel VBA 九九乘法表

不错  哥们 到量化投资发帖吧

好帖，感谢分享，再次点赞！