- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
13#
發表於 2012-1-5 16:12
| 只看該作者
回復 14# dafa - 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))
- 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-5-29 10:04
| 
