[發問] 引用A工作表值的公式語法

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

2^#

發表於 2021-1-9 12:17 | 只看該作者

因為不懂怎麼引用其它的工作表(EX:A!)資料，所以只要是能引用公式達到如效果檔的答案即可~
無論是直接將公式放在模組1內或引用公式A，公式B，公式C，公式D等4個模組皆可。
謝謝!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2021-1-9 14:01 | 只看該作者

本帖最後由 ziv976688 於 2021-1-9 14:06 編輯

抱歉!公式的註解有筆誤~
公式值複製轉至貼上
修正為
公式值複製轉置貼上。
謝謝!

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2021-1-9 15:13 | 只看該作者

本帖最後由 n7822123 於 2021-1-9 15:23 編輯

回復 1# ziv976688

想將A工作表的B2:S51，V2:AM51，AP2:BG51，BJ2:CA51的公式值
以公式A，公式B，公式C，公式D等4個模組內的公式值
各貼上B105:AX122；B155:AX172；B205:AX222；B255:AX272(四個區段各18列)。

值是值，公式是公式，請盡量避免用公式值這種敘述.......

很容易混淆額造成誤會，把你的敘述改成如下，就清楚多了

想將'T1'的'A'工作表的B2:S51，V2:AM51，AP2:BG51，BJ2:CA51的 "值"
以公式A，公式B，公式C，公式D等4個模組內的 "公式"
各貼上'總覽'的B105:AX122；B155:AX172；B205:AX222；B255:AX272(四個區段各18列)。

用"公式"去取其他活頁簿的儲存格資料要多寫該活頁簿的路徑+檔名

如下是取A1儲存格範例

='C:\使用者們\秘密的使用者\桌面\引用A工作表值的公式語法\[49遺漏刪_空數(VBA)_T1.xls]A'!$A$1

光一個儲存格就要寫這麼長!，如果你的A~D都這樣寫，公式會變得更難閱讀...還有超出 255 字元的問題

我個人是很少用VBA 去寫儲存格公式的，尤其像你這種貼完公式後，還要馬上轉成值的~

這種在程式執行過程中，不能關掉公式自動計算(一關掉就取不到值)

但是不關掉，VBA程式每對任意一個儲存格的內容做變更，就會自動觸發重算整個工作表

會使得效率變的比較低，遇到資料量大的情況，就會很卡!

而且你的東西看起來越來越複雜了.........建議你要學些VBA，做簡單的計算(捨棄公式)

扯遠了，上面的方式寫起來麻煩，公式也會讓人難以理解

比較簡單的做法是把A 工作表 Copy到產生出來的"總覽"活頁簿

這樣"總覽"活頁簿的公式，要取A表資料，就不再是 "跨活頁簿" 了

再貼上公式 > 轉值，這樣一來你的公式完全不用修改

最後"總覽"活頁簿要關閉前，再刪除A表即可

檔案如下

引用A工作表值的公式語法-OK.rar (200.38 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

5^#

發表於 2021-1-9 15:49 | 只看該作者

回復 4# n7822123
n大 : 您好!
我也很想學VBA，但雙北市都沒有補習班(有詢問過"巨匠"和"聯成")開班教授VBA課程(其它有開班的似乎都在中南部)；
有想上網學習，但卻又是有看沒有懂>*<
還好!這已經是最後的步驟~需求檔終於"完成了"!

謝謝您一再的熱心幫忙和耐心指導與說明~感恩(鞠躬)~~~

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2021-1-9 20:24 | 只看該作者

回復 4# n7822123
n大 : 您好!
不好意思，假設"A"工作表內容不變時~
請問 : 能按1次執行鍵，執行多個CSV檔案嗎 ?
如果可以，請問程式碼要如何增修?
如果不可行，就以目前按1次執行鍵執行1個CSV檔案即可。
謝謝您

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

7^#

發表於 2021-1-9 20:51 | 只看該作者

本帖最後由 n7822123 於 2021-1-9 20:54 編輯

回復 6# ziv976688

暈倒，忘記你主程式還在 Dir當中，還沒搜完呢

Dir 不能用了，改一下下面的程式

原本

Sub 複製A表到總覽()
總覽_Nm$ = Dir(Module1.NewName)
With Workbooks(總覽_Nm)
ThisWorkbook.Sheets("A").Copy After:=.Sheets(.Sheets.Count)
.Sheets(1).Activate '回到資料檔
End With
End Sub

Sub 於總覽刪除A表()
Application.DisplayAlerts = False
總覽_Nm$ = Dir(Module1.NewName)
Workbooks(總覽_Nm).Sheets("A").Delete
End Sub

改為

Sub 複製A表到總覽()
總覽_Nm$ = Mid(Module1.NewName, InStrRev(Module1.NewName, "\") + 1)
With Workbooks(總覽_Nm)
ThisWorkbook.Sheets("A").Copy After:=.Sheets(.Sheets.Count)
.Sheets(1).Activate '回到資料檔
End With
End Sub

Sub 於總覽刪除A表()
Application.DisplayAlerts = False
總覽_Nm$ = Mid(Module1.NewName, InStrRev(Module1.NewName, "\") + 1)
Workbooks(總覽_Nm).Sheets("A").Delete
End Sub

引用A工作表值的公式語法-OK2.rar (209.33 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助