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

xai1981 id:xai1981

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

${{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ã§è‡ªä½œé–¢æ•°ã‚’ã‚»ãƒ«ã®å¼ã‹ã‚‰å‘¼ã³å‡ºã™æ–¹æ³•ï¼‹å¯å¤‰é•·å¼•æ•°ã‚’ä½¿ã†æ–¹æ³•ï¼ˆ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
ãƒªãƒ³ã‚¯
ä½™è¨ˆãªã‚·ãƒ¼ãƒˆã‚„VBãƒžã‚¯ãƒã‚’ä½œã‚‰ãšã«ã€Excel ã‚·ãƒ¼ãƒˆåã®ä¸€è¦§ã‚’æŠ½å‡ºã™ã‚‹ - Qiita
ãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ã‚·ãƒ¼ãƒˆãªã©ã‚’Excelã§ä½œæˆã™ã‚‹éš›ã€æ©Ÿèƒ½ã”ã¨ã«ã‚·ãƒ¼ãƒˆã‚’åˆ†ã‘ã¾ã™ã‚ˆãã€‚ 10ã€20ã¨ã‚·ãƒ¼ãƒˆãŒå¢—ãˆã‚‹ã¨ã‚·ãƒ¼ãƒˆåã‚’ã‚³ãƒ”ãƒ¼ã—ã¦ç›®æ¬¡ã‚’ä½œã‚‹ã®ã‚‚è‹¦åŠ´ã—ã¦ã—ã¾ã„ã¾ã™ã€‚ ãã‚“ãªè‡ªåˆ†ã¸ã®å‚™å¿˜ã¨ã—ã¦ã‚·ãƒ¼ãƒˆåã®ä¸€è¦§ã‚’ç°¡å˜ã«å–å¾—ã§ãã‚‹æ–¹æ³•ã‚’æ®‹ã—ã¾ã™ã€‚ Excel ã‚·ãƒ¼ãƒˆåã®ä¸€è¦§æŠ½å‡º (1)ã€€Excel ã‚’é–‹ã (2)ã€€Alt + F11 ã‚ãƒ¼ã‚’æŠ¼ã—ã¦ VB ç”»é¢ã‚’é–‹ã (3)ã€€Ctrl + G ã‚ãƒ¼ã‚’æŠ¼ã—ã¦"ã‚¤ãƒŸãƒ‡ã‚£ã‚¨ã‚¤ãƒˆ"ã‚¦ã‚£ãƒ³ãƒ‰ã‚¦ã‚’é–‹ã (4)ã€€ã‚¤ãƒŸãƒ‡ã‚£ã‚¨ã‚¤ãƒˆã‚¦ã‚£ãƒ³ãƒ‰ã‚¦å†…ã«ä¸‹è¨˜ã®ã‚³ãƒžãƒ³ãƒ‰ã‚’è²¼ã‚Šä»˜ã‘ã¦ã€Enter ã‚ãƒ¼ã‚’æŠ¼ã™
xai1981 2019/11/20
qiita

excel

macro
ãƒªãƒ³ã‚¯
ã‚¨ã‚¯ã‚»ãƒ«ã®å…¨ã¦ã®ã‚·ãƒ¼ãƒˆã‚’ä¸€æ‹¬ã§å†è¡¨ç¤ºã•ã›ã‚‹æ–¹æ³• - ã‚³ãƒ”ãƒšã§VBA(Excel) | ãƒ¢ãƒŽã‚¯ãƒã®å½©ã‚Š
ã“ã¡ã‚‰ã®è¨˜äº‹ã¯ã‚¨ã‚¯ã‚»ãƒ«VBAã‚’ã‚ã¾ã‚ŠçŸ¥ã‚‰ãªã„æ–¹ã§ã‚‚åˆ©ç”¨ã§ãã‚‹ã€Œã‚³ãƒ”ãƒšã§VBA(Excel)ã€ã¨ã—ã¦ã‚‚ã”æ´»ç”¨ã§ãã¾ã™ã€‚è©³ã—ãã¯ä»¥ä¸‹ã®è¨˜äº‹ã‚’ã”ç¢ºèªãã ã•ã„ã€‚
xai1981 2019/11/12
excel

macro
ãƒªãƒ³ã‚¯
ã‚·ãƒ¼ãƒˆåä¸€è¦§ã‚’å–å¾—ã™ã‚‹
ã‚·ãƒ¼ãƒˆåã®ä¸€è¦§ã‚’æŠ½å‡ºã™ã‚‹æ–¹æ³•ã‚’ã”ç´¹ä»‹ã—ã¾ã™ã€‚ â– æ–¹æ³•1ï¼šåå‰ã®å®šç¾©ã‚’ä½¿ã† ã€Œæ•°å¼ã€ã‚¿ãƒ–ï¼ã€Œåå‰ã®å®šç¾©ã€ã‚’ã‚¯ãƒªãƒƒã‚¯ é©å½“ãªåå‰ã‚’å…¥åŠ›ã—(ä¾‹ sName)ã€Œå‚ç…§ç¯„å›²ã€ã«=GET.WORKBOOK(1)ã¨å…¥åŠ›ã—ã¦ã€ŒOKã€ ã‚·ãƒ¼ãƒˆåã‚’å‡ºã—ãŸã„ã‚»ãƒ«ã«æ¬¡ã®æ•°å¼ã‚’å…¥åŠ›ã—ã€ã‚ªãƒ¼ãƒˆãƒ•ã‚£ãƒ«ã™ã‚‹ =REPLACE(INDEX(sName,ROW(A1)),1,FIND("]",INDEX(sName,ROW(A1))),"") è£œè¶³ï¼šget.workbook(1)ã§ã¯ã‚·ãƒ¼ãƒˆåã®ä¸€è¦§ã‚’å–å¾—ã§ãã¾ã™ã€‚åå‰ã®å®šç¾©å¾Œã€=åå‰ã‚’å…¥åŠ›ã™ã‚‹ã¨[ãƒ•ã‚¡ã‚¤ãƒ«å]ã‚·ãƒ¼ãƒˆåãŒè¡¨ç¤ºã•ã‚Œã¾ã™ã€‚ INDEXé–¢æ•°ã§ã‚·ãƒ¼ãƒˆåä¸€è¦§ã‹ã‚‰â—‹è¡Œç›®â€¦ã‚’æŒ‡å®šã™ã‚‹ã“ã¨ã§1ç•ªç›®ã®ã‚·ãƒ¼ãƒˆã€2ç•ªç›®ã®ã‚·ãƒ¼ãƒˆâ€¦ã®ã‚ˆã†ã«å–å¾—ã§ãã¾ã™ã€‚â—‹è¡Œç›®ã¯ROW(a1)â€¦ã§æŒ‡å®šã—ã¾ã™ã€‚ â– æ–¹æ³•2ï¼šVBAç”»é¢ã«è¡¨ç¤ºï¼ˆç°¡å˜ï¼‰ ALT+F11ã‚ãƒ¼ã‚’æŠ¼ã™ CTRL+Gã‚ãƒ¼ã‚’æŠ¼ã—ã¦ä¸‹éƒ¨ã«ã€Œã‚¤
xai1981 2018/10/31
excel

macro
ãƒªãƒ³ã‚¯
BIGLOBEãªã‚“ã§ã‚‚ç›¸è«‡å®¤ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã›
xai1981 2018/07/12
excel

macro
ãƒªãƒ³ã‚¯
https://mayer.jp.net/?tag=excel-html-table-%E5%A4%89%E6%8F%9B-%E3%83%9E%E3%82%AF%E3%83%AD
xai1981 2017/12/21
excel

macro

convert

html
ãƒªãƒ³ã‚¯
Excelã‹ã‚‰SQLã®INSERTæ–‡ã‚’ä½œæˆã™ã‚‹ãƒžã‚¯ãƒ - grachroã®ãƒ–ãƒã‚°
ã‚¨ã‚¯ã‚»ãƒ«ã®ãƒ‡ãƒ¼ã‚¿ã‹ã‚‰RDBç”¨ã®SQLã‚’ä½œæˆã™ã‚‹ãƒžã‚¯ãƒã§ã™ã€‚ã‚·ãƒ¼ãƒˆåã‚’ãƒ†ãƒ¼ãƒ–ãƒ«åã€1è¡Œç›®ã‚’ãƒ†ãƒ¼ãƒ–ãƒ«ã®ãƒ•ã‚£ãƒ¼ãƒ«ãƒ‰åã¨ã—ã¦å‡¦ç†ã—ã¾ã™ã€‚ ã‚µãƒ³ãƒ—ãƒ« ä½œæˆã•ã‚Œã‚‹SQL INSERT INTO bookmark (ID,URL,TITLE) values (0,'http://www.google.co.jp/','GOOGLE'); INSERT INTO bookmark (ID,URL,TITLE) values (1,'http://www.yahoo.co.jp/','Yahoo! JAPAN'); ãƒžã‚¯ãƒ Option Explicit Sub createInsertSql() Dim newbook As Workbook Dim currentCell As Range 'å‰å‡¦ç† Dim srcSheet As Worksheet Set srcSheet = ActiveSheet
xai1981 2017/12/07
sql

excel

macro
ãƒªãƒ³ã‚¯
Excelãƒ‡ãƒ¼ã‚¿ã‚’INSERTæ–‡ã«å¤‰æ›ã™ã‚‹ - Qiita
INSERT ALL INTO HOGE (COL1,COL2,COL3) values('data',1,null) INTO HOGE (COL1,COL2,COL3) values('data',null,null) INTO HOGE (COL1,COL2,COL3) values('data',1,'data') SELECT * FROM dual; Option Explicit Sub INSERTæ–‡ã‚’ç”Ÿæˆ_Click() Dim ws As Worksheet Set ws = ActiveSheet Dim sql As String sql = "INSERT ALL" Dim head As String head = vbLf & "INTO " & ws.Name & " (" Dim target As Range Set target = ws.UsedRa
xai1981 2015/06/17
qiita

sql

excel

macro
ãƒªãƒ³ã‚¯
1