Hsieh

請教各位大師,如何在設有公式的儲存格填入數字,

如附件
kai6929 發表於 2010-5-6 17:20

    誰看的懂需求的麻煩開示一下

Hsieh

這種問題是觀念問題
試想公式是原先建好的內容
你要能允許自行輸入數值後再恢復公式
這只有一個可能
把公式輸入在某個位置
等要用時再複製回來
如果真是如此
除了用VBA來做這動作外
恐怕再也想不到其他方法了

Hsieh

回復 7# kai6929


    vba常是量身訂做
你要填入的公式是如何?
你可先用錄製巨集的方法開始瞭解vba
這問題錄製好後再去程式區發問
尋求如何自動化更改儲存格內容
就會有答案的

Hsieh

樓主的意思不知是否如此
假設把規格表放在M1:R8
B7=VLOOKUP($A$7,$M$1:$R$10,COLUMN(),0)

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> "$B$4" Then Exit Sub
   
4. If Target = "A" Then [B7:F7] = "" Else [B7:F7].FormulaR1C1 = "=VLOOKUP(R7C1,R1C13:R10C18,COLUMN(),0)"
   
5. End Sub

複製代碼

Kai.rar (12.27 KB)

下載次數: 27

2010-5-8 15:16

Hsieh

檔名不能有特殊符號&
改成kai.rar即可

Hsieh

下載時的對話要用儲存

下載 (46.82 KB)

2010-5-8 22:30

檔案名稱直接把RAR附檔名一併寫入

下載 (114.49 KB)

2010-5-8 22:30

Hsieh

回復 22# kai6929


    我只是揣摩查詢方法
你要改公式就照我8#的方法錄製公式後
再把我程式碼寫的公式取代掉就好

Hsieh

儲存格表示以R1C1格式表示

Hsieh

回復 26# asmileboy


   把值填到資料表內

Hsieh

回復 28# asmileboy


    假如只是讓B7,C7,D7,E7,F7得到A的對照值
那就再VLOOKUP的對照表填入A的對照值
只是下次再選A就會再次顯示上回填入的值
所以公式只能傳回值不能讓你任意輸入值
我的作法只不過是把公式記在程式碼中
然後靠事件程序自動填入公式或清除
僅此而已