¥»©«³Ì«á¥Ñ PKKO ©ó 2014-12-1 04:38 ½s¿è
³Â·Ð¦U¦ì¤j¤j¸ÑÃD¤F!
¥H¤Uµ{¦¡½X¬°©T©wªº,¥Øªº¦b©ó"©m"¿é¤J«á¥i¦Û°Ê±a¥X¦W¤l
°ÝÃD¤@ : Y¦³20Ó¬Û¦P¥\¯à¤§µ{¦¡½X,¸Ó¦p¦ó¼¶¼g?¥i½Ð¤j¤jÌ´£¨Ñ±zªº¼¶¼g¤è¦¡¶Ü?
°ÝÃD¤G : ¦¹µ{¦¡½X¦bComboBox¿é¤J§¹"§Ú"¤§«á,³£·|¦Û°Ê±a¥X«á±¦WºÙ,¨Ò¦p"§Ú·R§A"
¦ý¬O¦]¬°±a¥X"§Ú·R§A",¦]¦¹¤U©Ô¦¡¿ï³æÅܦ¨¨S±o¿ï,¥²¶·n¦b¿é¤J§¹"§Ú"¤§«á,±N«á±¹w³]±a¥Xªº¦WºÙ§R°£
¯d¤U"§Ú"¤@Ó¦r,¤U©Ô¦¡¿ï³æ¤~¯à¥X²{¸ê®Æ®w¶}ÀY¬°"§Ú"ªº©Ò¦³¦WºÙ,¨Ò¦p¥X²{"§Ú·R§A","§Ú«ë§A","§Ú¦n°ª"¤§Ãþªº
n¦p¦óÁקK³oºØµ~¹Ò,¿é¤J§¹¥ô¦ó¦r¤§«á,³£¤£·|¦Û°Ê±a¥X,¦Ó¥i¥H¥Ñ¤U©Ô¦¡¿ï³æ¿ï¨ú©O¡H- Private Sub ComboBox1_Change()
- Dim Arr
- '§ä¥X¬Û¦P©m¦Wªº©µÄò
- For i = 1 To Range("A65536").End(xlUp).Row
- V = UserForm1.ComboBox1
- L = Len(UserForm1.ComboBox1)
- If Left(Range("A" & i), L) = Left(UserForm1.ComboBox1, L) Then
- Name1 = Name1 & "," & Range("A" & i)
- End If
- Next
- Name1 = Mid(Name1, 2, 10000) '¥h°£","¸¹
- Arr = Split(Name1, ",")
- UserForm1.ComboBox1.List = Arr
- End Sub
½Æ»s¥N½X |