Board logo

標題: [發問] 如何依輸入之筆數及數量 ,以巨集 復製資料 [打印本頁]

作者: melvinhsu1105    時間: 2011-5-4 17:17     標題: 如何依輸入之筆數及數量 ,以巨集 復製資料

本帖最後由 melvinhsu1105 於 2011-5-4 17:45 編輯

請問, 各位先進及先進,

在excel  一個work sheets 如有 多列不同資料, 而 能否代為教導或寫個vba 開一巨集視窗,

假設我要 第1 及第2 及第5列資料, 分別要復制 成2筆 / 3筆/ 2筆,,  在視窗輸入 對應 列數 及筆數, 而在另一個worksheets 自動產生.
[attach]5968[/attach]

如有不清楚之處,再請各位 先進,板主 說明.

感謝, 各位.

ps. 因小弟沒權限下載檔, 故, 可否貼上 程式碼, 或email 給 小弟.   :   [email protected]
作者: mark15jill    時間: 2011-5-4 17:24

樓主 您能稍微寫個簡易的EXCEL檔案嗎..
不然這樣很難做試驗...
如 內容類型 格式 及要貼附在哪...
作者: Hsieh    時間: 2011-5-4 17:57

回復 1# melvinhsu1105
  1. Private Sub CommandButton1_Click()
  2. Dim Ar()
  3. d = InputBox("輸入列位", , 2)
  4. k = InputBox("輸入對應數量", , 2)
  5. Do Until d = "" Or k = ""
  6.    ReDim Preserve Ar(s)
  7.    Ar(s) = Array(d, k)
  8.    s = s + 1
  9. d = InputBox("輸入列位", , 2)
  10. k = InputBox("輸入對應數量", 2)
  11. Loop
  12. For i = 0 To UBound(Ar)
  13.    For j = 1 To Ar(i)(1)
  14.    r = IIf(Application.CountA(Sheet2.Columns("A")) = 0, 1, Sheet2.[A65536].End(xlUp).Row + 1)
  15.       Rows(Ar(i)(0)).Copy Sheet2.Cells(r, 1)
  16.    Next
  17. Next
  18. End Sub
複製代碼

作者: melvinhsu1105    時間: 2011-5-4 18:21

回復 3# Hsieh

老師,

不好意思, 小弟,太久沒用了, 程式碼怎麼用到表單按鍵己不太熟悉. 可否代為 套好. 寄至我的信箱. 不好意思.
作者: Hsieh    時間: 2011-5-4 18:53

回復 4# melvinhsu1105


    [attach]5970[/attach]
作者: melvinhsu1105    時間: 2011-5-5 11:52

回復 5# Hsieh


    老師, 謝謝您. 請問你有開班授課嗎. 不知有沒有機會向您學習有關VBA的語法.
作者: melvinhsu1105    時間: 2011-5-6 10:02

回復 5# Hsieh


    請問老師, 有可能將選擇的復製之資料, 丟入 其它 檔名內的worksheets .

ex. 如原檔的檔名 叫:  學生名條 (sheet 1) , 在學生名條挑選後的資料, 再貼上至 檔名叫 :  列印清單 的 (sheet 1)


請不吝指教.




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