[發問] 小學生問題 3 (謝謝)

binargoo

傷腦筋時間！積極學習:funk:

  說明：表一、表二同一份表格。

                當 B7-B9<50那麼B8不顯示，B7-B9>=50時將結果除 2 顯示於B8。
                設 B8 為空白，B7-B9價差+B7由底部逐筆累加價差顯示於C2:C6(如表一)。
                    B8 為數字，B7-B8價差+B7由底部逐筆累加價差顯示於C2:C6(如表二)。

  現想將前述條件寫入C8，請問寫法？(原於C2:C6有公式，卻老被誤刪)

  有勞諸高手大大不吝熱誠教導感恩在先！

Hsieh

B8=IF(B7-B9>=50,(B7-B9)/2,"")
C8=IF(B8<>"",2*B7-B8,2*B7-B9)
寫入C2:C6的動作必須使用VBA輔助
在該工作表模組內輸入程式碼

1. Private Sub Worksheet_Calculate()
   
2. k = Application.CountA([C2:C6])
   
3. If k = 5 Then [C2:C6] = "": k = 0
   
4. [C8].Offset(-2 - k, 0) = [C8]
   
5. End Sub

複製代碼

binargoo

超級感謝 Hsieh 超大大，大力幫忙！

在 B8 的部分原已有公式只是沒掛上，小學生的困難在於 " C8 "。
今蒙超版大指導方向獲益良多小學生再次感恩外，並將更努力挖掘問題來共同探討、學習。