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

[µo°Ý] 20­Ó¬Û¦P¥\¯àComboBox¦p¦ó¥i¥H¬Ù¤u¼¶¼g?

[µo°Ý] 20­Ó¬Û¦P¥\¯àComboBox¦p¦ó¥i¥H¬Ù¤u¼¶¼g?

¥»©«³Ì«á¥Ñ 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
  1. Private Sub ComboBox1_Change()
  2.     Dim Arr
  3.     '§ä¥X¬Û¦P©m¦Wªº©µÄò
  4.     For i = 1 To Range("A65536").End(xlUp).Row
  5.         V = UserForm1.ComboBox1
  6.         L = Len(UserForm1.ComboBox1)
  7.         If Left(Range("A" & i), L) = Left(UserForm1.ComboBox1, L) Then
  8.             Name1 = Name1 & "," & Range("A" & i)
  9.         End If
  10.     Next
  11.     Name1 = Mid(Name1, 2, 10000) '¥h°£","¸¹
  12.     Arr = Split(Name1, ",")
  13.     UserForm1.ComboBox1.List = Arr
  14. End Sub
½Æ»s¥N½X
PKKO

test.rar (17.25 KB)

¸ÉÀɵ¹¦U¦ì¤j¤j,½Ð¦bªí³æªº©m¦WÄæ¦ì¿é¤J:§Ú

´N·|Åܦ¨:§Ú·R§A

¾É­PµLªk¤U©Ô¿ï³æ~¿ï§Oªº¦WºÙ

­n¦p¦ó¤~¥i¥H¿é¤J:§Ú

¦ý¬O¤£·|¦Û°Ê±a¥X¨Ó«á­±ªº

¦Ó¬O©T©w¥u·|¥X²{"§Ú"

µM«á¦Û¤v¿ï¤U©Ô¿ï³æ«á­±ªº¦WºÙ©O?

¬Û¹ïªº~­Y¬O¿é¤J¨â½X¤]¬O¤@¼Ë~¤£­n¦Û°Ê±a¤J²Ä¤T½X
PKKO

TOP

¦^´_ 2# PKKO

¬O³o¼Ë¶Ü?
  1. Dim Arr
  2. Private Sub ComboBox17_Change()
  3.     Dim i As Long
  4.     '§ä¥X¬Û¦P©m¦Wªº©µÄò
  5.     Name1 = ComboBox17.Value
  6.     For i = 1 To Range("A65536").End(xlUp).Row
  7.         If Range("A" & i) Like ComboBox17 & "*" Then
  8.             Name1 = Name1 & "," & Range("A" & i)
  9.         End If
  10.     Next
  11.     Arr = Split(Name1, ",")
  12.     UserForm1.ComboBox17.List = Arr
  13.     UserForm1.ComboBox17 = Arr(0)
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# PKKO
Combobox ¦³­Ó AutoWordSelect ÄÝ©Ê¡A§ï¬° False ´N¤£·|¦Û°Ê±a¥X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 3# GBKEE


    ¶Wª©±zªº¤èªk§Ú¸Õ¹L¤F,§Ú¦Û¤v¤]¦³³o¼Ë°µ¹L,¦ý¹ê»Ú¤W¿é¤J§¹²Ä¤@­Ó¦r¤§«á,ÁÙ¬O·|¦Û°Ê±a¥X«á­±ªº©O!
PKKO

TOP

¦^´_ 4# stillfish00


    stillfish00¤j¤j±z¦n,±zªº«Øij«Ü¦n,¦ý¤p§Ì¨Ï¥Î«á¸ò­ì¥»¤@¼Ë,ÁÙ¬O·|¦Û°Ê±a¥X«á­±ªº©O!
PKKO

TOP

¦Ü©ó°ÝÃD¤@ : ­Y¦³20­Ó¬Û¦P¥\¯à¤§µ{¦¡½X,¸Ó¦p¦ó¼¶¼g?¥i½Ð¤j¤j­Ì´£¨Ñ±zªº¼¶¼g¤è¦¡¶Ü?
¤p§Ìªº§@ªk¬O¥Î¥X20­Ó
Private Sub ComboBox1_Change()
¬Û¦Pµ{¦¡½Xxx
End Sub
µM«á¥Î¨ú¥Nªº¤è¦¡,±N«ü©w¿ï¨úªº³¡¤À¥ÑComboBox1¨ú¥N¬°ComboBox2
¤£¾å±o¦U¦ì¤j¤j¦³§ó¦nªº¤è¦¡¶Ü?
PKKO

TOP

¦^´_ 6# PKKO
§c©êºp¡A¨º¥i¯à¬O§Ú»~·|¨º­ÓÄݩʤF¡A
¦Ü©ó°ÝÃD¤@¡A¸m³»©« "¥»ª©­È±oÃöª`ªº¥DÃD±N³°Äò¼W¥[" ¸Ì­± 22 ¦³
¥D­n¬O¥Îª«¥óÃþ§O¨ÓºÞ²z¦@¦P¨Æ¥ó¡A§A¥i¥H¦Û¤v¸Õ¸Õ¬Ý
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 8# stillfish00


    ok
PKKO

TOP

¦^´_ 5# PKKO
   
ªí³æªº©m¦WÄæ¦ì¿é¤J:§Ú
´N·|Åܦ¨:§Ú·R§A
¾É­PµLªk¤U©Ô¿ï³æ~¿ï§Oªº¦WºÙ
­n¦p¦ó¤~¥i¥H¿é¤J:§Ú
¦ý¬O¤£·|¦Û°Ê±a¥X¨Ó«á­±ªº
½Ð°Ý§A­n±a¥X¨Óªº¬O¤°»ò?
¦Ü©ó°ÝÃD¤@ : ­Y¦³20­Ó¬Û¦P¥\¯à¤§µ{¦¡½X,¸Ó¦p¦ó¼¶¼g?

½Ð·j´M °Q½×°Ïªº¤º¤å "ª«¥ó¼Ò²Õ" ¬Ý¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD