- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 239
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-4
|
¦^´_ 13# icestormer
pºâª«¥ó¼Æ¶q¡A¥HTypeName¨Ó§PÂ_¬Oþ¤@ºØ±±¨î¶µ- Private Sub CommandButton3_Click()
- Dim Ct As Control
- For Each Ct In Controls
- If TypeName(Ct) = "Label" Then cnt = cnt + 1
- Next
- MsgBox cnt
- End Sub
½Æ»s¥N½X nÅã¥Ü3¦C7Äæ¸ê®Æ¡A¤@Äæ¦C¼Æ°µ°j°é- Sub ex()
- Dim ar(1 To 3, 1 To 7)
- For i = 1 To 3 '3¦C
- For j = 1 To 7 '7Äæ
- k = k + 1 'È
- ar(i, j) = k '±Nȼg¤J°}¦C
- Next
- Next
- For i = 1 To 3 '´`¦C°j°é
- m = Join(Application.Index(ar, i), ",") '¨ú¥X¤@¦C
- mystr = IIf(mystr = "", m, mystr & Chr(10) & m) '¦êÁp¦r¦ê
- Next
- MsgBox mystr 'Åã¥Ü¦r¦ê
- End Sub
½Æ»s¥N½X |
|