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

[µo°Ý] ¥i¦Û©wªí³æ ¥þ¤åÀ˯Á?

¦^´_ 12# dafa
§A¤£°µ­Ó½d¨Ò¤W¶Ç,¯uªº¤£ª¾­n¦p¦ó¦^µª.

TOP

¥þ¤åÀ˯Á1.zip (674.17 KB) ¦^´_ 13# GBKEE


    ¦pªþ¥ó
½Ð°ÝG¤j
¥i§_³s¦PB.C.DÄ椺¸ê®Æ¤@¦PÅã¥Ü¦bListBox1»PLabel2¤º
·PÁ§A

TOP

¦^´_ 14# dafa
  1. Private Sub UserForm_Initialize()
  2.      With ListBox1
  3.         .Visible = False
  4.         .ColumnCount = 4                '«ü©w¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ôªºÅã¥Ü¦æ¼Æ¡C
  5.         .ColumnWidths = "370,40,40,40"  '«ü©w¦h¦æ¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ô¤¤ªº¦U¦æ¼e«×¡C
  6.     End With
  7. End Sub
  8. Private Sub ListBox1_Change()
  9.     AA = Application.Index(ListBox1.List, ListBox1.ListIndex + 1)  '°}¦C¤¤©â¥X«ü©wªº¤¸¯À°}¦C(³o¸Ì¬O¤@ºû°}¦C)
  10.     Label2.Caption = "[" & Join(AA, "] ; [") & "]"                  'Join µ²¦X¤@ºû°}¦Cªº¤å¦r
  11. End Sub
  12. Private Sub TextBox1_Change()
  13.     Dim Ar(), E As Range
  14.     If TextBox1 <> "" Then
  15.         ReDim Ar(0)
  16.         For Each E In Sheet1.UsedRange.Columns(1).Cells
  17.             If E Like "*" & TextBox1 & "*" Then
  18.                 Ar(UBound(Ar)) = E.Resize(, 4).Value
  19.                 ReDim Preserve Ar(UBound(Ar) + 1)
  20.             End If
  21.         Next
  22.         If UBound(Ar) > 0 Then
  23.             ReDim Preserve Ar(UBound(Ar) - 1)
  24.             Ar = Application.Transpose(Application.Transpose(Ar))
  25.             ListBox1.List = Ar
  26.             ListBox1.Visible = True
  27.         Else
  28.             Label2.Caption = ""
  29.             ListBox1.Visible = False
  30.         End If
  31.     Else
  32.         Label2.Caption = ""
  33.         ListBox1.Visible = False
  34.     End If
  35. End Sub
½Æ»s¥N½X

TOP

¦^´_ 15# GBKEE


    «Ü·PÁÂG¤j¨º»ò¤£¹½¨ä·Ðªº¦^ÂÐ
ÁÙªþµù¨º»ò²M·¡
»°§Ö¥h¬ã¨s®ø¤Æ¤@¤U
·P®¦³á

TOP

¦^´_ 15# GBKEE
  1. Private Sub UserForm_Initialize()
  2.      With ListBox1
  3.         .Visible = False
  4.         .ColumnCount = 4                '«ü©w¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ôªºÅã¥Ü¦æ¼Æ¡C
  5.         .ColumnWidths = "370,40,40,40"  '«ü©w¦h¦æ¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ô¤¤ªº¦U¦æ¼e«×¡C
  6.     End With
  7. End Sub
  8. Private Sub ListBox1_Change()
  9.     AA = Application.Index(ListBox1.List, ListBox1.ListIndex + 1)  '°}¦C¤¤©â¥X«ü©wªº¤¸¯À°}¦C(³o¸Ì¬O¤@ºû°}¦C)
  10.     Label2.Caption = "[" & Join(AA, "] ; [") & "]"                  'Join µ²¦X¤@ºû°}¦Cªº¤å¦r
  11. End Sub
  12. Private Sub TextBox1_Change()
  13.     Dim Ar(), E As Range
  14.     If TextBox1 <> "" Then
  15.         ReDim Ar(0)
  16.         For Each E In Sheet1.UsedRange.Columns(1).Cells
  17.             If E Like "*" & TextBox1 & "*" Then
  18.                 Ar(UBound(Ar)) = E.Resize(, 4).Value
  19.                 ReDim Preserve Ar(UBound(Ar) + 1)
  20.             End If
  21.         Next
  22.         If UBound(Ar) > 0 Then
  23.             ReDim Preserve Ar(UBound(Ar) - 1)
  24.             Ar = Application.Transpose(Application.Transpose(Ar))   '¥i¥H³Â·ÐG¤jÀ°§Ú¸ÑÄÀ³o¥y¬°¦ó­nÂà¸m¦AÂà¸m   ·PÁ      
  25.    ListBox1.List = Ar
  26.             ListBox1.Visible = True
  27.         Else
  28.             Label2.Caption = ""
  29.             ListBox1.Visible = False
  30.         End If
  31.     Else
  32.         Label2.Caption = ""
  33.         ListBox1.Visible = False
  34.     End If
  35. End Sub
½Æ»s¥N½X

TOP

¦^´_ 17# dafa
  1. If E Like "*" & TextBox1 & "*" Then     
  2.                 Ar(UBound(Ar)) = E.Resize(, 4).Value  '***¤@ºû°}¦CAr ¥[¤J¤l¤¸¯À -> E.Resize(, 4).Value  ¡°¦¹¤l¤¸¯À ¬O¬°( 1, 4 )¤Gºû°}¦C                 ReDim Preserve Ar(UBound(Ar) + 1)
½Æ»s¥N½X
  1. If UBound(Ar) > 0 Then
  2.             ReDim Preserve Ar(UBound(Ar) - 1)
  3.             'Ar = Application.Transpose(Application.Transpose(Ar))
  4.             Ar = Application.Transpose(Ar) '²Ä¤@¦¸Âà¸m  ±o¨ìªº¬O ¾ãÄæ¸ê®Æ
  5.             Ar = Application.Transpose(Ar) '²Ä¤G¦¸Âà¸m ±o¨ìªº¬O  ¾ã¦C¸ê®Æ   
½Æ»s¥N½X

TOP

¦^´_ 18# GBKEE


    ·PÁÂG¤jªº¸ÑÄÀ
¦p¥»½d¨Ò
¦b½Ð°ÝG¤j¦pªG§ÚListBox1Äݩʳ]©w¥i½Æ¿ï
¦ý§Ú­n¦p¦ó±NListBox1©Ò¦³¬D¿ïªº¸ê®Æ©ñ¨ìLabel2©O

TOP

ª©¥D¤j¤j±z¦n¡G

½Ð°Ý¦p¦ó¯àÅý¥þ¤åÀ˯Áªí³æªº
Listbox¤]¯à¨ã¦³¥ª¥k±²°Ê¥\¯à©O¡H

·PÁ±z¡I

TOP

¦^´_ 20# dechiuan999


    ¥u­n§Aªº ListBoxÄÝ©ÊWidth<ColumnWidths´NÀ³¸Ó·|¦Û¤v¥X²{¤F

TOP

dafa ¤j¤j±z¦n¡G

ÁÂÁ±zªº»¡©ú¡C
·P®¦¡I

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD