ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±ÐVBA¤ñ¸û¹Bºâ¤lªº©w¸q

[µo°Ý] ½Ð±ÐVBA¤ñ¸û¹Bºâ¤lªº©w¸q

¦U¦ì¥ý¶i¦n
    ½Ð±Ð¤@­ÓÃö©óVBA¤ñ¸û¹Bºâ¤lªº°ÝÃD(¦p¤Uªº§PÂ_¦¡)
    ¦bµ{¦¡½X¤¤§PÂ_µ²ªG¡Ax=1¡H
    ¦ý³o­Óµ²ªG»P¹ê»Ú»{ª¾¦³©Ò¥X¤J¡A¬O¦]¬°©w¸qªº°ÝÃD¶Ü¡HÁÙ¬O¦³¨ä¥L°ÝÃD¡H
    ¦]­Ó¤H¹ï©óVBA¬O¦Û¦æºN¯Á¹B¥Î¡A¥i¯à¦³«Ü¦h°ò¥»µ{¦¡Æ[©À³£¤£²M·¡¡A©Ò¥H½Ð±Ð¥ý¶i­Ì
    ¦A³Â·Ð©âªÅ¸Ñ´b¡A·P®¦
JS

    If 2.85 = 2.8 + 0.05 Then
        x = 0
    ElseIf 2.85 > 2.8 + 0.05 Then
        x = 1
    End If

¦^´_ 3# stillfish00


    ÁÂÁ stillfish00 ¥ý¶iªº«ü¾É

TOP

¦^´_ 2# owen06

ÁÂÁ OWEN06 ¥ý¶iªº«ü¾É

TOP

¦^´_ 1# jsleee
¯BÂIºâ³N¥i¯à·|¦b Excel ¤¤³y¦¨¤£¥¿½Tªº­pºâµ²ªG

¥iÂରdecimal¦A¤ñ¸û
  1.     If CDec(2.85) = CDec(2.8 + 0.05) Then
  2.         x = 0
  3.     ElseIf CDec(2.85) > CDec(2.8 + 0.05) Then
  4.         x = 1
  5.     End If
½Æ»s¥N½X

TOP

¦^´_ 1# jsleee

http://forum.twbts.com/viewthrea ... amp;page=1#pid62025
³o½g¤U­±¦³ª©¥D¤j¤j´£¨ì¬O¯BÂI¹BºâªºBUG,¥ÎROUND()¥h°£
³o¼Ë¤l´N¥i¥H¤F
  1. Sub test()
  2. If 2.85 = Round(2.8 + 0.05, 2) Then
  3.     [a1] = 0
  4. ElseIf 2.85 > Round(2.8 + 0.05, 2) Then
  5.     [a1] = 1
  6. End If
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD