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

帖子: 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! 代碼

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

3^#

發表於 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! 代碼

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

4^#

發表於 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

5^#

發表於 2011-4-26 22:38 | 顯示全部帖子

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

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