[發問] 倉庫管理表

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

2^#

發表於 2016-8-14 19:37 | 只看該作者

倉庫管理表.rar (8.98 KB)

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

3^#

發表於 2016-8-15 14:59 | 只看該作者

本帖最後由 prince0413 於 2016-8-15 15:07 編輯

回復 2# ANGELA

謝謝大大的教導
可是大大是改成用選單的方式
但小弟是想做一個倉庫配置圖(如上圖) 所以還是必須用按鈕的方式點下去該置物櫃跑出對應的資料
請問有甚麼方式可以做到呢~"~??

拜託了
感謝

不會EXCALL的笨蛋

vinejason

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

4^#

發表於 2016-8-15 17:04 | 只看該作者

回復 3# prince0413

看看這樣合用嗎

Book4.rar (18.18 KB)

無止盡的努力上進

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

5^#

發表於 2016-8-15 18:13 | 只看該作者

回復 4# vinejason

謝謝大大的幫忙
但有辦法按下去後不要跳到分頁
能直接抓取該資料顯示在旁邊嘛?

麻煩了~"~

不會EXCALL的笨蛋

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

6^#

發表於 2016-8-22 16:05 | 只看該作者

本帖最後由 prince0413 於 2016-8-22 16:08 編輯

回復 2# ANGELA

大大您好:
我想問問如果我資料表2又有新增欄位資料櫃那麼我函數抓取資料應該要改哪邊呢(如上圖)

=IF(INDEX(工作表2!$A$1:$O$1,SMALL(IF(工作表2!$A$1:$O$1<>0,COLUMN($A$1:$M$1),15),ROW(A1)))<>0,INDEX(工作表2!$A$1:$O$1,SMALL(IF(工作表2!$A$1:$O$1<>0,COLUMN($A$1:$M$1),15),ROW(A1))),"")

請問是紅色的資料範圍嘛??

不會EXCALL的笨蛋

ANGELA

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

7^#

發表於 2016-8-22 23:58 | 只看該作者

回復 6# prince0413
是範圍
=IF(INDEX(工作表2!$A$1:$AA$1,SMALL(IF(工作表2!$A$1:$AA$1<>0,COLUMN($A$1:$T1),26),ROW(A1)))<>0,INDEX(工作表2!$A$1:$T$1,SMALL(IF(工作表2!$A$1:$T$1<>0,COLUMN($A$1:$T$1),26),ROW(A1))),"")

d2=OFFSET(工作表2!$A$1,ROW(A1)+1,MATCH(工作表1!$A$1,工作表2!$A$1:$T$1,)-1)&""

e2=OFFSET(工作表2!$A$1,ROW(B1)+1,MATCH(工作表1!$A$1,工作表2!$A$1:$T$1,))&""

名稱 aa=工作表1!$O$2:$O$9

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

8^#

發表於 2016-8-23 11:31 | 只看該作者

回復 7# ANGELA

複本複本倉庫管理表 (1).zip (10.02 KB)
大大您好:
我把公式貼上去可是卻抓不到資料表2的資料顯示錯誤呢(如上圖)
是我有甚麼地方沒有改到嗎??

麻煩請大大指點
感恩
謝謝

不會EXCALL的笨蛋

ANGELA

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

9^#

發表於 2016-8-23 12:55 | 只看該作者

回復 8# prince0413

O2是陣列公式,點O2 按F2 再按 CTRL+SHIFT+ENTER

准提部林

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

10^#

發表於 2016-8-23 13:04 | 只看該作者

Sub test()
Dim xF As Range, Shp As Shape, T$
[F:G].Clear
Set Shp = ActiveSheet.Shapes(Application.Caller)
T = Replace(Shp.TextFrame.Characters.Text, Chr(10), "")
Set xF = [工作表2!1:1].Find(T, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "找不到〔" & T & "〕櫃位資料！": Exit Sub
Range(xF, xF(65000, 1).End(xlUp)(1, 2)).Copy [F1]
End Sub

Xl0000095.rar (15.68 KB)