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

(¤w¸Ñ¨M)vba½Õ¥Î¤u§@ªí¨ç¼Æ¨Ï¥Î¤è¦¡¦³­­¨î¶Ü?

(¤w¸Ñ¨M)vba½Õ¥Î¤u§@ªí¨ç¼Æ¨Ï¥Î¤è¦¡¦³­­¨î¶Ü?

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 16:54 ½s¿è

MsgBox Application.WorksheetFunction.value(Left([a1], 4))
½Ð°Ý¤W­±ªºµ{¦¡½X­n«ç»ò§ï¤~·|¥¿½T?


·s¼W Microsoft Excel ¤u§@ªí (2).rar (4.12 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 1# freeffly
  1. Sub EX()
  2.     Dim A
  3.     A = Mid([a1], 1, 4)
  4. End Sub
½Æ»s¥N½X
Visual Basic ¤¤¥i¥Î ªº ¤u§@ªí¨ç¼Æ

TOP

For i = 1 To 11
MsgBox Val(Cells(i, 1))
Next

TOP

¦^´_ 2# GBKEE


    ½Ð°Ý³o¦UMID¸ò¤u§@ªí¨ç¼Æºâ¬O¦P¤@¦U¶Ü?
    ¬°¤°»ò¤£¥Î¥[Application?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 3# oobird


    ¥Ø«eÁÙ¥u·|¤u§@ªí¨ç¼Æ
   val³o¦U¬O²Ä¤@¦¸¬Ý¨ì
   ¾Ç²ß¤F
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 4# freeffly
¤j­P¤@¼Ë  ¦h¬Ý»¡©ú ½m²ß ·|¿Ä·|³e³q
Application ¥[¤W³o. ¦C¥Xª«¥ó¦¨­û, ¦p¼ô±x»yªk ¥i¤£¥[
»Ý¤Ä¿ï

TOP

¦^´_ 6# GBKEE


    ÁÂÁÂ
    Ä~Äò¾Ç²ß
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

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