ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA Type »yªk¿ù»~°T®§

¦^´_ 1# lcc_seven
VBA ªº»¡©ú ¤Î½d¨Ò
Type ³¯­z¦¡½d¨Ò   
¥»½d¨Ò¨Ï¥Î Type ³¯­z¦¡¨Ó©w¸q¨Ï¥ÎªÌ¦Û­qªº¸ê®Æ«¬ºA¡CType ³¯­z¦¡¥u¯à¦b¼Ò²Õ¼h¯Å¤¤¨Ï¥Î¡C¦pªG­n¦bª«¥óÃþ§O¼Ò²Õ¤¤¨Ï¥Î¡AType ³¯­z¦¡ªº«e­±¤@©w­n¥[¤W Private ÃöÁä¦r¡C
  1. Type EmployeeRecord    ' «Ø¥ß¨Ï¥ÎªÌ¦Û­qªº¸ê®Æ«¬ºA¡C
  2.     ID As Integer    ' ©w¸q¸ê®Æ«¬ºAªº¤¸¯À¡C
  3.     Name As String * 20
  4.     Address As String * 30
  5.     Phone As Long
  6.     HireDate As Date
  7. End Type
  8. Sub CreateRecord()
  9.     Dim MyRecord As EmployeeRecord    ' «Å§iÅܼơC
  10.     ' ¹ïÅÜ¼Æ EmployeeRecord ªºµ¹­È°Ê§@¥²»Ý¦bµ{¬Y­Ó§Ç¤¤¤~¥i¥H¡C
  11.     MyRecord.ID = 12003    ' µ¹©w¬Y­Ó¤¸¯Àªº­È¡C
  12. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD