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

rindenlab id:rindenlab

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

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

No.8 ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®æœ€çµ‚è¡Œã€æœ€çµ‚åˆ—ã‚’å–å¾—ã™ã‚‹
ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®æœ€çµ‚ã‚»ãƒ«ï¼ˆæœ€çµ‚è¡Œã€æœ€çµ‚åˆ—ï¼‰ã‚’å–å¾—ã™ã‚‹â€¦ VBAã‚’ã¯ã˜ã‚ãŸäººã¯èª°ã—ã‚‚æœ€åˆã«å¼•ã£ã‹ã‹ã‚‹å•é¡Œã§ã¯ã‚ã‚Šã¾ã™ãŒã€å¹¸ã„ã«ã‚‚ã‚¤ãƒ³ã‚¿ãƒ¼ãƒãƒƒãƒˆã§æ¤œç´¢ã™ã‚‹ã¨ã„ãã¤ã‚‚ã®è§£æ±ºæ³•ãŒè¦‹ã¤ã‹ã‚Šã¾ã™ã€‚ ã¨ã“ã‚ãŒâ€¦å‹•ã„ãŸã‚Šå‹•ã‹ãªã‹ã£ãŸã‚Šã€æƒ³å®šå¤–ã®å‹•ä½œã‚’ã™ã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ãã‚‚ãã‚‚ã„ãã¤ã‚‚ã®è§£æ±ºæ³•ãŒã‚ã‚‹ã“ã¨è‡ªä½“ãŠã‹ã—ã„ã€ã„ã£ãŸã„æœ¬å½“ã®ç”ãˆã¯ã©ã‚Œï¼Ÿã“ã®éš›ã€ç™½é»’ã¯ã£ãã‚Šã•ã›ã‚ˆã†ã˜ã‚ƒãªã„ã‹ã¨ã„ã†ã®ãŒã“ã®ãƒšãƒ¼ã‚¸ã®è¶£æ—¨ã§ã™ã€‚ <S1> ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®æœ€å¤§è¡Œã€æœ€å¤§åˆ—ã‚’å–å¾—ã™ã‚‹ MaxRow = Rows.Count MaxCol = Columns.Count ã¾ãšåŸºæœ¬ã‹ã‚‰ã§ã™ãŒã€ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®æœ€å¤§è¡Œã€æœ€å¤§åˆ—ã‚’å–å¾—ã™ã‚‹ã‚³ãƒ¼ãƒ‰ã§ã™ã€‚ã‚‚ã¡ã‚ã‚“ã“ã‚Œè‡ªä½“ã¯æœ€çµ‚è¡Œã€æœ€çµ‚åˆ—ã‚’å–å¾—ã™ã‚‹ã‚‚ã®ã§ã¯ã‚ã‚Šã¾ã›ã‚“ã€‚ Rowsã¯ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®è¡Œå…¨ä½“ã‚’ã‚ã‚‰ã‚ã™ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã§ã€Columnsã¯åˆ—å…¨ä½“ã‚’ã‚ã‚‰ã‚ã™ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã§ã™ã€‚ãã®ãƒ¡ã‚½ãƒƒãƒ‰Countã¯æ•°
rindenlab 2017/07/10
VBA

excel
ãƒªãƒ³ã‚¯
IDEA * IDEA
ãƒ‰ãƒƒãƒˆã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ä»£è¡¨ã®ãƒ©ã‚¤ãƒ•ãƒãƒƒã‚¯ãƒ–ãƒã‚°
rindenlab 2013/04/25
excel

VBA
ãƒªãƒ³ã‚¯
VBAã‚¨ã‚ã‚¹ãƒ‘ãƒ¼ãƒˆå…¬å¼ã‚µã‚¤ãƒˆ
å…¨å›½ã«ã‚ã‚‹æœ€å¯„ã‚Šã®VBAã‚¨ã‚ã‚¹ãƒ‘ãƒ¼ãƒˆè©¦é¨“ä¼šå ´ã®æ¤œç´¢ãŒå¯èƒ½ã§ã™ã€‚ã¾ãŸè©¦é¨“å½“æ—¥ã«é–¢ã™ã‚‹è«¸æ³¨æ„ã«ã¤ã„ã¦ã”æ¡ˆå†…ã—ã¦ã„ã¾ã™ã€‚ è©¦é¨“ä¼šå ´ã‚’æŽ¢ã™ è©¦é¨“å½“æ—¥ã«ã¤ã„ã¦ ä¼æ¥ãƒ»å›£ä½“å—é¨“ Odyssey CBTï¼‹(åœ¨å®…ãƒ†ã‚¹ãƒˆ)ã§å—é¨“ã™ã‚‹ å—é¨“ã®æµã‚Œ
rindenlab 2012/10/24
è³‡æ ¼

VBA
ãƒªãƒ³ã‚¯
ãƒžã‚¯ãƒã®å…¥ã£ã¦ã„ã‚‹ã‚¨ã‚¯ã‚»ãƒ«ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ãã¨ãã€ ã„ã¡ã„ã¡ãƒžã‚¯ãƒã‚’æœ‰åŠ¹ã«ã™ã‚‹ã‹ã©ã†ã‹èžã‹ã‚Œã¾ã™ãŒã€ å€‹äººçš„ã«ã¯ãƒžã‚¯ãƒã¯ã„ã¤ã‚‚ä½¿ã†ç‰©ãªã®ã§ã€ ã„ã¡ã„ã¡ãƒœã‚¿ãƒ³â€¦
ãƒžã‚¯ãƒã®å…¥ã£ã¦ã„ã‚‹ã‚¨ã‚¯ã‚»ãƒ«ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‹ãã¨ãã€ ã„ã¡ã„ã¡ãƒžã‚¯ãƒã‚’æœ‰åŠ¹ã«ã™ã‚‹ã‹ã©ã†ã‹èžã‹ã‚Œã¾ã™ãŒã€ å€‹äººçš„ã«ã¯ãƒžã‚¯ãƒã¯ã„ã¤ã‚‚ä½¿ã†ç‰©ãªã®ã§ã€ ã„ã¡ã„ã¡ãƒœã‚¿ãƒ³ã‚’ã‚¯ãƒªãƒƒã‚¯ã™ã‚‹ã®ã¯é¢å€’ã§ã™ã€‚ ã“ã‚Œã‚’ãªãã™æ–¹æ³•ã‚’æ•™ãˆã¦ãã ã•ã„ã€‚
rindenlab 2011/05/25
excel

VBA
ãƒªãƒ³ã‚¯
https://support.microsoft.com/ja-jp/help/879784
ã™ã¹ã¦ Microsoft è£½å“ Microsoft 365 Office Windows Surface Xbox ã‚»ãƒ¼ãƒ« ã‚µãƒãƒ¼ãƒˆ ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ Windows ã‚¢ãƒ—ãƒª OneDrive Outlook Skype OneNote Microsoft Teams PC ã¨ãƒ‡ãƒã‚¤ã‚¹ Xbox ã‚’è³¼å…¥ã™ã‚‹ ã‚¢ã‚¯ã‚»ã‚µãƒª VR & è¤‡åˆç¾å®Ÿ ã‚¨ãƒ³ã‚¿ãƒ¡ Xbox Game Pass Ultimate Xbox Live Gold Xbox ã¨ã‚²ãƒ¼ãƒ PC ã‚²ãƒ¼ãƒ Windows ã‚²ãƒ¼ãƒ æ˜ ç”»ã¨ãƒ†ãƒ¬ãƒ“ç•ªçµ„ æ³•äººå‘ã‘ Microsoft Azure Microsoft Dynamics 365 Microsoft 365 Microsoft Industry ãƒ‡ãƒ¼ã‚¿ ãƒ—ãƒ©ãƒƒãƒˆãƒ•ã‚©ãƒ¼ãƒ Power Platform æ³•äººå‘ã‘ã‚’è³¼å…¥ã™ã‚‹ Developer & IT .NET Visual Studio
rindenlab 2011/05/25
excel

VBA
ãƒªãƒ³ã‚¯
Excel #A022 â‰ªExcelVBAã§è‡ªåˆ†è‡ªèº«ã‚’é–‰ã˜ã‚‹æ–¹æ³•ã€ŠQuit ãƒ¡ã‚½ãƒƒãƒ‰ã€‹â‰«
Macro ABC Excel VBAã§è‡ªåˆ†è‡ªèº«ã‚’é–‰ã˜ã‚‹æ–¹æ³•è‰²ã€… ã€ŠQuit ãƒ¡ã‚½ãƒƒãƒ‰ã€‹ï¼ˆExcel97,2000,2002ï¼‰ Excel VBA ã§ã€è‡ªåˆ†è‡ªèº«ã‚’çµ‚äº†ã™ã‚‹ã®ã¯ã‚¿ã‚¤ãƒŸãƒ³ã‚°ãŒé›£ã—ã„ã§ã™ã€‚ é †ç•ªã‚’é–“é•ãˆã‚‹ã¨ã€ Book ã‚’é–‰ã˜ã¦ã‚‚ Excel ãŒä¸€äººå¯‚ã—ãæ®‹ã•ã‚Œã¦ã—ã¾ã£ãŸã‚Šã—ã¾ã™ã€‚ ä»¥ä¸‹ã«ã€Excel VBA ã§è‡ªåˆ†è‡ªèº«ã‚’é–‰ã˜ã‚‹æ–¹æ³•ã‚’ã¾ã¨ã‚ã¦ã¿ã¾ã—ãŸã€‚
rindenlab 2011/05/25
excel

VBA
ãƒªãƒ³ã‚¯
ã‚¨ã‚¯ã‚»ãƒ«ã§ãƒžã‚¯ãƒå³ã‚¯ãƒªãƒƒã‚¯ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã«ç™»éŒ² - OKWAVE
å³ã‚¯ãƒªãƒƒã‚¯ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã‚’å¤‰æ›´ã™ã‚‹ã«ã¯ã€Application.CommandBars("Cell")ã‚’ä½¿ã„ã¾ã™ã€‚ ä¾‹ãˆã° Sub å³ã‚¯ãƒªãƒƒã‚¯ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã«Macro1ã‚’è¿½åŠ () With Application.CommandBars("Cell") .Controls.Add Type:=msoControlButton, before:=1 .Controls(1).Caption = "Macro1" .Controls(1).OnAction = "Macro1" .Controls(2).BeginGroup = True End With End Sub ã®ã‚ˆã†ã«ä½¿ã„ã¾ã™ã€‚ãŸã ã”å˜çŸ¥ã‹ã¨ã¯æ€ã„ã¾ã™ãŒã€ã“ã®ã¾ã¾Excelã‚’çµ‚äº†ã—ã¦ã—ã¾ã„ã¾ã™ã¨ã€æ¬¡ã‹ã‚‰ã‚‚ã“ã®è¨å®šãŒç”Ÿãã¦ã—ã¾ã„ã¾ã™ã‹ã‚‰ãƒ•ã‚¡ã‚¤ãƒ«ã‚’é–‰ã˜ã‚‹æ™‚ã« Sub Auto_Close() Application.CommandBars("C
rindenlab 2011/05/25
ã“ã‚Œã§ãã‚‹ã¨ä¾¿åˆ©ã‹ã‚‚

excel

VBA
ãƒªãƒ³ã‚¯
MS Access VBA ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«é›†(HTTPã«ã¦ãƒ‡ãƒ¼ã‚¿ã®ã‚„ã‚Šå–ã‚Š) -- Keyï¼šé›‘å¦äº‹å…¸
è§£èª¬ HTTPã«ã¦GETåŠã³POSTã‚’è¡Œã†æ–¹æ³•ã€‚ãƒ¬ã‚¹ãƒãƒ³ã‚¹ã¯ä¸‹è¨˜ã‚µãƒ³ãƒ—ãƒ«ã§ã¯bufã«æ ¼ç´ã•ã‚Œã‚‹ã€‚ ã‚½ãƒ¼ã‚¹ DimÂ Http DimÂ bufÂ AsÂ String DimÂ targetURIÂ AsÂ String 'POSTã‚µãƒ³ãƒ—ãƒ« targetURIÂ =Â "http://sample.com/piyo.cgi" SetÂ HttpÂ =Â CreateObject("MSXML2.XMLHTTP") Http.OpenÂ "POST",Â targetURI,Â False Http.sendÂ "piyo=hoge&hoge=piyo" bufÂ =Â StrConv(Http.ResponseBody,Â vbUnicode) SetÂ HttpÂ =Â Nothing 'GETã‚µãƒ³ãƒ—ãƒ« targetURIÂ =Â "http://sample.com/piyo.cgi?id="Â &Â text_idÂ &Â "&pw="Â
rindenlab 2011/04/22
VBA
ãƒªãƒ³ã‚¯
Web ãƒšãƒ¼ã‚¸ã‚’ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ã™ã‚‹æ–¹æ³•ï½ž MSXML ç·¨ï½ž | YU-TANG's MS-Access Discovery
æ¦‚è¦ Web ãƒšãƒ¼ã‚¸ã®æƒ…å ±ã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ãƒ‹ãƒ¼ã‚ºã¯æ˜”ã‹ã‚‰å˜åœ¨ã—ã¾ã—ãŸãŒã€ã‹ã¤ã¦ã¯ã€ãã‚Œã¯ API ã‚’é§†ä½¿ã™ã‚‹å¤§ä»•äº‹ã§ã—ãŸã€‚ ãã®å¾Œ WinSock ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ã‚„ WinInet ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ã®ã‚ˆã†ãª ActiveX ãŒç™»å ´ã—ã€VB ãƒ¬ãƒ™ãƒ«ã§ã‚‚ä½•ã¨ã‹ãªã‚‹ã‚ˆã†ã«ã¯ãªã‚Šã¾ã—ãŸãŒã€ãã‚Œã§ã‚‚ãªãŠã€ŽãŠæ‰‹è»½ã€ã¨å‘¼ã¶ã«ã¯ç¨‹é ã„çŠ¶æ…‹ã§æœ‰ã‚Šç¶šã‘ãŸã®ã§ã™ã€‚ çŠ¶æ³ãŒå¤‰ã‚ã‚Šå§‹ã‚ãŸã®ã¯ WebBrowser ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ãŒå‡ºç¾ã—ãŸé ƒã‹ã‚‰ã§ã€ãƒ•ã‚©ãƒ¼ãƒ ä¸Šã« Web ãƒšãƒ¼ã‚¸ã‚’è¡¨ç¤ºã§ãã¦ HTML ã‚½ãƒ¼ã‚¹ã«ã‚‚ã‚¢ã‚¯ã‚»ã‚¹å¯èƒ½ãª WebBrowser ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ã¯ã€ä»Šã§ã¯æœ€ã‚‚ä½¿ç”¨é »åº¦ã®é«˜ã„ ActiveX ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ã®ä¸€ã¤ã«ãªã£ã¦ã„ã¾ã™ã€‚ ä»¥ä¸‹ã¯ WebBrowser ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ã‚’ä½¿ç”¨ã—ã¦ HTML ã‚½ãƒ¼ã‚¹ã‚’å–å¾—ã™ã‚‹æ–¹æ³•ã«ã¤ã„ã¦è§£èª¬ã—ãŸã‚µã‚¤ãƒˆã®ä¸€ä¾‹ã§ã™ã€‚ T'sWare Access Tips #267 > ãƒ›ãƒ¼ãƒ ãƒšãƒ¼ã‚¸ã®H
rindenlab 2011/03/04
ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°

VBA
ãƒªãƒ³ã‚¯
1