[發問] 這個可以使用IF公式嗎?

appr

請各位看看我該用哪種公式才對!!

第一：我現在有一個公式是=SUM(D2+F2-(C2))

第二：  我現在要多增加一個公式是   E2的數值會跟著D2跑   也就是    今天D2 不管是10   ，    20    ，21.......

E2的數值會跟著 D2  走   ， 然後再帶入到第一個公式去運算!!

請問我該用甚麼樣的公式?  是IF嗎?

請各位幫幫我!!!我已經想不出來該用甚麼了!!!!

register313

回復 1# appr
公式1 :   =D2+F2-C2  或 =SUM(D2,F2,-C2)
公式2 :   E2=D2   
             E2的數值會跟著D2走，然後再帶入到第一個公式去運算

公式1裡並沒有出現E2 如何把E2代入公式1去運算???

是這樣嗎
公式1 :   =D2+E2-C2  或 =SUM(D2,E2,-C2)
公式2 :   E2=D2

appr

抱歉是我少說了

E2是我多增加的一個假設值     它會先D2的值相互呼應， 也就是說D2 的值或者是E2 只要更動到其中一個

那另外一個值也會更動

假設D2 為 20    E2 應為20     若D2更正為15    E2應立即更動為15

之後再帶入第一個公式中 ， 也就是=SUM(D2+F2-(C2))

register313

回復 3# appr
D2與E2兩變數之值既然一定相等 為何不只用一個變數呢?

如果一定要D2與E2兩變數連動 那可能一定要用VBA才作的到

1. Private Sub worksheet_change(ByVal target As Range)
   
2. If target.Address = "$D$2" Then
   
3.    Range("E2") = Range("D2")
   
4. End If
   
5. If target.Address = "$E$2" Then
   
6.    Range("D2") = Range("E2")
   
7. End If
   
8. End Sub

複製代碼

Book1.rar (5.76 KB)

下載次數: 3

2012-1-1 22:49

appr

基本上D2跟E2值是一樣的，是確定的!!!!如果要用同一個變數是可以的!!!

只是差在於E2是D2附屬說明底下的細項!!!如果可以的話我也不想~"~

所以不顯示出來!!!有時候會造成項目上的混亂

哇~~~~~要動用到VBA 那我真的必須好好研究一下!!!感謝各位的幫忙

lcc_seven

我以前都自己設一個button，但是這樣要按一下才能更新

如果要儲存格的數值即時更新，建議使用自訂函數的方法會比較好

appr

自訂函數?是要用哪一個???   抱歉我是真的才又剛開始重學的.....所以滿多不懂得!!!

方便的話，可以再詳細解答一下嗎?   感謝!!!!

lcc_seven

回復 7# appr

先在VBA編輯器新增一個模組，把下面的Function貼上

Function E2_equal_D2(SelectValue)
E2_equal_D2 = SelectValue
End Function

點選E2，插入函數，你會發現多一個【使用者定義】選項，點下去就可以看到這個自訂函數 E2_equal_D2

因為有設定引數，所以要把引數指定D2，跟平常使用函數一樣，點一下D2就可以了

你可以試一下，如此D2的數值一改變，E2會隨著改變

原本的 =SUM(D2+F2-(C2)) 依舊可以計算

appr

不好意思現在才回!!!但我現在才會了......

appr

回復 8# lcc_seven


    不好意思我想在請問一個問題!!!
現在我的方法是使用lcc_seven  用模組的方法!!!但是為了要更改

我目前的笨方法是使用複製貼上然後在更改名稱!!!

但要直接加到第一個模組裡面卻發生編輯錯誤~"~

但如果用VB的話是該怎麼修改???有點搞不清楚了!!!

另外如果想要跟下面的這個做結合
是直接在往下面加入就好嗎??

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Set RngA = Range("A2:A4")
   
3. Set RngB = Range("B2:B4")
   
4. Set RngCA = Intersect(Target, RngA)
   
5. Set RngCS = Intersect(Target, RngB)
   
6. If Not RngCA Is Nothing Then
   
7.    RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
   
8.    RngCA.Value = ""
   
9. End If
   
10. If Not RngCS Is Nothing Then
    
11.    RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
    
12.    RngCS.Value = ""
    
13. End If
    
14. End Sub

複製代碼

那我加入後，還是會發生名稱錯誤!!!

那是需要甚麼的連結名稱嗎?