You Look Too Cool » VBAã§Excelã®è¡¨ã‚’JSONå½¢å¼ã«å¤‰æ›ã™ã‚‹
Sub 表をJSONå½¢å¼ã«ã™ã‚‹() Dim arr(1000) Dim gyo, retsu, gyosu, cnt As Long Dim lin, temp As String arr(0) = “[" gyo = 2 Do retsu = 1 lin = "" Do temp = Chr(34) & Cells(1, retsu) & Chr(34) & ":" & Chr(34) & Cells(gyo, retsu) & Chr(34) lin = lin & "," & temp retsu = retsu + 1 Loop Until Cells(gyo, retsu) = "" lin = Mid(lin, 2) arr(gyo - 1) = "{" & lin & "}," gyo = gyo + 1 Loop Until Cells(g
3分ã§ã‚ã‹ã‚‹ï¼ä»•äº‹ã«å½¹ç«‹ã¤Excelテクニック：ITpro
Excelã¯ä»•äº‹ã®ãƒ„ールã¨ã—ã¦ã¯éžå¸¸ã«ãƒãƒ”ュラーãªã‚½ãƒ•ãƒˆã§ã™ãŒï¼Œå¤šæ©Ÿèƒ½ãŒã‚†ãˆã«ï¼Œãã®ä¾¿åˆ©ãªæ©Ÿèƒ½ã‚’å分ã«ä½¿ã„ã“ãªã›ã¦ã„ãªã„人ãŒéžå¸¸ã«å¤šã„ã®ã§ã¯ãªã„ã§ã—ょã†ã‹ã€‚ãã“ã§ã“ã®é€£è¼‰ã§ã¯ï¼Œâ€œæ“作自体ã¯æ±ºã—ã¦é›£ã—ã„ã‚‚ã®ã§ã¯ãªã„ã‘ã‚Œã©ï¼Œæ„外ã¨çŸ¥ã‚‰ã‚Œã¦ã„ãªã„â€ã¨ã„ã†Excelã®ä¾¿åˆ©ãªãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã‚’厳é¸ã—ã¦ç´¹ä»‹ã—ã¦ã„ãã¾ã™ã€‚ãœã²ã”期待ãã ã•ã„ï¼
Google ドã‚ュメント
Not your computer? Use a private browsing window to sign in. Learn more about using Guest mode
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}