[[20171019162442]]@wƒ{ƒ^ƒ“‰Ÿ‰º‚ŃtƒHƒ‹ƒ_‚É”[‚ß‚Ä‚»‚̃tƒ@ƒCƒ‹‚ÍŽc‚çxi‚µ‚イj@ƒy[ƒW‚ÌÅŒã‚É”ò‚Ô

[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]

@

wƒ{ƒ^ƒ“‰Ÿ‰º‚ŃtƒHƒ‹ƒ_‚É”[‚ß‚Ä‚»‚̃tƒ@ƒCƒ‹‚ÍŽc‚ç‚È‚¢‚悤‚É‚µ‚½‚¢xi‚µ‚イj

Sub •Û‘¶()

 'ActiveWorkbook.SaveAs Filename:="\\m\q " & Format(Now(), "yyyy”NmmŒŽdd“úhhŽžmm•ª") & ".xlsm"
 'ActiveWorkbook.SaveAs Filename:="O:\OO\ " & Format(Now(), "yyyy”NmmŒŽdd“úhhŽžmm•ª") & ".xlsm"
 '”N=E3 ŒŽ=G3 “ú=I3 TO=N3 êŠ=A3
 A = Range("N3").Value
 B = Range("A3").Value
 C = Range("E4").Value
 D = Range("G4").Value
 E = Range("I4").Value
 ActiveWorkbook.SaveAs Filename:="W:\JI\‚r\N\H\Ï‚Ý\y" & A & "z" & B & "•ñ‘ " & C & " ”N " & D & " ŒŽ " & E & " “ú " & ".xlsm"

End Sub

 'X = Range("A1").Value
 'ActiveWorkbook.SaveAs Filename:="C:\" & X & ".xls"

ã‹L‚̂悤‚Éu•Û‘¶vƒ{ƒ^ƒ“‰Ÿ‚·‚ÆuÏ‚ÝvƒtƒHƒ‹ƒ_‚É”[‚Ü‚é‚悤‚É‚µ‚Ü‚µ‚½‚ªAƒtƒ@ƒCƒ‹‚ÍŽc‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·B

‚»‚̃tƒ@ƒCƒ‹‚ðØ‚èŽæ‚è“\•t‚Æ‚µ‚½‚¢‚Å‚·B

‚ǂ̂悤‚É‘g‚߂Ηǂ¢‚Å‚µ‚傤‚©H

ƒ Žg—p ExcelFExcel2010AŽg—p OSFWindows7 „


@„‚»‚̃tƒ@ƒCƒ‹‚ðØ‚èŽæ‚è“\•t‚Æ‚µ‚½‚¢‚Å‚·B
‚‚܂èAƒtƒ@ƒCƒ‹‚ðƒRƒs[‚µ‚ÄAŒ³‚̃tƒ@ƒCƒ‹‚ð휂·‚ê‚΂¢‚¢‚Ì‚Å‚·‚æ‚ËH

http://wada811.blogspot.com/2012/06/excelvba_06.html

‚±‚¤‚¢‚¤‚±‚ÆH

i‚Ü‚Á‚‚í‚ñj 2017/10/19(–Ø) 16:33


‚»‚¤‚¢‚¤‚±‚Æ‚Å‚·B

@«‚±‚ê‚ð’ljÁ‚·‚ê‚΃Rƒs[‚µ‚ÄŽw’èƒtƒHƒ‹ƒ_‚É”[‚߂‚Ž©•ªŽ©g‚Í‚»‚Ìꊂ©‚çÁ‚¦‚Ä‚È‚­‚È‚é‚Ì‚Å‚µ‚傤‚©H

With ThisWorkbook

    .Save 
    .ChangeFileAccess Mode:=xlReadOnly 
    Kill .FullName 
    .Close(False) 
End With

i‚µ‚イj 2017/10/19(–Ø) 17:03


Œ»ÝŠJ‚¢‚Ä‚¢‚éƒtƒ@ƒCƒ‹‚̃Zƒ‹Žw’èƒZƒ‹‚Ì’l‚ðŽQÆ‚µ‚½ƒtƒ@ƒCƒ‹–¼‚Å•Û‘¶‚µAæ‚ÉŠJ‚¢‚Ä‚¢‚½ƒtƒ@ƒCƒ‹‚ð휂·‚é‚É‚Í‚Ç‚¤‚·‚ê‚΂悢‚Ì‚Å‚µ‚傤‚©H

æ‚ÉŠJ‚¢‚Ä‚¢‚½ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é‚Å‚Í‚È‚­A휂µ‚Ä‚µ‚Ü‚¢‚½‚¢‚Ì‚Å‚·B

‚æ‚낵‚­‚¨Šè‚¢‚¢‚½‚µ‚Ü‚·B

i‚µ‚イj 2017/10/20(‹à) 09:02


„æ‚ÉŠJ‚¢‚Ä‚¢‚½ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é‚Å‚Í‚È‚­A휂µ‚Ä‚µ‚Ü‚¢‚½‚¢‚Ì‚Å‚·B
‚»‚̃tƒ@ƒCƒ‹‚Í‚Ç‚¤‚â‚Á‚ÄŠJ‚¢‚½‚ñ‚Å‚·‚©H
Žè“®Hƒ}ƒNƒH
‚»‚µ‚ă}ƒNƒ‚͂ǂ̃uƒbƒN‚É‘‚¢‚Ä‚ ‚éH

ActiveWorkbook‚È‚Ç‚Æ‚¢‚¤‚ ‚â‚Ó‚â‚È‚à‚Ì‚ð‘ÎÛ‚É
‰½‚©‘€ì‚ð‚·‚é–½—ß‚ð‚·‚é‚Ì‚ÍA
ŠÔˆá‚¢‚ª•|‚¢‚Ì‚Å
iŠÔˆá‚Á‚ă}ƒEƒX‚ª‚ ‚½‚Á‚Ä‘€ì‘ÎÛ‚¶‚á‚È‚¢ƒuƒbƒN‚ªƒAƒNƒeƒBƒu‚É‚È‚é
‰Â”\«‚Í0‚¶‚á‚È‚¢‚Å‚·‚æ‚ËHjA
ƒ}ƒNƒ‘S‘Ì‚Ì—¬‚ê‚ðà–¾‚µ‚Ä‚­‚¾‚³‚¢B

i‚Ü‚Á‚‚í‚ñj 2017/10/20(‹à) 09:32


Žè“®‚Å‚·B

ƒ}ƒNƒŽ©‘Ì—‰ð‚µ‚Ä‚¨‚è‚Ü‚¹‚ñ‚Ì‚Å‚¤‚Ü‚­à–¾‚Å‚«‚Ü‚¹‚ñ‚ªA

ƒuƒbƒN‚ðŽè“®‚ÅŠJ‚¢‚ÄÓ”CŽÒ‚ªƒRƒƒ“ƒg“ü—͉Ÿˆó‚ªÏ‚ñ‚¾‚ç•Û‘¶ƒ{ƒ^ƒ“‚É‚Ä‚ ‚éƒtƒHƒ‹ƒ_‚É”[‚ß‚é‚Æ‚¢‚¤—¬‚ê‚Å‚·B

ƒtƒHƒ‹ƒ_‚ɃuƒbƒN‚ª”[‚Ü‚Á‚½‚Ì‚Å‚ ‚ê‚ÎA‚»‚ÌŠJ‚¢‚Ä‚¢‚½ƒuƒbƒN‚Í휂·‚é‚悤‚É‚µ‚½‚¢‚Å‚·B

‚æ‚낵‚­‚¨Šè‚¢‚¢‚½‚µ‚Ü‚·B

i‚µ‚イj 2017/10/20(‹à) 11:43


„ƒuƒbƒN‚ðŽè“®‚ÅŠJ‚¢‚ÄÓ”CŽÒ‚ªƒRƒƒ“ƒg“ü—͉Ÿˆó‚ªÏ‚ñ‚¾‚ç•Û‘¶ƒ{ƒ^ƒ“‚É‚Ä
ƒuƒbƒN–ˆ‚É‚»‚¤‚¢‚¤ƒ{ƒ^ƒ“‚ƃ}ƒNƒ‚ðŽdž‚ñ‚Å‚¨‚­‚Ì‚Å‚·‚©H
‚ ‚ÆA

„Ó”CŽÒ‚ªƒRƒƒ“ƒg“ü—͉Ÿˆó‚ªÏ‚ñ‚¾‚ç
ª‹ï‘Ì“I‚ɂ̓Zƒ‹‚É‚È‚É‚©“ü—Í‚·‚é‚Ì‚Å‚·‚©H
ˆóŠÓ“I‚È}Œ`‚ð‘}“ü‚·‚é‚Ì‚Å‚·‚©H
}Œ`‚ð—˜—p‚·‚é‚Æ‚µ‚½‚çA“¯‚¶ƒV[ƒgã‚É‘¼‚Ì}Œ`‚à‚ ‚è‚Ü‚·‚©H
i‚Ü‚Á‚‚í‚ñj 2017/10/20(‹à) 11:50


[[20171004135054]]@w‰Ÿˆóƒ{ƒ^ƒ“‚ŃtƒHƒ‹ƒ_‚É”[‚ß‚é‚悤‚É‚µ‚½‚¢xi‚µ‚イj

 ‚±‚¿‚ç‚Í•ú‚è‚Á‚Ï‚È‚µ‚©B
i‚Ë‚Þ‚Ë‚Þj 2017/10/20(‹à) 11:54

‚Ë‚Þ‚Ë‚Þ‚³‚ñ@‘å•Ï\‚µ–ó‚ ‚è‚Ü‚¹‚ñI

‚»‚ÌŒ‚Íu‚È‚µv‚Æ‚³‚¹‚Ä‚¢‚½‚¾‚«‚Ü‚µ‚½B
‰Ÿˆó‚µ‚ăƒ“ƒNƒbƒVƒ‡ƒ“’u‚«‚½‚¢‚Ì‚Åu‚È‚µv‚Æ‚³‚¹‚Ä‚¢‚½‚¾‚«‚Ü‚µ‚½B
i‚µ‚イj 2017/10/20(‹à) 13:53


‚Ü‚Á‚‚í‚ñ‚³‚ñ‰º‹L‚Ì‚Æ‚¨‚è‚Å‚·B
‚æ‚낵‚­‚¨Šè‚¢‚¢‚½‚µ‚Ü‚·B

„ƒuƒbƒN–ˆ‚É‚»‚¤‚¢‚¤ƒ{ƒ^ƒ“‚ƃ}ƒNƒ‚ðŽdž‚ñ‚Å‚¨‚­‚Ì‚Å‚·‚©H

ŠeƒuƒbƒN‚É‚»‚¤‚¢‚¤•Û‘¶ƒ{ƒ^ƒ“‚ðÝ‚¯‚ă}ƒNƒ‚ðŽdž‚ñ‚Å‚¢‚Ü‚·B
‚»‚̃uƒbƒN‚ÍŒ´Ž†‚Æ‚µ‚Ä‚ ‚éƒtƒHƒ‹ƒ_‚É’u‚¢‚Ä‚¢‚Ü‚·B

„ª‹ï‘Ì“I‚ɂ̓Zƒ‹‚É‚È‚É‚©“ü—Í‚·‚é‚Ì‚Å‚·‚©H

 ˆóŠÓ“I‚È}Œ`‚ð‘}“ü‚·‚é‚Ì‚Å‚·‚©H 
 }Œ`‚ð—˜—p‚·‚é‚Æ‚µ‚½‚çA“¯‚¶ƒV[ƒgã‚É‘¼‚Ì}Œ`‚à‚ ‚è‚Ü‚·‚©H

 ‚`‚WƒZƒ‹‚©‚ç‚q‚Q‚SƒZƒ‹‚Ü‚Å“ü—Í—“‚ª‚ ‚è‚Ü‚·‚Ì‚Å‚»‚±‚É“ü—Í‚µ‚Ü‚·B
ˆóŠÓ‚͈óŠÓ‚̃}ƒNƒ‚ª“ü‚Á‚Ä‚¢‚éƒ{ƒ^ƒ“‚ÅŽ©“®‰Ÿˆó‚³‚ê‚Ü‚·B
}Œ`‚Í‚È‚¢‚Å‚·B

i‚µ‚イj 2017/10/20(‹à) 13:56


„ˆóŠÓ‚͈óŠÓ‚̃}ƒNƒ‚ª“ü‚Á‚Ä‚¢‚éƒ{ƒ^ƒ“‚ÅŽ©“®‰Ÿˆó‚³‚ê‚Ü‚·B
ª‚»‚̃}ƒNƒ‚Åo—ˆ‚½‚à‚Ì‚Í}Œ`‚¶‚á‚È‚¢‚Ì‚Å‚·‚©H
ƒGƒNƒZƒ‹‚ÉuˆóŠÓv‚Á‚Ä‚¢‚¤‚à‚Ì‚ª•t‚¢‚Ä‚Ü‚µ‚½‚Á‚¯H
ˆóŠÓ‚Á‚Û‚¢}Œ`‚ð쬂·‚éƒtƒŠ[‚̃\ƒtƒg‚𓱓ü‚µ‚½‚¾‚¯‚Å‚·‚æ‚ËH

„ŠeƒuƒbƒN‚É‚»‚¤‚¢‚¤•Û‘¶ƒ{ƒ^ƒ“‚ðÝ‚¯‚ă}ƒNƒ‚ðŽdž‚ñ‚Å‚¢‚Ü‚·B
„‚»‚̃uƒbƒN‚ÍŒ´Ž†‚Æ‚µ‚Ä‚ ‚éƒtƒHƒ‹ƒ_‚É’u‚¢‚Ä‚¢‚Ü‚·B
‚Æ‚¢‚¤‚±‚Æ‚ÍA
V‚µ‚­–¼‘O‚ð•t‚¯‚Ä•Û‘¶‚µ‚½‚çA‹t‚É‚»‚̃}ƒNƒ‚͎ז‚‚¶‚á‚È‚¢‚Å‚·‚©H

‚¿‚å‚Á‚Æ‚µ‚½ƒAƒvƒŠ‚ðì‚é‚Á‚Ä‚±‚Æ‚Í‚»‚¤‚¢‚¤FX‚È‚±‚Æ‚ðl‚¦‚Ä‚¨‚©‚È‚¢‚ÆA
Œã‚Å’¼‚·‚Ì‚ªŒ‹\‘å•Ï‚È‚Ì‚ÅAŽv‚¢‚‚­ŒÀ‚è‚Ì‹^–â‚ׂ͒µ‚Ä‚¨‚«‚½‚¢‚Å‚·B

i‚Ü‚Á‚‚í‚ñj 2017/10/20(‹à) 15:34


‚²‘Ήž‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B

‚¿‚å‚Á‚Æ®—‚µ‚Ü‚·B
‚±‚ÌŒ‚à”jŠü‚µ‚Ä‚­‚¾‚³‚¢B

\‚µ–󂯂 ‚è‚Ü‚¹‚ñ‚Å‚µ‚½B

i‚µ‚イj 2017/10/22(“ú) 14:20


ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.