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

[µo°Ý] ½Ð±Ð¨Ç°}¦C«Å§i©R¦W°ÝÃD

[µo°Ý] ½Ð±Ð¨Ç°}¦C«Å§i©R¦W°ÝÃD

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-11-30 09:36 ½s¿è

¥H¤U¬O¨â¬q°}¦C«Å§i¡A·Q½Ð°Ý¡A­Y¤µ¤Ñ¦³ chbo1(10,10) ~ chbo13(10,10) ¸Ó¦p¦ó¼¶¼g¡H
    Dim chbo1(10, 10) As CheckBox
    Dim chbo2(10, 10) As CheckBox

¦]¬°­ì¥»¬O¨Ï¥Î¤j½d³òªº«Å§i¡A¦ý¦]µ{¦¡µ²ªG»Ý¨D¥u¯à°Ï°ì°}¦C«Å§i¡C
Áö»¡¥i¥H ¨Ì§Ç½s¼g¡A¥i¬O³o¼Ë´N¥¢¥h·N¸q¡C

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

¦^´_ 1# mark15jill


    ¤£¤Ó²M·¡§A·Q­nªº®ÄªG.
·Q»¡ªº¬O°}¦C¤£¥u¬O¨âºû,ÁÙ¥i¥H¬O3ºû,4ºû...
Dim chbo(13, 10, 10) As CheckBox
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 1# mark15jill
Áö»¡¥i¥H ¨Ì§Ç½s¼g¡A¥i¬O³o¼Ë´N¥¢¥h·N¸q
¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim chbo1(10, 10) As CheckBox
  3.     Dim AR(1 To 13), xi As Integer
  4.     For xi = 1 To UBound(AR)
  5.         AR(xi) = chbo1
  6.     Next
  7. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ GBKEE »P kimbal  ¨â¦ì¤j¤jªº±Ð¾É¡A¤p§Ì¦b¦¹Á¹L¡C ¥Ø«e´ú¸Õ ¤T­«°j°é(kimbal¤j¤j±Ð¾Éªº)¡C
¥u¬O¡A¥i¯à¹Bºâ­Ó¼Æ¤j¦h¡A°õ¦æ¤¤¡A·|¦³¨Ç³\©µ¿ð@@"

¥Ø«e¤´¦b§âµ{¦¡Â²©ö¤Æ¡Aµ¥¦n¤F¦A©ñ¤W¨Ó@@"

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD