- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 1# lcc_seven
VBA ªº»¡©ú ¤Î½d¨Ò
Type ³¯z¦¡½d¨Ò
¥»½d¨Ò¨Ï¥Î Type ³¯z¦¡¨Ó©w¸q¨Ï¥ÎªÌ¦Ûqªº¸ê®Æ«¬ºA¡CType ³¯z¦¡¥u¯à¦b¼Ò²Õ¼h¯Å¤¤¨Ï¥Î¡C¦pªGn¦bª«¥óÃþ§O¼Ò²Õ¤¤¨Ï¥Î¡AType ³¯z¦¡ªº«e±¤@©wn¥[¤W Private ÃöÁä¦r¡C- Type EmployeeRecord ' «Ø¥ß¨Ï¥ÎªÌ¦Ûqªº¸ê®Æ«¬ºA¡C
- ID As Integer ' ©w¸q¸ê®Æ«¬ºAªº¤¸¯À¡C
- Name As String * 20
- Address As String * 30
- Phone As Long
- HireDate As Date
- End Type
- Sub CreateRecord()
- Dim MyRecord As EmployeeRecord ' «Å§iÅܼơC
- ' ¹ïÅÜ¼Æ EmployeeRecord ªºµ¹È°Ê§@¥²»Ý¦bµ{¬YӧǤ¤¤~¥i¥H¡C
- MyRecord.ID = 12003 ' µ¹©w¬YÓ¤¸¯ÀªºÈ¡C
- End Sub
½Æ»s¥N½X |
|