如何避免儲存格公式，因『剪下』『貼上』而被修改？

eigen

如何避免儲存格公式，因『剪下』『貼上』而被修改？

sheet2 a1= Sheet1!a1
sheet2 b1= Sheet1!b1
sheet2 c1= Sheet1!c1

sheet2 a2= Sheet1!a2
sheet2 b2= Sheet1!b2
sheet2 c2= Sheet1!c2

以此類推

我要固定 sheet2 的公式，不能因為 sheet1 的儲存格 『剪下』『貼上』而被修改


一、我試了將 sheet2 工具->保護->保護工作表

結果『剪下』『貼上』 公式還是變了


二、我試著用indirect("Sheet1!a1",1)的方式來取代，公式是不會變了，

相關公式共有 15453個, 程式容量卻大了30%，多了750k ，整個檔案的開啟速度也變慢了

為了產生15453個公式，我還刻意用 vba 來產生。



三、目前我還能想到的就是在寫個巨集，在程式開啟動，主動更新整個 sheet2的公式，

這樣的方式，不能確保開啟後公式不被使用者修改

使用者下次重新開啟才能確保sheet2 公式正確。


還有更好的做法嗎？

handsometrowa

回復 4# linyancheng


    那請問如果儲存格不是連續的

A2:O2 這一排資料要貼到 A10:O10   當中有沒有存在的資料格

但是資料(數值)要貼過去，但是公式也要過去呢....@@"

准提部林

如果公式就這麼簡單的單一儲存格取值,
可試試"定義名稱"!!

linyancheng

回復 3# eigen


    若儲存格是相連續的，可以使用陣列公式。
譬如：
{=Sheet1!A1:B10}

eigen

回復 2# ikboy


    謝謝，不能直接填值，只能公式

我試了 indirect offset index

目前看來 index 最省空間~~  index < offset < indirect

而且直接填寫 1 2 3 4 會比用 row() column() 省空間

我還是做一個被動方式來處理，也許就像上面的 worksheet_activate 時才更新一次所有公式~~

ikboy

回復 1# eigen


   Try this:

1. Private Sub Worksheet_Activate()
   
2. Application.ScreenUpdating = 0
   
3.     With Sheets(1)
   
4.         [a1:c1] = .[a1:c1].Value
   
5.     End With
   
6. Application.ScreenUpdating = 1
   
7. End Sub

複製代碼