[B! vba] xai1981ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

xai1981 id:xai1981

vbaã«é–¢ã™ã‚‹xai1981ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (13)

${{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}}

â‰ªã™ãè§£æ±ºâ‰«Excelã§è¨ˆç®—çµæžœãŒè‡ªå‹•å†è¨ˆç®—ã•ã‚Œãªã„ã¨ã | ã‚¤ãƒ³ã‚¯ãƒ«ãƒ¼ãƒ—æ ªå¼ä¼šç¤¾ï½œç¥žå¥ˆå·çœŒç›¸æ¨¡åŽŸå¸‚ ãƒ›ãƒ¼ãƒ ãƒšãƒ¼ã‚¸åˆ¶ä½œã€WEBãƒžãƒ¼ã‚±ãƒ†ã‚£ãƒ³ã‚°
ã‚»ãƒ«ã®å€¤ã‚’å¤‰æ›´ã™ã‚Œã°ã€ãã‚Œã«å¿œã˜ã¦å³åº§ã«è¨ˆç®—çµæžœãŒè‡ªå‹•å†è¨ˆç®—ã•ã‚Œã‚‹ã®ãŒã‚¨ã‚¯ã‚»ãƒ«ã®è‰¯ã„ã¨ã“ã‚ã§ã™ã€‚ ã—ã‹ã—ã€è‡ªåˆ†ã§è¨å®šã—ãŸè¦šãˆãŒç„¡ã„ã®ã«ã€è¨ˆç®—æ–¹æ³•ã®è¨å®šãŒã€Œæ‰‹å‹•ã€ã«ãªã£ã¦ã—ã¾ã†ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ ã“ã®ã‚ˆã†ãªå ´åˆã€è¨ˆç®—æ–¹æ³•ã®è¨å®šã‚’ã€Œè‡ªå‹•ã€ã«ã™ã‚Œã°è§£æ±ºã§ãã¾ã™ã€‚ Excel 2007ï¼2010ï¼2013å…±é€š ï¼»æ•°å¼ï¼½ã‚¿ãƒ–â†’ï¼»è¨ˆç®—æ–¹æ³•ã®è¨å®šï¼½ã‚’ã‚¯ãƒªãƒƒã‚¯ã—ã¾ã™ã€‚ ï¼»è‡ªå‹•ï¼½ã‚’ã‚¯ãƒªãƒƒã‚¯ã—ã¾ã™ã€‚ ã„ã‹ãŒã§ã—ãŸã‹ï¼Ÿ æ„å¤–ã¨ç°¡å˜ã«è§£æ±ºã§ãã¾ã™ã€‚ è¨ˆç®—æ–¹æ³•ã®è¨å®šãŒå¤‰ã‚ã£ã¦ã—ã¾ã†2ã¤ã®åŽŸå› åŽŸå› ï¼‘ è¨ˆç®—æ–¹æ³•ã®è¨å®šã¯ãƒ•ã‚¡ã‚¤ãƒ«ã”ã¨ã«ä¿å˜ã•ã‚Œã¾ã™ã€‚ Book1.xlsxã¯ã€Œè‡ªå‹•ã€ã«è¨å®šã—ã¦ä¿å˜ã—ã€ Book2.xlsxã¯ã€Œæ‰‹å‹•ã€ã«è¨å®šã—ã¦ä¿å˜ã—ã¦ã‚ã‚‹ã¨ã—ã¾ã™ã€‚ ã“ã®å ´åˆ Book2.xlsxã‚’å…ˆã«é–‹ã„ãŸçŠ¶æ…‹ã§ã€ã“ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‰ã˜ãšã«ã€ Book1.xlsxã‚’é–‹ãã¨ã€ãªãœã‹Book1.xlsxã®è¨ˆç®—æ–¹æ³•ã®è¨å®šãŒã€Œæ‰‹å‹•ã€ã«å¤‰
xai1981 2020/02/11
excel

vba
ãƒªãƒ³ã‚¯
Excelã§è‡ªä½œé–¢æ•°ã‚’ã‚»ãƒ«ã®å¼ã‹ã‚‰å‘¼ã³å‡ºã™æ–¹æ³•ï¼‹å¯å¤‰é•·å¼•æ•°ã‚’ä½¿ã†æ–¹æ³•ï¼ˆCSVè¡Œä½œæˆã‚µãƒ³ãƒ—ãƒ«ä»˜ãï¼‰ - ãƒ¬ãƒ™ãƒ«ã‚¨ãƒ³ã‚¿ãƒ¼å±±æœ¬å¤§ã®ãƒ–ãƒã‚°
VBAã§è‡ªä½œã®é–¢æ•°ã‚’ã‚»ãƒ«å†…ã®å¼ã‹ã‚‰å‘¼ã³å‡ºã™ã«ã¯ã€ Public Functionã¨ã—ã¦æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«å®šç¾©ã—ã¦ã‚„ã‚Œã°ã‚ˆã„ã€‚ ï¼ˆSubã¯Ã—ã€Publicã‚’ã¤ã‘ãªãã¦ã‚‚Ã—ã€æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ä»¥å¤–ã«å®šç¾©ã—ã¦ã‚‚Ã—ï¼‰ ãã‚Œã‹ã‚‰ãã‚Œã‹ã‚‰ã€å¯å¤‰é•·ã®å¼•æ•°ã‚’ã¨ã‚‹ã‚ˆã†ãªé–¢æ•°ã‚’å®šç¾©ã™ã‚‹ã«ã¯ã€ é…åˆ—ã§å®£è¨€ã—ãŸå¼•æ•°ã®å‰ã«ã€ŒParamArrayã€ã‚’ã¤ã‘ã¦å®šç¾©ã—ã¦ã‚„ã‚Œã°ã‚ˆã„ã€‚ ä»¥ä¸‹ã®ã‚µãƒ³ãƒ—ãƒ«ã¯ã€ã‚»ãƒ«ã®å¼ã¨ã—ã¦åŸ‹ã‚è¾¼ã¿å¯èƒ½ã§ã€ è¤‡æ•°ã®å¼•æ•°ã‚’ã¨ã‚Šã€å¼•æ•°ã‚’CSVå½¢å¼ã«å¤‰æ›ã—ã¦è¡¨ç¤ºã™ã‚‹ã‚·ãƒ³ãƒ—ãƒ«ãªé–¢æ•°ã ã€‚ 'VBAã®é–¢æ•°ã‚’ã‚»ãƒ«ã®å¼ã‹ã‚‰å‘¼ã³å‡ºã™ã«ã¯ã€ã€ŒPublic Functionã€ã¨ã—ã¦ã€Œæ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã€ã«å®šç¾©ã™ã‚‹ã€‚ 'VBAã§ã€Œå¯å¤‰é•·å¼•æ•°ã€ã‚’ä½¿ã†ã«ã¯ã€é…åˆ—ã§å®£è¨€ã—ãŸå¼•æ•°ã®å‰ã«ã€ŒParamArrayã€ã‚’ã¤ã‘ã‚‹ã€‚ Public Function csv(ParamArray args() As Variant) Dim argcsv
xai1981 2019/11/21
excel

vba

macro
ãƒªãƒ³ã‚¯
ã€ã‚¨ã‚¯ã‚»ãƒ«VBAã€‘ä¿è·ã—ã¦ã„ã‚‹ã‚·ãƒ¼ãƒˆã§ãƒžã‚¯ãƒã®æ“ä½œã ã‘æœ‰åŠ¹ã«ã™ã‚‹æ–¹æ³•
ä»Šå›žã¯ã€Protectãƒ¡ã‚½ãƒƒãƒ‰ã®ã‚ªãƒ—ã‚·ãƒ§ãƒ³UserInterfaceOnlyã‚’ä½¿ã£ã¦ã€æ‰‹å‹•ã®ã‚·ãƒ¼ãƒˆã¸ã®å¤‰æ›´ã¯ä¸å¯ã«ã—ã¤ã¤ã€VBAã§ã®ã‚·ãƒ¼ãƒˆå¤‰æ›´ã¯å¯èƒ½ã«ã™ã‚‹æ–¹æ³•ã‚’ã”ç´¹ä»‹ã—ã¾ã™ï¼ ä¿è·ã•ã‚Œã¦ã„ã‚‹ã‚·ãƒ¼ãƒˆã¯ãƒžã‚¯ãƒã‹ã‚‰ã‚‚æ“ä½œã§ããªã„ ã¾ãšã€ã‚·ãƒ¼ãƒˆã®ä¿è·ã‚’è¨å®šã™ã‚‹ã¨ã€ãƒ¦ãƒ¼ã‚¶ã®æ‰‹å‹•ã«ã‚ˆã‚‹ã‚·ãƒ¼ãƒˆæ“ä½œã®ã»ã‹ã€ãƒžã‚¯ãƒã‹ã‚‰ã®ã‚·ãƒ¼ãƒˆå†…ã®å‡¦ç†ã‚‚åˆ¶é™ã•ã‚Œã¦ã—ã¾ã„ã¾ã™ã€‚ ã‚·ãƒ¼ãƒˆã®ä¿è·ã‚’è¨å®šã—ãŸã‚·ãƒ¼ãƒˆä¸Šã§ãƒžã‚¯ãƒã‚’å®Ÿè¡Œã™ã‚‹ã¨ã€ä»¥ä¸‹ã®ã‚ˆã†ãªå®Ÿè¡Œæ™‚ã‚¨ãƒ©ãƒ¼ã«ãªã‚Šã€ã‚·ãƒ¼ãƒˆä¸Šã§ã®æ“ä½œãŒã§ããªã„ã‚ˆã†ã«ãªã£ã¦ã„ã¾ã™ã€‚ ã€Œã‚·ãƒ¼ãƒˆã®ä¿è·ã§ãƒ¦ãƒ¼ã‚¶ã®æ“ä½œã‚’åˆ¶é™ã™ã‚‹ã®ã¯ã„ã„ã‘ã©ã€ãƒžã‚¯ãƒã‹ã‚‰ã¯æ“ä½œã§ãã‚‹ã‚ˆã†ã«ã—ãŸã„â€¦ã€ ãã‚“ãªæ™‚ã«æœ‰åŠ¹ãªã®ãŒã€Protectãƒ¡ã‚½ãƒƒãƒ‰ã®UserinterfaceOnlyã‚ªãƒ—ã‚·ãƒ§ãƒ³ã§ã™ã€‚ã“ã‚Œã¯ã‚·ãƒ¼ãƒˆã®ä¿è·ã‚’ãƒ¦ãƒ¼ã‚¶ã®æ‰‹å‹•ã‚·ãƒ¼ãƒˆæ“ä½œã«å¯¾ã—ã¦ã®ã¿æœ‰åŠ¹ã«ã™ã‚‹ã‹ã©ã†ã‹ã€ã¨ã„ã†è¨å®šã‚’è¡Œã†ã‚‚ã®ã§ã™ã€‚ è¨€ã„æ›ãˆã‚‹ã¨ã€å¯¾è±¡ã®ã‚·ãƒ¼ãƒˆä¸Šã§VB
xai1981 2019/08/01
excel

vba
ãƒªãƒ³ã‚¯
ã‚»ãƒ«ã®å€¤ãŒå¤‰ã‚‹ã¨è‡ªå‹•ã§ãƒžã‚¯ãƒãŒå®Ÿè¡Œã•ã‚Œã‚‹ã€‚ - OKWAVE
ã“ã‚“ã«ã¡ã¯ ãŠé‚ªé”ã—ã¾ã™ã€‚ ï¼ˆï¼‘ï¼‰ã¾ãšã¯ã‚ªãƒ¼ãƒ€ãƒ¼é€šã‚Šã®åŸºæœ¬åž‹ Private Sub Worksheet_Change(ByVal Target As Range) ' ' è¤‡æ•°ã‚»ãƒ«ãŒå¤‰æ›´ã•ã‚ŒãŸå ´åˆï¼ˆå˜ã‚»ãƒ«ã§ãªã„å ´åˆï¼‰ã¯å‡¦ç†ã‚’æŠœã‘ã‚‹ If Target.Count > 1 Then Exit Sub ' ' å¤‰æ›´ã•ã‚ŒãŸã‚»ãƒ«ãŒï¼‘åˆ—ã‚ã§ãªã„å ´åˆã¯å‡¦ç†ã‚’æŠœã‘ã‚‹ If Target.Column <> 1 Then Exit Sub ' ' å¤‰æ›´ã•ã‚ŒãŸã‚»ãƒ«ã®è¡Œä½ç½®ã«ã‚ˆã£ã¦å‡¦ç†ã‚’åˆ†å²ã™ã‚‹ Select Case Target.Row Case 1 ' A1 ã®å ´åˆã®å‡¦ç† MsgBox "A1" ' ç¢ºèªç”¨ï¼ˆç¢ºèªãŒæ¸ˆã‚“ã ã‚‰å½“è¡Œå‰Šé™¤ï¼‰ Case 2 ' A2 ã®å ´åˆã®å‡¦ç† MsgBox "A2" ' ç¢ºèªç”¨ï¼ˆç¢ºèªãŒæ¸ˆã‚“ã ã‚‰å½“è¡Œå‰Šé™¤ï¼‰ End Select End Sub ï¼ˆï¼’ï¼‰ã‚»ãƒ«ã®ä½ç½®ã«ã‚ˆã£ã¦ã‚‚ã£ã¨ç´°
xai1981 2019/07/30
qa

excel

vba
ãƒªãƒ³ã‚¯
[EXCEL]åå‰å®šç¾©ã«ã¯ãƒ–ãƒƒã‚¯ã¨ã‚·ãƒ¼ãƒˆã®æŒ‡å®šãŒã‚ã£ã¦å–ã‚Šå‡ºã—æ–¹ã«ã‚ˆã£ã¦å€¤ãŒå¤‰ã‚ã‚‹ã“ã¨ãŒã‚ã‚‹ã€‚ - Qiita
Register as a new user and use Qiita more conveniently You get articles that match your needsYou can efficiently read back useful informationYou can use dark themeWhat you can do with signing up
xai1981 2019/07/29
qiita

excel

vba
ãƒªãƒ³ã‚¯
VBAã®CStré–¢æ•°ã¨Stré–¢æ•°ã®é•ã„ ï½œ Excelä½œæ¥ã‚’VBAã§åŠ¹çŽ‡åŒ–
CStré–¢æ•°ã¨Stré–¢æ•°ã¯å‡¦ç†çµæžœãŒç•°ãªã‚‹ æ•°å€¤ãªã©ã‚’æ–‡å—åˆ—ã«å¤‰æ›ã™ã‚‹å ´åˆã«CStré–¢æ•°ã‚„Stré–¢æ•°ã‚’åˆ©ç”¨ã—ã¾ã™ãŒã€ä½•ãŒé•ã†ã®ã‹ã‚’èª¬æ˜Žã—ã¾ã™ã€‚ ä½¿ã„æ–¹ã¯åŒã˜ã§ã™ãŒã€Stré–¢æ•°ã®å ´åˆã¯0ã¾ãŸã¯æ£æ•°ã®å ´åˆã«å·¦ç«¯ã«åŠè§’ã‚¹ãƒšãƒ¼ã‚¹ãŒä»˜ä¸Žã•ã‚Œã‚‹ã€ã¨ã„ã†ç‚¹ãŒç•°ãªã‚Šã¾ã™ã€‚ å€‹äººçš„ã«ã¯ä½™è¨ˆãªã“ã¨ã‚’ã‚„ã‚‹Stré–¢æ•°ã¯ä½¿ã‚ãšã€CStré–¢æ•°ã‚’ä½¿ã†ã“ã¨ã‚’ãŠã™ã™ã‚ã—ã¾ã™ã€‚ ã‚³ãƒ¼ãƒ‰ã§ã®èª¬æ˜Ž Sub CStrCompStrTest() Dim s As String '// 0 s = CStr(0) Debug.Print "CStr[0] â†’ [""" & s & """] é•·ã•=" & Len(s) s = str(0) Debug.Print "Str [0] â†’ [""" & s & """] é•·ã•=" & Len(s) '// 10 s = CStr(10) Debug.Print "CStr[10] â†’ ["
xai1981 2019/07/23
excel

vba
ãƒªãƒ³ã‚¯
ã‚¢ã‚¯ãƒ†ã‚£ãƒ–ã‚»ãƒ«ã«å…¥åŠ›è¦å‰‡ãŒè¨å®šã•ã‚Œã¦ã„ã‚‹ã‹åˆ¤å®šã™ã‚‹Excelãƒžã‚¯ãƒ:Excel VBA Rangeã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆ/å…¥åŠ›è¦å‰‡ãƒ»Validation
ã“ã®ã‚µã‚¤ãƒˆãƒ»ã‚¤ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿ãƒ¼ã®ãƒã‚¿å¸³ã®ã‚¢ã‚¯ã‚»ã‚¹ãƒã‚°ã‚’çœºã‚ã¦ã„ã¦ã€ ã€Œvbaã‚»ãƒ«å…¥åŠ›è¦å‰‡ã‹è¨å®šã•ã‚Œã¦ã„ã‚‹ã‹ã€ ã¨ã„ã†æ¤œç´¢ã«æ°—ã¥ãã¾ã—ãŸã€‚ æ—¢ã«ã€ã‚¢ã‚¯ãƒ†ã‚£ãƒ–ãªãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã«ã€å…¥åŠ›è¦å‰‡ãŒè¨å®šã•ã‚Œã¦ã„ã‚‹ã‹ã©ã†ã‹ã‚’èª¿ã¹ã‚‹Excelãƒžã‚¯ãƒã‚’ã”ç´¹ä»‹ã—ã¦ã„ã¾ã™ã€‚ ãã®ã‚»ãƒ«é™å®šç‰ˆã‚’æŽ¢ã—ã¦ã„ã‚‰ã—ãŸã®ã§ã—ã‚‡ã†ã€‚ ã‚¢ã‚¯ãƒ†ã‚£ãƒ–ã‚»ãƒ«ã«å…¥åŠ›è¦å‰‡ãŒè¨å®šã•ã‚Œã¦ã„ã‚‹ã‹åˆ¤å®šã™ã‚‹ã‚µãƒ³ãƒ—ãƒ«ãƒžã‚¯ãƒ èª¿ã¹ãŸã„ã‚»ãƒ«ãŒ1å€‹ãªã®ã‹ã€è¤‡æ•°ãªã®ã‹ã«ã‚ˆã£ã¦å®Ÿéš›ã®ä½œã‚Šã¯å¤‰ã‚ã£ã¦ãã‚‹ã¨æ€ã„ã¾ã™ãŒã€å‚è€ƒã«ãªã‚Šãã†ãªã€ã‚¢ã‚¯ãƒ†ã‚£ãƒ–ã‚»ãƒ«ã«å…¥åŠ›è¦å‰‡ãŒè¨å®šã•ã‚Œã¦ã„ã‚‹ã‹ã‚’èª¿ã¹ã‚‹ãƒžã‚¯ãƒã‚’ã”ç´¹ä»‹ã—ã¦ãŠãã¾ã™ã€‚ Sub ã‚¢ã‚¯ãƒ†ã‚£ãƒ–ã‚»ãƒ«ã«å…¥åŠ›è¦å‰‡ãŒè¨å®šã•ã‚Œã¦ã„ã‚‹ã‹åˆ¤å®šã™ã‚‹() On Error Resume Next Dim tmp tmp = ActiveCell.Validation.Type If Err.Number <> 0 Then MsgBox "ã‚¢ã‚¯ãƒ†ã‚£ãƒ–
xai1981 2019/07/09
excel

vba
ãƒªãƒ³ã‚¯
ã‚¨ã‚¯ã‚»ãƒ«2010ã‚’ä½¿ç”¨ã—ã¦ã„ã¾ã™ã€‚VBAã§é¸æŠžç¯„å›²ãŒå¸¸ã«ç•°ãªã‚‹é‡è¤‡ã®å‰Šé™¤ã‚’è¡Œã„ãŸã„ã®ã§ã™ãŒã€ã†ã¾ãã„ãã¾ã›ã‚“ã®ã§æ•™ãˆã¦é ‚ããŸãè³ªå•ã—ã¾... - Yahoo!çŸ¥æµè¢‹
ã‚¨ã‚¯ã‚»ãƒ«2010ã‚’ä½¿ç”¨ã—ã¦ã„ã¾ã™ã€‚VBAã§é¸æŠžç¯„å›²ãŒå¸¸ã«ç•°ãªã‚‹é‡è¤‡ã®å‰Šé™¤ã‚’è¡Œã„ãŸã„ã®ã§ã™ãŒã€ã†ã¾ãã„ãã¾ã›ã‚“ã®ã§æ•™ãˆã¦é ‚ããŸãè³ªå•ã—ã¾ã—ãŸã€‚ ã‚¨ã‚¯ã‚»ãƒ«2010ã‚’ä½¿ç”¨ã—ã¦ã„ã¾ã™ã€‚VBAã§é¸æŠžç¯„å›²ãŒå¸¸ã«ç•°ãªã‚‹é‡è¤‡ã®å‰Šé™¤ã‚’è¡Œã„ãŸã„ã®ã§ã™ãŒã€ã†ã¾ãã„ãã¾ã›ã‚“ã®ã§æ•™ãˆã¦é ‚ããŸãè³ªå•ã—ã¾ã—ãŸã€‚ é¸æŠžç¯„å›²ã¯å¸¸ã«C1ã‹ã‚‰å§‹ã¾ã‚Šã€æœ€å°‘ã§Eåˆ—ã€æœ€å¤§ã§Håˆ—ã¾ã§ã§ã™ã®ã§ã€Range("C1").CurrentRegion.RemoveDuplicates Columns:=Array("1", "2", "3", "4", "5", "6"), Header:=xlNoã¨æ›¸ãã¾ã—ãŸãŒã€ã“ã®å ´åˆã€å¸¸ã«Cåˆ—ã‹ã‚‰Håˆ—ã¾ã§ãƒ‡ãƒ¼ã‚¿ãŒåŸ‹ã¾ã£ã¦ã„ã‚‹è¡ŒãŒä¸€ã¤ã§ã‚‚ãªã„ã¨ã‚¨ãƒ©ãƒ¼ã¨ãªã£ã¦ã—ã¾ã„ã¾ã™ã€‚ è¦ã¯ã€Columns:=Array("1", "2", "3", "4", "5", "6")ã®éƒ¨åˆ†ãŒå•é¡Œã§ã‚ã‚‹ã¨æ€ã†ã®ã§ã™ãŒã©ã®ã‚ˆã†ã«
xai1981 2019/07/04
qa

vba

excel
ãƒªãƒ³ã‚¯
capm-network.comÂ -Â ã“ã®ã‚¦ã‚§ãƒ–ã‚µã‚¤ãƒˆã¯è²©å£²ç”¨ã§ã™ï¼Â -Â capm network ãƒªã‚½ãƒ¼ã‚¹ãŠã‚ˆã³æƒ…å ±
This webpage was generated by the domain owner using Sedo Domain Parking. Disclaimer: Sedo maintains no relationship with third party advertisers. Reference to any specific service or trade mark is not controlled by Sedo nor does it constitute or imply its association, endorsement or recommendation.
xai1981 2019/07/02
excel

vba
ãƒªãƒ³ã‚¯
æ¤œç´¢ã«å¤±æ•—ã™ã‚‹ã¨ãï¼ˆFindãƒ¡ã‚½ãƒƒãƒ‰ã®å¼•æ•°çœç•¥æ™‚ã«èµ·ãã‚‹å¤±æ•—ï¼‰ï¼šExcel VBAï½œå³åŠ¹ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ï½œExcel VBAã‚’å¦ã¶ãªã‚‰moug
æ¤œç´¢ã«å¤±æ•—ã™ã‚‹ã¨ãï¼ˆFindãƒ¡ã‚½ãƒƒãƒ‰ã®å¼•æ•°çœç•¥æ™‚ã«èµ·ãã‚‹å¤±æ•—ï¼‰ (Excel 97/2000/2002/2003/2007/2010) ãƒ„ã‚¤ãƒ¼ãƒˆ ä»Šã¾ã§å•é¡Œãªãå‹•ã„ã¦ã„ãŸãƒžã‚¯ãƒãŒã€ã‚ã‚‹æ—¥æ€¥ã«ã‚¨ãƒ©ãƒ¼ã¨ãªã£ãŸã€‚ æ€ã„å½“ãŸã‚‹åŽŸå› ã‚‚ãªãã€é€”æ–¹ã«ãã‚Œã¦ã—ã¾ã£ãŸãƒ»ãƒ»ãƒ»ã€‚ ãã‚“ãªçµŒé¨“ã¯ã‚ã‚Šã¾ã›ã‚“ã‹ï¼Ÿ ä»Šå›žã¯ã€ãã‚“ãªã€ŒäºˆæœŸã›ã¬å‹•ä½œã§ã€äºˆæœŸã›ã¬çµæžœã«ãªã‚‹ã€ã¨ã„ã†è©±ã§ã™ã€‚ ã¾ãšã€æ¬¡ã®ã‚ˆã†ã«æº–å‚™ã—ã¦ãã ã•ã„ã€‚ æ–°è¦ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®ã‚»ãƒ«B7ã«ã€Œ=10+10ã€ã¨å…¥åŠ›ã—ã¾ã™ã€‚ ï¼»Enterï¼½ã‚ãƒ¼ã‚’æŠ¼ã—ã¦ç¢ºå®šã™ã‚Œã°ã€ã‚»ãƒ«B7ã«ã¯ã€Œ20ã€ã¨è¡¨ç¤ºã•ã‚Œã¾ã™ã€‚ ãã®å¾Œã€ã‚¢ã‚¯ãƒ†ã‚£ãƒ–ã‚»ãƒ«ã‚’ã‚»ãƒ«A1ã«ç§»å‹•ã—ã¦ã€æ¬¡ã®ãƒžã‚¯ãƒã‚’å®Ÿè¡Œã—ã¦ãã ã•ã„ã€‚ Sub Sample1() Dim FoundCell Set FoundCell = Cells.Find(What:=20) If FoundCell Is Nothing Then MsgB
xai1981 2019/07/02
vba

excel
ãƒªãƒ³ã‚¯
WinMergeã§Excelãƒžã‚¯ãƒã®å·®åˆ†ã‚’è¡¨ç¤ºã™ã‚‹æ–¹æ³• - Architect's Log
Cururuã‹ã‚‰ç§»è¡Œã€‚ WinMergeã‚’ä½¿ã†ã¨ã€Excelãƒžã‚¯ãƒï¼ˆVBAï¼‰ã®å·®åˆ†ã‚’è¡¨ç¤ºã™ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ â€»ä»¥ä¸‹Excel2003ã§ç¢ºèªã—ã¦ã„ã¾ã™ã€‚ä»–ã®ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã§ã¯ç¢ºèªã—ã¦ã„ã¾ã›ã‚“ã€‚ WinMergeã¯ã‚ªãƒ¼ãƒ—ãƒ³ã‚½ãƒ¼ã‚¹ã®Diffãƒ„ãƒ¼ãƒ«ã§ã€ãƒ†ã‚ã‚¹ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã®å·®åˆ†ã‚’è¡¨ç¤ºã§ãã¾ã™ã€‚ ï¼ ITï¼š.NET TIPS .NETæ™‚ä»£ã®ã‚½ãƒ¼ã‚¹ãƒ»ã‚³ãƒ¼ãƒ‰å·®åˆ†ãƒ„ãƒ¼ãƒ«ã¨ã¯ï¼Ÿ - VS.NET ã‚‚ã¡ã‚ã‚“VS.NETç’°å¢ƒã§ã‚‚ã“ã®WinDiffã¯ä¾¿åˆ©ã«ä½¿ã†ã“ã¨ãŒã§ãã‚‹ã®ã ãŒã€ã‚ˆã‚Šä½¿ã„ã‚„ã™ãé«˜æ©Ÿèƒ½ãªå·®åˆ†ãƒ„ãƒ¼ãƒ«ãŒã‚ã‚‹ã®ã§ã€æœ¬ç¨¿ã§ã¯ã€ãã¡ã‚‰ã®ãƒ„ãƒ¼ãƒ«ã‚’ç´¹ä»‹ã™ã‚‹ã€‚ ã€€ãã®ãƒ„ãƒ¼ãƒ«ã¨ã¯ã€ã€ŒWinMergeã€ã¨ã„ã†ã‚ªãƒ¼ãƒ—ãƒ³ã‚½ãƒ¼ã‚¹ãƒ»ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã§ã‚ã‚‹ã€‚ ... ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ©ã«åŒæ¢±ã•ã‚Œã¦ã„ã‚‹ãƒ—ãƒ©ã‚°ã‚¤ãƒ³ã‚’ä½¿ç”¨ã™ã‚‹ã¨ã€Excelãƒ•ã‚¡ã‚¤ãƒ«ã®å·®åˆ†ã‚‚è¡¨ç¤ºã§ãã¾ã™ã€‚ï¼ˆã‚»ãƒ«å†…ã®ãƒ†ã‚ã‚¹ãƒˆã¨ãƒžã‚¯ãƒã®ã‚½ãƒ¼ã‚¹ãŒå¯¾è±¡ã§ã™ã€‚å›³å½¢ãªã©ã®ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã¯æ¯”è¼ƒã§ãã¾ã›ã‚“
xai1981 2019/07/01
excel

vba

diff
ãƒªãƒ³ã‚¯
vbacã§ã‚¨ã‚¯ã‚»ãƒ«VBAã®ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’Gitãƒãƒ¼ã‚¸ãƒ§ãƒ³ç®¡ç†ã™ã‚‹æ–¹æ³•
ã¿ãªã•ã‚“ã€ã“ã‚“ã«ã¡ã¯ï¼ ãã‚ãã‚ãƒãƒ¼ãƒ ãƒ—ãƒ¬ã‚¤ã‚‚è©¦ã—ãŸã„ã‚¿ã‚«ãƒã‚·(@ntakahashi0505)ã§ã™ã€‚ ä»¥å‰ã“ã‚Œã‚‰ã®è¨˜äº‹ã§éžã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ã®ãŸã‚ã®åˆå¿ƒè€…å‘ã‘Gitãƒãƒ¼ã‚¸ãƒ§ãƒ³ç®¡ç†ã‚„ã€Gitãƒãƒ¼ã‚¸ãƒ§ãƒ³ç®¡ç†ã«ä¾¿åˆ©ãªSource Treeã®ä½¿ã„æ–¹ã«ã¤ã„ã¦ãŠä¼ãˆã—ã¦ãã¾ã—ãŸã€‚
xai1981 2019/06/05
excel

git

vba
ãƒªãƒ³ã‚¯
VBAã§Collectionã¨dictionaryã‚’ä½¿ã† - Qiita
#ç‰¹å¾´ ##Collection ãƒ»Collectionã§ã¯ã€ã•ã¾ã–ã¾ãªåž‹ã®ãƒ‡ãƒ¼ã‚¿ã‚’ä¸€ã¤ã®ã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³ã¨ã—ã¦ã¾ã¨ã‚ã¦ãŠãã“ã¨ãŒã§ãã‚‹ã€‚ã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³ã®ä¸ã«ã‚³ãƒ¬ã‚¯ã‚·ãƒ§ãƒ³ã‚’å…¥ã‚Œã‚‹ã“ã¨ã‚‚ã§ãã‚‹ã€‚ã“ã‚Œã‚’ç”¨ã„ã‚Œã°ã€ä¸€ã¤ã®ãƒ‡ãƒ¼ã‚¿ç¾¤ã‚’ä½œã‚Šãƒ«ãƒ¼ãƒ—å‡¦ç†ã™ã‚‹ã“ã¨ãŒã§ãã‚‹ã€‚ ##Dictionary ãƒ»Dictionaryã§ã¯ã€ã‚ãƒ¼ã¨ãƒ‡ãƒ¼ã‚¿ã‚’é–¢é€£ä»˜ã‘ã‚‹ã“ã¨ã«ã‚ˆã‚Šã€ãƒ‡ãƒ¼ã‚¿ã«ã‚¢ã‚¯ã‚»ã‚¹ã—ã‚„ã™ããªã‚Šã€ã¾ãŸä¿®æ£ãŒç°¡å˜ã«ãªã‚‹ã€‚(Collectionã®æ–¹ã«ã‚‚ã‚ã‚‹ãŒã€Dictionaryã®æ–¹ãŒä¾¿åˆ©ãªæ©Ÿèƒ½ãŒã‚ã‚‹ã®ã¨ã€å‡¦ç†é€Ÿåº¦ãŒDictionaryã®æ–¹ãŒè‹¥å¹²æ—©ã„ã®ã§ã“ã¡ã‚‰ã‚’ä½¿ã†) ãƒ»ã¾ãŸå…ˆã»ã©è¿°ã¹ãŸã¨ãŠã‚Šã€Dictionaryã«ã¯ã‚ãƒ¼ã®å¤‰æ›´ã‚’è¡Œã£ãŸã‚Šã€ã¾ãŸã‚ãƒ¼ãŒé‡è¤‡ã—ã¦ã„ãªã„ã‹ç¢ºã‹ã‚ã‚‹ãƒ¡ã‚½ãƒƒãƒ‰ãŒã‚ã‚Šãƒã‚§ãƒƒã‚¯ãŒç°¡å˜ãªã®ã§ã‚ˆãä½¿ã£ã¦ã„ã‚‹ãƒ¡ã‚½ãƒƒãƒ‰ã‚’ä»¥ä¸‹ã«ã¾ã¨ã‚ã¦ãŠãã€‚ ãƒ¡ã‚½ãƒƒãƒ‰å èª¬æ˜Ž
xai1981 2017/12/21
qiita

vba
ãƒªãƒ³ã‚¯
1