[B! VBA] kenjiro_nã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

kenjiro_n id:kenjiro_n

VBAã«é–¢ã™ã‚‹kenjiro_nã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (55)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

å®‡å®™ä¸€ã‚ã‹ã‚Šã‚„ã™ã„ï¼ŸVBA-JSONã‚’ä½¿ã£ãŸJSONãƒ‘ãƒ¼ã‚¹ã®ã—ã‹ãŸ - Qiita
ã¯ã˜ã‚ã« VBAã§JSONã‚’ãƒ‘ãƒ¼ã‚¹ã™ã‚‹éš›ã«ã¯CreateObject("ScriptControl")ã‚’ä½¿ç”¨ã™ã‚‹ã®ãŒä¸€èˆ¬çš„ã§ã—ã‚‡ã†ã€‚(ã‚µãƒ³ãƒ—ãƒ«ä¾‹) ã—ã‹ã—ã€ã“ã®æ‰‹æ®µã¯32bité™å®šã§ã‚ã‚Šã€64bitã§ã¯ä½¿ç”¨ã§ãã¾ã›ã‚“ã€‚å°†æ¥æ€§ã‚’è€ƒãˆãŸã‚‰ä»–ã®æ‰‹æ³•ã‚’ç”¨ã„ã‚‹ã¹ãã§ã‚ã‚Šã€JSONãƒ‘ãƒ¼ã‚¹ã®ãƒ©ã‚¤ãƒ–ãƒ©ãƒªãƒ¼ã¨ã—ã¦ä¸€èˆ¬çš„ãªVBA-JSONã‚’ä½¿ã£ã¦ã¿ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸã€‚ å°Žå…¥ã®èƒŒæ™¯ Excel2010ã®ã‚µãƒãƒ¼ãƒˆã‚‚ãã‚ãã‚æ¥å¹´ã«ãã‚Œã‚‹ã—ã€å¿…è¦ãªã¨ãã«å¿…è¦ãªã ã‘ãƒãƒ©ãƒãƒ©ã«è²·ã£ã¦ã„ãŸã®ã‚’ã‚„ã‚ã¦ã€Office365ã«ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚¢ãƒƒãƒ—ã—ã‚ˆã†ã¨ã—ãŸã‚‰64bitç‰ˆãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ã—ã¾ã£ã¦ã€JSONã‚’ä½¿ãˆãªã‚Šã¾ã—ãŸã€‚ãªãŠã€"HtmlFile"ãªã‚‹æ‰‹æ®µã‚’ä½¿ã†ã‚„ã‚Šæ–¹ã‚‚ã‚ã‚‹ã‚ˆã†ã§ã™ãŒã€IEã‚„edgeã®å°†æ¥æ€§ã‚’è€ƒãˆãŸã‚‰ã“ã‚Œã‚‚ã¤ã‹ã„ãŸãã‚ã‚Šã¾ã›ã‚“ã€‚ ä»Šã¾ã§VBA-JSONã‚’è¦‹é€ã£ãŸèƒŒæ™¯ ãªã‚‰ã€VBA-JSONã—ã‹ãªã„ã¨ãªã‚Šã¾ã—ãŸãŒã€
kenjiro_n 2024/10/24
VBA

JSON
ãƒªãƒ³ã‚¯
GitHub - VBA-tools/VBA-JSON: JSON conversion and parsing for VBA
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session. Dismiss alert
kenjiro_n 2024/10/24
VBA

JSON
ãƒªãƒ³ã‚¯
Excelã®ã‚°ãƒ©ãƒ•ã«3è»¸ç›®ã‚’è¿½åŠ ã—ãŸã„ã€‚ãã†ã äºŒã¤ã®ã‚°ãƒ©ãƒ•ã‚’é‡ãã‚‹ã“ã¨ã«ã—ã‚ˆã†ã€‚ã€VBAä½¿ç”¨ã€‘ - ãƒ‘ã‚½ã‚³ãƒ³é–¢é€£ã‚‚ã‚ã‚‚ã‚
ã¯ã˜ã‚ã« Excelã®ã‚°ãƒ©ãƒ•ã«ç¬¬3è»¸ã‚’è¿½åŠ ã—ãŸã„ã¨ããŒã‚ã‚Šã¾ã™ã€‚ ã“ã‚“ãªã‚°ãƒ©ãƒ•ã‚’æããŸã„ å‰å›žäºŒã¤ã®ã‚°ãƒ©ãƒ•ã‚’é‡ãã‚‹ã“ã¨ã§æŠ˜ã‚Œç·šã‚°ãƒ©ãƒ•ã‚’æ£’ã‚°ãƒ©ãƒ•ã®å¾Œã‚ã«ã‚‚ã£ã¦ãã‚‹æ–¹æ³•ã‚’ç´¹ä»‹ã—ã¾ã—ãŸã€‚ touch-sp.hatena blog.com åŒã˜ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã§ä»Šå›žã¯ç¬¬3è»¸ã‚’è¿½åŠ ã™ã‚‹æ–¹æ³•ã‚’ç´¹ä»‹ã—ã¾ã™ã€‚ å…ƒã®ãƒ‡ãƒ¼ã‚¿ ä»Šå›žã¯ä¾‹ã¨ã—ã¦ã“ã®ã‚ˆã†ãªãƒ‡ãƒ¼ã‚¿ã‚’ä½¿ç”¨ã™ã‚‹ã“ã¨ã«ã—ã¾ã™ã€‚ æ™®é€šã«ã‚°ãƒ©ãƒ•ã‚’æãã¨å·¦ã®ã‚ˆã†ã«ãªã‚‹ã¨æ€ã„ã¾ã™ã€‚ æ–¹æ³• æ¬¡ã®ã‚ˆã†ãªäºŒã¤ã®ã‚°ãƒ©ãƒ•ã‚’æã„ã¦ãã‚Œã‚‰ã‚’é‡ãåˆã‚ã›ã¦å®Œæˆã§ã™ã€‚ ã¾ãšã¯Excelã‚·ãƒ¼ãƒˆã‚’ä»¥ä¸‹ã®ã‚ˆã†ã«æ‹¡å¼µã—ã¾ã™ å·¦å´ã®ã‚°ãƒ©ãƒ•ã‚’æãã¨ãã«ã¯ã€ŒAã€ã¨ã€ŒBã€ã¯åŒã˜è»¸ï¼ˆå·¦å´ã®è»¸ï¼‰ã‚’ä½¿ã„ã¾ã™ã®ã§ã€ŒAã€ã®å€¤ã‚’10å€ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚ å³å´ã®ã‚°ãƒ©ãƒ•ã¯ç¸¦è»¸ã®æœ€å¤§å€¤ã‚’60ã«è¨å®šã—ã¦ã€Œ100ã€ã¨ã„ã†æ•°å—ã‚’ãƒ—ãƒãƒƒãƒˆã—ã¦ã„ã¾ã™ã€‚ã€Œ100ã€ã¨ã„ã†æ•°å—ã¯ã‚°ãƒ©ãƒ•è¡¨ç¤ºå¯èƒ½ãªç¯„å›²å¤–ã§ã™ã®ã§è»¸ã ã‘æ®‹ã‚Šã¾ã™ã€‚ã€Œ100ã€ã§ãª
kenjiro_n 2023/09/13
MSOffice

graph

VBA
ãƒªãƒ³ã‚¯
MS Office Excel2016, Word2016ï¼š å›³å½¢ã®ç¶²æŽ›ã‘ï¼ˆå¡—ã‚Šã¤ã¶ã—ï¼ˆãƒ‘ã‚¿ãƒ¼ãƒ³ï¼‰ï¼‰ã¨é€æ˜Žåº¦ã®è¨å®š - ã¨ã‚ã‚‹ãƒ²ã‚¿ã‚¯ã®è¶…é›»æ³¢ãƒ–ãƒã‚°
PCè¨˜äº‹ã¯è‡ªåˆ†ç”¨ã®å‚™å¿˜éŒ²ï¼ˆçœŸä¼¼ã™ã‚‹ã¨ãã¯è‡ªå·±è²¬ä»»ã§ï¼‰ã€‚ã‚³ãƒ¡ãƒ³ãƒˆã¸ã®è¿”äº‹ãŒå¤§å¤‰ã«ãªã£ã¦ããŸã®ã§ã™ã‚‹ã®è«¦ã‚ã¾ã—ãŸï¼ˆã‚´ãƒ¡ãƒ³ï¼‰ Excel2016ï¼ŒWord2016ã«ã¦å›³å½¢ã®ç¶²æŽ›ã‘ã‚’ã—ãŸã®ã¯ã„ã„ãŒï¼Œé€æ˜Žåº¦ã®è¨å®šãŒãªãã¦èƒŒæ™¯ã‚’é€ã‹ã—ã¦è¦‹ã›ã‚‹ã“ã¨ãŒã§ããšå›°ã£ãŸã€‚ ã§ï¼Œã•ã£ããã‚°ã‚°ã£ã¦èª¿ã¹ã‚‹ã¨ã‚ã£ã•ã‚Šè§£æ±ºï¼ˆï¼¾ï¼¾ï¼‰ã§ã‚‚ï¼Œæ™‚é–“ãŒçµŒã¦ã°å¿˜ã‚Œã‚‹ã®ã§ãƒ¡ãƒ¢ã«æ®‹ã—ã¦ãŠãã“ã¨ã«ã—ã¾ã—ãŸã€‚ ã¡ãªã¿ã«ï¼ŒExcel2013ï¼ŒWord2013ã§ã‚‚åŒæ§˜ã®æ–¹æ³•ã§ã§ãã‚‹ã‚ˆã†ã§ã™ã€‚ ä¾‹ãˆã°Excelã§ä¸Šã®ã‚ˆã†ãªã‚®ã‚¶ã‚®ã‚¶ã®æ˜Ÿå›³å½¢ã‚’ä½œã£ãŸã¨ã—ã¾ã™ã€‚ ã“ã®å›³å½¢ã‚’ã€Œå¡—ã‚Šã¤ã¶ã—ï¼ˆãƒ‘ã‚¿ãƒ¼ãƒ³ï¼‰ã€ã«ã¦ç¶²æŽ›ã‘ã‚’ã—ã¾ã™ã€‚ 1) å›³å½¢ã‚’ãƒ¯ãƒ³ãƒ»ã‚¯ãƒªãƒƒã‚¯ï¼ˆå·¦ã‚¯ãƒªãƒƒã‚¯ï¼‰ã—ã¦é¸æŠžã—ã¾ã™ã€‚ 2) ã€Œæ›¸å¼ã‚¿ãƒ–ã€ã«ã‚ã‚‹ã€Œå›³å½¢ã®ã‚¹ã‚¿ã‚¤ãƒ«ã€ã®å³ä¸‹ã®éƒ¨åˆ†ã‚’ã‚¯ãƒªãƒƒã‚¯ã™ã‚‹ ã™ã‚‹ã¨å³å´ã«ã€Œå›³å½¢ã®æ›¸å¼è¨å®šã€ãŒé–‹ãã¾ã™ã€‚(ã¡ãªã¿ã«ï¼Œå›³å½¢ã‚’å³ã‚¯ãƒªãƒƒã‚¯ã—ã¦ã€Œå›³å½¢ã®æ›¸å¼è¨å®šã€ã‚’é¸æŠžã—ã¦ã‚‚åŒã˜
kenjiro_n 2021/09/08
å›³å½¢ã‚’é¸æŠžã—ãŸã‚ã¨ã«VBAã®ã‚¤ãƒŸãƒ‡ã‚£ã‚¨ã‚¤ãƒˆã‚¦ã‚£ãƒ³ãƒ‰ã‚¦ã§ã€€Selection.ShapeRange.Fill.Transparency = 0.8 ï¼ˆå³è¾ºã¯1.0ã§é€æ˜Žã€0.0ã§ä¸é€æ˜Žã¨ãªã‚‹å€¤ï¼‰ã¨å…¥åŠ›ã™ã‚‹ã¨è‰¯ã„ã¨ã®ã“ã¨ã€‚ãªã‚“ã§å›³å½¢ã®è©³ç´°ã§èª¿æ•´ã§ããªã„ã‚“ã§ã™ã‹ãã€‚

MSOffice

badknowhow

VBA
ãƒªãƒ³ã‚¯
VBA PowerPointã®ãƒ†ã‚ã‚¹ãƒˆæŠ½å‡ºï½œã®ã¶
PowerPointã®ã‚¹ãƒ©ã‚¤ãƒ‰ä¸Šã§é¸æŠžã—ãŸãƒ†ã‚ã‚¹ãƒˆãƒœãƒƒã‚¯ã‚¹ãªã©ã‹ã‚‰ã€ãƒ†ã‚ã‚¹ãƒˆã‚’æŠ½å‡ºã—ã¦ã‚¯ãƒªãƒƒãƒ—ãƒœãƒ¼ãƒ‰ã«ã‚³ãƒ”ãƒ¼ã™ã‚‹ãƒ„ãƒ¼ãƒ«ã®ã”ç´¹ä»‹ã§ã™ã€‚ PowerPointæ–‡æ›¸ã«è¨˜è¼‰ã•ã‚Œã¦ã„ã‚‹æ–‡ç« ã‚’æµç”¨ã™ã‚‹æ™‚ãªã©ã«ã€å¯¾è±¡ã®ãƒ†ã‚ã‚¹ãƒˆãŒï¼‘ã¤ã®ãƒ†ã‚ã‚¹ãƒˆãƒœãƒƒã‚¯ã‚¹ã«åŽã¾ã£ã¦ã„ã‚Œã°ã€ãã®ãƒ†ã‚ã‚¹ãƒˆã‚’ï¼‘å›žé¸æŠžã‚³ãƒ”ãƒ¼ã™ã‚‹ã ã‘ã§æ¸ˆã¿ã¾ã™ã€‚ã—ã‹ã—ã€ãã‚ŒãŒè¤‡æ•°ã®ãƒ†ã‚ã‚¹ãƒˆãƒœãƒƒã‚¯ã‚¹ã«åˆ†ã‹ã‚Œã¦ã„ãŸã‚Šã™ã‚‹ã¨ã€é¸æŠžã‚³ãƒ”ãƒ¼ã®æ“ä½œã‚’è¤‡æ•°å›žè¡Œã†å¿…è¦ãŒã‚ã‚Šé¢å€’ã§ã™ã€‚ ãã“ã§ã€PowerPointæ–‡æ›¸ã«VBAãƒ—ãƒã‚°ãƒ©ãƒ ã‚’çµ„ã¿è¾¼ã‚“ã§ã€ã‚¹ãƒ©ã‚¤ãƒ‰ä¸Šã§é¸æŠžã—ãŸãƒ†ã‚ã‚¹ãƒˆãƒœãƒƒã‚¯ã‚¹ãªã©ã‹ã‚‰ã€ãƒ†ã‚ã‚¹ãƒˆã‚’æŠ½å‡ºã—ã¦ã‚¯ãƒªãƒƒãƒ—ãƒœãƒ¼ãƒ‰ã«ã‚³ãƒ”ãƒ¼ã™ã‚‹ãƒ„ãƒ¼ãƒ«ã‚’ä½œæˆã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ ãƒ—ãƒã‚°ãƒ©ãƒ ã‚³ãƒ¼ãƒ‰ã¯ã€å‰å›žè¨˜äº‹ã€Œ10.VBA PowerPointæ–‡æ›¸ãƒ•ã‚©ãƒ³ãƒˆå¤‰æ›´ã®ä»•ä¸Šã’ã€ã‹ã‚‰ä¸€éƒ¨æµç”¨ã—ã¦ä½œæˆã—ã¾ã™ã€‚ æ–°è¦æ–‡æ›¸ã®ä½œæˆã¾ãšã¯ã€ãƒ†ã‚¹ãƒˆç’°å¢ƒã‚‚å…¼ããŸVBAãƒ—ãƒã‚°ãƒ©ãƒ ã‚’çµ„ã¿è¾¼ã‚€ãŸã‚ã®æ–°è¦æ–‡æ›¸ã‚’ä½œ
kenjiro_n 2021/03/08
MSOffice

VBA

text
ãƒªãƒ³ã‚¯
ï¼»VBAä¾¿åˆ©æŠ€ï¼½PowerPointã®ã‚¹ãƒ©ã‚¤ãƒ‰ã‹ã‚‰ãƒ†ã‚ã‚¹ãƒˆã‚’æŠ½å‡º
PowerPointã§ä½œæˆã—ãŸãƒ—ãƒ¬ã‚¼ãƒ³ãƒ†ãƒ¼ã‚·ãƒ§ãƒ³ã®å†…å®¹ã‚’åŸºã«ã€Wordã§æ–‡æ›¸ã‚’ä½œæˆã—ãŸã‚Šã€Webãƒšãƒ¼ã‚¸ã®ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã‚’ä½œæˆã—ãŸã‚Šã™ã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ãã®éš›ã€ã‚¹ãƒ©ã‚¤ãƒ‰ã®ã‚¿ã‚¤ãƒˆãƒ«ã‚„ãƒ†ã‚ã‚¹ãƒˆã‚’1ã¤ãšã¤ã‚³ãƒ”ãƒ¼ï¼†ãƒšãƒ¼ã‚¹ãƒˆã—ã¦ã„ã¾ã›ã‚“ã‹ã€‚ ãã‚“ãªé¢å€’ãªä½œæ¥ã¯ãƒžã‚¯ãƒã§è‡ªå‹•åŒ–ã—ã¾ã—ã‚‡ã†ã€‚ã“ã“ã§ã¯ã€PowerPointã®VBEã§ã€ã‚¹ãƒ©ã‚¤ãƒ‰å†…ã®ãƒ†ã‚ã‚¹ãƒˆã‚’ãƒ¯ãƒ³ã‚¿ãƒƒãƒã§æŠ½å‡ºã—ã¦ãƒ†ã‚ã‚¹ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã«åãå‡ºã™ãƒžã‚¯ãƒã‚’ä½œæˆã—ã¾ã™ï¼ˆãƒªã‚¹ãƒˆ1ï¼‰ã€‚
kenjiro_n 2021/03/08
MSOffice

VBA

text
ãƒªãƒ³ã‚¯
Excelã®å®šç¾©æ›¸ã‹ã‚‰VBAã§SQLã‚’ä½œæˆã™ã‚‹
CREATEæ–‡ã‚’ä½œæˆã™ã‚‹ãƒžã‚¯ãƒ ã¨ã‚Šã‚ãˆãšã€æœ€ã‚‚ä½¿ã„ãã†ãªCREATEæ–‡(DDL)ã‚’ä½œæˆã™ã‚‹VBAãƒžã‚¯ãƒã‚’ä½œã£ã¦ã¿ã‚‹ã“ã¨ã«ã—ã¾ã—ãŸã€‚ ã‚½ãƒ¼ã‚¹ã¯ä»¥ä¸‹ã«ãªã‚Šã¾ã™ã€‚ '=====å®šæ•°å®šç¾©===== 'ãƒ†ãƒ¼ãƒ–ãƒ«ç‰©ç†åã®ã‚»ãƒ«ç•ªå· Private Const COL_TABLE_NAME As Integer = 4 Private Const ROW_TABLE_NAME As Long = 1 'ãƒ†ãƒ¼ãƒ–ãƒ«è«–ç†åã®ã‚»ãƒ«ç•ªå· Private Const COL_TABLE_COMMENT As Integer = 4 Private Const ROW_TABLE_COMMENT As Long = 2 'é …ç›®é–‹å§‹è¡Œ Private Const ROW_COLUMNS_START As Long = 5 'é …ç›®ã®åˆ—å®šç¾© Enum enm_columns NO = 2 'No COLUMN_NAME '
kenjiro_n 2021/03/03
SQL

VBA

MSOffice
ãƒªãƒ³ã‚¯
Excelã‹ã‚‰Createæ–‡ã‚’ | SQLServerå¤§å¥½ã
Excelã«è¨˜å…¥ã—ãŸãƒ†ãƒ¼ãƒ–ãƒ«å®šç¾©ã‹ã‚‰ã€Createæ–‡ã‚’ãƒžã‚¯ãƒã§ä½œæˆã—ã¾ã™ã€‚ Createæ–‡ä½œæˆãƒžã‚¯ãƒå…¥ã‚ŠExcelï¼šcreate_table_macro.xls ãƒ†ãƒ¼ãƒ–ãƒ«å®šç¾©æ›¸Excelï¼štable_doc_sample.xlt ï½žä½¿ã„æ–¹ï½ž 1.C:\workãƒ•ã‚©ãƒ«ãƒ€ã‚’ä½œæˆã—ã¾ã™ã€‚ 2.ãƒ†ãƒ¼ãƒ–ãƒ«å®šç¾©æ›¸EXCELãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ã„ã¦ã€ä½œæˆã—ãŸã„ãƒ†ãƒ¼ãƒ–ãƒ«ã®ã‚·ãƒ¼ãƒˆã‚’é¸æŠžã—ã¾ã™ã€‚ ãƒ†ãƒ¼ãƒ–ãƒ«å®šç¾©æ›¸ã®ã‚µãƒ³ãƒ—ãƒ«ï¼štable_doc_sample.xlt 3.ãƒ†ãƒ¼ãƒ–ãƒ«ä½œæˆãƒžã‚¯ãƒå…¥ã‚ŠEXCELã®ãƒžã‚¯ãƒã‚’å®Ÿè¡Œã—ã¾ã™ã€‚ 4.C:\work\create.txtãŒå‡ºæ¥ä¸ŠãŒã‚Šã¾ã™ã€‚ ä½œæˆã•ã‚ŒãŸcreateæ–‡ã‚’ä½¿ã£ã¦ã€DBã«ãƒ†ãƒ¼ãƒ–ãƒ«ã‚’ä½œæˆã—ã¾ã™ã€‚ 0 people found this article useful This article was helpful This article was helpful 0 p
kenjiro_n 2021/03/03
MSOffice

VBA

SQL

automation
ãƒªãƒ³ã‚¯
VBAé–‹ç™ºç’°å¢ƒã‚’ãƒ¢ãƒ€ãƒ³ã«ã™ã‚‹ - Rubberduckã¨VBEThemeColorEditorã®ç´¹ä»‹ - Qiita
VBAã®IDEã¯å¤ã®VBE... ãªã‚“ã ã‹ã‚“ã ã§VBAã‚’è§¦ã‚‹æ©Ÿä¼šãŒçµæ§‹ã‚ã‚‹ãŒã€IDEã¯VBEã€‚ å°‘ãªãã¨ã‚‚ãƒãƒ¼ã‚¸ãƒ§ãƒ³ç®¡ç†ã¯ã»ã—ã„ ã§ãã‚‹é™ã‚Šãƒ¢ãƒ€ãƒ³ãªé–‹ç™ºç’°å¢ƒã«è¿‘ã¥ã‘ãŸã„ è¦‹ãŸç›®ãªã‚“ã¨ã‹ã—ãŸã„ ã¨ã„ã†ã“ã¨ã§è‰²ã€…èª¿ã¹ã¦ã„ãŸã‚‰ã€2ã¤ã®ã‚¢ãƒ‰ã‚¤ãƒ³ãƒ»ãƒ„ãƒ¼ãƒ«ã‚’ä½¿ã†ã“ã¨ã§ã‹ãªã‚Šãã‚Œã£ã½ã„æ„Ÿã˜ã«ã§ãã‚‹ã“ã¨ãŒåˆ†ã‹ã£ãŸã€‚ã¡ãªã¿ã«ç’°å¢ƒã¯ windows10(64bit) + office2016(32bit) ã§ç¢ºèªã€‚ ç´¹ä»‹ã™ã‚‹ã‚¢ãƒ‰ã‚¤ãƒ³ãƒ»ãƒ„ãƒ¼ãƒ« RubberDuck VBEã‚’ç¾ä»£ã®IDEã£ã½ãã—ã¦ãã‚Œã‚‹ãƒ¤ãƒã„ã‚¢ãƒ‰ã‚¤ãƒ³ã€‚1å¹´å‰ãã‚‰ã„ã«ä¸€åº¦è©¦ã—ã¦ã¿ã‚‹ã‚‚ã€å‹•ä½œãŒã‹ãªã‚Šä¸å®‰å®šã§ãã®æ™‚ã¯ä½¿ã†ã®ã‚’ã‚ãã‚‰ã‚ãŸã€‚ æœ€è¿‘ãƒãƒ¼ã‚¸ãƒ§ãƒ³2.2ãŒãƒªãƒªãƒ¼ã‚¹ã•ã‚Œã¦ã„ãŸã®ã§ã‚‚ã†ä¸€åº¦å…¥ã‚Œã¦ã¿ãŸã¨ã“ã‚ã€ã™ã‚“ãªã‚Šã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã§ãã¦å‹•ä½œã‚‚ã‹ãªã‚Šå®‰å®šã—ã¦ã„ã‚‹ï¼ã¨ã„ã†ã“ã¨ã§å°Žå…¥æ±ºå®šã€‚ 2018/06/10æ™‚ç‚¹ã®å®‰å®šç‰ˆ VBAã®ã‚¨ãƒ‡ã‚£ã‚¿ã®è‰²è¨å®šã¯ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§
kenjiro_n 2020/09/29
VBA

MSOffice

software
ãƒªãƒ³ã‚¯
[ExcelVBA] æ§‹é€ ä½“+ã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³ã§ã€ãƒ—ãƒãƒ‘ãƒ†ã‚£ã‚’å‹•çš„ã«æŒ‡å®šã—ã¦è¨ˆç®—ã™ã‚‹æ–¹æ³•ã‚’è€ƒãˆã‚‹
ã‚¯ãƒ©ã‚¹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã£ã¦ã€æ§‹é€ ä½“ã¨ã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³ã‚’çµ„ã¿åˆã‚ã›ã‚‹ã“ã¨ã§ã€DBã®ãƒ¬ã‚³ãƒ¼ãƒ‰ã®ã‚ˆã†ãªå½¢ã®ãƒ‡ãƒ¼ã‚¿ãŒæ‰±ãˆã‚‹ã¨ã„ã†è¨˜äº‹ã‚’å‰ã«æ›¸ã„ãŸã‚“ã§ã™ãŒã€ç‰¹å®šã®ãƒ—ãƒãƒ‘ãƒ†ã‚£ã‚’é¸ã‚“ã§å¹³å‡å€¤ç®—å‡ºã‚’ã‚¹ãƒžãƒ¼ãƒˆã«æ›¸ãã«ã¯ã€ã¨ã„ã†è³ªå•ã‚’ã„ãŸã ãã¾ã—ãŸã€‚ èƒŒæ™¯ ã“ã¡ã‚‰ã®è¨˜äº‹ã®ã‚³ãƒ¡ãƒ³ãƒˆã«ã„ãŸã ã„ãŸè³ªå•ã§ã™ã€‚ Excel VBAã§ã‚¯ãƒ©ã‚¹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’æ´»ç”¨ã—ã¦CSVãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³ã«æ ¼ç´ã™ã‚‹ å†’é ã®å›³ã®ã‚ˆã†ãªãƒ‡ãƒ¼ã‚¿ãŒã‚ã‚‹ã¨ã—ã¦ã€ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆ.å¹³å‡å€¤(ãƒ—ãƒãƒ‘ãƒ†ã‚£, æŠ½å‡ºæ¡ä»¶)ã®ã‚ˆã†ã«æ›¸ã‘ãªã„ã‹ï¼Ÿã€€ã¨ã®ã“ã¨ã§ã€‚ãŠã‚‚ã—ã‚ãã†ã ãªã¨æ€ã£ã¦è€ƒãˆã¦ã¿ã¾ã—ãŸã€‚ ã‚¯ãƒ©ã‚¹ã‚’ä½œæˆ ã¾ãšã¯ã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³ã«æ§‹é€ ä½“ã‚’æŒãŸã›ã‚‹ãŸã‚ã®ã‚¯ãƒ©ã‚¹ã€‚å‰ã®è¨˜äº‹ã¨åŒã˜ã‚ˆã†ãªæ„Ÿã˜ã§ã™ã€‚ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆåã¯ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®Class1ã‹ã‚‰ListDetailã«å¤‰æ›´ã—ã¦ãã ã•ã„ã€‚ '### ListDetail / è©³ç´°ã‚¯ãƒ©ã‚¹ ### Public Index As Long '
kenjiro_n 2020/09/09
VBA

algorithm
ãƒªãƒ³ã‚¯
Accessã®ãƒ‡ãƒ¼ã‚¿ã‚’ã‚¨ã‚¯ã‚»ãƒ«ãƒ•ã‚¡ã‚¤ãƒ«ã«å‡ºåŠ›ã™ã‚‹(Access2000ä»¥é™ï¼‰ - ãƒ‘ã‚½ã‚³ãƒ³ã‚«ãƒ¬ãƒƒã‚¸ã€€ã‚¹ã‚¿ãƒƒãƒ•ã®ã²ã¨ã‚Šã”ã¨
ä»Šæ—¥ã‚‚ã€ã‚¢ã‚¯ã‚»ã‚¹ã‚’å–ã‚Šä¸Šã’ã¾ã™ã€‚ ä»»æ„ã®ãƒ†ãƒ¼ãƒ–ãƒ«ã‚‚ã—ãã¯ã‚¯ã‚¨ãƒªãƒ¼ã®ãƒ‡ãƒ¼ã‚¿ã‚’ã‚¨ã‚¯ã‚»ãƒ«ãƒ•ã‚¡ã‚¤ãƒ«ã«å‡ºåŠ›ã™ã‚‹æ–¹æ³•ã‚’ã”ç´¹ä»‹ã—ã¾ã™ã€‚ ãã®éš›ã€ã‚¨ã‚¯ã‚»ãƒ«ã®ãƒ•ã‚¡ã‚¤ãƒ«åã ã‘ã§ã¯ãªãã€ã‚·ãƒ¼ãƒˆåã‚‚æŒ‡å®šã—ã¦ã¿ã¾ã™ã€‚ ãªãŠã€ã‚·ãƒ¼ãƒˆåã‚’æŒ‡å®šã—ãªã„ã¨ã€ãƒ†ãƒ¼ãƒ–ãƒ«ã‚‚ã—ãã¯ã‚¯ã‚¨ãƒªãƒ¼ã®åå‰ãŒ ã‚·ãƒ¼ãƒˆåã¨ãªã‚Šã¾ã™ã‚ˆã€‚ ãªãŠã€Accessãƒ•ã‚¡ã‚¤ãƒ«ã¯ã€ãƒ‡ã‚¹ã‚¯ãƒˆãƒƒãƒ—ã«ä¿å˜ã—ã¦ã‚ã‚‹ã‚‚ã®ã¨ã—ã¾ã™ã€‚ ã‚¨ã‚¯ã‚»ãƒ«ãƒ•ã‚¡ã‚¤ãƒ«ã¯ã€åŒã˜ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªï¼ˆä»Šå›žã¯ã€ãƒ‡ã‚¹ã‚¯ãƒˆãƒƒãƒ—ã¨ãªã‚Šã¾ã™ï¼‰ã« å‡ºåŠ›ã•ã‚Œã‚‹ã‚ˆã†ã«ã—ã¾ã™ã€‚ å¾“ã£ã¦ã€ãƒžã‚¤ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã«Accessãƒ•ã‚¡ã‚¤ãƒ«ãŒä¿å˜ã—ã¦ã‚ã‚Œã°ã€ ã‚¨ã‚¯ã‚»ãƒ«ãƒ•ã‚¡ã‚¤ãƒ«ã‚‚è‡ªå‹•çš„ã«ãƒžã‚¤ãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆã«å‡ºåŠ›ã•ã‚Œã¾ã™ã€‚ Access2007ã§ã”èª¬æ˜Žã—ã¾ã™ãŒã€2003ã‚„XPãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã‚‚ã€å•é¡Œãªãå‹•ä½œã—ã¾ã™ã€‚ ä»¥ä¸‹ã®ç”»åƒã¯ã€ä»Šå›žã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã™ã‚‹ãƒ†ãƒ¼ãƒ–ãƒ«ã®ãƒ‡ãƒ¼ã‚¿ã§ã™ã€‚ Tè¬›åº§ã€€ã¨ã„ã†åå‰ã®ãƒ†ãƒ¼ãƒ–ãƒ«ã§ã™ã€‚ ãƒ•ã‚©ãƒ¼ãƒ ã‚’ãƒ‡ã‚¶ã‚¤ãƒ³ãƒ“ãƒ¥ãƒ¼ã§é–‹ã„ã¦ã€ãƒœã‚¿
kenjiro_n 2020/09/09
MSOffice

VBA

database
ãƒªãƒ³ã‚¯
æ™®é€šã®äº‹å‹™OLãŒVBAã®ãŠã‹ã’ã§ã¡ã‚‡ã£ã¨å¹¸ã›ã«ãªã£ãŸè©± - Qiita
Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article? ##ç§ãŒVBAã®å‹‰å¼·ã‚’å§‹ã‚ãŸãã£ã‹ã‘ã¨ã‹è‰²ã€…â€¦ ä»Šæ—¥ã¯ã‚³ãƒ¼ãƒ‰ã®è©±ã¨ã‹ã˜ã‚ƒãªã„ã§ã™ï¼ ä»Šæ—¥ã¯æ—¥æ›œæ—¥ã ã—ã€ã„ã¤ã‚‚ã¨é•ã†æ„Ÿã˜ã®ã“ã¨æ›¸ã„ã¦ã¿ã‚ˆã†ã‹ã¨æ€ã„ã¾ã—ãŸã€‚ ä»Šã‹ã‚‰VBAã®å‹‰å¼·ã‚’ã—ã¦ã¿ã‚ˆã†ã‹ãªã¨æ€ã£ã¦ã„ã‚‹æ™®é€šã®äº‹å‹™OLã®æ–¹ã«ã¯å‚è€ƒã«ãªã‚‹ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“ã€‚ ï¼ˆé™å®šçš„ãªã‚¿ãƒ¼ã‚²ãƒƒãƒˆï¼ç¬‘ï¼‰ ##ç‰¹åˆ¥ãªã‚¹ã‚ãƒ«ã‚’æŒã£ã¦ã‚‹ã¨æ™‚çµ¦ã‚‚è‰¯ã„ã£ã½ã„ã‘ã©â€¦ ç§ã¯ã“ã“æ•°å¹´ãšã£ã¨æ´¾é£ã®äº‹å‹™ã§åƒã„ã¦ã¾ã™ãŒã€ã„ã¤ã‚‚æ–°ã—ã„å‹Ÿé›†æ¡ˆä»¶ã¨ã‹ã¿ã‚‹åº¦ã«ãã†æ€ã£ã¦ã¾ã—ãŸã€‚ æ˜”ã‹ã‚‰Excelã¯å¤§å¥½ãã§ã€æ™®é€šã®äººã‚ˆã‚Šã¯ã¡ã‚‡ã£ã¨é–¢æ•°ã‚’ä½¿ã„ã“ãªã—ãŸã‚Šç°¡å˜ãªãƒžã‚¯ãƒã‚’ä½œã£ãŸã‚Šã—ãŸã“ã¨ã¯ã‚ã£ãŸã‚‚ã®ã®ã€
kenjiro_n 2020/09/08
VBA
ãƒªãƒ³ã‚¯
MS Access ã®VBAãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’å…¨ã¦ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆ
Microsoft Access ã®VBAãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ï¼ˆãƒ—ãƒã‚°ãƒ©ãƒ ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ï¼‰ã‚’ä¸€æ‹¬ã§ãƒ•ã‚¡ã‚¤ãƒ«ã«ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã™ã‚‹ã«ã¯ã€VBComponent.Export ãƒ¡ã‚½ãƒƒãƒ‰ã‚’ä½¿ã„ã¾ã™ã€‚ ä¸‹ã«ã‚µãƒ³ãƒ—ãƒ«ã‚’æŒ™ã’ã¾ã™ãŒã€å‚ç…§è¨å®šã¨ã—ã¦ä»¥ä¸‹ã®ï¼’ã¤ãŒäººå¿…è¦ã§ã™ã€‚ Microsoft Visual Basic for Applications Extensibility Microsoft Scripting Runtime å‚ç…§è¨å®šã¯ã€Visual Basic Editor(VBE)ã®ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã‹ã‚‰ã€ãƒ„ãƒ¼ãƒ«(T) ï¼ž å‚ç…§è¨å®š(R) ã¨è¾¿ã‚Šã¾ã™ã€‚ VBAãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ãƒ•ã‚¡ã‚¤ãƒ«ã«ã‚¨ã‚¯ã‚¹ãƒãƒ¼ãƒˆã™ã‚‹ã‚µãƒ³ãƒ—ãƒ« Sub ExportComponents() Dim Fso As New Scripting.FileSystemObject Dim OutDir As String OutDir = Fso.GetPare
kenjiro_n 2020/09/04
VBA

MSOffice
ãƒªãƒ³ã‚¯
Redirecting
kenjiro_n 2020/09/03
VBA
ãƒªãƒ³ã‚¯
Access 2013 ãƒ©ãƒ³ã‚¿ã‚¤ãƒ ã§ã®Accessèµ·å‹• [VBScript] : ã‚¹ã‚¯ãƒªãƒ—ãƒˆã¡ã‚‡ã£ã¨ãƒ¡ãƒ¢
kenjiro_n 2020/09/03
VBA

MSOffice
ãƒªãƒ³ã‚¯
å‚ç…§è¨å®šã¨CreateObjectã®å¯¾å¿œãƒªã‚¹ãƒˆ - You.Activate
ã¯ã˜ã‚ã« ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆã®ã‚µãƒ³ãƒ—ãƒ«ã‚’è¦‹ã¦ã„ã‚‹ã¨ã€ã“ã®å‚ç…§è¨å®šã«å¯¾å¿œã™ã‚‹CreateObjectãŒçŸ¥ã‚ŠãŸã„ã€ã‚ã‚‹ã„ã¯ã€ã“ã®CreateObjectã«å¯¾å¿œã™ã‚‹å‚ç…§è¨å®šãŒçŸ¥ã‚ŠãŸã„ã€ã¨ã„ã†ã“ã¨ã¯ã‚ã‚Šã¾ã›ã‚“ã‹ï¼Ÿ ã“ã®ãƒšãƒ¼ã‚¸ã§ã¯ã‚ˆãä½¿ã‚ã‚Œã‚‹ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã«ã¤ã„ã¦å‚ç…§è¨å®šã¨CreateObjectã®å¯¾å¿œé–¢ä¿‚ã‚’æ•´ç†ã—ã¾ã—ãŸã€‚ å‚ç…§è¨å®šã—ã¦ä½¿ã†å ´åˆã¯ã€VBEã®ãƒ„ãƒ¼ãƒ«ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã‹ã‚‰å‚ç…§è¨å®šãƒ€ã‚¤ã‚¢ãƒã‚°ã‚’é–‹ãã€å¾Œè¿°ã®å„ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®å‚ç…§è¨å®šåã«è¨˜è¼‰ã•ã‚ŒãŸãƒ©ã‚¤ãƒ–ãƒ©ãƒªã‚’æŽ¢ã—ã¦ãƒã‚§ãƒƒã‚¯ã‚’å…¥ã‚Œã¦ãã ã•ã„ã€‚ã“ã®å ´åˆã®ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã¯ã‚¢ãƒ¼ãƒªãƒ¼ãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°æ›¸å¼ã¨è¨˜è¼‰ã•ã‚ŒãŸã‚‚ã®ã§ã™ã€‚ CreateObjectã®å ´åˆã¯ã€ProgIDã‚’æŒ‡å®šã—ã¾ã™ã€‚ã“ã®å ´åˆã®ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã¯ãƒ¬ã‚¤ãƒˆãƒã‚¤ãƒ³ãƒ‡ã‚£ãƒ³ã‚°æ›¸å¼ã¨è¨˜è¼‰ã•ã‚ŒãŸã‚‚ã®ã§ã™ã€‚ ãƒ•ã‚¡ã‚¤ãƒ«ã‚·ã‚¹ãƒ†ãƒ ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆ èª¬æ˜Žãƒ•ã‚¡ã‚¤ãƒ«ãƒ»ãƒ•ã‚©ãƒ«ãƒ€ã®ç”Ÿæˆãƒ»ç§»å‹•ãƒ»å‰Šé™¤ã‚„ãƒ†ã‚ã‚¹ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã®ç”Ÿæˆã€èªã¿è¾¼ã¿ãªã©ã«ä½¿ç”¨
kenjiro_n 2020/09/03
VBA

COM
ãƒªãƒ³ã‚¯
VBAã¯ãªãœè² å‚µåŒ–ã™ã‚‹ã®ã‹ - Qiita
Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article? #çµè«– VBAã‹ã‚‰VBAã®ä»•æ§˜æ›¸ã‚’ä½œæˆã™ã‚‹VBAã‚’æ›¸ãã¾ã—ãŸã€‚ï¼ˆDocument of VBA, for VBA, by VBAï¼‰ï¼ˆå®Œæˆå“ã¯ã“ã¡ã‚‰ï¼‰ #ã¯ã˜ã‚ã« VBAï¼ˆVisual Basic for Applicationï¼‰ãŒä¸–ã«ç™»å ´ã—ã¦å››åŠä¸–ç´€ã€‚è§£èª¬æœ¬ã‚„è§£èª¬ã‚µã‚¤ãƒˆã‚‚å¤šæ•°å˜åœ¨ã—ã€è¶£å‘³ã‚°ãƒ©ãƒžãƒ¼ãŒITãƒªãƒ†ãƒ©ã‚·ã®ä½Žã„è·å ´ã§ç„¡åŒã™ã‚‹ãŸã‚ã®ãƒ„ãƒ¼ãƒ«ã¨ãªã‚Šã¾ã—ãŸã€‚ãã‚Œã¯æ–‡ç³»ãŒè·‹æ‰ˆã™ã‚‹è¡Œæ”¿äº‹å‹™è·ã®ä¸ã§ã‚‚ä¾‹å¤–ã§ã¯ãªãã€ãã†ã—ãŸã„ã‚ã°ã€Œãƒã‚¤ãƒ‘ãƒ¼äº‹å‹™å±‹ã€ãŒæ—¥ã€…ã®æ¥å‹™ã‚’æ”¯ãˆã¦ã„ã‚‹ã®ãŒç¾çŠ¶ã§ã™ã€‚ ç¢ºã‹ã«VBAã¯éžå¸¸ã«ä¾¿åˆ©ãªãƒ„ãƒ¼ãƒ«ã§ã™ãŒã€ä¸€æ–¹ã§å•é¡Œç‚¹ã‚‚å¤šæ•°æŒ‡æ‘˜
kenjiro_n 2020/09/01
VBA
ãƒªãƒ³ã‚¯
GitHub - Asmith0092/VBADoc: VBADocument from VBA Code by VBA Code
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session. Dismiss alert
kenjiro_n 2020/09/01
VisualBASIC

MSOffice

VBA
ãƒªãƒ³ã‚¯
Getting at VBA/Access Source Code
kenjiro_n 2020/09/01
VBA
ãƒªãƒ³ã‚¯
Accessé–‹ç™ºã§ãƒãƒ¼ã‚¸ãƒ§ãƒ³ç®¡ç†ã‚’ã©ã®ã‚ˆã†ã«ä½¿ç”¨ã—ã¾ã™ã‹ã€‚ - Code Guides
kenjiro_n 2020/08/28
MSOffice

VBA
ãƒªãƒ³ã‚¯
1 2 3 æ¬¡ã®ãƒšãƒ¼ã‚¸