[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]
@
wʲÊß°Øݸݒè¾ÙÃÞ°À‚ðÕ°»Þ°Ì«°Ñ‚ÅŽw’肵‚ÄŠJ‚xi·®¯Á¬Ýj
@—ñB‚É}”Ô‚ð‹L“ü‚µÊ²Êß°Øݸ‚ðݒ肵‚Ä‚¢‚Ü‚·B‚±‚Ì}”ÔÃÞ°À‚ðÕ°»Þ°Ì«°Ñ÷½ÄÎÞ¯¸½‚ÅŽw’肵‚ÄʲÊß°Øݸ‚ðŠJ‚Ï¸Û‚ð‹³‚¦‚Ä‚‚¾‚³‚¢B
@@Excel2003@@WindowsXP
Žd—l‚ð‚Í‚Á‚«‚è‹Lq‚µ‚Ä‚‚¾‚³‚¢B
—á‚Æ‚µ‚Ä@‚a—ñ‚É‚Í‚Ç‚ñ‚ȃf[ƒ^‚ª”z’u‚³‚ê‚Ä‚¢‚é‚©‹Lq‚µ‚Ä‚‚¾‚³‚¢ ‚±‚ÌŽžA‚Ps–Ú‚ÍA€–Ú–¼‚¾‚Æ‚©‚Ps–Ú‚©‚çƒf[ƒ^‚¾‚Æ‚©‚à‚Í‚Á‚«‚è‹Lq‚µ‚Ä‚‚¾‚³‚¢B
ƒeƒLƒXƒgƒ{ƒbƒNƒX‚É‚a—ñ‚É‚ ‚éƒf[ƒ^‚Ì’†‚ŃŠƒ“ƒN‚µ‚½‚¢’l‚ð“ü—Í‚·‚é‚Ì‚Å‚·‚æ‚ËH “ü—ÍŒãA‚ǂ̃^ƒCƒ~ƒ“ƒO‚ŃvƒƒOƒ‰ƒ€‚ðŽÀs‚³‚¹‚é‚Ì‚Å‚·‚©H ƒRƒ}ƒ“ƒhƒ{ƒ^ƒ“‚ð—pˆÓ‚µ‚ÄA‚±‚ê‚ðƒNƒŠƒbƒN‚µ‚½‚çŽÀs‚Å‚·‚©H ‚»‚ê‚Æ‚àEnterƒL[‚ª‰Ÿ‚³‚ê‚Ä‚½‚çŽÀs‚Å‚·‚©H
“Á’è‚̃nƒCƒp[ƒŠƒ“ƒN‚ªÝ’肳‚ê‚Ä‚¢‚é‚Ì‚È‚çA—Ⴆ‚΃Zƒ‹‚`‚P‚̃nƒCƒp[ƒŠƒ“ƒN‚ªÝ’肳‚ê‚Ä‚¢‚Ä ƒnƒCƒp[ƒŠƒ“ƒNæ‚É‚ ‚é–Ú“I‚̃tƒ@ƒCƒ‹‚ðƒ_ƒEƒ“ƒ[ƒh‚µA“K؂ȃAƒvƒŠƒP[ƒVƒ‡ƒ“‚Å•\Ž¦‚·‚é‚É‚ÍA
Range("a1").Hyperlinks(1).Follow
‚±‚ñ‚ȃR[ƒh‚ʼn”\‚Å‚·BŒã‚ÍAƒeƒLƒXƒgƒ{ƒbƒNƒX‚ÉŽw’肳‚ꂽ“à—e‚Å‚a—ñƒf[ƒ^‚ðŒŸõ‚·‚é•û–@‚ª ‚í‚©‚ê‚ÎAŠ®¬‚Å‚·B•û–@‚ÍAApplication.MatchŠÖ”‚Æ‚©Findƒƒ\ƒbƒh‚ªl‚¦‚ç‚ê‚Ü‚·B
‚±‚ê‚ç‚Ìî•ñ‚ÅŒŸ“¢‚µ‚Ä‚Ý‚Ä‚‚¾‚³‚¢B
ichinose
@‚`@@‚a@@‚b@@E@@E@@@@@@@@@@@@@@@@@@@@@@@@@ @ @‚`@@‚P ‚`@@‚Q @ ‚`@@‚R @E@@E @E@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @B—ñƒf[ƒ^‚»‚ꂼ‚ê‚ÉʲÊß°Øݸ‚ªÝ’肳‚ê‚Ä‚¢‚Ü‚·B‚±‚Ì}”ÔÃÞ°À‚ðÕ°»Þ°Ì«°Ñ÷½ÄÎÞ¯¸½‚ÅŽw’肵‚ĺÏÝÄÞÎÞÀÝ‚ÅʲÊß°Øݸ‚ðŠJ‚Ï¸Û‚ð‹³‚¦‚Ä‚‚¾‚³‚¢B@@ @@Excel2003@@WindowsXP @@@@@@@@@@@@@@@(·®¯Á¬Ý)@
‚Å‚ÍAV‹KƒuƒbƒN‚É‚ÄiSheet1‚Æ‚¢‚¤ƒV[ƒg‚ª‚ ‚éjAŽŽ‚µ‚ÄŒ©‚Ä‚‚¾‚³‚¢B
‚P@€”õ ƒ†[ƒU[ƒtƒH[ƒ€‚ðˆê‚Â쬂µ‚Ä‚‚¾‚³‚¢B ƒ†[ƒU[ƒtƒH[ƒ€–¼--------UserForm1 ƒeƒLƒXƒgƒ{ƒbƒNƒX----------TextBox1 @@ƒRƒ}ƒ“ƒhƒ{ƒ^ƒ“ ----------CommandButton1
UserForm1‚É‚ÍAã‹L“ñ‚‚̃Rƒ“ƒgƒ[ƒ‹‚ð“\‚è•t‚¯‚Ä‚‚¾‚³‚¢B
‚Q@Sheet1‚Ƀf[ƒ^Ý’è
•W€ƒ‚ƒWƒ…[ƒ‹iModule1j‚É
'================================================================= Option Explicit Sub ƒf[ƒ^Ý’è() With thisworkbook.Worksheets("sheet1").Range("a1:b4") .Rows("1:4").Value = [{"€–Ú1", "}”Ô†";"a",1;"a",2;"a",3}] With .Range("b2") .Hyperlinks.Add Anchor:=.Cells, Address:= _ "http://www.excel.studio-kazu.jp/kw/20100210194102.html?t=213100" End With With .Range("b3") .Hyperlinks.Add Anchor:=.Cells, Address:= _ "http://www.excel.studio-kazu.jp/kw/20100210160952.html?t=164640" End With With .Range("b4") .Hyperlinks.Add Anchor:=.Cells, Address:= _ "http://www.excel.studio-kazu.jp/kw/20100209183814.html?t=192843" End With
End With End Sub
ã‹L‚̃f[ƒ^Ý’è‚ðŽÀs‚µ‚Ä‚‚¾‚³‚¢BSheet1‚Æ‚¢‚¤ƒV[ƒg‚É
‚`@@@@@@@‚a ‚P@@€–Ú1@@@@@}”Ô† ‚Q@@@a 1 ‚R@@@a 2 ‚S@@@a@@@@@@@3
‚±‚ñ‚ȃf[ƒ^‚ªì¬‚³‚ê‚é‚Í‚¸‚Å‚·B®AExcel‚Ńf[ƒ^ƒx[ƒX‚ð쬂·‚éꇂÍA€–Ú–¼‚ðÝ‚¯‚é ‚æ‚¤‚É‚µ‚Ä‚‚¾‚³‚¢B‚»‚Ì•û‚ªExcel‚Ì‹@”\‚ð—˜—p‚µ‚â‚·‚¢‚Å‚·‚©‚çEEEEB
‚a—ñ‚Ì”Žš‚É‚ÍA‚±‚̃GƒNƒZƒ‹‚ÌŠwZ‚©‚ç“K“–‚É‘I‚ñ‚¾ƒXƒŒƒbƒh‚ªƒnƒCƒp[ƒŠƒ“ƒN‚Æ‚µ‚Ä Ý’è‚³‚ê‚Ä‚¢‚Ü‚·B
‚»‚ê‚Å‚ÍAŽÀۂɈ—‚·‚éƒR[ƒh‚Å‚·B
•Ê‚Ì•W€ƒ‚ƒWƒ…[ƒ‹iModule2j‚ÉA
'================================================================== Option Explicit Sub main() UserForm1.Show End Sub
æ‚É쬂µ‚½UserForm1‚̃‚ƒWƒ…[ƒ‹‚É‚ÍA
'================================================================== Option Explicit Private Sub CommandButton1_Click() Dim rng As Range Dim f_no As Variant With ThisWorkbook.Worksheets("sheet1") Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp)) If rng.Row > 1 Then f_no = Application.Match(Val(TextBox1.Value), rng, 0) If Not IsError(f_no) Then If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then On Error Resume Next .Cells(f_no + 1, "b").Hyperlinks(1).Follow On Error GoTo 0 End If Else MsgBox "Žw’肳‚ꂽ}”Ô†‚ÍŒ©‚‚©‚è‚Ü‚¹‚ñ" End If End If End With End Sub
ˆÈã‚Å‚·B
‚R@‘€ì•û–@
main‚ðŽÀs‚µ‚Ä‚‚¾‚³‚¢BUserForm1‚ª•\Ž¦‚³‚ê‚Ü‚·B TextBox1‚ÉA1‚Æ“ü—Í‚µACommandbutton1‚ðƒNƒŠƒbƒN‚µ‚Ä‚‚¾‚³‚¢B 1‚É‘Š“–‚·‚郊ƒ“ƒN‚ª•\Ž¦‚³‚ê‚Ü‚·B
“¯‚¶‚悤‚É@2,3“™‚ð“ü—Í‚µ‚ÄŽŽ‚µ‚Ä‚Ý‚Ä‚‚¾‚³‚¢B ‚±‚ê‚Å‚¤‚Ü‚‚¢‚‚悤‚È‚çAƒR[ƒh‚ð—‰ð‚µ‚Ä‚²Ž©•ª‚ÌŽÀۂ̃f[ƒ^‚ÅŽŽ‚µ‚Ä‚‚¾‚³‚¢B
ichinose
@@Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
If rng.Row > 1 Then f_no = Application.Match(Val(TextBox1.Value), rng, 0) If Not IsError(f_no) Then If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then On Error Resume Next .Cells(f_no + 1, "b").Hyperlinks(1).Follow On Error GoTo 0
>With ThisWorkbook.Worksheets("sheet1") > Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp)) > If rng.Row > 1 Then > f_no = Application.Match(Val(TextBox1.Value), rng, 0) > If Not IsError(f_no) Then > If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then > On Error Resume Next > .Cells(f_no + 1, "b").Hyperlinks(1).Follow
Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp)) •¶Žš‚ª‘å‚«‚©‚Á‚½‚Ì‚ÅA‚±‚±‚ª“Á‚É‚í‚©‚ç‚È‚¢@‚Á‚Ä‚±‚Æ‚Å‚·‚©H
‚±‚ê‚ÍASheet1‚Ì‚a—ñƒf[ƒ^i}”Ô†j‚ª“ü‚Á‚Ä‚¢‚éƒZƒ‹”͈͂ðrng‚Æ‚¢‚¤•Ï”‚Ɏ擾‚·‚邽‚߂̃R[ƒh‚Å‚·B .Cells(.Rows.Count, "b").End(xlUp) ‚±‚ê‚ÍA‚a—ñ‚ÌʼnºˆÊs‚ð‘I‘ð‚µ‚½ó‘Ô‚Å@Ctrl+ªƒL[‚𠉟‚µ‚Ä‚Ý‚Ä‚‚¾‚³‚¢B
‚`@@@@@@@‚a ‚P@@€–Ú1@@@@@}”Ô† ‚Q@@@a 1 ‚R@@@a 2 ‚S@@@a@@@@@@@3
ã‹L‚̃f[ƒ^‚È‚çA3‚ª‚ ‚éƒZƒ‹‚a‚S‚ð‘I‘ð‚µ‚Ü‚·‚æ‚ËH .Range("b2", .Cells(.Rows.Count, "b").End(xlUp)) @‚ÍASheet1‚ªã‹L‚̃f[ƒ^‚È‚ç
.Range("b2", "b4") ----¨@B2:B4@‚Æ“¯‚¶‚Å‚·B
If rng.Row > 1 Then@@@f‚±‚ê‚ÍAƒf[ƒ^‚ª‰½‚à‚È‚¢‚Æ1‚ð•Ô‚µ‚Ü‚·‚©‚çA1‚æ‚è‘å‚«‚©‚Á‚½‚ç 'ŒŸõˆ—‚ð‚·‚é@ƒf[ƒ^‚ª‚È‚¢‚Ì‚ÉŒŸõ‚µ‚½‚Á‚ÄŽd•û‚È‚¢‚Å‚·‚©‚çEEB
f_no = Application.Match(Val(TextBox1.Value), rng, 0) @@'ªƒ[ƒNƒV[ƒgŠÖ”‚ÌMatchŠÖ”‚ð‚u‚a‚`ƒR[ƒh“à‚Å‚ÌŽg‚¤ê‡‚Ì‘Ž®‚Å‚· If Not IsError(f_no) Then 'f_no‚ªƒGƒ‰[’l‚Å‚È‚¯‚ê‚ÎEEA‚‚܂èƒeƒLƒXƒgƒ{ƒbƒNƒX‚Ì“à—e‚Å '‚a—ñ‚ðŒŸõ‚µ‚½Œ‹‰ÊAŒ©‚‚©‚Á‚½‚çˆÈ‰º‚̃R[ƒh‚ðŽÀs‚·‚é 'Val(EEE‚Æ‚µ‚½‚Ì‚ÍAŒ^‚ð”’l‚É•ÏŠ·‚µ‚Ä‚¢‚Ü‚· If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then @@@@'ªƒnƒCƒp[ƒŠƒ“ƒN‚ªÝ’肳‚ê‚Ä‚¢‚È‚¢‚±‚Æ‚àl—¶‚µ‚Ä‚¢‚Ü‚· 'f_no+1‚Æ‚µ‚½‚Ì‚ÍAf_no‚ÍAƒZƒ‹B2‚©‚甂¦‚½ˆÊ’u‚È‚Ì‚ÅŽÀÛ‚Ìs‚ÍA+1‚Å‚·‚Ë@@ On Error Resume Next '”O‚Ì‚½‚ßAƒGƒ‰[‚ª‹N‚«‚È‚¢ˆ— .Cells(f_no + 1, "b").Hyperlinks(1).Follow 'ƒŠƒ“ƒNŒÄ‚Ño‚µ On Error GoTo 0 '”O‚Ì‚½‚߂̃Gƒ‰[–³Ž‹‰ðœ
‚±‚ñ‚È‚Æ‚±‚ë‚Å‚µ‚傤‚©H
Help‚Ì‘¶Ý‚ð’m‚Á‚Ä‚¢‚Ü‚·‚©H@‚u‚a‚`‚̃Šƒtƒ@ƒŒƒ“ƒX‚ªŒ©‚邱‚Æ‚ªo—ˆ‚é‚Í‚¸‚Å‚·B ‚±‚ê‚ðŒ©‚È‚ª‚çAƒR[ƒh‚̈Ӗ¡‚𒲂ׂé‚悤‚É‚µ‚Ä‚Ý‚Ä‚Í@‚Ç‚¤‚Å‚µ‚傤‚©H
—L“‚²‚´‚¢‚Ü‚µ‚½B‰SŽÒ‚Ì‚½‚ߊ®àø‚É—‰ð‚µ‚½‚Æ‚ÍŒ¾‚¢‚ª‚½‚¢‚Å‚·‚ªA‚¨‚Ú‚ë‚°‚È‚ª‚ç—‰ð‚Í[‚Ü‚è‚Ü‚µ‚½B¡Œã‚̃}ƒNƒì¬‚ÌŽQl‚É‚µ‚½‚¢‚ÆŽv‚¢‚Ü‚·B‚²‰ñ“š‚¢‚½‚¾‚¢‚½‚Ì‚Í‚‰‚ƒ‚ˆ‚‰‚Ž‚‚“‚…‚³‚ñ‚¾‚Á‚½‚Ì‚Å‚µ‚傤‚©B
‚ ‚ÁAƒTƒCƒ“‚ð‹v‚µ‚Ô‚è‚É–Y‚ê‚Ü‚µ‚½B ichinose‚Å‚·B
Å‹ßA‚¢‚ë‚ñ‚ÈŽ––Y‚ꂪ‚¿‚ÅEEEAŽv‚¢o‚¹‚È‚¢‚µEEEA‚â‚΂¢‚È‚ B
’Pƒ‚ȃ}ƒNƒ‚ª‚o‚b‚É‚æ‚Á‚ÄŠJ‚©‚È‚¢‚Ì‚Å‚·‚ªA‚È‚º‚Å‚·‚©B
@ActiveWorkbook.Close
Workbooks("book1").Activate Worksheets("sheet1").Activate
@”‘ä‚ÌPC‚Ńf[ƒ^‚ð‹¤—L‚µ‚Ä‚¢‚Ü‚·B@XP@ƒGƒNƒZƒ‹‚Q‚O‚O‚R‚Å‚·B
@ŽÀs‚·‚é‚ÆAhƒCƒ“ƒfƒbƒNƒX‚ª—LŒø”͈͂ɂ ‚è‚Ü‚¹‚ñBh‚Æ•\Ž¦‚³‚ê‚é‚o‚b‚ª‚ ‚è‚Ü‚·Bϸۂ̂Ps‚ß‚ª‹’²‚³‚ê‚Ä‚¢‚Ü‚·‚ªA‚±‚ê‚͉½‚̈Ӗ¡‚à‚ ‚è‚Ü‚¹‚ñBƒvƒŒƒ”ƒ…[‚Å•ÏŠ·‚³‚ê‚Ä‚¢‚Ü‚·B
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@i·®¯Á¬Ýj
ƒGƒ‰[‚ɂȂ炸A³í‚Éì“®‚·‚é‚o‚b‚à‚¢‚ ‚é‚Æ‚¢‚¤‚±‚Æ‚Å‚·‚ËH ‚±‚êA‹¤—L‚ð‰ðœ‚µ‚Ä‚àƒGƒ‰[‚É‚È‚è‚Ü‚·‚©H
‹¤—LŽž‚ɃGƒ‰[‚ª”¶‚µ‚½ŽžA‚Í‚Á‚«‚èƒGƒ‰[‰ÓŠ‚ª“Á’è‚Å‚«‚Ü‚·‚©H
o—ˆ‚È‚¢‚È‚çA—Ⴆ‚ÎA
ƒGƒ‰[”¶‚ª—\‘ª‚³‚ê‚é‰ÓŠ‚É
—Ⴆ‚Î
Sub testtest() On Error GoTo err_proc 1: Workbooks("book1").Activate 'ƒGƒ‰[‚ª‹N‚±‚è‚»‚¤‚Ès‚É”Žš‚̃‰ƒxƒ‹‚ð•t‚¯‚é 2: Worksheets("sheet1").Activate Exit Sub err_proc: MsgBox Erl & " " & Err.Description End Sub
‚±‚ꂾ‚ƃGƒ‰[‰ÓŠ‚Ì“Á’肪‚Å‚«‚Ü‚·B
ƒCƒ“ƒfƒbƒNƒX‚ª—LŒø”͈͂ɂ ‚è‚Ü‚¹‚ñ‚Æ‚¢‚¤ƒGƒ‰[‚ªA
Workbooks("book1").Activate
‚±‚±‚Å”¶‚·‚é‚È‚çAbook1‚Æ‚¢‚¤ƒuƒbƒN‚ªŠJ‚¢‚Ä‚¢‚È‚¢Ž–‚ðˆÓ–¡‚µ‚Ü‚·‚ªA ‚»‚̉”\«‚ðŠm”F‚µ‚Ä‚‚¾‚³‚¢B
‚»‚ê‚Æ@‚±‚êA•ÊƒXƒŒƒbƒh‚Ì•û‚ª—Ç‚¢‚Ì‚Å‚Í‚È‚¢‚Å‚·‚©H
ichinose
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½Bã‹LŽŽ‚µ‚Ä‚Ý‚Ü‚µ‚½BƒuƒbƒN‚ðƒ_ƒuƒ‹‚ÅŠJ‚‚±‚Æ‚Í‚Å‚«‚È‚¢‚Æ‚¢‚¤ˆÓ–¡‚̃Rƒƒ“ƒg‚ªo‚Ü‚µ‚½BActivat‚̓uƒbƒN‚ðƒAƒNƒeƒBƒu‚É‚·‚é‚Æ—‰ð‚µ‚Ä‚¢‚Ü‚·‚Ì‚ÅAÌÞ¯¸‚ÍŠJ‚¢‚Ä‚¢‚é‚̂ųí‚Éì“®‚·‚é‚Í‚¸‚Å‚·B‚±‚̃Rƒƒ“ƒg‚̓I[ƒvƒ“‚ƂƂƂ炦‚Ä‚¢‚é‚ÆŽv‚¢‚Ü‚·BƒGƒNƒZƒ‹“à‚ł̕‚¶‚é‚ͳí‚Éì“®‚µ‚Ü‚·B @5‘ä‚Ì‚o‚b‚ÅŽŽ‚µ‚Ä‚Ý‚Ü‚µ‚½‚ª2‘䂪“¯—l‚̃Gƒ‰[‚ªo‚Ü‚µ‚½B‚Ü‚½ƒGƒ‰[‚ªo‚é‚Ì‚Í‚±‚̃}ƒNƒ‚¾‚¯‚Å‚·B‘¼‚̃}ƒNƒ‚ͳí‚Éì“®‚¢‚½‚µ‚Ü‚·B @‚o‚b‚É‚æ‚è·‚ª‚ ‚é‚Ì‚Í‚È‚º‚©A‚à‚µŒ´ˆö‚ª‚í‚©‚ê‚΋³‚¦‚Ä‚‚¾‚³‚¢B@@(·®¯Á¬Ý)
>”‘ä‚ÌPC‚Ńf[ƒ^‚ð‹¤—L‚µ‚Ä‚¢‚Ü‚· ‚Ü‚¸A5‘ä‚Æ‚à@Windows‚âExcel‚̃o[ƒWƒ‡ƒ“‚Ȃǂ͈ê‚Å‚·‚©H
–”A‚±‚ê‚Í@uƒc[ƒ‹v----uƒuƒbƒN‚Ì‹¤—Lv‚Å u•¡”‚̃†[ƒU[‚É‚æ‚铯Žž•ÒW‚ÆEEEE‹–‰Â‚·‚év‚Ƀ`ƒFƒbƒN‚ð“ü‚ꂽó‘Ô‚ÅŽg—p‚·‚é ‚Æ‚¢‚¤ˆÓ–¡‚Å‚·‚æ‚ËH
‚±‚ÌŽžA2‘ä‚ŃGƒ‰[‚ª”¶‚·‚é@‚Æ‚¢‚¤‚±‚Æ‚Å‚·‚æ‚ËH
‚»‚¤‚¾‚Æ‚µ‚½‚çAƒGƒ‰[‚ª”¶‚·‚é‚o‚b‚Å‹¤—L‚ð‰ðœ‚·‚é‚ƃGƒ‰[‚Ç‚¤‚È‚è‚Ü‚·‚©H •Ï‚í‚è‚Ü‚¹‚ñ‚©H@‚»‚ê‚Æ‚à‚»‚Ìꇂ̓Gƒ‰[‚É‚È‚ç‚È‚¢@‚Ì‚Å‚·‚©H@‚±‚±‚ðŠm‚©‚ß‚Ä‚‚¾‚³‚¢B
Œã‚ÍA‹ï‘Ì“I‚ȃGƒ‰[ÄŒ»Žè‡‚ƃGƒ‰[‚ª”¶‚·‚éƒR[ƒh‚ÌŒfÚ‚ª‚È‚¢‚Æ‚í‚©‚è‚Ü‚¹‚ñ‚ËII
ichinose
—L“‚²‚´‚¢‚Ü‚·B‰ïŽÐ‚ÅŽg—p‚µ‚Ä‚¢‚éPC‚Ì‚½‚ß¡‚ÍŽ©‘î‚Å‚±‚Ì“š‚¦‚ð”qŒ©‚µ‚Ä‚¢‚é‚Ì‚Å‚Ü‚¾‚²Žw“E‚Ìì“®‚Ís‚Á‚Ä‚¢‚Ü‚¹‚ñ‚ªA¡‚í‚©‚é”͈͂̂±‚Æ‚Å󋵂ðà–¾‚³‚¹‚Ä‚¢‚½‚¾‚«‚Ü‚·B @ϸۂÍÉ°ÄPC(dynabook)‚Å쬂µ—e—Ê‚Ì‘½‚¢ÃÞ½¸Ä¯ÌßPC‚ÉŒ³ÃÞ°À‚ðŽÊ‚µ‹¤—L‚µ‚Ä‚¢‚Ü‚·BŒ³‚ÌÃÞ°À‚ð•Û—L‚µ‚Ä‚¢‚éPC‚Å‚à´×°‚ª”¶‚µ‚Ü‚·B @ÌÞ¯¸1‚̼°Ä1‚ɂ‚¬‚ÌÃÞ°À‚ð쬂µ @@@@ ‚`@@@@@@@‚a ‚P@@€–Ú1@@@@@}”Ô† ‚Q@@@a 1 ‚R@@@a 2 ‚S@@@a@@@@@@ 3 ‚a—ñ‚Ì}”Ô†‚ÉʲÊß°Øݸ‚ÅØݸ‚·‚éÌÞ¯¸‚ðݒ肵}”Ô†‚ÉŠÖ˜A‚µ‚½ÃÞ°À‚ð‚±‚ê‚É“ü‚ê‚Ä‚¢‚Ü‚·B}”Ô†‚ð¸Ø¯¸‚µV‚½‚È•K—vÃÞ°À‚ð‘‚«ž‚Ýã‘‚«‚µÊ²Êß°ØݸÃÞ‚Å쬂µ‚½ÌÞ¯¸‚É°ÙÊÞ°•\Ž¦‚ÌÌ«°Ñ‚ÌÎÞÀÝ‚É @@ActiveWorkbook.Close @@Workbooks("book1").Activate Worksheets("sheet1").Activate ‚Ìϸۂð“o˜^‚µ‚±‚ê‚ðŽÀs‚·‚é‚Æ2‘ä‚ÌPCi‘o•û‚Æ‚àÃÞ¨½¸Ä¯Ìߌ^‚¿‚È‚Ý‚ÉÒ°¶°‚ÍSONY‚ÆFUJITUj‚Å´×°‚ª”¶‚µ‚Ü‚·BÊÞ°¼Þ®Ý‚ÍWindows‚ª‚w‚oAExcel‚Í2003B5‘䂤‚¿1‘ä‚ÌÊÞ°¼Þ®Ý‚ÍVISTAA2007‚Å‚·‚ª‚±‚ê‚ͳí‚Éì“®‚µ‚Ü‚·B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(·®¯Á¬Ý)
‚Ü‚¸A‚¢‚ë‚ñ‚ȉӊ‚É‹^–â‚ðŠ´‚¶‚Ü‚·B
·®¯Á¬Ý‚³‚ñ‚Ì‚¢‚¤‹¤—L‚µ‚Ä‚¢‚éƒuƒbƒN‚Æ‚¢‚¤‚Ì‚ÍA
@@@@ ‚`@@@@@@@‚a
‚P@@€–Ú1@@@@@}”Ô† ‚Q@@@a 1 ‚R@@@a 2 ‚S@@@a@@@@@@ 3
‚±‚Ì‚²Ž¿–â‚Ì‚à‚Æ‚É‚È‚Á‚½ƒV[ƒg‚ª‚ ‚èA ƒ†[ƒU[ƒtƒH[ƒ€‚ª‚ ‚èAƒnƒCƒp[ƒŠƒ“ƒNˆ—‚ð ‚µ‚Ä‚¢‚éƒuƒbƒN‚Ì‚±‚Æ‚Å‚·‚ËH
‚ÅA
ActiveWorkbook.Close Workbooks("book1").Activate Worksheets("sheet1").Activate
‚Æ‚¢‚¤ƒR[ƒh‚ÍAƒnƒCƒp[ƒŠƒ“ƒN‚ŌĂÑo‚³‚ꂽƒuƒbƒN‚̃V[ƒg‚É”z’u‚³‚ꂽƒ{ƒ^ƒ“‚É“o˜^‚³‚ê‚Ä‚¢‚é‚Æ‚¢‚¤‚±‚Æ‚Å‚·‚ËH
‚à‚µA‚»‚¤‚¾‚Æ‚µ‚½‚çEEEEB ƒnƒCƒp[ƒŠƒ“ƒN‚ŌĂÑo‚·‘ÎÛ‚ÍAExcelƒuƒbƒN‚¾‚Á‚½‚Æ‚¢‚¤‚±‚Æ‚Å‚·‚©H ‚È‚çA•’Ê‚É@Workbooks.Open ƒtƒ@ƒCƒ‹ƒpƒX ‚ŌĂÑo‚¹‚΂¢‚¢‚Ì‚É@‚Æ‚¢‚¤‹^–₪‚ЂƂÂB
>ActiveWorkbook.Close >Workbooks("book1").Activate >Worksheets("sheet1").Activate
‚±‚̃R[ƒh‚ðŒÄ‚Ño‚³‚ꂽƒuƒbƒN‚É‹Lq‚µ‚Ä‚¢‚é‚Æ‚µ‚½‚çA‚»‚̈Ӗ¡‚ÍH@‚Æ‚¢‚¤‹^–â ‚±‚ê‚ÍAŒÄ‚Ño‚³‚ꂽƒuƒbƒN‚ð•Â‚¶‚ÄAbook1‚Æ‚¢‚¤iã‹L‚Ì•\‚⃆[ƒU[ƒtƒH[ƒ€‚ª‚ ‚éƒuƒbƒNj‚ðƒAƒNƒeƒBƒu‚É‚µ‚ÄA ‚»‚̃uƒbƒN‚ÌSheet1‚ðƒAƒNƒeƒBƒu‚É‚·‚é‚Æ‚¢‚¤ˆÓ–¡‚Å‚·‚©H
‚¾‚Æ‚µ‚½‚çA‚±‚̂悤‚ȃR[ƒh‚É‚Í‚µ‚È‚¢•û‚ª‚æ‚¢‚Å‚·B ‚±‚Ì•Ó‚è‚ðŠm”F‚̃Rƒƒ“ƒg‚¨Šè‚¢‚µ‚Ü‚·B ˆá‚¤‚Æ‚±‚낪‚ ‚é‚È‚çA‚Í‚Á‚«‚è‹Lq‚µ‚Ä‚‚¾‚³‚¢B
ichinose
@
‚²‰ñ“š—L“‚²‚´‚¢‚Ü‚·BÝ’è‚Í‚²—‰ð‚Ç‚¤‚è‚Å‚·B‚±‚Ìϸۂɑ΂·‚鎄‚Ì—‰ð‚ÍʲÊß°ØݸÂŎw’è‚ÌBook‚ÉØݸ‚µ‚Ä‚àBook1‚ÍÀ½¸ÊÞ°‚ÉŽû”[‚³‚ê‚ÄClose‚³‚ê‚Ä‚¢‚Ü‚¹‚ñB‚±‚ê‚ðBook1‚ðOpen‚ÅŽxŽ‚·‚é‚ÆÀÞÌÞÙµ°ÌßÝ‚Æ‚È‚è´r-‚µ‚Ü‚·B‚»‚ê‚ÆŽ„‚Ì‘å‚«‚È‹^–â‚Í‚±‚Ìϸۂª³í‚Éì“®‚·‚éPC‚Æ‚»‚¤‚Å‚È‚¢PC‚ª‚ ‚é˜FŒ¾‚¤‚±‚Æ‚Å‚·Bϸۂª“KØ‚Å‚È‚¯‚ê‚΂ǂÌPC‚Å‚à´r-‚ª”¶‚µ‚Ä‚à‚æ‚¢‚Æ—‰ð‚µ‚Ä‚¢‚Ü‚·B @@@@@@@@@@@@@@@@@@@@@@i·®¯Á¬Ý)
ichinose‚³‚ñ‚²‘½–Z‚̂悤‚Å‚·‚ËB‚»‚̌ア‚ë‚¢‚ëŠm”F‚µ‚Ä‚Ý‚Ü‚µ‚½B.Activate‚ðŠÜ‚Þϸۂªì“®‚µ‚È‚¢‚悤‚Å‚·B‚±‚ê‚É”½‰ž‚·‚éÌßÛ¸Þ×Ñ‚ª´×°‚·‚éPC‚ɲݽİق³‚ê‚Ä‚¢‚é‚Æ‚©A–”‚ÍA‹t‚ɈႤÌßÛ¸Þ×т̲ݽİقª•K—v‚Æ‚©‚ª‚ ‚é‚Ì‚Å‚µ‚傤‚©H‚Ü‚¾‚»‚±‚Ü‚Å‚ÍŠm”F‚µ‚Ä‚¢‚Ü‚¹‚ñB‚à‚µ‚±‚ê‚ç‚ÉŠÖŒW‚È‚.Open.Activate‚É‚©‚í‚錾Œê‚ª‚ ‚ê‚΋³‚¦‚Ä‚‚¾‚³‚¢B‚¨Šè‚¢‚¢‚½‚µ‚Ü‚·Bi·®¯Á¬Ýj
‘ã‘ֈĂ̗pˆÓ‚ÍA‚ ‚è‚Ü‚·‚ªAƒGƒ‰[Œ´ˆö‚ª‚Ü‚¾‚‚©‚ß‚Ä‚¢‚È‚¢‚Ì‚ÅEEEB
‚Ü‚¸AƒuƒbƒN‚Ì‹¤—L‚Æ‚Í
>–”A‚±‚ê‚Í@uƒc[ƒ‹v----uƒuƒbƒN‚Ì‹¤—Lv‚Å >u•¡”‚̃†[ƒU[‚É‚æ‚铯Žž•ÒW‚ÆEEEE‹–‰Â‚·‚év‚Ƀ`ƒFƒbƒN‚ð“ü‚ꂽó‘Ô‚ÅŽg—p‚·‚é >‚Æ‚¢‚¤ˆÓ–¡‚Å‚·‚æ‚ËH
‚Æ‚¢‚¤Ž¿–â‚Ì“š‚¦‚ª‚È‚¢‚Å‚·‚Ë‚¦II
‚»‚¤‚¾‚Æ‚µ‚½‚çA‚±‚ê‚ð‰ðœ‚µ‚½‚Æ‚«‚à“¯‚¶ƒGƒ‰[‚ª”¶‚µ‚Ü‚·‚©H
‚»‚ê‚©‚çAƒŠƒ“ƒN‚³‚ꂽƒuƒbƒN‚É‚ÍAƒ{ƒ^ƒ“‚ð—pˆÓ‚µ‚ÄA‰½ŒÌ
ActiveWorkbook.Close Workbooks("book1").Activate Worksheets("sheet1").Activate
‚±‚̂悤‚ȃR[ƒh‚ð“o˜^‚µ‚½‚Ì‚Å‚·‚©H@•’ʂɕ‚¶‚éƒ{ƒ^ƒ“‚ŕ‚¶‚ê‚΂悢‚Ì‚ÉEEEB ‚±‚ê‚ÍA‰½ŒÌ‚Å‚·‚©H
‚»‚ê‚©‚çA‚à‚¤ˆê‚‚±‚̃Šƒ“ƒNŒ³‚Ìbook1 Œ³X‚ÍAƒ†[ƒU[ƒtƒH[ƒ€‚ð‰î‚µ‚ăŠƒ“ƒNŒÄ‚Ño‚µ‚ðs‚Á‚Ä‚¢‚Ü‚·‚ËH ŒÄ‚Ño‚³‚ꂽƒuƒbƒN‚ª•\Ž¦‚³‚ꂽŒãƒGƒ‰[‚É‚È‚é‚Ü‚Å‚Ì‘€ìŽè‡‚ÍH
ˆê“xAƒ†[ƒU[ƒtƒH[ƒ€‚ð•Â‚¶‚é‚Ì‚Å‚·‚©H‚»‚¤‚¾‚Æ‚µ‚½‚çA‚»‚±‚©‚çׂ©‚‘€ìŽè‡‚ð‹Lq‚µ‚Ä‚‚¾‚³‚¢B
ichinose
ichinose‚³‚ñŽ¸—ç‚¢‚½‚µ‚Ü‚µ‚½B“š‚¦‚ªŒ©‚‚©‚ç‚È‚¢‚Ì‚ÅX²×²×‚µ‚Ä‚¨‚è‚Ü‚µ‚½B @ƒuƒbƒN‚Ì‹¤—L‚Í‚²à–¾‚Ì‚Æ‚¤‚è‚Å‚·B‹¤—LƒuƒbƒN‚Íí‚É‘¼‚Ìì‹ÆŽÒ‚ªŽg—p‚µ‚Ä‚Í‚¸‚· ‚±‚Æ‚ª‚Å‚«‚È‚¢‚Ì‚ÅAŠÖ˜AÃÞ°À‚ðPC‚É—Ž‚Æ‚µž‚Ý“Æ—§‚µ‚Äì“®‚·‚é‚悤‚É‚µ‚ÄBýĂ𠂵‚Ü‚µ‚½‚ªB‚â‚Í‚è´×°‚ªo‚Ü‚µ‚½B @‚±‚ÌÃÞ°À‚Ì\¬‚ðà–¾‚¢‚½‚µ‚Ü‚·B @‚Ü‚¸Œ³Ì«ÙÀÞ‚ð쬂µ‚±‚Ì’†‚ÉBook1‚ÆØݸæ‚Ì̧²Ù‚ðŽû”[‚µ‚½Ê²Êß°Øݸ̫ÙÀÞ‚ð“ü‚ê‚Ä ‚¨‚èAŒ³Ì«ÙÀÞ‚ð‹¤—L‚µ‚Ä‚¨‚è‚Ü‚·BBook1‚Í‘ä’ “I‚È–ðŠ„‚Å¤•ia1‚Ì”Žš‚ð¸Ø¯¸‚·‚é‚Æ ¤•ia1‚Ì–ÚŽŸ“I‚Ȩ̀²Ù‚ÉØݸ‚µ‚Ü‚·B‚±‚Ì̧²Ù‚É‚Ü‚½Ê²Êß°Øݸ‚ðݒ肵ŒÂX‚ÌÃÞ°À‚ÉØݸ ‚·‚é‚悤‚É‚µ‚Ä‚¢‚Ü‚·B @@ ActiveWorkbook.Close Workbooks("book1").Activate Worksheets("sheet1").Activate ã‹LÎÞÀÝ‚Å•K‚¸–ÚŽŸÍß°¼Þ‚ÍBook1‚É–ß‚é‚悤‚É‚µ‚Ä‚¢‚Ü‚·BPC–{‘Ì‚Ìu•Â‚¶‚év‚͕‚¶ ‚½‚Æ‚«ˆÈ‘OŠJ‚¢‚Ä‚¢‚½Ì§²Ù‚ªŠJ‚‚½‚ß‚±‚ê‚ð–h‚®‚½‚ß‚Å‚·B‚Ü‚½Book1‚Íu‘—‚év‚Å ÃÞ¨½¸Ä¯Ì߂ɼ®°Ä¶¯Ä‚ð쬂µ‚Ä‚¢‚Ü‚·Bʼn‚ÌŽ¿–â‚ÌÕ°»Þ°Ì«°Ñ‚ÅʲÊß°Øݸ‚ðŽw’è‚·‚é ‚Ì‚ÍABook1‚ÌB—ñ‚Éݒ肵‚Ä‚¢‚éʲÊß°Øݸ‚ðŠJ‚‚½‚ß‚Å‚·B‚±‚ê‚ÍBook1‚ÌÃÞ°À‚ª6000 ‹ß‚‚ ‚èØݸ‚µ‚½‚¢”Ô†‚ð½¸Û°Ù‚µ‚Ä’T‚·‚Ì‚ª‚ß‚ñ‚Ç‚¤‚È‚½‚ß‚Å‚·B‚Ü‚½Book1‚É‚Í Še}”Ô†‚ÉŠÖ˜A‚µ‚½‘ã•\“I‚ÈÃÞ°À‚à—ñ‚ðŽw’肵‚Ä“ü‚ê‚Ä‚¨‚è‚Ü‚·B}”Ô†‚ª‚í‚©‚ç‚È ‚¢‚Æ‚«‚Í‚í‚©‚逖ڂɵ°Ą̈ÙÀ‚ðŽg—p‚µ‚ÄŒŸõ‚µ}”Ô†‚ði‚èž‚Þϸۂð‘g‚Ý‚»‚±‚©‚ç }”Ô†‚ð’T‚·‚悤‚É‚µ‚Ä‚¢‚Ü‚·B@‚¿‚å‚Á‚Æ’·‚‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½BŽ¿–â‚̃|ƒCƒ“ƒg ‚É‚¸‚ê‚Ä‚È‚¯‚ê‚΂¢‚¢‚Ì‚Å‚·‚ªBi·®¯Á¬Ýj @
>‚â‚Í‚è´×°‚ªo‚Ü‚µ‚½B ‚È‚é‚Ù‚ÇA‹¤—L‚ªŒ´ˆö‚Å‚Í‚È‚³‚»‚¤‚Å‚·‚ËII
Excel2002‚ÅAV‹KƒuƒbƒN‚Ì•W€ƒ‚ƒWƒ…[ƒ‹
'==================================================================== Sub ƒ{ƒ^ƒ“1_Click() ThisWorkbook.Close False Workbooks("‘¶Ý‚µ‚È‚¢ƒuƒbƒN.xls").Activate Sheets("sheet1").Activate End Sub
ã‹L‚̃{ƒ^ƒ“1_Click‚ð“K“–‚ȃV[ƒg‚É”z’u‚µ‚½ƒRƒ}ƒ“ƒhƒo[uƒtƒH[ƒ€v‚̃{ƒ^ƒ“‚É“o˜^‚µ‚Ü‚·B
ƒNƒŠƒbƒN‚µ‚Äã‹L‚̃R[ƒh‚ðŽÀs‚µ‚Ä‚Ý‚é‚ÆAƒGƒ‰[‚ª”¶‚µ‚Ü‚¹‚ñB ‘¶Ý‚µ‚È‚¢ƒuƒbƒN.xls ‚Æ‚¢‚¤ƒuƒbƒN‚ÍAŠJ‚¢‚Ä‚¢‚È‚¢ƒuƒbƒN‚Å‚·B
‚‚܂èAThisWorkbook.Close False‚ªŽÀs‚³‚êA‚»‚êˆÈ~‚̃R[ƒh‚ªŽÀs‚³‚ê‚Ä‚¢‚È‚¢Ž–‚É‚È‚è‚Ü‚·B
ƒo[ƒWƒ‡ƒ“‚É‚æ‚Á‚ÄA‚±‚Ì•Ó‚è‚̃ƒJƒjƒYƒ€‚ɈႢ‚Í‚ ‚è‚Ü‚¹‚ñ‚©H
Žæ‚è‚ ‚¦‚¸ˆÈ‰º‚̂悤‚ɃR[ƒh’ljÁ‚µ‚Ä‚‚¾‚³‚¢B
‚P@@€–Ú1@@@@@}”Ô† ‚Q@@@a 1 ‚R@@@a 2 ‚S@@@a@@@@@@ 3
ã‹L‚̂悤‚È•\‚Æ‚±‚Ì‚a—ñ‚ɃnƒCƒp[ƒŠƒ“ƒN‚ðݒ肵‚Ä‚¢‚é ƒ†[ƒU[ƒtƒH[ƒ€‚⃊ƒ“ƒNŒÄ‚Ño‚µ‚ðs‚Á‚Ä‚¢‚éƒR[ƒh‚ª‚ ‚éƒuƒbƒNiBook1j‚ÉA
‚¢‚¢‚©‚̃R[ƒh‚ð’ljÁ‚µ‚Ä‚‚¾‚³‚¢B
thisworkbook‚̃‚ƒWƒ…[ƒ‹‚Éi•W€ƒ‚ƒWƒ…[ƒ‹‚Å‚Í‚È‚¢‚Å‚·‚æj
'============================================================================= Option Explicit Private WithEvents app As Application '=============================================================================== Private Sub app_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) Dim ans As Long If Not Wb Is ThisWorkbook Then If Wb.Saved = False Then ans = MsgBox("'" & Wb.Name & "'‚Ö‚Ì•ÏX‚ð•Û‘¶‚µ‚Ü‚·‚©H", vbYesNoCancel + vbExclamation) If ans <> vbCancel Then On Error Resume Next If ans = vbYes Then Wb.Save End If Wb.Saved = True On Error GoTo 0 Else Cancel = True End If End If If Cancel = False Then With ThisWorkbook .Activate .Sheets("sheet1").Activate End With End If End If End Sub '==================================================================== Private Sub Workbook_BeforeClose(Cancel As Boolean) Set app = Nothing End Sub '===================================================================== Private Sub Workbook_Open() Set app = Application End Sub
ã‹LƒR[ƒh‚ð’ljÁ‚µA•Û‘¶ŒãAˆê“x•Â‚¶‚Ä‚©‚çAÄ“xŠJ‚¢‚ÄŠm”F‚µ‚Ä‚‚¾‚³‚¢B
®AŒÄ‚Ño‚³‚ꂽƒuƒbƒN‘¤‚Å쬂µ‚Ä‚¢‚é@ƒtƒH[ƒ€‚̃{ƒ^ƒ“‚â“o˜^‚µ‚Ä‚¢‚é‚u‚a‚`ƒR[ƒh‚Í휂µ‚Ä‚‚¾‚³‚¢B •Â‚¶‚é‚Æ‚«‚ÍAƒuƒbƒN‚̕‚¶‚éƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ä‚‚¾‚³‚¢B
ƒnƒCƒp[ƒŠƒ“ƒN‚ªÝ’肳‚ê‚Ä‚¢‚éã‹L‚Ì•\‚ª‚ ‚éƒuƒbƒN‚ðƒAƒNƒeƒBƒu‚µ‚½‚¢‚±‚Æ‚ª–Ú“I‚È‚çA‚±‚ê‚Å‚à ‰Â”\‚¾‚ÆŽv‚¢‚Ü‚·B
ichinose
‚‰‚ˆ‚‰‚Ž‚‚“‚…‚³‚ñA–ˆ‰ñ‚Ì‚²Žw“±—L“‚²‚´‚¢‚Ü‚·B‚²•ÔŽ–‚¿‚å‚Á‚Æ’x‚ꂽ‚̂ʼn½‚©‚ ‚Á‚½‚Ì‚©‚Æ S”z‚µ‚Ä‚¨‚è‚Ü‚µ‚½‚ªA‰ñ“š‚¢‚½‚¾‚«ˆÀS‚¢‚½‚µ‚Ü‚µ‚½B @‚Ü‚¸ @@Sub ƒ{ƒ^ƒ“1_Click() ThisWorkbook.Close False Workbooks("‘¶Ý‚µ‚È‚¢ƒuƒbƒN.xls").Activate Sheets("sheet1").Activate End Sub @‚±‚̺°ÄÞ‚ðÌ«°Ñ‚̺ÏÝÄÞÎÞÀÝ‚É“o˜^‚µ‚ÄŽÀs‚µ‚Ü‚µ‚½‚ªB³í‚Éì“®‚·‚éPC‚Å‚Í‹t‚É ³í‚Éì“®‚µ‚È‚‚È‚è‚Ü‚µ‚½BŽ©‘î‚Ì»ÝÌßÙ•i‚ÅýĂðs‚Á‚Ä‚¢‚é‚Ì‚Å´×°‚Ì”¶‚·‚éPC ‚łͳí‚Éì“®‚·‚é‚©‚Ç‚¤‚©‚í‚©‚è‚Ü‚¹‚ñB @‚Ü‚½ŽŸ‚̺°ÄÞ‚à»ÝÌßÙÃÞ°À‚ÅŽÀŒ±‚ðs‚¢‚Ü‚µ‚½‚ªABook1‚ª•Â‚¶‚ç‚ê‚Ä‚¢‚½ê‡´¸¾Ù‚Ì •Â‚¶‚é‚ÅŽÀs‚µ‚½ê‡Book1‚ÍŠJ‚«‚Ü‚¹‚ñBŒ»sº°ÄÞ‚Å‚ÍBook1‚ª•Â‚¶‚Ä‚¢‚Ä‚àŠJ‚¢‚Ä •\Ž¦‚µ‚Ä‚‚ê‚Ü‚·B @´¸¾ÙÊÞ°¼Þ®Ý‚Åì“®‚·‚éPC‚Æì“®‚µ‚È‚¢PC‚ª‚ ‚é‚ÆŒ¾‚¤‚±‚Æ‚ÍAϸۺ°ÄވȊO‚ÌŒ´ˆö‚ª‚ ‚é‚Ì‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©H @‚à‚µ‚±‚ê‚ð¶ÊÞ°‚Å‚«‚éϸÛÃÞ°À‚ª‚ ‚é‚Ì‚Å‚ ‚ê‚ÎAŽ„‚ªŽg—p‚µ‚Ä‚¢‚é´¸¾ÙÃÞ°À‹y‚Ñ Ï¸ÛÃÞ°À‚·‚ׂĂª•K—v‚ÆŽv‚í‚ê‚Ü‚·‚Ì‚ÅA“à—e‚ª“¯“™‚È´¸¾ÙÃÞ°À‹y‚ÑϸÛÃÞ°À‚ð쬂µ ‚²‘Š’k‚¢‚½‚µ‚Ü‚·BŒ»óŽg—p•i‚ð‚»‚Ì‚Ü‚Ü‚±‚ê‚É悹‚邱‚Æ‚ÍA‚͂΂©‚ç‚ê‚Ü‚·‚Ì‚ÅA ‚²—eŽÍ‚‚¾‚³‚¢B»ÝÌßÙ쬂ÉXŽžŠÔ‚ª‚©‚©‚é‚ÆŽv‚¢‚Ü‚·‚Ì‚ÅA•ÔŽ–‚ð‚‚¾‚³‚¢B ‚²•ÔŽ–‚¢‚½‚¾‚¢‚½Žž“_‚Å»ÝÌßÙ쬂ɂ©‚©‚è‚Ü‚·B@@@i·®¯Á¬Ý) @
>Book1‚ª•Â‚¶‚ç‚ê‚Ä‚¢‚½ê‡´¸¾Ù‚̕‚¶‚é‚ÅŽÀs‚µ‚½ê‡Book1‚ÍŠJ‚«‚Ü‚¹‚ñB
ª‚±‚̂悤‚ÈŽd—l‚ð‘z’肵‚Ä‚¢‚Ü‚¹‚ñ‚Ì‚Å‚±‚¤‚Í‚È‚ç‚È‚¢‚Å‚µ‚傤‚Ë‚¦II ‚¢‚‚‚©‚Ì“_‚Å“®ì“à—e‚ɘb‚ª‚©‚݇‚í‚È‚¢‚È‚ ‚ÆŠ´‚¶‚é‰ÓŠ‚ª‚ ‚è‚Ü‚·B ‚±‚ê‚ÍAƒGƒ‰[‚ª”¶‚·‚é‚Æ‚¢‚¤‘±‚«‚Ì‚²Ž¿–â‚©‚犴‚¶‚Ä‚¢‚½‚±‚Æ‚Å‚·B
‚±‚ê‚ÍAƒo[ƒWƒ‡ƒ“‚̈Ⴂ‚È‚Ì‚©@“Še‚ÉÚ‚¹‚Ä‚¢‚½‚¾‚¢‚Ä‚¢‚È‚¢‰ÓŠ‚ª‚ ‚é‚©‚Ì‚Ç‚¿‚ç‚©‚Å‚·B
‚±‚ê‚ÍAŽ„‚ªl‚¦‚Ä‚¢‚éŽd—l‚Æ·®¯Á¬Ý‚³‚ñ‚ªŠù‚Ɉꕔ‚Ì‚o‚b‚Å‚ÍAì“®‚µ‚Ä‚¢‚éŽd—l‚Æ‚Ì“¯Šú‚ðŽæ‚é•K—v‚ª ‚ ‚è‚Ü‚·B‚»‚Ì‚½‚ß‚É‚ÍAׂ©‚¢ƒtƒB[ƒhƒoƒbƒN‚ª•K—v‚Å‚·B “¯Šú‚ªŽæ‚ê‚éƒR[ƒh‚Ì’ñŽ¦‚Í“–‘R‚Å‚·‚ªA•K—v‚Å‚·B
Ž„‚ª‹C‚É‚È‚Á‚Ä‚¢‚é‰ÓŠB
‚P ŒÄ‚Ño‚³‚ꂽƒuƒbƒNiBook1ˆÈŠO‚̃uƒbƒNj‚̃Rƒ}ƒ“ƒhƒo[ƒtƒH[ƒ€‚̃{ƒ^ƒ“‚É“o˜^‚³‚ê‚Ä‚¢‚é ‚u‚a‚`ƒR[ƒh‚ÍA ActiveWorkbook.Close Workbooks("book1").Activate Worksheets("sheet1").Activate
ã‹L‚Ì3sˆÈŠO‚É‚à‚ ‚é‚u‚a‚`ƒR[ƒh‚È‚Ì‚Å‚·‚©H ‚¾‚Æ‚µ‚½‚çA‚·‚×‚Ä‚ðŒ©‚¹‚Ä‚‚¾‚³‚¢B
‚Q@Book1‚ðŒÄ‚Ño‚µ‚ÄAƒ†[ƒU[ƒtƒH[ƒ€‚ª•\Ž¦‚³‚ê‚Ä‚©‚çŠY“–‚·‚éƒuƒbƒN‚ðŒÄ‚Ño‚µ‚ÄAC³“™‚ð‰Á‚¦‚Ä ‚»‚̃tƒH[ƒ€‚̃{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚é‚Ü‚Å‚Ì‘€ì‚ðׂ©‚‹Lq‚µ‚Ä‚‚¾‚³‚¢B –{“–‚Éׂ©‚‚Å‚·B
—Ⴆ‚ÎA
Book1‚ðŠJ‚«‚Ü‚·B
uƒc[ƒ‹v----uƒ}ƒNƒv----uƒ}ƒNƒv‚ƃNƒŠƒbƒN‚µAumainv@‚Æ‚¢‚¤ƒvƒƒVƒWƒƒ[‚ð‘I‘ð‚µA ŽÀsƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ä‚‚¾‚³‚¢B
‚·‚é‚ÆAƒ†[ƒU[ƒtƒH[ƒ€iUserForm1j‚ª•\Ž¦‚³‚ê‚Ü‚·B
ƒeƒLƒXƒgƒ{ƒbƒNƒXiTextbox1j‚É1‚Æ“ü—Í‚µAƒRƒ}ƒ“ƒhƒ{ƒ^ƒ“iCommandbutton1j‚ðƒNƒŠƒbƒN‚µ‚Ä‚‚¾‚³‚¢B
–Ú“I‚̃uƒbƒN‚ª•\Ž¦‚³‚ê‚Ü‚·B
UserForm1‚̕‚¶‚éƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚ÄUserForm1‚ð•Â‚¶‚Ä‚‚¾‚³‚¢B
E E
‚ƈê—á‚Å‚·‚ªA‚±‚̂悤‚Éׂ©‚‘€ìŽè‡‚ð‹Lq‚µAŒÄ‚Ño‚³‚ꂽƒuƒbƒN‚ÌuƒtƒH[ƒ€v‚̃{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µAƒGƒ‰[‚ª”¶‚·‚é‚܂ł̎臂ł·B
‚±‚ê‚É‚æ‚èAƒGƒ‰[Žè‡‚¾‚¯‚Å‚È‚Aˆ—‚Ì—¬‚ꂪŽ„‚Ì—\‘z’Ê‚è‚©”Û‚©‚̃`ƒFƒbƒN‚à‚Å‚«‚Ü‚·B
Ä“xA“Še‚µ‚Ä‚‚¾‚³‚¢B
ichinose
‘‘¬‚Ì‚²•Ô“š—L“‚²‚´‚¢‚Ü‚·B @Ž¿–â‚É“š‚¦‚³‚¹‚Ä‚¢‚½‚¾‚«‚Ü‚·B
‚P‚ÌŽ¿–â
@‚u‚a‚`ƒR[ƒh‚ÍA
ActiveWorkbook.Close Workbooks("book1").Activate Worksheets("sheet1").Activate ‚¾‚¯‚Å‚·B
‚Q‚ÌŽ¿–â
@’Êí‚ÍB—ñ‚Ì}”Ô†‚ð¸Ø¯¸‚µ‚Ä–ÚŽŸÌÞ¯¸‚ðŠJ‚«‚Ü‚·B
ŠJ‚¢‚½–ÚŽŸÌÞ¯¸‚̼°Ä‚Í–ÚŽŸÌÞ¯¸‚Æ–½–¼‚µ‚½¼°Ä‚P–‡‚Å‚·B‚±‚̼°Ä‚ÉÌ«°Ñ‚Å쬂µ‚½
ºÏÝÄÞÎÞÀÝ‚Éã‹Lϸۂð“o˜^‚µ‚ÄBOOK1‚É–ß‚ê‚é‚悤‚É‚µ‚Ä‚¢‚Ü‚·B‚³‚ç‚É–ÚŽŸÌÞ¯¸‚Ì
¼°Ä‚ÉŠJ‚«‚½‚¢Íß°¼Þ‚Ì–¼Ì‚ð¾Ù‚Éݒ肵‚±‚ê‚ɑ΂µ}Œ`i‘ȉ~j‚ð쬂µ‚±‚ê‚É
ʲÊß°Øݸ‚ðݒ肵‚»‚ÌÌÞ¯¸‚ÉØݸ‚µ‚Ü‚·BØݸ‚µ‚½Íß°¼Þ‚É‚à“¯—l‚ÉÌ«°Ñ‚Å쬂µ‚½
ºÏÝÄÞÎÞÀÝ‚Éã‹Lϸۂð“o˜^‚µ‚Ä‚¢‚Ü‚·B“o˜^º°ÄÞ‚ÍÌÞ¯¸–¼A¼°Ä–¼‚͈Ⴂ‚Ü‚·‚ª“¯—l
‚̺°ÄÞ‚Å‚·BÕ°»Þ°Ì«°Ñ‚ðŽg—p‚µ‚È‚‚Ä‚àAÎÞÀÝ‚ðŽÀs‚·‚é‚Æ´×°‚ª¶‚¶‚Ü‚·B
@‚Ü‚³‚©‚·‚®‚É‚²•ÔŽ–‚¢‚½‚¾‚¯‚é‚ÆŽv‚Á‚Ä‚à‚¢‚Ü‚¹‚ñ‚Å‚µ‚½B—L“‚²‚´‚¢‚Ü‚·B
‚½‚Ü‚½‚Üu´¸¾Ù‚ÌŠwZv‚ðŠJ‚¢‚½‚çA“š‚¦‚ªŒfÚ‚³‚ê‚Ä‚¢‚Ü‚µ‚½B”ӎނłق댂¢
‹C•ª‚Å‚²•ÔŽ–\‚µ‚ ‚°‚Ä‚¢‚Ü‚·‚Ì‚ÅA•¶Í‚É—‚ꂪ‚ ‚é‚©‚ÆŽv‚¢‚Ü‚·‚ª‚²—eŽÍ‚‚¾
‚³‚¢B‚·‚®‚É‚²•ÔŽ–\‚µã‚°‚½‚‚ÄA•M‚ðŽ·‚è‚Ü‚µ‚½B(·®¯Á¬Ý)
@
@
1‚Í‚í‚©‚è‚Ü‚µ‚½B
‚Å‚àA•s‰Â‰ð‚È‚Ì‚ÍA
ActiveWorkbook.Close Workbooks("book1").Activate Worksheets("sheet1").Activate
‚±‚ꂾ‚¯‚̃R[ƒh‚ÅBOOK1‚ª•Â‚¶‚Ä‚¢‚Ä‚àBOOK1‚ª•\Ž¦‚³‚ê‚é@‚Æ‚¢‚¤‚±‚Æ‚Å‚·B Ž„‚É‚ÍA”[“¾‚Å‚«‚Ü‚¹‚ñB‰½‚©‚̉ðŽß‚ªˆá‚Á‚Ä‚¢‚éØ‹’‚Å‚·B ‚‚܂èAƒtƒB[ƒhƒoƒbƒN‚ª‚Ü‚¾‚º‚ñ‚º‚ñ‘«‚è‚Ä‚¢‚È‚¢Ø‹’‚Å‚·B
2‚ÉŠÖ‚µ‚ÄA‚±‚ꂾ‚¯‚Å‚Í–w‚ǃCƒ[ƒW‚Å‚«‚Ü‚¹‚ñB
¡“x‚ÍA‰½‚à‚È‚¢‚Æ‚±‚ë‚©‚çAŽ„‚ª“Ç‚ñ‚Å“¯‚¶‚à‚Ì‚ªì¬‚Å‚«‚é“Še‚ð‚µ‚Ä‚‚¾‚³‚¢B ƒR[ƒh‚àŠÜ‚ß‚Ä‚Å‚·B
ƒR[ƒh‚ƃuƒbƒN‚Ì쬎臂ƈê”Ê“I‚È‘€ìŽè‡‚ð‚à‚Á‚ÆÚ‚µ‚@‰Óð‘‚«‚É‹Lq‚µ‚Ä‚‚¾‚³‚¢B @Žd—l‘‚ð“Še‚·‚é‚Ì‚Æ“¯‚¶‚®‚ç‚¢‚É‹Lq‚µ‚Ä‚‚¾‚³‚¢
‰½‚©‚̉ðŽß‚ª•K‚¸ˆá‚Á‚Ä‚¢‚é‚Í‚¸‚Å‚·‚©‚çEEEEB@
>“š‚¦‚ªŒfÚ‚³‚ê‚Ä‚¢‚Ü‚µ‚½ ‚»‚ê‚ÍA‚½‚Ü‚½‚Ü‚Å‚·BŽdŽ–‚Å‚Í‚È‚¢‚Å‚·‚©‚çA“Še‚ðŒ©‚½‚Á‚Ä‚·‚®‚É•ÔM‚µ‚È‚¢‚Æ‚«‚¾‚Á‚Ä‚ ‚è‚Ü‚·‚æB
ichinose
@
Sub Sample() On Error Resume Next ActiveWorkbook.Close Err.Clear Workbooks("book1").Activate If Err.Number <> 0 Then Workbooks.Open "book1‚̃tƒ‹ƒpƒX" '©book1‚ÌŽÀۂ̃pƒX(d:\xxx\yyy\book1.xls"“™)‚ðŽw’肵‚Ä‚‚¾‚³‚¢ DoEvents Workbooks("book1").Activate End If Worksheets("sheet1").Activate End Sub
‚Æ‚µ‚Ä‚Ý‚é‚ÆA‚Ç‚¤‚È‚è‚Ü‚·‚©H
ichinose
@
‚PD´¸¾ÙÌÞ¯¸‚ðŠJ‚«Book1‚Æ–¼‚¯‚ÄÃÞ½¸Ä¯Ìß‚É•Û‘¶‚·‚éB
‚QDÄ“x´¸¾ÙÌÞ¯¸‚ðŠJ‚«Book2‚Æ–¼‚¯‚ÄÃÞ½¸Ä¯Ìß‚É•Û‘¶‚·‚éB
‚RDBook1Sheet1‚̾Ù(A1)‚ÉBook2‚ÉØݸ‚·‚éʲÊß°Øݸ‚ðÝ’è‚·‚éB
‚SDBook1‚Ìϸۉæ–Ê‚Å•W€Ó¼Þ°Ù‚ðݒ肵‚±‚±‚É
@@@Sub@–ß‚é@ij
@@@@@ ActiveWorkbook.Close
@@@@@Workbooks("book1").Activate @@@@@Worksheets("sheet1").Activate @@@End@Sub ‚ð‹L˜^‚·‚éB ‚TDBook2Sheet1‚É•\Ž¦@°ÙÊÞ°@Ì«°Ñ‚źÏÝÄÞÎÞÀÝ‚ð쬂µ‚±‚̺ÏÝÄÞÎÞÀÝ‚ÉϸÛ"–ß‚é" ‚ð“o˜^‚·‚éB @‚±‚ê‚ÅBook1‚ðŠJ‚«Ê²Êß°Øݸ‚ð—˜—p‚µ‚ÄBook2‚ðŠJ‚«ºÏÝÄÞÎÞÀÝ‚ð¸Ø¯¸‚µ‚Ü‚µ‚½B¡‚Ü ‚ųí‚Éì“®‚µ‚½PC‚Å‚ÍBook2‚͕‚¶Book1‚ªŠJ‚«‚Ü‚µ‚½B´×°‚Ìo‚½PC‚Å‚Í‚â‚Í‚è´×°‚ª ”¶‚µMsgBox‚É‚Í"²ÝÃÞ¯¸½‚ªŽÀŒø”͈͂ɂ ‚è‚Ü‚¹‚ñ"‚Æ•\Ž¦‚³‚ê‚Ü‚·B‚Ü‚½³í‚Éì“® ‚·‚éPC‚ÅBook1‚𴸾قÌu•Â‚¶‚év‚ŕ‚¶‚ÄBook2‚ðŠJ‚«ºÏÝÄÞÎÞÀÝ‚ð¸Ø¯¸‚·‚é‚ÆBook2‚Í •Â‚¶¾·ÙèŒx‚ª•\Ž¦‚³‚êBook1‚ÍŠJ‚«‚Ü‚·B‚±‚ÌýĂł͑¼‚Ìϸۂ͉½‚àݒ肵‚Ä‚¨‚è ‚Ü‚¹‚ñB‚Æ‚¢‚¤‚±‚Æ‚Í´×°‚Ìo‚½PC‚Å‚Í‚±‚ÌϸۂłÍBook1‚ð”FŽ¯‚µ‚Ä‚È‚¢‚±‚Æ‚É‚È‚é‚Ì ‚Å‚Í‚È‚¢‚Ì‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©H‚±‚ÌϸۂÌ.OpenA.ActivateˆÈŠO‚É•\Ž¦Ï¸Û‚ª‚ ‚é‚Ì‚Å ‚Í‚È‚¢‚Ì‚Å‚µ‚傤‚©BˆÈ‘Oµ°Ą̈ÙÀ‚ÅŒŸõ‚µ‚½ÃÞ°À‚𑼂̼°Ä‚ɺËß°‚µ‚悤‚Æ‚µ‚ĺËß° ”͈͂ðݒ肵ºËß°‚ðŽÀs‚µ‚½ŽžAXP@´¸¾Ù2003‚ł͉½‚à‚µ‚È‚‚ĺËß°‚Å‚«‚Ü‚µ‚½‚ªA VIST@´¸¾Ù2007‚Å‚Í‘I‘ð‚µ‚½”͈͂̂·‚ׂĂªºËß°‚³‚ꂽ‚Ì‚Åu´¸¾Ù‚ÌŠwZv‚É‘Š’k‚µ‚½ ‚Æ‚±‚ëϸۂÉ"•\Ž¦”͈͂ðºËß°"‚Æ‚¢‚¤ˆê•¶‚ð‰Á‚¦‚邱‚Æ‚É‚æ‚è³í‚Éì“®‚·‚é‚悤‚É‚È ‚è‚Ü‚µ‚½B‚±‚ê‚Æ“¯—l‚Ì‚±‚Æ‚ªA‚±‚ê‚É‚à”¶‚µ‚Ä‚¢‚é‚Ì‚Å‚Í‚È‚¢‚Ì‚Å‚µ‚傤‚©B @¡‰ñ‚¢‚½‚¾‚¢‚½Ï¸Û‚ÍBook1‚É“\‚è•t‚¯‚½‚ç‚¢‚¢‚Ì‚Å‚µ‚傤‚©B @’·X‚ƶˆÓ‹C‚È‚±‚Æ‚ð‘‚¢‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½B‹C‚ðˆ«‚‚µ‚È‚¢‚ÅËÝÄ‚É‚È‚é‚悤‚Å‚µ‚½ ‚炵‚Ä‚‚¾‚³‚¢BŽ„‚É‚Í—¬‚ê‚Í—‰ð‚Å‚«‚Ä‚à“š‚¦‚Í‘z‘œ‚à‚‚«‚Ü‚¹‚ñB‰½‚¹Ï¸Û‚ɂ‚¢ ‚Ă͉SŽÒ‚Å‚·‚à‚Ì‚ÅBiÌßÚËÞ°‚ðŒ©‚é‚Æʼn‚Ì•”•ª‚Ì•¶Í‚ª—‚ê‚Ä‚¢‚Ü‚·BŒ©‚É‚ ‚¢‚ÆŽv‚¢‚Ü‚·‚ª‚²—eŽÍ‚‚¾‚³‚¢B‰½‰ñ‚©C³‚ðŽŽ‚Ý‚Ü‚µ‚½‚ª‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½B‚±‚Ì ‘Š’k‚É‚¨‚¢‚Ä‚«‚ê‚¢‚È•\Ž¦•û–@‚à‚悯‚ê‚΋³‚¦‚Ä‚‚¾‚³‚¢Bji·®¯Á¬Ýj
‚â‚Á‚ÆA\‘¢‚炵‚«‚à‚Ì‚ª‚Ý‚¦‚Ü‚µ‚½B
Sub@–ß‚é() ActiveWorkbook.Close @@with thisworkbook .Activate @@ .worksheets("sheet1").Activate end with End@Sub
‚Æ‚µ‚Ä‚Ý‚Ä‚ÍH ³í‚Éì“®‚·‚éƒR[ƒh‚ƃGƒ‰[‚É‚È‚éƒR[ƒh‚ª‚ ‚é‚È‚çA‚±‚±‚©‚çŽn‚Ü‚è‚©‚ÈH ‚Ü‚¸Aæ‚Éã‹L‚̃R[ƒh‚ðBook2.Xls‚ÌSheet1‚É”z’u‚µ‚½ƒ{ƒ^ƒ“‚É“o˜^‚µ‚Ä‚½‚ß‚µ‚Ä‚‚¾‚³‚¢
>‹C•ª‚ð‰ó‚³‚È‚¢‚ÅŒ©‚Ä‚‚¾‚³‚¢ ‰ó‚·‚Í‚¸‚ª‚ ‚è‚Ü‚¹‚ñB‚±‚¤‚¢‚¤“Še‚ð‚µ‚Ä‚Ù‚µ‚©‚Á‚½‚Ì‚Å‚·‚©‚çEEEB ‚È‚é‚ׂŠÈ’P‚ÈŽ–—á‚Å–â‘è‚ðÄŒ»‚³‚¹‚éA‚¢‚âAÄŒ»‚Å‚«‚é‹Lq‚ð‚·‚éB ‚±‚ê‚𕶑‚¾‚¯‚ÅŽÀŒ»‚·‚邱‚Æ‚ª‚±‚¤‚¢‚¤ŒfŽ¦”‚̑傫‚ȈӋ`‚̈ê‚‚¾‚Æ Žv‚Á‚Ä‚¢‚Ü‚·‚©‚çEEEB‚±‚ꂪ‚Å‚«‚Ä‚¢‚È‚¢Ž¿–â‚ÍA‘òŽR‚ ‚è‚Ü‚·‚©‚çEEB ‚»‚ê‚ào—ˆ‚È‚¢‚Ì‚Å‚Í‚È‚A‚â‚ç‚È‚¢‚¾‚¯‚ÌŽ¿–₪‘½‚¢‚ñ‚Å‚·‚æII
ichinose
icinose‚³‚ñ—L“‚²‚´‚¢‚Ü‚µ‚½B‚²Žw“±‚Ç‚¤‚èƒGƒ‰[‚Ìo‚½PC‚ŃR[ƒh‚ðBook2Sheet1 ‚̃{ƒ^ƒ“‚É“o˜^‚µ‚ÄAŽÀs‚µ‚½‚Æ‚±‚ëAŽv‚¢‚Ç‚¤‚è‚Ìì“®‚ð‚¢‚½‚µ‚Ü‚µ‚½B ‚±‚ê‚Å‰ðŒˆ‚ÆŠì‚ñ‚Ń}ƒNƒ‚ðC³‚ðŽxŽ‚µŽÀs‚µ‚Ä‚¢‚½‚Æ‚±‚ëA‚¢‚܂܂ųí‚Éì“® ‚µ‚Ä‚¢‚½PC‚ðŽg—p‚µ‚Ä‚¢‚½l‚©‚çA‚±‚ñ‚ÈŒ¾—t‚ª’®‚©‚ê‚Ü‚µ‚½B
@uBook2‚̃{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ä‚àBook1‚É–ß‚è‚Ü‚¹‚ñBv
Ž„‚͈ ‘R‚Æ‚µ‚Ü‚µ‚½B‚»‚±‚ÅŽ„‚ÌPC‚ÅŠm”F‚µ‚½‚Æ‚±‚ëABook2‚̃{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚é‚Æ
uŽw’è‚̃}ƒNƒ‚ªŒ©‚‚©‚è‚Ü‚¹‚ñBv
‚Æ•\Ž¦‚ªo‚Ü‚µ‚½B‚»‚±‚ÅÄ“x‚±‚̃{ƒ^ƒ“‚É“o˜^‚µ‚悤‚ƃ}ƒNƒ“o˜^‰æ–Ê‚ð•\Ž¦‚·‚é‚Æ ƒ}ƒNƒ“o˜^ƒ{ƒbƒNƒX‚Éu–ß‚év‚Ìæ‚ÉBook1‚ÌZŠ‚ª’ljÁ‚µ‚Ä‘‚©‚ê‚Ä‚¢‚Ü‚µ‚½B ‚»‚±‚ÅBook1!–ß‚é‚ðÄ“o˜^‚µ‚ă{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚é‚Ƴí‚Éì“®‚·‚é‚悤‚É‚È‚è‚Ü‚µ ‚½B
Šm”F‚Ì‚½‚ßC³‚ð‚µ‚Ä‚¢‚éPC‚ð’†’f‚ð‚µ‚Ä“¯—l‚Ìì‹Æ‚ðs‚Á‚½‚Æ‚±‚ë³í‚Éì“®‚µ‚Ä‚¢ ‚½‚à‚Ì‚ªæ‚É‘‚¢‚½‚±‚Æ‚Æ“¯—l‚È‚±‚Æ‚ª”¶‚Ü‚µ‚½B
ichinose‚³‚ñ‚É‚æ‚葺”ª•ª‚¾‚Á‚½PC‚𒇊ԂɉÁ‚¦‚ç‚ꂽ‚ÆŠì‚ñ‚Å‚¢‚½‚Ì‚É¡“x‚Í’ïR‚ð ‰Á‚¦‚ç‚ꂽŠ´‚¶‚Å‚·B uŽ„‚ª³í‚ÆŽv‚Á‚Ä‚¢‚½‚Ì‚ª‹t‚ɈÙí‚ÅPC‚Ì¢ŠE‚Å‚Í‚±‚ꂪ³í‚È‚Ì‚©‚ÈBv ‚ÆŽ„‚ÌS‚Ì’ê‚Ç‚±‚©‚ÅŽv‚¤‚悤‚É‚È‚Á‚Ä‚«‚Ü‚µ‚½B
‰½‚©‰ðŒˆ•û–@‚Í‚ ‚é‚Ì‚Å‚µ‚傤‚©B ‚Ü‚½•¶Í‚΂©‚è‚É‚È‚è‚Ü‚µ‚½B i‹ï‘Ì“I‚ÈŽ–€‚ª•K—v‚È‚ç‚Ζ¾“ú‰ïŽÐ‚ÅŠm”F‚µ˜A—‚¢‚½‚µ‚Ü‚·B‚±‚Ì‚±‚Ƃ̓eƒXƒg‚ÅŠm ”F‚Å‚«‚邱‚Æ‚Å‚Í‚È‚¢‚悤‚Å‚·‚©‚çBj iƒLƒ‡ƒbƒ`ƒƒƒ“j
‚²‚ß‚ñ‚È‚³‚¢A‚Ç‚¤‚µ‚Ä‚à‚Ç‚¤‚µ‚Ä‚à“Ç‚Ý‚É‚‚©‚Á‚½‚©‚ç‘S–Ê“I‚É•¶Í’¼‚µ‚Ü‚µ‚½B ‚Ù‚ñ‚Æ‚É‚²‚ß‚ñ‚È‚³‚¢B i’Ê‚è‚·‚ª‚èj
>ƒ}ƒNƒ“o˜^ƒ{ƒbƒNƒX‚Éu–ß‚év‚Ìæ‚ÉBook1‚ÌZŠ‚ª’ljÁ‚µ‚Ä‘‚©‚ê‚Ä‚¢‚Ü‚µ‚½B ³Šm‚ɉ½‚ª•\Ž¦‚³‚ꂽ‚Ì‚Å‚·‚©H —Ⴆ‚ÎA 'C:\Documents and Settings\ichinose\ƒfƒXƒNƒgƒbƒv\Book1.xls'!–ß‚é
‚±‚̂悤‚É•\Ž¦‚³‚ê‚Ä‚¢‚é‚Ì‚Å‚·‚©H
‚±‚̂悤‚É•\Ž¦‚³‚ê‚éꇂÍABook1.xls‚ª•Â‚¶‚½ó‘Ô‚ÅA Book2.Xls‚̃{ƒ^ƒ“‚̃}ƒNƒ“o˜^‰æ–Ê‚ð•\Ž¦‚µ‚½‚Ì‚Å‚Í‚È‚¢‚Å‚·‚©H
‚±‚Ìê‡A
C:\Documents and Settings\ichinose\ƒfƒXƒNƒgƒbƒv\Book1.xls
‚±‚̃pƒX‚ªŠÔˆá‚Á‚Ä‚¢‚È‚¯‚ê‚ÎAì“®‚·‚é‚Í‚¸‚Å‚·B
‚±‚̃pƒX‚ÉBook1.Xls‚ª‘¶Ý‚µ‚ÄA‚»‚̃uƒbƒN‚Éu–ß‚év‚Æ‚¢‚¤ƒ}ƒNƒ‚ª‚ ‚è‚Ü‚·‚©H
‚»‚ê‚ÆÄ“xABook1!–ß‚é“o˜^‚µ‚½ê‡A‚»‚ÌŒã‚Í‚Ç‚¤‚È‚ñ‚Å‚·‚©H
ƒAƒhƒCƒ“‚ðŽg‚Á‚ÄAƒRƒ}ƒ“ƒhƒo[‚Ƀ{ƒ^ƒ“‚ð쬂µA‚»‚̃{ƒ^ƒ“‚ÉBOOK1‚ðŒÄ‚Ño‚·‹@”\‚ð Ž‚½‚¹‚½‚ç‚Ç‚¤‚Å‚·‚©H ‚»‚¤‚·‚ê‚ÎA‚»‚ꂼ‚ꃊƒ“ƒNæ‚̃uƒbƒNƒ{ƒ^ƒ“‚ð쬂µ‚È‚‚Ä‚à ‚æ‚³‚»‚¤‚Å‚·‚¯‚Ç‚Ë‚¦II
ichinose
ƒ}ƒNƒ“o˜^ÎÞ¯¸½‚É‚Í C:\Documents and Settings\ichinose\ ÃÞ½¸Ä¯Ìß‚É‚¨‚¢‚Ä‚¢‚Ü‚·‚ªA‚¨‚¨‚à‚Æ‚Ì•Û‘¶æ‚ÌZŠ‚Ì‚Ý‚ÅÃÞ½¸Ä¯Ìß‚Í“ü‚Á‚Ä‚¢‚Ü‚¹‚ñB ‚»‚ê‚ÆABook2‚̺ÏÝÄÞÎÞÀÝ‚ð¸Ø¯¸‚·‚é‚Æ•\Ž¦‚·‚é´×°•¶‚Íu2d‚ÉŠJ‚‚±‚Æ‚Í‚Å‚«‚Ü‚¹‚ñBv‚Æ‚¢‚¤•¶‚Å‚·B ‚»‚ê‚ÆV‚½‚É‚í‚©‚Á‚½‚±‚Æ‚Å‚·‚ªA´×°‚Ì”¶‚·‚éPC‚͑匳‚ÌÃÞ°ÀBOOK1i‘ä’ “I‚ÈÃÞ°Àj‚¨‚æ‚Ñ‚»‚ê‚ÌØݸæ‚ÌÌÞ¯¸‚ð‚ð‚Ü‚Æ‚ß‚½Ì«ÙÀÞ‚ð•Û‘¶‚µ‚Ä‚¢‚éPC‚¾‚¯‚ÅA´×°‚Ì”¶‚µ‚Ä‚¢‚½‚à‚¤1‘ä‚ÌPC‚Í´×°”¶‚Í‚È‚‰ü‘P‚³‚ê‚Ä‚¢‚Ü‚µ‚½B‚±‚ê‚Íichinose‚³‚ñ‚Ì‚²Žw“±‚Ì‚½‚Ü‚à‚Ì‚ÆŽv‚¢‚Ü‚·B‚±‚ê‚Å´×°”¶‚ÌŒ´ˆö‚Íi‚肱‚ß‚é‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·‚ª‚¢‚©‚ª‚Å‚µ‚傤‚©B
‚à‚¤ˆê“_±Ä޲݂ðŽg‚Á‚ÄAºÏÝÄÞÊÞ°‰]X‚Æ‚¢‚¤•¶‚ª‚ ‚è‚Ü‚·‚ªA‹ï‘Ì“I‚È쬕û–@‚ð‹³‚¦‚Ä‚‚¾‚³‚¢B°ق̒†‚ɱÄ޲݂ª‚ ‚Á‚½‚Ì‚ÅŠJ‚¢‚Ä‚Ý‚Ü‚µ‚½‚ªˆÓ–¡‚ª‚í‚©‚è‚Ü‚¹‚ñBi·®¯Á¬Ý)
·®¯Á¬Ý‚³‚ñ> ƒXƒŒ‚à‘±‚«‚»‚¤‚È‚Ì‚ÅA¡Œã‚Ì“Še‚ÌÛ‚Í•¶“ª‚É”¼ŠpƒXƒy[ƒX‚ð“ü‚ê‚Ä “K“–‚È‚Æ‚±‚ë‚ʼnüs‚ð“ü‚ê‚Ä‚à‚炦‚Ü‚·‚©? ©‚±‚±‚Éu v‚Å‚·B ‚»‚¤‚·‚é‚Ɖüs‚È‚Ç‚ª”½‰f‚³‚êA“Ç‚Ý‚â‚·‚¢‘‚«ž‚Ý‚É‚È‚è‚Ü‚·B(‚Æ‚¨‚è‚·‚ª‚è‚ñ)
>2d‚ÉŠJ‚‚±‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB ‚Ó`‚ñA‚Æ‚¢‚¤‚±‚Æ‚ÍABOOK1‚ªŠJ‚¢‚Ä‚¢‚é‚̂ɃpƒX‚àŠÜ‚ß‚½“à—e‚ª“o˜^‚³‚ê‚Ä‚¢‚é‚Ì‚Å‚·‚Ë!! ‚Ü‚¾AÄŒ»Žè‡‚ª•s–¾‚Å‚·‚ªA‹N‚±‚è‚»‚¤‚ÈŒ»Û‚Å‚·‚Ë‚¦BÄŒ»‚ªo—ˆ‚È‚¢‚Ì‚Å‚±‚±‚©‚ç‚Ì C³ˆÄ‚ª•‚‚©‚Ñ‚Ü‚¹‚ñB
‚ÅA‘ã‘ֈĂƂµ‚ÄA‘O‰ñ‚¿‚傱‚Á‚Æ\‚µã‚°‚½ƒAƒhƒCƒ“‚ðŽg‚¤•û–@B ƒRƒ}ƒ“ƒhƒo[‚ðŽg‚¤•û–@‚È‚Ì‚Å2007‚ųí‚Éì“®‚·‚é‚©S”z‚Å‚·‚ªEEEB
·®¯Á¬Ý‚³‚ñ‚Ì“Še‚³‚ê‚Ä‚¢‚鈗‚Æ‚¢‚¤‚Ì‚ÍABook1‚Æ‚¢‚¤ƒnƒCƒp[ƒŠƒ“ƒN‚ªÝ’肳‚ê‚Ä‚¢‚é ƒuƒbƒN‚ðŠÈ’P‚ɃAƒNƒeƒBƒu‚·‚鎖‚ªŽå–Ú“I‚Å‚·‚æ‚ËH
‚±‚̈—‚ðƒRƒ}ƒ“ƒhƒo[‚Ƀ{ƒ^ƒ“‚ðÝ‚¯‚Ä‚±‚ê‚ðƒNƒŠƒbƒN‚·‚邱‚Æ‚ÅŽÀŒ»‚µ‚Ä‚µ‚Ü‚¨‚¤@‚Æ‚¢‚¤Žd—l‚Å‚·B
¡‚Ü‚Å‚Ì“Še‚Æd‚È‚é‹Lq‚à‚ ‚è‚Ü‚·‚ªAʼn‚©‚ç‹Lq‚µ‚Ü‚·B
‚Å‚ÍAV‹KƒuƒbƒN‚É‚ÄiSheet1‚Æ‚¢‚¤ƒV[ƒg‚ª‚ ‚éjAŽŽ‚µ‚ÄŒ©‚Ä‚‚¾‚³‚¢B
‚P@€”õ
ƒ†[ƒU[ƒtƒH[ƒ€‚ðˆê‚Â쬂µ‚Ä‚‚¾‚³‚¢B ƒ†[ƒU[ƒtƒH[ƒ€–¼--------UserForm1 ƒeƒLƒXƒgƒ{ƒbƒNƒX----------TextBox1 @@ƒRƒ}ƒ“ƒhƒ{ƒ^ƒ“ ----------CommandButton1
UserForm1‚É‚ÍAã‹L“ñ‚‚̃Rƒ“ƒgƒ[ƒ‹‚ð“\‚è•t‚¯‚Ä‚‚¾‚³‚¢B
‚Q@Sheet1‚Ƀf[ƒ^Ý’è
•W€ƒ‚ƒWƒ…[ƒ‹iModule1j‚É
'================================================================= Option Explicit Sub ƒf[ƒ^Ý’è() Application.DisplayAlerts = False With Workbooks.Add .Worksheets(1).Range("a1:b10").Value = "aaa" .SaveAs ThisWorkbook.Path & "\aaa.xls" .Worksheets(1).Range("a1:b10").Value = "bbb" .SaveAs ThisWorkbook.Path & "\bbb.xls" .Worksheets(1).Range("a1:b10").Value = "ccc" .SaveAs ThisWorkbook.Path & "\ccc.xls" .Close False End With Application.DisplayAlerts = True With ThisWorkbook.Worksheets("sheet1").Range("a1:b4") .Rows("1:4").Value = [{"€–Ú1", "}”Ô†";"a",1;"a",2;"a",3}] With .Range("b2") .Hyperlinks.Add Anchor:=.Cells, Address:="aaa.xls" End With With .Range("b3") .Hyperlinks.Add Anchor:=.Cells, Address:="bbb.xls" End With With .Range("b4") .Hyperlinks.Add Anchor:=.Cells, Address:="ccc.xls" End With End With End Sub
•Ê‚Ì•W€ƒ‚ƒWƒ…[ƒ‹iModule2j‚ÉA
'================================================================== Option Explicit Sub main() UserForm1.Show End Sub
æ‚É쬂µ‚½UserForm1‚̃‚ƒWƒ…[ƒ‹‚É‚ÍA
'================================================================== Option Explicit Private Sub CommandButton1_Click() Dim rng As Range Dim f_no As Variant With ThisWorkbook.Worksheets("sheet1") Set rng = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp)) If rng.Row > 1 Then f_no = Application.Match(Val(TextBox1.Value), rng, 0) If Not IsError(f_no) Then If .Cells(f_no + 1, "b").Hyperlinks.Count > 0 Then On Error Resume Next .Cells(f_no + 1, "b").Hyperlinks(1).Follow On Error GoTo 0 End If Else MsgBox "Žw’肳‚ꂽ}”Ô†‚ÍŒ©‚‚©‚è‚Ü‚¹‚ñ" End If End If End With End Sub
‚ƈȑO“Še‚µ‚½ƒR[ƒh‚ÉŽ—‚Ä‚¢‚Ü‚·‚ªA‚¿‚傱‚Á‚ƈႢ‚Ü‚·‚©‚çA‹C‚ð‚‚¯‚Ä‚‚¾‚³‚¢B
Userform1‚ƃR[ƒh‚Ìݒ肪Š®—¹‚µ‚½‚çAˆê“xƒuƒbƒN‚ð“K“–‚ȃtƒHƒ‹ƒ_‚É•Û‘¶‚µ‚Ä‚‚¾‚³‚¢B ‚Ç‚±‚Å‚à—Ç‚¢‚Å‚·B
’A‚µA•Û‘¶‚·‚éƒuƒbƒN–¼‚ÍA•K‚¸ABook1.xls‚É‚µ‚Ä‚‚¾‚³‚¢B
•Û‘¶‚µ‚½Œã‚ÉA ã‹L‚Ìuƒf[ƒ^Ý’èv‚ðŽÀs‚µ‚Ä‚‚¾‚³‚¢B Sheet1‚Æ‚¢‚¤ƒV[ƒg‚É
‚`@@@@@@@‚a ‚P@@€–Ú1@@@@@}”Ô† ‚Q@@@a 1 ‚R@@@a 2 ‚S@@@a@@@@@@@3
‚±‚ñ‚ȃf[ƒ^‚ªì¬‚³‚ê‚é‚Í‚¸‚Å‚·B®AExcel‚Ńf[ƒ^ƒx[ƒX‚ð쬂·‚éꇂÍA€–Ú–¼‚ðÝ‚¯‚é ‚æ‚¤‚É‚µ‚Ä‚‚¾‚³‚¢B‚»‚Ì•û‚ªExcel‚Ì‹@”\‚ð—˜—p‚µ‚â‚·‚¢‚Å‚·‚©‚çEEEEB
‚a—ñ‚Ì”Žš‚É‚ÍAƒR[ƒh‚Å쬂µ‚½ƒuƒbƒN‚ªƒnƒCƒp[ƒŠƒ“ƒN‚Æ‚µ‚Äݒ肳‚ê‚Ä‚¢‚Ü‚·B
ƒTƒ“ƒvƒ‹ƒf[ƒ^‚Æ‚µ‚ÄAƒŠƒ“ƒN‚³‚ꂽƒuƒbƒNiaaa.xls,bbb.xls,ccc.xlsj‚ÍAbook1.xls‚Æ“¯‚¶ ƒtƒHƒ‹ƒ_ã‚É쬂µ‚Ü‚µ‚½‚ªA‚±‚ê‚̓R[ƒh‚Ì“s‡ã‚ňá‚Á‚Ä‚¢‚Ä‚à‚©‚Ü‚¢‚Ü‚¹‚ñB
‚±‚ê‚Å‘O‰ñ“Še‚Æ“¯‚¶‚悤‚ȃTƒ“ƒvƒ‹ƒuƒbƒN‚ªì¬‚³‚ê‚é‚ÆŽv‚¢‚Ü‚·B
ˆá‚¤‚Ì‚ÍAƒnƒCƒp[ƒŠƒ“ƒNæ‚Æ‚µ‚ÄAExcelƒuƒbƒN‚ªŽw’肳‚ê‚Ä‚¢‚鎖‚®‚ç‚¢‚Å‚·B
ƒnƒCƒp[ƒŠƒ“ƒN‚ªÝ’肳‚ꂽó‘Ô‚Åbook1.xls‚ðã‘‚«•Û‘¶‚ð‚µ‚Ä‚‚¾‚³‚¢B
ˆê‰ž@Book1.xls‚ųí‚ɃnƒCƒp[ƒŠƒ“ƒN‚³‚ꂽ‚èAUserform1‚ª³í‚Éì“®‚·‚é‚©Šm”F‚µ‚Ä‚‚¾‚³‚¢B
ˆê“xAExcelI—¹‚µ‚Ä‚‚¾‚³‚¢B‚»‚ê‚ÄAÄ“xAExcel‚ð‹N“®‚µ‚Ä‚Ý‚Ä‚‚¾‚³‚¢B
V‹KƒuƒbƒN‚Æ‚µ‚ÄABook1‚ªŠù’èƒuƒbƒN‚Æ‚µ‚Ä쬂³‚ê‚Ä‚¢‚邱‚Æ‚ð Šm”F‚µ‚Ä‚‚¾‚³‚¢B
‚R@ƒAƒhƒCƒ“ƒuƒbƒN‚Ìì¬
V‹KƒuƒbƒN‚ÌThisworkbook‚̃‚ƒWƒ…[ƒ‹‚É
'================================================================================= Option Explicit Const cmdnm = "–ÚŽŸŒÄ‚Ño‚µ" Const bknm = "book1.xls" '================================================================================= Private Sub Workbook_AddinUninstall() On Error Resume Next With Application.CommandBars .Item(cmdnm).Delete End With On Error GoTo 0 End Sub '================================================================================= Sub Workbook_Open() On Error Resume Next With Application.CommandBars .Item(cmdnm).Delete With .Add(cmdnm, msoBarTop, , True) .Visible = True With .Controls.Add(msoControlButton) .Style = msoButtonCaption .Caption = cmdnm .OnAction = ThisWorkbook.Name & "!thisworkbook.open_mokuji" End With End With End With On Error GoTo 0 End Sub '================================================================================= Sub open_mokuji() Dim bk As Workbook On Error Resume Next If Not ActiveWorkbook Is Workbooks(bknm) Then ActiveWorkbook.Close End If Set bk = Workbooks(bknm) If Err.Number <> 0 Then Set bk = Workbooks.Open(ThisWorkbook.Path & "\" & bknm) End If bk.Activate bk.Worksheets("sheet1").Activate End Sub
ã‹L‚̃R[ƒh‚ðThisworkbook‚̃‚ƒWƒ…[ƒ‹‚É‹Lq‚µ‚Ä‚‚¾‚³‚¢B
ƒAƒhƒCƒ“‚Æ‚µ‚Ä•Û‘¶‚µ‚Ü‚·‚©‚çAˆÈ‰º‚̎臂É]‚Á‚Ä‚‚¾‚³‚¢B
‚u‚a‚d‚©‚çExcel‚É–ß‚Á‚Ä‚‚¾‚³‚¢B
uƒtƒ@ƒCƒ‹v-----u–¼‘O‚ð•t‚¯‚Ä•Û‘¶v‚ƃNƒŠƒbƒN‚µ‚ÄA–¼‘O‚ð•t‚¯‚Ä•Û‘¶‚·‚éƒ_ƒCƒAƒƒO‚ð•\Ž¦‚³‚¹‚Ä ‚‚¾‚³‚¢B
uƒtƒ@ƒCƒ‹‚ÌŽí—Þv‚Æ‚µ‚ÄAuMicrosoft Excel ƒAƒhƒCƒ“ (*.xla)v‚ð‘I‘ð‚µ‚Ä‚‚¾‚³‚¢B •Û‘¶ƒtƒHƒ‹ƒ_‚ª•Ï‚í‚è‚Ü‚·‚ªAbook1.xls‚ª‚ ‚éƒtƒHƒ‹ƒ_‚܂ňړ®‚µ‚Ä•Û‘¶‚µ‚Ü‚·B •Û‘¶‚·‚é–¼‘O‚ÍABook1Read.xla ‚Æ‚µ‚Ä•Û‘¶‚µ‚Ä‚‚¾‚³‚¢B
ˆê“xAExcel–{‘Ì‚ð•Â‚¶‚Ä‚©‚çAÄ“xExcel‚𗧂¿ã‚°‚Ä‚‚¾‚³‚¢B
Ä‚ÑAV‹KƒuƒbƒN‚Æ‚µ‚ÄABook1‚ªŠù’èƒuƒbƒN‚Æ‚µ‚Ä쬂³‚ê‚Ä‚¢‚邱‚Æ‚ð Šm”F‚µ‚Ä‚‚¾‚³‚¢B
uƒc[ƒ‹v----uƒAƒhƒCƒ“v‚Æ‹N“®‚µ‚ÄAƒAƒhƒCƒ“ƒ_ƒCƒAƒƒO‚ð•\Ž¦‚³‚¹‚Ä‚‚¾‚³‚¢B uŽQÆvƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ä‚‚¾‚³‚¢Bƒtƒ@ƒCƒ‹‚ÌŽQƉæ–Ê‚©‚çABook1Read.xla ‚ª‚ ‚é ƒtƒHƒ‹ƒ_‚܂ňړ®‚µ‚ÄABook1Read.xla ‚ðŽw’肵‚Ä‚n‚jƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ä‚‚¾‚³‚¢B
ƒAƒhƒCƒ“ˆê——‚É쬂µ‚½uBook1Readv‚ª‚ ‚é‚Í‚¸‚Å‚·B ƒ`ƒFƒbƒN‚³‚ê‚Ä‚¢‚邱‚Æ‚ðŠm”F‚µ‚Ä‚n‚j‚ðƒNƒŠƒbƒN‚µ‚Ä‚‚¾‚³‚¢B
‚±‚ÌŽž“_‚©‚çA–ÚŽŸŒÄ‚Ño‚µ@‚Æ‚¢‚¤ƒ{ƒ^ƒ“‚ðŽ‚Á‚½ƒRƒ}ƒ“ƒhƒo[‚ªì¬‚³‚ê‚Ü‚·B
‚±‚̃AƒhƒCƒ“‚Ƀ`ƒFƒbƒN‚ª“ü‚Á‚Ä‚¢‚éŒÀ‚èAŽŸ‰ñ‚©‚ç‚ÍA‹N“®‚·‚ê‚ÎŽ©“®“I‚ÉExcel‚É‚ÍA –ÚŽŸŒÄ‚Ño‚µ‚Æ‚¢‚¤ƒ{ƒ^ƒ“‚ª•\Ž¦‚³‚ê‚é‚Í‚¸‚Å‚·B
–ÚŽŸŒÄ‚Ño‚µ@‚Æ‚¢‚¤ƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚µ‚Ä‚‚¾‚³‚¢B@Book1.Xls‚ª•\Ž¦‚³‚ê‚Ü‚·B
“K“–‚ɃŠƒ“ƒNŒÄ‚Ño‚µ‚ðs‚Á‚ÄÄ“xA–ÚŽŸŒÄ‚Ño‚µ@‚Æ‚¢‚¤ƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚邱‚Æ‚Å book1.xls‚ª•\Ž¦‚³‚ê‚邱‚Æ‚ðŠm”F‚µ‚Ä‚‚¾‚³‚¢B
‚±‚ê‚Å‘ã‘Öo—ˆ‚Ü‚¹‚ñ‚©H
ichinose
ichinose‚³‚ñ—L“‚²‚´‚¢‚Ü‚·B±Ä޲݂Ƃ¢‚¤‚±‚ñ‚È‹@”\‚ª‚ ‚é‚Æ‚Í‚Ü‚Á‚½‚’m‚è‚Ü‚¹‚ñ‚Å‚µ‚½B ‚Ü‚¾‚Ü‚¾•×‹•s‘«‚Å‚·B Ž„‚à1‚”Œ©‚ð‚µ‚Ü‚µ‚½B‚±‚ê‚àichinose‚³‚ñ‚Ì‚²Žw“±‚Ì‚¨‚©‚°‚Å‚·‚ªA‚²‹³Žö‚¢‚½‚¾‚¢‚½Ï¸Ûº°ÄÞ‚ð Ý’è‚·‚邱‚Æ‚É‚æ‚è´×°‚𔶂·‚éPC‚ª1‘ä³í‚É–ß‚è‚Ü‚µ‚½B¡“ú‚½‚Ü‚½‚ÜA‚Ü‚¾´×°‚𔶂·‚éPC‚ňȑO Љ‚½‚±‚Æ‚ª‚ ‚é‚ÆŽv‚¢‚Ü‚·‚ªABook1‚©‚ç–ÚŽŸÍß°¼Þ‚ÌBook2‚ÉØݸ‚µ‚³‚ç‚ÉØݸ‚·‚éBook3‚ð쬂µ‚Ä ‚¢‚Ü‚·B‚±‚ê‚ðŽÀs‚µ‚½‚Æ‚±‚ë³í‚Éì“®‚·‚é‚Å‚Í‚ ‚è‚Ü‚¹‚ñ‚©B‚È‚º‚¾‚낤‚Æl‚¦‚½‚Æ‚±‚ëABook2 ‚ÆBook3‚ÍʲÊß°Øݸ‚Æ–¼‚¯‚½Ì«ÙÀÞ“¯‚¶Ì¨°ÙÄÞ“à‚É‚ ‚èBook1‚Í‹¤—L‚µ‚Ä‚¢‚éÌ«ÙÀÞ‚ÉʲÊß°Øݸ̫ÙÀÞ ‚Æ“¯‚¶Ì¨°ÙÄÞ‚É“¯«‚µ‚Ä‚¢‚Ü‚·BiBook1‚ÍʲÊß°Øݸ̫ÙÀÞ‚Ì’†‚É‚Í“ü‚Á‚Ä‚¢‚È‚¢Bj“¯‚¶Ì¨°ÙÄÞ‚É Book‚ª‚ ‚ê‚γí‚Éì“®‚·‚é‚Ì‚Å‚Í‚È‚¢‚©‚Æl‚¦ABook1‚ðʲÊß°Øݸ̫ÙÀÞ‚É“ü‚ê‚Äì“®‚³‚¹‚½‚Æ‚±‚ë ³í‚Éì“®‚·‚é‚悤‚É‚È‚è‚Ü‚µ‚½B‚µ‚©‚µA‚±‚±‚Å‚Ü‚½‚Ü‚½–â‘蔶‚Å‚·A‚²‘z‘œ‚Ì‚Æ‚¤‚èʲÊß°Øݸ ‚ÌÝ’è‚Ì‚â‚è’¼‚µ‚Å‚·BBook1‚Í‘ä’ ‚Æ‚µ‚Ä‚¢‚Ü‚·‚Ì‚ÅA‚»‚ê‚ÉÃÞ°À‚ª6000‹ß‚“ü‚Á‚Ä‚¢‚Ü‚·B‚±‚ê‚É Ê²Êß°Øݸ‚ðݒ肵‚¾‚µ‚½‚Ì‚Í‚±‚±1”N‚®‚ç‚¢‘O‚©‚ç‚Å‚·‚ª‚»‚ê‚Å‚à500ŒÂ‚®‚ç‚¢‚Ì—Ê‚É‚È‚Á‚Ä‚¢‚Ü‚·B ‚±‚ê‚ð‚â‚è‚È‚¨‚·‚Æ‚È‚é‚ÆABook1‚ÌŽg—p‚ðˆêŽž½Ä¯Ìß‚µ‚È‚¯‚ê‚΂Ȃè‚Ü‚¹‚ñB‚±‚ê‚ð¶ÊÞ°‚·‚éÏ¸Û‚Í ‚È‚¢‚Å‚·‚©B‚ ‚ê‚ÎŽQl‚Ì‚½‚ß‹³‚¦‚Ä‚‚¾‚³‚¢B‚Ü‚½±Ä޲݂ðݒ肵‚½‚ç500ŒÂ‚ÌØݸ‚µ‚Ä‚¢‚éBook ‚·‚ׂĂɔ½‰f‚Å‚«‚Ü‚·‚©B ‚»‚ê‚Å‚à‹^–â‚Æ‚µ‚ÄŽc‚é‚Ì‚ÍAϸۂª³í‚Éì“®‚·‚éPC‚Æ´×°‚Ìo‚éPC‚ª‚ ‚é‚Æ‚¢‚¤‚±‚Æ‚Å‚·B‚±‚ê‚ð ¶ÊÞ°‚·‚éϸۂª‚ ‚邱‚Ƃ͉ð‚è‚Ü‚µ‚½‚ªA´×°‚Ì‚Å‚éPC‚É‚Í‚±‚Ìϸۂ̎Às‚ð‘jŽ~‚·‚鉽‚©‚ðŽ‚Á‚Ä ‚¢‚é‚©A‚Ü‚½‚ÍPC‚ªŒÃ‚¢‚½‚ßϸۂðŽÀs‚·‚鉽‚©‚ª‘«‚è‚È‚¢‚Ì‚¾‚낤‚ÆŠ„‚è؂邱‚Æ‚É‚µ‚Ü‚µ‚½B ‚Ü‚½Ž„‚̈«‚¢•ÈA’·‚¢•¶Í‚Å‘‚¢‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½B‚Ç‚¤‚¼‚²—eŽÍ‚‚¾‚³‚¢Bi·®¯Á¬Ýj
‚â‚Á‚Ï‚è‹C‚É‚È‚é‚Ì‚Å‘‚¢‚Ä‚Ý‚Ü‚·B
ƒGƒ‰[‚É‚È‚ç‚È‚¢PC‚ÍAƒtƒ@ƒCƒ‹‚ÌŠg’£Žq‚ð•\Ž¦‚µ‚Ä‚È‚‚Ä @@@ƒtƒHƒ‹ƒ_‚ðŠJ‚‚ÆA–¼‘O‚ªuBook1v‚Æ•\Ž¦‚³‚ê‚Ä‚¢‚éB ƒGƒ‰[‚É‚È‚éPC‚ÍAŠg’£Žq‚ð•\Ž¦‚µ‚Ä‚¢‚é @@@ƒtƒHƒ‹ƒ_‚ðŠJ‚‚ÆA–¼‘O‚ªuBook1.xlsv‚Æ•\Ž¦‚³‚ê‚Ä‚¢‚éB ‚È‚ñ‚ÄÝ’è‚̈Ⴂ‚Í–³‚¢‚Å‚·‚©H
(HANA)
ƒGƒ‰[‚ÌŒ´ˆö‚ª‚í‚©‚è‚Ü‚¹‚ñB‡˜‚¾‚Ä‚ÄAÄŒ»Žè‡‘‚ð쬂µ‚Ä‚‚¾‚³‚¢B >‚Ü‚¾´×°‚𔶂·‚éPC‚Å ƒAƒhƒCƒ“‚ÌŽ–—á‚Å‚Æ‚¢‚¤‚±‚Æ‚Å‚·‚©H‚»‚ê‚Æ‚à¡‚Ü‚Å‚ÌŽè–@‚ł̘b‚Å‚·‚©H
‚±‚̃Gƒ‰[‚ªÄŒ»‚·‚éŽè‡‚ð‹Lq‚µ‚Ä‚‚¾‚³‚¢B
‚Ç‚ñ‚ȃGƒ‰[‚ªƒR[ƒh‚̂ǂ̌Š‚Å”¶‚µ‚Ä‚¢‚é‚©‚àŽ¦‚µ‚Ä‚‚¾‚³‚¢B
‚»‚±‚©‚çA‚±‚̂悤‚É‚µ‚½‚ç³í‚Éì“®‚µ‚½@‚Æ‚¢‚¤Žè‡‚àŽ¦‚µ‚Ä‚‚¾‚³‚¢B
‘¼‚É‚à‹^–â“_‚ª‚ ‚è‚Ü‚·‚ªA‚Ü‚¸‚±‚±‚Ü‚Å@à–¾‚µ‚Ä‚‚¾‚³‚¢B
ichinose
>ƒtƒHƒ‹ƒ_‚ðŠJ‚‚ÆA–¼‘O‚ªuBook1.xlsv‚Æ•\Ž¦‚³‚ê‚Ä‚¢‚éB ‚±‚ê‚©‚È‚ EEEB@@‚ǂ̃uƒbƒN‚à@ƒuƒbƒN–¼‚É@.xls‚ð•t‚¯‚ÄÄ“xŒ³X•û–@‚ðŽŽ‚µ‚Ä‚Ý‚Ä‚ÍHB ƒtƒHƒ‹ƒ_ƒIƒvƒVƒ‡ƒ“‚ÌÝ’è‚̈Ⴂ‚©‚È‚ EEEB –{“–‚ÍA‘S•”@.XLS‚ª•t‚¢‚Ä‚¢‚é‚ÆŽv‚Á‚Ä‚¢‚Ü‚µ‚½B
ichinose
icinose‚³‚ñ‚²‚ß‚ñ‚È‚³‚¢BˆÈ‘OŽæ‚èÁ‚³‚ê‚Ü‚µ‚½‚ªHANA‚³‚ñ‚Ì“š‚¦‚É“¯—l‚Ì“š‚¦‚ª‚ ‚Á‚½‚Ì‚ðŒ©‚Ä ‚µ‚Ü‚¢‚Ü‚µ‚½BÌÞ¯¸–¼‚É‚Í.xls‚ª‚‚¢‚Ä‚¢‚Ü‚·‚ªAϸۓà‚ÌŽwŽ¦‚É‚ÍA.xls‚ð‚‚¯‚Ä‚¢‚Ü‚¹‚ñ‚Å‚µ‚½B ‚»‚±‚ÅAϸۂ̎wŽ¦‚É.xls‚ð‚‚¯‚ÄŽÀs‚µ‚½‚Æ‚±‚ëAichinose‚³‚ñ‚ÌϸۂƓ¯—l‚É1‘ä‚ÌPC‚ͳí‚É ì“®‚·‚é‚悤‚É‚È‚è‚Ü‚µ‚½B‚µ‚©‚µA1‘ä‚ÌPC‚Í‚â‚Í‚è³í‚Éì“®‚¢‚½‚µ‚Ü‚¹‚ñB ‚»‚±‚Å1‚‘O‚ÌŽ¿–â‚É–ß‚è‚Ü‚·B‚Ü‚¸A´×°‚Ìo‚éPC‚̊‹«‚ɂ‚¢‚Äà–¾‚¢‚½‚µ‚Ü‚·B‹¤—LÌ«ÙÀÞ‚É Book1‚ÆBook1‚©‚çØݸ‚·‚éÌÞ¯¸‚ðŽû”[‚µ‚½Ì«ÙÀÞ‚ðŽû”[‚µ‚Ä‚¢‚Ü‚·B‚±‚±‚©‚çBook1‚ðu‘—‚év‚ÅÃÞ¨½¸ įÌß‚ÉBook1‚̱²ºÝ‚ð쬂µ‚Ä‚¢‚Ü‚·BŽŸ‚É´×°”¶‚̎臂ð‹L‚µ‚Ü‚·B
1.ÃÞ¨½¸Ä¯Ìß‚ÌBook1‚̱²ºÝ‚ð¸Ø¯¸‚µ‚ÄBook1‚ðŠJ‚B 2.}”Ô†—ñ‚Éݒ肵‚½”Žš‚ðƒNƒŠƒbƒN‚·‚éB 3.u2d‚ÉŠJ‚‚±‚Æ‚Í‚Å‚«‚Ü‚¹‚ñBv‚Æ‚¢‚¤•\Ž¦‚ªMsgBox‚É•\Ž¦‚³‚ê‚éBi³Šm‚È•¶Í‚ÍŒ»ê‚És‚© ‚È‚¢‚Ɖð‚è‚Ü‚¹‚ñBj
³í‚Éì“®‚µ‚½Žè‡‚ÍŽŸ‚Ì‚Æ‚¤‚è‚Å‚·B 1.Book1‚ðBook1‚©‚çØݸ‚·‚éBook‚ðŽû”[‚µ‚½Ì«ÙÀނɈړ®B 2.Book1‚ðŠJ‚B 3.}”Ô†—ñ‚Éݒ肵‚½”Žš‚ðƒNƒŠƒbƒN‚·‚éB (·®¯Á¬Ý)
HANA‚³‚ñ‚ÌŽ¿–â‚ɑ΂·‚é“š‚¦‚ÍŒ»ê‚És‚©‚È‚¢‚Æ‚í‚©‚è‚Ü‚¹‚ñB–¾“úi2/26j‚Í‹x‚Ý‚ðŽæ‚Á‚Ä‚¢‚Ü‚· ‚Ì‚ÅŒŽ—j“ú‚Ì•ÔŽ–‚Æ‚È‚è‚Ü‚·B\‚µ–ó‚ ‚è‚Ü‚¹‚ñB
> 1.ÃÞ¨½¸Ä¯Ìß‚ÌBook1‚̱²ºÝ‚ð¸Ø¯¸‚µ‚ÄBook1‚ðŠJ‚B >2.}”Ô†—ñ‚Éݒ肵‚½”Žš‚ðƒNƒŠƒbƒN‚·‚éB >3.u2d‚ÉŠJ‚‚±‚Æ‚Í‚Å‚«‚Ü‚¹‚ñBv‚Æ‚¢‚¤•\Ž¦‚ªMsgBox‚É•\Ž¦‚³‚ê‚éBi³Šm‚È•¶Í‚ÍŒ»ê‚És‚© ‚È‚¢‚Ɖð‚è‚Ü‚¹‚ñBj
‚ñAƒnƒCƒp[ƒŠƒ“ƒN‚ŃGƒ‰[H
>‚»‚ê‚ÆABook2‚̺ÏÝÄÞÎÞÀÝ‚ð¸Ø¯¸‚·‚é‚Æ•\Ž¦‚·‚é´×°•¶‚Íu2d‚ÉŠJ‚‚±‚Æ‚Í‚Å‚«‚Ü‚¹‚ñBv‚Æ‚¢‚¤•¶‚Å‚·B ƒ{ƒ^ƒ“ƒNƒŠƒbƒN‚ł̃Gƒ‰[‚Å‚Í‚È‚¢‚Ì‚Å‚·‚©H
ƒnƒCƒp[ƒŠƒ“ƒN‚ÍAƒŠƒ“ƒNæ‚̃pƒX‚ÍA‚±‚ÌÝ’è‚ðs‚Á‚½Žž“_‚Å‚Ì‘Š‘΃pƒX‚Åݒ肳‚ê‚Ä‚¢‚é‚Í‚¸‚Å‚·B
‚æ‚Á‚ÄAÝ’èŒã‚ɃnƒCƒp[ƒŠƒ“ƒNŒ³‚̃uƒbƒNiBOOK1j‚Ì•Û‘¶æ‚ðˆÚ“®iWindows‚̃tƒ@ƒCƒ‹‘€ì‚ňړ®j‚·‚é‚Ƴí‚Éì“®‚µ‚È‚¢‰Â”\«‚à‚Å‚Ä‚«‚Ü‚·B
—Ⴆ‚ÎABook1‚Æbook2‚ªƒfƒXƒNƒgƒbƒvãˆÊ‚É‚ ‚é‚Æ‚«ABook1‚ÉBook2‚ւ̃nƒCƒp[ƒŠƒ“ƒNݒ肵‚½‚Æ‚«A Ý’èŒãABook1‚ðˆÚ“®‚µ‚½‚è‚·‚é‚ÆiWindows‚̃tƒ@ƒCƒ‹‘€ì‚ňړ®jA³íì“®‚µ‚È‚¢‰Â”\«‚Í‚ ‚è‚Ü‚·B
•Û‘¶æƒtƒHƒ‹ƒ_•ÏX‚ÍBExcel‚ð‰î‚µ‚Äs‚Á‚Ä‚¢‚Ü‚·‚©H
Book1‚Ì“Ç‚Ýž‚Ý@•Û‘¶æ•ÏX@@Œ³‚̃uƒbƒN‚Ìíœ@@‚Æ‚¢‚¤‡˜‚Å‚·B
BOOK2‚̃{ƒ^ƒ“‚¾‚Á‚Ä@ƒfƒXƒNƒgƒbƒvã‚É‚ ‚é‚Æ‚«‚ÉAƒ}ƒNƒ‚ð“o˜^‚µA ‚»‚ÌŒãBOOK1‚ðˆÚ“®‚·‚ê‚ÎA³í‚É‚Íì“®‚µ‚Ü‚¹‚ñ‚æII
‚Ü‚¸A–â‘è‚ð‚Ç‚ê‚©‚Éi‚è‚Ü‚µ‚傤B
ichinose
icinose‚³‚ñ‚±‚̺°Å°‚ªX¬—‚µ‚Ä‚¢‚é‚悤‚Å‚·B‚Ü‚¸Å‰‚Ì‚¨“š‚¦‚ɂ‚¢‚Ä‚Å‚· ‚ªAà–¾‚É‚«‚¸‚¢‚ÄÄ“x‚±‚ÌŽ¿–⺰Ű‚ðŠJ‚¢‚½‚ç‚Ü‚¾‰ñ“š‚ª‚È‚©‚Á‚½‚Ì‚ÅC³‚ð‘‚« ž‚Ý‚Ü‚µ‚½B‚»‚ê‚ÅŽŸ‚Ì“ú‚Ì’©A‚±‚̺°Å°‚ðŠJ‚¢‚½‚çC³•¶‚Í‚È‚Aã‹Lichinose‚³ ‚ñ‚̉ñ“š‚¾‚¯‚ª‚ ‚è‚Ü‚µ‚½B‚±‚̺°Å°‚ÅA“¯ˆêl‚̘A‘±2‰ñ‚Ì‘‚«ž‚Ý‚ÍŽ©“®íœ‚³ ‚ê‚Ü‚·‚©H‚»‚ê‚Æ‚à‚©‚Ȃ莿–â‚Ì‚â‚èŽæ‚肪‘‚¦‚Ä‚¢‚Ü‚·‚̂Ŭ—‚ð‚«‚½‚µ‚Ä‚¢‚é‚Ì ‚Å‚µ‚傤‚©B‚»‚ë‚»‚ëV‚µ‚¢Ž¿–â” ‚Ɉړ®‚µ‚Ü‚µ‚傤‚©B ¡‰ñ‚Í“à—e‚ª‚Ü‚Á‚½‚ˆá‚Á‚½‚à‚Ì‚É‚È‚Á‚Ä\‚µ–ó‚ ‚è‚Ü‚¹‚ñB ‚»‚ê‚ÆŽ¿–â‚Ì“à—e‚ɂ‚¢‚ÄŽ„‚ÌŽ¿–â“à—e‚̂Ƃ炦•û‚ɂ‚¢‚Ăɂ‚¢‚ÄŠî–{“I‚È‚Æ‚±‚ë ‚ÅH‚¢ˆá‚¢‚ª‚ ‚é‚悤‚Å‚·BŽ„‚Í‹¤—L‚µ‚Ä‚¢‚éÃÞ°À‚ð‚·‚×‚Ä‚ÌPC‚Å“¯—l‚Ɉµ‚¦‚é‚悤 ‚É‚·‚邱‚Æ‚ð–Ú“I‚Æ‚µ‚ÄŽ¿–₳‚¹‚Ä‚¢‚½‚¾‚¢‚Ä‚¢‚Ü‚·BŽ„‚ÌŽ¿–â‚ÌŽd•û‚ªˆ«‚¢‚Ì‚¾‚Æ Žv‚¢‚Ü‚·‚ªAŒ»ó‚Í“Á’è‚Ì1‘ä‚ÌPC‚Å´×°‚ª”¶‚µ‚Ä¡‚Ü‚Å‚Ìà–¾‚Ì‚¨‚©‚°‚Å‘¼‚ÌPC‚Í ‚·‚ׂijí‚Éì“®‚µ‚Ü‚·BŽ„‚Ìs‚Á‚½‘Îô‚ɂ‚¢‚Ä‚¢‚¸‚ê‚à´×°‚ª”¶‚·‚é‚Ì‚Í‚±‚Ì “Á’肳‚ê‚é1‘ä‚ÌPC‚Å‚·‚±‚ê‚ð¶ÊÞ°‚Å‚«‚é•û–@‚ª‚ ‚ê‚΂Ǝv‚Á‚ÄŽ¿–₳‚¹‚Ä‚¢‚½‚¾‚¢ ‚Ä‚¨‚è‚Ü‚·B‰½‚©‚Ì‘Îô‚ð‘Å‚¿³í‚Éì“®‚µ‚Ä‚¢‚éPC‚ɈÙ킪”¶‚µ‚½‚Æ‚«‚Í‚»‚Ì ‚‚Ǖñ‚³‚¹@‚Ä‚¢‚½‚¾‚«‚Ü‚·B¡‚܂ł͉ü—Ç‚±‚»‚ ‚êA³íPC‚ªˆÙ픶‚µ‚½‚±‚Æ ‚Í‚ ‚è‚Ü‚¹‚ñB‚Ü‚½¶ˆÓ‹C‚È‚±‚Æ‚ð‘‚¢‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½B‚±‚ê‚É‚à‚ß‚°‚¸¡Œã‚Æ‚à ¡‚Ü‚Å‚Ç‚¤‚è‚ÌeØ‚È‚²‰ñ“š‚ð‚¨‘Ò‚¿‚µ‚Ä‚¨‚è‚Ü‚·B(·®¯Á¬Ý)
‚¦‚Á‚ÆBBB „HANA‚³‚ñ‚ÌŽ¿–â‚ɑ΂·‚é“š‚¦‚ÍŒ»ê‚És‚©‚È‚¢‚Æ‚í‚©‚è‚Ü‚¹‚ñB „ŒŽ—j“ú‚Ì•ÔŽ–‚Æ‚È‚è‚Ü‚·B ‚Æ‚¢‚¤Ž–‚Å‚·‚ª
„ÌÞ¯¸–¼‚É‚Í.xls‚ª‚‚¢‚Ä‚¢‚Ü‚·‚ªAϸۓà‚ÌŽwŽ¦‚É‚ÍA.xls‚ð‚‚¯‚Ä‚¢‚Ü‚¹‚ñ‚Å‚µ‚½B „‚»‚±‚ÅAϸۂ̎wŽ¦‚É.xls‚ð‚‚¯‚ÄŽÀs‚µ‚½‚Æ‚±‚ëAichinose‚³‚ñ‚ÌϸۂƓ¯—l‚É1‘ä‚ÌPC‚ͳí‚É „ì“®‚·‚é‚悤‚É‚È‚è‚Ü‚µ‚½B ‚Ì‚²à–¾‚ª‚ ‚è‚Ü‚·‚Ì‚ÅA[•ª‚Å‚·B
‚»‚ê‚©‚çAƒRƒƒ“ƒg‚ð‘‚‚Æ‚«‚É @‚PD”¼ŠpƒJƒ^ƒJƒi‚ÍŽg—p‚µ‚È‚¢ @‚QD“K“–‚Ȉʒui–³—‚Ì‚È‚¢•¶ßj‚ʼnüs‚ð‚·‚é @‚RD“K“x‚É‹ós‚ð‹²‚Þ ‚ðS‚ª‚¯‚Ä‚¢‚½‚¾‚¯‚é‚ÆA‚à‚¤‚µ“Ç‚Ý‚â‚·‚‚È‚Á‚Ä —Ç‚¢‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·B
ˆö‚Ý‚É „“¯ˆêl‚̘A‘±2‰ñ‚Ì‘‚«ž‚Ý‚ÍŽ©“®íœ‚³‚ê‚Ü‚·‚©H ‚»‚ñ‚È‚±‚Æ‚Í—L‚è‚Ü‚¹‚ñ‚Ì‚Å ƒvƒŒƒrƒ…[‚ÅŠm”FŒãA•Â‚¶‚Ä‚µ‚Ü‚Á‚½‚Ì‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©H
‚»‚ê‚ÅAuƒ{ƒ^ƒ“‚ŃGƒ‰[v‚ª³‰ð‚È‚ñ‚Å‚·‚©H ‚»‚ê‚Æ‚àAC³Œã‚ªuƒnƒCƒp[ƒŠƒ“ƒN‚ŃGƒ‰[v‚È‚ñ‚Å‚·‚©H
„‚»‚ë‚»‚ëV‚µ‚¢Ž¿–â” ‚Ɉړ®‚µ‚Ü‚µ‚傤‚©B ‚±‚Ì–â‘è‚ɑ΂·‚é“–‰‚ÌŽ¿–â‚Í @uƒCƒ“ƒfƒbƒNƒX‚ª—LŒø”͈͂ɗL‚è‚Ü‚¹‚ñv‚̃Gƒ‰[ ‚¾‚Á‚½‚ÆŽv‚¢‚Ü‚·B
‚»‚ê‚ÍA.xls‚ð‚‚¯‚½Ž–‚Å‰ðŒˆ‚µ‚½‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·‚µ ichinose‚³‚ñ‚Ìuwith thisworkbookv‚ðŽg‚Á‚½‚à‚Ì‚Å‚Í‚¨‚«‚È‚¢‚ÆŽv‚¢‚Ü‚·B
Œ»Ý‚Íu2d‚ÉŠJ‚Ž–‚ªo—ˆ‚Ü‚¹‚ñv‚̃Gƒ‰[‚Å‚·‚µ ƒXƒŒ‚à’·‚‚È‚Á‚Ä‚¢‚Ü‚·‚Ì‚Å®—‚µ‚Ä‚à—Ç‚¢‚ÆŽv‚¢‚Ü‚·B @i‚»‚ÌÛ‚ÍA‚±‚̃XƒŒ‚ɃŠƒ“ƒN‚Æ@‚±‚̃XƒŒ‚ւ̃Šƒ“ƒN‚ð @@“\‚Á‚Ä‚¨‚¢‚Ä’¸‚‚Ì‚ª‚æ‚¢‚ÆŽv‚¢‚Ü‚·Bj
ƒƒCƒ“‚ŃRƒƒ“ƒg‚µ‚Ä‹‚ç‚ê‚éAichinose‚³‚ñ‚Ì‚²ˆÓŒ©‚𠂨Žf‚¢‚µ‚Ä‚©‚炪—Ç‚¢‚ÆŽv‚¢‚Ü‚·‚ªBBB
(HANA)
—L“‚²‚´‚¢‚Ü‚·B
Book2i–ÚŽŸÍß°¼Þj‚Éݒ肵‚Ä‚¢‚éABook1‚Ö–ß‚éºÏÝÄÞÎÞÀÝ‚ð¸Ø¯¸‚·‚é‚Æu2d‚ÉŠJ‚Ž–‚ªo—ˆ‚Ü‚¹‚ñv‚Æ•\Ž¦‚³‚ê‚é‚Ì‚ª³‰ð‚Å‚·B
‚»‚ê‚ÆʲÊß°Øݸ‚ðݒ肵‚Ä‚¢‚éAÌÞ¯¸‚ðˆá‚¤Ì«ÙÀÞ“™‚Ɉړ®‚·‚é‚ÆAØݸ‚·‚é‚Æ‚«´×°‚ªo‚é‚Ì‚Í —‰ð‚µ‚Ä‚¢‚é‚‚à‚è‚Å‚·BBook1‚ÉʲÊß°Øݸ‚ð500Œ‹ß‚ݒ肵‚Ä‚¢‚é‚Ì‚Å‚±‚ê‚ðC³‚·‚é‚Ì‚Í Ž„‚Ì’mŽ¯‚Å‚Í–c‘å‚Èì‹Æ—Ê‚É‚È‚é‚Ì‚ÅABook1‚ðˆÚ“®‚µ‚È‚‚Ä‚àˆÙí‚Ìo‚éPC‚ð³í‚Éì“®‚³‚¹‚é ϸۂðÝ’è‚Å‚«‚È‚¢‚©Hi‚à‚¿‚ë‚ñ³í‚Éì“®‚µ‚Ä‚¢‚éPC‚à³í‚Éì“®‚·‚éϸÛj
‚»‚ê‚©A‚±‚ê‚Í’Ž‚Ì‚æ‚¢˜b‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªA500ŒÝ’肵‚Ä‚¢‚éʲÊß°Øݸ‚ðŠÈ’P‚ÉC³‚·‚é•û–@‚ª –³‚¢‚©‚ÆŒ¾‚¤‘Š’k‚Å‚·B
(·®¯Á¬Ý)
HANA‚³‚ñ‚Ì‚¨‚Á‚µ‚á‚é‚悤‚ɕʃXƒŒƒbƒh‚É‚µ‚½•û‚ª‚悳‚»‚¤‚Å‚·‚ËII
>Book1‚Í‹¤—L‚µ‚Ä‚¢‚éÌ«ÙÀÞ‚ÉʲÊß°Øݸ̫ÙÀÞ >‚Æ“¯‚¶Ì¨°ÙÄÞ‚É“¯«‚µ‚Ä‚¢‚Ü‚·BiBook1‚ÍʲÊß°Øݸ̫ÙÀÞ‚Ì’†‚É‚Í“ü‚Á‚Ä‚¢‚È‚¢Bj“¯‚¶Ì¨°ÙÄÞ‚É >Book‚ª‚ ‚ê‚γí‚Éì“®‚·‚é‚Ì‚Å‚Í‚È‚¢‚©‚Æl‚¦ABook1‚ðʲÊß°Øݸ̫ÙÀÞ‚É“ü‚ê‚Äì“®‚³‚¹‚½‚Æ‚±‚ë >³í‚Éì“®‚·‚é‚悤‚É‚È‚è‚Ü‚µ‚½B‚µ‚©‚µA‚±‚±‚Å‚Ü‚½‚Ü‚½–â‘蔶‚Å‚·A‚²‘z‘œ‚Ì‚Æ‚¤‚èʲÊß°Øݸ >‚ÌÝ’è‚Ì‚â‚è’¼‚µ‚Å‚·B
Œ»Ý‚Ì–â‘肪ˆÈ‘OA·®¯Á¬Ý‚³‚ñ‚ª“Še‚³‚ꂽª‚¾‚Æ‚·‚é‚ÆEEEEA
‚Ü‚¸AƒtƒB[ƒ‹ƒh‚Æ‚¢‚¤•\Œ»‚ª‚ ‚¢‚Ü‚¢‚Ȃ̂ųŠm‚É‹Lq‚µ‚Ä‚‚¾‚³‚¢B
—á
d:\aaa\bbb ‚Æ‚¢‚¤ƒtƒHƒ‹ƒ_‚É book1.xls‚ª‹¤—LƒuƒbƒN‚Æ‚µ‚Ä•Û‘¶‚³‚ê‚Ä‚¢‚Ü‚·B
‚±‚Ìbook1.xls‚É“o˜^‚³‚ê‚Ä‚¢‚éƒnƒCƒp[ƒŠƒ“ƒNæ‚̃uƒbƒN‚ÍA‚·‚ׂÄ
d:\xxx\yyy\zzz
‚Æ‚¢‚¤ƒtƒHƒ‹ƒ_“à‚É•Û‘¶‚µ‚Ä‚ ‚è‚Ü‚·B
‚±‚Ìó‘Ô‚¾‚ƃGƒ‰[‚É‚È‚è‚Ü‚·‚ªA
book1.xls‚ð@uEEEEEEv‚Æ‚¢‚¤ƒtƒHƒ‹ƒ_‚Ɉڂ·‚Æ@³í‚Éì“®‚µ‚Ü‚·B
‚±‚ÌuEEEEv‚ೊm‚É‹Lq‚µ‚Ä‚‚¾‚³‚¢B
Œ»ÝƒGƒ‰[‚É‚È‚Á‚Ä‚¢‚é‚o‚b‚ÅBook1.Xls‚ðã‹L‚̂悤‚Ɉړ®‚·‚é‚ÆA “–ŠY‚o‚b‚Å‚ÍAì“®‚µ‚Ä‚à@‹t‚É‘¼‚Ì‚o‚b‚Å‚Íì“®‚µ‚È‚¢@‚Æ‚¢‚¤‚±‚Æ‚Í‚È‚¢‚Ì‚Å‚·‚©H
‚±‚ÌŒŸØ‚Í‚µ‚Ä‚Ý‚Ä‚‚¾‚³‚¢B
>500ŒÝ’肵‚Ä‚¢‚éʲÊß°Øݸ‚ðŠÈ’P‚ÉC³‚·‚é•û–@‚ª ‚±‚ê‚ÍA³í‚Éì“®‚µ‚Ä‚¢‚鎞‚ÌBook1.Xls‚ƃnƒCƒp[ƒŠƒ“ƒNæ‚̃uƒbƒN‚̈ʒuŠÖŒW‚ð³Šm‚É‹Lq‚µ‚Ä ‚·‚ê‚Îo—ˆ‚»‚¤‚Å‚·‚¯‚Ç‚Ë‚¦II
‚±‚ê‚à‚¢‚‚‚©ƒf[ƒ^‚ÅŽè“®‚ÅC³‚µA‚»‚ÌŒ‹‰ÊA‚·‚ׂĂ̂o‚b‚Åì“®‚·‚邱‚Æ‚ð Šm”F‚µ‚Ä‚©‚ç‚̘b‚Å‚·B
‚»‚ê‚©‚çA•¡”‚Ì‚o‚b‚ł̳íì“®‚ª–Ú“I‚¾‚µA“à—e‚àŒ‹\•¡ŽG‚Å‚·B
‚‚Ç‚‚È‚Á‚Ä‚àA“¯‚¶Ž–‚ð‰½‰ñ‚àŠm”F‚µ‚È‚ª‚çiƒtƒB[ƒhƒoƒbƒNj‚Ì‹Lq‚ð‚¨Šè‚¢‚µ‚Ü‚·B
ichinose
ª‚Ì“Še‚ÌC³‚ª‚Ä‚çAV‹K‚É‚³‚ê‚éꇂ̂¨Šè‚¢‚Æ‚µ‚ÄBBB
PC‚͉½‘ä—L‚é‚Ì‚Å‚·‚©H @‹¤—LƒtƒHƒ‹ƒ_‚ª—L‚éPC‚ÆA–â‘è‚Ìo‚éPC‚ÆA–â‘è‚Ìo‚È‚¢PC@‚Ì‚R‘äi‚RŽí—ÞjH
‚à‚µ‚©‚µ‚ÄA‹¤—LƒtƒHƒ‹ƒ_‚Í@–â‘è‚Ìo‚éPC‚É—L‚Á‚½‚肵‚ÄH ˆ½‚¢‚ÍAŠePC‚ª‚»‚ꂼ‚ê‚É‹¤—LƒtƒHƒ‹ƒ_‚ÆŒ¾‚¤ƒtƒHƒ‹ƒ_‚ðŽ‚Á‚Ä‚¢‚é‚Ì‚Å‚µ‚傤‚©H
ichinose‚³‚ñ‚ª‘‚¢‚Ä‹‚ç‚ê‚鎖‚Æd•¡‚·‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª ‚»‚ꂼ‚ê‚̃tƒ@ƒCƒ‹‚ª‚ ‚éˆÊ’uŠÖŒW‚à •ª‚©‚è‚â‚·‚‚µ‚Ä‚¨‚¢‚Ä‚¢‚½‚¾‚¯‚é‚Æ—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
(HANA)
ichinose‚³‚ñ‰ïŽÐ‚Å‚²Ž¿–â‚ÌŒŠm”F‚¢‚½‚µ‚Ü‚µ‚½B ƒAƒhƒŒƒX‚Ì—“‚É‚Í‚¢‚¸‚ê‚à@ƒnƒCƒp[ƒŠƒ“ƒN^‚`‚PD‚˜‚Œ‚“‚Æ•\Ž¦‚³‚ê‚Ä‚¢‚Ü‚·B ‚»‚ê‚Æ‚P‚ÂŽÀŒ±‚ðs‚¢‚Ü‚µ‚½Bƒtƒ@ƒCƒ‹u‚`‚Pv‚ð@‚bFV‚µ‚¢ƒtƒHƒ‹ƒ_‘ä’ ‚`‚PD‚˜‚Œ‚“ ‚Æ‚µ‚Ü‚µ‚½B‚a‚‚‚‹‚P‚Ì‚ ‚é‚Æ‚±‚ë‚Æ“¯‚¶êŠ‚Å‚·B Sub@–ß‚é@ij@@@@@ ActiveWorkbook.Close Workbooks("book1").Activate Worksheets("sheet1").Activate End@Sub
‚ðƒtƒ@ƒCƒ‹‚`‚P‚Éݒ肵‚½ã‹LƒR[ƒh‚ð“o˜^‚µ‚½ƒRƒ}ƒ“ƒhƒ{ƒ^ƒ“‚ÅŽÀs‚µ‚½‚Æ‚±‚ëA ‚V‘ä‚·‚ׂĂųí‚Éì“®‚¢‚½‚µ‚Ü‚µ‚½B iƒLƒ‡ƒbƒ`ƒƒƒ“j
ichinoses‚³‚ñ@¡“ú•\‘è‚ÌŒ‚Å‹³‚¦‚Ä‚¢‚½‚¾‚¢‚½Aƒ}ƒNƒ‚Å‚a—ñ‚Éݒ肵‚Ä‚¢‚éƒnƒCƒp[ƒŠƒ“ƒN‚Í Å‹ß‚Ì‚à‚̂͘A‘±‚Åݒ肵‚Ä‚¢‚Ü‚·‚ªAŽá‚¢”Žš‚Ì‚à‚Ì‚ÍŽ•”²‚¯‚Åݒ肵‚Ä‚¢‚Ü‚·‚Ì‚ÅA‚ƂуZƒ‹‚É Ý’è‚µ‚½ƒnƒCƒp[ƒŠƒ“ƒN‚ðƒ†[ƒU[ƒtƒH[ƒ€‚ÅŽÀs‚µ‚½‚Æ‚±‚ëAƒ†[ƒU|ƒtƒH[ƒ€‚ÅŽw’肵‚½ƒuƒbƒN ‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½BŒ»Ý”¶‚µ‚Ä‚¢‚é–â‘è“_‚Ì‰ðŒˆ•û–@‚ÆA‚ ‚킹‚Ä‚±‚̃}ƒNƒ‚ÌC³•û–@‚à ‹³‚¦‚Ä‚‚¾‚³‚¢B@iƒLƒ‡ƒbƒ`ƒƒƒ“j
‚±‚ꂪ‘±‚«‚Å‚·B
ichinose
ƒ{ƒ^ƒ“‚ð‰Ÿ‚µ‚½‚Æ‚«‚̳Šm‚ȃGƒ‰[ƒƒbƒZ[ƒW‚ª‘±‚«‚̃XƒŒ‚É“Še‚³‚ꂽ‚Ì‚Å ‚±‚¿‚ç‚Ö‚à“\‚è•t‚¯‚Ä‚¨‚«‚Ü‚·B
ƒƒbƒZ[ƒW‚Í uBook1.xls ‚ÍŠù‚ɂЂ炢‚Ä‚¢‚Ü‚·B @2d‚ÉŠJ‚‚ÆA‚±‚ê‚Ü‚Å‚Ì•ÏX“à—e‚Í”jŠü‚³‚ê‚Ü‚·B @Book1.xls ‚ðŠJ‚«‚Ü‚·‚©Hv ‚Å‚Í‚È‚ uBook1.xls‚Æ“¯‚¶–¼‘O‚̃tƒ@ƒCƒ‹‚ª‚·‚Å‚ÉŠJ‚¢‚Ä‚¢‚Ü‚·B @•Û‘¶æ‚ª•Ê‚̃tƒHƒ‹ƒ_‚Å‚à“¯‚¶–¼‘O‚̃tƒ@ƒCƒ‹‚𓯎ž‚ÉŠJ‚‚±‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB @‚Q‚–ڂ̃tƒ@ƒCƒ‹‚ðŠJ‚ꇂ͈ê•û‚̃tƒ@ƒCƒ‹‚ð•Â‚¶‚é‚© @‚Ü‚½‚Í‚¢‚¸‚ê‚©‚̃tƒ@ƒCƒ‹‚Ì–¼‘O‚ð•ÏX‚µ‚Ä‚‚¾‚³‚¢Bv ‚Å‚µ‚½B
(HANA)
[ ˆê——(ÅVXV‡) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.