- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
CARGOTEST.rar (111.32 KB)
¦U¦ì¤j¤j¦n¡G
ª©¥D¤j¤j´£¨Ñªº¥þ¤åÀ˯Á
¥\¯à¹ê¦b¤Ó¦n¥Î¤F¡C
¦ý¬O¤p§Ì¦³¤@°ÝÃD¤@ª½µLªk
¬ð¯}¡A·Q½Ð¦U¦ì¤j¤jÀ°¤p§Ì¦p¦ó
§JªA¦¹¶µ°ÝÃD¡C
¤p§Ì¬Oª½±µ¥ÑMDB¸ê®Æ®w¨ú¥X
¤j§å¸ê®Æ¡A¦ý¬O¦bTEXTBOX1¤º
¿é¤J¸ê®Æ®É¡A·|¥X²{
°õ¦æ¶¥¬q¿ù»~13
«¬ºA¤£²Å¦X
Private Sub TextBox1_Change()
Dim Ar()
Dim E As Range
Dim mSht1 As Worksheet
Set mSht1 = Worksheets("TEST")
If TextBox1 <> "" Then
ReDim Ar(0)
'For Each E In mSht1.UsedRange.Columns(1).Cells
For Each E In mSht1.Range("a1", mSht1.Range("a1:d900")).Columns(1).Cells '´ú¸Õ¨ì 800 ªº¦ì¸m¬O OK
If E Like "*" & TextBox1 & "*" Then
Ar(UBound(Ar)) = E.Resize(, 4).Value
ReDim Preserve Ar(UBound(Ar) + 1)
End If
Next
If UBound(Ar) > 0 Then
ReDim Preserve Ar(UBound(Ar) - 1)
Ar = Application.Transpose(Application.Transpose(Ar)) '°õ¦æ¶¥¬q¿ù»~¡G13 «¬ºA¤£²Å¦X
ListBox1.List = Ar
ListBox1.Visible = True
Else
Label1.Caption = ""
ListBox1.Visible = False
End If
Else
Label1.Caption = ""
ListBox1.Visible = False
End If
End Sub
ÁÂÁ¦U¦ì¤j¤j¡I |
|