Chr(Asc("<")¦p¦ó¹B¥Î?

yangjie

½Ð±Ð¦U¦ì¤j¤j
Sub test()
    str1 = Asc("<")
    mystr1 = Chr(str1)
    i = 5
    j = 2
   If  i  mystr1  j  Then       '¦³°ÝÃD
        MsgBox 66
    Else
        MsgBox 99
    End If
End Sub
¦]¬°ªí³æ¸ÌTextbox­Y¶ñªº¬O"<"
µ{¦¡»Ý­n i < j
¦p¦ó¥ÎÅܼÆmystr1  ¨ú¥N  "<"
ÁÂÁ«ü¾É

GBKEE

¦^´_ 1# yangjie
¹Bºâ¤l + - /  X  µLªk¥ÎÅܼƨú¥N

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           '¦³°ÝÃD
   
10.                 MsgBox 66
    
11.             Else
    
12.                 MsgBox 99
    
13.             End If
    
14.         Case ">"
    
15.             '..µ{¦¡½X
    
16.         Case "="
    
17.             '..µ{¦¡½X
    
18.         Case "<="
    
19.             '..µ{¦¡½X
    
20.         Case ">="
    
21.             '..µ{¦¡½X
    
22.         Case Else
    
23.             MsgBox "¤£¬O¹w´Á­È.."
    
24.     End Select
    
25. End Sub

½Æ»s¥N½X

yangjie

ÁÂÁÂGBKEEª©¤j
¹Bºâ¤l µLªk¥ÎÅܼƨú¥N
¹Bºâ¤l¥]§t<,>,=¶Ü?

Hsieh

¦^´_ 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

½Æ»s¥N½X

¤U¸ü (77.27 KB)

2013-3-15 17:16

yangjie

ÁÂÁÂHsiehª©¤j
°ÝÃD±o¨ì¸Ñ¨M
If Evaluate(i & m & j)  Then
¥ç¥iÅÞ¿è°õ¦æ
Á¤F

GBKEE

¦^´_ 3# yangjie
ºâ³N¹Bºâ¤l :  ^¹Bºâ¤l ,*¹Bºâ¤l,/¹Bºâ¤l,\ ¹Bºâ¤l,Mod ¹Bºâ¤l,+ ¹Bºâ¤l- ¹Bºâ¤l
¤ñ¸û¹Bºâ¤l: <,<=,>,>=,=,<>.

¤U¸ü (72.12 KB)

2013-3-16 08:09