標題: [發問] 如何將listbox的資料 匯出到工作表1 [打印本頁]

---

作者: afu9240    時間: 2018-3-15 13:41     標題: 如何將listbox的資料 匯出到工作表1

各位高手&大大 好

  想請教一下如何將listbox裡面的資料匯出到工作表1,依照欄位匯出到工作表1[attach]28449[/attach],,,,請求協助!感恩[attach]28448[/attach]

按了SpinButton1後 listbox會顯示資料,按匯出有bug

---

作者: fengetianxia    時間: 2018-3-16 10:39

[attach]28451[/attach]

試試看

---

作者: jcchiang    時間: 2018-3-16 10:48

回復 1# afu9240
參考F大的程式,似乎只要將AA = Application.Index(資料瀏覽_ListBox.List, xi+1) 改成AA = Application.Index(資料瀏覽_ListBox.List, xi) 就可以了
Private Sub CommandButton17_Click()
    Dim AA(), xi As Integer
        With 資料瀏覽_ListBox
            For xi = 0 To .ListCount - 1               
                If .Selected(xi) Then                    '
                    AA = Application.Index(資料瀏覽_ListBox.List, xi)                    
                    With Sheets("工作表1").Range("A" & Rows.Count).End(xlUp).Offset(1)
                        .Resize(, UBound(AA)) = AA
                        '
                    End With         

                End If
            Next
        End With
End Sub

---

作者: afu9240    時間: 2018-3-16 10:53

回復 2# fengetianxia


   感謝f大回復!!
   多加了一個xxi as integer 主要用意是??可以解惑一下嗎???非常感謝f大

---

作者: jcchiang    時間: 2018-3-16 11:03

如果Listbox內只有一筆資料xi不需+1
AA = Application.Index(資料瀏覽_ListBox.List, xi)
如果Listbox內有多筆資料,就會抓到選取的上一筆資料,所以xi要加1
AA = Application.Index(資料瀏覽_ListBox.List, xi+1)
F大是利用listcount來判別要用哪一種方式抓取資料,所以再設定一個xxi來區隔

---

作者: fengetianxia    時間: 2018-3-16 11:14

回復 5# jcchiang


   

是這個意思

---

作者: afu9240    時間: 2018-3-16 11:54

回復 5# jcchiang


    感謝j大解惑,,,感謝f大~~~實在太強了~我還要再學習..受教了

---

作者: afu9240    時間: 2018-3-23 17:03

[attach]28468[/attach][attach]28468[/attach]回復 6# fengetianxia


    F大 這個檔案是您修改後的叫我試試看的,,,,,但很奇怪的是我下載後可以使用 可是現在不會執行了~~~><"好怪喔   怎會這樣????可以幫個忙麻>???感恩

---

作者: fengetianxia    時間: 2018-3-23 18:04

回復 8# afu9240


    不能執行是指哪部分不能執行?我下載後好像沒什麼問題
   
    你試試在原本檔案的代碼上修改下

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)