返回列表 上一主題 發帖

[發問] 如何將listbox的資料 匯出到工作表1

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 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

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 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來區隔

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題