[發問] Listbox取資料問題

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

2^#

發表於 2016-8-9 17:21 | 顯示全部帖子

回復 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

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

3^#

發表於 2016-8-9 17:30 | 顯示全部帖子

回復 4# lpk187

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

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

4^#

發表於 2016-8-10 08:43 | 顯示全部帖子

回復 7# c_c_lai

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

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

5^#

發表於 2016-8-10 15:48 | 顯示全部帖子

回復 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

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

6^#

發表於 2016-8-11 11:10 | 顯示全部帖子

回復 10# c_c_lai

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

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

7^#

發表於 2016-8-11 11:16 | 顯示全部帖子

回復 11# GBKEE

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

想要達到的功能如下圖

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

test.rar (21.75 KB)

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

8^#

發表於 2016-8-11 15:36 | 顯示全部帖子

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

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

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