如何設定複製迴圈sheet1複製儲存格至sheet2固定位置????
- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
回復 9# poke0817
１．每次遇到問題內容演變到最後上傳的附件都不一樣，修修改改，很頭痛！
只能做到這個附檔為止，若有差異請自行修改！
２．請務必下載範例檔詳細看（已設定標籤的列印樣式，幾乎是客製化了∼∼），
以新入會員無法下載附檔，再破例多提供另一下載址，請儘量參與論壇交流，以提升下載權限！
３．標籤樣式有兩種，所以程式碼分別設置，比對兩種應可更了解程式的意思！- Sub 轉入1()
- Dim xA As Range, xB As Range, xR As Range, xH As Range, xE As Range
- Call 清除1
- Set xA = [清單!C2]: Set xB = [清單!B7]
- If xB = "" Then Exit Sub
-
- Set xH = [A10]: Set xE = xH '定位資料輸出儲存格位置
- Application.ScreenUpdating = False
-
- Do: If xH = "" Then Rows("1:8").Copy xH(0, 1) '複製空白樣式
- xE(2, 1) = xA(1, 1) '填入〔料號〕
- xE(3, 2) = xA(1, 1) '填入〔料號〕
- xE(4, 2) = xA(2, 1) '填入〔品名〕
- xE(4, 4) = xA(4, 1) '填入〔批號〕
- xE(5, 2) = xB(1, 2) '填入〔高度1〕
- xE(6, 2) = xB(2, 2) '填入〔高度2〕
- xE(5, 4) = xB(3, 2) '填入〔高度3〕
- xE(6, 4) = xB(4, 2) '填入〔高度4〕
- xE(7, 2) = xB(1, 1) '填入〔盒數〕
- xE(7, 4) = xB(1, 3) '填入〔備註〕
- Set xE = xE(1, 6) '定位下一筆填入位置
- If xE = "" Then Set xH = xH(9): Set xE = xH '若右方已無可填入表格，向下定位
- Set xB = xB(5, 1) '下一筆資料來源位置
- Loop Until xB = ""
-
- Rows("1:8").Delete
- End Sub
-
- '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
- Sub 清除1()
- With ActiveSheet
- .UsedRange.Offset(8, 0).EntireRow.Delete '清除第８列以下資料
- .[A3,B4,B5:B8,D5:D8] = ""
- .[A2:E8].Copy [F2:o8]
- End With
- End Sub
附件下載：
 標籤製作v01.rar (32.79 KB)
或
http://www.funp.net/783355 |
|
|
|
|
|
|
|
- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-13
- 最後登錄
- 2023-10-10
|
12#
發表於 2015-9-15 21:21
| 只看該作者
回復 11# 准提部林
准提部林 版大，不好意思啦!!原先是想說可以對應的話自己在另外設定其它三組標籤樣式，所以才沒一次說清楚，抱歉啦!!
已經有看到大大設定那三個標籤樣式了，真的是太厲害了..........而且還很貼心的全設定好了，連裁切的部分都考慮到，好大心阿{:3_59:}
努力了解程式原理中............非常感謝部林大大!!:handshake |
|
|
|
|
|
|
|
發表於 2015-9-15 16:42
| 