標題:
[發問]
如何依輸入之筆數及數量 ,以巨集 復製資料
[打印本頁]
作者:
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
Private Sub CommandButton1_Click()
Dim Ar()
d = InputBox("輸入列位", , 2)
k = InputBox("輸入對應數量", , 2)
Do Until d = "" Or k = ""
ReDim Preserve Ar(s)
Ar(s) = Array(d, k)
s = s + 1
d = InputBox("輸入列位", , 2)
k = InputBox("輸入對應數量", 2)
Loop
For i = 0 To UBound(Ar)
For j = 1 To Ar(i)(1)
r = IIf(Application.CountA(Sheet2.Columns("A")) = 0, 1, Sheet2.[A65536].End(xlUp).Row + 1)
Rows(Ar(i)(0)).Copy Sheet2.Cells(r, 1)
Next
Next
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/)
