標題: Chr(Asc("<")如何運用? [打印本頁]

---

作者: yangjie    時間: 2013-3-15 15:52     標題: Chr(Asc("<")如何運用?

請教各位大大
Sub test()
    str1 = Asc("<")
    mystr1 = Chr(str1)
    i = 5
    j = 2
   If  i  mystr1  j  Then       '有問題
        MsgBox 66
    Else
        MsgBox 99
    End If
End Sub
因為表單裡Textbox若填的是"<"
程式需要 i < j
如何用變數mystr1  取代  "<"
謝謝指導

---

作者: GBKEE    時間: 2013-3-15 16:10

回復 1# yangjie
運算子 + - /  X  無法用變數取代

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i, j
   
4.     i = 5
   
5.     j = 2
   
6.     TextBox = "<"
   
7.     Select Case TextBox
   
8.         Case "<"
   
9.             If i < j Then           '有問題
   
10.                 MsgBox 66
    
11.             Else
    
12.                 MsgBox 99
    
13.             End If
    
14.         Case ">"
    
15.             '..程式碼
    
16.         Case "="
    
17.             '..程式碼
    
18.         Case "<="
    
19.             '..程式碼
    
20.         Case ">="
    
21.             '..程式碼
    
22.         Case Else
    
23.             MsgBox "不是預期值.."
    
24.     End Select
    
25. End Sub

複製代碼

---

作者: yangjie    時間: 2013-3-15 17:13

謝謝GBKEE版大
運算子 無法用變數取代
運算子包含<,>,=嗎?

---

作者: Hsieh    時間: 2013-3-15 17:15

本帖最後由 Hsieh 於 2013-3-15 17:16 編輯

回復 1# yangjie

1. Sub ex()
   
2. Set a = [A1]
   
3. m = TextBox1.Text
   
4. Do Until a = ""
   
5. i = a: j = a.Offset(, 1)
   
6. If Evaluate(i & m & j) = True Then a.Offset(, 2) = "OK"
   
7. Set a = a.Offset(1, 0)
   
8. Loop
   
9. End Sub

複製代碼

[attach]14364[/attach]

---

作者: yangjie    時間: 2013-3-15 17:28

本帖最後由 yangjie 於 2013-3-15 17:30 編輯

謝謝Hsieh版大
問題得到解決
If Evaluate(i & m & j)  Then
亦可邏輯執行
謝了

---

作者: GBKEE    時間: 2013-3-16 08:10

回復 3# yangjie
算術運算子 :  ^運算子 ,*運算子,/運算子,\ 運算子,Mod 運算子,+ 運算子- 運算子
比較運算子: <,<=,>,>=,=,<>.


[attach]14371[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)