請教儲存格內容比較與運算問題(已解決)

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

7^#

發表於 2011-4-26 22:38 | 只看該作者

謝謝大大費心解答！這個解答對我有些難以理解。我先研究Worksheet_Calculate和Change事件，等有所了解再來請教...謝謝！

50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2011-4-26 21:02 | 只看該作者

1.Worksheet_Calculate是由公式重算觸發，輸入數值是觸發Change事件
2.變數與儲存格標示觀念混淆
[bid_t1]你沒有這樣的名稱
bid_t1是變數不能用中刮弧包裝
若變數要指定為儲存格物件必須使用Set陳述式
依照你的敘述，A1跟B1應該是用公式取得才能使用Calculate事件
程式碼:

Private Sub Worksheet_Calculate()
If [A1] <= [B1] Then
[D1] = [C1].Value: [F1] = [C1] + [D1]
Else
[G1] = [C1] + [E1]
End If
End Sub

複製代碼

學海無涯_不恥下問

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

5^#

發表於 2011-4-26 20:15 | 只看該作者

我發現自己少打了end if，加入後，程式如下：

Private Sub Worksheet_Calculate()
On Error Resume Next

      C1 = Sheets(1).Cells(1, 1) 'A1
      B1 = Sheets(1).Cells(1, 2) 'B1
      S1 = Sheets(1).Cells(1, 3) 'C1

      bid_s1 = Sheets(1).Cells(1, 4) 'D1
      bid_t1 = Sheets(1).Cells(1, 5) 'F1

      ask_s1 = Sheets(1).Cells(1, 6)  'E1
      ask_t1 = Sheets(1).Cells(1, 7)  'G!



      If [C1] <= [B1] Then
                     [bid_s1] = [S1].Value: [bid_t1] = [bid_t1] + [S1]
                     Else
                     [bid_s1] = [S1].Value: [bid_t1] = [bid_t1] + [S1]


      End If



End Sub

但是結果仍是一樣...D1,E1,F1,G1都沒有數字出現....

50 字節以內
不支持自定義 Discuz! 代碼

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

4^#

發表於 2011-4-26 19:36 | 只看該作者

我把程式輸入，同時輸入A1,B1,C1三個儲存格數值，執行後沒有告訴我任何錯誤..有執行 If ...Then...Else的判斷式..但是D1,E1,F1,G1都沒有任何動作，.想請教要如何修改?謝謝！

Private Sub Worksheet_Calculate()
On Error Resume Next

      C1 = Sheets(1).Cells(1, 1) 'A1
      B1 = Sheets(1).Cells(1, 2) 'B1
      S1 = Sheets(1).Cells(1, 3) 'C1

      bid_s1 = Sheets(1).Cells(1, 4) 'D1
      bid_t1 = Sheets(1).Cells(1, 5) 'F1

      ask_s1 = Sheets(1).Cells(1, 6)  'E1
      ask_t1 = Sheets(1).Cells(1, 7)  'G!



      If [C1] <= [B1] Then [bid_s1] = [S1].Value: [bid_t1] = [bid_t1] + [S1] Else [ask_s1] = [S1].Value: [ask_t1] = [ask_t1] + [S1]




End Sub

50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2011-4-25 23:34 | 只看該作者

if [A1]<=[B1] then
[D1]=[C1].value:[F1]=[C1]+[D1]
else
[G1]=[C1]+[E1]
end if

學海無涯_不恥下問

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

2^#

發表於 2011-4-25 19:56 | 只看該作者

抱歉！陳述有所錯誤，重新陳述：
我有七個儲存格分別是A1,B1,C1,D1,E1,F1,G1。如果A1小於或等於B1則將C1的內容放入D1，同時將C1的內容與D1的內容相加放入F1，否則便將C1的內容與E1的內容相加放放入G1。
我寫的程式碼如下，可是沒有作用，請大大們幫我看看哪裡錯了！謝謝！

      X = Sheets(1).Cells(1, 1) 'A1內容
      Y = Sheets(1).Cells(1, 2) 'B1內容
      Z = Sheets(1).Cells(1, 3) 'C1內容


      If X <= Y Then Sheets(1).Cells(1, 4) = Z Else Sheets(1).Cells(1, 5) = Z '如果A1<=B1則D1=C1 否則 E1=C1

      Sheets(1).Cells(1, 6) = bid_t1 'bid_t1=F1
      Sheets(1).Cells(1, 7) = ask_t1 'ask_t1=G1

   If X <= Y Then bid_t1 = bid_t1 + Z Else ask_t1 = ask_t1 + Z '如果A1<=B1則C1 +D1放入F1否則 C1+E1放入G1

50 字節以內
不支持自定義 Discuz! 代碼