[發問] Listbox取資料問題

Michelle-W

因最近剛碰自訂表單的部分
有爬問看了一下我想要的寫法
目前有個疑問
請問我的表單在sheet1
資料記錄在sheet2
要如何修改目前的程式碼才能讓Listbox1顯示sheet2 A欄全部的資料??

下載 (21.09 KB)

2016-8-9 16:31

但A欄的資料會持續增加
目前也不曉得該如何修改.RowSource = "A2:A9"
可以自動讀取A欄有資料的部分??

請問有人可以指點一下嗎?
感謝感謝~~~
Book1.rar (17.4 KB)

下載次數: 21

2016-8-9 16:39

Michelle-W

回復 2# c_c_lai


我稍早有看過這篇
但我不懂為什麼她的Listbox可以顯示別的工作表的資料
看不太懂她的Listbox的程式碼意思...
還是您可以協助解釋一下她的意思?
為什麼Listbox可以顯示資料

非常感謝

Private Sub ListBox1_Change()
    Dim AA(), xi As Integer
   
    With ListBox1
        For xi = 0 To .ListCount - 1
            If .Selected(xi) = True Then
                AA = Application.Index(ListBox1.List, xi + 1)
                ' 陣列中抽出指定的元素陣列(這裡是一維陣列)
                TextBox2.Value = AA(1)
                TextBox3.Value = AA(2)
                TextBox4.Value = AA(3)
                TextBox5.Value = AA(5)
                comEnable TextBox5.Value, IIf(TextBox5.Value = "DA", True, False)
            End If
        Next
    End With
End Sub

Michelle-W

回復 4# lpk187


謝謝!!
您還幫我修改了CommandButton的程式碼
我還沒想到可以在CommandButton上面直接更新Listbox
非常感謝^^"

Michelle-W

回復 7# c_c_lai


謝謝C大大
有您的解釋，我比較容易理解各程式碼的邏輯與作用了
真的非常感謝~~!!!

Michelle-W

回復 7# c_c_lai


C大~不好意思請教您一下
我想要選擇Listbox1中多個不連續的資料，可以存至sheet1的A欄中
資料是累積的，但我目前的程式碼執行起來怪怪的，請問哪邊錯了QQ?
可以麻煩您指點一下嗎? 感恩~

Private Sub CommandButton1_Click()
    Dim AA(), xi As Integer
    With ListBox1
        For xi = 0 To .ListCount - 1
            '  判斷列表框 (ListBox1) 是否有被點選
            If .Selected(xi) = True Then
                '  取出該行之數據，存入 AA 陣列中
                AA = Application.Index(ListBox1.List, xi + 1)
                Range("A1").Select
                Selection.End(xlUp).Select
                Sheets("sheet1").Range("a" & ActiveCell.Row + 1) = AA
                Exit For
            End If
        Next
    End With

End Sub

Michelle-W

回復 10# c_c_lai


我想要將Listbox中所選擇的資料寫入A欄
可能邏輯寫錯了導致您看不懂QQ"

Michelle-W

回復 11# GBKEE

就是點選Listbox中的資料，填入sheet3的A欄
我自己嘗試過即使選擇了三筆，A欄資料也只會出現1筆

想要達到的功能如下圖

下載 (38.59 KB)

2016-8-11 11:11

下載 (26.2 KB)

2016-8-11 11:11

另外我也想要在Listbox點選可以刪除的功能
目前的程式碼會一直出現無法辨認的錯誤
不懂錯在哪邊QQ
不曉得可否一起幫我看看
感恩

test.rar (21.75 KB)

下載次數: 18

2016-8-11 11:14

Michelle-W

回復 15# lpk187
回復 11# GBKEE
回復 10# c_c_lai

謝謝你還幫我解釋刪除的程式碼錯誤，我剛有自己研究了一下怎麼刪除儲存格
不過還是您比較快~哈哈


非常謝謝各位前輩們提供的程式碼
最重要的是都還有附上講解，讓小妹我能更快進入狀況
覺得很溫暖^^
非常感謝!!!