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

[µo°Ý] Ãö©óUserForm1¤¤ªºListBoxÀ³¥Î

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2022-10-17 17:01 ½s¿è

¦^´_ 1# av8d

listbox¿ï¶µv2.zip (23.7 KB)

TOP

¦^´_ 4# Andy2483


'    c = 5 * L1 - 4
¥u¦³³o¬q¥i§ï¦¨
Select Case L1
Case 1: c = 1
Case 2: c = 6
Case 3: c = 11
Case 4: c = 16
End Select

rªº³¡¤À¤]¯à§ï ¦ý½d³ò¤ñ¸û¤j ­n§ï«Ü¦h ©Ò¥H¤£¤j«Øij(1,24,37.......)¤j·§­n¦C13¶µ¥H¤W ¨Ã¥B­ìpo¥i¯àÁÙ­n§ó¦hªº¿ï¶µ ©Ò¥H«Øij¥u¥Î¤G¤¸¤@¦¸¤èµ{¦¡
cªº³¡¤À¦]¬°¥u¦³1,6,11,16¥|­Ó¿ï¶µ ©Ò¥H¥i¥H¥Îselect case³B²z

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2022-10-20 13:01 ½s¿è

¦^´_ 8# av8d


³o²o§è¨ìÅÞ¿è¨Æ«e³W¹º
§Úªº«Øij¬O listbox ¼W¥[¿ï¶µ®É
­Y¬°ªÅ  ¤@¼ËÅý¥¦Åã¥Ü¤å¦r ¦ý¤£­n¥Î²¤¹Lªº¤è¦¡³B²z  ¥ÎªÅ¥Õ©ÎªÌ"ªÅ"¦r¨ú¥N
¨Ã¥B ¤@¶}©l´Nª½±µÅý¥LµLªk¥¿±`°õ¦æ´N¦n

Private Sub ListBox1_Click()
LL = ListBox1.ListIndex + 1
if listbox1.list(1,0)="" then exit sub
...
...
...
...
¤]¥i¥H³Ì«á¦h¥[­Ó§PÂ_ Åý¥L©¿²¤
if r=1,c=6 then msgbox "¦¹¶µ¬°ªÅ"  : Exit sub
Unload Me
cells(r,c).select
End sub

­Y¥h°Ê¾ã­Ó¥D³W«h ¨º·|²£¥Í§ó½ÆÂøªº°ÝÃD ¦Ó¥B¨Æ«á·|«ÜÃø°£¿ù

listbox¿ï¶µv3.zip (24.74 KB)

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