afu9240

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-3-15 13:41 | 只看該作者

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

各位高手&大大好

想請教一下如何將listbox裡面的資料匯出到工作表1,依照欄位匯出到工作表1

各項付款申請單20180315.zip (36.19 KB) ,,,,請求協助!感恩

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

樓主熱帖

yvonne

fengetianxia

中學生 Rank: 2

帖子: 93
主題: 3
精華: 0
積分: 134
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-3-21
最後登錄: 2020-11-30

9^#

發表於 2018-3-23 18:04 | 只看該作者

回復 8# afu9240

不能執行是指哪部分不能執行?我下載後好像沒什麼問題

你試試在原本檔案的代碼上修改下

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

8^#

發表於 2018-3-23 17:03 | 只看該作者

各項付款申請(2).zip (38.87 KB) 回復 6# fengetianxia

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

yvonne

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

7^#

發表於 2018-3-16 11:54 | 只看該作者

回復 5# jcchiang

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

yvonne

TOP

fengetianxia

中學生 Rank: 2

帖子: 93
主題: 3
精華: 0
積分: 134
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-3-21
最後登錄: 2020-11-30

6^#

發表於 2018-3-16 11:14 | 只看該作者

回復 5# jcchiang

是這個意思

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

5^#

發表於 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

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

4^#

發表於 2018-3-16 10:53 | 只看該作者

回復 2# fengetianxia

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

yvonne

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

3^#

發表於 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

fengetianxia