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

m6u id:m6u

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

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

ACC2000 Twip ã‚’ãƒ”ã‚¯ã‚»ãƒ«ã«å¤‰æ›ã™ã‚‹æ–¹æ³• - Microsoft ã‚µãƒãƒ¼ãƒˆ
: é«˜åº¦ã«ã¯ã€å°‚é–€çš„ãªã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°èƒ½åŠ›ã€ç›¸äº’é‹ç”¨æ€§ã€ãŠã‚ˆã³ãƒžãƒ«ãƒ ãƒ¦ãƒ¼ã‚¶ãƒ¼ã®ã‚¹ã‚ãƒ«ãŒå¿…è¦ã§ã™ã€‚ ã“ã®è³‡æ–™ã«ã¯ã€Microsoft Access ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ (.mdb) ã¨ Microsoft Access ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆ (.adp) ãŒé©ç”¨ã•ã‚Œã¾ã™ã€‚ æ¦‚è¦ Access ã§ã¯ã€twip å˜ä½ã¨å¯¸æ³•ã¨ä½ç½®ã®ãƒ—ãƒãƒ‘ãƒ†ã‚£ãŒæ ¼ç´ã•ã‚Œã¦ã€ç‰¹å®šã®çŠ¶æ³ã§ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ Windows API é–¢æ•°ã‚’å‘¼ã³å‡ºã™å ´åˆãªã©ã€ãƒ”ã‚¯ã‚»ãƒ«ã‚’ twip å˜ä½ã«å¤‰æ›ã—ã¾ã™ã€‚ã“ã®è³‡æ–™ã§ã¯ã€ã“ã‚Œã‚’è¡Œã†æ–¹æ³•ã‚’ç¤ºã—ã¾ã™ã€‚ ãƒžã‚¤ã‚¯ãƒã‚½ãƒ•ãƒˆã§ã¯è§£èª¬ã™ã‚‹ã“ã¨ã®ã¿ã‚’ç›®çš„ã¨ã—ã¦ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ä¾‹ã‚’æä¾›ã—ã¦ã„ã¾ã™ã€‚æš—ç¤ºã‚ã‚‹ã„ã¯æ˜Žç¤ºã—ã¦ã„ã‚‹ã“ã¨ã«å¯¾ã—ã¦ã®ä¿è¨¼ã¯ã—ã¦ãŠã‚Šã¾ã›ã‚“ã€‚ã“ã“ã§è¨€ã†ä¿è¨¼ã¨ã¯ã€ç‰¹å®šã®ç›®çš„ã«å¯¾ã™ã‚‹å•†å“æ€§ã‚„é©åˆæ€§ã®æš—ç¤ºçš„ä¿è¨¼ã‚’å«ã‚“ã§ã„ã¾ã™ãŒã€ãã‚Œã«é™å®šã•ã‚Œã‚‹ã‚ã‘ã§ã¯ã‚ã‚Šã¾ã›ã‚“ã€‚ã“ã®è³‡æ–™ã§ã¯ã€ä¾‹ç¤ºã•ã‚Œã¦ã„ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªž
m6u 2017/02/15
VBAã§TwipsPerPixelsX/Yã‚’ã‚„ã‚‹æ–¹æ³•

VBA
ãƒªãƒ³ã‚¯
é›‘è¨˜ã€€Twipã‚’Pixcelã«å¤‰æ›ã™ã‚‹: ACCESSã¨VBAã¨ã‚·ã‚¹ãƒ†ãƒ é–‹ç™º
m6u 2017/02/15
VBAã§TwipsPerPixelsX/Yã‚’ã‚„ã‚‹æ–¹æ³•

VBA
ãƒªãƒ³ã‚¯
Excel 2010 (Microsoft Visual Basic for Applications)ã§ã‚·ãƒªã‚¢ãƒ«é€šä¿¡ã‚’è¡Œã„ãŸã„
.Netã®çµŒé¨“ãŒç„¡ãã¦ã€VC6ã‚’ä½¿ã£ã¦ã„ãŸãªã‚‰VCã§MSCommã¨åŒã˜ã‚ˆã†ãªCOMã‚’ä½œã£ã¦ã—ã¾ã†ã®ãŒæ—©ã„ã¨ã¯æ€ã„ã¾ã™ãŒã€‚ ã‚ã’ã‚‰ã‚Œã¦ã„ã‚‹æ¡ä»¶ã‚’æº€ãŸã™ã‚ˆã†ãªã‚„ã‚Šæ–¹ã®ä¸€ä¾‹ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªã‚‚ã®ãŒã‚ã‚Šã¾ã™ã€‚ æ–¹æ³•1(é›£æ˜“åº¦5 professionalç‰ˆãªã‚‰3) VSTOã§å®Ÿè£…ã€‚ Excel VBAã‹ã‚‰ã¯COMã¨åŒæ§˜ã«æ“ä½œã€‚ éžåŒæœŸå—ä¿¡ã¯ã‚¤ãƒ™ãƒ³ãƒˆã®å®Ÿè£…æ¬¡ç¬¬ã€‚ (ã‚³ãƒ¼ãƒ‰ãŒé•·ããªã‚‹ã®ã§ã‚µãƒ³ãƒ—ãƒ«ç„¡ã—) æ–¹æ³•2(é›£æ˜“åº¦3) COMç›¸äº’é‹ç”¨ã§ã€.NetFrameworkã§ä½œæˆã—ãŸãƒ—ãƒã‚°ãƒ©ãƒ ã‚’COMå‚ç…§å¯èƒ½ã«ã—ã¦å…¬é–‹ã™ã‚‹ã€‚ Excel VBAã‹ã‚‰ã¯COMã¨åŒæ§˜ã«æ“ä½œã€‚ éžåŒæœŸå—ä¿¡ã¯ã‚¤ãƒ™ãƒ³ãƒˆã®å®Ÿè£…æ¬¡ç¬¬ã€‚ (ã‚³ãƒ¼ãƒ‰ãŒé•·ããªã‚‹ã®ã§ã‚µãƒ³ãƒ—ãƒ«ç„¡ã—) æ–¹æ³•3(é›£æ˜“åº¦1) VB.Netç‰ã‚’ä½¿ç”¨ã—ã¦æ¨™æº–å‡ºåŠ›çµŒç”±ã§é€šä¿¡ã€‚ Excel VBAã‹ã‚‰ã¯WshShellã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆçµŒç”± éžåŒæœŸå—ä¿¡ã¯ã§ããªã„ã€‚(VBAå´ãŒãƒžãƒ«ãƒã‚¹ãƒ¬ãƒƒãƒ‰ã§ã
m6u 2017/01/25
VBA

COMãƒãƒ¼ãƒˆ
ãƒªãƒ³ã‚¯
Office TANAKA - Excel VBA Tips[è‡ªå‹•çš„ã«é–‰ã˜ã‚‹MsgBox]
ç”»é¢ã«ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’è¡¨ç¤ºã™ã‚‹ã«ã¯MsgBoxé–¢æ•°ã‚’ä½¿ã„ã¾ã™ã€‚ãŸã¨ãˆã°æ¬¡ã®ã‚³ãƒ¼ãƒ‰ã¯ã€ç”»é¢ã«ã€Œç”°ä¸äº¨ã€ã¨ã„ã†æ–‡å—åˆ—ã‚’è¡¨ç¤ºã—ã¾ã™ã€‚ Sub Sample() MsgBox "ç”°ä¸äº¨" End Sub ç”»é¢ã«ã¯[OK]ãƒœã‚¿ãƒ³ä»˜ãã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ãŒè¡¨ç¤ºã•ã‚Œã¾ã™ã€‚ ã“ã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ã¯ã€ãƒ¦ãƒ¼ã‚¶ãƒ¼ãŒ[OK]ãƒœã‚¿ãƒ³ã‚’ã‚¯ãƒªãƒƒã‚¯ã™ã‚‹ã¾ã§ã€ãšã£ã¨è¡¨ç¤ºã•ã‚Œç¶šã‘ã¾ã™ã€‚ã§ã¯ã€æŒ‡å®šã—ãŸæ™‚é–“ãŒçµŒéŽã—ãŸã‚‰è‡ªå‹•çš„ã«é–‰ã˜ã‚‹ã‚ˆã†ãªãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ã‚’è¡¨ç¤ºã™ã‚‹ã«ã¯ã©ã†ã—ãŸã‚‰ã„ã„ã§ã—ã‚‡ã†ï¼Ÿ æ®‹å¿µãªãŒã‚‰Excelã®VBAã«ã¯ã€ãã†ã—ãŸä¾¿åˆ©ãªé–¢æ•°ã¯ç”¨æ„ã•ã‚Œã¦ã„ã¾ã›ã‚“ã€‚ã‚‚ã—ã©ã†ã—ã¦ã‚‚è‡ªå‹•çš„ã«é–‰ã˜ã‚‹ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ã‚’è¡¨ç¤ºã—ãŸã„ã®ã§ã—ãŸã‚‰ã€Windows Scripting Host(WSH)ã‚’ä½¿ã„ã¾ã—ã‚‡ã†ã€‚WSHã®Popupãƒ¡ã‚½ãƒƒãƒ‰ã§è¡¨ç¤ºã—ãŸãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ã¯ã€æŒ‡å®šã—ãŸæ™‚é–“ãŒçµŒéŽã™ã‚‹ã¨è‡ªå‹•çš„ã«é–‰ã˜ã¾ã™ã€‚æ¬¡ã®ã‚µãƒ³ãƒ«ã¯ã€è¡¨ç¤ºã—ãŸãƒ¡ãƒƒã‚»
m6u 2014/01/31
è‡ªå‹•ã§é–‰ã˜ã‚‹MsgBoxã‚‚ã©ã

VBA
ãƒªãƒ³ã‚¯
ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã›
ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã› ã„ã¤ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”åˆ©ç”¨ã„ãŸã ãèª ã«ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ãŠå®¢æ§˜ãŒã‚¢ã‚¯ã‚»ã‚¹ã•ã‚ŒãŸã‚µãƒ¼ãƒ“ã‚¹ã¯æœ¬æ—¥ã¾ã§ã«ã‚µãƒ¼ãƒ“ã‚¹ã‚’çµ‚äº†ã„ãŸã—ã¾ã—ãŸã€‚ ä»Šå¾Œã¨ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”æ„›é¡§ãã ã•ã„ã¾ã™ã‚ˆã†ã€ã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚
m6u 2013/04/09
ã¾ã•ã«ã“ã‚Œã«ãƒãƒžã£ãŸã—ã€‚

access

VBA
ãƒªãƒ³ã‚¯
Access #M029 â‰ªæ–‡å—åˆ—å†…ã®ãƒã‚¤ãƒ•ãƒ³ã‚„ç©ºç™½ã‚’å‰Šé™¤ãƒ»æ–‡å—ã‚’ç½®æ›ã™ã‚‹é–¢æ•°ã€ŠAccess2000é¢¨ replaceé–¢æ•°ã€‹(Access97,Excel97ç”¨)â‰«
Module æ–‡å—åˆ—å†…ã®ãƒã‚¤ãƒ•ãƒ³ã‚„ç©ºç™½ã‚’å‰Šé™¤ãƒ»æ–‡å—ã‚’ç½®æ›ã™ã‚‹é–¢æ•° ã€ŠAccess2000é¢¨ replaceé–¢æ•°ã€‹ã€€(Access97ç”¨) Access2000 ã‹ã‚‰ã¯ã€Replaceé–¢æ•°ãŒä½¿ç”¨ã§ãã¾ã™ã€‚ ã“ã‚Œã¯ã€æ–‡å—åˆ—å†…ã®ç©ºç™½ã‚„ãƒã‚¤ãƒ•ãƒ³ã‚’å‰Šé™¤ã—ãŸã‚Šã€ç‰¹å®šã®æ–‡å—ã‚’ç½®ãæ›ãˆãŸã‚Šã™ã‚‹æ™‚ã« éžå¸¸ã«ä¾¿åˆ©ã§ã™ã€‚ ã¨ã“ã‚ãŒ Access97 ã«ã¯ã“ã®é–¢æ•°ã¯ã‚ã‚Šã¾ã›ã‚“ã€‚ ä»•æ–¹ãŒãªã„ã®ã§ä½œã£ã¦ã¿ã¾ã—ãŸã€‚ ä»¥ä¸‹ã®æ–‡ã‚’æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«è²¼ã‚Šä»˜ã‘ã¦ãã ã•ã„ã€‚ (ã“ã®é–¢æ•°ã¯ãã®ã¾ã¾ Excel97 ã§ã‚‚ä½¿ç”¨ã§ãã¾ã™ã€‚) â‰ªæ¨™æº–ç”¨â‰« Function myReplace(ByVal myString, ByVal myFind, ByVal myRp) 'Access2000é¢¨ replaceé–¢æ•° (Access97ã€Excel97ç”¨) 'è¤‡æ•°æ–‡å—å¯¾å¿œã€€2003/10/11 pPoy Dim
m6u 2013/02/28
ã¾ã 97ã‚¢ãƒ—ãƒªã®ãƒ¡ãƒ³ãƒ†ã‚’ã‚„ã£ã¦ã‚‹( Â´Ð”ï½€)=3

access

VBA
ãƒªãƒ³ã‚¯
å…¨ã¦ã¯æ™‚ã®ä¸ã«â€¦ : ã€Excelã€‘VBAã§åˆ—ç•ªå·ã‹ã‚‰åˆ—åã‚’å–å¾—ã™ã‚‹æ–¹æ³•
2007/10/523:39 ã€Excelã€‘VBAã§åˆ—ç•ªå·ã‹ã‚‰åˆ—åã‚’å–å¾—ã™ã‚‹æ–¹æ³• Excelã§VBAã‚’åˆ©ç”¨ã—ã¦ã„ã‚‹ã¨ã€ã‚»ãƒ«ã®æŒ‡å®šï¼ˆA1,B2ç‰ï¼‰ã‚’A1å½¢å¼ã§ã¯ãªãã€R1C1å½¢å¼ã§è¡Œã†ãŸã‚ã€ åˆ—ã®ä½ç½®ã‚’ç¤ºã™ãŸã‚ã«ã‚¢ãƒ«ãƒ•ã‚¡ãƒ™ãƒƒãƒˆã§ã¯ãªãã€æ•°å—ã‚’åˆ©ç”¨ã™ã‚‹ã€‚ ï¼ˆCells(è¡Œç•ªå·, åˆ—ç•ªå·)ã®ã‚ˆã†ã«æŒ‡å®šã™ã‚‹ï¼‰ ãã®ãŸã‚ã€VBAã§ã¯ã€ä¸€èˆ¬çš„çš„ã«è¡Œã¨åˆ—ã‚’è¡¨ã™ãŸã‚ã«æ•°å—ã‚’åˆ©ç”¨ã™ã‚‹ã€‚ ã‚»ãƒ«ã®ç¯„å›²æŒ‡å®šã§åˆ—ã‚’æŒ‡å®šã—ãŸã„å ´åˆã‚„ã€ã‚»ãƒ«ã«æ•°å¼ã‚’åŸ‹ã‚è¾¼ã‚€å ´åˆç‰ã«ã¯ã€åˆ—åã§æŒ‡å®šã—ãŸã„ ã“ã¨ãŒã‚ã‚‹ã€‚ ãƒ»ã‚»ãƒ«ç¯„å›²æŒ‡å®šã§åˆ—ã‚’æŒ‡å®šã—ãŸã„å ´åˆ Sheets(1).Range("A:B").Select ãƒ»ã‚»ãƒ«ã«æ•°å¼ã‚’åŸ‹ã‚è¾¼ã‚€å ´åˆ Sheets(1).Cells(1,1).Value = "=SUM(A2:A5)" ã“ã†ã„ã£ãŸã€åˆ—åã‚’æŒ‡å®šã‚’ã—ãŸã„å ´åˆã«ã¯ã€åˆ—ç•ªå·ã‚’åˆ—åã«å¤‰æ›ã™ã‚‹å¿…è¦ãŒã‚ã‚‹ã€‚ ä»¥ä¸‹ã€åˆ—ç•ªå·ã‚’åˆ—åã«å¤‰æ›ã™ã‚‹ãŸã‚ã®ã‚µãƒ³ãƒ—
m6u 2013/02/25
ã‚¢ãƒ‰ãƒ¬ã‚¹å–å¾—ã®æ™‚ã«RowAbsoluteã¨ColumnAbsoluteã‚’Falseã§ä¸Žãˆã‚Œã°$ãªã‚“ã¦ã¤ã‹ãªã„ã®ã«ã€‚

excel

VBA
ãƒªãƒ³ã‚¯
accessclub.jpÂ -Â ã“ã®ã‚¦ã‚§ãƒ–ã‚µã‚¤ãƒˆã¯è²©å£²ç”¨ã§ã™ï¼Â -Â ã‚¢ã‚¯ã‚»ã‚¹ã‚¯ãƒ©ãƒ– ãƒªã‚½ãƒ¼ã‚¹ãŠã‚ˆã³æƒ…å ±
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.
m6u 2012/08/02
VBAã®ã‚³ãƒ¼ãƒ‰ã‹ã‚‰ãƒ†ãƒ¼ãƒ–ãƒ«ä½œæˆã™ã‚‹å…·ä½“ä¾‹ã€‚

VBA

access

ãƒ†ãƒ¼ãƒ–ãƒ«ä½œæˆ
ãƒªãƒ³ã‚¯
ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã›
ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã› ã„ã¤ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”åˆ©ç”¨ã„ãŸã ãèª ã«ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ãŠå®¢æ§˜ãŒã‚¢ã‚¯ã‚»ã‚¹ã•ã‚ŒãŸã‚µãƒ¼ãƒ“ã‚¹ã¯æœ¬æ—¥ã¾ã§ã«ã‚µãƒ¼ãƒ“ã‚¹ã‚’çµ‚äº†ã„ãŸã—ã¾ã—ãŸã€‚ ä»Šå¾Œã¨ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”æ„›é¡§ãã ã•ã„ã¾ã™ã‚ˆã†ã€ã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚
m6u 2012/07/25
RecordsetCloneã®å…·ä½“ä¾‹ã€‚

access

VBA
ãƒªãƒ³ã‚¯
Excel ã§ã€ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ä»‹ã—ã¦ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚’ã‚³ãƒ”ãƒ¼ã™ã‚‹ã¨ã€Œå®Ÿè¡Œæ™‚ã‚¨ãƒ©ãƒ¼ 1004 ã€ãŒç™ºç”Ÿã™ã‚‹
ã™ã¹ã¦ 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
m6u 2012/07/23
åŒã˜ãƒ–ãƒƒã‚¯å†…ã§ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã®è¤‡å†™ã‚’ç¹°ã‚Šè¿”ã™ã¨å®Ÿè¡Œæ™‚ã‚¨ãƒ©ãƒ¼1004ãŒç™ºç”Ÿã™ã‚‹ã€ãã®å¯¾ç–æ–¹æ³•ã€‚

excel

VBA
ãƒªãƒ³ã‚¯
ãƒ•ã‚©ãƒ¼ãƒ ã® Recordset, RecorsetClone, RecordSet.Clone ã®é•ã„ã¨ã¯ï¼Ÿ
ãƒ•ã‚©ãƒ¼ãƒ ã€€F_Tbl1 Tbl1ã‚ˆã‚Šã‚ªãƒ¼ãƒˆãƒ•ã‚©ãƒ¼ãƒ ï¼šè¡¨å½¢å¼ ã§ä½œæˆã€‚ ãƒ•ã‚©ãƒ¼ãƒ ãƒ˜ãƒƒãƒ€ãƒ¼ã«ã‚³ãƒžãƒ³ãƒ‰ãƒœã‚¿ãƒ³ã‚’4ã¤é…ç½®ã—ã¦ã€åå‰ã‚’ãã‚Œãžã‚Œã€cmdRecordsetUpdate, cmdRecordsetCloneUpdate, cmdRecordset_CloneUpdate, cmdSQLExecute ã¨ã—ã¾ã™ã€‚ãƒ•ã‚©ãƒ¼ãƒ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ä¸‹è¨˜ã®ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚ Option Compare Database Option Explicit Private Sub cmdRecordset_CloneUpdate_Click() Dim begintime As Single Dim rs As DAO.Recordset Randomize begintime = Timer Set rs = Me.Recordset.Clone rs.MoveFirst Do Until rs.EOF rs.
m6u 2012/07/16
Recordset, RecorsetClone, Recordset.Cloneã®æ¯”è¼ƒã€‚èˆˆå‘³æ·±ã„ã€‚

access

VBA
ãƒªãƒ³ã‚¯
Office 2007/2010ãƒ»ãƒªãƒœãƒ³ã®ã‚«ã‚¹ã‚¿ãƒžã‚¤ã‚º åˆå¿ƒè€…å‚™å¿˜éŒ²
ä¸‹è¨˜ã®ã‚³ãƒ¼ãƒ‰ã§ã€ç¾åœ¨é–‹ã„ã¦ã„ã‚‹ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹è‡ªèº«ã‚’æœ€é©åŒ–ã§ãã¾ã™ã€‚ â€» Access 2000ã¨2003ã§å‹•ä½œã®ç¢ºèªã‚’è¡Œã„ã¾ã—ãŸã€‚ â€» å…¥åŠ›ä¸ã®ãƒ‡ãƒ¼ã‚¿ãŒå¤±ã‚ã‚Œã‚‹å ´åˆãŒã‚ã‚Šã¾ã™ã®ã§ã€ä¸‹è¨˜ã‚³ãƒ¼ãƒ‰ã‚’å®Ÿè¡Œã™ã‚‹éš›ã¯ååˆ†ã”æ³¨æ„ãã ã•ã„ã€‚ Sub CompactAndRepairDatabase() Application.CommandBars.FindControl(id:=2071).accDoDefaultAction End Sub â€» å½“ã‚µã‚¤ãƒˆã¯Internet Explorer 6,7,8ã€Firefox 3.5ã€Opera 10ã€Safari 4ã€Google Chrome 3ã§å‹•ä½œç¢ºèªã‚’è¡Œã„ã¾ã—ãŸã€‚ â€» å½“ã‚µã‚¤ãƒˆã®æŽ¨å¥¨é–²è¦§ç’°å¢ƒï¼šãƒ‡ã‚£ã‚¹ãƒ—ãƒ¬ã‚¤ã®è§£åƒåº¦ã€Œ1024Ã—768ãƒ‰ãƒƒãƒˆä»¥ä¸Šã€ã€ãƒ•ã‚©ãƒ³ãƒˆã‚µã‚¤ã‚ºã€Œä¸ã€ â€» å½“ã‚µã‚¤ãƒˆä¸Šã«æŽ²è¼‰ã•ã‚Œã¦ã„ã‚‹æƒ…å ±ã«ã‚ˆã£ã¦ç”Ÿã˜ãŸã€ã„ã‹ãªã‚‹æå®³ã«ã¤ã„ã¦ã‚‚ç®¡ç†è€…ã¯ä¸€åˆ‡ã®è²¬
m6u 2012/07/11
ã¡ã‚‡ã£ã¨æ€–ã„ãªã€ã§ã‚‚æ°—ã«ãªã‚‹

VBA

access

access2003

*ã‚ã¨ã§èªã‚€
ãƒªãƒ³ã‚¯
ã‚¯ãƒ¬ã‚¸ãƒƒãƒˆã‚«ãƒ¼ãƒ‰ç¾é‡‘åŒ–ã®é«˜é‚„å…ƒçŽ‡ã®å„ªè‰¯åº—ã‚’é¸ã¶ãŸã‚ã«ã¯
ã‚¯ãƒ¬ã‚¸ãƒƒãƒˆã‚«ãƒ¼ãƒ‰ç¾é‡‘åŒ–ã®é«˜é‚„å…ƒçŽ‡ã®å„ªè‰¯åº—ã‚’é¸ã¶ãŸã‚ã«ã¯ ã‚¯ãƒ¬ã‚¸ãƒƒãƒˆã‚«ãƒ¼ãƒ‰ç¾é‡‘åŒ–ã®å„ªè‰¯åº—ã‚’é¸ã¶ãƒã‚¤ãƒ³ãƒˆã¯ã€æ›é‡‘çŽ‡ã‚„ã‚¹ãƒ”ãƒ¼ãƒ‰ã‚‚ã‚ã‚Šã¾ã™ãŒã€ãã®ã»ã‹ã«ã‚‚è¦‹ã¦ãŠããŸã„ãƒã‚¤ãƒ³ãƒˆã‚‚ã‚ã‚Šã¾ã™ã€‚ ãŠé‡‘ã«åŽ³ã—ã„äººãŒåˆ©ç”¨ã—ã¾ã™ã®ã§ã€æ‰‹æ•°æ–™ã‚„ã‚ãƒ£ãƒ³ãƒšãƒ¼ãƒ³ã®æœ‰ç„¡ã€ä¾¡æ ¼äº¤æ¸‰ãŒã§ãã‚‹æ¥è€…ã¨ã„ã†ã“ã¨ã¯è¦‹ã¦ãŠããŸã„ã¨ã“ã‚ã§ã™ã€‚ ãã‚Œãžã‚Œã©ã®ã‚ˆã†ãªå†…å®¹ãªã®ã§ã—ã‚‡ã†ã‹ã€‚ æ‰‹æ•°æ–™ãŒç„¡æ–™ã§ã‚ã‚‹ã‚¯ãƒ¬ã‚¸ãƒƒãƒˆã‚«ãƒ¼ãƒ‰ç¾é‡‘åŒ–ã®æ¥è€…ã«ã¯ã€æ‰‹æ•°æ–™ã‚’ã™ã¹ã¦ç„¡æ–™ã§ã—ã¦ãã‚Œã‚‹ã¨ã“ã‚ãŒã‚ã‚Šã¾ã™ã€‚ æ¥è€…ã«ã‚ˆã£ã¦ã¯ã€å˜ç´”ã«æ‰‹æ•°æ–™ã¨ã„ã†åç›®ã§æ¥è€…å´ã®åˆ©ç›ŠãŒã¨ã‚‰ã‚Œã¦ã„ãŸã‚Šã€æŒ¯è¾¼æ‰‹æ•°æ–™ã€äº‹å‹™æ‰‹æ•°æ–™ã¨ã„ã†åç›®ã§å°‘é¡ãªãŒã‚‰ãŠé‡‘ãŒã‹ã‹ã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ ã›ã£ã‹ãé«˜ã„æ›é‡‘çŽ‡ãŒè¨˜è¼‰ã•ã‚Œã¦ã„ã¦ã‚‚ã€æ‰‹æ•°æ–™ã®åˆ†ãŒå·®ã—å¼•ã‹ã‚Œã‚‹ã“ã¨ã§ã€æã‚’ã—ãŸã‚ˆã†ãªæ°—æŒã¡ã«ãªã£ãŸã‚Šå¾Œã‹ã‚‰æ°—ã¥ãã“ã¨ã‚‚ã‚ã‚Šã¾ã™ã€‚ ã“ã‚Œã‚‰ã®æ‰‹æ•°æ–™ã¯æœ€åˆã‹ã‚‰å…¬å¼ãƒ›ãƒ¼ãƒ ãƒšãƒ¼ã‚¸ã«è¨˜è¼‰ãŒã‚ã‚‹å ´åˆã¯äº†æ‰¿ã—ãŸã†ãˆã§ç”³ã—è¾¼ã¿ã‚‚ã§ã
m6u 2012/07/11
HttpSendRequestã®æˆ»ã‚Šå€¤ã§æˆå¦ãŒå¾—ã‚‰ã‚Œã‚‹ã®ã«ã€ãã‚Œã‚’ãƒã‚§ãƒƒã‚¯ã›ãšã«ã„ããªã‚ŠErr.LastDllErrorã‚’è¦‹ã¦ã—ã¾ã†ã¨ãƒãƒžã‚‹ã“ã¨ã«æ³¨æ„ã€‚http://social.msdn.microsoft.com/Forums/ja/vbgeneralja/thread/be5d5fc7-854b-47ca-a1d1-7829e09c9ee1

VBA

HTTP
ãƒªãƒ³ã‚¯
Access Tips #044 ä¸€å®šæ™‚é–“å¾…ã¤æ–¹æ³•(Timeré–¢æ•°ãƒ»Nowé–¢æ•°ã‚’ä½¿ã£ãŸæ–¹æ³•) | T'sWare
VBAã®ä¸€é€£ã®ã‚³ãƒ¼ãƒ‰ã®ä¸ã§ã€å‡¦ç†ã¨å‡¦ç†ã¨ã®é–“ã§ä¸€å®šæ™‚é–“å¾…æ©Ÿã™ã‚‹æ–¹æ³•ã‚’ã”ç´¹ä»‹ã—ã¾ã™ã€‚ ã“ã“ã§ã¯ã¾ãšÂ Timeré–¢æ•°Â ã‚’ä½¿ã£ã¦ãã‚Œã‚’å®Ÿç¾ã™ã‚‹ã‚µãƒ³ãƒ—ãƒ«ãƒ—ãƒã‚·ãƒ¼ã‚¸ãƒ£ã‚’ç¤ºã—ã¾ã™ã€‚Timeré–¢æ•°ã¯åˆå‰0æ™‚ã‹ã‚‰ã®çµŒéŽç§’æ•°ã‚’å˜ç²¾åº¦æµ®å‹•å°æ•°ç‚¹æ•°åž‹(Single)ã§è¿”ã™é–¢æ•°ã§ã™ã€‚ã“ã®ã‚µãƒ³ãƒ—ãƒ«ãƒ—ãƒã‚·ãƒ¼ã‚¸ãƒ£ã¯ã€ä¸€å®šæ™‚é–“å¾…æ©Ÿã™ã‚‹éƒ¨åˆ†ã‚’å«ã‚€ãƒ—ãƒã‚·ãƒ¼ã‚¸ãƒ£ã‹ã‚‰ã€ SubÂ WaitSec(sngWaitSecÂ AsÂ Single) DimÂ sngCurTimerÂ AsÂ Single 'ç¾æ™‚åˆ»ã®Timeré–¢æ•°å€¤ã«å¼•æ•°ã®ç§’æ•°ã‚’åŠ ãˆã¦æŒ‡å®šæ™‚é–“çµŒéŽå¾Œã®å€¤ã‚’è¨å®šã—ã¾ã™ sngCurTimerÂ =Â TimerÂ +Â sngWaitSec 'ç¾æ™‚åˆ»ã®Timeré–¢æ•°å€¤ãŒæ‰€å®šã®çµŒéŽå¾Œã®å€¤ã«ãªã‚‹ã¾ã§ãƒ«ãƒ¼ãƒ—ã§å¾…ã¡ã¾ã™ Do LoopÂ UntilÂ TimerÂ >=Â sngCurTimer EndÂ Sub ã—ã‹ã—ã€ä¸Šè¨˜ã®ã‚³ãƒ¼ãƒ‰ã«ã¯ï¼‘ã¤å•é¡Œç‚¹ãŒã‚ã‚Šã¾ã™
m6u 2012/07/10
ç¢ºå®Ÿã«æŒ‡å®šç§’ã®å¾…ã¡ã‚’è¨ã‘ã‚‹æ–¹æ³•

VBA
ãƒªãƒ³ã‚¯
DateSerialé–¢æ•° â€¦å¹´ã€æœˆã€æ—¥ã®æ•°å€¤ã‹ã‚‰æ—¥ä»˜ã‚’ä½œæˆã™ã‚‹
æ›¸å¼ DateSerial(å¹´, æœˆ, æ—¥) å¹´ã€æœˆã€æ—¥ã®æ•°å€¤ã‹ã‚‰æ—¥ä»˜ã‚’ä½œæˆã—ã¦è¿”ã—ã¾ã™ã€‚æŒ‡å®šã—ãŸå¹´ã€æœˆã€æ—¥ã‚’ãã®ã¾ã¾æ—¥ä»˜ã«ã§ããªã„ã¨ãã¯ã€ç›¸å¯¾çš„ã«è¨ˆç®—ã—ãŸæ—¥ä»˜ãŒè¿”ã‚Šã¾ã™ã€‚ â– æˆ»ã‚Šå€¤ã®åž‹ã€€ãƒãƒªã‚¢ãƒ³ãƒˆåž‹ (å†…éƒ¨å‡¦ç†å½¢å¼ Date ã® Variant) â– å¼•æ•°
m6u 2012/06/06
ã€Šã€Œ0æ—¥ã€ã‚’å‰æœˆæœ«æ—¥ã¨è¦‹ãªã™ã€‹ã¨ã¯ç›®ã‹ã‚‰ã†ã‚ã“ã€‚

VBA
ãƒªãƒ³ã‚¯
ã™ãã«å½¹ç«‹ã¤ã‚¨ã‚¯ã‚»ãƒ«VBAãƒžã‚¯ãƒé›† - Excel VBA Macro Collection
'================================================================================= Sub ã™ã¹ã¦ã®ã‚»ãƒ«ã®å†…å®¹ã‚’ã™ã¹ã¦ã‚¯ãƒªã‚¢ã™ã‚‹() Cells.Clear 'â€»ï¼‘ Sheets("SSS").Cells.Clear 'â€»ï¼’ End Sub '================================================================================= ï¼œã‚³ãƒ¡ãƒ³ãƒˆï¼ž â€»ï¼‘ ç¾åœ¨ã‚¢ã‚¯ãƒ†ã‚£ãƒ–ãªã‚·ãƒ¼ãƒˆã«å¯¾ã—ã¦å®Ÿè¡Œã•ã‚Œã‚‹ â€»ï¼’ SSSã«ã¯ã‚·ãƒ¼ãƒˆåï¼ˆã‚¢ã‚¯ãƒ†ã‚£ãƒ–ã§ãªãã¦ã‚‚è‰¯ã„ï¼‰ã‚’è¨˜å…¥ '================================================================================= Sub é¸æŠžã•ã‚ŒãŸã‚»ãƒ«
m6u 2012/05/12
æ•°å€¤ã ã‘æ¶ˆã™æ–¹æ³•ã«ã‚¦ã‚½ã®ãƒšãƒ¼ã‚¸ãŒå¤šã‹ã£ãŸã‘ã©ã€ã“ã®ãƒšãƒ¼ã‚¸ã¯æ£ã—ã‹ã£ãŸã€‚

excel

VBA
ãƒªãƒ³ã‚¯
http://park11.wakwak.com/~miko/Excel_Note/04-02_sheet.htm
m6u 2010/11/11
ExcelVBAã§ã®ã€ã‚·ãƒ¼ãƒˆã®ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆåã‚’å¤‰æ›´ã™ã‚‹æ–¹æ³•ã€‚éš ã—ãƒ—ãƒãƒ‘ãƒ†ã‚£ã‚’é§†ä½¿ã™ã‚‹ã¨ã¯æ°—ã¥ã‹ãªã„ã‚ã‘ã ã€‚

VBA

ä»•äº‹
ãƒªãƒ³ã‚¯
VBAå°æŠ€é›†(Office Boole)
â—ä¸€å®šé–“éš”ã§ã®è¡ŒæŒ¿å…¥ã‚’ä¸€æ‹¬å®Ÿè¡Œã—ãŸã„ã¨ã â—ç©ºç™½è¡Œã‚’ä¸€æ‹¬ã§å‰Šé™¤ã—ãŸã„ã¨ã â—å‡¦ç†ã®é€Ÿåº¦ã‚’ä¸Šã’ãŸã„ã¨ãï¼ˆç”»é¢æ›´æ–°ã®æŠ‘åˆ¶ï¼‰ â—ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³ã‚°ã®èª¤ã‚Šã‚’è¦‹ã¤ã‘ãŸã„ã¨ãï¼ˆãƒ‡ãƒãƒƒã‚°ï¼‰ â—ä¹±æ•°ã‚’å–å¾—ã—ãŸã„ã¨ã â—ã‚»ãƒ«ã®å€¤ã‚’åˆ†å‰²ã—ã¦åˆ¥ã®å„ã‚»ãƒ«ã¸é…ç½®ã—ãŸã„ã¨ã â—ãƒ†ã‚ã‚¹ãƒˆãƒ•ã‚¡ã‚¤ãƒ«ã«æ›¸ã„ãŸã‚³ãƒ¼ãƒ‰ã‚’æ¨™æº–ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«æŒ¿å…¥ã—ãŸã„ã¨ã â—å‡¦ç†ç¢ºèªã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã‚’å‡ºã—ãŸããªã„ã¨ãï¼ˆè¦å‘Šãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã®æŠ‘åˆ¶ï¼‰ â—åŒã˜ãƒ•ã‚©ãƒ«ãƒ€ã«ã‚ã‚‹åˆ¥ã®Bookã‚’é–‹ããŸã„ã¨ã â—é›†è¨ˆã®å‡¦ç†é€Ÿåº¦ã‚’ä¸Šã’ãŸã„ã¨ã â—ã€Œé–‹ãã€ãƒ€ã‚¤ãƒã‚°ã‚’ä½¿ã£ã¦ãƒ•ã‚¡ã‚¤ãƒ«åã‚’å–å¾—ã—ãŸã„ã¨ã â—ä»»æ„ã®æ•°ã®å¼•æ•°ã‚’å—ã‘å–ã‚‹é–¢æ•°ã‚’ä½œæˆã—ãŸã„ã¨ã â—å‡¦ç†é€Ÿåº¦ã‚’ä¸Šã’ã‚‹ãŸã‚ã€ä¸€æ™‚çš„ã«å†è¨ˆç®—ã‚’æ¢ã‚ãŸã„ã¨ã â—å³ã‚¯ãƒªãƒƒã‚¯ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã«ãƒžã‚¯ãƒã‚’ç™»éŒ²ã—ãŸã„ã¨ã â—1è¡Œç›®ã‚’é™¤ã„ãŸç¯„å›²ã‚’é¸æŠžã—ãŸã„ã¨ã â—ãƒ‡ãƒ¼ã‚¿ã®æœ€å¾Œã®è¡Œç•ªå·ã‚’å–å¾—ã—ãŸã„ã¨ã â—ãƒ„ãƒ¼ãƒ«ãƒãƒ¼ã«è‡ªä½œã®ãƒžã‚¯ãƒã‚’ç™»éŒ²ã—
m6u 2010/11/04
Worksheet.Changeã‚¤ãƒ™ãƒ³ãƒˆã§ã®å¤‰æ›´ç®‡æ‰€ã®æ¤œå‡ºã«ä½¿ã†

VBA
ãƒªãƒ³ã‚¯
1