Excel VBA簡易二分法求數

Question

要麻煩大家囉
我需要一個這樣的內容

我會在A2放入\"99999999\"
A4要設一個鈕
A6要設一個鈕
在還沒按鈕之前
B4會產生\"00000000~49999999\"
B6會產生\"50000000~99999999\"
第一次如果我按A4鈕
B4會產生\"00000000~24999999\"
B6會產生\"25000000~49999999\"
第二次我按A4鈕
B4會產生\"00000000~12499999\"
B6會產生\"12500000~24999999\"
第三次我按A6鈕
B4會產生\"12500000~18749999\"
B6會產生\"18750000~24999999\"

當B4或B6產生出\"00000000~00000024\"類似這樣的奇數時
我希望B4會較B6少一
B4產生12個為\"00000000~00000011\"
B6產生13個為\"00000012~00000024\"

謝謝
感謝大家

不好意思
還有點小請求

當我按下鍵盤的方向鍵↑時就等於是按A4鈕
當我按下鍵盤的方向鍵↓時就等於是按A6鈕

感謝

謝謝您囉
好用ㄟ

有點小問題再請教您
如果選到最後剩二個數字
應該選任何一組後四個數字都會一樣
可是好像C4會怪怪的
剩三個數字選單一數字那邊也會這樣
先謝謝您囉

Answer 1

提供三個巨集如下Sub Macro1()'' Macro1 Macro' Johnny Wang 在 2006/4/14 錄製的巨集'    Range("C6") = Range("C4")    Range("C4") = Int((Range("B4") + Range("C4") - 1) / 2)    Range("B6") = Range("C4") + 1End SubSub Macro2()'' Macro2 Macro' Johnny Wang 在 2006/4/14 錄製的巨集'    Range("B4") = Range("B6")    Range("B6") = Int((Range("B6") + Range("C6") + 1) / 2)    Range("C4") = Range("B6") - 1End SubSub Macro3()    Range("B4") = 0    Range("C4") = Int((Range("A2") - 1) / 2)    Range("B6") = Range("C4") + 1    Range("C6") = Range("A2")End Sub其中 Macro1 對應你 A4 的按鈕Macro2 對應你 A6 的按鈕Macro3 則用來初始化你的設定值至於方向鍵的對應我還沒想到，因巨集鍵只能對應 Ctrl + a ~ z 而己

2006-04-14 13:38:15 補充：
我是憑感覺寫的而己，並沒有測試到最後你說的狀況，不過我想你瞭解後，修改對你來說應該不困難吧

Answer 2

謝謝JACKYLU的熱心解答，好用喔！不太會寫VBA，最後我把它改成這樣，也許有更精簡的寫法吧！
Sub Macro1()

If Range("B4") = Range("C4") Then

Range("C6") = Range("B4")
Range("B6") = Range("B4")

End If

2006-04-14 20:58:45 補充：
If Range("B4") <> Range("C4") Then

Range("C6") = Range("C4")
Range("C4") = Int((Range("B4") + Range("C4") - 1) / 2)
Range("B6") = Range("C4") + 1

End If

End Sub

Answer 3

Application.OnKey "{up}", "Macro1"
Application.OnKey "{down}", "Macro2"
將以上加到巨集中即可.
(可加在sub auto_open中)