yliu

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

1^# 跳轉到 »

發表於 2013-7-22 23:36 | 顯示全部帖子

ListBox 清單內的資料寫入工作表上的儲存格

請教高手,
如何將ListBox 清單內的資料寫入工作表上的儲存格,如圖,
選取序號001,002後,資料呈現於儲存格A9:E10.

ListBox問題 (2).zip (19.12 KB)

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

2^#

發表於 2013-7-23 20:37 | 顯示全部帖子

回復 2# Hsieh

感謝Hsieh版大的幫忙，可以使用了，謝謝！

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

3^# 倒序看帖

打印

字體大小: tT

發表於 2013-7-24 00:01 | 顯示全部帖子

[發問] 複製資料轉寫到另一工作表

請問版上高手,
寫了一個VBA,要將一工作表上資料轉寫到另一工作表,結果都只有複製1筆資料,請幫忙看一下是哪裡有問題.

ListBox問題(2).zip (24.97 KB)

learner

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

4^#

發表於 2013-7-24 17:39 | 顯示全部帖子

回復 5# GBKEE

GBKEE你好,
請問若複製範圍不是連續範圍時, 該怎麼做?
例如: 目的地工作表”final”的C欄『規格』刪除, 來源工作表是連續範圍, 但目的地工作表不是連續範圍時.

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

5^#

發表於 2013-7-24 23:33 | 顯示全部帖子

回復 7# GBKEE

真的很謝謝GBKEE, 以及上次幫忙的Hsieh.
想藉由Excel VBA來解決工作上一些繁瑣的資料處理,但我只學過基本的VBA, 功力實在不足,
感激版主們無私的解答,讓我解決工作上問題.

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

6^#

發表於 2013-8-2 00:05 | 顯示全部帖子

回復 7# GBKEE

GBKEE版大,
延伸另一個問題, 使用ListBox ,請問如何讓已選取且已COPY到工作表"final"的單號&序號不會再次被選取COPY?

ListBox問題(2).zip (26.2 KB)

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

7^#

發表於 2013-8-7 23:38 | 顯示全部帖子

回復 10# GBKEE

謝謝GBKEE!

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

8^#

發表於 2013-8-29 23:55 | 顯示全部帖子

有兩個ListBox, 一個是單號(ListBox2), 一個是單號明細(ListBox1),都可以複選, 請詳附件

ListBox問題(2).zip (23.22 KB)
想請問版上高手, ListBox2的程式是否有更好的寫法?
我目前寫法是:
Private Sub ListBox2_Change()
Dim lrow, irow, ai As Integer
Sheets("login").ListBox1.Clear
[A9:E19] = ""
With ListBox2

For lrow = 0 To .ListCount - 1

  If .Selected(lrow) Then
With Sheets(Sh)
   ai = 2
   Do While .Cells(ai, "A") <> ""
If .Cells(ai, "A") = ListBox2.List(lrow, 0) Then
   With ListBox1
      .AddItem
      irow = .ListCount
   .List(irow - 1, 0) = Sheets(Sh).Cells(ai, "A")
   .List(irow - 1, 1) = Sheets(Sh).Cells(ai, "B")
   .List(irow - 1, 2) = Sheets(Sh).Cells(ai, "C")
   .List(irow - 1, 3) = Sheets(Sh).Cells(ai, "D")
   .List(irow - 1, 4) = Sheets(Sh).Cells(ai, "E")
      End With
   End If
ai = ai + 1
Loop
End With
End If
Next
End With
Application.EnableEvents = True
End Sub

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

9^#

發表於 2013-8-30 12:11 | 顯示全部帖子

回復 13# c_c_lai

不好意思, 我要的是2個ListBox都能複選, 也就是單號的ListBox複選完後(跨單號,不是單一), 其明細都會出現在明細的ListBox, 然後再去勾選要的序號明細.
我的寫法太多層,希望能簡化. 不知是否提供較好的寫法.檔案是昨天貼上的那個檔案. 謝謝~

learner

TOP

yliu

中學生 Rank: 2

帖子: 49
主題: 8
精華: 0
積分: 63
點名: 0
作業系統: windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-4-8
最後登錄: 2013-10-30

論壇贊助勳章

10^#

發表於 2013-8-30 13:19 | 顯示全部帖子

回復 15# c_c_lai
不好意思, 現在無法上傳圖片, 只能先用文字敘述
我想只要用2個ListBox 完成選項, 太多物件會佔空間,我的做法是:
單號的[List Box2] 可一次勾選單號TW-1301001及TW1301002
明細的[List Box1]就會出現共4筆序號明細TW-1301001 001, TW-1301001 002, TW-1301001 003, TW-1301002 001
只是希望想用別的寫法簡化我的多層迴圈判斷.

learner

TOP