- 帖子
- 49
- 主題
- 6
- 精華
- 0
- 積分
- 97
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-8-24
- 最後登錄
- 2023-12-24
|
回復 15# GBKEE - Private Sub UserForm_Initialize()
- With ListBox1
- .Visible = False
- .ColumnCount = 4 '指定下拉式清單方塊或清單方塊的顯示行數。
- .ColumnWidths = "370,40,40,40" '指定多行下拉式清單方塊或清單方塊中的各行寬度。
- End With
- End Sub
- Private Sub ListBox1_Change()
- AA = Application.Index(ListBox1.List, ListBox1.ListIndex + 1) '陣列中抽出指定的元素陣列(這裡是一維陣列)
- Label2.Caption = "[" & Join(AA, "] ; [") & "]" 'Join 結合一維陣列的文字
- End Sub
- Private Sub TextBox1_Change()
- Dim Ar(), E As Range
- If TextBox1 <> "" Then
- ReDim Ar(0)
- For Each E In Sheet1.UsedRange.Columns(1).Cells
- 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)) '可以麻煩G大幫我解釋這句為何要轉置再轉置 感謝
- ListBox1.List = Ar
- ListBox1.Visible = True
- Else
- Label2.Caption = ""
- ListBox1.Visible = False
- End If
- Else
- Label2.Caption = ""
- ListBox1.Visible = False
- End If
- End Sub
|
|
發表於 2012-1-5 10:45
| 
