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

[µo°Ý] VBA STRING ¦r¦ê ³Ì¦h¦r¤¸­­¨î??

[µo°Ý] VBA STRING ¦r¦ê ³Ì¦h¦r¤¸­­¨î??

½Ð°Ý¦U¦ì¤j¤j¡A§Ú¦p¦ó¼W¥[STRING¦r¦ê¤¤³Ì¤jªº¦r¤¸¼Æ¥Ø¶q
§Ú³Q­­¨î¦b255ªº¦r¤¸

ÁÂÁÂ

TOP

¦^´_ 2# c_c_lai

¤p§Ì¤£¤~¡A¤£ª¾¬°¦ó¥Î¦¹«Å§i«á¡A¦r¤¸§¹¥þ¤£¥X¨Ó¤F???

Dim i As String
i = Space(64000)
                                                                                                                                 
For j = 1 To 1000
i = i & j
Next j
     MsgBox i
End Sub

TOP

¦^´_ 3# lichang
°õ¦æ«á¡A©Ò±oªºi­È¦r¤¸ªø«×¦@66893­Ó¦r¤¸¡A¨ä¤¤³Ì«e­±ªº64000­Ó¦r¤¸¬OªÅ¥Õ¦r¤¸¡C
¦] MsgBox ªº­­¨î³Ì¦h¥u¯àÅã¥Ü1023­Ó¦r¤¸¡A©Ò¥H MsgBox i¥u¯àÅã¥Ü66893¦r¤¸ªº«e1023­ÓªÅ¥Õ¦r¤¸(Ãþ¦üµL¦r¤Ñ®Ñ)¡C
½Ð¥Î©³¤Uªº¨Ó´ú¸Õ¬Ý¬Ý¡G
Sub test()
    For i = 1 To 1000
        For j = 1 To 10
            x = x & Right(j, 1)
        Next j
    Next i
    MsgBox x        '³Ì¦h¥u¯àÅã¥Ü1023­Ó¦r¤¸
    MsgBox "¨ä¹ê x ªº¦r¤¸ªø«×¬O¡G" & Len(x)
End Sub
¬°¦ó­n­Ó¤Hñ¦W

TOP

¦^´_ 4# ³X«È

¨º½Ð°Ý¦³¤°»ò¤è¦¡¥i¥H©Ò¦³°T®§³£Åã¥Ü¥X¨Ó¶Ü??

TOP

¦^´_ 5# lichang
­Y¯u­n¬Ý¨º»ò¦h¦r¤¸°T®§¡A¦b·Q¤£¨ì¦nªº©Û¼Æ¤U¡A¥u¯à©î¤À«áÅã¥Ü©óÀx¦s®æ¤F¡C
¦p¤U½d¨Ò¡G
Sub test()
    For i = 1 To 1000
        For j = 1 To 10
            x = x & Right(j, 1)
        Next j
    Next i
    MsgBox x        '³Ì¦h¥u¯àÅã¥Ü1023­Ó¦r¤¸
    MsgBox "¨ä¹ê x ªº¦r¤¸ªø«×¬O¡G" & Len(x)
   
    ' ±N°T®§¥H¨C50­Ó¦r¤¸©î¤À«á©ñ¤JÀx¦s®æ
    For i = 1 To Len(x) Step 50
        r = r + 1
        Cells(r, 1).NumberFormatLocal = "@"
        Cells(r, 1).Value = Mid(x, i, 50)
    Next i
End Sub

TOP

¥Î textbox ¸Ë

TOP

or ¼g¨ì txt ÀÉ

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD