返回列表 上一主題 發帖

如何設定複製迴圈sheet1複製儲存格至sheet2固定位置????

如何設定複製迴圈sheet1複製儲存格至sheet2固定位置????

本帖最後由 poke0817 於 2015-9-13 20:37 編輯



如圖一sheet1所示:A2及B2是所有需製做標籤的清單。
如圖二sheet2所示:已經製作好對應儲存格,A2(sheet1)需對應到B2(sheet2),B2(sheet1)對應到B3(sheet2)。

1、如何設定迴圈將sheet1(A2/B2)清單依序的複製在sheet2(B2/B3)固定位置上?
2、sheet2標籤的格式以製作好了,若設定迴圈可以直接複製貼到相對位置,那如果我沒有把製作格式複製好,可以利用迴圈複製標籤隔式嗎?





財產標籤製作.rar (17.81 KB)

回復 2# lpk187


大大果然厲害,但很好奇,我在公司測試的時候公司是2003版本,卻一直出錯誤,因不了解各項次的設定所以沒在嘗試修改,回到家在測試一次,居然可以!!!!!!
這是有限版本嗎???

TOP

回復 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

TOP

回復 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)

TOP

回復 8# 准提部林


    准提部林 :感謝版大,因附件有限層級,小弟我還太嫩,所以沒辦法下載來看,有在針對你撰寫的程式去測試,依照一張標籤作對應清單四組修改,但在跑迴圈時還是會依照清單第二組開始重新續編,無法依照清單第五組開始,如圖所示....如果可以續編我其它三個標籤方式應該可以跟著修正,差在盒數的部分就沒辦法接續+1了。

TOP

回復 11# 准提部林

准提部林  版大,不好意思啦!!原先是想說可以對應的話自己在另外設定其它三組標籤樣式,所以才沒一次說清楚,抱歉啦!!

已經有看到大大設定那三個標籤樣式了,真的是太厲害了..........而且還很貼心的全設定好了,連裁切的部分都考慮到,好大心阿{:3_59:}

努力了解程式原理中............非常感謝部林大大!!:handshake

TOP

        靜思自在 : 待人退一步,愛人寬一寸,就會活得很快樂。
返回列表 上一主題