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

[µo°Ý] ¦p¦ó¹w¯dªÅ¶¡µ¹Äæ¦ì? §PÂ_CheckBox=True

[µo°Ý] ¦p¦ó¹w¯dªÅ¶¡µ¹Äæ¦ì? §PÂ_CheckBox=True

For  i = 1 To  100
If Me.Controls("CheckBox" & i).Value = True

¥Ø«e§Ú¦³CheckBox1~CheckBox50
¦pªG§Ú·Q¹w¯dCheckBox50~100
©Ò¥H·í§PÂ_¤W¦Cµ{¦¡~·|¥X²{¿ù»~~
§Ú¸Ó¦p¦óÁ׶}³o­Ó¿ù»~!?

¦^´_ 1# av8d
¦pªG§Ú·Q¹w¯dCheckBox50~100  ½Ð»¡²M·¡
Àˬd ©Ò¦³±±¨î¶µªº¦WºÙ §t¦³ "CheckBox" ¦r¦ê ¤Î­È= True
  1. Private Sub Ex()
  2.     Dim i As Integer
  3.     For i = 0 To Controls.Count - 1
  4.         If InStr(Controls(i).Name, "CheckBox") > 0 And Controls(i) = True Then
  5.          MsgBox Controls(i).Value
  6.         End If
  7.     Next
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD