[[20030926201859]]@wƒZƒ‹‚̃f[ƒ^‚©‚çƒV[ƒg–¼xi‚Û‚ñj@>>BOT

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

@

wƒZƒ‹‚̃f[ƒ^‚©‚çƒV[ƒg–¼xi‚Û‚ñj

  1ƒV[ƒg‚É‚a—ñ(‚a‚R`‚a100j‚h‚c
           ‚b—ñ@@@  @@@Ž–¼
           ‚c—ñ@@@  @@@“ú•t
           ‚d—ñ`‚g—ñ@@@@”’l
           ‚h—ñ`‚k—ñ@@@@”’li¬”“_ˆÈ‰º‚PˆÊj
           ‚l—ñ@@@@@@@”Ž®(J3-I3)/(F3-E3j
           ‚m—ñ@@@@@@@‚h‚eŠÖ”
  ‚Ps‚²‚Ƃɕʂ̃V[ƒg‚Å2Ž²‚̐܂êüƒOƒ‰ƒt‚ª100ƒV[ƒgì¬‚µ‚Ä‚ ‚è‚Ü‚·B
@i‚d`‚gA‚h`‚k‚Å2Ž²j
@‚ ‚Ƃ͐”’lƒf[ƒ^‚ð“ü—Í‚µ‚Ä‚¢‚­Œ`‚Å‚·B
  Ž–¼‚ð“ü—Í‚µ‚Ä‚©‚çƒV[ƒg–¼‚ð•ÏX‚µ‚Ä‚¢‚é‚Ì‚Å‚·‚ªAŽ–¼‚ð“ü—Í‚µ‚½‚玩“®“I‚ɃV[ƒg–¼‚ð
@•ÏX‚·‚邱‚Æ‚Í‚Å‚«‚é‚Å‚µ‚傤‚©H
@Sheet1‚ªƒf[ƒ^ˆê——iƒZƒ‹‚b‚RŽ–¼‚ªSheet2A‚b‚S‚ªSheet3A‚b‚T‚ªSheet4‚Æ‚¢‚¤‚悤‚Ɂj
@
@‚ ‚ƃOƒ‰ƒt‚É‚l—ñ‚̃f[ƒ^‚ðo››› 0.16}‚̂悤‚É“ü‚ꂽ‚¢ˆ×AƒOƒ‰ƒtƒIƒvƒVƒ‡ƒ“‚Ì
@‘æ‚Q€–ÚŽ²‚ÍŽg‚Á‚Ä‚¢‚È‚¢‚½‚߁A‚»‚±‚Ɂ›››‚Æ‚ ‚ç‚©‚¶‚ß‚¢‚ê‚Ä‚¨‚¢‚āA‚ ‚Æ‚Å‚l—ñ‚̐”’l
@‚ð“ü—Í‚µ‚Ä‚¢‚Ü‚·‚ªAƒeƒLƒXƒgƒ{ƒbƒNƒX‚Ì‘}“ü“™ˆÈŠO‚Å‚Å‚«‚½‚玩“®ˆ—‚ōs‚¤•û–@‚Í‚ ‚è‚Ü
@‚·‚Å‚µ‚傤‚©H

  Ž¿–â‚΂©‚è‚Ő\‚µ–ó‚È‚¢‚Å‚·‚ªA‚±‚ÌÃÞ°À‚ªŒ»Ý100‚Å‚·‚ª‚Ü‚¾‚Ü‚¾‘‚¦‚Ä‚¢‚­‰Â”\«‚ª‚ ‚è
@Access‚ÅŠÈ’P‚ÈŠÇ—‚·‚é‚à‚Ì‚ðì¬‚µ‚½‚Ì‚Å‚·‚ªAAccess‚Å“¯‚¶‚悤‚ȃOƒ‰ƒt‚ªì‚ê‚È‚­A
@‚±‚ÌExcel‚̃Oƒ‰ƒt‚ðŽ‚Á‚Ä‚«‚½‚¢‚Ì‚Å‚·‚ªA‚»‚¤‚¢‚¤‚±‚Æ‚Í‚Å‚«‚é‚Ì‚Å‚µ‚傤‚©H

 >ƒV[ƒg–¼‚ð•ÏX 

 ‚Ç‚¤‚¼EE@
 @
 Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Column <> 3 Then Exit Sub
 If Target.Row < 3 Or Target.Row > Worksheets.Count + 2 Then Exit Sub
 If Target.Value = "" Then Exit Sub

   Worksheets(Target.Row - 1).Name = Cells(Target.Row, 3).Value

 End Sub

 (INA)


  INA‚³‚ñ@‚¢‚Â‚à‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
@Žg‚킹‚Ä‚¢‚½‚¾‚«‚Ü‚·B@@@@@@@@
 i‚Û‚ñj

ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


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