帖子: 5
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 10
性別: 女
註冊時間: 2014-8-31
最後登錄: 2017-9-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-8-31 15:45 | 只看該作者

[發問] excel商品清單, 轉換固定大小表格形式?

在EXCEL有商品的清單,
想要用excel的公式, 讓他可以類似於word的合併列印功能一樣
差異點在, 將有使用的包裝材料的資料欄位就填入既定大小的表格內, 若沒有使用到的包裝材料就空下不填入
請問這種想法可以辦的到嗎? 還是一定要寫VBA程式呢?

test123.jpg (156.09 KB)

test123.zip (10.17 KB)

meiwei0914

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 10
性別: 女
註冊時間: 2014-8-31
最後登錄: 2017-9-10

2^#

發表於 2014-8-31 15:53 | 只看該作者

[補上] 希望填入的表格形式

test123-2.jpg (160.03 KB)

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

3^#

發表於 2014-9-1 01:21 | 只看該作者

本帖最後由 luhpro 於 2014-9-1 01:25 編輯

回復 2# meiwei0914
因為你的包裝資料有 7 種,
不適合一對一產生, (表格只保留 6 列放不下)
所以我用另一種方式處理,
需要用到額外的儲存格放置中繼資料. (欄L右邊區域)
僅需加設定列印範圍由 A 到 L 即可.

test123-a.zip (20.92 KB)
部品番號儲存格存放各儲存格計算基準值,
而須顯示的 "部品番號" 則用 NumberFormat 來強制顯示該文字.
[A1] ~ [W7] 是一個單位的拷貝 Range.
拷貝後直接貼到 A 欄上的各 "部品番號" 儲存格即可.

公式參照順序為 :
1. A1
2. N1 ~ P7 欄
3. Q1 ~ Q7 欄
4. D2 ~ F7 欄
至於 A2, A5 與 A7 都有參照到 A1

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2014-9-1 09:59 | 只看該作者

回復 2# meiwei0914
選取在第一列儲存格位置，定義下列名稱
a=OFFSET(INDEX(rng,x,),,3)
b=SMALL(IF((a<>"")*ISNUMBER(a),COLUMN(a),""),ROW(INDIRECT("A1:A"&COUNT(a))))
rng=OFFSET(資料來源!$A$3,,,COUNTA(資料來源!$A:$A)-1,17)
x=INT((ROW(資料填入此表格!$A1)-1)/7)*2+IF(COLUMN()<7,1,2)
y=MOD(ROW(資料填入此表格!$A1)-1,7)
A2公式
=IF(x>COUNTA(資料來源!$A:$A)-1,"",INDEX(rng,x,2))
A5公式
=IF(x>COUNTA(資料來源!$A:$A)-1,"",INDEX(rng,x,3))
B7公式
=IF(x>COUNTA(資料來源!$A:$A)-1,"",INDEX(rng,x,3))
D2公式
=IF(y>COUNT(a),"",INDEX(資料來源!$1:$1,,INDEX(b,y)-1))
向下複製到D7
E2公式
=IF(y>COUNT(a),"",INDEX(rng,x,INDEX(b,y)-1))
向下複製到E7
F2公式
=IF(y>COUNT(a),"",INDEX(rng,x,INDEX(b,y)))
向下複製到F7
複製A1:F7到G1貼上
A1:L7向下複製