[[20061026100103]]@w•¡”ðŒ‚ÅŒŸõxi‚¦‚éj@>>BOT

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

@

w•¡”ðŒ‚ÅŒŸõxi‚¦‚éj

 ‘•’u–¼	‘•’u–¼Ú×	‘•’u“‹Ú•” “‹Ú•”‚̏ڍ×Êß°Â	Ê߰Œ^Ž®	Ê߰ƒR[ƒh	

 A1†‹@	A1†‹@i001j	ƒoƒbƒN•”	   XŽ²ƒlƒW	DDD	111
			            YŽ²ƒ|[ƒ‹	EEE	222
		         ƒtƒƒ“ƒg•”   ZŽ²	         SSS	333	
			            ƒÆŽ²	         LLL	444

	A1†‹@i002j	ƒoƒbƒN•”	   XŽ²ƒlƒW	DD1	112
			           YŽ²ƒ|[ƒ‹	EEE	222
		         ƒtƒƒ“ƒg•”   ZŽ²	         SS2	334	
			            ƒÆŽ²	         WWW	0
		         ƒTƒCƒh•”	   ÄÞײÊÞ	         PPP	555

 B1†‹@	B1†‹@i001j	ƒ‰ƒCƒg•”	   ƒ‰ƒCƒg	         RRR	999
		         ƒtƒƒ“ƒg•”   ZŽ²	         SSS	333	
		         ƒTƒCƒh•”	    ÄÞײÊÞ	PPP	555
		         ƒwƒbƒh•”	   ƒ‚[ƒ^[	MMM	777
	B1†‹@i002j	ƒoƒbƒN•”	   XŽ²ƒlƒW	DD1	112
			           YŽ²ƒ|[ƒ‹	EE2	223

		        ƒtƒƒ“ƒg•”	       ZŽ²	SS1	331
		        ID•”	      Šî”Â	KKK	888
	B1†‹@i003j	ƒ‰ƒCƒg•”	    ƒ‰ƒCƒg	RR1	991

 C1†‹@	C1†‹@i001j	ƒ‰ƒCƒg•”	    ƒ‰ƒCƒg	RRR	999
	C1†‹@i002j	ƒ‰ƒCƒg•”	    ƒ‰ƒCƒg	RR1	991
	C1†‹@i003j	ƒoƒbƒN•”	   XŽ²ƒlƒW	DD1	112
		         ƒtƒƒ“ƒg•”       ZŽ²	SS1	331	
	C1†‹@i004j	ƒoƒbƒN•”	    XŽ²ƒlƒW	DDD	111
		         ƒtƒƒ“ƒg•”       ZŽ²	SSS	333	

 ‚¦‚é‚Ɛ\‚µ‚Ü‚·B‚Ü‚½A‰ïŽÐ‚ō¢‚Á‚½Ž–‚É‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½BB
FXA‚±‚±‚ÌŒfŽ¦”‚ŁA•×‹­‚³‚¹‚Ä‚à‚ç‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚ªA’†X‚¤‚Ü‚­Žg‚¤‚±‚Æ‚ª
‚Å‚«‚¸A—Í‚ð‘Ý‚µ‚Ä‚¢‚½‚¾‚¯‚Ü‚¹‚ñ‚Å‚µ‚傤‚©EEE
A—ñ‚̂悤‚È‘•’u‚ª‚ ‚èA‚»‚Ì‘•’u‚ɂ́A‹qæ‚²‚Æ‚É•”•i‚ð‚©‚¦‚½
‰º‚R¹À‚̐”Žš‚ª‚‚¢‚Ä‚¢‚Ü‚·B
“‹Ú•”‚́A‰º‚R¹À‚ÉŠÖ‚í‚炸A—ñ‚Ì‘•’u‚É‚æ‚Á‚āA‚Ù‚ÚŒˆ‚Ü‚Á‚Ä‚¢‚Ü‚·B
“‹Ú•”‚ÉŽg‚í‚ê‚éÊ߰‚àA‚Ù‚ÚŒˆ‚Ü‚Á‚Ä‚¢‚Ü‚·B
‚Å‚·‚ªAÊ߰‚̃R[ƒh‚́AFX•Ï‚í‚Á‚Ä‚«‚Ü‚·B
ãŽi‚ª‚¢‚¤‚ɂ́A—Ⴆ‚΁AA1†‹@‚Ì002‚̃tƒƒ“ƒg•”‚ÌÊ߰ƒR[ƒh‚ª’m‚肽‚¢‚Æ
‚È‚Á‚½‚Æ‚«‚ɁA‚³‚Á‚ÆŒŸõ‚Å‚«‚é‚悤‚É‚µ‚½‚¢‚Æ‚¢‚¤‚Ì‚Å‚·‚ªA
‘O‰ñ‹³‚¦‚Ä‚¢‚½‚¾‚¢‚½“ü—Í‹K‘¥‚̃ŠƒXƒg‚ŁAA1†‹@‚ð‘I‘ð¨001`002‚ª‚Å‚Ä
001‚ð‘I‘ð‚·‚é‚ƁAƒoƒbƒN•”ƒtƒƒ“ƒg•”‚ª‘I‚ׂā`EEE‚Æ‚¢‚¤‚Ì‚ªŽv‚¢•‚‚©‚ñ‚¾‚Ì‚Å‚·‚ªA
‚»‚ñ‚È‚¢‚­‚‚à‘I‘ð‚Å‚«‚È‚¢‚悤‚Å‚µ‚½BBB
‰½‚©A‘¼‚ɁA‚¢‚¢•û–@‚Í‚ ‚è‚Ü‚¹‚ñ‚Å‚µ‚傤‚©EEEH
’·X‚Æ‚·‚¢‚Ü‚¹‚ñAA‹X‚µ‚­‚¨Šè‚¢‚¢‚½‚µ‚Ü‚·BB


@@VBƒvƒƒOƒ‰ƒ€‚Å‚à‚¢‚¢‚Å‚·‚©H@@mr_mangoos


 vbaˆ—‚̈ê—á:

 Sheet1‚ɃŠƒXƒg‚ª‚ ‚èAˆês–Ú‚Í—ñŒ©o‚µ...

 ƒR[ƒh‚ð“\‚è•t‚¯‚½‚çAˆê“x‘¼‚̃V[ƒg‚ðƒNƒŠƒbƒN‚µ‚Ä‚à‚¤ˆê“xŠY“–ƒV[ƒg‚É–ß‚éB

 ŠY“–ƒV[ƒg‚ÌSheet module‚ցF

 Private dic1 As Object, dic2 As Object

 Private Sub Worksheet_Activate()
 Dim a, i As Long, n As Integer
 Set dic1 = CreateObject("Scripting.Dictionary")
 Set dic2 = CreateObject("Scripting.dictionary")
 dic1.CompareMode = vbTextCompare
 dic2.CompareMode = vbTextCompare
 a = Sheets("Sheet1").UsedRange.Resize(,6).Value
 For i = 2 To UBound(a,1)
    If Not IsEmpty(a(i,2)) Then
       dic1.add a(i,2), a(i,3)
       z = a(i,2) & ";" & a(i,3)
       dic2.add z, a(i,4)
       n = 1
       Do While IsEmpty(a(i + n, 2))
          If IsEmpty(a(i + n, 3)) Then
             If Not IsEmpty(a(i + n, 4)) Then
                dic2(z) = dic2(z) & "," & a(i + n, 4)
             End If
          Else
             dic1(a(i,2)) = dic1(a(i,2)) & "," & a(i + n, 3)
             z = a(i,2) & ";" & a(i + n, 3)
             dic2.add z, a(i + n, 4)
          End If
          n = n + 1
          If i + n > UBound(a,1) Then Exit Do
       Loop
    End If
 Next
 Erase a
 With Range("a1")
    .Value = ""
    With .Validation
       .Delete
       .Add type:=xlValidateList, formula1:=Join(dic1.keys,",")
    End With
    .Select
 End With
 End Sub

 Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 If Target.Address(0,0) = "A1" And Not IsEmpty(Target) Then
    With Range("b1")
       .Value = ""
       With .Validation
          .Delete
          .Add type:=xlValidateList, formula1:=dic1(Target.Value)
       End With
       .Select
    End With
 ElseIf Target.Address(0,0) = "B1" And WorksheetFunction.CountA(Range("a1:b1"))=2 Then
    With Range("c1")
       .Value = ""
       With .Validation
          .Delete
          .Add type:=xlValidateList, _
          formula1:=dic2(Range("a1").Value & ";" & Range("b1").Value)
       End With
       .Select
    End With
 End If
 Application.EnableEvents = True
 End Sub
 (seiya)

‚²‹³ŽöA‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·II
‚·‚¢‚Ü‚¹‚ñAŽ„‚ɂ́AVBA‚Ì’mŽ¯‚ª‚ ‚Ü‚è‚È‚¢‚̂ŁAFXŽŽ‚µ‚Ä‚Í‚Ý‚½‚Ì‚Å‚·‚ªA
„ƒR[ƒh‚ð“\‚è•t‚¯‚½‚çAˆê“x‘¼‚̃V[ƒg‚ðƒNƒŠƒbƒN‚µ‚Ä‚à‚¤ˆê“xŠY“–ƒV[ƒg‚É–ß‚éB
‚Æ‚¢‚¤‚̂́AÃÞ°À‚Ì“ü‚Á‚Ä‚¢‚éSheet1‚ɁA—Ⴆ‚΁A‚P‚P‚P‚Æ‚¢‚¤ƒR[ƒh‚ðA1‚É“ü—ÍŒãASheet‚Q‚ɈڂèA‚Ü‚½Sheet1‚É–ß‚èAÃÞ°À‚ÌVBA‚ðŠJ‚¢‚āA‘g‚ñ‚Å‚¢‚½‚¾‚¢‚½VBAƒvƒƒOƒ‰ƒ€‚ð
ƒRƒsƒy‚Å‚¢‚¢‚Ì‚Å‚µ‚傤‚©EEEH
‰SŽÒ‚È‚à‚̂ŁA–{“–‚É‚·‚¢‚Ü‚¹‚ñBB


 1) •\Ž¦‚³‚¹‚éƒV[ƒg(Sheet1ˆÈŠO)‚̃V[ƒgƒ^ƒu‚ð‰EƒNƒŠƒbƒN -> [ƒR[ƒh‚Ì•\Ž¦]
 2) ƒR[ƒh‚ð“\‚è•t‚¯A x ‚ðƒNƒŠƒbƒN‚µ‚ăGƒNƒZƒ‹‚É–ß‚é
 3) ˆê“xƒR[ƒh‚ð“\‚è•t‚¯‚½ƒV[ƒgˆÈŠO‚ð‘I‘ð‚µ‚Ä‚©‚çAƒR[ƒh‚ð“\‚è•t‚¯‚½ƒV[ƒg‚ð‘I‘ð

 ‚Æ‚¢‚¤ˆÓ–¡‚Å‚·B
 ŽÀÛ‚ÉŒŸØ‚µ‚Ä‚Ü‚¹‚ñ‚̂ŁAƒGƒ‰[‚ªo‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñB
 ƒGƒ‰[‚ªo‚½‚çAÚ‚µ‚­‚¨’m‚点‚­‚¾‚³‚¢B@(seiya)

 ‚±‚ñ‚ÈŠ´‚¶‚Å‘S‚Ă̍s‚ð–„‚ß‚Ä
‘•’u–¼	‘•’u–¼Ú×	‘•’u“‹Ú•”	“‹Ú•”‚Ì	Ê߰Œ^Ž®	Ê߰ƒR[ƒh
			Ú×Êß°Â		
A1†‹@	A1†‹@i001j	ƒoƒbƒN•”@	XŽ²ƒlƒW	DDD	111
A1†‹@	A1†‹@i001j	ƒoƒbƒN•”@	YŽ²ƒ|[ƒ‹	EEE	222
A1†‹@	A1†‹@i001j	ƒtƒƒ“ƒg•”	ZŽ²	SSS	333
A1†‹@	A1†‹@i001j	ƒtƒƒ“ƒg•”	ƒÆŽ²	LLL	444
 ƒI[ƒgƒtƒBƒ‹ƒ^‚ōi‚荞‚Ý‚½‚¢€–Ú‚ði‚荞‚Þ

 EEE‚Æ‚©‚ł̓_ƒ‚È‚ñ‚Å‚·‚©‚ˁH

 Œ”‚É‚æ‚Á‚Ä‚Í
[[20040925171636]]wƒI[ƒgƒtƒBƒ‹ƒ^[F1000s‚®‚ç‚¢‚µ‚©•\Ž¦‚µ‚Ü‚¹‚ñxi’†“‡j 
 ‚±‚ñ‚ÈŽ–‚à‚ ‚é‚Ì‚Å’ˆÓ‚ª•K—v‚Å‚·‚ªB

 (HANA)

seiya‚³‚ñA‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·II
‘‘¬AŽÀs‚µ‚Ä‚Ý‚½‚Ì‚Å‚·‚ªA
dic1(a(i,2)) = dic(i,2) & "," & a(i + n, 3) @‚́A‚Q‚‚߂Ìdic‚Ì•”•ª‚ª‘I‘ð‚³‚ê‚āA
uSub‚Ü‚½‚ÍFunction‚ª’è‹`‚³‚ê‚Ä‚¢‚Ü‚¹‚ñv‚ƺÏÝÄނªo‚Ä‚­‚é‚Ì‚Å‚·‚ªAAA
‚ ‚ƁA¡X‚È‚ª‚ç‚·‚¢‚Ü‚¹‚ñA‚±‚ÌVBA‚́A‚Ç‚¤‚¢‚Á‚½ˆÓ–¡‚̃vƒƒOƒ‰ƒ€‚É‚È‚Á‚Ä‚¢‚é‚Ì‚©
‹³‚¦‚Ä‚¢‚½‚¾‚¯‚Ü‚¹‚ñ‚Å‚µ‚傤‚©EEEH
‚±‚ê‚́AƒZƒ‹‚ÉŒŸõ‚µ‚½‚¢‘•’u–¼‚ð“ü‚ê‚é‚ÆŒŸõ‚Å‚«‚éAAA‚Æ‚¢‚¤‚悤‚ȃvƒƒOƒ‰ƒ€‚È‚Ì‚Å‚µ‚傤‚©H
‰SŽÒ‚ŁA“I‚𓾂Ă¢‚È‚¢Ž¿–â‚΂©‚èA‚·‚¢‚Ü‚¹‚ñBBB

HANA‚³‚ñ
‚²ˆÓŒ©‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·I
ƒI[ƒgƒtƒBƒ‹ƒ^‚¾‚ƁAÊ߰Œ^Ž®‚ÅŒŸõ‚µ‚½‚¢‚Æ‚«‚ɁAŽÀÛ‚ÌŒ^Ž®‚Í•¶Žš”‚ª‘½‚­AƒAƒ‹ƒtƒ@ƒxƒbƒg”Žš‚Ì‚PŽšˆá‚¢‚È‚Ç‚ ‚Á‚āAŒŸõ‚ðŠÔˆá‚¦‚Ä‚µ‚Ü‚¤“™A­‚µŽg‚¢‚Â炢‚悤‚È‹C‚à‚µ‚½‚肵‚Ä‚¢‚Ü‚µ‚āEEE


 dic(i,2) & "," & a(i + n, 3) ‚Í
 dic1(i,2) & .... ‚Å‚·
 ƒR[ƒh‚ðC³‚µ‚Ä‚¨‚«‚Ü‚µ‚½‚̂ŁA‚à‚¤ˆê“xƒRƒs[‚µ‚È‚¨‚µ‚Ä‚­‚¾‚³‚¢@(seiya)


  ‰ðŒˆ‚µ‚»‚¤‚Å—Ç‚©‚Á‚½‚Å‚·‚ˁB
@‚»‚Ì‚ ‚Æ‚ÅŽ„‚̃vƒƒOƒ‰ƒ€‚à“Še‚µ‚Ä‚Ý‚½‚¢‚ÆŽv‚¢‚Ü‚·B
@ƒ}ƒNƒ‚Å‚Í‚È‚¢Aƒx[ƒVƒbƒNƒvƒƒOƒ‰ƒ€‚ÌŽQl‚É‚Å‚à‚È‚ê‚΂Ǝv‚¢‚Ü‚·B
@‹C‚ªŒü‚¢‚½‚犮Œ‹Œã‚àƒƒbƒ`‚µ‚Ä‚­‚¾‚³‚¢B
@imr_mangoosj

“xX‚·‚¢‚Ü‚¹‚ñAAAA
º°ÄނðƒRƒs[‚µ’¼‚µ‚Ä‚Ý‚½‚Ì‚Å‚·‚ªA¡“x‚́A

ŽÀsŽžƒGƒ‰['450'
ˆø”‚̐”‚ªˆê’v‚µ‚Ä‚¢‚Ü‚¹‚ñB‚Ü‚½‚Í•s³‚ȃvƒƒpƒeƒB‚ðŽw’肵‚Ä‚¢‚Ü‚·B
‚Æ‚¢‚¤ºÏÝÄނªŠJ‚­‚Ì‚Å‚·‚ªEEE‚»‚ê‚ðÃÞÊÞ¯¸‚Å”²‚¯‚é‚ƁA
dic1(a(i, 2)) = dic1(i, 2) & "," & a(i + n, 3)
‚ªˆê—ñA‰©F‚­ƒ}[ƒJ[‚³‚ꂽ‚悤‚È•\Ž¦‚Å‚Å‚Ä‚­‚é‚Ì‚Å‚·BBB


 ‚·‚Ý‚Ü‚¹‚ñA‚Æ‚Á‚Ä‚àŠÔ”²‚¯‚È‚±‚Æ‚ð‚µ‚Ä‚¢‚Ü‚·B
 dic1(a(i,2)) ‚Å‚·B@ƒR[ƒhC³Ï‚݁@(seiya)


‚±‚ñ‚É‚¿‚́`ô

 VBA‚Å‚³‚ê‚Ä‚¢‚é‚̂ɁA‚·‚Ý‚Ü‚¹‚ñ`BB
 ”Ž®ˆÄ‚Ł`‚·B
 •K—v‚È‚¯‚ê‚Ζ³Ž‹‚µ‚Ä‚­‚¾‚³‚¢B

 sheet1‚̃f[ƒ^s‚ª‚í‚©‚è‚Ü‚¹‚ñ‚Ì‚Å
 1‚‚̎®‚Å‚ào—ˆ‚Ü‚·‚¯‚ê‚ǁAƒf[ƒ^s‚ª‘½‚¢‚Æ
 d‚­‚È‚è‚Ü‚·‚̂ŁAì‹Æ—ñ‚ðŽg‚¤•û–@‚Å‚·B

 šƒf[ƒ^ƒV[ƒg–¼@sheet1
 sheet1‚Ö

 *ì‹Æ—ñ‚»‚Ì‚P¨H—ñ
 H2:  =IF(COUNTA(D2:F2)<3,"",INDEX(B:B,MATCH("[",$B$2:B2)+1)&INDEX(C:C,MATCH ("[",$C$2:C2)+1))

 *ì‹Æ—ñ‚»‚Ì‚Q¨I—ñ
 I2:  =IF(H2=Sheet2!$A$2&"†‹@("&Sheet2!$B$2&")"&Sheet2!$C$2&"•”",ROW(),"")

 ‚»‚ꂼ‚ꉺ‚ɃRƒs[‚µ‚Ü‚·B
 ‚±‚̍ì‹Æ—ñ‚́A”ñ•\Ž¦‚É‚µ‚Ä‚à‚¢‚¢‚Å‚·‚ˁBBB

 š’ŠoƒV[ƒg–¼@sheet2@«

 @@@‚`@@@@‚a@@@@@‚b@@@@@@@@‚c
 ‚P@‘•’u–¼@@‘•’u–¼@@Ú×‘•’u“‹Ú•”@@Ê߰ƒR[ƒh
 ‚Q@@A1@@@@002@@@@ƒtƒƒ“ƒg@@@@@334
 ‚R@@@@@@@@@@@@@@@@@@@@@@0

 ‚±‚ñ‚ÈŠ´‚¶‚ÉA2`C2‚Ö“ü—Í‚µ‚Ü‚·B
 (B2ƒZƒ‹‚́A‘Ž®¨•¶Žš—ñ)
 ‚±‚Ì“ü—Í‚Í“ü—Í‹K‘¥‚ðŽg‚Á‚Ä‚à‚¢‚¢‚Å‚·‚ˁB
 D3‚́@0 ‚́A—á‘è‚Ì•\‚Ł@0 ‚É‚È‚Á‚Ä‚¢‚Ü‚µ‚½‚̂ŁB

 Ž®‚́A
 D2:  =IF(COUNT(Sheet1!$I:$I)<ROW(A1),"",INDEX(Sheet1!$F:$F,SMALL(Sheet1! $I:$I,ROW(A1))))

‰º‚ɃRƒs[‚µ‚Ü‚·B

 ‚²ŽQl‚É‚Ç‚¤‚¼`BBBB

 BBBB(Ms.in)‚Å‚µ‚½`ôô


 @ª@‚ ‚êII

 ‚»‚»‚Á‚©‚µ‚¢‚̂Ł`B
 HN‚Ì R ‚ªA”²‚¯‚Ä‚¢‚Ü‚µ‚½B

 (Ms.Rin)‚Å‚µ‚½`ôô


seiya‚³‚ñ
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·II
ŽÀs‚Å‚«‚Ü‚µ‚½I‚»‚µ‚āA‚·‚²‚¢Žg‚¢‚â‚·‚¢‚Å‚·II
ì‚Á‚Ä‚¢‚½‚¾‚¢‚½VBA‚ŁA3s–Ú‚Ì“‹Ú•”‚Ü‚ÅŒŸõ‚Å‚«‚é‚悤‚É‚È‚è‚Ü‚µ‚½II
‚±‚ñ‚È‚·‚²‚¢ƒvƒƒOƒ‰ƒ€‚ðì‚Á‚Ä’¸‚¢‚āA‚ ‚‚©‚Ü‚µ‚¢‚¨Šè‚¢‚È‚Ì‚Å‚·‚ªA
ŽÀ‚́AŽÀÛ‚ÌÃÞ°À‚́A‚Ps–Ú‚Ì—ñŒ©o‚µ€–Ú‚ªŒ‹\‚½‚­‚³‚ñ‚ ‚èA‚Å‚«‚ê‚΁A
‘S‚Ă̍€–ڂɁA¡‰ñì‚Á‚Ä‚¢‚½‚¾‚¢‚½‚悤‚ÈŒŸõ‚ª‚©‚¯‚ê‚é‚ƁA‚·‚²‚­Šð‚µ‚¢‚Ì‚Å‚·‚ª
‚»‚ê‚͓‚¢‚Å‚µ‚傤‚©BBBH

Ms,Rin‚³‚ñ

‚²’ñˆÄA‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·II
ŠÖ”‚ð‚¢‚­‚‚©Žg‚¤‚ƁA‚±‚ñ‚È‚±‚Æ‚à‚Å‚«‚é‚ñ‚Å‚·‚ˁEEE
‘¼‚̏ê–Ê‚Å‚àŽg‚¦‚Ü‚·‚æ‚ˁI
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·I


 ‹æØ‚è–Ú‘}“üi10/27 15:45j
 idackj


 €–ڂ̓fƒ^ƒ‰ƒ‚ÅŒ‹\‚Å‚·‚©‚çAÚ‚µ‚¢ƒŒƒCƒAƒEƒg‚ð‚²’ñŽ¦‚­‚¾‚³‚¢B
 (seiya)

    ‚à‚¤‚²—pÏ‚Ý‚Å‚µ‚傤‚ªÚ‚¹‚³‚¹‚ĉº‚³‚¢A‚±‚ñ‚È•û–@‚à‚ ‚è‚Ü‚·B
@
  žðŒ‚Æ‚µ‚āAŒŸõ‚³‚ê‚éƒf[ƒ^‚Í‚r‚g‚d‚d‚s‡‚‚ÌSHEET1‚Ì‚Qs–ڈȍ~‚©‚çŽn‚Ü‚Á‚Ä‚¢‚āA
    ‰¡‚É‚``‚e‚Æ“WŠJ‚µ‚Ä‚¢‚é‚à‚Ì‚Æ‚µ‚č쐬‚µ‚Ä‚Ü‚·B
@@‚¨Šè‚¢Fƒf[ƒ^‚̍Ōã‚̍s‚ÌŽŸ‚̃Zƒ‹‚Ì‚`—ñ‚É”¼Šp‚Ì*‚ð“ü‚ê‚ĉº‚³‚¢i–³‚­‚Ä‚à—Ç‚¢‚Å‚·
    ‚ªƒf[ƒ^‚̏I‚è‚𔻒肵‚½‚¢‚̂Łj
@@‰º‹LƒvƒƒOƒ‰ƒ€‚ðƒRƒs[‚µ‚Ä“\‚è•t‚¯‚µ‚½Œã‚ÅSHEET‡‚‚ÌSHEET2‚̃Zƒ‹F3‚ ‚½‚è‚ɃI[ƒgƒV
    ƒFƒCƒv‚©‚ç
@@“K“–‚Ȑ}Œ`‚ð“\‚è•t‚¯‚Ä‚­‚¾‚³‚¢Bi“ñdŽlŠp‚Ý‚½‚¢‚É‚È‚Á‚Ä‚¢‚é}Œ`‚ð‚¨Š©‚ß‚µ‚Ü‚·j
@@‚»‚ÌŒã‚Ő}Œ`‚ð‰EƒNƒŠƒbƒN‚µ‚ă}ƒNƒ‚Ì“o˜^‚Å¢ŒŸõ£‚ð“o˜^‚µ‚ĉº‚³‚¢B
@@‚±‚ê‚ŏ€”õŠ®—¹‚Å‚·B

@@@¡‚ÌSHEET2‚̃Zƒ‹¢J1£‚ÉŒŸõ‚̃L[ƒ[ƒhA‘•’u–¼Ú×i—Ⴆ‚΁F‚`1†‹@i002jj

    ‚Æ“ü—Í‚µ‚Đæ‚Ù‚Ç‚Ì“\‚è•t‚¯‚½}Œ`‚ðƒNƒŠƒbƒN‚µ‚ĉº‚³‚¢B

@@@‘•’u–¼Ú×‚Å‚­‚­‚ç‚ê‚éƒOƒ‹[ƒv‚ªŒŸõ‚³‚ê‚Ä‚Ts–ڈȍ~‚É•\Ž¦‚³‚ê‚Ü‚·B

@@–ŒŸõŒ‹‰Ê‚ª‚¨‹C‚ɏ¢‚·‚©‚í‚©‚è‚Ü‚¹‚ñ‚ªÚ‚¹‚Ä‚Ý‚Ü‚µ‚½B
@@mr_mangoos

 Sub ŒŸõ()
  Dim i, J, CTL
  Dim F1 As Boolean
  CTL = 5
  Range(Sheet2.Cells(5, 1), Sheet2.Cells(50, 6)).ClearContents
  F1 = False
  For i = 1 To 2000
    If (Sheet1.Cells(i, 1) = "*") Then Exit Sub
    If (Sheet1.Cells(i, 2) = "") Then
    Else
      If (Trim(Sheet2.Cells(1, 10)) = Trim(Sheet1.Cells(i, 2))) Then
        F1 = True
      Else
        F1 = False
      End If
    End If
    If (F1 = True) Then
      For J = 2 To 6
        Sheet2.Cells(CTL, J) = Trim(Sheet1.Cells(i, J))
      Next J
      CTL = CTL + 1
    End If
  Next i
 End Sub

mr_mangoos‚³‚ñ
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·I

seiya‚³‚ñ
‰ïŽÐ‚ÌPC‚Ì’²Žq‚ªˆ«‚­’x‚­‚È‚è‚Ü‚µ‚½BB\‚µ–ó‚ ‚è‚Ü‚¹‚ñBBB
ŒŸõ‚µ‚½‚¢—ñ”‚È‚Ì‚Å‚·‚ªA‚Q‚O—ñ‚Ù‚Ç‚ ‚è‚Ü‚µ‚½EEE
–{“–‚É–³—‚È‚¨Šè‚¢‚΂©‚è‚·‚¢‚Ü‚¹‚ñEEE

ƒŒƒCƒAƒEƒg‚Í
A—ñ‚É‚Í6sAB—ñ‚É‚Í5sAC—ñ‚É‚Í3sAD—ñ‚É‚Í20sAE—ñ‚É‚Í60sAF—ñ‚É‚Í7sAG—ñ‚É‚Í40sEEE‚Æ‚¢‚Á‚½Š´‚¶‚ŁA‚½‚Ăɏî•ñ‚ª‚È‚ç‚ñ‚¾ƒf[ƒ^ƒx[ƒX‚É‚È‚Á‚Ä‚¢‚Ü‚·EE
‚Á‚āA‰ñ“š‚É‚È‚Á‚Ä‚¢‚Ü‚·‚Å‚µ‚傤‚©BBH


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

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


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