prince0413

回復 10# 准提部林

非常感謝大大
這是我最初想要的呈現方式呢

可是我在資料表2新增資料櫃時   我在資料表1複製按鈕圖形改名稱
結果對應不到資料表2的數值呢
請問大大我該怎麼改呢?

麻煩了
感謝

准提部林

回復  准提部林

非常感謝大大
這是我最初想要的呈現方式呢

可是我在資料表2新增資料櫃時   我在資 ...
prince0413 發表於 2016-8-23 13:53

〔按鈕〕物件的〔名稱〕及表面文字都要改，若用複製的，新的名稱會一樣，例如〔矩形１〕，要改成其它！
另櫃位要以數字或英文字區分，例如〔商品櫃A〕〔商品櫃B〕

prince0413

回復 12# 准提部林

下載 (74.21 KB)

2016-8-23 14:51

其他部分都改好了
只剩下按鈕物件的名稱不知道從哪裡改
是按鈕的屬性裡面那個name嘛?(如上圖)
不好意思  小弟比較笨   希望大大不要介意

准提部林

回復 13# prince0413


   

下載 (17.54 KB)

2016-8-23 15:34

在圓框位置(位址列), 修改完直接按Enter, 記得名稱中間不要留空白格~~

c_c_lai

回復 13# prince0413
"商品櫃"、"雜物櫃"、"商品櫃A" 三者的
指定巨集全部共同指向 test。即 OK 了！

下載 (52.88 KB)

2016-8-23 15:42

prince0413

回復 15# c_c_lai

經測試正常
真的非常的感謝你

謝謝教導

prince0413

回復 14# 准提部林

經測試正常
真的非常的感謝你

謝謝教導

prince0413

回復 14# 准提部林

大大不好意思   可以稍微在打擾一下問個小小問題嗎?
假設我原本顯示的儲存格(F:G)要改到別的儲存格(A:B)
是不是代表我只要改程式碼的紅色部份就好了呢?(如下)


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

准提部林

回復 18# prince0413



[A:B].Clear

Range(xF, xF(65000, 1).End(xlUp)(1, 2)).Copy [A1]

popomilk

回復 10# 准提部林

學到了
    版主太強拉，受我一拜