麻辣家族討論版版 » Excel程式區 » 有關Excel vba中的Do Loop不太明白

返回列表下一主題上一主題發帖

有關Excel vba中的Do Loop不太明白

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 9
點名: 0
作業系統: window
軟體版本: 7
閱讀權限: 10
性別: 男
註冊時間: 2015-11-29
最後登錄: 2016-5-7

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-12-3 21:39 | 只看該作者

有關Excel vba中的Do Loop不太明白

有關Excel vba中的Do Loop不太明白
新手學習不太會用Do Loop

應該如何在Excel vba中用Do Loop 編寫以下情況

首先有一算式
b=a+20-40+5
a是一個數值, 現在想求出a是多少, 才會使b=0

一開始我是不知道a的值是多少只是隨便輸出一數值例如a=4
將這個a=4代入數式b=a+20-40+5
如果得出的b是大於及少於零(b>0, b<0) 的時候
它能幫我不斷嘗試a=另一個數值, 從而求出a是多少會使b=0
當得出b=0的時候
它又會進入下一步
例如計算: c=b+10

請幫忙
謝謝

樓主熱帖

收藏

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2015-12-4 08:55 | 只看該作者

回復 1# drgv11

這樣對嗎？

Sub test()
a = 0
b = 20 - 40 + 5
Do Until a + b = 0
If b >= 0 Then a = a - 1
If b <= 0 Then a = a + 1
Loop
c = a + 10
MsgBox c
End Sub

複製代碼

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 9
點名: 0
作業系統: window
軟體版本: 7
閱讀權限: 10
性別: 男
註冊時間: 2015-11-29
最後登錄: 2016-5-7

3^#

發表於 2015-12-5 11:00 | 只看該作者

回復 2# owen06

謝謝大大

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 9
點名: 0
作業系統: window
軟體版本: 7
閱讀權限: 10
性別: 男
註冊時間: 2015-11-29
最後登錄: 2016-5-7

4^#

發表於 2015-12-5 11:34 | 只看該作者

回復 2# owen06
大大
如果 b=a×sin45°-20
應該怎樣寫??

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 10
註冊時間: 2015-11-27
最後登錄: 2016-1-19

5^#

發表於 2015-12-6 08:24 | 只看該作者

了解
應該要買一本VBA書籍
謝謝

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

6^#

發表於 2015-12-6 10:22 | 只看該作者

回復 4# drgv11

Do ... Loop 舉例演示:

Option Explicit
Sub DoLoopTest()
Dim a#, b#, h#
Dim Rad#, c#
Dim iter%, IterMax%
Const e = 0.00000001 '誤差許可值
Const Pi = 3.14159265358979
IterMax = 500 '最高搜尋迭代數
Rad = Pi * 45 / 180
a = 100 '初始值
h = 5 '初始搜尋步長
Do
b = a * Sin(Rad) - 20
If Abs(b) < e Then Exit Do '浮點數運算很難得到完全相等
If b > 0 Then
a = a - h
Else
h = h * 0.5
a = a + h
End If
iter = iter + 1
Loop While iter < IterMax '無解時可以跳出迴圈
Debug.Print
Debug.Print " iter = " & iter
Debug.Print "Ans. a = " & a
Debug.Print " h = " & h
End Sub

複製代碼

靜思自在 : 心中常存善解、包容、感思、知足、惜福。

返回列表下一主題上一主題