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

[µo°Ý] [¤w¸Ñ¨M]¤å¦r¦r¦ê§ï¬°ªÅ¦r¦ê

[µo°Ý] [¤w¸Ñ¨M]¤å¦r¦r¦ê§ï¬°ªÅ¦r¦ê

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-5-24 01:43 ½s¿è

½Ð°Ý,¦b°j°é¸Ì¸I¨ì°ÝÃD
À³¸Ó¬°¼Æ¦r«¬ºAÄæ¦ìªºÀx¦s®æ
¥X²{¤£¸Ó¥X²{ªº¤å¦r¦r¦ê

¦p¦ó,±N¤£¸Ó¥X²{ªº¤å¦r,¨ú¥N¬° "" ªÅ¦r¦ê

s2 = Replace(s2, #VALUE! , "")        'Àx¦s®æ¤º¦³¤å¦r¦r¤¸,¨ú¥N¬°ªÅ¦r¦ê (#VALUE!   '«D¼Æ¦r«¬ºA)

³o¼Ë¼g¤£¦æ ^^!!
½Ð±Ð¥¿½T»yªk,ÁÂÁÂ!

¦^´_ 1# HSIEN6001


If Not IsNumeric([S2]) Then [S2] = ""

TOP

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-5-23 22:30 ½s¿è

¦^´_ 2# register313

¤£¦n·N«ä!
¥i¯à§Úªí¹Fªº¤£°÷²M·¡

'......³¡¤À¬Ù²¤
Dim s2 As String


'......¨ä¤¤¤@¬q
            isdeli = False
            s2 = ""
            For i = 1 To Len(s1)
                ch = Mid(s1, i, 1)
                If Mid(s1, i, 1) = """" Then
                    isdeli = Not isdeli
                Else
                    If isdeli Then
                        If ch <> "," Then
                            s2 = s2 & ch
                        End If
                    Else
                        s2 = s2 & ch
                    End If
                End If
            Next
            s2 = Replace(s2, "--", "00")    'Àx¦s®æ¤º¦³"--",¨ú¥N¬°"00"

°ÝÃD:
S2¦^¶Ç¸ê®Æ®É,¨ä¤¤¼Æ¦r«¬ºAªºÀx¦s®æ¥X²{"¤¤¤å¦r"--->µ{¦¡¤¤Â_
  --->°²¦p,¤£¹w³] [¤£²M·¡] ¦r¤¸­Ó¼Æª¬ºA¤U
¸Ó«ç»òÅý¨º­Ós2¹J¨ì"¤å¦r«¬ºA"®É,¶Ç¦^""ªÅ¦r¦ê?!

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-5-23 23:08 ½s¿è

¦^´_ 3# HSIEN6001

¤£¤Ó²M·¡§A­nªº¥\¯à,µ{¦¡ªºÅÞ¿è,¤]¨SªþÀÉ®×

¤£¹Ls2À³¬O·í®É´N­n§Y®É³B²z,¤£¬O³Ì«á¦A³B²z
¨£¬õ¦â¤§³¡¥÷

Dim s2 As String
isdeli = False
s2 = ""
For i = 1 To Len(s1)
    ch = Mid(s1, i, 1)
    If Mid(s1, i, 1) = """" Then
        isdeli = Not isdeli
    Else
        If isdeli Then
            If ch <> "," Then
                s2 = s2 & ch
            End If
        Else
            If IsNumeric(ch) Then s2 = s2 & ch   '­Ych¬°¼Æ¦r«h¥[¤Js2     
        End If
    End If
Next
's2 = Replace(s2, "--", "00")    'Àx¦s®æ¤º¦³"--",¨ú¥N¬°"00"

TOP

¦^´_ 4# register313

ªGµM¬O§Úµo¿ù¥DÃD,°Ý¿ù¤è¦V
Sorry!!!!

VBA ¶×¤J Access
Àx¦s®æ³]©w¬°¼Æ¦r«¬ºA®É
¥X²{«D¼Æ¦r«¬ºA¥X¿ù

On Error Resume Next [¤w¸Ñ¨M]

©êºp!!~²`²`¤@Áù°`!!

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD