帖子: 100
主題: 38
精華: 0
積分: 109
點名: 292
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: T.C.C.
註冊時間: 2011-5-17
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-5-29 04:56 | 只看該作者

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

本帖最後由 binargoo 於 2011-7-13 01:31 編輯

傷腦筋時間！積極學習: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有公式，卻老被誤刪)

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

OTS56T-07.jpg (55.87 KB)

OTS56T-07.rar (3.96 KB)

樓主熱帖

只為學習所以發問

binargoo

中學生 Rank: 2

帖子: 100
主題: 38
精華: 0
積分: 109
點名: 292
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: T.C.C.
註冊時間: 2011-5-17
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2011兔年全勤獎章

3^#

發表於 2011-5-29 22:37 | 只看該作者

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

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

只為學習所以發問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 279
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-5-29 21:52 | 只看該作者

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

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

複製代碼

學海無涯_不恥下問

TOP