2015V初班课前练习一已开帖

笑眼晴天

函数

1. =IF(ROW(A1)=COLUMN(A1),A3,IF(ROW(A1)+COLUMN(A1)=6,A3,""))

复制代码

练习一

1. Sub test1()
   
2.     Dim irow As Long, icol As Long
   
3.     For irow = 1 To 5
   
4.         For icol = 1 To 5
   
5.             If irow = icol Or irow + icol = 6 Then     '如果行列相等或者行列的结果等于6，单元格的数等于相应数据源中的数
   
6.                Cells(irow + 2, icol + 18) = Cells(irow + 2, icol)
   
7.             End If
   
8.         Next icol
   
9.     Next irow
   
10. End Sub

复制代码

附加题

1. Sub test2()
   
2.     Dim irow As Long, icol As Long, prt As Variant
   
3.     For irow = 1 To 5
   
4.         prt = ""                                                  '初始化prt
   
5.         For icol = 1 To 5
   
6.             If irow = icol Or irow + icol = 6 Then    '如果行列相同或者行列和等于6，则prt“*”
   
7.                 prt = prt & "*"
   
8.             Else
   
9.                 prt = prt & "  "                                  '不满足上述条件，prt等于空格
   
10.             End If
    
11.         Next icol
    
12.         Debug.Print prt                                         '打印 prt
    
13.     Next irow
    
14. End Sub
    

复制代码

18851078312

做了一下

zhu751128

学习了