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

[µo°Ý] VBA»yªk°ÝÃD---¨D¸Ñ

[µo°Ý] VBA»yªk°ÝÃD---¨D¸Ñ

¥»©«³Ì«á¥Ñ jiing0819 ©ó 2015-8-6 15:52 ½s¿è

¤j¤j±z¦n¡A¨Æ±¡¬O³o¼Ëªº¡A¦]»Ý­n¦b¸ê®Æ®w·s¼W¦C¦L¼ÐÅÒ»yªk¡A¥Ø«e·s¼W¤F¦C¦L²Ä¤T±i(¬õ¦â¦rÅé)ªº»yªk
    If IPNEET = "TAI2009" Then
        Open "s:\¸ê®Æ®w\±ø½X\½Æ±²\tomm.txt" For Output As #1
        Print #1, ±ø½X
        Close #1
        Open "s:\¸ê®Æ®w\±ø½X\½Æ±²\tomm.txt" For Append As #1
        Print #1, ±ø½X & "-2"
        Close #1
        Open "s:\¸ê®Æ®w\±ø½X\½Æ±²\tomm.txt" For Append As #1
        Print #1, ±ø½X & "-3"
        Close #1

        Shell "s:\¸ê®Æ®w\±ø½X\½Æ±²\TranE.exE"
    End If
¥Ø«e¹J¨ìªº°ÝÃD¬O ³æ¸¹¬°G50176N31D01R1¡A¦pªG§Ú¦A³sÄò¦C¦L¦b²Ä¤T±iªº®É­Ô¥u­n¨ú50176N31D01¡AÀY½X¸ò«á¨â½X³£­n¥h±¼¡A½Ð°Ý§Ú³o¼Ë¤U¬O§_¬°¥¿½T?
·P¿E¤£ºÉ
If Mid(Cells(¥[¤uRC_RecordRow, ¥[¤uRC_¤l±²±²¸¹), 2, 12) = "5" Then

¦^´_ 1# jiing0819
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.    Dim ³æ¸¹ As String
  4.    ³æ¸¹ = "G50176N31D01R1"
  5.    ³æ¸¹ = Mid(³æ¸¹, 2)
  6.    ³æ¸¹ = Mid(³æ¸¹, 1, Len(³æ¸¹) - 2)
  7.    MsgBox ³æ¸¹
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ·PÁ¤j¤jªºµL¨p±Ð¾É

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD