如何設定複製迴圈sheet1複製儲存格至sheet2固定位置????
- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-13
- 最後登錄
- 2023-10-10
|
如何設定複製迴圈sheet1複製儲存格至sheet2固定位置????
|
|
|
|
|
|
|
- 帖子
- 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 |
|
|
|
|
|
|
|
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-23
|
11#
發表於 2015-9-15 16:42
| 只看該作者
回復 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 |
|
|
|
|
|
|
|
- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
10#
發表於 2015-9-15 09:59
| 只看該作者
回復 4# poke0817
製作儲存格格式，和版本有關係！2003不相容！ |
|
|
|
|
|
|
|
- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-13
- 最後登錄
- 2023-10-10
|
9#
發表於 2015-9-14 21:34
| 只看該作者
回復 8# 准提部林
准提部林 :感謝版大，因附件有限層級，小弟我還太嫩，所以沒辦法下載來看，有在針對你撰寫的程式去測試，依照一張標籤作對應清單四組修改，但在跑迴圈時還是會依照清單第二組開始重新續編，無法依照清單第五組開始，如圖所示....如果可以續編我其它三個標籤方式應該可以跟著修正，差在盒數的部分就沒辦法接續+1了。
|
|
|
|
|
|
|
|
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-23
|
8#
發表於 2015-9-14 20:32
| 只看該作者
回復 5# poke0817
不可使用是因為您〔沒有下載〕附檔，詳細看裡面還有一個 sub 清除() 程式，
〔清除〕程式我一般會另外寫！
表格〔第一排〕請依您的所需先右貼，要貼幾個模板依〔列印寬度〕而定，而不是只有Ａ１：Ｂ３一組，
這個做法可減少很多程式碼，反正第一排怎設定，程式依樣畫葫蘆，
若有更改也不須去更動大部份的程式，只要直接對表格修改即可！
xR(1) → xR.cells(1,1)
xR(2) → xR.cells(2,1) 是它的〔下一格〕，若要指定其〔右一格〕，則為 xR(1,2) → 等同于 xR.cells(1,2) |
|
|
|
|
|
|
|
- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-13
- 最後登錄
- 2023-10-10
|
7#
發表於 2015-9-14 20:31
| 只看該作者
回復 1# poke0817
想請問，如果有一個清單，可是須對應三種標籤，
1、依項次1(清單)，A~D的欄位for 標籤樣式1(對應該清單的料號、品名、批號、盒數)，在依照清單(C7開始)高度排列(C7、C8、C9、C10)，直到C欄清單結束。
2、依項次1(清單)，F~I的欄位for 標籤樣式2(對應該清單的料號、品名、批號、盒數)，在依照清單(H7開始)高度排列(B5、D5)，直到C欄清單結束。(標籤3的方式應該跟此一樣，只是對應的清單區域不一樣)
標籤快把我搞死了，研究不出所以然來.......之前錄製巨集到眼花，又被主管打槍= =!!
標籤製作.rar (20.99 KB)
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
     
|
6#
發表於 2015-9-14 20:13
| 只看該作者
回復 lpk187
大大果然厲害，但很好奇，我在公司測試的時候公司是2003版本，卻一直出錯誤，因不了解 ...
poke0817 發表於 2015/9/14 19:56 
我也是2003版本,准提部林版主的附檔可正常執行程式. |
|
|
|
|
|
|
|
- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-13
- 最後登錄
- 2023-10-10
|
5#
發表於 2015-9-14 20:12
| 只看該作者
回復 3# 准提部林
版大，今天有測試您寫的，一開始出現錯誤，將Call 清除(這出現錯誤，刪除後就可以執行了)，感謝啦!
但有個問題，我有嘗試將一個標籤用兩個財產編號，但修改後仍是一個一個跳如下:
Sub 轉出()
Dim R&, xR As Range, xH As Range, xE As Range
R = [標籤清單!A65536].End(xlUp).Row
If R < 2 Then Exit Sub
Set xH = [標籤樣式!A4]: Set xE = xH
For Each xR In [標籤清單!A2].Resize(R - 1)
If xH = "" Then [標籤樣式!1:3].Copy xE
xE(2, 2) = xR(1)
xE(3, 2) = xR(2)
Set xE = xE(1, 3)
If xE = "" Then Set xH = xH(4): Set xE = xH
Next
[標籤樣式!1:3].EntireRow.Delete
Application.Goto [標籤樣式!A1]
End Sub |
|
|
|
|
|
|
|
- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-9-13
- 最後登錄
- 2023-10-10
|
4#
發表於 2015-9-14 19:56
| 只看該作者
回復 2# lpk187
大大果然厲害，但很好奇，我在公司測試的時候公司是2003版本，卻一直出錯誤，因不了解各項次的設定所以沒在嘗試修改，回到家在測試一次，居然可以!!!!!!
這是有限版本嗎??? |
|
|
|
|
|
|
|
