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

[µo°Ý] ¦p¦ó¦b®Ö¨ú¤è¶ô ½Æ¿ï«á¦b¦P¤@Äæ±o¨ì½Æ¿ïªº­È?

[µo°Ý] ¦p¦ó¦b®Ö¨ú¤è¶ô ½Æ¿ï«á¦b¦P¤@Äæ±o¨ì½Æ¿ïªº­È?



ZA0004038.rar (10.39 KB)

¦p¦ó¦b®Ö¨ú¤è¶ô ½Æ¿ï«á¦b¦P¤@Äæ±o¨ì½Æ¿ïªº­È?
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

±N©Ò¦³ªºCheckBox³£«ü©w³o­Óµ{¦¡(¨ú®ø¨äÀx¦s®æªº³sµ²),
«áÄò­n¼W¥[®É, ½Æ»s¨ä¤¤¤@­Ó, ¦A§ó§ï¤å¦r§Y¥i!
Sub ¦X¨Ö()
Dim Chk As CheckBox, TT$
For Each Chk In ActiveSheet.CheckBoxes
    If Chk.Value = 1 Then TT = TT & "," & Chk.Characters.Text
Next
[D3] = Mid(TT, 2)
End Sub

Xl0000515.rar (8.93 KB)


=======================

TOP

¥»©«³Ì«á¥Ñ kkooo15 ©ó 2019-9-1 03:18 ½s¿è

¦^´_ 2# ­ã´£³¡ªL
ÁÂÁ¤j¤jªºÀ°¦£!
½Ð°Ý¤@¤U¡A¦pªG²Ä¤G²Õ¬O³æ¿ïÃD

­n«ç»ò°µ¥X¨Ó©O?
§Ú·Q¤F«Ü¤[...
¨M©wÁÙ¬O¨Ó°Ý"­ã´£³¡ªL"¦Ñ®vÀ°¦£
ZA0004038V1.rar (9.42 KB)
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2019-9-1 12:22 ½s¿è

¦^´_ 3# kkooo15

¨Ï¥Î¤u§@ªíª«¥ó¤ñ¸û³Â·Ð:
Xl0000515-01.rar (12.81 KB)

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD