µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Office¤£¤À°Ï
» ¨Dºë²µ{¦¡
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
¨Dºë²µ{¦¡
tureD
µoµu®ø®§
¥[¬°¦n¤Í
tureD
·í«eÂ÷½u
UID
40789
©«¤l
1
¥DÃD
1
ºëµØ
0
¿n¤À
2
ª÷¿ú
2
ÂI¦W
0
§@·~¨t²Î
win10
³nÅ骩¥»
22H2
¾\ŪÅv
10
¦b½u®É¶¡
0 ¤p®É
µù¥U®É¶¡
2024-9-19
³Ì«áµn¿ý
2024-9-23
¤p¾Ç¥Í
©«¤l
1
¥DÃD
1
ºëµØ
0
¿n¤À
2
ÂI¦W
0
§@·~¨t²Î
win10
³nÅ骩¥»
22H2
¾\ŪÅv
10
µù¥U®É¶¡
2024-9-19
³Ì«áµn¿ý
2024-9-23
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2024-9-19 15:07
|
¥u¬Ý¸Ó§@ªÌ
¨Dºë²µ{¦¡
·Q¯}ÀY,¤£ª¾¦p¦óºë²
Sub Json_split_Range()
Dim i As Integer
S = Range("A2")
arr = Split(S, "[")
Cells(3, 1) = arr(1)
ARR1 = Split(arr(1), ",")
ARR2 = Split(Trim(ARR1(0)), ":")
Cells(4, 1) = ARR2(1)
ARR2 = Split(Trim(ARR1(1)), ":")
Cells(4, 2) = ARR2(1)
ARR2 = Split(Trim(ARR1(2)), ":")
Cells(5, 1) = ARR2(1)
ARR2 = Split(Trim(ARR1(3)), ":")
Cells(5, 2) = ARR2(1)
ARR2 = Split(Trim(ARR1(4)), ":")
Cells(6, 1) = ARR2(1)
ARR2 = Split(Trim(ARR1(5)), ":")
Cells(6, 2) = ARR2(1)
End Sub
¦¬ÂÃ
¤À¨É
doomtwo222
µoµu®ø®§
¥[¬°¦n¤Í
doomtwo222
·í«eÂ÷½u
UID
40770
©«¤l
16
¥DÃD
16
ºëµØ
0
¿n¤À
14
ª÷¿ú
14
ÂI¦W
0
§@·~¨t²Î
windows
³nÅ骩¥»
win10
¾\ŪÅv
10
©Ê§O
¨k
¨Ó¦Û
taiwan
¦b½u®É¶¡
2 ¤p®É
µù¥U®É¶¡
2024-9-9
³Ì«áµn¿ý
2024-10-7
¤p¾Ç¥Í
©«¤l
16
¥DÃD
16
ºëµØ
0
¿n¤À
14
ÂI¦W
0
§@·~¨t²Î
windows
³nÅ骩¥»
win10
¾\ŪÅv
10
©Ê§O
¨k
¨Ó¦Û
taiwan
µù¥U®É¶¡
2024-9-9
³Ì«áµn¿ý
2024-10-7
2
#
µoªí©ó
¬Q¤Ñ 16:43
|
¥u¬Ý¸Ó§@ªÌ
Sub Json_split_Range()
Dim i As Integer
Dim S As String
Dim arr As Variant
Dim ARR1 As Variant
Dim ARR2 As Variant
' ¨ú±oÀx¦s®æ A2 ªºÈ
S = Range("A2").Value
' ¥ý±N¾ãÓ JSON ¦r¦ê¤À³Î
arr = Split(S, "[")
Cells(3, 1).Value = arr(1)
' ±N JSON ¤¤ªº³r¸¹¤À¹jȤÀ³Î
ARR1 = Split(arr(1), ",")
' °j°é¸ÑªR¨CÓ¤À¹jÈ¡A¨Ã¶ñ¤J¬ÛÀ³ªºÀx¦s®æ
For i = 0 To UBound(ARR1)
ARR2 = Split(Trim(ARR1(i)), ":")
' i °¸¼Æ®É©ñ¦b¥ª°¼Äæ¦ì¡A©_¼Æ®É©ñ¦b¥k°¼Äæ¦ì
Cells(4 + Int(i / 2), 1 + (i Mod 2)).Value = ARR2(1)
Next i
End Sub
¤@Å¥´NÀ´¡A¤@¬Ý´N·|¡A¤@°µ´N¿ù
TOP
ÀR«ä¦Û¦b :
¤£n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µLªº¥i¯à¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·