[[20140827212357]]@wƒ}ƒNƒ‚ō‡Œv_2_Žč‡¨ƒR[ƒhėŦ¨•Ī”éŒžxi‚ā‚Ũ‚ļâj@>>BOT

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

@

wƒ}ƒNƒ‚ō‡Œv_2_Žč‡¨ƒR[ƒhėŦ¨•Ī”éŒžxi‚ā‚Ũ‚ļâj

[[20140814193616]]wƒ}ƒNƒ‚ō‡Œv@1x

‚ą‚¤‚Å‚ˇ‚ŠH

„—ŧ•û‚Ė•û–@‚Ē‚Ü‚´‚Á‚ā`
@‚Ä‚ą‚Æ‚Č‚Ė‚ŁA‚h‚eŠÖ”‚Ł@‚m‚n@‚Ē“¯‚ļ‚Æ‚ą@ŒŽ‚Ē“¯‚ļ‚Æ‚Ģ@
@“¯‚ļ‚Ė‚đ’T‚ĩ‚āBŠY“–‚ĖƒZƒ‹‚ɏ‘‚Ģo‚ˇB
@WŒv‚ĖƒV[ƒg‚Ėƒ‹[ƒv‚ā’Į‰Á‚ĩ‚Ü‚ĩ‚ŊB

WŒvƒV[ƒg‚É‚ĸ‚į‚Č‚ĸƒf[ƒ^[‚ ‚Á‚Ŋ‚Ė‚ŁAíœ‚ĩ‚ăRƒ“ƒpƒNƒg‚É‚ĩ‚Ü‚ĩ‚ŊB

ƒf[ƒ^[ƒV[ƒg‚Ė”ÍˆÍ‚đ‹‚ß‚é
@3s–Ú‚Š‚į‚ĖÅIsƒ‹[ƒviƒf[ƒ^[ƒV[ƒgj
@@@3—ņ–Ú‚Š‚į‚ĖÅI—ņƒ‹[ƒviƒf[ƒ^[ƒV[ƒgj
@@@@@1s–Ú‚Š‚įÅIsƒ‹[ƒviWŒvƒV[ƒgj
@@@@@@@ifƒf[ƒ^[ƒV[ƒg‚m‚n@@WŒvƒV[ƒg‚m‚n‚Ēˆę’v‚ĩ‚Ŋ‚Æ‚Ģ
@@@@@@@@@ifƒf[ƒ^[ƒV[ƒgŒŽ@@WŒvƒV[ƒgŒŽ‚Ēˆę’v‚ĩ‚Ŋ‚Æ‚Ģ
@@@@@@@@@@@ƒf[ƒ^[ƒV[ƒg’l‚i—ņ{WŒvŠY“–ƒZƒ‹@
@@@@@@@@@End if@

               End if
           ŽŸ‚Ėƒ‹[ƒv
@@@@@@@WŒvƒV[ƒg‚ĖŠY“–ƒV[ƒ‹ƒf[ƒ^[ƒV[ƒg’l‚i—ņ{WŒvŠY“–ƒZƒ‹
@@@@ŽŸ‚Ėƒ‹[ƒv
@@ŽŸ‚Ėƒ‹[ƒv

šWŒvƒV[ƒg‚ĸ‚į‚Č‚ĸ‚ā‚Ė‚đíœ‚ĩ‚ăRƒ“ƒpƒNƒg‚É‚ĩ‚Ü‚ĩ‚ŊB@

	[a]	[b]	[c]	[d]	[e]	[f]	[g]
[2]	NO	¤•i–ŧ‘O		1 ŒŽ	2 ŒŽ	3 ŒŽ
[3]	A01						
[4]	A02				30 	90 	70 
[5]	A03				30 		
[6]	A04					60 	

šƒf[ƒ^[ƒV[ƒg

	[a]	[b]@@@@	[c]	[d]	[e]	[f]	[g]	[h]	[i]	[j]	[k]
[2]	NO	“ú•t@@@@	TEL	ŒŽ	NO	NO	’P‰ŋ	‚ƒ‚“	‚‚ƒ	‹āŠz	
		@@@@@@		ŒŸõ’l		ŒŸõ’l					
[3]	140101	2014”N1ŒŽ1“ú	8768	11	A02	4				10	
[4]	140101	2014”N1ŒŽ2“ú	8768	11	A02	4				20	
[5]	140101	2014”N1ŒŽ5“ú	8768	11	A03	5				30	
[6]	140101	2014”N2ŒŽ5“ú	2913	12	A02	4				40	
[7]	140102	2014”N2ŒŽ5“ú	2913	12	A02	4				50	
[8]	140102	2014”N2ŒŽ6“ú	2913	12	A04	6				60	
[9]	140102	2014”N3ŒŽ5“ú	2913	13	A02	4				70	

ƒ Žg—p ExcelFunknownAŽg—p OSFunknown „


 ‚ģ‚Ėl‚Ļ•û‚́A‚˛ŽŠg‚ÅŽĀs‚ĩ‚Ä‚Ũ‚é‚Æ‚Į‚¤‚ĸ‚¤Ž–‚Å‚ˇ‚ŠH
 @
iHANAj 2014/08/27(…) 23:07

‚ą‚ę‚Í‚Ü‚žƒCƒ[ƒW‚Å‚ˇB
—~‚ĩ‚ĸƒR[ƒh‚Í‚Ü‚ž‘S•”ŒŠ‚‚Š‚Á‚Ä‚ĸ‚Ü‚š‚ņB

‚Å‚ā‚ą‚ę‚đŽĀs‚ˇ‚é‚Ɓ@–â‘č‚ĒB
HANA@—l@‚Ē‹ŗ‚Ļ‚Ä‚­‚ę‚Ŋ@ƒf[ƒ^[ƒV[ƒg‚Š‚įNO‚ÆŒŽ‚đŒŸõ‚ˇ‚éƒR[ƒh‚đ
‚Į‚¤•\Œģ‚ĩ‚Ŋ‚į‚Ē“Ē‚đ’É‚ß‚é‚Æ‚ą‚ë‚Å‚ˇB

‚ą‚ą‚Ü‚Å‚ĖƒCƒ[ƒW‚Ł@‰Ŋ‚Š•Ī‚Č‚Æ‚ą‚ë‚ ‚č‚Ü‚ˇ‚ŠH
i‚ā‚Ũ‚ļâj 2014/08/27(…) 23:21


 „‚ą‚ą‚Ü‚Å‚ĖƒCƒ[ƒW‚Ł@‰Ŋ‚Š•Ī‚Č‚Æ‚ą‚ë‚ ‚č‚Ü‚ˇ‚ŠH
 •Ī‚Č‚Ė‚Łu‚˛ŽŠg‚ÅŽĀs‚ĩ‚Ä‚Ũ‚é‚Æ‚Į‚¤‚ĸ‚¤Ž–‚Å‚ˇ‚ŠHv‚Ə‘‚ĸ‚Ä‚Ũ‚Ü‚ĩ‚ŊB

 ‚ā‚Ũ‚ļâ‚ŗ‚ņ‚Č‚įAWŒvƒV[ƒg‚ɏWŒv‚ˇ‚é‚Æ‚Ģ‚Ɂ@‚Į‚Ė‚悤‚É‚ˇ‚é‚ņ‚Å‚ˇ‚ŠH
 ‚˛ŽŠg‚Ē‚â‚é‚ą‚Æ‚đ‡”Ô‚É‘‚Ģo‚ĩ‚Ä‚Ũ‚Ä‚Í‚Į‚¤‚Å‚ĩ‚傤H
 @
iHANAj 2014/08/27(…) 23:37

 ƒGƒNƒZƒ‹‚Š‚į‚āˆę’U—Ŗ‚ę‚čl‚Ļ‚Ä‚Ũ‚Ŋ‚į‚Į‚¤‚Å‚ˇ‚ŠH
 ƒf[ƒ^‚Ė•\‚ƏWŒv‚Ė•\‚ÆŽ†‚Ɖ”•M‚ƏÁ‚ĩƒSƒ€‚đ“n‚ŗ‚ę‚Ä
 u‚ą‚ęAWŒv‚ĩ‚Ä‚¨‚ĸ‚āv
 ‚ÆŒž‚í‚ę‚ŊŽžA‚ā‚Ũ‚ļâ‚ŗ‚ņ‚Č‚į@WŒv‚Å‚Ģ‚Ü‚ˇ‚æ‚ˁH

 ÅI“I‚É‚Í
 @A02‚Ė1ŒŽA2ŒŽA3ŒŽBA03‚Ė1ŒŽBA04‚Ė2ŒŽB
 ˆČã‚Ė‚T‚ŠŠ‚ɐ”Žš‚đ‘‚­Ž–‚É‚Č‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē
 ‚ģ‚ĖŽžAˆę”ԍŏ‰‚ɐ”Žš‚đ‘‚­‚Ė‚Í‚Į‚ą‚Å‚ˇ‚ŠH

 ‚Ü‚ŊA‚ģ‚Ė”Žš‚͉Ŋ‚đ‘‚Ģ‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/08/28(–Ø) 08:31

 ‚ą‚ņ‚É‚ŋ‚́B‰Ą‚Š‚įŽ¸—į‚ĩ‚Ü‚ˇB

 „@‚ą‚¤‚Å‚ˇ‚ŠH
 ‚Æ‚ĸ‚¤‚ŠAƒ}ƒNƒ‚ɐŗ‰đ‚Á‚Ä‚Č‚ĸ‚Å‚ˇ‚æH
 ‚Į‚ņ‚ČŽč‚đŽg‚Á‚Ä‚Å‚ā–]‚Ũ‚ĖŒ‹‰Ę‚đo‚š‚Ŋ‚į ‚ģ‚ę‚ŃIƒbƒP[‚Å
 ‰ņ“šŽŌ‚Ēŗ‰đ‚đ’m‚Á‚Ä‚ĸ‚ā›‚Æ‚Š~‚Æ‚Š”ģ’č‚ĩ‚Ä‚­‚ę‚é‚悤‚Č‚ā‚Ė‚ļ‚á‚Č‚ĸ‚Å‚ˇB

 ‰Æ‚đŒš‚Ä‚é‚Ė‚ÉŽ—‚Ä‚ĸ‚Ü‚ˇB
 ‰Æ‘°‚Ũ‚ņ‚Č‚Ē‹CŽ‚ŋ‚æ‚­•é‚į‚š‚é‰Æ‚Ē‚Å‚Ģã‚Ē‚Á‚Ŋ‚į‚ģ‚ę‚ŃIƒbƒP[A
 ŗ‰đ‚Í‚ ‚č‚Ü‚š‚ņB
 —L–ŗˆČ‘O‚ɁAŗ‰đ‚Æ‚ĸ‚¤ŠT”OŽŠ‘Ė‚ ‚č‚Ü‚š‚ņ‚æ‚ˁB

 ‚Æ‚ą‚ë‚Ń}ƒNƒ‚Å‚Į‚ņ‚Č‚ą‚Æ‚Ē‚ĩ‚Ŋ‚ĸ‚Ė‚Å‚ĩ‚Ŋ‚Á‚¯B
 ‚Č‚É‚ā’m‚į‚Č‚ĸ‚É‚ņ‚°‚ņi‚í‚Ŋ‚ĩj‚É•Ē‚Š‚é‚悤‚ɁA
 ‚‚܂č‚ā‚Ũ‚ļâ‚ŗ‚ņ‚Ė‚Š‚í‚č‚É‚í‚Ŋ‚ĩ‚ĒWŒv‚Å‚Ģ‚é‚悤‚ɐā–ž‚Á‚Ä‚Å‚Ģ‚Ü‚ˇ‚ŠH

i@‰Ā@j 2014/08/28(–Ø) 21:43


[[20140814193616]]
V‚ĩ‚­ė‚é‚Æ‚Ģ‚ɁA‘O‚ĖƒŠƒ“ƒN‚Í‚ ‚é•û‚Ē‚ĸ‚ĸ‚Å‚ˇ‚æB

iƒfƒCƒgj 2014/08/29(‹ā) 09:40


ŒŸ“ĸ’†‚Ėƒ}ƒNƒˆÄ‚đŽĖ‚ĂāAƒsƒ{ƒbƒg—˜—pˆÄ‚Č‚ŧB
‚Ü‚¸A•Ē‚Š‚č‚₡‚ĸ‚悤‚ɏWŒvŒŗ‚Í•s—v‚ȏî•ņ‚đ‚΂Á‚ŗ‚čØ‚Á‚āAˆČ‰ē‚Ė‚悤‚É‚ĩ‚Ä‚­‚ž‚ŗ‚ĸB

	[a]@@@@@@	[b]	[c]@@	[d]
[2]	“ú•t@@@@	”NŒŽ	NO@@@‹āŠz
[3]	2014”N1ŒŽ1“ú		A02	10
[4]	2014”N1ŒŽ2“ú		A02	20
[5]	2014”N1ŒŽ5“ú		A03	30
[6]	2014”N2ŒŽ5“ú		A02	40
[7]	2014”N2ŒŽ5“ú		A02	50
[8]	2014”N2ŒŽ6“ú		A04	60
[9]	2014”N3ŒŽ5“ú		A02	70

B—ņ‚ɂ́Au=DATE(YEAR(A3),MONTH(A3),1)v‚ĖŽŽ‚đ–„‚ß‚Ä‚¨‚Ģ‚Ü‚ˇB

ŽŸ‚ɁAB`D—ņ‚đ”͈͑I‘đBu‘}“üv|uƒsƒ{ƒbƒgƒe[ƒuƒ‹vB
—ņƒ‰ƒxƒ‹‚Ɂu”NŒŽvAsƒ‰ƒxƒ‹‚ɁuNOvAƒ°’l‚Ɂu‹āŠzv‚đŽw’čB
u‹āŠzv‚Í’lƒtƒB[ƒ‹ƒh‚ĖŨ’č‚ŁAu‡Œvv‚É‚ĩ‚Ü‚ˇB

‚ą‚ę‚ž‚¯‚Å–Ú“I‚Ė•\‚É‚Č‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒA‚ĸ‚Š‚Ē‚Å‚ĩ‚傤‚ŠB
i???j 2014/08/29(‹ā) 14:47


i@‰Ā@j—liƒfƒCƒgj —l@

ā–ž•s‘Ģ‚Å‚ˇ‚Ũ‚Ü‚š‚ņB
‚¸‚Á‚ƁiHANAj—l‚ĖƒŒƒbƒXƒ“‚Å‚ĩ‚Ŋ‚Ė‚ŁA‚ģ‚Ė‚‚ā‚č‚ŏ‘‚ĸ‚Ä‚Ü‚ĩ‚ŊB

‚ģ‚ę‚Å‚ā•s‘Ģ‚Ė•”•Ē‘ŊX‚Å‚ˇ‚ˍĄŒãA‹C‚đ•t‚¯‚Ü‚ˇ@(L߄tß`)

i???j —l

„ŒŸ“ĸ’†‚Ėƒ}ƒNƒˆÄ‚đŽĖ‚ĂāAƒsƒ{ƒbƒg—˜—pˆÄ‚Č‚ŧB
‚ą‚ę‚ÍŒë‰đ‚Å‚ˇB
‚ĸ‚¸‚ę‚o‚s‚Ė—˜—p“ā—e‚đƒ}ƒNƒ‚ɐ؂č‘Ö‚Ļ‚Ŋ‚ĸ‚Ė‚Å‚ ‚Á‚āA
Ą‚â‚Á‚Ä‚ĸ‚éƒ}ƒNƒ‚đ‚o‚s‚ɐ؂č‘Ö‚Ļ‚Ŋ‚ĸ‚Ė‚Å‚Í‚ ‚č‚Ü‚š‚ņB

ā–ž‘Ģ‚į‚¸‚Å‚ˇ‚Ũ‚Ü‚š‚ņ@(*Lƒm„DM)
ŠF—l‚˛–Ā˜f‚đ‚¨‚Š‚¯‚ĩ‚Ü‚ĩ‚ŊB
ÜŠp‰ņ“š‚ĸ‚Ŋ‚ž‚ĸ‚Ŋ‚Ė‚Ƀzƒ“ƒg‚ɐ\‚ĩ–ķ‚ ‚č‚Ü‚š‚ņB

ĄŒã‚Í‚Č‚é‚ׂ­ā–ž‚đ“ü‚ę‚é‚悤‚É‚ĩ‚Ü‚ˇB@(G Ĩ`„tĨL)

i‚ā‚Ũ‚ļâj 2014/08/30(“y) 20:48


HANA —l

‚ ‚ę‚Š‚į‚Ü‚Ŋ‚ĸ‚ë‚ĸ‚ë‚ƍl‚Ļ‚Ä‚Ũ‚Ü‚ĩ‚ŊB

HANA —l‚Ėl‚Ļ‚ĖŒŗ‚É

@ƒf[ƒ^ƒV[ƒg‚Ė3s–Ú‚Š‚įÅIs‚܂ŏˆ—‚ĩ‚Ü‚ˇB

 @‚PDNo‚ĒWŒvƒV[ƒg‚Ė‰Ŋs–Ú‚É—L‚é‚ŠMATCHŠÖ”‚Å’˛‚ׂ܂ˇB
 @‚QD“ú•t‚Š‚įŒŽ•”•Ē‚đŽæ‚čo‚ĩ‚āAWŒvƒV[ƒg‚Ė‰Ŋ—ņ–Ú‚É—L‚é‚ŠMATCHŠÖ”‚Å’˛‚ׂ܂ˇB
 @‚RDWŒvƒV[ƒg‚ĖA1‚Å’˛‚ׂŊs‚Æ,2‚Å’˛‚ׂŊ—ņ‚ĖƒZƒ‹‚Ɂ@”—Ę‚đ‘Ģ‚ĩŽZ‚ĩ‚Ü‚ˇB
 @‚ą‚ę‚đÅIs‚Ü‚ÅŽĀs‚ĩ‚Ü‚ˇB

‚ŋ‚å‚Á‚ÆŽ‹ü‚đ‘Ö‚Ļ‚ď‘‚Ģo‚ĩ‚Ä‚Ũ‚ŊŒ‹‰Ę
WŒvƒV[ƒg

 [a]	[b]	[f]	[g]      	[e]	[f]	[g]
 NO	¤•i–ŧ‘O			1 ŒŽ	2 ŒŽ	3 ŒŽ
 A01				        e3+0		
 A02				        e4+j3	F4+j6	G4+j9
 				        e4+j4	F4+j7	
 A03				        e5+J5		
 A04					        f6+J8	

 Ž„‚ĖŽč‡
 @ŸÅIsƒf[ƒ^ƒV[ƒg‚Ė3s–Ú‚Š‚įÅIs‚܂ŏˆ—‚ĩ‚Ü‚ˇB			
 @@1.No‚ĒWŒvƒV[ƒg‚Ė‰Ŋs–Ú‚É—L‚é‚ŠMATCHŠÖ”‚Å’˛‚ׂ܂ˇB
 @@@‚m‚n=MATCH(‚e3`ÅIs,Sheet5!$A$1:$A$7,0)
 @@2.“ú•t‚Š‚įŒŽ•”•Ē‚đŽæ‚čo‚ĩ‚āAWŒvƒV[ƒg‚Ė‰Ŋ—ņ–Ú‚É—L‚é‚ŠMATCHŠÖ”‚Å’˛‚ׂ܂ˇB@@									
 @@@ŒŽ=MATCH(MONTH(B3F),Sheet5!$A$2:$J$2,0)
 @@@Ÿ‚h‚eŠÖ”‚đŽg‚Á‚ÄđŒ‚đ•t‚¯‚é
 @@@@‚m‚n‚ĒŒŠ‚‚Š‚Á‚Ŋ‚Æ‚Ģ
 @@@Ÿ‚h‚eŠÖ”‚đŽg‚Á‚ÄđŒ‚đ•t‚¯‚é
 @@@@ŒŽ‚ĒŒŠ‚‚Š‚Á‚Ŋ‚Æ‚Ģ
 @@3.WŒvƒV[ƒg‚ĖA1‚Å’˛‚ׂŊs‚Æ,2‚Å’˛‚ׂŊ—ņ‚ĖƒZƒ‹‚Ɂ@”—Ę‚đ‘Ģ‚ĩŽZ‚ĩ‚Ü‚ˇB
       WŒvƒV[ƒgiŒŠ‚‚Š‚Á‚Ŋ‚m‚nƒZƒ‹AŒŠ‚‚Š‚Á‚ŊŒŽ‚ĖƒZƒ‹j@WŒvƒV[ƒgiŒŠ‚‚Š‚Á‚Ŋ‚m‚nƒZƒ‹AŒŠ‚‚Š‚Á‚ŊŒŽ‚ĖƒZƒ‹jj{@ƒf[ƒ^[ƒV[ƒgiÅIsA10j
 @@@
       œ‘‚Ģo‚ˇ‚Æ‚Ģ‚ĖƒCƒ[ƒW
@@@ @WŒvƒV[ƒgi‚d3jƒf[ƒ^[‚Ē‚ ‚鎞‚ĖŒvŽZ‚Č‚Ė‚Å‚`01‚̓JƒEƒ“ƒg‚ŗ‚ę‚Č‚ĸ‚Í‚¸B
 @@@@WŒvƒV[ƒgi‚d4jWŒvƒV[ƒgi‚d4j{ƒf[ƒ^[ƒV[ƒgi‚i3jˆęT–Ú‚Ėƒ‹[ƒv
 @@@@WŒvƒV[ƒgi‚d4jWŒvƒV[ƒgi‚d4j{ƒf[ƒ^[ƒV[ƒgi‚i4jˆęŽí–Ú‚Ėƒ‹[ƒv
  @‚ą‚ę‚đÅIs‚Ü‚ÅŽĀs‚ĩ‚Ü‚ˇB

 Žč‡‚Ėl‚Ļ•û‚Í‚ ‚Á‚Ä‚Ü‚ˇ‚ŠH
 “¯‚ļ“š‚Ļ‚đ‚Ž‚é‚Ž‚é‚ĩ‚ď‘‚ĸ‚Ä‚é‹C‚āB
 ˆę‰ņ‘‚Ģo‚ĩ‚Ä“Ē‚𐎗‚ĖˆĶ–Ą‡‚ĸ‚āBBBB

i‚ā‚Ũ‚ļâj 2014/08/30(“y) 21:42


 ‚¨‚¨‚æ‚ģ—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 3”Ô‚Ė”—Ę‚đ‘Ģ‚ˇŠ‚Í
 WŒvƒV[ƒgiŒŠ‚‚Š‚Á‚Ŋ‚m‚nƒZƒ‹AŒŠ‚‚Š‚Á‚ŊŒŽ‚ĖƒZƒ‹j@WŒvƒV[ƒgiŒŠ‚‚Š‚Á‚Ŋ‚m‚nƒZƒ‹AŒŠ‚‚Š‚Á‚ŊŒŽ‚ĖƒZƒ‹jj{@ƒf[ƒ^[ƒV[ƒgi3`ÅIsA10j
 ‚Á‚ď‘‚ĸ‚Ä‚ ‚é•û‚ĒA1,2‚Ė‘‚Ģ•û‚ƍ‡‚¤‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē@‚Į‚¤‚Å‚ˇ‚ŠH

 ‚ģ‚ę‚Š‚į
   Cells(1, 1).Value = "HANA"
 ‚Ə‘‚ĸ‚Ŋ‚įAA1ƒZƒ‹‚ɁuHANAv‚Æ‚ĸ‚¤•ļŽš‚Ē“ü‚č‚Ü‚ˇ‚ˁH

 WŒvƒV[ƒgiŒŠ‚‚Š‚Á‚Ŋ‚m‚nƒZƒ‹AŒŠ‚‚Š‚Á‚ŊŒŽ‚ĖƒZƒ‹j@WŒvƒV[ƒgiŒŠ‚‚Š‚Á‚Ŋ‚m‚nƒZƒ‹AŒŠ‚‚Š‚Á‚ŊŒŽ‚ĖƒZƒ‹jj{@ƒf[ƒ^[ƒV[ƒgiÅIsA10j
 ‚ą‚ę‚ŁAWŒvƒV[ƒg‚Ė–Ú“I‚ĖƒZƒ‹‚ɉÁŽZ‚ĩ‚Ŋ’l‚Ē“ü‚é‚Ė‚Å
 „œ‘‚Ģo‚ˇ‚Æ‚Ģ‚ĖƒCƒ[ƒW
 ‚Ē‚Į‚¤‚ĸ‚Á‚ŊˆĶ–Ą‚ŏ‘‚ĸ‚Ä‚ ‚é‚Ė‚Š‚æ‚­‚í‚Š‚į‚Č‚ĸ‚Å‚ˇ‚ĒBBB

 ‚ą‚ę‚́A3‚ĖŒã‚ɉŊ‚Š•Ę‚Ė–Ŋ—ß•ļ‚đ“ü‚ę‚é‚Æ‚ĸ‚¤Ž–‚Å‚ˇ‚ŠH
 ‚ģ‚ę‚Æ‚āBBBH
 @
iHANAj 2014/08/30(“y) 22:24

 iHANAj—l

 ‚ˇ‚Ũ‚Ü‚š‚ņB–Ŋ—ß•ļ‚Í3.‚Ė‚Ũ‚Å‚ˇB

@@@@@@@@@

        œ‘‚Ģo‚ˇ‚Æ‚Ģ‚ĖƒCƒ[ƒW@‚́iƒ‹[ƒv‚ʼnÁŽZ‚ˇ‚é‚Æ‚ą‚ņ‚ČŠ´‚ļ‚Š‚ȁH‚ĖƒCƒ[ƒW‚Å‚ˇOOGG@‚Æ‚­‚ɃR[ƒh‚đ’Į‰Á‚ĩ‚Ü‚š‚ņBj
 @@@ @WŒvƒV[ƒgi‚d3jƒf[ƒ^[‚Ē‚ ‚鎞‚ĖŒvŽZ‚Č‚Ė‚Å‚`01‚̓JƒEƒ“ƒg‚ŗ‚ę‚Č‚ĸ‚Í‚¸B
  @@@@WŒvƒV[ƒgi‚d4jWŒvƒV[ƒgi‚d4j{ƒf[ƒ^[ƒV[ƒgi‚i3jˆęT–Ú‚Ėƒ‹[ƒv
  @@@@WŒvƒV[ƒgi‚d4jWŒvƒV[ƒgi‚d4j{ƒf[ƒ^[ƒV[ƒgi‚i4jˆęŽí–Ú‚Ėƒ‹[ƒv

 ‚ą‚ę‚ŃR[ƒhėŦ‚Ėė‹Æ‚É“ü‚ę‚é‚Ė‚Å‚ĩ‚傤‚ŠH

 >‚Ə‘‚ĸ‚Ŋ‚įAA1ƒZƒ‹‚ɁuHANAv‚Æ‚ĸ‚¤•ļŽš‚Ē“ü‚č‚Ü‚ˇ‚ˁH
  ‚Í‚ĸB
i‚ā‚Ũ‚ļâj 2014/08/30(“y) 22:53

 „‚ą‚ę‚ŃR[ƒhėŦ‚Ėė‹Æ‚É“ü‚ę‚é‚Ė‚Å‚ĩ‚傤‚ŠH
 ‚ŗ‚Á‚ģ‚­@ƒR[ƒhėŦė‹Æ‚É“ü‚č‚Ŋ‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē
 ƒp[ƒc‚˛‚Ƃō\‚ĸ‚Ü‚š‚ņ‚Ė‚ŁA‚ĸ‚­‚‚Š‚í‚Š‚č‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/08/30(“y) 23:15

 ‚ą‚ņ‚ČŠ´‚ļ‚Å‚ĩ‚傤‚ŠH
 2.‚ĖÅIs‚Í‚c‚Č‚Ė‚ŁA{4—ņ‚Ē•K—v‚Å‚ˇ‚æ‚Ë
 3.‚ą‚ę‚Å‚ˇ‚ƁAƒGƒ‰[o‚Ŋ‚ņ‚Å‚ˇ‚æB“ú•t‚Ė•”•Ē‚đ‰ÁH‚ĩ‚Ä‚Š‚į‚ĩ‚Č‚ĸ‚ƃ_ƒ‚Å‚ˇ‚æ‚ˁH

 @1.ÅIsƒf[ƒ^ƒV[ƒg‚Ė3s–Ú‚Š‚įÅIs‚܂ŏˆ—‚ĩ‚Ü‚ˇB
     For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
                         Ē‚ą‚ę‚Í1—ņ‚ĖÅIs‚ĖˆĶ–Ą‚Å‚ˇ‚æ‚Ë‚ģ‚¤‚ˇ‚é‚Æ‚Ų‚Š‚Ė—ņ‚đÅIs‚É‚ĩ‚Ŋ‚ĸŽž‚Í•Ę‚Ėˆ—‚đ“ü‚ę‚Č‚ĸ‚Æ‚ĸ‚¯‚Č‚ĸ‚Å‚ˇ‚ˁB

 @@ 2.‚m‚n=MATCH(‚e3`ÅIs,Sheet5!$A$1:$A$7,0)
 @@@@‚m‚n= Application.Match(ƒf[ƒ^ƒV[ƒg.Cells(i, "D"), WŒvƒV[ƒg.Range("AFA"), 0)

 @@ 3.ŒŽ=MATCH(MONTH(B3F),Sheet5!$A$2:$J$2,0)@@									
 @@@@ŒŽ=Application.Match(‚lonth(ƒf[ƒ^ƒV[ƒg.Cells(i, "‚`"), WŒvƒV[ƒg.Range("2F2"), 0)

 @@@4.‚m‚n‚ĒŒŠ‚‚Š‚Á‚Ŋ‚Æ‚Ģ
 @@@@If IsNumeric(‚m‚n) Then

 @@@5.ŒŽ‚ĒŒŠ‚‚Š‚Á‚Ŋ‚Æ‚Ģ
 @@@@If IsNumeric(ŒŽ) Then

 @@    6.WŒvƒV[ƒg‚ĖA1‚Å’˛‚ׂŊs‚Æ,2‚Å’˛‚ׂŊ—ņ‚ĖƒZƒ‹‚Ɂ@”—Ę‚đ‘Ģ‚ĩŽZ‚ĩ‚Ü‚ˇB
      @@ WŒvƒV[ƒgi‚m‚nAŒŽj@WŒvƒV[ƒgi‚m‚nAŒŽjj{@ƒf[ƒ^[ƒV[ƒgiiA"J"j
 @@@
       7.End If
@@@ 8.End If
  @9.‚ą‚ę‚đÅIs‚Ü‚ÅŽĀs‚ĩ‚Ü‚ˇB
       Next i
i‚ā‚Ũ‚ļâj 2014/08/31(“ú) 11:37

 „2.‚ĖÅIs‚Í‚c‚Č‚Ė‚ŁA{4—ņ‚Ē•K—v‚Å‚ˇ‚æ‚Ë
 ‚Į‚ą‚Ɂ@+4—ņ@‚Å‚ˇ‚ŠH
 Cells(Rows.Count, 1).End(xlUp).Row
                   ~ ‚ą‚ą‚ĒAu1—ņ–ځvuA—ņv‚Æ‚ĸ‚¤Ž–‚Å‚ˇ‚ĒB

 Ą‰ņAA—ņ‚āD—ņ‚ā“¯‚ļ‚ž‚¯î•ņ‚Ē“ü‚Á‚Ä‚ĸ‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚Ė‚Å
 ‚Į‚ŋ‚į‚ĖÅIs‚Ü‚Å‚Ėƒ‹[ƒv‚Å‚āA“¯‚ļ‰ņ”ˆ—‚Å‚Ģ‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē‚Į‚¤‚Å‚ĩ‚傤H

 „3.‚ą‚ę‚Å‚ˇ‚ƁAƒGƒ‰[o‚Ŋ‚ņ‚Å‚ˇ‚æB“ú•t‚Ė•”•Ē‚đ‰ÁH‚ĩ‚Ä‚Š‚į‚ĩ‚Č‚ĸ‚ƃ_ƒ‚Å‚ˇ‚æ‚ˁH
 ƒGƒ‰[ƒƒbƒZ[ƒW‚Í
 @@ƒRƒ“ƒpƒCƒ‹ƒGƒ‰[
 @@CŗŒķ•âF‹æØ‚č‹L†‚Ü‚Ŋ‚́j
 ‚Á‚ďo‚é‚ņ‚ž‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚Å‚ˇ‚Š‚įu)v‚đ‚ā‚¤ˆę“xŠm”F‚ĩ‚Ä‚Ũ‚ĉē‚ŗ‚ĸB

 Month(ƒZƒ‹) ‚ŁAƒZƒ‹‚ĖŒŽ‚Ē‹‚Ü‚č‚Ü‚ˇB
 ƒZƒ‹•”•Ē‚Ē@ƒf[ƒ^ƒV[ƒg.Cells(i, "‚`")@‚Å‚ĩ‚Ŋ‚į
 Month(ƒf[ƒ^ƒV[ƒg.Cells(i, "‚`")) ‚ƁAÅŒã‚Ɂu)v‚Ē“ņ‚•Ā‚Ô‚Í‚¸‚Å‚ˇ‚æ‚ˁH

 ­‚ĩƒR[ƒh‚Ė˜b‚É‚Č‚č‚Ü‚ˇ‚ĒARange‚Ė‘O‚É
 uƒf[ƒ^ƒV[ƒgvuWŒvƒV[ƒgv‚Ē‚ ‚č‚Ü‚ˇ‚Ē
 ‚ą‚ę‚Ē@•Ī”@‚Á‚ÄŽ–‚Í‚í‚Š‚č‚Ü‚ˇ‚ŠH

 ‚æ‚­‚í‚Š‚į‚Č‚¯‚ę‚΁A•Ī”‚đŽg‚¤‚Ė‚Å‚Í‚Č‚­@‚Ü‚¸‚Í 
 Sheets("ƒV[ƒg–ŧ")‚Ė—l‚ɏ‘‚ĸ‚Ä‚Ũ‚ĉē‚ŗ‚ĸB
 ‚ˇ‚ׂĂĖ Range ‚Æ‚Š Cells ‚Ė‘O‚É“KØ‚Č Sheets("››") ‚đ•t‚¯‚ĉē‚ŗ‚ĸB

 ‰‚ß‚Ė•û‚É‚ ‚é
     For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 ‚́A@Cells ‚Ė‘O‚Ɂu‚Į‚ą‚ĖƒV[ƒg‚Ėv‚Æ‚ĸ‚¤‚Ė‚Ē‘‚ĸ‚Ä‚Č‚ĸ—l‚Å‚ˇB
 @
iHANAj 2014/08/31(“ú) 12:08

‚ą‚¤‚Å‚ˇ‚ŠH
š‚ĒCŗ‰ĶŠ‚Å‚ˇ

1.ÅIsƒf[ƒ^ƒV[ƒg‚Ė3s–Ú‚Š‚įÅIs‚܂ŏˆ—‚ĩ‚Ü‚ˇB

     šFor i = 2 To ƒf[ƒ^ƒV[ƒg.Cells(Rows.Count, 1).End(xlUp).Row

 @@ 2.‚m‚n=MATCH(‚e3`ÅIs,Sheet5!$A$1:$A$7,0)
 @@@@‚m‚n= Application.Match(ƒf[ƒ^ƒV[ƒg.Cells(i, "D"), WŒvƒV[ƒg.Range("AFA"), 0)

 @@ 3.ŒŽ=MATCH(MONTH(B3F),Sheet5!$A$2:$J$2,0)@@									
 @@@@šŒŽ=Application.Match(‚lonth(ƒf[ƒ^ƒV[ƒg.Cells(i, "‚`")), WŒvƒV[ƒg.Range("2F2"), 0)

 @@@4.‚m‚n‚ĒŒŠ‚‚Š‚Á‚Ŋ‚Æ‚Ģ
 @@@@If IsNumeric(‚m‚n) Then
 @@@5.ŒŽ‚ĒŒŠ‚‚Š‚Á‚Ŋ‚Æ‚Ģ
 @@@@If IsNumeric(ŒŽ) Then

 @@    6.WŒvƒV[ƒg‚ĖA1‚Å’˛‚ׂŊs‚Æ,2‚Å’˛‚ׂŊ—ņ‚ĖƒZƒ‹‚Ɂ@”—Ę‚đ‘Ģ‚ĩŽZ‚ĩ‚Ü‚ˇB
      @@ WŒvƒV[ƒgi‚m‚nAŒŽj@WŒvƒV[ƒgi‚m‚nAŒŽjj{@ƒf[ƒ^[ƒV[ƒgiiA"J"j
 @@@
       7.End If
@@@ 8.End If
  @9.‚ą‚ę‚đÅIs‚Ü‚ÅŽĀs‚ĩ‚Ü‚ˇB
       Next i

„‚ą‚ę‚Ē@•Ī”@‚Á‚ÄŽ–‚Í‚í‚Š‚č‚Ü‚ˇ‚ŠH
‚Í‚ĸ•Ē‚Š‚č‚Ü‚ˇB

i‚ā‚Ũ‚ļâj 2014/08/31(“ú) 13:40


 ‚ŋ‚Č‚Ũ‚É
 „2.‚m‚n=MATCH(‚e3`ÅIs,Sheet5!$A$1:$A$7,0)
 ‚Á‚Ä‚Š‚ĸ‚Ä‚ ‚é‚Ė‚É
 „‚m‚n= Application.Match(ƒf[ƒ^ƒV[ƒg.Cells(i, "D"), WŒvƒV[ƒg.Range("AFA"), 0)
 ‚ž‚ƁAD—ņ‚Å‚ˇ‚ĒBBBH

 ‚ł́A•Ī”‚ĖéŒž‚đ‚ĩ‚Ŋ‚čE•Ī”‚ɃV[ƒg‚đƒZƒbƒg‚ĩ‚Ŋ‚č
 „WŒvƒV[ƒgi‚m‚nAŒŽj@WŒvƒV[ƒgi‚m‚nAŒŽjj{@ƒf[ƒ^[ƒV[ƒgiiA"J"j
 ‚ą‚ą‚ā‚ā‚¤­‚ĩ‘‚Ģ’ŧ‚ĩ‚Ŋ‚č‚ĩ‚Ä
 ƒR[ƒh‚É‚ĩ‚Ä‚Ũ‚Ä‚ā‚į‚Ļ‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/08/31(“ú) 13:50

‚ž‚ƁAD—ņ‚Å‚ˇ‚ĒBBBH
 ‚ ƒ°ƒ°(߄tßlll)!@‚ ‚č‚Ē‚Æ‚¤‚˛‚´‚ĸ‚Ü‚ˇB’ŧ‚ĩ‚Ü‚ĩ‚ŊB

 „‚ł́A•Ī”‚ĖéŒž‚đ‚ĩ‚Ŋ‚čE•Ī”‚ɃV[ƒg‚đƒZƒbƒg‚ĩ‚Ŋ‚č
 DIM@‚ĖŒã‚É‚­‚Á‚‚¯‚é‚ā‚Ė‚ĖŠî€‚Ä‚Č‚ņ‚Å‚ˇ‚ŠiHHj

 Dim WŒvƒV[ƒg As Worksheet@ƒV[ƒg‚ɃZƒbƒg‚ˇ‚é‚Ė‚Å
@‚ą‚ę‚Í•Ē‚Š‚č‚Ü‚ˇB

 ‚ ‚Æ‚Í‚Č‚ņ‚Æ‚Č‚­Žg‚Á‚Ä‚Ü‚ˇB
 ‚ą‚ŋ‚į‚Ė•\ŒŠ‚āAˆę”Ô–ŗ“ī‚Č‚Ė‚đ‘I‚Ņ‚Ü‚ĩ‚ŊB@(L߄tß`)
 http://www.d3.dion.ne.jp/~jkondou/excelvba/dim.htm

 ƒR[ƒh‚Í‚ą‚¤‚Å‚ˇ‚ŠH
 ‚ĩ‚Š‚ĩ‚Ü‚ŊƒGƒ‰[‚ŁuƒIƒuƒWƒF‚Ē•K—vv‚ƁB

 Sub test8()

    Dim NO As Long
    Dim ŒŽ As Long
    Dim i As Long
    Dim WŒvƒV[ƒg As Worksheet
    Dim ƒf[ƒ^[ƒV[ƒg As Worksheet

    Set WŒvƒV[ƒg = Worksheets("Sheet5")
    Set ƒf[ƒ^[ƒV[ƒg = Worksheets("Sheet6")

    For i = 2 To ƒf[ƒ^ƒV[ƒg.Cells(Rows.Count, 1).End(xlUp).Row

           NO = Application.Match(ƒf[ƒ^ƒV[ƒg.Cells(i, "E"), WŒvƒV[ƒg.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^ƒV[ƒg.Cells(i, "‚`")), WŒvƒV[ƒg.Range("2F2"), 0)

              If IsNumeric(NO) Then
                  If IsNumeric(ŒŽ) Then
                      WŒvƒV[ƒg.Cells(NO¤ŒŽ) = WŒvƒV[ƒg.Cells(NO¤ŒŽ) + ƒf[ƒ^[ƒV[ƒg.Cells(i¤10)
                  End If
                End If
  Next i

End Sub

 WŒvƒV[ƒg

 	[a]	[b]	[c]	[d]	[e]	[f]	[g]
 [2]	NO	¤•i–ŧ‘O		1 ŒŽ	2 ŒŽ	3 ŒŽ
 [3]	A01						
 [4]	A02				30 	90 	70 
 [5]	A03				30 		
 [6]	A04					60 	

 ƒf[ƒ^[ƒV[ƒg

 	[a]	[b]	[c]	[d]	[e]	[f]	[g]	     [h]	[i]	[j]	[k]
 [2]	NO	“ú•t	       TEL    ŒŽŒŸõ’l	NO	NOŒŸõ’l		’P‰ŋ	‚ƒ‚“	‚‚ƒ	‹āŠz
 [3]	140101 	2014”N1ŒŽ1“ú	8768 	11 	A02	4				10 	
 [4]	140101 	2014”N1ŒŽ2“ú	8768 	11 	A02	4				20 	
 [5]	140101 	2014”N1ŒŽ5“ú	8768 	11 	A03	5				30 	
 [6]	140101 	2014”N2ŒŽ5“ú	2913 	12 	A02	4				40 	
 [7]	140102 	2014”N2ŒŽ5“ú	2913 	12 	A02	4				50 	
 [8]	140102 	2014”N2ŒŽ6“ú	2913 	12 	A04	6				60 	
 [9]	140102 	2014”N3ŒŽ5“ú	2913 	13 	A02	4				70 	

i‚ā‚Ũ‚ļâj 2014/08/31(“ú) 19:44


 VBE‚ĖƒIƒvƒVƒ‡ƒ“‚Ė[•ŌW]ƒ^ƒu‚ĖƒR[ƒh‚ĖŨ’č‚Ė’†‚Ė‚Q”Ô–Ú‚É
 @•Ī”‚ĖéŒž‚đ‹­§‚ˇ‚é(R)
 ‚Ē‚ ‚č‚Ü‚ˇ‚ĒA‚ģ‚ą‚Ƀ`ƒFƒbƒN‚Ē“ü‚Á‚Ä‚ĸ‚Ü‚ˇ‚ŠH

 ‚Ü‚ŊAƒR[ƒh‚đ‘‚ĸ‚Ä‚ĸ‚é‚Æ‚ą‚ë‚Ėˆę”ԏã‚É
Option Explicit
 ‚Ėˆę•ļ‚Ē“ü‚Á‚Ä‚ĸ‚Ü‚ˇ‚ŠH

 ‚ģ‚ę‚į‚ĖŨ’č‚đ‚â‚Á‚Ä‚ā‚į‚Á‚Ŋ‚į
 ‚Č‚ēƒGƒ‰[‚É‚Č‚é‚Ė‚Š‚í‚Š‚é‚Ė‚ļ‚á‚Č‚ĸ‚Š‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚ŋ‚Č‚Ũ‚É
 „‚ĩ‚Š‚ĩ‚Ü‚ŊƒGƒ‰[‚ŁuƒIƒuƒWƒF‚Ē•K—vv‚ƁB
 ‚Į‚ą‚Ės‚ŏo‚Ŋ‚Ė‚Š‡‚í‚š‚ď‘‚ĸ‚Ä‚¨‚ĸ‚Ä‚ā‚į‚Ļ‚é‚Æ—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 „DIM@‚ĖŒã‚É‚­‚Á‚‚¯‚é‚ā‚Ė‚ĖŠî€‚Ä‚Č‚ņ‚Å‚ˇ‚ŠiHHj
 „‚ą‚ŋ‚į‚Ė•\ŒŠ‚āAˆę”Ô–ŗ“ī‚Č‚Ė‚đ‘I‚Ņ‚Ü‚ĩ‚ŊB@(L߄tß`)
 Å‰‚Í‚ģ‚ņ‚ČŠ´‚ļ‚Å—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚¤‚Ü‚­‚ĸ‚Š‚Č‚ĸŽž‚ɁA‚Į‚¤‚ĸ‚Á‚ŊŽž‚É‚ĸ‚‚ā‚ƈႤ‚Ė‚Š‚đŠm”F‚ĩ‚Ä‚ā‚į‚Ļ‚é‚Æ—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 Ą‰ņ‚́AuNOvuŒŽv‚Ė•Ī”‚͐”’l‚đ“ü‚ę‚é‚Ė‚Ł@‚Ü‚¸‚Í Long ‚Å‚â‚Á‚Ä‚Ũ‚ĉē‚ŗ‚ĸB
 uƒIƒuƒWƒFƒNƒg‚Ē•K—vv‚ĖƒGƒ‰[‚Ēo‚Č‚­‚Č‚Á‚Ŋ‚į
 Ą“x‚Í‚ģ‚Ė•”•Ē‚ĖƒGƒ‰[‚É‚Č‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚Ė‚ŁA‚ģ‚ĖŽž‚Ü‚ŊCŗ‚ĩ‚Ä‚ā‚į‚Á‚Ŋ‚į—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 @
iHANAj 2014/08/31(“ú) 23:14

 „Option Explicit
 „•Ī”‚ĖéŒž‚đ‹­§‚ˇ‚é(R)

 ‚đŨ’č‚ĩ‚Ü‚ĩ‚ŊB

 ‚ģ‚ę‚Å‚āu•Ī”‚Ē’č‹`‚ŗ‚ę‚Ä‚ĸ‚ĸ‚Ü‚š‚ņBv@
 ƒf[ƒ^ƒV[ƒg‚Ė‚Æ‚ą‚ë‚Ɂ@ƒ}[ƒNH‚ŗ‚ę‚Ä‚Ü‚ˇB

 „Ą‰ņ‚́AuNOvuŒŽv‚Ė•Ī”‚͐”’l‚đ“ü‚ę‚é‚Ė‚Ł@‚Ü‚¸‚Í Long ‚Å‚â‚Á‚Ä‚Ũ‚ĉē‚ŗ‚ĸB
 ŒģŨ@Dim ŒŽ As Long@Žg—p‚ĩ‚Ä‚Ü‚ˇ‚ĒAˆá‚¤‚Æ‚ĸ‚¤‚ą‚Æ‚Å‚ĩ‚傤‚ŠH

 ‚ģ‚ę‚É
 V‚ĩ‚ĸ‚v‚c‚ɐ؂č‘Ö‚Ļ‚Ä‚Š‚įBƒwƒ‹ƒv‚Ē•\ŽĻ‚ŗ‚ę‚Č‚­‚Č‚Á‚Ŋ‚ņ‚Å‚ˇiHHj
 2007‚ĖŽg—p‚ĩ‚Ŋ‚Æ‚Ģ@ƒGƒ‰[ƒƒbƒZ[ƒW•\ŽĻ‚ŗ‚ę‚é‚Ɓ@uƒwƒ‹ƒvvƒ{ƒ^ƒ“ƒNƒŠƒbƒNŒã‚É
 ‚ĸ‚ë‚ĸ‚ëƒqƒ“ƒg‚Ē•\ŽĻ‚ŗ‚ę‚Ŋ‚ņ‚Å‚ˇ‚ĒA
 Ą‚͐^‚Á”’Bu‚ v‚Ė•ļŽš‚āo‚Č‚ĸ‚Å‚ˇ‚æB
 Ũ’č•û–@“™•Ē‚Š‚č‚Ü‚ĩ‚Ŋ‚į‡‚í‚š‚Ä‹ŗ‚Ļ‚Ä‚­‚ž‚ŗ‚ĸ@(*Lƒm„DM)

@

i‚ā‚Ũ‚ļâj 2014/09/01(ŒŽ) 00:00


 „ƒf[ƒ^ƒV[ƒg‚Ė‚Æ‚ą‚ë‚Ɂ@ƒ}[ƒNH‚ŗ‚ę‚Ä‚Ü‚ˇB
 ‚ž‚Á‚Đ錞‚ĩ‚Ŋ‚Ė‚Í
 „Dim ƒf[ƒ^[ƒV[ƒg As Worksheet
 ‚Å‚ˇ‚Š‚įB
 uƒf[ƒ^ƒV[ƒgv‚́w•Ī”‚Ē’č‹`‚ŗ‚ę‚Ä‚ĸ‚ĸ‚Ü‚š‚ņBx‚Å‚ˇ‚æ‚ˁH

 ƒGƒNƒZƒ‹‚ĖŒž‚¤Ž–‚āA‚Ģ‚ŋ‚ņ‚Æ•ˇ‚ĸ‚Ä‚ ‚°‚Ä‚­‚ž‚ŗ‚ĸB

 „V‚ĩ‚ĸ‚v‚c‚ɐ؂č‘Ö‚Ļ‚Ä‚Š‚įB
 u‚v‚cv‚Á‚ĉŊ‚Å‚ˇ‚ŠH
 •’Ę‚É(F1‚Æ‚Š‚Å)ƒwƒ‹ƒv‚ÍŒŠ‚į‚ę‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/09/01(ŒŽ) 00:04

 >u‚v‚cv
  windows2010‚Å‚ˇ@OOGG

 „•’Ę‚É(F1‚Æ‚Š‚Å)ƒwƒ‹ƒv‚ÍŒŠ‚į‚ę‚Ü‚ˇ‚ŠH
 @‚ĸ‚ĸ‚ĻAŒŠ‚ę‚Ü‚š‚ņA‚Æ‚ĸ‚ĸ‚Ü‚ˇ‚Š‰Ŋ‚ā•\ŽĻ‚ŗ‚ę‚Ä‚ĸ‚Č‚ĸ^‚Á”’‚Čƒy[ƒW‚É‚Č‚Á‚Ä‚Ü‚ˇ

 „uƒf[ƒ^ƒV[ƒgv‚́w•Ī”‚Ē’č‹`‚ŗ‚ę‚Ä‚ĸ‚ĸ‚Ü‚š‚ņBx‚Å‚ˇ‚æ‚ˁH
 iHHj

 •Ī”éŒž‚ĩ‚ăV[ƒg‚đ‚r‚d‚s‚ˇ‚ę‚΁@ƒV[ƒg–ŧ‚Ė‘ã‚í‚č@•Ī”‚ĒŽg‚Ļ‚é‚Æ‚ĸ‚¤ˆĶ–Ą‚Å‚Í ‚Č‚ĸ‚Ė‚Å‚ˇ‚ŠH
 ‚ŗ‚į‚É‚ā‚¤ˆę“xuƒf[ƒ^[ƒV[ƒg\v
 ‚đ•Ī”éŒž‚ĩ‚Č‚¯‚ę‚΂Ȃį‚Č‚ĸ‚Ė‚Å‚ˇ‚¤‚ŠH

    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ƒV[ƒg\ As Worksheet

 @ Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ƒV[ƒg\ = Worksheets("Sheet6")

 NO = Application.Match(ƒf[ƒ^[ƒV[ƒg\.Cells(i, "E"), WŒv.Range("AFA"), 0)

 ‚Å‚ā
 ƒf[ƒ^[ƒV[ƒg@‚Æ‚ĸ‚¤Œž—t‚Ē‚ĸ‚¯‚Č‚ĸ‚Ė‚Š‚ÆŽv‚ĸB
 ƒ[ƒ}Žš‚É•ĪX‚ĩ‚Ŋ‚Æ‚ą‚ë

 Ą“x‚Í(NO¤ŒŽ)‚Ė•”•Ē‚́u•Ī”‚Ē’č‹`‚ŗ‚ę‚Ä‚ĸ‚Ü‚š‚ņBv‚Æ‚Å‚Ä‚ĸ‚Ü‚ˇB
 •Ī”éŒž‚đˆę’Ę‚č‚đŽŽ‚ĩ‚Ŋ‚ņ‚Å‚ˇ‚ĒA‚Į‚ę‚āƒ_ƒ‚Å‚ĩ‚ŊB
 ƒ[ƒ}Žš‚É•Ī‚Ļ‚Ä‚ā‘S‘Rƒ_ƒ‚Å‚ĩ‚ŊB

 Sub test8()

    Dim NO As String
    Dim ŒŽ As String
    Dim i As Long
    Dim WŒv As Worksheet
    Dim Date6 As Worksheet

    Set WŒv = Worksheets("Sheet5")
    Set Date6 = Worksheets("Sheet6")

    For i = 2 To Date6.Cells(Rows.Count, 1).End(xlUp).Row

           NO = Application.Match(Date6.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(Date6.Cells(i, "‚`")), WŒv.Range("2F2"), 0)

              If IsNumeric(NO) Then
                  If IsNumeric(ŒŽ) Then
                      WŒv.Cells(NO¤ŒŽ) = WŒv.Cells(NO¤ŒŽ) + Date6.Cells(i¤10)
                  End If
                End If
  Next i

 End Sub
i‚ā‚Ũ‚ļâj 2014/09/01(ŒŽ) 00:25

 „•Ī”éŒž‚ĩ‚ăV[ƒg‚đ‚r‚d‚s‚ˇ‚ę‚΁@ƒV[ƒg–ŧ‚Ė‘ã‚í‚č@•Ī”‚ĒŽg‚Ļ‚é‚Æ‚ĸ‚¤ˆĶ–Ą‚Å‚Í ‚Č‚ĸ‚Ė‚Å‚ˇ‚ŠH
 Žg‚Ļ‚Ü‚ˇB
 ƒf[ƒ^[ƒV[ƒg@ŠéŒž•Set ‚ĩ‚ŊŒž—t
 ƒf[ƒ^ƒV[ƒg@@ŠƒGƒ‰[‚É‚Č‚Á‚ŊŠ‚ĖŒž—t

 „Ą“x‚Í(NO¤ŒŽ)‚Ė•”•Ē‚́u•Ī”‚Ē’č‹`‚ŗ‚ę‚Ä‚ĸ‚Ü‚š‚ņBv‚Æ‚Å‚Ä‚ĸ‚Ü‚ˇ
 uNO¤ŒŽv‚Č‚ņ‚Ä•Ī”‚͐錞‚ĩ‚Ä‚Ü‚š‚ņ‚æ‚ˁH
 ƒGƒ‰[‚Ēo‚Ä”Ŋ“]‚ˇ‚鏊‚đ‚æ‚­Šm”F‚ĩ‚Ä‚­‚ž‚ŗ‚ĸB
 u¤v‚Ɓu,v‚͈á‚ĸ‚Ü‚ˇB

 „„•’Ę‚É(F1‚Æ‚Š‚Å)ƒwƒ‹ƒv‚ÍŒŠ‚į‚ę‚Ü‚ˇ‚ŠH
 „‚ĸ‚ĸ‚ĻAŒŠ‚ę‚Ü‚š‚ņA‚Æ‚ĸ‚ĸ‚Ü‚ˇ‚Š‰Ŋ‚ā•\ŽĻ‚ŗ‚ę‚Ä‚ĸ‚Č‚ĸ^‚Á”’‚Čƒy[ƒW‚É‚Č‚Á‚Ä‚Ü‚ˇ
 ƒwƒ‹ƒv‚đ•\ŽĻ‚ĩ‚ďã‚Ė•û‚Ė‰E‚Ė•û‚Ɂ@ŒŸõĨ@‚Ē‚ ‚é‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚ģ‚ĖuĨv‚đƒNƒŠƒbƒN‚ĩˆę”Ô‰ē‚ĖuŠJ”­ŽŌ—pƒŠƒtƒ@ƒŒƒ“ƒXv‚đƒNƒŠƒbƒN‚ĩ‚Ä‚Ũ‚ĉē‚ŗ‚ĸB
 @
iHANAj 2014/09/01(ŒŽ) 00:51

 ‚ˇ‚Ũ‚Ü‚š‚ņ(*Lƒm„DM)
 uCv‚Ä‚ĸ‚‚āŽŠ“Ž‚ɏCŗ‚ĩ‚Ä‚­‚ę‚é‚Í‚¸‚Č‚Ė‚ɁB
 ‘SŠp‚ŁA‚Ä“ü—ÍŽž‚͏Cŗ‚ĩ‚Ä‚­‚ę‚Č‚ĸ‚Ė‚Å‚ˇ‚ˁ@(L߄tß`)

 Ą“x‚Í‚Ü‚ŊAˆá‚¤‰ĶŠ‚ĒƒGƒ‰[‚É
 ƒXƒeƒbƒvƒCƒ“‚ĩ‚Ŋ‚Æ‚ą‚ë
 If IsNumeric(NO) Then
 ‚Å‚Đ‚Š‚Š‚Á‚Ŋ‚ņ‚Å‚ˇB

 ˆęŒÂˆęŒÂŒ‹‰Ę‚đŒŠ‚Ŋ‚Æ‚ą‚ë
 WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
 ‚Ė@uiv‚ĒãŽč‚­Œ‹‰Ę‚đE‚ĸ‚Ļ‚Ä‚ĸ‚Č‚ĸ‚ĖŠ´‚ļ‚Å‚ˇB
 i=3 ‚ž‚Á‚Ŋ‚č i=Œ`‚Ēˆę’v‚ĩ‚Č‚Š‚Á‚Ŋ‚č

 ƒGƒ‰[13‚É‚Č‚Á‚Ŋ‚č‚ĩ‚Ü‚ˇB

 >‚ģ‚ĖuĨv‚đƒNƒŠƒbƒN‚ĩˆę”Ô‰ē‚ĖuŠJ”­ŽŌ—pƒŠƒtƒ@ƒŒƒ“ƒXv‚đƒNƒŠƒbƒN‚ĩ‚Ä‚Ũ‚ĉē‚ŗ‚ĸB

 ‚ā‚Æ‚ā‚ƃ`ƒFƒbƒN‚ŗ‚ę‚Ä‚ĸ‚Ü‚ˇAƒGƒNƒZƒ‹‚Ėƒwƒ‹ƒv‚ā‚ ‚Á‚Ä
 ƒNƒŠƒbƒN@Ë@ƒGƒ‰[13ŒŸõ@¨@google@‚ĖŒŸõ‰æ–Ę‚ÉØ‚č‘Ö‚Ļ‚Ŋ‚ņ‚Å‚ˇ‚æB

 ‚ā‚ĩ‚Š‚ˇ‚é‚Æ
 ƒGƒ‰[‰ĶŠ‚Í‹ŗ‚Ļ‚Ä‚â‚邯‚ĮA“ā—e‚͏ŸŽč‚É’˛‚ׂë‚ÄŽ–‚Č‚ņ‚ž‚낤‚ŠiHHj
 ‚ģ‚¤‚ĸ‚¤‚o‚b‚Š‚ā‚ĩ‚ę‚Ü‚š‚ņB

 Sub test8()

    Dim NO As String
    Dim ŒŽ As String
    Dim i As Long
    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ As Worksheet

    Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ = Worksheets("Sheet6")

    For i = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row

           NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "‚`")), WŒv.Range("2F2"), 0)

              If IsNumeric(NO) Then
                  If IsNumeric(ŒŽ) Then
                      WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                  End If
              End If
    Next i

 End Sub

i‚ā‚Ũ‚ļâj 2014/09/01(ŒŽ) 10:02


 ‰Ą‚Š‚įŽ¸—į‚ĩ‚Ü‚ˇB
 ƒGƒ‰[13‚́uiv‚ŏo‚Ä‚ĸ‚éƒGƒ‰[‚Å‚Í‚Č‚ĸ‚Å‚ˇB
 uŒ^‚Ēˆę’v‚ĩ‚Ü‚š‚ņv‚Å‚ˇ‚æ‚ˁH

 ‚ģ‚ę‚ÍNO=``‚ŠŒŽ=``‚ŏo‚Ä‚ĸ‚éƒGƒ‰[‚Å‚ˇB
 ‚Ü‚¸‚ģ‚Ė“ņ‚‚ĖŒ^‚ÍStringŒ^‚Å‚ˇ‚æ‚ˁH

 ‚ģ‚ą‚ÉMatch‚ÅŒŸõ‚ĩ‚Ŋ’l‚đ“ü‚ę‚悤‚Æ‚ĩ‚Ä‚ĸ‚Ü‚ˇ‚ĒA’l‚ĒŒŠ‚‚Š‚į‚Č‚Š‚Á‚Ŋę‡uFalsev‚Ē•Ô‚č‚Ü‚ˇB
 ‚ģ‚¤‚ˇ‚é‚ÆFalse‚ÍBooleanŒ^‚Å‚ˇ‚Ė‚ŁAStringŒ^‚ÉBooleanŒ^‚đ“ü‚ę‚悤‚Æ‚ĩ‚āuŒ^‚Ēˆę’v‚ĩ‚Ü‚š‚ņv
 ‚Æ‚Č‚č‚Ü‚ˇB

 ‚š‚Á‚Š‚­IsNumericŠÖ”‚đŽg‚Á‚Ä‚ĸ‚é‚Ė‚Å‚ˇ‚Š‚įA“ņ‚‚Ė•Ī”‚đ‚Č‚ņ‚Å‚ā“ü‚éVariantŒ^‚É•ĪX‚ĩ‚āA
 ’†g‚Å•]‰ŋ‚ˇ‚ę‚΂æ‚ĸ‚Ė‚Å‚Í‚Č‚ĸ‚Å‚ĩ‚傤‚ŠH

 HANA‚ŗ‚ņ‚ĒƒR[ƒh‚ĖŒfÚ‚ĩ‚Ä‚ĸ‚Č‚ĸ•ûj‚Ė‚悤‚Č‚Ė‚ŁAŽ„‚āíœ‚ĩ‚Ü‚ĩ‚Ŋi11:45j

 “r’†ƒR[ƒh‚ÉDebug.Print‚đ‹˛‚ņ‚Å•Ī”‚Ė’l‚đŠm”F‚ˇ‚é‚ą‚Ƃ́A‚Æ‚Ä‚ā‘åØ‚ȏˆ—‚Å‚ˇBi“Á‚ɏ‰‚߂čė‚Á‚ŊƒR[ƒh‚Č‚įj
 F8‚𐄂ĩi‚ß‚Č‚Ē‚įA‚Į‚Ė’iŠK‚ŃGƒ‰[‚Ēo‚Ä‚ĸ‚é‚ŠƒCƒ~ƒfƒBƒGƒCƒgƒEƒBƒ“ƒhƒE‚ÅŠm”F‚ĩ‚Ä‚Ũ‚Ä‚­‚ž‚ŗ‚ĸB

 ƒGƒNƒZƒ‹‚Ėƒo[ƒWƒ‡ƒ“•Ē‚Š‚č‚Ü‚š‚ņ‚ĒA2013‚ž‚Æ•W€‚ŃCƒ“ƒXƒg[ƒ‹‚ŗ‚ę‚Č‚ĸ‚Ũ‚Ŋ‚ĸ‚Å‚ˇ‚ˁB
http://www.relief.jp/itnote/archives/018464.php
iˆî—tj 2014/09/01(ŒŽ) 11:41

‰Ą‚Š‚į‚ˇ‚ĸ‚Ü‚š‚ņ
ŒŽ‚ĖŒvŽZ‚Å‚ˇ‚ĒA‚Å‚Í‚Č‚­B—ņ‚Å‚Í‚ ‚č‚Ü‚š‚ņ‚Š
‚ģ‚ę‚Æmonth‚Å‚ž‚ˇ‚Æ1‚Č‚Į‚Ē‚Å‚Ü‚ˇ‚ĒAWŒv‚Å‚Í‚PŒŽ‚Č‚Ė‚ňę’v‚ĩ‚Ü‚š‚ņB
‚ą‚ę‚đ‰đÁ‚ˇ‚é‚ɂ͈ęˆÄ‚Å‚ˇ‚Ē

MATCH + CONCATENATE + MONTH + B—ņ + "ŒŽ" + 2s–Ú

‚ģ‚ę‚Æ‚ā‚ĩƒGƒ‰[‚Ēo‚Ŋ‚į‚ģ‚ĖƒGƒ‰[•ļ‚Ė‚Ü‚Ügoogle‚Č‚Į‚ÅŒŸõ‚ˇ‚é‚Æ“š‚Ļ‚Ē‚ ‚Á‚Ŋ‚č‚ĩ‚Ü‚ˇB

Å‰‚Š‚įVBA‚Å‚â‚é‚æ‚č‚āĄ‰ņ‚ĖMATCH‚Ėę‡ˆę“xƒ}ƒNƒ‚Ė‹L˜^‚Č‚Į‚Å‚Å‚Ģ‚é‚Ė‚ŠAŠm‚Š‚ß‚Č‚Ē‚į‚â‚é‚Æ‚ĸ‚¤‚ą‚Æ‚ā‚Å‚Ģ‚Ü‚ˇB

ˆę“x‚É‚ˇ‚ׂĂđl‚Ļ‚é‚Ė‚Å‚Í‚Č‚­AƒfƒoƒbƒO‹@”\‚âƒuƒŒ[ƒNƒ|ƒCƒ“ƒgAƒRƒƒ“ƒg‚đ‘‚ĸ‚Ŋ‚čAƒRƒƒ“ƒg‚É‚ĩ‚Ä‚Ũ‚Ŋ‚č‚ĩ‚Ä‚ĩ‚Ä‚­‚ž‚ŗ‚ĸB

iƒfƒCƒgj 2014/09/01(ŒŽ) 12:03


 iƒfƒCƒgj —l

 ‚ ‚č‚Ē‚Æ‚¤‚˛‚´‚ĸ‚Ü‚ˇ@(LĄ✪ƒÖ✪ĄM)
 ‚ ‚ę‚ą‚ę‚đ’ŧ‚ĩ‚Ŋ‚į‰Ŋ‚â‚į‚ĸ‚‚ĖŠÔ‚É‚Š•Ī‚í‚Á‚Ä‚Ü‚ĩ‚Ŋ@(*Lƒm„DM)

 >ˆę“x‚É‚ˇ‚ׂĂđl‚Ļ‚é‚Ė‚Å‚Í‚Č‚­
 ‚¸‚Á‚Æ’ˇ‚ĸŽ–“¯‚ļƒŒƒbƒXƒ“‚đ‚ĩ‚Ä‚ĸ‚Ü‚ˇB
 ‚Č‚É‚đ‚‚­‚č‚Ŋ‚ĸ‚Š@¨@‚Į‚Ė—l‚ÉŒ‹‰Ę‚đ“ž‚į‚ę‚é‚Š@¨@ƒR[ƒhėŦ‚ĖŽč‡
 ¨@ƒR[ƒhėŦ@¨@ŒģŨ‚Í•Ī”‚ĖŨ’č•û–@@
 ‚ģ‚ĩ‚襂͂悤‚â‚­ƒGƒ‰[‚É‚Č‚é——R‚đ•×‹­‚ĩ‚Ä‚ĸ‚é‚Æ‚ą‚ë‚Å‚ˇ@(L߄tß`)
 “š‚Ė‚č‚Í‚Ü‚ž‚Ü‚žƒiƒCƒKƒC‚ÆŽv‚ĸ‚Ü‚ˇB

 iˆî—tj—l

 ‚ ‚č‚Ē‚Æ‚¤‚˛‚´‚ĸ‚Ü‚ˇ@E:*(VEĒEVl)*:E
 VariantŒ^@Œ‹\‚ĸ‚ĸ‚ņ‚Å‚ˇ‚ËŠo‚Ļ‚Ä‚¨‚Ģ‚Ü‚ˇB
 Long‚Ē‚æ‚­ŒŠ‚Š‚¯‚é‚Ė‚ŁA‚ą‚Á‚ŋ‚Ė•û‚Ē‚ĸ‚ĸ‚Ė‚Š‚ÆŽv‚ĸ‚Ü‚ĩ‚ŊB
 •Ī”‚Ėā–ž‚̓TƒCƒg‚É‚æ‚Á‚Ä‘S‘Rˆá‚ĸ‚Ü‚ˇ‚ĩ‚ˁB

 ‚ą‚ą‚Ē‚ˇ‚˛‚­‚í‚Š‚č‚₡‚Š‚Á‚Ŋ‚Å‚ˇB
http://www.geocities.jp/cbc_vbnet/kisuhen/hensuu.html

 > “r’†ƒR[ƒh‚ÉDebug.Print‚đ‹˛‚ņ‚Å•Ī”‚Ė’l
 ‚ą‚ę‚Í‚æ‚­‚í‚Š‚č‚Ü‚š‚ņ‚ĒA
 ƒlƒbƒg‚ŁAƒCƒ~ƒfƒBƒGƒCƒg‚ÆŒŸõ‚ĩ‚Ŋ‚Æ‚ą‚ëA
 test8@¨@enter@‰Ÿ‚ˇ‚Ɓ@ŽĀs‚ŗ‚ę‚Ä‚é‚Š‚Į‚¤‚Š‚đŠm”F‚Å‚Ģ‚é‚ƁBBB

 ‚ģ‚ę‚Å‚ĩ‚Ŋ‚įBƒ{ƒ^ƒ“ė‚Á‚ă}ƒNƒ‚đ“o˜^‚ĩ‚ÄŽg—p‚ĩ‚Ä‚Ü‚ˇB
 ‚ģ‚Ė“s“x@ÎßÁØÎßÁ؁@‚ƁB@’ŒbŽMP)q

 „ƒGƒNƒZƒ‹‚Ėƒo[ƒWƒ‡ƒ“•Ē‚Š‚č‚Ü‚š‚ņ‚ĒA2013‚ž‚Æ•W€‚ŃCƒ“ƒXƒg[ƒ‹‚ŗ‚ę‚Č‚ĸ‚Ũ‚Ŋ‚ĸ‚Å‚ˇ‚ˁB
 ƒGƒNƒZƒ‹2010‚Å‚ˇ‚ģ‚ę‚Å‚āAƒCƒ“ƒXƒg[ƒ‹‚ŗ‚ę‚Ä‚ĸ‚Č‚ĸ‚Ė‚Å‚ĩ‚傤‚ˁH
 ‚Č‚ĸ‚ā‚Ė‚đ–]‚ņ‚Å‚āŽd•û‚Č‚ĸ‚Ė‚ŁA‚ ‚é‚ā‚Ė‚ÅŠˆ—p‚ĩ‚Ü‚ˇB
 ƒlƒbƒg‚Æ‚ĸ‚¤–c‘å‚ČŽĢ“T‚đ@(߄tßlll)!

i‚ā‚Ũ‚ļâj 2014/09/01(ŒŽ) 13:59


 ŠF—l‚Ė‚˛‹Ļ—͂ł悤‚â‚­‚ą‚ĖƒR[ƒh‚ŁA—~‚ĩ‚ĸŒ‹‰Ę‚đ“ž‚é‚ą‚Æ‚Ē‚Å‚Ģ‚Ü‚ĩ‚ŊB
 ƒzƒ“ƒg@‚ ‚č‚Ē‚Æ‚¤‚˛‚´‚ĸ‚Ü‚ˇB

 ‚ĩ‚Š‚ĩiHANAj—l
@
 ‰Ŋ“x‚āƒ}ƒNƒ‚đŽĀs‚ĩ‚Ŋ‚Æ‚ą‚ëƒf[ƒ^[‚đ‰i‰“‚ɍ‡Œv‚ŗ‚ę‚Ä‚ĩ‚Ü‚¤‚Ė‚Å‚ˇ‚ˁ@ƒ°ƒ°(߄tßlll)!
 [a]	[b]	@@@[f]	[g]	[e]		
 NO	¤•i–ŧ‘O			1 ŒŽ	2 ŒŽ	3 ŒŽ
 A01						
 A02			@@@@	240 	720 	560 
 A03			@@@@	240 		
 A04					@@@@480 	

 š‚ą‚ĖŒ‹‰Ę‚đˆÛŽ‚ˇ‚é‚ɂ͍‡Œv‚ˇ‚é‘O‚Ɂ@’l‚đƒNƒŠƒA‚ĩ‚Č‚ĸ‚Æ‚ĸ‚¯‚Č‚ĸ‚Å‚ˇ‚ˁ@(*Lƒm„DM)
 ƒrƒbƒNƒŠ‚ĩ‚Ü‚ĩ‚ŊB
 ‚Å‚āA‚ģ‚¤‚ĸ‚¤ƒR[ƒh‚đė‚Á‚Ŋ‚Ė‚ŁA‚ģ‚Ė’Ę‚č‚É“Ž‚ĸ‚Ŋ‚ž‚¯‚Å‚ˇ‚ā‚ņ‚ˁB

 ‚ą‚ę‚ňę’i—Ž‚‚ĸ‚Ŋ‚Ė‚Å‚ĩ‚傤‚ŠH

 [a]	[b]	[f]	[g]	[e]	[f]	[g]
 NO	¤•i–ŧ‘O			1 ŒŽ	2 ŒŽ	3 ŒŽ
 A01						
 A02				30 	90 	70 
 A03				30 		
 A04					60 	

 Sub test8()

    Dim NO As Variant
    Dim ŒŽ As Variant
    Dim i As Long
    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ As Worksheet

    Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ = Worksheets("Sheet6")

    For i = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row

           NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)

              If IsNumeric(NO) Then
                  If IsNumeric(ŒŽ) Then
                      WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                  End If
              End If
    Next i

 End Sub
i‚ā‚Ũ‚ļâj 2014/09/01(ŒŽ) 14:16

 Œ‹‹ĮƒGƒ‰[‚ĖŒ´ˆö‚Í•Ē‚Š‚Á‚Ŋ‚Ė‚Å‚ĩ‚傤‚ŠH

 „‡Œv‚ˇ‚é‘O‚Ɂ@’l‚đƒNƒŠƒA‚ĩ‚Č‚ĸ‚Æ‚ĸ‚¯‚Č‚ĸ‚Å‚ˇ‚ˁ@(*Lƒm„DM)
 ‚ģ‚¤‚Å‚ˇ‚ˁB
 ’Į‰Á‚ĩ‚Ä‚Ũ‚ĉē‚ŗ‚ĸB
 E3ƒZƒ‹‚Š‚įA(A—ņ‚ĖÅIs,2s–Ú‚ĖÅI—ņ)‚ĖƒZƒ‹@‚Ü‚Å‚Ė”͈͂łˇ‚æ‚ˁH

 „‚ģ‚Ė“s“x@ÎßÁØÎßÁ؁@‚ƁB
 ‚ą‚ę‚ž‚ƁAƒGƒ‰[‚Ēo‚Ŋ’iŠK‚Å‚ĩ‚ŠŽ~‚Ü‚į‚Č‚ĸ‚Ė‚Å
 [F8]‚ňęs‚¸‚ÂŽĀs‚ĩ‚Č‚Ē‚į@Šm‚Š‚ß‚Ä‚Ũ‚Ä‚ā‚į‚¤‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 @
iHANAj 2014/09/01(ŒŽ) 15:18

 „Œ‹‹ĮƒGƒ‰[‚ĖŒ´ˆö‚Í•Ē‚Š‚Á‚Ŋ‚Ė‚Å‚ĩ‚傤‚ŠH
 „‚ģ‚Ė“s“x@ÎßÁØÎßÁ؁@‚ƁB
 „‚ą‚ę‚ž‚ƁAƒGƒ‰[‚Ēo‚Ŋ’iŠK‚Å‚ĩ‚ŠŽ~‚Ü‚į‚Č‚ĸ‚Ė‚Å

 ‚Í‚ĸAÅŒã‚į‚Ö‚ņ‚Í‚ĖƒGƒ‰[‚ÍŽ„‚Ė‚š‚ĸ‚ž‚ÆŽv‚ĸ‚Ü‚ˇB

 ÎßÁ؂܂­‚Á‚Ŋ‚Ė‚̓Gƒ‰[‚Ē”­ļ‚ĩ‚Č‚­‚Č‚Á‚ŊŽž‚Å‚ˇB

 ƒGƒ‰[‚ĖŽž‚ŁAƒ‹[ƒv‚ÅŠm”F‚ĩ‚Ŋ‚įAi=9 ‚ĖŽž‚Ė‚ŁAEND@IF@‚É‚Č‚Á‚Ŋ‚ą‚ë‚Å‚ĩ‚ŊB

 ƒf[ƒ^[ƒV[ƒg
 ƒ‹[ƒv‚ĖŠÔ‚É‹ķ—“‚Ē‚ ‚Á‚Ŋ‚š‚ĸ‚ł͂ƁBBB

 For=3to9

 ‚ĖŽž‚Í‚ĸ‚ĸ‚Ė‚Å‚ˇ‚ĒA

 ÅIs‚É‚Č‚č‚Ü‚ˇ‚ƁB

 15–Ú‚Š‚įFXƒƒ‚‚Á‚Ä‚Ŋ‚Ė‚ŁA‚ģ‚Ė‚š‚ĸ‚Š‚ā‚Å‚ˇB
 ‚ģ‚ę‚į‚đœ‚ĸ‚Ŋ‚į
 Dim NO As Long
 Dim ŒŽ As Long

 ‚Å‚ā‘S‘R–â‘č‚ ‚č‚Ü‚š‚ņ‚Å‚ĩ‚ŊB

 ‚ž‚ĸ‚Ŋ‚ĸƒRƒc‚Ē’Í‚ņ‚ž‚Ė‚ŁA’lƒNƒŠƒA‚Í–â‘č‚Č‚ĸ‚Å‚ˇ‚ĒA
 TEL‚Ė’Į‰ÁđŒ‚đƒ`ƒƒƒŒƒ“ƒW‚ĩ‚Ä‚Ũ‚悤‚ÆŽv‚ĸ‚Ü‚ˇ@(LĄ✪ƒÖ✪ĄM)

 ­X‚¨‘Ō‚ŋ‚­‚ž‚ŗ‚ĸB
 ‚ģ‚Ė‘O‚ɃtƒH[ƒ€ƒy[ƒW‚āė‚į‚Č‚Ģ‚á`@(*Lƒm„DM)
 ‚ą‚ą‚Ė‚悤‚É‹ŗ‚Ļ‚Ä‚­‚ę‚é‚Æ‚ą‚ë‚Č‚ĸ‚Š‚ĩ‚įB
i‚ā‚Ũ‚ļâj 2014/09/01(ŒŽ) 16:28

ƒtƒH[ƒ€‚Íexcel‚ōėŦ‚Å‚ˇ‚ŠH‚ģ‚ę‚Æ‚ā•Ę‚Ė‰Ŋ‚Š‚Å‚ˇ‚Š
excel‚Å‚ĩ‚Ŋ‚į‚ą‚ĖƒTƒCƒg‚Å‘åä•v‚Å‚ˇB
iƒfƒCƒgj 2014/09/01(ŒŽ) 16:47

 „„Œ‹‹ĮƒGƒ‰[‚ĖŒ´ˆö‚Í•Ē‚Š‚Á‚Ŋ‚Ė‚Å‚ĩ‚傤‚ŠH
 „Long‚Ē‚æ‚­ŒŠ‚Š‚¯‚é‚Ė‚ŁA‚ą‚Á‚ŋ‚Ė•û‚Ē‚ĸ‚ĸ‚Ė‚Š‚ÆŽv‚ĸ‚Ü‚ĩ‚ŊB
 „‚Í‚ĸAÅŒã‚į‚Ö‚ņ‚Í‚ĖƒGƒ‰[‚ÍŽ„‚Ė‚š‚ĸ‚ž‚ÆŽv‚ĸ‚Ü‚ˇB
 ‘S‘R•Ē‚Š‚Á‚Ä‚Č‚ĸB

 “¯‚ļVBA‘g‚ŪŽŌ‚Æ‚ĩ‚āAĄ‚Ü‚Å‚Ė—Ŧ‚ę‚đŒŠ‚Ä‚ĸ‚Ü‚ĩ‚Ŋ‚ĒA”\—͂͐l‚ģ‚ę‚ŧ‚ęŽd•û‚Č‚ĸ‚Æ‚ą‚ë‚Í
 ‚ ‚č‚Ü‚ˇ‚Ė‚ŁAƒR[ƒh‚đ‘g‚ņ‚Å‹C•t‚Š‚Č‚ĸ‚ą‚Ƃɂ‚ĸ‚Ä‚ÍŒž‹y‚ĩ‚Ü‚š‚ņB
 ‚ĩ‚Š‚ĩAŠų’m‚Ė–â‘č‚ɑ΂ˇ‚éCŠw‘Ô“x‚ĒÅˆĢ‚Å‚ˇB
 ƒGƒ‰[‚Ė–{“–‚ĖŒ´ˆö‚đ•Ē‚Š‚į‚Č‚ĸ‚܂܃R[ƒfƒBƒ“ƒO‚ĩ‚āAˆę”ԍĸ‚é‚Ė‚ÍŽg‚í‚ŗ‚ę‚鑤‚Å‚ˇB
 —á‚ĻŽŠ•Ē‚ĒŽg‚¤‚É‚ĩ‚ëAãŽiˆŊ‚ĸ‚Í“¯—ģ‚É’ņo‚ˇ‚鎑—ŋ‚Æ‚ĩ‚ĐM—ŠĢ‚Ē’Ⴁ‚Ŧ‚Ü‚ˇB
 Ĩ”ņ‚ģ‚ą‚đ‰ü‚ß‚Ä‚­‚ž‚ŗ‚ĸB

 –{‘č‚É–ß‚č‚Ü‚ˇB
 ‚ą‚ę‚ÍŒvŽZŒ‹‰Ę‚đ“s“x“ü—Í‚ĩ‚Ä‚ĸ‚­ƒ}ƒNƒ‚Å‚ˇ‚Ė‚ŁAƒGƒ‰[‚Å“r’†‚ŏˆ—‚ĒŽ~‚Ü‚é‚Æ‚Į‚ą‚܂ŏˆ—
 ‚ŗ‚ę‚Ä‚ĸ‚é‚Ė‚ŠAƒ†[ƒU[‚Ē•Ē‚Š‚į‚Č‚­‚Č‚č‚Ü‚ˇB
 LongŒ^ˆę–{‚Å‚ĸ‚­‚Ė‚Č‚įA‚ģ‚ę‚Č‚č‚ĖƒR[ƒfƒBƒ“ƒO‚Ē•K—v‚Å‚ˇB

 On Errorƒ‹[ƒ`ƒ“‚ÅNO‚ÆŒŽ‚Ė•Ī”‚đŠ‡‚Á‚āAErrƒIƒuƒWƒFƒNƒg‚ŏˆ—‚đ•ĒŠō‚ŗ‚š‚é‚Š
 æ‚Ų‚Įā–ž‚ĩ‚ŊVariantŒ^•Ī”‚É‚ĩ‚āAIsNumeric•Ī”‚Å•ĒŠō‚ŗ‚š‚é‚Š

 ‚ą‚ę‚̓R[ƒh‚đ‘g‚ŪŽŌ‚Æ‚ĩ‚čŒáŒĀ‚Ėƒ}ƒi[‚ž‚ƁiŽ„‚́jŽv‚ĸ‚Ü‚ˇB
 Debug.Print‚ĖŽg‚ĸ•û‚āÚ‚š‚Ä‚ ‚č‚Ü‚ˇ‚Ė‚ŁAŠm”F‚ĩ‚Ä‚­‚ž‚ŗ‚ĸB
http://www.excellenceweb.net/vba/debug/debug_print.html

 ˆČ‰ēVariantŒ^‚ÆIsNumericŠÖ”‚ŏˆ—‚ĩ‚Ŋę‡‚Ė—á‚Å‚ˇB
    Sub test8()
        Dim NO As Variant, NOŒŸõ’l As String
        Dim ŒŽ As Variant, ŒŽŒŸõ’l As String
        Dim i As Long
        Dim msg As String
        Dim WŒv As Worksheet
        Dim ƒf[ƒ^[ As Worksheet
        Dim WSF As WorksheetFunction

        '//•Ī”‚ĖŨ’č
        Set WSF = Application.WorksheetFunction
        Set WŒv = Worksheets("Sheet5")
        Set ƒf[ƒ^[ = Worksheets("Sheet6")

        '//ƒf[ƒ^ƒV[ƒgA—ņ‚Ė3s–Ú‚Š‚įA—ņ‚ĖÅIs‚܂Ń‹[ƒvˆ—
        With ƒf[ƒ^[
            For i = 3 To .Cells(.Rows.Count, "A").End(xlUp).Row
                Debug.Print "///" & i & "s–Ú‚Ėˆ—///"

                '//ŒŸõ‚ˇ‚é’l‚đŽæ“ž
                NOŒŸõ’l = .Cells(i, "E").Value
                ŒŽŒŸõ’l = Month(.Cells(i, "A").Value)
                Debug.Print NOŒŸõ’l
                Debug.Print ŒŽŒŸõ’l

                '//ŒŸõŒ‹‰Ę‚đŽæ“ž
                NO = WSF.Match(NOŒŸõ’l, WŒv.Range("AFA"), 0)
                ŒŽ = WSF.Match(ŒŽŒŸõ’l, WŒv.Range("2F2"), 0)
                Debug.Print NO
                Debug.Print ŒŽ

                '//‚Į‚ŋ‚į‚ā”’l‚Č‚į‚΁AWŒv‚ɏo—Í
                If IsNumeric(NO) And IsNumeric(ŒŽ) Then
                    WŒv.Cells(NO, ŒŽ).Value = WŒv.Cells(NO, ŒŽ) + .Cells(i, "J")
                Else
                    msg = msg & i & "s–Ú‚Ėu" & NOŒŸõ’l & "vu " & ŒŽŒŸõ’l & "v" & vbNewLine
                End If
            Next i
        End With
        If Len(msg) > 0 Then MsgBox msg & "‚Ėˆ—‚Ēo—ˆ‚Ü‚š‚ņ‚Å‚ĩ‚ŊB"
    End Sub

 HANA‚ŗ‚ņ‚˛‚ß‚ņ‚Č‚ŗ‚ĸBBB

iˆî—tj 2014/09/01(ŒŽ) 16:54


 iƒfƒCƒgj —l

 ƒXƒ‹[‚ĩ‚Ä‚­‚ž‚ŗ‚ĸ@OOGG
 ƒz[ƒ€ƒy[ƒW‚ĖŠÔˆá‚ĸ‚Å‚ˇB

 iˆî—tj —l
 ‚˛Žw“E‚ƁAhį…‚Ė‚¨Œž—t‚đ‘Pˆ‚ĩ‚Ü‚ĩ‚ŊB
 Debug.Print‚ĖŒ‚Í‚ ‚č‚Ē‚Æ‚¤‚˛‚´‚ĸ‚Ü‚ˇB
 ‚ä‚Á‚­‚č‚ƕ׋­‚ŗ‚š‚Ä‚ĸ‚Ŋ‚ž‚Ģ‚Ü‚ˇB

i‚ā‚Ũ‚ļâj 2014/09/01(ŒŽ) 19:45


 ˆî—t‚ŗ‚ņB
 „„Œ‹‹ĮƒGƒ‰[‚ĖŒ´ˆö‚Í•Ē‚Š‚Á‚Ŋ‚Ė‚Å‚ĩ‚傤‚ŠH
 ‚ą‚ę‚́A‚ā‚Ũ‚ļâ‚ŗ‚ņ‚É‚ ‚Ä‚ŊŒž—t‚Å‚ā‚ ‚č‚Ü‚ˇ‚Ē
 ˆî—t‚ŗ‚ņ‚É‚ ‚Ä‚ŊŒž—t‚Å‚ā‚ ‚Á‚Ŋ‚Ė‚Å‚ˇ‚æB

 „“¯‚ļVBA‘g‚ŪŽŌ‚Æ‚ĩ‚āAĄ‚Ü‚Å‚Ė—Ŧ‚ę‚đŒŠ‚Ä‚ĸ‚Ü‚ĩ‚Ŋ‚Ē
 ‚Å‚ĩ‚Ŋ‚įA‚ā‚Ũ‚ļâ‚ŗ‚ņ‚Ē‚Į‚Ė—l‚Č•û‚Č‚Ė‚Š‚ā
 ‚¨•Ē‚Š‚č‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒB
 @
iHANAj 2014/09/01(ŒŽ) 23:21

 HANA‚ŗ‚ņ
 „„„Œ‹‹ĮƒGƒ‰[‚ĖŒ´ˆö‚Í•Ē‚Š‚Á‚Ŋ‚Ė‚Å‚ĩ‚傤‚ŠH
 „‚ą‚ę‚́A‚ā‚Ũ‚ļâ‚ŗ‚ņ‚É‚ ‚Ä‚ŊŒž—t‚Å‚ā‚ ‚č‚Ü‚ˇ‚Ē
 „ˆî—t‚ŗ‚ņ‚É‚ ‚Ä‚ŊŒž—t‚Å‚ā‚ ‚Á‚Ŋ‚Ė‚Å‚ˇ‚æB
 ‘‚Æ‚ŋ‚č‚ĩ‚Ä‚ĸ‚Ŋ‚Š‚ā‚ĩ‚ę‚Ü‚š‚ņ‚ĒAi•\‚đ‚ŋ‚á‚ņ‚ÆŒŠ‚Ä‚Č‚ĸ‚Ė‚ŁEEEj
 VBAã‚ł́AMatchŠÖ”‚Ė–ß‚č’l‚ÍStringŒ^‚ÆLongŒ^‚ł́AFalse‚Ē–ß‚é‚Ė‚ÅŽķ‚¯Žæ‚ę‚Č‚ĸŽd—lB

 ŨŒvã‚ł́Aƒf[ƒ^ƒV[ƒg‚É‚ ‚čAWŒvƒV[ƒg‚É‚Č‚ĸ‚ā‚Ė‚Ē‚ ‚é–â‘čB
 EEEˆŊ‚ĸ‚͏WŒvƒV[ƒg‚Í‚Ü‚Á‚ŗ‚į‚ČƒV[ƒg‚ɁAƒf[ƒ^ƒV[ƒg‚É—L‚é‚ā‚Ė‚ž‚¯o—Í‚ŗ‚š‚é‚Č‚Į‚ĖH•vB
 iH•v‚ÉŠÖ‚ĩ‚ẮAŠÖ”‚ōė‚낤‚Æ‚ĸ‚¤•ûj‚Ė‚悤‚Å‚ĩ‚Ŋ‚Ēj

 Ž„‚ĒŒ´ˆö‚Š‚ȁ[‚ÆŽv‚¤‚Æ‚ą‚ë‚Í‚ą‚ņ‚Č‚Æ‚ą‚ë‚Å‚ĩ‚ŊB
 ‰Ą‚Š‚įŒûo‚ĩ‚āAę‚đr‚į‚ĩ‚Ŋ‚悤‚Ő\‚ĩ–ķ‚˛‚´‚ĸ‚Ü‚š‚ņ‚Å‚ĩ‚ŊB

 „i—Ēj‚¨•Ē‚Š‚č‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒB
 ‚Í‚ĸEEEB

iˆî—tj 2014/09/02(‰Î) 08:46


 ˆî—t‚ŗ‚ņB
 ˆî—t‚ŗ‚ņ‚Ēę‚đr‚ĩ‚Ŋ‚Æ‚ÍŽv‚ĸ‚Ü‚š‚ņB
 ŠÖŒW‚Č‚ĸ˜b‚Ē’ˇ‚­‚Č‚é‚Æ‚ĸ‚¯‚Ü‚š‚ņ‚Ė‚ŁA’Z‚ĸ‚Å‚ˇ‚Ē‚ą‚Ė•Ķ‚ŁB

 ‚ā‚Ũ‚ļâ‚ŗ‚ņ
 „TEL‚Ė’Į‰ÁđŒ‚đƒ`ƒƒƒŒƒ“ƒW‚ĩ‚Ä‚Ũ‚悤‚ÆŽv‚ĸ‚Ü‚ˇ@
 ‚ģ‚Ė‘O‚É

 „15–Ú‚Š‚įFXƒƒ‚‚Á‚Ä‚Ŋ‚Ė‚ŁA‚ģ‚Ė‚š‚ĸ‚Š‚ā‚Å‚ˇB
 ‚ā‚¤ˆę“x“¯‚ļķ‹ĩ‚É‚ĩ‚āAMATCHŠÖ”‚Ė–ß‚č’l‚Ē‰Ŋ‚É‚Č‚é‚Ė‚ŠB
 ‚Ü‚ŊA‚ģ‚ę‚ĒŠi”[‚Å‚Ģ‚é•Ī”‚ĖŒ^‚͉Ŋ‚Č‚Ė‚ŠB
 ‚ē‚ĐŠm”F‚ĩ‚Ä’¸‚¯‚é‚Æ—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚ģ‚ę‚Š‚į
 „ƒ‹[ƒv‚ĖŠÔ‚É‹ķ—“‚Ē‚ ‚Á‚Ŋ‚š‚ĸ‚ł͂ƁBBB
 ‚ą‚ę‚Ė‘΍ô‚ā•K—v‚Å‚ˇ‚Š‚ˁBBBH
 @‚Č‚ē‹ķ—“‚Ē‚ ‚é‚Ė‚Š‚Ė‚˛ā–ž‚É‚æ‚Á‚ā@‚Į‚Ė—l‚Č‘Îô‚Ēo—ˆ‚é‚Ė‚Š@‚Ē
 @•Ī‚í‚Á‚Ä‚­‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒB

 ‚ Aæ‚Ƀz[ƒ€ƒy[ƒW‚Å‚ˇ‚ŠB
 ‚ģ‚ŋ‚į‚āŠæ’Ŗ‚Á‚Ä‚­‚ž‚ŗ‚ĸB
 @
iHANAj 2014/09/02(‰Î) 09:52

 „ƒ‹[ƒv‚ĖŠÔ‚É‹ķ—“‚Ē‚ ‚Á‚Ŋ‚š‚ĸ‚ł͂ƁBBB
 „‚ā‚¤ˆę“x“¯‚ļķ‹ĩ‚É‚ĩ‚āAMATCHŠÖ”‚Ė–ß‚č’l‚Ē‰Ŋ‚É‚Č‚é‚Ė‚ŠB

 ŒģŨtestƒV[ƒguƒf[ƒ^[ƒV[ƒgv‚ĖƒŒƒCƒAƒEƒg‚͉ē‹L‚É‚Č‚Á‚Ä‚Ü‚ˇB
 ã‚Ė•\‚ÍŒvŽZ—pA‰ē‚Ė•\‚Í‚ą‚ą‚É“\‚č‚ž‚ĩ—p‚Å‚ˇB
 s—ņ‚đ‚¸‚į‚ˇ‚Ɗ֐”‚ĖŽQlƒZƒ‹‚Ē•Ī‚í‚é‚Ė‚ŁA‚ą‚Ė‚悤‚É‚ĩ‚Ü‚ĩ‚ŊB
 Œŗ‚Ėƒf[ƒ^[‚Í‚`—ņ‚É‹ķ—“‚Í‚ ‚č‚Ü‚š‚ņB
 •K‚¸‚m‚n‚Í“ü‚č‚Ü‚ˇB

 [a]	[b]	[c]	[d]	[e]	[f]	[g]	[h]	[i]	[j]	[k]		
 [2]	NO	“ú•t	TEL	ŒŽŒŸõ’l	NO	NOŒŸõ’l		’P‰ŋ	‚ƒ‚“	‚‚ƒ	‹āŠz	‹āŠz
 [3]	140101 	2014”N1ŒŽ1“ú	8768 	5 	A02	4				10 		
 [4]	140101 	2014”N1ŒŽ2“ú	8768 	5 	A02	4				20 		
 [5]	140101 	2014”N1ŒŽ5“ú	8768 	5 	A03	5				30 		
 [6]	140101 	2014”N2ŒŽ5“ú	2913 	6 	A02	4				40 		
 [7]	140102 	2014”N2ŒŽ5“ú	2913 	6 	A02	4				50 		
 [8]	140102 	2014”N2ŒŽ6“ú	2913 	6 	A04	6				60 		
 [9]	140102 	2014”N3ŒŽ5“ú	2913 	7 	A02	4				70 		
 [10]				@@@@5		#N/A					 	
 [11]				@@@@5		#N/A						
 [12]				@@@@5		#N/A						
 [13]				@@@@5		#N/A						
 [14]				@@@@5		#N/A						
 [15]		NO	“ú•t	       #VALUE!		#N/A				‚ƒ‚“	‚‚ƒ	‹āŠz
 [16]		140101 	2014”N1ŒŽ1“ú   #N/A		#N/A					10 	
 [17]		140101 	2014”N1ŒŽ2“ú   #N/A		#N/A					20 	
 [18]		140101 	2014”N1ŒŽ5“ú   #N/A		#N/A					30 	
 [19]		140101 	2014”N2ŒŽ5“ú   #N/A		#N/A					40 	
 [20]		140102 	2014”N2ŒŽ5“ú   #N/A		#N/A					50 	
 [21]		140102 	2014”N2ŒŽ6“ú   #N/A		#N/A					60 	
 [22]		140102 	2014”N3ŒŽ5“ú   #N/A		#N/A					70 	

 ‰ē‹L‚ĖƒR[ƒh‚ÍŠF‚ŗ‚ņ‚ĒŽw“E‚ĩ‚Ä‚ĸ‚Ŋ‚ž‚ĸ‚Ŋ‰ĶŠ‚đ‘S•”’ŧ‚ĩ‚Ä‚āA
 ‚Ü‚žAƒGƒ‰[‚ŁuŒ^‚Ēˆę’v‚ĩ‚Č‚ĸv‚ƃRƒƒ“ƒg‚Ē‚Å‚Ü‚ĩ‚Ŋ‚Ė‚ŁA

 FXŽŽ‚ĩ‚Ŋ‚Æ‚ą‚ëAƒf[ƒ^[ƒV[ƒg‚Ė‰ē‚Ė•\‚đ‚b—ņ‚ɈړŽ‚ĩ‚Ŋ‚Æ‚ą‚ëƒGƒ‰[‚Ē‚Č‚­‚Č‚Á‚Ŋ‚Ė‚Å‚ ‚ęH‚Æ
 ‚ģ‚ĖŒãA‰Ŋ“x‚Š‰ē‚Ė•\‚đ‚`—ņ`‚c—ņ‚Ɉę—ņ‚¸‚‚¸‚į‚ĩ‚āAŠm”F‚ĩ‚Ä‚ā
 ‰ē‚Ė•\‚Ē‚`—ņ‚Š‚įŠO‚ˇ‚ƃGƒ‰[‚Ē‚Č‚­‚Č‚Á‚Ŋ‚Ė‚ŁA‚ą‚ę‚Ė‚š‚ĸ‚Å‚Í‚Č‚ĸ‚Š‚Ə‘‚Ģ‚Ü‚ĩ‚ŊB

 Ą“ú‚͊֐”‚ÅŠm”F‚ĩ‚Ŋ‚Æ‚ą‚ë@”Žš‚Æ•ļŽš@‚Ē“ü‚é‚Ė‚ŁA@long@‚Ē@”Žš‚ļ‚á‚Č‚ĸ‚æ`‚ÆŒx‚ĩ‚Ŋ‚ņ‚Å‚ˇ‚ˁB

 Sub test8()

    Dim NO As Long
    Dim ŒŽ As Long
    Dim i As Long
    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ As Worksheet

    Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ = Worksheets("Sheet6")

    WŒv.Range("E3:M6").ClearContents

    For i = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row

           NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)

              If IsNumeric(NO) Then
                  If IsNumeric(ŒŽ) Then
                      WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                  End If
              End If
    Next i

 End Sub

 „E3ƒZƒ‹‚Š‚įA(A—ņ‚ĖÅIs,2s–Ú‚ĖÅI—ņ)‚ĖƒZƒ‹@‚Ü‚Å‚Ė”͈͂łˇ‚æ‚ˁH

  ‚Í‚ĸA‚Å‚āÅIs‚Í‚Å‚Ģ‚Č‚ĸ‚Š‚ȁH

  Ą‚Í‚ą‚ę‚đŽg‚Á‚Ä‚Ü‚ˇB
  WŒv.Range("E3:M6").ClearContents

  ÅIs‚ŁAŽĀs‚ˇ‚é‚ÆŠÔ‚É‹ķ—“‚Ē‚ ‚é‚Ɛŗ‚ĩ‚­Cŗ‚ŗ‚ę‚Č‚ĸ‚Å‚ˇ‚æ‚ˁiHHj

i‚ā‚Ũ‚ļâj 2014/09/03(…) 21:16


 „Ą“ú‚͊֐”‚ÅŠm”F‚ĩ‚Ŋ‚Æ‚ą‚ë@”Žš‚Æ•ļŽš@‚Ē“ü‚é‚Ė‚Å
 ”Žš‚Á‚Ä‚Ė‚́A4,5,6,7 ‚Æ‚Š‚ĖŽ–‚Å
 •ļŽš‚Á‚Ä‚Ė‚́A#VALUE!@#N/A@‚ĖŽ–‚Å‚ˇ‚ŠH

 ‚Å‚ĩ‚Ŋ‚įAŒãŽŌ‚́u•ļŽšv‚Å‚Í‚Č‚­uƒGƒ‰[’lv‚Å‚ˇB

 ƒGƒ‰[’l‚́A”’l‚Å‚ā•ļŽš‚Å‚ā‚Č‚ĸ‚Ė‚Å
 Long ‚Ő錞‚ŗ‚ę‚Ŋ•Ī”‚É‚Í“ü‚ę‚į‚ę‚Ü‚š‚ņ‚ĩ
 String ‚Ő錞‚ŗ‚ę‚Ŋ•Ī”‚É‚ā“ü‚ę‚į‚ę‚Ü‚š‚ņB

 Variant ‚́u‚Č‚ņ‚Å‚ā“ü‚ę‚év‚Ė‚Å
 @‚Æ‚É‚Š‚­ˆę’UŒ‹‰Ę‚đ“ü‚ę‚āAŒã‚Å‚ģ‚ĖŒ‹‰Ę‚Ē‘Ó–‚Š¸¸‚ˇ‚é
   ~~~~~~~~~~Ē~~~~~~~~~~~~  ~~~~~~~~~~~Ē~~~~~~~~~~~~~~~
             b                      If IsNumeric(NO) Then
   Variant‚Ő錞‚ĩ‚ā@NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
 ‚ĒAˆî—t‚ŗ‚ņ‚Ē‘‚ĸ‚ĉē‚ŗ‚Á‚Ä‚ĸ‚é
 „‚š‚Á‚Š‚­IsNumericŠÖ”‚đŽg‚Á‚Ä‚ĸ‚é‚Ė‚Å‚ˇ‚Š‚įA“ņ‚‚Ė•Ī”‚đ‚Č‚ņ‚Å‚ā“ü‚éVariantŒ^‚É•ĪX‚ĩ‚āA
 „’†g‚Å•]‰ŋ‚ˇ‚ę‚΂æ‚ĸ‚Ė‚Å‚Í‚Č‚ĸ‚Å‚ĩ‚傤‚ŠH
 ‚đƒR[ƒh‚É‚ĩ‚Ŋę‡‚Å‚ˇB

 „ã‚Ė•\‚ÍŒvŽZ—pA‰ē‚Ė•\‚Í‚ą‚ą‚É“\‚č‚ž‚ĩ—p‚Å‚ˇB
 “\‚čo‚ĩ—p‚Ėƒf[ƒ^‚́A•Ę‚ĖƒV[ƒg‚ɍė‚Á‚Ä‚­‚ž‚ŗ‚ĸB
 –{—ˆ•K—v‚Å‚Č‚ĸˆ—‚đ“ü‚ę‚Č‚ĸ‚Æ‚ĸ‚¯‚Č‚­‚Č‚é‰Â”\Ģ‚Ēo‚Ä‚Ģ‚Ü‚ˇB

 #N/AƒGƒ‰[‚́A’ʏí‚Å‚ā‘Ώˆ‚đ‚ĩ‚Ä‚¨‚­‚Ė‚Ē—Į‚ĸƒGƒ‰[‚ž‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē
 #VALUEƒGƒ‰[‚́A–{—ˆo‚Č‚ĸ‚Í‚¸‚ĖƒGƒ‰[‚Å‚ˇ‚æ‚ˁH
 @
iHANAj 2014/09/03(…) 23:00

 „#VALUEƒGƒ‰[‚́A–{—ˆo‚Č‚ĸ‚Í‚¸‚ĖƒGƒ‰[‚Å‚ˇ‚æ‚ˁH

 ‚É‚Č‚Á‚Ŋ‚Ė‚Í

 NO	“ú•t	       #VALUE!		#N/A				‚ƒ‚“	‚‚ƒ	‹āŠz

 =MATCH(MONTH($C15),Sheet5!$A$2:$J$2,0)

 ŒŸ¸’l‚Ē@“ú•tŒ^‚Č‚Ė‚ɁA@‚m‚n@‚Í•ļŽšŒ^‚ž‚Š‚į‚Å‚ˇ‚æ‚Ë
 ‚m‚n‚Ė‚Æ‚ą‚ë‚Ɂ@“ú•t‚đ“ü‚ę‚Ŋ‚Æ‚ą‚ë@•’ʂɁ@Œ‹‰Ę‚Ē•Ô‚č‚Ü‚ĩ‚ŊB

 „•ļŽš‚Á‚Ä‚Ė‚́A#VALUE!@#N/A@‚ĖŽ–‚Å‚ˇ‚ŠH
 ‚Í‚ĸ‚ģ‚¤‚Å‚ˇB@ƒGƒ‰[‚Å‚ˇ‚ˁ@(*Lƒm„DM)

 „ƒGƒ‰[’l‚́A”’l‚Å‚ā•ļŽš‚Å‚ā‚Č‚ĸ‚Ė‚Ł`
  ‚ģ‚¤‚ž‚Á‚Ŋ‚ņ‚Å‚ˇ‚n‚j@‚ď‘‚ĸ‚Ä‚ĸ‚é‚Ė‚ŁA@‚ĸ‚‚āŽg‚Á‚ŋ‚á‚ĸ‚ÆŽv‚Á‚Ŋ‚ņ‚Å‚ˇ‚ĒA

 “K‰ž“KŠ@‚ÅŽg‚í‚Č‚ĸ‚ƃ_ƒ‚Å‚ˇ‚Ë
@

i‚ā‚Ũ‚ļâj 2014/09/04(–Ø) 00:12


 „‚m‚n‚Ė‚Æ‚ą‚ë‚Ɂ@“ú•t‚đ“ü‚ę‚Ŋ‚Æ‚ą‚ë@•’ʂɁ@Œ‹‰Ę‚Ē•Ô‚č‚Ü‚ĩ‚ŊB
 ‚ĸ‚âu"“ú•t"‚Æ•ļŽš‚Ē“ü‚Á‚Ä‚ĸ‚鏊v‚Ɂ@“ú•t(ƒVƒŠƒAƒ‹’l)‚đ“ü‚ę‚Ŋ‚ņ‚Å‚ˇ‚æ‚ˁH
 MONTHŠÖ”‚Ėˆø”‚É“ú•t‚Ē“ü‚Á‚Ä‚ĸ‚Č‚Š‚Á‚Ŋ‚Ė‚Å #VALUE! ƒGƒ‰[‚É‚Č‚Á‚ŊB
 @@’Pƒ‚ɏ‘‚ĢŠÔˆá‚Ļ‚Æ‚ÍŽv‚ĸ‚Ü‚ˇ‚ĒB

 –{—ˆ‚Ėƒf[ƒ^‚Ē‚Į‚Ė‚悤‚ȍ\Ŧ‚É‚Č‚Á‚Ä‚ĸ‚é‚Ė‚Š‚í‚Š‚į‚Č‚ĸ‚Ė‚Å‚ˇ‚ĒA‚Į‚¤‚Č‚Á‚Ä‚ĸ‚Ü‚ˇ‚ŠH
 ‚â‚Í‚čA•\‚Ė‰ē‚Ɂ@‚Ü‚Ŋ•Ę‚Ė•\‚Ē—L‚Á‚Ŋ‚股‚é‚Ė‚Å‚ĩ‚傤‚ŠH
 ‚Ü‚ŊA“ú•t—ņ‚Ɂ@“ú•tˆČŠO‚Ėƒf[ƒ^‚Ē“ü‚é‰Â”\Ģ‚Ē‚ ‚é‚Ė‚Å‚ĩ‚傤‚ŠH

 „‚ĸ‚‚āŽg‚Á‚ŋ‚á‚ĸ‚ÆŽv‚Á‚Ŋ‚ņ‚Å‚ˇ‚ĒA
 „“K‰ž“KŠ@‚ÅŽg‚í‚Č‚ĸ‚ƃ_ƒ‚Å‚ˇ‚Ë
 ‚ģ‚¤‚Å‚ˇ‚ˁB
 •Ī”‚Æ‚ģ‚ĖŒ^‚đéŒž‚ˇ‚é—˜“_‚Æ‚ĩ‚Ä

 y‚PzD•Ī”–ŧ‚đŠÔˆá‚Á‚ŊŽžA‹ŗ‚Ļ‚Ä‚­‚ę‚éB
 ‚ˇ‚Å‚É‘ĖŒąĪ‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē
 —á‚Pj
    Dim ƒf[ƒ^[ƒV[ƒg As Worksheet
@@@@~~~~~~~~~~~~~~‚Ő錞‚ĩ‚Ä‚ĸ‚é‚Ė‚É
    For i = 2 To ƒf[ƒ^ƒV[ƒg.Cells(Rows.Count, 1).End(xlUp).Row
                 ~~~~~~~~~~~~ŠÔˆá‚Ļ‚ď‘‚ĸ‚Ä‚ĩ‚Ü‚Á‚ŊB

 —á‚Qj
    WŒvƒV[ƒg.Cells(NO¤ŒŽ) = WŒvƒV[ƒg.Cells(NO¤ŒŽ) + ƒf[ƒ^[ƒV[ƒg.Cells(i¤10)
                     ~~~~~ uNO, ŒŽv‚Ə‘‚­ŠAuNO¤ŒŽv‚É‚Č‚Á‚Ä‚ĩ‚Ü‚Á‚ā@•Ī”‚Æ‚ĩ‚Ĉĩ‚í‚ę‚Ä‚ĩ‚Ü‚Á‚ŊB
 “™‚Æ‚ā‚¤ˆę‚Â
 y‚QzD‘z’č‚ƈႤ‚ā‚Ė‚đ“ü‚ę‚悤‚Æ‚ĩ‚ŊŽžA‹ŗ‚Ļ‚Ä‚­‚ę‚éB
 ‚Ē‚ ‚é‚ÆŽv‚ĸ‚Ü‚ˇB

 Ą‰ņAMATCHŠÖ”‚ÅŒŸõ’l‚ĖoŒģ‚ˇ‚és”ԍ†,—ņ”ԍ†‚đ‹‚ß‚Ü‚ˇ‚Ē
 ŒŸõ”͈͂Ė’†‚ɁAŒŸõ’l‚Ē•K‚¸‚ ‚ę‚΁@Œ‹‰Ę‚Í•K‚¸’l‚Č‚Ė‚Å
 Long ‚Ő錞‚ĩ‚Ŋ•Ī”‚Ė’†‚É“ü‚į‚Č‚ĸ‚Æ‚ĸ‚¯‚Ü‚š‚ņB

 ‚Ŋ‚Æ‚Ļ‚Î
 @If COUNTIFŠÖ”‚ŁAŒŸõ’l‚Ē”͈͂Ė’†‚É—L‚é‚Š’˛‚ׂéB”͈͂Ė’†‚É—L‚éę‡ Then
       NO = Application.Match(EEEE)
   End If
 “™‚Æ‚ĩ‚Ä‚ ‚ę‚΁ANO‚ɂ͐”’l‚Ē“ü‚į‚Č‚ĸ‚Æ‚ĸ‚¯‚Č‚ĸ‚Å‚ˇB
 •Ī”FNO ‚đ@Long@‚Ő錞‚ĩ‚Ä‚¨‚č@Ē‚Ėė‚č‚É‚ĩ‚Ŋ‚É‚āŠÖ‚í‚į‚¸
 uŒ^‚Ēˆá‚¤v‚ƃGƒ‰[‚Ēo‚é—l‚Č‚įA
 @E‚ģ‚ā‚ģ‚āƒR[ƒh‚ĒŠÔˆá‚Á‚Ä‚ĸ‚é
 @E‘z’čŠO‚Ėƒf[ƒ^‚Ē‚ ‚é
 ‚Ė‚Į‚ŋ‚į‚Š‚ÆŽv‚ĸ‚Ü‚ˇ‚Ė‚ŁAŒ´ˆö‚đ“Ë‚ĢŽ~‚߁@‘Ήž‚ˇ‚鎖‚É‚Č‚č‚Ü‚ˇB
 @@‚ģ‚Ė‘Ήž‚Ė‚Č‚Š‚Łu‚â‚Á‚Ī‚čVariant‚Ő錞‚ĩ‚Č‚ĸ‚Æ‚ž‚ß‚ž‚ív‚Á‚ĂȂ鎖‚ā‚ ‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒB

 •Ī”FNO ‚đ@Variant@‚Ő錞‚ĩ‚Ä‚ĸ‚Ŋę‡uŒ^‚Ēˆá‚¤v‚Č‚ņ‚ăGƒ‰[‚͏o‚Ü‚š‚ņ‚Š‚į
 ˆ—‚ĒÅŒã‚܂Ői‚ņ‚ŁAŒ‹‰Ę‚đŒŠ‚ŊŽž‚É
 u‚ ‚ęHŽv‚Á‚ŊŒ‹‰Ę‚ƈႤ‚ņ‚ž‚¯‚Į@‚Į‚ą‚Ēˆá‚¤‚Ė‚Š‚ȁHv
 ‚Á‚Ä‚Č‚č‚Ü‚ˇB
 ƒR[ƒh‚Ē’Z‚Š‚¯‚ę‚΁AŒŠ‚‚¯‚₡‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē
 ’ˇ‚­‚Č‚Á‚Ä‚­‚é‚ƁA’T‚ˇ‚Ė‚Ē‘å•Ī‚Å‚ˇB

 ‚ŗ‚āAÄ“x‚É‚Č‚č‚Ü‚ˇ‚Ē@Œä•ÔŽ–‚É‚æ‚Á‚Ă͍ĄŒã‚Ė•ûj‚ā•Ī‚í‚Á‚Ä‚Ģ‚Ü‚ˇ‚Ė‚Å
 ƒf[ƒ^ƒV[ƒg‚Ė2s–Ú‚ĖŒŠo‚ĩˆČ~‚ɁA‚ģ‚ĖŒŠo‚ĩ‚ƈę’v‚ĩ‚Č‚ĸƒf[ƒ^‚Ē“ü‚é‚Ė‚ŠH
 ‹ŗ‚Ļ‚ĉē‚ŗ‚ĸB

 ‚Ü‚Ŋ
 „„E3ƒZƒ‹‚Š‚įA(A—ņ‚ĖÅIs,2s–Ú‚ĖÅI—ņ)‚ĖƒZƒ‹@‚Ü‚Å‚Ė”͈͂łˇ‚æ‚ˁH
 „‚Í‚ĸA‚Å‚āÅIs‚Í‚Å‚Ģ‚Č‚ĸ‚Š‚ȁH
 „ÅIs‚ŁAŽĀs‚ˇ‚é‚ÆŠÔ‚É‹ķ—“‚Ē‚ ‚é‚Ɛŗ‚ĩ‚­Cŗ‚ŗ‚ę‚Č‚ĸ‚Å‚ˇ‚æ‚ˁiHHj
 ‹ī‘Ė“I‚ɁA‚Į‚ņ‚Č•\‚đ‘z’č‚ĩ‚Ä‚ĸ‚é‚Ė‚Å‚ĩ‚傤H

 ‚˛’æŽĻ‚Ė—á‚Å‚ ‚ę‚΁A
 @A—ņ@‚ĖÅIs‚Í6s–Ú
 @2s–Ú‚ĖÅI—ņ‚Í7—ņ–Ú
 ‚Č‚Ė‚ŁA
 @E3‚Š‚į Cells(6, 7) ‚Ė”͈͂ɂĩ‚Šƒf[ƒ^‚Í“ü‚į‚Č‚ĸ‚Å‚ˇ‚æ‚ˁH

 ‚Ü‚ŸAA—ņ‚Ėƒf[ƒ^—Ę‚Ē‘‚Ļ‚ŊŽž‚É "E3:M6" ‚đ‚ģ‚Ė“s“x•ĪX‚ˇ‚é‚Ė‚Č‚į
 ‚ģ‚ę‚Å‚ā—Į‚ĸ‚Ė‚Š‚ā‚ĩ‚ę‚Ü‚š‚ņ‚ĒB
 @
iHANAj 2014/09/04(–Ø) 10:53

 >’Pƒ‚ɏ‘‚ĢŠÔˆá‚Ļ‚Æ‚ÍŽv‚ĸ‚Ü‚ˇ‚ĒB
  ‚ˇ‚Ũ‚Ü‚š‚ņOOGG‚ģ‚Ė’Ę‚č‚Å‚ˇB

 •Ī”‚Í‚æ‚­Žg‚¤‚Č‚č‚Ė——R‚Ē‚ ‚é‚ņ‚Å‚ˇ‚ˁB
 ‚æ‚­‚í‚Š‚č‚Ü‚ĩ‚ŊB‚â‚Í‚č@long@‚Ė‚Ü‚Ü‚ÅŽg—p‚ĩ‚Ŋ‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚Ŋ‚žA–{Žŋ‚Ē‚æ‚­‚í‚Š‚į‚Č‚ĸ‚Ė‚Å‚ˇ‚ĒA
 IntegerALong@‚ā@“¯‚ļ”Žš‚đ“ü‚ę‚é•Ī”‚Å‚ˇ‚æ‚ˁB
 Žg—pŠî€‚́A@Žg‚Ļ‚鐔Žš‚Ė•‚É‚Č‚é‚Ė‚Å‚ĩ‚傤‚ŠH

 ‚ß‚Á‚Ŋ‚ÉŽg—p‚ĩ‚Č‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒASingleADoubleA‚ā‚ģ‚¤‚Å‚ˇ‚ĒAˆá‚ĸ‚Í‚â‚͂萔Žš‚Ė•H
 String‚Í‚æ‚­‚í‚Š‚č‚Ü‚š‚ņ‚ĒA”Žš‚Æ•ļŽš‚đ—ŧ•û”FŽ¯‚Å‚Ģ‚é‚æ‚Æ‚ĸ‚¤‚ą‚Æ‚Å‚ĩ‚傤‚ŠH
 Variant@‚́@”Žš‚ā•ļŽš‚āƒGƒ‰[‚ā‰Ŋ‚Å‚ā‚Į‚ņ‚Æ‚ą‚ĸ@‚ƃCƒ[ƒW‚Å‚æ‚ë‚ĩ‚ĸ‚Å‚ĩ‚傤‚ŠH

 ƒoƒCƒgŒ^	        Byte	  1	@@@@@@@@0`255
 ƒu[ƒ‹Œ^	        Bool	  2	@@@@@@@@^iTruej‹UiFalsej
 Ž”Œ^	                Integer	  2	@@@@@@@@-32,768`32,767
 ’ˇŽ”Œ^	        Long	  4	@@@@@@@@-2,147,483,648`2,147.483,647 
 ’P¸“x•‚“ŽŦ”“_”Œ^	Single	  4	@@@@@@@@-3.402823E38`-1.401298E-45(•‰‚Ė”)
                                                         1.401298E-45`3.402823E38iŗ‚Ė”j
 ”{¸“x•‚“ŽŦ”“_”Œ^	Double	  8	@@@@@@@@-1.7976931348623E308`-4.94065645841247E-324i•‰‚Ė”j
@@@@@@@@@@@@@@@@@@@@@@@           4.94065645841247E-324`1.79769313486232E308iŗ‚Ė”j
 ’ʉŨŒ^@@@@@	Currency@8	@@@@@@@@-922,337,203,685,477.5808`922,337,203,685,477.5807
 “ú•tŒ^	@@@@@@@@Date	@8	@@@@@@@@ŧ—ī100”N1ŒŽ1“ú`ŧ—ī9999”N12ŒŽ31“ú
 ƒIƒuƒWƒFƒNƒgŒ^@@@	Object	@4	@@@@@@@@ƒIƒuƒWƒFƒNƒg‚đŽQÆ‚ˇ‚éƒf[ƒ^Œ^
 •ļŽš—ņŒ^	@@@@String	@10+•ļŽš—ņ‚Ė’ˇ‚ŗ	0`2‚f‚a
 ƒoƒŠƒAƒ“ƒgŒ^	@@@@Variant	@16	@@@@@@@@‚ˇ‚ׂĂĖƒf[ƒ^‚đˆĩ‚Ļ‚éƒf[ƒ^Œ^‚Å0`2‚f‚a

i‚ā‚Ũ‚ļâj 2014/09/05(‹ā) 00:30


 „ A—ņ‚Ėƒf[ƒ^—Ę‚Ē‘‚Ļ‚ŊŽž‚É "E3:M6" ‚đ‚ģ‚Ė“s“x•ĪX‚ˇ‚é`
 @ÅIsAŽŠ“Ž‚ÉŽæ“ž‚ĩ‚Ä‚­‚ę‚é‚Æ‚ ‚č‚Ē‚Ŋ‚ĸ‚Å‚ˇB
 „E3‚Š‚į Cells(6, 7) ‚Ė”͈͂ɂĩ‚Šƒf[ƒ^‚Í“ü‚į‚Č‚ĸ‚Å‚ˇ‚æ‚ˁH
@ testƒf[ƒ^[‚Å‚ˇ‚Ɓ@Cells(6, 8)@‚Å‚ˇB

  „‹ī‘Ė“I‚ɁA‚Į‚ņ‚Č•\‚đ‘z’č‚ĩ‚Ä‚ĸ‚é‚Ė‚Å‚ĩ‚傤H
 —á‚Ļ‚Ήē‹L‚Ė•\‚Š‚į‚ĩ‚Ü‚ˇ‚ƁB
 i‚d3‚Š‚įÅIsA‚o—ņj.ƒNƒŠƒAƒRƒ“ƒeƒ“ƒc@‚É‚ĩ‚Ŋę‡
 @‚e660@‚Ɓ@‚o730@‚ĒÁ‚ŗ‚ꂸ‚Ɂ@‚ģ‚Ė‚Ü‚ÜŽc‚é‚ņ‚ļ‚á‚Č‚ĸ‚Š‚ƃCƒ[ƒW‚ĩ‚Ä‚Ü‚ˇB

 ‚ā‚ŋ‚ë‚ņ‚Į‚ą‚ĖƒZƒ‹‚Ē‹ķ—“‚É‚Č‚é‚Š‚͍‡ŒvƒK‚Å‚Č‚ĸ‚Æ•Ē‚Š‚į‚Č‚ĸ‚Ė‚Å

 ‚ģ‚¤‚ˇ‚é‚ƃR[ƒhėŦ‚Í

 i‚`3‚Š‚įÅIsA1j@‚Å‚ā@
 Á‚ˇ‚Ė‚́@‚d3‚Š‚į‚o‚ĖÅIs‚ž‚æ‚Æ‚ĸ‚Á‚ŊƒR[ƒhėŦ‚ĩ‚Č‚¯‚ę‚΂Ȃį‚Č‚ĸ‚Å‚ĩ‚傤‚ŠH

 ‰ŊŒž‚Á‚Ä‚ņ‚Ė‚Š‚æ‚­‚í‚Š‚į‚Č‚­‚Č‚č‚Ü‚ĩ‚ŊOOGG

 [1]	[a]	[b]	[f]	[g]	[e]	[f]	[g]	[h]	[i]	[j]	[k]	[l]	[m]	[n]	[o]	[p]
 [2]	NO	¤•i–ŧ‘O		1 ŒŽ	2 ŒŽ	3 ŒŽ	4 ŒŽ	5 ŒŽ	6 ŒŽ	7 ŒŽ	8 ŒŽ	9 ŒŽ	10 ŒŽ	11 ŒŽ	12 ŒŽ
 [3]	A01													
 [4]	A02				30 	90 	70 									
 [5]	A03				30 											
 [6]	A04					60 										
 [7]	A05															30 

i‚ā‚Ũ‚ļâj 2014/09/05(‹ā) 00:43


 •Ī”‚ĖŒ^‚ɂ‚ĸ‚Ä‚Í
http://officetanaka.net/excel/vba/variable/03.htm
 ‚ą‚Ė•Ķ‚đ‚˛——‚É‚Č‚é‚Æ—Į‚ĸ‚Š‚ā‚ĩ‚ę‚Ü‚š‚ņB

 „„E3‚Š‚į Cells(6, 7) ‚Ė”͈͂ɂĩ‚Šƒf[ƒ^‚Í“ü‚į‚Č‚ĸ‚Å‚ˇ‚æ‚ˁH
 „@testƒf[ƒ^[‚Å‚ˇ‚Ɓ@Cells(6, 8)@‚Å‚ˇB
 ‚ˇ‚Ũ‚Ü‚š‚ņA‚¸‚ę‚Ä‚Ü‚ˇ‚ˁB
 ƒZƒ‹ˆĘ’u‚Ē‚æ‚­‚í‚Š‚į‚Č‚ĸ‚Ė‚ŁA‹ŗ‚Ļ‚ĉē‚ŗ‚ĸB
 ‚PDA—ņ‚Ė“ü—Í‚Ē‚ ‚éÅŒã‚Ės‚͉Ŋ”Ô‚Å‚ˇ‚ŠHEEEEEE—ņ‚Å‚Í‚Č‚­A—ņ‚ÅŠm”F‚ĩ‚Ü‚ˇ
 ‚QD2s–Ú‚Ė“ü—Í‚Ē‚ ‚éÅŒã‚Ė—ņ‚͉Ŋ”Ô‚Å‚ˇ‚ŠHEEEEŒŽ‚ĖŒŠo‚ĩ‚Ē“ü—Í‚ŗ‚ę‚Ä‚ĸ‚és
 @
iHANAj 2014/09/05(‹ā) 09:24

 •Ī”éŒž‚ ‚č‚Ē‚Æ‚¤‚˛‚´‚ĸ‚Ü‚ˇB•×‹­‚ĩ‚Ü‚ˇB

   „‚PDA—ņ‚Ė“ü—Í‚Ē‚ ‚éÅŒã‚Ės‚͉Ŋ”Ô‚Å‚ˇ‚ŠHEEEEEE—ņ‚Å‚Í‚Č‚­A—ņ‚ÅŠm”F‚ĩ‚Ü‚ˇ
 WŒvƒV[ƒg‚́u7v”Ô–Ú‚Å‚ˇ
 Œŗƒf[ƒ^[‚́u50v”Ԗځ@‚Å‚ˇ@‚Ŋ‚ž‚ĩA@‘‚Ļ‚Ü‚ˇB

  „‚QD2s–Ú‚Ė“ü—Í‚Ē‚ ‚éÅŒã‚Ė—ņ‚͉Ŋ”Ô‚Å‚ˇ‚ŠHEEEEŒŽ‚ĖŒŠo‚ĩ‚Ē“ü—Í‚ŗ‚ę‚Ä‚ĸ‚és

 WŒvƒV[ƒg‚́@u8v”Ô–Ú‚Å‚ˇB
 Œŗƒf[ƒ^[‚́@u17v”Ô–Ú‚Å‚ˇB‘‚Ļ‚Ü‚š‚ņB
i‚ā‚Ũ‚ļâj 2014/09/05(‹ā) 18:03

 „„‚PDA—ņ‚Ė“ü—Í‚Ē‚ ‚éÅŒã‚Ės‚͉Ŋ”Ô‚Å‚ˇ‚ŠH
 „WŒvƒV[ƒg‚́u7v”Ô–Ú‚Å‚ˇ
 „„‚QD2s–Ú‚Ė“ü—Í‚Ē‚ ‚éÅŒã‚Ė—ņ‚͉Ŋ”Ô‚Å‚ˇ‚ŠH
 „WŒvƒV[ƒg‚́@u8v”Ô–Ú‚Å‚ˇB
 ‚Æ‚ĸ‚¤Ž–‚́A
 @E3ƒZƒ‹‚Š‚įCells(7, 8)ƒZƒ‹‚Ė”͈͂Ɍ‹‰Ę‚Ē“ü—Í‚ŗ‚ę‚Ä‚ĸ‚é
 ‚Á‚ÄŽ–‚Å‚ˇ‚æ‚ˁH

 ƒ}ƒNƒ‚ŏWŒv‚đŽn‚ß‚é‘O‚ɁA‚ą‚Ė”͈͂đClearContents‚ˇ‚é‚Æ‚ĸ‚¤Ž–‚ž‚Á‚Ŋ‚Ė‚Å‚ˇ‚Ē
 ‚ģ‚ę‚Å‚ā‘Ę–Ú‚ž‚ÆŽv‚ĸ‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/09/05(‹ā) 23:16

 „E3ƒZƒ‹‚Š‚įCells(7, 8)ƒZƒ‹‚Ė”͈͂Ɍ‹‰Ę‚Ē“ü—Í‚ŗ‚ę‚Ä‚ĸ‚é
 ‚ģ‚¤‚ĩ‚Ü‚ˇ‚ƁBÅIs‚ƍŏI—ņ‚đŽæ“ž•i‚Æ‚ĸ‚¯‚Č‚ĸ‚Å‚ˇ‚æ‚ˁB

 „„‚PDA—ņ‚Ė“ü—Í‚Ē‚ ‚éÅŒã
 „„‚QD2s–Ú‚Ė“ü—Í‚Ē‚ ‚éÅŒã

 ã‚ĖđŒ‚đˆęŒÂ‚¸‚“ü‚ę‚Ŋ‚Æ‚ą‚ë‰ē‚ĖƒR[ƒh‚Ē‚Å‚Ģ‚Ü‚ĩ‚Ŋ‚ĒA
 ‚Ü‚Ŋ‚â‚â‚ą‚ĩ‚­l‚Ļ‚Ä‚ĸ‚é‚ņ‚Å‚ĩ‚傤‚ŠHŽ„@ƒ°ƒ°(߄tßlll)!

 Sub test10()

  Dim NO As Long
  Dim ŒŽ As Long
  Dim WŒv As Worksheet

  Set WŒv = Worksheets("Sheet5")

  NO = WŒv.Range("A3").End(xlUp).Row
  ŒŽ = WŒv.Range("E2").End(xlToRight).Column

   '”͈́@E3`H6
    WŒv.Range(Cells(NO, 5), Cells(3, ŒŽ)).ClearContents
    'WŒv.Cells(NO, ŒŽ).ClearContents

 End Sub

i‚ā‚Ũ‚ļâj 2014/09/07(“ú) 23:32


 Œ‹‰Ę‚Æ‚ĩ‚Ä‚Í“¯‚ļ‚Å‚ˇ‚Ē
 „„E3ƒZƒ‹‚Š‚įCells(7, 8)ƒZƒ‹‚Ė”͈Í
     ~~~~~~    ~~~~~~~~~~~~~~~
 ‚Ėl‚Ļ•û‚Ƃ͏­‚ĩˆá‚¤ƒR[ƒh‚É‚Č‚Á‚Ä‚ĸ‚é‚ÆŽv‚ĸ‚Ü‚ˇB

 •Ē‚Š‚Á‚Ŋ‚¤‚Ļ‚Å
 Cells(NO, 5)ƒZƒ‹‚Š‚įCells(3, ŒŽ)ƒZƒ‹‚Ė”͈Í
 ~~~~~~~~~~~~~~~~    ~~~~~~~~~~~~~~~~
 ‚Æ‚â‚Á‚Ä‚¨‚į‚ę‚é‚Č‚įuâ‘΃_ƒv‚Á‚ÄŽ–‚Í–ŗ‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒB

 NO‚ĖŒ‹‰Ę‚Ēu7vAŒŽ‚ĖŒ‹‰Ę‚Ēu8v‚ž‚Á‚ŊŽž‚É
 Cells(NO, 5)‚Í‚Į‚ĖƒZƒ‹‚ŠH@Cells(3, ŒŽ)‚Í‚Į‚ĖƒZƒ‹‚ŠH

 ƒR[ƒh“ā‚ɉŧ‚É
    Cells(NO, 5).Select
    Cells(3, ŒŽ).Select
 ‚đ“ü‚ę‚Ä‚ā‚į‚Á‚āAWŒvƒV[ƒg‚ĒŒŠ‚Ļ‚éķ‘Ô‚É‚ĩ‚Ä
 ƒXƒeƒbƒvƒCƒ“‚ÅŽĀs‚ĩ‚Č‚Ē‚įA‚Į‚ą‚ĖƒZƒ‹‚Ē‘I‘đ‚ŗ‚ę‚é‚Ė‚ŠŒŠ‚Ä‚ā‚į‚Á‚Ä‚ā—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚ĩ
    MsgBox Cells(NO, 5).Address
    MsgBox Cells(3, ŒŽ).Address
 ‚đ“ü‚ę‚Ä‚¨‚­‚ƁAƒZƒ‹”Ô’n‚ĒƒƒbƒZ[ƒWƒ{ƒbƒNƒX‚Å•\ŽĻ‚ŗ‚ę‚é‚Ė‚ÅŠm”Fo—ˆ‚é‚ÆŽv‚ĸ‚Ü‚ˇB

 ƒCƒ~ƒfƒBƒGƒCƒgƒEƒBƒ“ƒhƒE‚đ•\ŽĻ‚ŗ‚š‚āA
 ƒXƒeƒbƒvƒCƒ“‚ÅŽĀs’†
 @? Cells(NO, 5).Address
 ‚Æ“ü—Í‚ĩ‚Ä Enter ‚đ‰Ÿ‚ˇ‚Ɓ@Œ‹‰Ę‚Ē•\ŽĻ‚ŗ‚ę‚Ü‚ˇ‚Ė‚Å‚ģ‚ę‚ÅŠm”F‚ĩ‚Ä‚ā—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚ģ‚ę‚Š‚įA
 „WŒv.Range(Cells(NO, 5), Cells(3, ŒŽ)).ClearContents
 ‚ž‚ƁAWŒvƒV[ƒgˆČŠO‚ĖƒV[ƒg‚ĒƒAƒNƒeƒBƒu‚É‚Č‚Á‚Ä‚ĸ‚Ŋ‚įƒGƒ‰[‚É‚Č‚é‚ÆŽv‚ĸ‚Ü‚ˇB
 •Ą”ƒV[ƒg‚đ‘Ώۂɂˇ‚éę‡‚́A‚ˇ‚ׂĂĖƒZƒ‹‚Ė‘O‚Ɂu‚Į‚ĖƒV[ƒg‚Ėv‚đ“ü‚ę‚ĉē‚ŗ‚ĸB
 @ 
iHANAj 2014/09/08(ŒŽ) 08:39

 •ÔM’x‚­‚Č‚Á‚Ä‚ˇ‚Ũ‚Ü‚š‚ņB
 9ŒŽ‚̓hƒ^ƒoƒ^‚ĩ‚ĕԐM‚Ē’x‚ę‚Ē‚ŋ‚Š‚ā‚Å‚ˇ@(*Lƒm„DM)

 „ Cells(NO, 5)ƒZƒ‹‚Š‚įCells(3, ŒŽ)ƒZƒ‹‚Ė”͈Í
 ~~~~~~~~~~~~~~~~    ~~~~~~~~~~~~~~~~
 Cells(3, 5)ƒZƒ‹‚Š‚įCells(3, 8)ƒZƒ‹‚Ė”͈Í
 ‚́@E3@`@H8@‚Ü‚Å‚Ė”͈͂Ė‰ž—p‚Ė‚‚ā‚č‚Å‚ĩ‚Ŋ‚ĒA

 ƒR[ƒh‚Ė”FŽ¯‚Æ‚ĩ‚Ä‚Í
 E1`ÅIs
 E2`ÅIs
 E3`ÅIs

 ‚ž‚¯‚Å‚ĩ‚ŊB
 ‚ģ‚¤‚ˇ‚é‚ƁACells(3, ŒŽ)‚ÍŽg‚Ļ‚邯‚Į
 Cells(NO, 5)‚͍ė‚č’ŧ‚ŗ‚Č‚¯‚ę‚΂Ȃį‚Č‚ĸ‚Å‚ˇ‚ˁ@(L߄tß`)

 „ ‚Ėl‚Ļ•û‚Ƃ͏­‚ĩˆá‚¤ƒR[ƒh‚É‚Č‚Á‚Ä‚ĸ‚é‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚ ‚įHˆá‚¤‚Ė‚Å‚ˇ‚Ë‚ģ‚¤‚ĩ‚Ü‚ˇ‚Æ

 E3ƒZƒ‹‚Š‚įCells(7, 8)ƒZƒ‹‚Ė”͈͂łˇ‚Ɓ@‚ą‚¤‚É‚Č‚č‚Ü‚ˇ‚ŠH

 For i = 3 To WŒv.Cells(Rows.Count, 1).End(xlUp).Row
@@For ‚Š = 3 To WŒv.Cells(2, Columns.Count).End(xlToLeft).Column
@@@@@@WŒv.Range(i, j).ClearContents

i‚ā‚Ũ‚ļâj 2014/09/10(…) 21:43


 „NO‚ĖŒ‹‰Ę‚Ēu7vAŒŽ‚ĖŒ‹‰Ę‚Ēu8v‚ž‚Á‚ŊŽž‚É
 „Cells(NO, 5)‚Í‚Į‚ĖƒZƒ‹‚ŠH@Cells(3, ŒŽ)‚Í‚Į‚ĖƒZƒ‹‚ŠH
 @Šm”F‚ĩ‚ĉē‚ŗ‚ĸB
 ‚Ə‘‚Ģ‚Ü‚ĩ‚Ŋ‚ĒAŠm”F‚ĩ‚Ü‚ĩ‚Ŋ‚ŠH

 ‚Į‚ĖƒZƒ‹‚Å‚ĩ‚Ŋ‚ŠH‚ ‚é‚ĸ‚́A‚Į‚ĖƒZƒ‹”Ô’n‚Ē•\ŽĻ‚ŗ‚ę‚Ü‚ĩ‚Ŋ‚ŠH

 ƒGƒNƒZƒ‹‚ɏo‚ĩ‚ŊŽwŽĻi‘‚ĸ‚ŊƒR[ƒhj‚Ē
 ŗ‚ĩ‚­ƒGƒNƒZƒ‹‚É“`‚í‚Á‚Ä‚ĸ‚é‚ŠiŽv‚Á‚Ä‚ĸ‚é’Ę‚č‚ɏ‘‚¯‚Ä‚ĸ‚é‚Šj
 Šm”Fo—ˆ‚é—l‚ɂȂ鎖‚ĒAƒR[ƒh‚𩮐Ŧ‚ŗ‚š‚éˆ×‚Ė‹ß“š‚Å‚ˇB

 Ą‰ņ‚ĖŒ‚́AŽĀÛ–â‘č‚Æ‚ĩ‚ā@‚ģ‚Ė‚Ü‚Ü‚ÅŽxá‚Í‚Č‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚Å‚ˇ‚ĒAƒfƒoƒbƒO‚Ė—ûK‚ž‚ÆŽv‚Á‚ā@l‚Ļ‚é‚Ė‚Å‚Í‚Č‚­A‚â‚Á‚Ä‚Ũ‚Ä‚ā‚į‚Ļ‚Ŋ‚į‚ÆŽv‚ĸ‚Ü‚ˇB
 @‚ā‚ŋ‚ë‚ņAŒ‹‰Ę‚đŠm”F‚ĩ‚ŊŒã‚́@l‚Ļ‚ĉē‚ŗ‚ĸ‚ˁB

 ‚ā‚¤ˆę“x‘‚Ģ‚Ü‚ˇB
 u‚Į‚ĖƒZƒ‹‚Å‚ĩ‚Ŋ‚ŠH‚ ‚é‚ĸ‚́A‚Į‚ĖƒZƒ‹”Ô’n‚Ē•\ŽĻ‚ŗ‚ę‚Ü‚ĩ‚Ŋ‚ŠHv
 @
iHANAj 2014/09/11(–Ø) 11:00

 WŒv.Cells(NO, 5).Select  E1 ‚Å

 WŒv.Cells(3, ŒŽ).Select@@N3@‚Å‚ĩ‚ŊB

 ‚ĩ‚Š‚ĩA‚Č‚ē‚Å‚ĩ‚傤‚ŠH

 WŒv.Cells(3, ŒŽ).Select@3s–Ú‚Ė@ÅI—á@‚Í‚ģ‚Ė‚Ü‚ÜŽĀs‚ŗ‚ę‚Ŋ‚Ė‚ɁA

 WŒv.Cells(NO, 5).Select ‚́@E5‚ĒÅIs‚Č‚Ė‚Ɂ@‚Č‚ē@E1@‚Ē”FŽ¯‚ŗ‚ę‚Ŋ‚ņ‚Å‚ĩ‚傤‚ŠH

 ‚ŋ‚Č‚Ũ‚ɃR[ƒh‚đ
 WŒv.Cells(NO, ŒŽ).Select@‚É‚ĩ‚Ü‚ˇ‚ƁA@1s–Ú‚ĖÅI—ņ‚É‚Č‚č‚Ü‚ˇB

 NO‚́@‚Ps–Ú‚đÅI—ņ‚đ”FŽ¯‚ĩ‚Ä‚ĸ‚é‚Ė‚ŠB
 ‚ģ‚ę‚Æ‚ā@‚Ps–Ú‚Š‚įˆ—‚ĩ‚Ä‚ĸ‚āB@FOR`@next@ŠÖ”‚Ē‚Č‚ĸ‚Ŋ‚ß‚É
 ŽŸ‚Ės‚ɍs‚¯‚Ä‚ĸ‚Č‚ĸ‚Æ‚ĸ‚¤ƒCƒ[ƒW‚Å‚ĩ‚傤‚ŠH

i‚ā‚Ũ‚ļâj 2014/09/14(“ú) 22:06


 •Ī”FNO ‚É’l‚đ“ü‚ę‚鏊‚Ē‚¨‚Š‚ĩ‚­‚Č‚ĸ‚Å‚ˇ‚ŠH
 ƒXƒeƒbƒvƒCƒ“‚ÅŽĀs‚ĩ‚Č‚Ē‚įA•Ī”FNO@‚É
 Šú‘Ō‚ˇ‚é’l‚Ē“ü‚Á‚Ä‚ĸ‚é‚ŠŠm”F‚ĩ‚Ä‚Ũ‚ĉē‚ŗ‚ĸB

 Šú‘Ō‚ˇ‚é’l‚Ē“ü‚į‚Č‚ĸ‚Č‚įAƒR[ƒh‚ĖCŗ‚Ē•K—v‚Å‚ˇB
 ‚ą‚ę‚܂ŏ‘‚ĸ‚Ä‚Ģ‚ŊƒR[ƒh‚ĖŠY“–•”•Ē‚ÆŒŠ”ä‚ׂĂŨ‚ĉē‚ŗ‚ĸB

 ƒ[ƒJƒ‹ƒEƒBƒ“ƒhƒE‚Í•\ŽĻ‚Å‚Ģ‚Ä‚ĸ‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/09/14(“ú) 22:55

 “¯‚ļ‚­
 „ NO = WŒv.Range("A3").End(xlUp).Row
 @‚É‚ˇ‚éę‡‚Í
  WŒv.Cells(NO, 5).Select  E1 ‚Å
  WŒv.Cells(3, ŒŽ).Select@@N3@‚Å‚ĩ‚ŊB

 ‚Å‚ˇ‚æ
 ‚Č‚É‚Ē‚ĸ‚¯‚Č‚ĸ‚Ė‚ŠŽ„‚Å‚Í•Ē‚Š‚į‚Č‚ĸ‚Å‚ˇ‚ĒB
 ‰Ŋ“x‚â‚Á‚Ä‚āŒ‹‰Ę‚Íˆę‚Å‚ĩ‚ŊB@iHHj

 „ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
 ‚É‚ˇ‚éę‡‚Í
  WŒv.Cells(NO, 5).Select  E6 ‚Å
  WŒv.Cells(3, ŒŽ).Select@@N3@‚Å‚ĩ‚ŊB

 ‚Å‚ĩ‚ŊB

 ‚Č‚É‚Ēˆá‚¤‚Ė‚Å‚ĩ‚傤‚ŠH

 š•ĘŒ‚Å‚ˇ‚ĒA

  iHANAj—l@ƒlƒbƒg‚đŠJ‚­‚ÆŒxƒy[ƒW‚Ē•\ŽĻ‚ŗ‚ę‚é‚â‚‚đ@íœ•û–@’m‚č‚Ü‚š‚ņ‚ŠH
 @‰Ŋ‚Š‚đƒCƒ“ƒXƒg[ƒ‹‚ŗ‚ę‚Ŋ‚Ė‚Å‚Í‚Č‚ĸ‚悤‚Č‚ņ‚Å‚ˇ‚æB
 @Google Chrome Žg‚¤‚Æ‚Ģ‚Ēˆę”ÔĐ–ī‚Å‚ˇB
 @30•b‚Ɉę‰ņ‰æ–Ę‚ĒØ‚č•Ô‚ŗ‚ę‚čė‹Æ‚Å‚Ģ‚Č‚ĸķ‹ĩ‚Č‚ņ‚Å‚ˇB
 @Žå‚Ɂ@JAVA@‚Ė@‚Ž‚ę[‚ĮUP ‚ĩ‚ëB
 @‚Å‚ˇ‚Æ‚ŠB@ƒEƒCƒ‹ƒX‚Ē‚Į‚¤‚Ė‚Å‚ˇ‚Æ‚ŠB
 @Ž—‚Ä‚é‰æ–Ę‚ÅŸŽč‚ɍL‚Ē‚ĸ‚Á‚Ī‚ĸ’Į‰Á‚ŗ‚ę‚Ŋ‚č‘å•Ī‚Å‚ˇB
 @‰Ŋ‚Æ‚Š‚Č‚é•û–@’m‚č‚Ü‚š‚ņ‚ŠH
 @ĄƒGƒNƒXƒvƒ[ƒ‰‚đŽg—p‚ĩ‚Ä‚é‚ņ‚Å‚ˇ‚æ@(*Lƒm„DM)
   ‚ĸ‚Á‚Ŋ‚ĸ‰Ŋ‚Ē‹N‚ą‚Á‚Ŋ‚Ė‚â‚įBBB
i‚ā‚Ũ‚ļâj 2014/09/16(‰Î) 21:52

 „ NO = WŒv.Range("A3").End(xlUp).Row
 ‚Ə‘‚ĸ‚ŊŽž‚Ė NO ‚É“ü‚é’l‚Æ

 „ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
 ‚Ə‘‚ĸ‚ŊŽž‚Ė NO ‚É“ü‚é’l‚Í

 ‚ģ‚ę‚ŧ‚ę‚ĸ‚­‚‚ɂȂÁ‚Ä‚ĸ‚Ü‚ˇ‚ŠH

 „ƒlƒbƒg‚đŠJ‚­‚ÆŒxƒy[ƒW‚Ē•\ŽĻ‚ŗ‚ę‚é‚â‚‚đ@íœ•û–@’m‚č‚Ü‚š‚ņ‚ŠH
 ‚ā‚¤­‚ĩƒqƒ“ƒg‚Ē—~‚ĩ‚ĸ‚Å‚ˇ‚ĒB
 ƒGƒNƒXƒvƒ[ƒ‰[‚ž‚Æ•\ŽĻ‚ŗ‚ę‚Č‚ĸ‚ņ‚Å‚ˇ‚ŠH
 Google Chrome ‚Ēo‚ĩ‚Ä‚ĸ‚é‚Ė‚ŠA‚ģ‚Ė‘ŧ‚Ė‰Ŋ‚Š‚Ēo‚ĩ‚Ä‚ĸ‚é‚Ė‚Š‚í‚Š‚č‚Ü‚ˇ‚ŠH

 ‚Ü‚¸‚́AƒIƒ“ƒ‰ƒCƒ“‚ĖƒEƒCƒ‹ƒXƒ`ƒFƒbƒN‚đ‚ĩ‚Ä‚Ũ‚Ä‚Í‚Į‚¤‚Å‚ĩ‚傤H
 @
iHANAj 2014/09/16(‰Î) 22:14

 „ NO = WŒv.Range("A3").End(xlUp).Row
 @ƒƒbƒZ[ƒW‚Å‚ÍE1@‚Å‚ˇ@ƒZƒ‹”Ô’n‚Å‚ĸ‚ĸ‚ņ‚Å‚ˇ‚æ‚ˁ@’l‚Æ‚ĸ‚¤‚Ė‚Í
 @’l‚́@NO=0@‚Å‚ˇ@

 „ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
@@E6‚Å‚ˇ
@@NO=6@‚Å‚ˇB

i‚ā‚Ũ‚ļâj 2014/09/16(‰Î) 22:45


–ŗ—ŋƒ\ƒtƒgDL‚ĩ‚ăXƒLƒƒƒ“‚ĩ‚Ü‚ĩ‚ŊB‚Å‚ā•Ī‚í‚į‚Č‚ĸ‚Å‚ˇB
adwcleaner_3.310

‰ē‹L‚Ėƒy[ƒW‚ɐ؂č‘Ö‚í‚é‚ņ‚Å‚ˇBŸŽč‚ɁAAA

 ‚XŒŽ17“ú’Į‹L
 –â‘č‰đŒˆ‚Ė‚Ŋ‚ß•sŗƒAƒNƒZƒXƒŠƒ“ƒN‚đíœ‚ĩ‚Ü‚ĩ‚ŊB

ƒGƒNƒZƒ‹ŠwZ‚̓GƒNƒXƒvƒ[ƒ‰‚ł̓Rƒƒ“ƒg‚đ‹LÚ‚Å‚Ģ‚Č‚ĸ‚Ė‚Å‚ˇ‚ˁ@(*Lƒm„DM)

i‚ā‚Ũ‚ļâj 2014/09/16(‰Î) 22:51


 ‘Ŧ‚â‚Š‚ɃlƒbƒgŠĮ—ŽŌ‚É‘Š’k‚ĩ‚Ŋ•û‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 ŠÔˆá‚Á‚Ä‚āƒ_ƒEƒ“ƒ[ƒh‚ĩ‚Č‚ĸ•û‚Ē—Į‚ĸ‚Å‚ĩ‚傤B
 ‚ģ‚ę‚̓EƒBƒ‹ƒXƒTƒCƒg‚Ė‚悤‚Å‚ˇi­‚Č‚­‚Æ‚āŒŸõ‚ˇ‚é‚Ɖö‚ĩ‚ĸæ‚Æ‚ĩ‚ďî•ņ‚Ē
 ‘Ŋ”‚ ‚č‚Ü‚ˇjB

 ƒlƒbƒgŒŠ‚Ä‚é•û‚āƒAƒNƒZƒX‚ĩ‚Č‚ĸ‚悤‚É‚ĩ‚Ä‚­‚ž‚ŗ‚ĸB
 Žæ‚č‚ ‚Ļ‚¸ URL Ø‚Á‚Ä‚¨‚Ģ‚Ü‚ˇB

iMookj 2014/09/16(‰Î) 23:36


 ‰Ŋ‚ŠƒCƒ“ƒXƒg[ƒ‹‚ŗ‚ę‚Ä‚é‚Ũ‚Ŋ‚ĸ‚Å‚ˇ‚ˁB
 Ž„‚Č‚įA•s‹ī‡‚Ē‹N‚ą‚é‘O‚Ü‚Å•œŒŗ‚ĩ‚Ä‚Ũ‚Ü‚ˇ‚ĒB
 @‚ģ‚ę‚Å’ŧ‚é‚Š‚Į‚¤‚Š‚í‚Š‚į‚Č‚ĸ‚Å‚ˇ‚ĒBBB

 „ƒGƒNƒZƒ‹ŠwZ‚̓GƒNƒXƒvƒ[ƒ‰‚ł̓Rƒƒ“ƒg‚đ‹LÚ‚Å‚Ģ‚Č‚ĸ‚Ė‚Å‚ˇ‚ˁ@(*Lƒm„DM)
 Ž„‚Í Internet Explorer ‚‚Š‚Ļ‚Ä‚Ü‚ˇB

 ‚ŗ‚āA
 „„ NO = WŒv.Range("A3").End(xlUp).Row
 „@’l‚́@NO=0@‚Å‚ˇ
 ‚ą‚ę‚Í‚¨‚Š‚ĩ‚ĸ‚Å‚ˇ‚ˁB
 WŒv.Range("A3").End(xlUp)‚ĩ‚ŊƒZƒ‹‚Ė .Row EEEEs”ԍ†
 ‚Ē“ü‚é‚Ė‚Łu0v‚É‚Č‚é‚ą‚Æ‚Í‚Č‚ĸ‚Å‚ˇB
 Šm”F‚ˇ‚éƒ^ƒCƒ~ƒ“ƒO‚Ēˆá‚Á‚Ä‚ĸ‚Ü‚š‚ņ‚ŠH

 ƒXƒeƒbƒvƒCƒ“‚ÅŽĀs‚ĩ‚āANO = WŒv.Range("A3").End(xlUp).Row ‚Ės‚đ‰ß‚Ŧ‚ŊŒã
 ƒ[ƒJƒ‹ƒEƒBƒ“ƒhƒE‚ŁuNOv‚Ė’l‚đŒŠ‚é‚Ė‚Å‚ˇ‚æH

 „„ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
 „@@NO=6@‚Å‚ˇB
 Cells(Rows.Count, 1)‚Á‚Ä‚Į‚ĖƒZƒ‹‚Š‚í‚Š‚č‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/09/16(‰Î) 23:46

 Žŋ–â‚Ė–{‘č‚Æ‚ÍŠÖŒW‚Č‚ĸA’Į‰ÁƒRƒƒ“ƒg‚Å‚ˇ‚—B

 ‚ŗ‚ˇ‚Ē‚É“ü‚ę‚Ä‚Ũ‚é‚Ė‚Í‚â‚Á‚Ä‚ĸ‚Č‚ĸ‚Å‚ˇ‚ĒAŒŸõ‚ĩ‚ŊŒĀ‚č‚́AJava ‚ĖƒAƒbƒvƒOƒŒ[ƒh‚đ
 ‹U‘•‚ĩ‚ŊL•\ŽĻ‚ˇ‚éƒvƒƒOƒ‰ƒ€‚đƒCƒ“ƒXƒg[ƒ‹‚ˇ‚éƒTƒCƒg‚Æ‚ĸ‚Á‚Ŋî•ņ‚Ē‚ ‚č‚Ü‚ĩ‚ŊB

 HANA‚ŗ‚ņ‚ĖŒž‚¤‚悤‚ɁA‚Æ‚č‚ ‚Ļ‚¸•œŒŗƒ|ƒCƒ“ƒg‚Ē‚ ‚é‚Ė‚Å‚ ‚ę‚΁A–â‘č‚Ēo‚é‘O‚Ü‚Å
 –ß‚ˇ‚Ė‚ĒŽč‚ÁŽæ‚葁‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚Č‚ĸę‡‚Í‚Ü‚¸‰ö‚ĩ‚ĸƒ\ƒtƒg‚ĖƒAƒ“ƒCƒ“ƒXƒg[ƒ‹B
 ‚ģ‚ę‚Š‚įƒuƒ‰ƒEƒUi“Á‚É‚¨‚Š‚ĩ‚Č‹““Ž‚đ‚ˇ‚éj‚ĖAŠg’Ŗ‹@”\‚Ėíœ‚Č‚ĮB
 ‚ģ‚ę‚Ń_ƒ‚Č‚įƒuƒ‰ƒEƒU‚ĖÄƒCƒ“ƒXƒg[ƒ‹B
 ‚ģ‚ę‚Å‚āƒ_ƒ‚Č‚įÅŒã‚Í OS ÄƒCƒ“ƒXƒg[ƒ‹‚Å‚ĩ‚傤‚ŠB

 ‰īŽĐ‚Ė PC ‚Č‚į‚Ü‚¸‚ÍŠĮ—ŽŌ‚É‘Š’k‚ĩ‚Ä‚Ũ‚é‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚Č‚Ė‚ÅŒfŽĻ”Â‚đŒŠ‚é•û‚āAˆĀˆÕ‚ɏã‹L‚ɃAƒNƒZƒX‚ĩ‚Ŋ‚čAƒCƒ“ƒXƒg[ƒ‹‚ĩ‚Ŋ‚č‚ĩ‚Č‚ĸ‚悤‚É
 ‚˛’ˆĶ‚đB

 ‚ģ‚ę‚Š‚į‰ē‹L‚đŠm”F‚ĩ‚Ä‚Ũ‚Ä‚Í‚ÆŽv‚ĸ‚Ü‚ˇB
 ƒuƒ‰ƒEƒU‚Ėƒz[ƒ€ƒy[ƒW‚ĖŨ’čA
 HOSTS ƒtƒ@ƒCƒ‹‚ɉö‚ĩ‚ĸ“o˜^‚Ē‚Č‚ĸ‚ŠB‚ ‚ę‚ΕœŒŗ‚đB
http://support.microsoft.com/kb/972034/ja
iMookj 2014/09/17(…) 07:56

 iMookj—l

 ‚ ‚č‚Ē‚Æ‚¤‚˛‚´‚ĸ‚Ü‚ˇB
 ƒGƒNƒZƒ‹ŠwZ‚Ė•ÔŽ–‚ž‚¯‚Å‚āˆę‹ę˜J‚ž‚Á‚Ŋ‚ņ‚Å‚ˇ@"o(M*ƒÖ*L)ļÁ[ŨĨĨĨĨ
 ‚˛Žw“E’Ę‚č‚Ɂ@ƒlƒbƒg‰īŽĐ‚É’Ę•ņ‚ĩ‚Ŋ‚Æ‚ą‚ë
 ‘Ώˆ–@‚đŒŠ‚Â‚¯‚Ü‚ĩ‚ŊB

 ƒŠƒZƒbƒg•û–@‚ƏÁ‹Žƒ\ƒtƒg
https://support.google.com/chrome/?p=help&ctx=menu#topic=3227046

 ‚ą‚ŋ‚į‚ā‡‚í‚š‚ăŠƒZƒbƒg‚ĩ‚Ü‚ĩ‚ŊB
http://support.microsoft.com/kb/972034/ja

 ‚ą‚ę‚ʼnŊ‚Æ‚ŠAĄ‚Ė‚Æ‚ą‚ë‚Č‚É–â‘č‚đ‹N‚Ģ‚Ä‚ĸ‚Č‚ĸ‚Å‚ˇB

 ‚ģ‚ĩ‚āA‚ ‚ę‚Š‚į@‚ā‚¤ˆę‚‚ĖƒTƒCƒg‚Ē•‚ã
 media@ƒvƒŒƒC@‚Ė@Up@ƒOƒŒ[ƒg‚Å‚ˇB

 ŠF—l‚ā‹C‚đ•t‚¯‚Ä‚­‚ž‚ŗ‚ĸ‚Ü‚š@(LĄ✪ƒÖ✪ĄM)

 ‚Į‚¤‚ā‚ ‚č‚Ē‚Æ‚¤‚˛‚´‚ĸ‚Ü‚ĩ‚Ŋ ‚iQ@Qj‚

i‚ā‚Ũ‚ļâj 2014/09/17(…) 09:49


 ‚ˇ‚Ũ‚Ü‚š‚ņB
 ƒ[ƒJƒ‹ƒEƒBƒ“ƒhƒE‚ƃGƒ~ƒfƒBƒGƒCƒg‚đŠÔˆá‚Ļ‚Ü‚ĩ‚ŊOOGG

 „ NO = WŒv.Range("A3").End(xlUp).Row @
  @’l‚́@NO=1@‚Å‚ˇ@

  „ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
 @@’l‚́@ŒŽ14@@‚Å‚ˇ

 „ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
 @@’l‚́@NO6
 @@A—ņ‚ĖÅIs‚Å‚ˇ‚æ‚ˁ@iHHj
@@ Å‰ē’[i65536sj‚Š‚įã‚ÉŒü‚Š‚Á‚Ä‹ķ”’‚Å‚Č‚ĸƒZƒ‹‚đŒŸõ‚ˇ‚éH
i‚ā‚Ũ‚ļâj 2014/09/17(…) 16:44

 ‚Ļ‚Á‚Æ
 „„ NO = WŒv.Range("A3").End(xlUp).Row @
 „ @’l‚́@NO=1@‚Å‚ˇ
 ‚ą‚ę‚Á‚āAŽv‚Á‚Ŋ’l‚Å‚ˇ‚ŠH

 NO‚É“ü‚ę‚悤‚ÆŽv‚Á‚Ä‚ĸ‚é’l‚́u6v‚ž‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒBBBH

 Žv‚Á‚Ŋ’l‚Ē“ü‚Á‚Ä‚ĸ‚Č‚ĸ‚Č‚įAƒR[ƒh‚ĒˆĢ‚ĸ‚Ė‚Å•ĪX‚Ē•K—v‚Å‚ˇB

 „„ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
 „@@Å‰ē’[i65536sj‚Š‚įã‚ÉŒü‚Š‚Á‚Ä‹ķ”’‚Å‚Č‚ĸƒZƒ‹‚đŒŸõ‚ˇ‚éH
 ‚Í‚ĸB‚Å‚ˇ‚Š‚į
 „„ NO = WŒv.Range("A3").End(xlUp).Row 
 ‚Ə‘‚ĸ‚Ä‚ ‚é‚ƁAA3ƒZƒ‹‚Š‚įã‚ÉŒü‚Š‚Á‚Ä‹ķ”’‚Å‚Č‚ĸƒZƒ‹i˜A‘ą‚ĩ‚Č‚ĸƒZƒ‹j‚đ
 ŒŸõ‚ˇ‚鎖‚É‚Č‚č‚Ü‚ˇ‚ĒA‚ģ‚ę‚ļ‚áƒ_ƒ‚Å‚ˇ‚æ‚ˁH
 @
iHANAj 2014/09/17(…) 16:54

 „‚ą‚ę‚Á‚āAŽv‚Á‚Ŋ’l‚Å‚ˇ‚ŠH

 ‚ IIƒ°ƒ°(߄tßlll)!@Š¨ˆá‚ĸ‚ĩ‚Ä‚Ü‚ĩ‚ŊB
 A3‚Š‚įÅIsŽæ“ž‚ĩ‚Ä‚Ų‚ĩ‚Š‚Á‚Ŋ‚ņ‚Å‚ˇ‚ĒA

 ‚ą‚ę‚Å‚Í‚Č‚­

 „„ NO = WŒv.Range("A3").End(xlUp).Row 

 ‚ą‚Á‚ŋ‚É‚Č‚č‚Ü‚ˇ‚Ë

 NO = WŒv.Range("A3").End(xlDown).Row

 —~‚ĩ‚ĸŒ‹‰Ę‚𖞊m‚É‚ĩ‚ā@•K—v‚ČƒR[ƒh‚đė‚éB
 ‚ ‚ņ‚Č‚ÉŒž‚í‚ę‚Ŋ‚Ė‚ɁA‚Ü‚Ŋ–Y‚ę‚Ä‚Ü‚ˇ‚ˁ@(*Lƒm„DM)

i‚ā‚Ũ‚ļâj 2014/09/17(…) 20:53


 „NO = WŒv.Range("A3").End(xlDown).Row
 ‚ģ‚¤‚Å‚ˇ‚ˁB
 A3ƒZƒ‹‚đ‹N“_‚É‚ˇ‚é‚Č‚įAxlDown ‚Å’T‚ŗ‚Č‚ĸ‚Æ‚ĸ‚¯‚Č‚ĸ‚Å‚ˇ‚ˁB

 ‚ŗ‚āA‚ą‚ę‚Ł@NO‚Ɂu6v‚Ē“ü‚é—l‚É‚Č‚č‚Ü‚ĩ‚Ŋ‚ˁB
 ‚Å‚Í
 „   '”͈́@E3`H6
 „    WŒv.Range(Cells(NO, 5), Cells(3, ŒŽ)).ClearContents
 ‚ĖA‰Ŋ‚ÉŽ„‚Ē‚ą‚ž‚í‚Á‚Ä‚ĸ‚é‚Š‚í‚Š‚č‚Ü‚ˇ‚ŠH

 Cells(NO, 5) ‚ĖƒZƒ‹”Ô’n‚Í‚Į‚ą‚Å‚ˇ‚ŠH
 Cells(3, ŒŽ) ‚ĖƒZƒ‹”Ô’n‚Í‚Į‚ą‚Å‚ˇ‚ŠH
 @
iHANAj 2014/09/17(…) 21:44

 Cells(NO, 5) ‚ĖƒZƒ‹”Ô’n‚Í‚Į‚ą‚Å‚ˇ‚ŠH@@E6
 Cells(3, ŒŽ) ‚ĖƒZƒ‹”Ô’n‚Í‚Į‚ą‚Å‚ˇ‚ŠH@@H3 @‚Å‚ˇB

 „‚ĖA‰Ŋ‚ÉŽ„‚Ē‚ą‚ž‚í‚Á‚Ä‚ĸ‚é‚Š‚í‚Š‚č‚Ü‚ˇ‚ŠH
 ‚¤`‚ņ@ŠÔˆá‚Á‚Ŋ‚į‚ˇ‚Ũ‚Ü‚š‚ņB

 Žn“_@‚Ɓ@I“_@‚đ’T‚ˇH@‚Ũ‚Ŋ‚ĸ‚ČƒCƒ[ƒW‚Å‚ˇ‚ŠH
i‚ā‚Ũ‚ļâj 2014/09/17(…) 23:24

 „Žn“_@‚Ɓ@I“_@‚đ’T‚ˇH@‚Ũ‚Ŋ‚ĸ‚ČƒCƒ[ƒW‚Å‚ˇ‚ŠH
 u’T‚ˇv‚Á‚Ä‚Ė‚Í‚Į‚¤‚ĸ‚¤Ž–‚Å‚ĩ‚傤H

 A—ņ‚É6s–ڂ܂Ńf[ƒ^‚Ē‚ ‚Á‚āA2s–Ú‚É8—ņ–ڂ܂Ńf[ƒ^‚Ē‚ ‚Á‚Ŋ‚į
 E3:H6@‚Ė”͈͂ĖƒZƒ‹‚Ė’l‚đƒNƒŠƒA‚ˇ‚é•K—v‚Ē‚ ‚č‚Ü‚ˇB

 A—ņ‚É10s–ڂ܂Ńf[ƒ^‚Ē‚ ‚Á‚āA2s–Ú‚É12—ņ–ڂ܂Ńf[ƒ^‚Ē‚ ‚Á‚Ŋ‚į
 E3:L10@‚Ė”͈͂ĖƒZƒ‹‚Ė’l‚đƒNƒŠƒA‚ˇ‚é•K—v‚Ē‚ ‚č‚Ü‚ˇB

 ‚ą‚¤l‚Ļ‚é‚ƁAŽn“_‚Í•Ī‚í‚į‚¸@I“_‚Ē•Ī‚í‚č‚Ü‚ˇ‚æ‚ˁH 

 Žn“_‚ÍŒˆ‚Ü‚Á‚Ä‚ĸ‚Ü‚ˇBE3‚Å‚ˇB

 I“_‚ĒAƒf[ƒ^—Ę‚É‚æ‚Á‚Ä•Ī‚í‚č‚Ü‚ˇB
 @A—ņ‚É 6s–Ú‚Ü‚Å“ü‚Á‚Ä‚ĸ‚Ŋ‚į@ 6s–Ú‚Ü‚Å‚Ė”͈͂łˇ‚ĩ
  @@@10s–Ú‚Ü‚Å“ü‚Á‚Ä‚ĸ‚Ŋ‚į@10s–Ú‚Ü‚Å‚Ė”͈͂łˇB
 @2s–ڂɁA8—ņ–Ú‚Ü‚Å“ü‚Á‚Ä‚ĸ‚Ŋ‚į@8—ņ–Ú‚Ü‚Å‚Ė”͈͂łˇ‚ĩ
 @@@@@12—ņ–Ú‚Ü‚Å“ü‚Á‚Ä‚ĸ‚Ŋ‚į 12—ņ–Ú‚Ü‚Å‚Ė”͈͂łˇB
 I“_‚ĖƒZƒ‹‚Ē‚Į‚ą‚Č‚Ė‚ŠAƒf[ƒ^ķ‹ĩ‚đŠm”F‚ĩ‚ā@Žw’股‚é•K—v‚Ē‚ ‚č‚Ü‚ˇB

 E6:H3‚Ė”͈͂ƁAE3:H6‚Ė”͈͓͂¯‚ļ‚Å‚ˇB

 ‚ˇ‚łɏ‘‚ĸ‚Ä‚ĸ‚Ü‚ˇ‚ĒAĄ‰ņ‚ģ‚ę‚đ‚í‚Š‚Á‚Ä‚ĸ‚Ä
 „    WŒv.Range(Cells(NO, 5), Cells(3, ŒŽ)).ClearContents
 ‚Æ‚ĩ‚Ä‚ĸ‚é‚Ė‚Č‚įi‚Ü‚Ÿ‚ģ‚Ė——R‚Í’m‚č‚Ŋ‚ĸ‚Æ‚ą‚ë‚Å‚ˇ‚Ēj—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē
 uƒeƒLƒg[‚É“–‚Ă͂߂āA‚Č‚ņ‚Æ‚Č‚­‚¤‚Ü‚­‚ĸ‚Á‚Ŋ‚Š‚į@Œ‹‰ĘƒI[ƒ‰ƒCv
 ‚ž‚Æ‚ĩ‚Ŋ‚įA—Į‚ĸ‚Æ‚ÍŽv‚Ļ‚Ü‚š‚ņB
 @
iHANAj 2014/09/17(…) 23:41

 „‚Ü‚Ÿ‚ģ‚Ė——R‚Í’m‚č‚Ŋ‚ĸ‚Æ‚ą‚ë‚Å‚ˇ‚Ē
 WŒv.Range(NO, ŒŽ).ClearContents
 ‚Í‚ļ‚߂́@‚ą‚ę‚đŽg—p‚ĩ‚Ŋ‚ņ‚Å‚ˇB‚Å‚āƒGƒ‰[‚Å‚ˇ‚ĩB
 —~‚ĩ‚ĸŒ‹‰Ę“ž‚į‚ę‚Č‚Š‚Á‚Ŋ‚Ė‚ŁA

 ŒŽ‚Í12‚ŠŒŽ‚ĩ‚Š‚Č‚ĸ‚Ė‚ŁA•Ī“Ž‚Í‚Č‚ĸ‚Ė‚Å‚ˇ‚ĒA
 NO‚Í‚Ŋ‚܁`‚É•Ī“Ž‚ ‚č‚Ü‚ˇ‚Ė‚ŁA‚Į‚¤‚ĩ‚悤‚Š‚ȁ`‚ƍl‚Ļ‚Ŋ‚Æ‚ą‚ë

 CellsƒvƒƒpƒeƒB@‚đŒŠ‚Ä@Žn“_‚ƏI“_’T‚ˇH”FŽ¯‚ŗ‚š‚éH
 ‚ģ‚ĩ‚āA‚ģ‚Ė”͈͂đÁ‚ĩ‚Ä‚ā‚į‚¤ƒCƒ[ƒW‚ÅŽg—p‚ĩ‚Ü‚ĩ‚ŊB
 ‚ģ‚ę‚ĩ‚ŠŽv‚ĸ‚‚Š‚Č‚Š‚Á‚Ŋ‚Å‚ˇ@OOGG
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_cell.html

 Œã‚Ų‚Įfor`next@‚đ@•‚‚Š‚ņ‚Ł@‚ ‚ģ‚Á‚Š@‚Æ‚ĸ‚Á‚ŊŠ´‚ļ‚Å‚ˇB
i‚ā‚Ũ‚ļâj 2014/09/18(–Ø) 00:40

 l‚Ļ•û‚́AŽQl‚É‚ŗ‚ę‚Ŋƒy[ƒW‚Å—Į‚ĸ‚Å‚ˇB

 „WŒv.Range(NO, ŒŽ).ClearContents
 „‚Í‚ļ‚߂́@‚ą‚ę‚đŽg—p‚ĩ‚Ŋ‚ņ‚Å‚ˇB‚Å‚āƒGƒ‰[‚Å‚ˇ‚ĩB
 „—~‚ĩ‚ĸŒ‹‰Ę“ž‚į‚ę‚Č‚Š‚Á‚Ŋ‚Ė‚ŁA
 •Ī”‚É‚Ģ‚ŋ‚ņ‚Æ’l‚Ē“ü‚Á‚Ä‚ĸ‚ę‚΁AƒGƒ‰[‚É‚Í‚Č‚į‚Č‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē
 —~‚ĩ‚ĸŒ‹‰Ę‚Í“ž‚į‚ę‚Č‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚ą‚ę‚ž‚ƁAÅŒã‚ĖƒZƒ‹‚đˆę‚‚ž‚¯‚ĩ‚ŠƒNƒŠƒA‚Å‚Ģ‚Č‚ĸ‚Š‚į‚Å‚ˇB

 „Range("A1", "B3").Select
 ‚ŁAA1:B3‚Ė”͈͂Ē‘I‘đo—ˆ‚Ü‚ˇB

 Ą‰ņ‚́i6s8—ņ‚Ü‚ÅŒŠo‚ĩ‚Ē‚ ‚Á‚Ŋ‚įjE3:H6‚Č‚Ė‚Å
 Range("E3", "H6").Select
 ‚ŁAE3:H6‚Ė”͈͂łˇB

 ŽĀÛ‚́AŒã‚둤‚ĖuH6v‚Ė•û‚Í•Ī”‚Å•Ī‰ģ‚ŗ‚š‚Ŋ‚ĸ‚Ė‚Å
 ‚ą‚Ė•”•Ē‚Ē@Cells(› ,ĸ)@‚Ė—l‚É•Ī”‚Å•Ī‰ģ‚ˇ‚é—l‚É‚ĩ‚Ü‚ˇB

 —~‚ĩ‚ĸŒ‹‰Ę‚Ē“ž‚į‚ę‚Č‚Š‚Á‚ŊŽž‚ɁAV‚ĩ‚ĸ•Ę‚Ė‚ā‚Ė‚đ’T‚ˇ‚Ė‚Å‚Í‚Č‚­
 Å‰‚Ė“ā‚Í“ī‚ĩ‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒA‚Į‚¤‚ĩ‚Ä—~‚ĩ‚ĸŒ‹‰Ę‚Ē“ž‚į‚ę‚Č‚Š‚Á‚Ŋ‚Ė‚Š
 ‚Ü‚¸ŒŸ“ĸ‚ĩ‚Ä‚Ũ‚Ä‚ā‚į‚¤‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚ˇ‚é‚ƁAŽŠ•Ē‚ÅŠÔˆá‚Ļ‚₡‚ĸŠ‚ā‚í‚Š‚Á‚Ä‚­‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚Ė‚ŁB
 @
iHANAj 2014/09/18(–Ø) 08:27

 ŠÔˆá‚Ļ‚Ä‚Ü‚ˇ‚ˁ@(*L-M*)U ƒ|ƒŠƒ|ƒŠ

 WŒv.Cells(NO, ŒŽ).ClearContents

 ‚Å‚ˇ‚Ɓ@”͈͂Ē@E3:H6@‚Č‚į‚΁@H6@‚Ė‚Đ‚Æƒ}ƒX‚Ė‚Ũíœ‚ŗ‚ę‚Ä‚Ü‚ĩ‚ŊB
 ‚Č‚Ė‚ŁA‚Å‚Ģ‚Č‚ĸ‚Æ”ģ’f‚ĩ‚Ŋ‚ņ‚Å‚ˇB

 „‚ˇ‚é‚ƁAŽŠ•Ē‚ÅŠÔˆá‚Ļ‚₡‚ĸŠ‚ā‚í‚Š‚Á‚Ä‚­‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚Ė‚ŁB
 ‚Í‚ĸ‚í‚Ŋ‚ĩ‚ׂ͍Š‚ĸ‚Æ‚ą‚ë‚Ēƒ_ƒ‚Å‚ˇ‚ˁu.v‚Æ‚Šu,v‚Æ‚Š
 ‚ģ‚¤‚ĸ‚¤ą×‚Ė‚Æ‚ą‚ë‚đ‹C‚đ‚‚¯‚Č‚¯‚ę‚΁@_Y(Ĩ‚–Ĩš)

 ‚ą‚ę‚Å’lƒNƒŠƒA‚͈ę‹æØ‚č‚ÅOK‚Å‚ˇ‚ŠH

 Sub test8()
    Dim NO As Long
    Dim ŒŽ As Long
    Dim i As Long
    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ As Worksheet

    Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ = Worksheets("Sheet6")

    Call ŒŽ•Ę’líœ

    'WŒv.Range("E3:M6").ClearContents

    For i = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row

           NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)

              If IsNumeric(NO) Then
                  If IsNumeric(ŒŽ) Then
                      WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                  End If
              End If
    Next i
 End Sub
i‚ā‚Ũ‚ļâj 2014/09/18(–Ø) 19:50

 „‚ą‚ę‚Å’lƒNƒŠƒA‚͈ę‹æØ‚č‚ÅOK‚Å‚ˇ‚ŠH
 ‚Ļ‚Á‚ƁA’lƒNƒŠƒA‚ˇ‚é‚Æ‚ą‚ë‚Í‚Į‚ą‚Å‚ˇ‚ŠH
 @
iHANAj 2014/09/18(–Ø) 22:09

 ‚ ‚ˇ‚Ũ‚Ü‚š‚ņB@call@‚đŽg‚Á‚Ä
 Ÿ‚Ė‚Æ‚ą‚ë‚É“ü‚ę‚Ü‚ĩ‚ŊB

 ƒR[ƒhŽĀs‚ĩ‚Ä‚āB‚ŋ‚á‚ņ‚Æ—~‚ĩ‚ĸŒ‹‰Ę‚É‚Č‚Á‚Ä‚Ü‚ˇ@O[O
 Ą‚Ė‚Æ‚ą‚ë@BBB@(*L-M*)U ƒ|ƒŠƒ|ƒŠ

 Sub test8()
    Dim NO As Long
    Dim ŒŽ As Long
    Dim i As Long
    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ As Worksheet
    Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ = Worksheets("Sheet6")

    Call ŒŽ•Ę’lƒNƒŠƒA@fŸ

    'WŒv.Range("E3:M6").ClearContents
    For i = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row
           NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)
              If IsNumeric(NO) Then
                  If IsNumeric(ŒŽ) Then
                      WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                  End If
              End If
    Next i
 End Sub

 Sub ŒŽ•Ę’lƒNƒŠƒA()

  Dim NO As Long
  Dim ŒŽ As Long
  Dim WŒv As Worksheet

  Set WŒv = Worksheets("Sheet5")

  'NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
  NO = WŒv.Range("A3").End(xlDown).Row
  ŒŽ = WŒv.Range("E2").End(xlToRight).Column

   '”͈́@E3`H6
    WŒv.Range(WŒv.Cells(NO, 5), WŒv.Cells(3, ŒŽ)).ClearContents
    'WŒv.Cells(NO, ŒŽ).ClearContents

 End Sub

i‚ā‚Ũ‚ļâj 2014/09/18(–Ø) 23:40


 „WŒv.Range(WŒv.Cells(NO, 5), WŒv.Cells(3, ŒŽ)).ClearContents
 ‚Ė‹Lq‚Í‚ĸ‚Š‚Ē‚Č‚ā‚Ė‚Š‚ÆŒž‚Á‚Ä‚ĸ‚é‚Ė‚Å‚ˇ‚ĒB
 @
iHANAj 2014/09/18(–Ø) 23:45

 „ ‚Ė‹Lq‚Í‚ĸ‚Š‚Ē‚Č‚ā‚Ė‚Š‚ÆŒž‚Á‚Ä‚ĸ‚é‚Ė‚Å‚ˇ‚ĒB

 Žg‚¤‚Æ•s“s‡‚Ēļ‚ļ‚é‚ņ‚Å‚ˇ‚ŠH

 „ „    WŒv.Range(Cells(NO, 5), Cells(3, ŒŽ)).ClearContents
 „ ‚Æ‚ĩ‚Ä‚ĸ‚é‚Ė‚Č‚įi‚Ü‚Ÿ‚ģ‚Ė——R‚Í’m‚č‚Ŋ‚ĸ‚Æ‚ą‚ë‚Å‚ˇ‚Ēj—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚Ē
 „ uƒeƒLƒg[‚É“–‚Ă͂߂āA‚Č‚ņ‚Æ‚Č‚­‚¤‚Ü‚­‚ĸ‚Á‚Ŋ‚Š‚į@Œ‹‰ĘƒI[ƒ‰ƒCv
 „ ‚ž‚Æ‚ĩ‚Ŋ‚įA—Į‚ĸ‚Æ‚ÍŽv‚Ļ‚Ü‚š‚ņB

 ‚Ə‘‚ĸ‚Ä‚ ‚Á‚Ŋ‚Ė‚ŁA‚ĸ‚ĸ‚Ė‚Š‚Č‚ÆBBB

 FOR NEXT ‚Ė‚Ų‚¤‚Ē‚ĸ‚ĸ‚Å‚ˇ‚ŠH

 „‚ą‚Ė•”•Ē‚Ē@Cells(› ,ĸ)@‚Ė—l‚É•Ī”‚Å•Ī‰ģ‚ˇ‚é—l‚É‚ĩ‚Ü‚ˇB

 ‚ą‚ą‚į‚Ö‚ņ‚đƒ`ƒƒƒŒƒ“ƒW‚ĩ‚Ŋ•û‚Ē•×‹­‚É‚Č‚č‚Ü‚ˇ‚ŠH
 ‚â‚č•û‚Í‘Ŋ•Ē‚Ŋ‚­‚ŗ‚ņ‚ ‚é‚ÆŽv‚ĸ‚Ü‚ˇB

i‚ā‚Ũ‚ļâj 2014/09/19(‹ā) 17:14


 „‚ą‚ą‚į‚Ö‚ņ‚đƒ`ƒƒƒŒƒ“ƒW‚ĩ‚Ŋ•û‚Ē•×‹­‚É‚Č‚č‚Ü‚ˇ‚ŠH
 „‚â‚č•û‚Í‘Ŋ•Ē‚Ŋ‚­‚ŗ‚ņ‚ ‚é‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚ĸ‚âA•Ę‚Ė•û–@‚đl‚Ļ‚Ä‚Ų‚ĩ‚ĸ‚킯‚ļ‚á‚Č‚ĸ‚Å‚ˇB

 „Range("E3", "H6").Select
 ‚Ė—l‚ɏ‘‚ĸ‚Ä‚Ų‚ĩ‚ĸ‚Å‚ˇB

 ‚Å‚ˇ‚Š‚į
 @WŒv.Cells(NO, 5) ‚ĒuE3v
 @WŒv.Cells(3, ŒŽ) ‚ĒuH6v
 ‚É‚Č‚é‚Š‚Į‚¤‚ŠŠm”F‚ĩ‚Ä‚­‚ž‚ŗ‚ĸB 

 2014/09/08(ŒŽ) 08:39‚Š‚įA‚ĒŠÖ˜A‚Ė•”•Ē‚Å‚ˇB
 @
iHANAj 2014/09/19(‹ā) 18:26

 @WŒv.Cells(NO, 5) ‚ĒuE3v
 @WŒv.Cells(3, ŒŽ) ‚ĒuH6v

 ‚É‚Č‚į‚Č‚ĸ‚Å‚ˇB

 @WŒv.Cells(NO, 5) ‚ĒuE6v  
 @WŒv.Cells(3, ŒŽ) ‚ĒuH3v

 ‚É‚Č‚Á‚Ä‚Ü‚ˇB

 WŒv.Range(WŒv.Cells(NO, 5), WŒv.Cells(3, ŒŽ)).ClearContents
 ‚ą‚ĖŒ`‚đ@Ģ@
 „ „Range("E3", "H6").Select@ ‚Ė—l‚ɏ‘‚ĸ‚Ä‚Ų‚ĩ‚ĸ‚Å‚ˇB
 ‚ą‚ĖŒ`‚É•Ī‚Ļ‚é‚Ä‚ĸ‚¤‚ą‚Æ‚Å‚ˇ‚ŠH

 ‚ģ‚ę‚Æ‚ā‚Ü‚ž“r’†‚ž‚Š‚į‚Ü‚žo”Ô‚Å‚Í‚Č‚ĸ‚ƈĶ–Ą‚Å‚ˇ‚ŠH

 —‰đ‚ĒˆĢ‚­‚Ä‚ˇ‚Ũ‚Ü‚š‚ņ@(LہMill)

@WŒv.Cells(NO, 5) ‚ĒuE3v

  WŒv.Cells(3, ŒŽ) ‚ĒuH6v

 ‚ą‚ĖŒ‹‰Ę‚É‚Č‚é‚É‚Í

@WŒv.Cells(3, 5) ‚ĒuE3v

  WŒv.Cells(NO, ŒŽ) ‚ĒuH6

 ‚É•Ī‚Ļ‚Č‚ĸ‚ƁBBBB

i‚ā‚Ũ‚ļâj 2014/09/19(‹ā) 20:10


 „WŒv.Cells(3, 5) ‚ĒuE3v 
 „WŒv.Cells(NO, ŒŽ) ‚ĒuH6v
 ‚Å‚ˇ‚Š‚į
 Range("E3", "H6")
       ~Ē~  ~Ē~
        b   WŒv.Cells(NO, ŒŽ)
       WŒv.Cells(3, 5)
 ‚‚܂č
 Range(WŒv.Cells(3, 5), WŒv.Cells(NO, ŒŽ))
       ~~~~~~~E3~~~~~~~@~~~~~~~~H6~~~~~~~~
 ‚Ė—l‚ɏ‘‚ĸ‚Ä‚ā‚į‚ĸ‚Ŋ‚Š‚Á‚Ŋ‚Ė‚Å‚ˇ‚ĒA‚í‚Š‚Á‚Ä‚ā‚į‚Ļ‚Ü‚ˇ‚ŠH

 ‚ ‚­‚Ü‚Å‚ā@E3‚Š‚įA—ņ‚ĖÅŒã‚Ės‚Å2s–Ú‚ĖÅŒã‚Ė—ņ@‚ĖƒZƒ‹@‚ÆŒž‚¤l‚Ļ•û‚Å‚ˇB

 ã‚ŁuĄ‰ņ‚ģ‚ę‚đ‚í‚Š‚Á‚Ä‚ĸ‚ā``‚Æ‚ĩ‚Ä‚ĸ‚é‚Ė‚Č‚įi‚Ü‚Ÿ‚ģ‚Ė——R‚Í’m‚č‚Ŋ‚ĸ‚Æ‚ą‚ë‚Å‚ˇ‚Ēj—Į‚ĸv‚Ə‘‚Ģ‚Ü‚ĩ‚Ŋ‚Ē
 ‚ģ‚Ė——R‚Æ‚ĩ‚Ä
 @A—ņ‚ĖÅŒã‚Ės‚ÅH—ņ‚ĖƒZƒ‹@‚Š‚į@3s‚Å2s–Ú‚ĖÅŒã‚Ė—ņ@‚ĖƒZƒ‹
 ‚ƍl‚Ļ‚Ä‚ĸ‚é‚Æ‚ĸ‚í‚ę‚ę‚΁Al‚Ļ‚Ŋ’Ę‚č‚ĖƒR[ƒh‚Č‚Ė‚Å—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚Å‚ˇ‚ĒA‚Į‚ŋ‚į‚Š‚Æ‚ĸ‚¤‚Æ
 uƒeƒLƒg[‚É“–‚Ă͂߂āA‚Č‚ņ‚Æ‚Č‚­‚¤‚Ü‚­‚ĸ‚Á‚Ŋ‚Š‚į@Œ‹‰ĘƒI[ƒ‰ƒCv
 ‚ĖƒŒƒxƒ‹‚ž‚ÆŽv‚ĸ‚Ü‚ĩ‚ŊB

 EE3‚Š‚įA—ņ‚ĖÅŒã‚Ės‚Å2s–Ú‚ĖÅŒã‚Ė—ņ@‚ĖƒZƒ‹@
 EA—ņ‚ĖÅŒã‚Ės‚ÅH—ņ‚ĖƒZƒ‹@‚Š‚į@3s‚Å2s–Ú‚ĖÅŒã‚Ė—ņ@‚ĖƒZƒ‹
 ˆá‚ĸ‚Ē•Ē‚Š‚Á‚Ä‚ā‚į‚Ļ‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/09/19(‹ā) 23:21

 „‚Ė—l‚ɏ‘‚ĸ‚Ä‚ā‚į‚ĸ‚Ŋ‚Š‚Á‚Ŋ‚Ė‚Å‚ˇ‚ĒA‚í‚Š‚Á‚Ä‚ā‚į‚Ļ‚Ü‚ˇ‚ŠH
 ‚Č‚é‚Ų‚ĮA‚ˇ‚Ũ‚Ü‚š‚ņB
 Ž„‚Í‚ģ‚Ė‘‚Ģ•ûŽŠ‘Ė‚Ē@ƒ_ƒ‚ž‚ÆŠ¨ˆá‚ĸ‚Ļ‚ĩ‚Ä‚Ü‚ĩ‚Ŋ@OOGG

 „ˆá‚ĸ‚Ē•Ē‚Š‚Á‚Ä‚ā‚į‚Ļ‚Ü‚ˇ‚ŠH

 ‚¤[‚ņ‚Ɓ@ƒCƒ[ƒW‚Å‚ĸ‚ĸ‚Ü‚ˇ‚ƁA

 „Range(WŒv.Cells(3, 5), WŒv.Cells(NO, ŒŽ))
 —~‚ĩ‚ĸŒ‹‰Ę‚Ė”͈͂ž‚¯‚đŽĀs‚ˇ‚é@

 „WŒv.Range(Cells(NO, 5), Cells(3, ŒŽ)).ClearContents
 Šņ‚č“š‚ĩ‚Ä‚Š‚įA—~‚ĩ‚ĸŒ‹‰Ę‚Ė”͈͂ž‚¯‚đŽĀs‚ˇ‚邯‚Į

 ‚Æ‚ĸ‚Á‚ŊŠ´‚ļ‚Å‚ĩ‚傤‚ŠH
 Œž—t‚Őā–ž‚ˇ‚é‚Ė‚Í“ī‚ĩ‚ĸ‚Å‚ˇ‚ĒBBBB

i‚ā‚Ũ‚ļâj 2014/09/22(ŒŽ) 19:05


 „Ž„‚Í‚ģ‚Ė‘‚Ģ•ûŽŠ‘Ė‚Ē@ƒ_ƒ‚ž‚ÆŠ¨ˆá‚ĸ‚Ļ‚ĩ‚Ä‚Ü‚ĩ‚Ŋ@OOGG
 ƒ_ƒ‚ž‚Á‚ŊŽž‚ɁA‰Ŋ‚Ēƒ_ƒ‚ž‚Á‚Ŋ‚Ė‚Š@Šm”F‚ĩ‚Ä‚­‚ž‚ŗ‚ĸB

 ‚¤‚Ü‚­‚ĸ‚Š‚Č‚ĸƒR[ƒh‚đA‚ˇ‚Ž‚É”jŠü‚ĩ‚Ä‚ĩ‚Ü‚Á‚Ä
 ‚Ü‚Á‚Ŋ‚­•Ę‚ĖƒR[ƒh‚đė‚Á‚Ä‚Ũ‚Ä
 u‚Č‚ņ‚Æ‚Č‚­‚¤‚Ü‚­‚ĸ‚Á‚Ŋ‚Š‚įA‚Å‚Ģ‚Ŋv‚Å‚Í
 ‚ĸ‚‚܂łŊ‚Á‚Ä‚ā‚Å‚Ģ‚é—l‚É‚Í‚Č‚į‚Č‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 „``‚Æ‚ĸ‚Á‚ŊŠ´‚ļ‚Å‚ĩ‚傤‚ŠH
 ‚ā‚¤ˆę“xAŽ„‚Ē‘‚ĸ‚ŊŽ–‚đ“Į‚Ũ’ŧ‚ĩ‚Ä‚ā‚į‚Ļ‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/09/22(ŒŽ) 23:30

 ”͈͂Ē‘‚­‚Ɓ@Œž‚¤@ˆĶ–Ą‚Å‚ĩ‚傤‚ŠH

 „EE3‚Š‚įA—ņ‚ĖÅŒã‚Ės‚Å2s–Ú‚ĖÅŒã‚Ė—ņ@‚ĖƒZƒ‹@
 @@E6@‚Ɓ@H3
@

 „ EA—ņ‚ĖÅŒã‚Ės‚ÅH—ņ‚ĖƒZƒ‹@‚Š‚į@3s‚Å2s–Ú‚ĖÅŒã‚Ė—ņ@‚ĖƒZƒ‹
 @@H6@‚Ɓ@H3

 „ ˆá‚ĸ‚Ē•Ē‚Š‚Á‚Ä‚ā‚į‚Ļ‚Ü‚ˇ‚ŠH

 ‚Å‚ĩ‚傤‚ŠH
i‚ā‚Ũ‚ļâj 2014/09/23(‰Î) 22:48

 ‚Å‚ˇ‚ˁB

 „A—ņ‚É6s–ڂ܂Ńf[ƒ^‚Ē‚ ‚Á‚āA2s–Ú‚É8—ņ–ڂ܂Ńf[ƒ^‚Ē‚ ‚Á‚Ŋ‚į
 „E3:H6@‚Ė”͈͂ĖƒZƒ‹‚Ė’l‚đƒNƒŠƒA‚ˇ‚é•K—v‚Ē‚ ‚č‚Ü‚ˇB
 „
 „A—ņ‚É10s–ڂ܂Ńf[ƒ^‚Ē‚ ‚Á‚āA2s–Ú‚É12—ņ–ڂ܂Ńf[ƒ^‚Ē‚ ‚Á‚Ŋ‚į
 „E3:L10@‚Ė”͈͂ĖƒZƒ‹‚Ė’l‚đƒNƒŠƒA‚ˇ‚é•K—v‚Ē‚ ‚č‚Ü‚ˇB
 „
 „‚ą‚¤l‚Ļ‚é‚ƁAŽn“_‚Í•Ī‚í‚į‚¸@I“_‚Ē•Ī‚í‚č‚Ü‚ˇ‚æ‚ˁH
 ‚Ė—l‚ɍl‚Ļ‚Ü‚š‚ņ‚ŠH 

 ‚â‚č‚Ŋ‚ĸ‚ą‚Æ‚Ē‚ ‚Á‚ŊŽž‚É
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_cell.html
 ‚Ė—l‚Č“ü–åƒy[ƒW‚đŒŠ‚ÄA‚Ü‚¸‚Í“y‘ä‚đė‚Á‚ĉē‚ŗ‚ĸB

 Range("E3", "H6").Select
 ‚Ə‘‚¯‚΁AE3:H6 ‚Ė”͈͂Ē‘I‘đo—ˆ‚Ü‚ˇ‚æ‚ˁB

 ‚ģ‚¤‚ˇ‚é‚‚ā‚č‚Å
 Range(WŒv.Cells(3, 5), WŒv.Cells(NO, ŒŽ)).Select
 ‚Ə‘‚ĸ‚Ä‚¤‚Ü‚­‚ĸ‚Š‚Č‚Š‚Á‚Ŋę‡AFX‚ȏķ‹ĩ‚͍l‚Ļ‚į‚ę‚Ü‚ˇ‚Ē
 „Range("E3", "H6").Select
 ‚Ə‘‚¯‚ΗĮ‚ĸŽ–‚Í–ž‚į‚Š‚Č‚Ė‚Å
 @Cells(3, 5)@¨ E3‚ĖŽ–‚É‚Č‚Á‚Ä‹‚Č‚ĸ
 @Cells(NO, ŒŽ)¨ H6‚ĖŽ–‚É‚Č‚Á‚Ä‹‚Č‚ĸ
 Ž–‚đ‹^‚Á‚Ä‚­‚ž‚ŗ‚ĸB

 ƒ_ƒ‚ž‚ÆŽv‚Á‚āA”jŠü‚ĩ‚ā@V‚ĩ‚ĸ•û–@‚đ’T‚ˇ‚Ė‚Å‚Í
 ‚ĸ‚‚܂łŊ‚Á‚Ä‚āu‚Į‚ą‚Ēƒ_ƒ‚ž‚Á‚Ŋ‚Ė‚Šv‚í‚Š‚į‚Č‚ĸ‚Ü‚Ü‚É‚Č‚Á‚Ä‚ĩ‚Ü‚ĸ‚Ü‚ˇB
 Ą‰ņ‚Ė—l‚Ɂu‚ģ‚Ė‹Lq‚̓_ƒ‚ž‚ÆŽv‚Á‚Ä‚ĸ‚Ŋv‚ÆŠÔˆá‚Á‚ŊŒ‹˜_‚đo‚ĩ‚Ä‚ĩ‚Ü‚Á‚Ŋ‚į
 ĄŒã‚É‚Æ‚Ä‚ā‰e‹ŋ‚ĩ‚Ä—ˆ‚Ä‚ĩ‚Ü‚¤‚ÆŽv‚ĸ‚Ü‚ˇB
 @
iHANAj 2014/09/23(‰Î) 23:36

 „Ž–‚đ‹^‚Á‚Ä‚­‚ž‚ŗ‚ĸB

 @‚Č‚é‚Ų‚Į‚ģ‚¤‚ĸ‚¤‚ą‚Æ‚Č‚ņ‚Å‚ˇ‚ˁ@(*Lƒm„DM)

 „u‚Č‚ņ‚Æ‚Č‚­‚¤‚Ü‚­‚ĸ‚Á‚Ŋ‚Š‚įA‚Å‚Ģ‚Ŋv‚Å‚Í

 @Ž„‚Í‚Ü‚ž‚ą‚Ė‹æˆæ‚Š‚į”˛‚¯o‚ĩ‚Ä‚Č‚ĸ‚悤‚Å‚ˇ‚Ë
 @‹C‚đ‚‚¯‚˂΁@BBB

i‚ā‚Ũ‚ļâj 2014/09/23(‰Î) 23:46


 ‚ą‚ę‚Ł@’lƒNƒŠƒA@‚͈ę’i—Ž‚Å‚ĩ‚傤‚ŠH

 —~‚ĩ‚ĸŒ‹‰Ę‚͂΂Á‚ŋ‚č‚Å‚ˇ@_Y(Ĩ‚–Ĩš)

i‚ā‚Ũ‚ļâj 2014/09/24(…) 20:09


 ’lƒNƒŠƒA‚āˆę’i—Ž‚Å‚ˇB

 ĄŒã‚ĖŽ–‚āl‚Ļ‚āAĄ‰ņ‚́@“¯‚ļsub‚Ė’†‚É“ü‚ę‚Ä‚ā‚į‚Ļ‚é‚Æ—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 @@•Ī”‚ĖéŒž‚Ēd•Ą‚ˇ‚é‚Š‚įA•Ę‚ĖƒvƒƒV[ƒWƒƒi•Ę‚Ėsub››j‚É‚ĩ‚Ŋ‚Ė‚Š‚ȁH
 @@‚Æ‚ŠŽv‚Á‚Ä‚Ü‚ˇ‚ĒB

 ‚ģ‚ĩ‚Ŋ‚įA”ԍ†‚Ēˆę’v‚ˇ‚é‚ā‚Ė‚Ė‡Œv‚đo‚ˇƒR[ƒh‚đl‚Ļ‚Ä‚Ũ‚Ü‚ˇ‚ŠH
 @
iHANAj 2014/09/24(…) 20:56

 „ĄŒã‚ĖŽ–‚āl‚Ļ‚āAĄ‰ņ‚́@“¯‚ļsub‚Ė’†‚É“ü‚ę‚Ä‚ā‚į‚Ļ‚é‚Æ—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 “ü‚ę‚Ä‚¨‚Ģ‚Ü‚ˇB

 •Ę‚É‚ĩ‚Ŋ‚Ė‚́@A@Šm”F‚ĩ‚₡‚ĸ‚ÆŽv‚Á‚Ŋ‚Š‚į‚Å‚ˇB

 „ ‚ģ‚ĩ‚Ŋ‚įA”ԍ†‚Ēˆę’v‚ˇ‚é‚ā‚Ė‚Ė‡Œv‚đo‚ˇƒR[ƒh‚đl‚Ļ‚Ä‚Ũ‚Ü‚ˇ‚ŠH
 ‚ĸ‚ĻA‚ą‚ę‚Æˆę‚É‚ˇ‚é‚Æ”ņí‚ÉŒŠ‚Âį‚ĸ‚ą‚Æ‚Ē”ģ–ž‚ĩ‚Ü‚ĩ‚ŊB

 ‚Č‚ē‚Š‚ĸ‚ĸ‚Ü‚ˇ‚Æ

 ¤•iNO@‚́@50@ŒÂ‚Ž‚į‚ĸ‚ŁB
 ˆęŒÂ‚ĖTEL”ԍ†@‚ÅŽg—p‚ĩ‚Ä‚é‚Ė‚́@‚ž‚ĸ‚Ŋ‚ĸ@10`15¤•i‚Ž‚į‚ĸ‚Č‚ņ‚Å‚ˇB
 ˆķü‚ˇ‚é‚Æ‚Ģ‚āŒŠ‚É‚­‚ĸ‚Å‚ˇ(*Lƒm„DM)

 ‚ģ‚ą‚Ė‚Æ‚ą‚ë‚đ–Ā‚Á‚Ä‚Ü‚ˇB
 ‚Č‚É‚Š‚ĸ‚ĸˆÄ‚ ‚č‚Ü‚ĩ‚Ŋ‚įŽQl‚ɐĨ”ņ‹ŗ‚Ļ‚Ä‚­‚ž‚ŗ‚ĸ@(*L-M*)U ƒ|ƒŠƒ|ƒŠ

 Ą‚Ė‚Æ‚ą‚ë“ņ’Ę‚č‚Ė‚â‚č•û‚đŒŠ‚Â‚¯‚Ä
 ‚ģ‚Ė‚Ų‚¤‚ĒŒŠ‚₡‚ĸ‚Å‚Í‚Č‚Š‚ÆŽv‚Á‚Ä‚Ü‚ˇB

 1.ƒ_ƒu‚į‚Č‚ĸ€–Ú‚đƒ\[ƒg‚ĩ‚ā@Ë@‘‚Ģo‚ˇ@Ë@ŒŽ•ĘŒvŽZ‚ˇ‚éB
 2.Adictionary‚đŽg‚Á‚ā@ƒ_ƒuƒ‹‚į‚Č‚ĸ€–ڏ‘‚Ģo‚ˇ@Ë@ŒŽ•ĘŒvŽZ‚ˇ‚éB

i‚ā‚Ũ‚ļâj 2014/09/24(…) 22:29


 ‚ņH
 ‚ŋ‚å‚Á‚Æ‚æ‚­‚í‚Š‚į‚Č‚ĸ‚Å‚ˇB

 WŒv•û–@‚đ•Ī‚Ļ‚é@‚Á‚ÄŽ–‚Å‚ˇ‚ŠH
 Ą‚Ė•\‚Ƃ́A•Ę‚Ė‚¨˜bH
 @
iHANAj 2014/09/25(–Ø) 09:25

 „WŒv•û–@‚đ•Ī‚Ļ‚é@‚Á‚ÄŽ–‚Å‚ˇ‚ŠHĄ‚Ė•\‚Ƃ́A•Ę‚Ė‚¨˜bH

 ‚Í‚ĸ‚ģ‚¤‚Å‚ˇB

 Ą‚Ė•\‚Å‚ˇ‚Æ‚ĸ‚į‚Č‚ĸ‚ā‚Ė‚Ē‘Ŋ‚ĸ‚Å‚ˇB
 •Ę‚Ė•\‚đė‚Á‚Ŋ•û‚ĒŒŠ‚₡‚ĸ‚Š‚ȁH‚ƁBBB

 ‚Č‚Ė‚ŁAæ‚É
 Adictionary‚đ‚Å‚Ģ‚ę‚΂Ǝv‚ĸ‚Ü‚ˇ@(*ßÅ߁G*)

i‚ā‚Ũ‚ļâj 2014/09/25(–Ø) 09:40


 ‚ļ‚á‚ Aæ‚ÉŒ‹‰Ę}‚đŒˆ‚ß‚Ä‚ā‚į‚¤‚Ė‚Ē—Į‚ĸ‚Ė‚Š‚ȁH
 ’Pƒ‚É‚ ‚é‚ā‚Ė‚ž‚¯‚Å NO–ˆETEL–ˆEŒŽ–ˆ@‚ŏWŒvo—ˆ‚ę‚ΗĮ‚ĸ‚Ė‚ŠH

 	[A]	[B]	[C]	[D]	[E]	[F]	[G]	[H]	[I]	[J]
[1]										
[2]	NO	“ú•t	TEL	EE	NO	EE	’P‰ŋ	‚ƒ‚“	‚‚ƒ	‹āŠz
[3]	140101	1/1	8768		A02					10
[4]	140101	1/2	8768		A02					20
[5]	140101	1/5	8768		A03					30
[6]	140101	2/5	2913		A02					40
[7]	140102	2/5	2913		A02					50
[8]	140102	2/6	2913		A04					60
[9]	140102	3/5	2913		A02					70

	[A]	[B]	[C]	[D]	[E]	[F]				
[1]										
[2]	NO	EE	TEL	1ŒŽ	2ŒŽ	3ŒŽ				
[3]	A02		2913		90	70				
[4]	A02		8768	30						
[5]	A03		8768	30						
[6]	A04		2913		60					
 @
iHANAj 2014/09/25(–Ø) 11:17

 ƒf[ƒ^[‚Í•Ē‚Š‚č‚₡‚ĸ‚悤“ā—e‚đ‚Š‚Ļ‚Ü‚ĩ‚ŊB

 ŸŒŗƒf[ƒ^[

 	[a]	[b]	@@@@[c]	[d]	[e]	[f]	[g]	[h]	[g]	[h]	[g]
 [1]	‘—ŪNO	“ú•t	@@@@TEL		NO			’P‰ŋ	‚ƒ‚“	‚‚ƒ	‹āŠz
 [2]	140124 	2014”N1ŒŽ5“ú	8768 		A02					10 	
 [3]	140124 	2014”N1ŒŽ5“ú	8768 		A02					20 	
 [4]	140124 	2014”N1ŒŽ5“ú	8768 		A15					30 	
 [5]	140124 	2014”N1ŒŽ5“ú	8768 		A03					40 	
 [6]	140124 	2014”N3ŒŽ5“ú	8768 		A03					50 	
 [7]	140124 	2014”N3ŒŽ5“ú	8768 		A12					60 	
 [8]	140124 	2014”N3ŒŽ5“ú	8768 		A10					70 	

 ŸWŒvƒV[ƒg [—~‚ĩ‚ĸŒ‹‰Ę]@•K—v‚ČNO‚Ė‚Ũ•\ŽĻ‚ŗ‚š‚ā@ŒŽ•Ę‚ÉŒvŽZ‚ˇ‚é

 	[a]	[b]	@@@@[c]	[d]	[e]	[f]	[g]	[h]
 [1]	NO	¤•i–ŧ‘O	ŒÂ”	–ŧĖ	1 ŒŽ	2 ŒŽ	3 ŒŽ	4 ŒŽ
 [2]	A02				@@@@30 			
 [3]	A03				@@@@40 		50 	
 [4]	A10						@@@@70 	
 [5]	A12						@@@@60 	
 [6]	A15				@@@@30 			

i‚ā‚Ũ‚ļâj 2014/09/26(‹ā) 16:28


 TEL”ԍ†‚Ė˜b‚Í‚Į‚¤‚Č‚Á‚Ŋ‚Ė‚Å‚ˇ‚ŠH

 „WŒvƒV[ƒg [—~‚ĩ‚ĸŒ‹‰Ę]@•K—v‚ČNO‚Ė‚Ũ•\ŽĻ‚ŗ‚š‚ā@ŒŽ•Ę‚ÉŒvŽZ‚ˇ‚é

 Ą‚܂ł́AWŒvƒV[ƒg‚ÉNO‚ĒŽ–‘O‚É“ü—Í‚ŗ‚ę‚Ä‚ĸ‚Ŋ‚Ē
 ‚ģ‚ę‚đ‚â‚ß‚é‚Š‚įAƒf[ƒ^ƒV[ƒg‚Š‚įd•Ą‚Č‚­”˛‚Ģo‚ˇė‹Æ‚Ē•K—v‚É‚Č‚é
 ‚Á‚ÄŽ–‚Å‚ˇ‚ŠH

 ‚Į‚ą‚Š‚Ė—ņ‚ɁA”NŠÔ‚Ė‡Œv‚đo‚ˇ‚ą‚Æ‚É‚ĩ‚Ä
 ƒI[ƒgƒtƒBƒ‹ƒ^‚Å”ņ•\ŽĻ‚É‚ĩ‚Ä‚ā—Į‚ŗ‚ģ‚¤‚ÉŽv‚Ļ‚Ü‚ˇ‚ĒB
 @
iHANAj 2014/09/26(‹ā) 16:52

 d•Ą‚đ‚Č‚­‚ˇƒŠƒXƒg‚đė‚é•û–@‚Æ‚ĩ‚Ä
 @EƒtƒBƒ‹ƒ^‚ĖÚ×Ũ’č‚ŏd•Ą‚đœ‚­
 @Eˆęs‚¸‚ˆ—‚ĩ‚Č‚Ē‚įA‚Ü‚žo‚Ä‚Ģ‚Ä‚ĸ‚Č‚ĸƒf[ƒ^‚Ėę‡“o˜^‚ĩ‚Ä‚ĸ‚­
 @@@‚Ŋ‚Æ‚Ļ‚΁A¸‡‚É•Ā‚ׂā@ã‚Ėƒf[ƒ^‚ƈá‚Á‚Ŋ‚įV‚ĩ‚ĸƒf[ƒ^‚Č‚Ė‚Å“o˜^‚ˇ‚é
 “™‚ ‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒADictionaly‚ā‚â‚Á‚Ä‚Ũ‚į‚ę‚é‚Æ—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 ˆČ‘OAuDictionary‚͏WŒv‚đ‚ˇ‚é‚ā‚Ė‚Å‚Í‚Č‚ĸv‚Ə‘‚Ģ‚Ü‚ĩ‚Ŋ‚ĒŠo‚Ļ‚Ä‚ĸ‚Ü‚ˇ‚ŠH

 ĄAWŒv‚ˇ‚éƒ}ƒNƒ‚đė‚č‚Ü‚ĩ‚Ŋ‚æ‚ˁH
 ‚ł́Auƒ}ƒNƒ‚͏WŒv‚đ‚ˇ‚é‚ā‚Ė‚ŠHv‚Æ•ˇ‚Š‚ę‚é‚ƁA
 u‚â‚č•û‚É‚æ‚Á‚Ă͏WŒv‚ā‚Å‚Ģ‚邯‚ĮAWŒv‚ˇ‚é‚ā‚Ė‚Å‚Í‚Č‚ĸv‚Å‚ˇ‚æ‚ˁB
 Dictonary‚ā‚ģ‚ņ‚ČŠ´‚ļ‚ÅŽv‚Á‚Ä‚ā‚į‚Ļ‚é‚Æ—Į‚ĸ‚ņ‚ļ‚á‚Č‚ĸ‚Š‚ÆŽv‚ĸ‚Ü‚ˇB

 Dictonary‚́Aˆę‚‚ĖKey‚ɑ΂ĩ‚Ĉę‚‚ĖItem‚đ“o˜^‚Å‚Ģ‚é‚ā‚Ė‚Å‚ˇB
 ƒCƒ[ƒW‚Æ‚ĩ‚āi‚ ‚­‚Ü‚Å‚āƒCƒ[ƒW‚Å‚ˇj
         Key    Item
   [1]
   [2]
   [3]
   [4]

 ‚ą‚ņ‚ČŠ´‚ļ‚Ė2—ņ‚Ė•\‚đ‘z‘œ‚ĩ‚Ä‚Ũ‚Ä‚­‚ž‚ŗ‚ĸB
 ‚¨–ņ‘Š‚Æ‚ĩ‚āAKey‚Ė—ņ‚É“¯‚ļ’l‚đ“ü‚ę‚鎖‚Í‚Å‚Ģ‚Ü‚š‚ņB
 ‚Ü‚ŊAKey‚đ–â‚ĸ‡‚í‚š‚ˇ‚鎖‚ÅItem‚đŽQÆ‚ˇ‚鎖‚Ē‚Å‚Ģ‚Ü‚ˇB

 ‚Ŋ‚Æ‚Ļ‚΁A“o˜^ˆ—‚đĪ‚Ü‚š‚Ä Dictonary‚ÉˆČ‰ē‚Ė—l‚Čƒf[ƒ^‚Ē“ü‚Á‚Ä‚ĸ‚é‚Æ‚ĩ‚Ü‚ˇB
         Key    Item
   [1]  ƒŠƒ“ƒS  Ô
   [2]  ƒŒƒ‚ƒ“  ‰Š
   [3]  ƒƒƒ“  —Î
   [4]  ƒLƒEƒC  —Î

 uƒŠƒ“ƒSv‚đ–â‚ĸ‡‚í‚š‚é‚ƁuÔv
 uƒƒƒ“v‚đ–â‚ĸ‡‚í‚š‚é‚Ɓu—΁v
 ‚Æ•Ô‚Á‚Ä‚Ģ‚Ü‚ˇB

 VLOOKUPŠÖ”‚Ł@VLOOKUP("ƒŠƒ“ƒS",”͈Í,2,FALSE)@‚Ə‘‚­‚ƁuÔv‚Ē“ž‚į‚ę‚Ü‚ˇ‚Ē
 “¯‚ļ—l‚ČŽg‚ĸ•û‚Å‚ˇB
 @Item‚Ė’†‚É‚Í‚ĸ‚ë‚ņ‚Č‚ā‚Ė‚Ē“ü‚ę‚į‚ę‚Ŋ‚股‚é‚Ė‚Ł@‚ģ‚¤‚ĸ‚Á‚Ŋ“_‚͈Ų‚Č‚č‚Ü‚ˇ‚ĒB

 ‚Ü‚ŊA‚ą‚ę‚Š‚į“o˜^‚ĩ‚悤‚Æ‚ˇ‚éKey‚Ē‚ˇ‚Å‚É“o˜^‚ŗ‚ę‚Ä‚ĸ‚é‚Š‚Į‚¤‚Š@ŠČ’P‚ÉŠm”F‚Å‚Ģ‚Ü‚ˇB
 COUNTIFŠÖ”‚Ł@COUNTIF(”͈Í,"ƒŠƒ“ƒS")@‚ĖŒ‹‰Ę‚Ē0‚Å‚Č‚¯‚ę‚΁@“o˜^Ī‚Ũ‚Æ‚í‚Š‚č‚Ü‚ˇ‚Ē
 ‚ģ‚ņ‚ČŠ´‚ļ‚Å‚ˇB

 ‚Å‚ˇ‚Š‚įADictionary‚ÍŒˆ‚ĩ‚ā@WŒv‚Ē‚Å‚Ģ‚é–‚–@‚Ėƒc[ƒ‹@‚Å‚Í‚ ‚č‚Ü‚š‚ņB
 @E“o˜^‚ŗ‚ę‚Ä‚ĸ‚éKey‚Š‚Į‚¤‚ŠŠČ’P‚É‚í‚Š‚é
 @Eˆę‚‚ĖKey‚ɑ΂ĩ‚āAˆę‚‚ĖItem‚Ē“o˜^‚Å‚Ģ‚é
 @E‚ ‚éKey‚É“o˜^‚ŗ‚ę‚Ä‚ĸ‚éItem‚Ē‰Ŋ‚ŠAŠČ’P‚É‚í‚Š‚é
 ‚ģ‚ę‚ž‚¯‚Å‚ˇB

 ‚ŗ‚āADictionary‚đŽg‚¤‚É“–‚Ŋ‚Á‚ā@‰Ŋ‚ŠŽQl‚É‚ĩ‚Ä‚ĸ‚éƒy[ƒW“™‚ ‚č‚Ü‚ĩ‚Ŋ‚į
 ‹ŗ‚Ļ‚Ä‚ā‚į‚Ļ‚é‚Æ—Į‚ĸ‚Ė‚Å‚ˇ‚ĒB
 @
iHANAj 2014/09/26(‹ā) 23:38

 „ TEL”ԍ†‚Ė˜b‚Í‚Į‚¤‚Č‚Á‚Ŋ‚Ė‚Å‚ˇ‚ŠH
 ‚ Iƒ°ƒ°(߄tßlll)!@”˛‚¯‚Ä‚Ü‚ĩ‚ŊB
 B1@‚Ɂ@“ü—Í‚ĩ‚Ŋ@TEL@‚Ė@NO@‚Ė‚ŨŒŽ•Ę‡Œv‚Å‚ˇB

 	[a]	[b]	[c]	[d]	[e]	[f]	[g]	[h]
 [1]		8768						
 [2]	NO	¤•i–ŧ‘O	ŒÂ”	–ŧĖ	1 ŒŽ	2 ŒŽ	3 ŒŽ	4 ŒŽ
 [3]	A02				30 			
 [4]	A03				40 		50 	
 [5]	A10						70 	
 [6]	A12						60 	
 [7]	A15				30 			

 ŸŽQl‚ĩ‚Ä‚ĸ‚éƒy[ƒW
 d•Ą‚ĩ‚Č‚ĸ•i–ŧ‚ƌ”‚Ė‡Œv‚đŒvŽZ‚ĩ‚Ü‚ˇ
 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.html

 „‚Į‚ą‚Š‚Ė—ņ‚ɁA”NŠÔ‚Ė‡Œv‚đo‚ˇ‚ą‚Æ‚É‚ĩ‚ăI[ƒgƒtƒBƒ‹ƒ^‚Å”ņ•\ŽĻ‚É‚ĩ‚Ä‚ā—Į‚ŗ‚ģ‚¤‚ÉŽv‚Ļ‚Ü‚ˇ‚ĒB
 ‚ģ‚ę‚Í‚Į‚¤‚ĸ‚Á‚ŊŠ´‚ļ‚Å‚ˇ‚ŠH
 ‚â‚č•û‚Ē‚í‚Š‚į‚Č‚ĸ‚Ė‚ŁAŒvŽZ‚ĩ’ŧ‚ĩ‚ĩ‚ŠŽv‚ĸ‚‚Š‚Č‚Š‚Á‚Ŋ‚Å‚ˇB

 ˆę”Ô‚ĸ‚ĸ‚Ė‚́AĄ‚Ü‚Å‚Ė•\‚đŽg‚Á‚ÄŒvŽZ‚ĩ‚ŊŒã‚ɁB
 ‹ķ—“‚Ės‚đ”ņ•\ŽĻ‚ˇ‚é‚Ũ‚Ŋ‚ĸ‚Č‚Ė‚Å‚Ģ‚ę‚΁A
 ‚ā‚¤ˆę“xė‚č’ŧ‚ˇA‹ę˜J‚Í‚ĩ‚Č‚ĸ‚Å‚ˇ‚Ũ‚Ü‚ˇ‚Ē@(*ßÅ߁G*)

 Dictionary‚ÍŽ„‚É‚Æ‚Á‚Ä‚Í“ī‚ĩ‚­Š´‚ļ‚Ü‚ˇB
 IFŠÖ”‚đ@FOR`NEXT@ŠÖ”‚Ė‚悤‚Ɂ@Žg‚ĸŠĩ‚ę‚Č‚ĸ‚š‚ĸ‚Š‚ā‚Å‚ˇ‚Ē......

i‚ā‚Ũ‚ļâj 2014/09/27(“y) 09:43


 „„‚Į‚ą‚Š‚Ė—ņ‚ɁA”NŠÔ‚Ė‡Œv‚đo‚ˇ‚ą‚Æ‚É‚ĩ‚ăI[ƒgƒtƒBƒ‹ƒ^‚Å”ņ•\ŽĻ‚É‚ĩ‚Ä‚ā—Į‚ŗ‚ģ‚¤‚ÉŽv‚Ļ‚Ü‚ˇ‚ĒB
 „‚ģ‚ę‚Í‚Į‚¤‚ĸ‚Á‚ŊŠ´‚ļ‚Å‚ˇ‚ŠH
 „‚â‚č•û‚Ē‚í‚Š‚į‚Č‚ĸ‚Ė‚ŁAŒvŽZ‚ĩ’ŧ‚ĩ‚ĩ‚ŠŽv‚ĸ‚‚Š‚Č‚Š‚Á‚Ŋ‚Å‚ˇB
 ‚ģ‚ņ‚Č‘å‘w‚ČŽ–‚Å‚Í‚Č‚­BBB
 ‚Ŋ‚Æ‚Ļ‚΁AI—ņ‚É‚Å‚ā
 =SUM(E3:H3) ‚ĖŽŽ‚đ“ü‚ę‚Ä‚¨‚­‚Æ
 ƒf[ƒ^‚Ē–ŗ‚ĸs‚́u0v‚Ē•\ŽĻ‚ŗ‚ę‚Ü‚ˇB

 ƒI[ƒgƒtƒBƒ‹ƒ^‚Å0ˆČŠO‚Ės‚đ•\ŽĻ‚ŗ‚š‚Ŋ‚į
 Œ‹‰Ę‚Ē‚ ‚és‚ž‚¯•\ŽĻ‚ŗ‚ę‚é‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚š‚Á‚Š‚­ƒ}ƒNƒ‚ŏˆ—‚đ‚ĩ‚Ä‚ĸ‚é‚Ė‚ŁA
                  If IsNumeric(ŒŽ) Then
                      WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                  End If
 ‚ą‚ĖŽž‚ɁAˆę‚É ‡Œv—ņ‚É‚ā‘Ģ‚ĩŽZ‚ĩ‚Ä‚ĸ‚­—l‚É‚ĩ‚Ŋ‚į—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
                      WŒv.Cells(NO, "I") = WŒv.Cells(NO, "I")  + ƒf[ƒ^[.Cells(i, "j") 
 ‚Ũ‚Ŋ‚ĸ‚Č‚Ė‚đ’Į‰Á‚ĩ‚āB
 ‚ˇ‚é‚ƁAƒf[ƒ^‚Ē–ŗ‚Š‚Á‚Ŋs‚ĖI—ņ‚Í‹ķ—“‚É‚Č‚é‚Ė‚Ł@i‚荾‚ŪÛ‚āu‹ķ”’ˆČŠOv‚ĖŨ’č‚É‚Č‚č‚Ü‚ˇB

 „Dictionary‚ÍŽ„‚É‚Æ‚Á‚Ä‚Í“ī‚ĩ‚­Š´‚ļ‚Ü‚ˇB
 ‚Į‚¤‚ĸ‚¤‚ā‚Ė‚Š‚í‚Š‚į‚Č‚ĸ“ā‚́A‚ģ‚¤‚Š‚ā‚ĩ‚ę‚Ü‚š‚ņB
 Žč‚đ“Ž‚Š‚ĩ‚Ä‚Ũ‚é‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚Ė‚Å
 ŽQl‚É‚ĩ‚Ä‚¨‚į‚ę‚éƒy[ƒW‚Ėu•d•Ą‚ĩ‚Č‚ĸ•i–ŧ‚ƌ”‚Ė‡Œv‚đŒvŽZ‚ĩ‚Ü‚ˇv‚ĖƒR[ƒh‚Ė
 ƒf[ƒ^”͈́Eo—Í”ÍˆÍ‚Č‚Į‚đ•ĪX‚ĩ‚ā@‡ŒviŒŽ‚˛‚Æ‚Å‚Í‚Č‚­¤•i–ˆ‚Ė‘S‚Ä‚ĖŒŽ‚Ė‡Œvj‚đ‚ž‚ˇƒR[ƒh‚đ
 ‚‚­‚Á‚Ä‚Ũ‚į‚ę‚Ä‚Í‚Į‚¤‚Å‚ĩ‚傤B
 @@@@@@@
iHANAj 2014/09/27(“y) 15:21

 „ƒf[ƒ^‚Ē–ŗ‚ĸs‚́u0v‚Ē•\ŽĻ‚ŗ‚ę‚Ü‚ˇB
 ‚ Iƒ°ƒ°(߄tßlll)!@‚Č‚é‚Ų‚Į
 ‘S•”ŒŠ‚é•K—v‘S•”‚Ė—ņ‚đŽQÆ‚ˇ‚é•K—v‚Č‚ĸ‚Å‚ˇ‚ˁBBB

 ‚â‚Á‚Ä‚Ũ‚Ü‚ˇB

 „ ƒf[ƒ^”͈́Eo—Í”ÍˆÍ‚Č‚Į‚đ•ĪX‚ĩ‚ā@‡ŒviŒŽ‚˛‚Æ‚Å‚Í‚Č‚­¤•i–ˆ‚Ė‘S‚Ä‚ĖŒŽ‚Ė‡Œvj‚đ‚ž‚ˇƒR[ƒh‚đ
  ‚‚­‚Á‚Ä‚Ũ‚į‚ę‚Ä‚Í‚Į‚¤‚Å‚ĩ‚傤B

 ‚Í‚ĸ‚ł͏ã‚ĖI‚í‚Á‚Ŋ‚įƒ`ƒƒƒŒƒ“ƒW‚ĩ‚Ä‚Ũ‚Ü‚ˇB
 ƒAƒCƒeƒ€‚ƃL[‚Å–ĀŽq‚ĩ‚ģ‚¤‚Å‚ˇ‚ĒBBB

 3“ú‚Ž‚į‚ĸ—¯Žį‚É‚ĩ‚Ü‚ˇ‚Ė‚ŁA–ß‚Á‚Ŋ‚įƒ`ƒƒƒŒƒ“ƒW‚ĩ‚Ŋ‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 ­‚ĩ‚¨ŽžŠÔ‰ē‚ŗ‚ĸ@(LĄ✪ƒÖ✪ĄM)
i‚ā‚Ũ‚ļâj 2014/09/27(“y) 21:37

 iHANAj—l@‚¨‚Đ‚ŗ‚ĩ‚Ņ‚č‚Å‚ˇB
 3“ú‚Ė‚Í‚¸‚Ē‹A‚Ļ‚Ä‚­‚é‚Ė‚É1TŠÔ‚Š‚Š‚Á‚Ä‚ĩ‚Ü‚ĸ‚Ü‚ĩ‚Ŋ@(*Lƒm„DM)

 's‚đÄ•\ŽĻ‚ŗ‚š‚é
 '‹ķ—“‚Ės‚đ”ņ•\ŽĻ‚ŗ‚š‚é
 I—ņ‚Ė‡Œv‚đ@HANA@—l@‚Ė@Œž—t‚đŽQl‚ɁA’Į‰Á‚ĩ‚Ä‚Ũ‚Ü‚ĩ‚ŊB

 HiddenƒvƒƒpƒeƒB ‚͍s‚đ•\ŽĻ”ņ•\ŽĻ@‚đŨ’č‚Å‚Ģ‚é‚Ė‚Í•Ē‚Š‚č‚Ü‚ĩ‚Ŋ‚ĒA
 Cells.Select
 Selection.EntireRow.Hidden = False
 •\ŽĻ‚ˇ‚é‚ ‚Ƃ̓GƒNƒZƒ‹‘S‘Ė‚ɔ͈͂đŽQÆ‚ŗ‚ę‚Ä‚ĸ‚é‚Ŋ‚߁A
 Cells(1, 1).Select
 ‚đŽw’股‚é•K—v‚Ē‚ ‚é‚Ė‚Í•Ē‚Š‚č‚Ü‚ĩ‚ŊB

 s”ņ•\ŽĻ‚ˇ‚éÛ‚Ė
 Cells(s”ԍ†, 1).EntireRow.Hidden = True@@ ' š(? ?)
 ‚āŽ—‚Ŋ‚悤‚ČˆĶ–Ą‚Å‚ĩ‚傤‚ŠH

 ‚ą‚ņ‚ČŠ´‚ļ‚ĖƒR[ƒh‚Å‚ˇ‚ĒA
 ˆę‰ž—~‚ĩ‚ĸŒ‹‰Ę‚Í“ž‚į‚ę‚Ä‚ĸ‚Ü‚ˇ‚ĒA‚¨‚Š‚ĩ‚Č“_‚ ‚č‚Ü‚ˇ‚ŠH

 Sub test8()
    Dim NO As Long
    Dim ŒŽ As Long
    Dim i As Long
    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ As Worksheet

    Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ = Worksheets("Sheet6")

    's‚đÄ•\ŽĻ‚ŗ‚š‚é
    Cells.Select
    Selection.EntireRow.Hidden = False
    Cells(1, 1).Select

   '’lƒNƒŠƒA
    NO = WŒv.Range("A3").End(xlDown).Row
    ŒŽ = WŒv.Range("E2").End(xlToRight).Column
    WŒv.Range(WŒv.Cells(3, 5), WŒv.Cells(NO, ŒŽ)).ClearContents

    'ŒŽ•Ę‡Œv
      For i = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row
           NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)
              If IsNumeric(NO) Then
                 If IsNumeric(ŒŽ) Then
                    WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                    WŒv.Cells(NO, "I") = WŒv.Cells(NO, "I") + ƒf[ƒ^[.Cells(i, "j")
                 End If
              End If
      Next i

    '‹ķ—“‚Ės‚đ”ņ•\ŽĻ‚ŗ‚š‚é
        For s”ԍ† = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row
              If Cells(s”ԍ†, "I").Value = "" Then
                 Cells(s”ԍ†, 1).EntireRow.Hidden = True@@ ' š(? ?)
              End If
        Next s”ԍ†

 End Sub
i‚ā‚Ũ‚ļâj 2014/10/08(…) 21:28

 ƒI[ƒgƒtƒBƒ‹ƒ^‚đŽg‚¤‚ÆŠy‚Š‚ÆŽv‚ĸ‚Ü‚ĩ‚Ŋ‚Ē
 Hidden‚đŽg‚í‚ę‚Ŋ‚Ė‚Å‚ˇ‚ˁB

 „ Cells.Select
 „ Selection.EntireRow.Hidden = False
 „ •\ŽĻ‚ˇ‚é‚ ‚Ƃ̓GƒNƒZƒ‹‘S‘Ė‚ɔ͈͂đŽQÆ‚ŗ‚ę‚Ä‚ĸ‚é‚Ŋ‚߁A
 ƒZƒ‹‘S‘Ė‚Ē‘I‘đ‚ŗ‚ę‚Ä‚ĸ‚é‚Ė‚͍ŏ‰‚ɁuCells.Selectv‚đ‚ĩ‚Ä‚ĸ‚é‚Š‚į‚Å‚ˇB
 Select|Selection ‚Ė–ŗ‚ĸƒR[ƒh‚É‚ĩ‚Ä‚Ũ‚ĉē‚ŗ‚ĸB

 Select‚ĩ‚Č‚¯‚ę‚Î
 „Cells(1, 1).Select
 ‚ā•s—v‚É‚Č‚č‚Ü‚ˇB

 ’Į‰Á‚ŗ‚ę‚Ŋ•”•Ē‚́A‚Į‚ĖƒV[ƒg‚ɑ΂ĩ‚Ä‚Ėˆ—‚Č‚Ė‚Š‚Ē”˛‚¯‚Ä‚ĸ‚é•”•Ē‚Ē‚ ‚č‚Ü‚ˇ‚Ė‚Å
 ’Į‰Á‚ĩ‚Ä‚¨‚ĸ‚Ä‚ā‚į‚¤‚Ė‚Ē—Į‚ĸ‚Š‚ā‚ĩ‚ę‚Ü‚š‚ņB

 „WŒv.Cells(NO, "I") = WŒv.Cells(NO, "I") + ƒf[ƒ^[.Cells(i, "j")
 ‡Œv‚đo‚ˇ—ņ‚đuI—ņv‚ÆŒˆ‚ß‚é‚Č‚į@Å‰‚Ƀf[ƒ^‚đƒNƒŠƒA‚ˇ‚é”͈Í
 @@WŒv.Range(WŒv.Cells(3, 5), WŒv.Cells(NO, ŒŽ)).ClearContents
 ‚āAuI—ņv‚Å—Į‚ĸŽ–‚É‚Č‚č‚Ü‚ˇ‚æ‚ˁH
 @@WŒv.Range(WŒv.Cells(3, 5), WŒv.Cells(NO, "I")).ClearContents
 ‚ą‚ņ‚ČŠ´‚ļ‚ŁB

 Ą‰ņ‚ĖŒ‚Æ‚Í•Ę‚Å‚ˇ‚Ē(‰Û‘č‚Æ‚ĩ‚ÄŽc‚Á‚Ä‚ĸ‚Ŋ•”•Ē‚Å‚ˇj
 Ą‚ĖƒR[ƒh‚Ė‚Ü‚Ü‚Å‚ÍMatchŠÖ”‚ÅŒŸõ’l‚Ē–ŗ‚Š‚Á‚ŊŽž‚ɃGƒ‰[‚É‚Č‚Á‚ÄŽ~‚Ü‚č‚Ü‚ˇB
 •Ī”‚ĖŒ^‚đLong‚ōs‚­‚Ė‚Č‚įA
 ƒf[ƒ^[.Cells(i, "E") ‚Ė’l‚Ē WŒv.Range("AFA") ‚Ė”͈͂ɗL‚é‚Š‚Į‚¤‚Š
 COUNTIFŠÖ”“™‚Å’˛‚ׂĂŠ‚įMatchŠÖ”‚Ēs‚í‚ę‚é—l‚É‚ĩ‚Ä‚¨‚­‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚Ü‚ŊAŒŸõ’l‚Ē–ŗ‚Š‚Á‚Ŋę‡‚É‚Į‚¤‚ˇ‚é‚Ė‚Š‚āŒˆ‚ß‚Ä‚¨‚ĸ‚Ä‚ā‚į‚Ļ‚é‚Æ—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 @–ŗ‚Š‚Á‚Ŋ‚ā‚Ė‚͏WŒv‚ĩ‚Č‚ĸ‚Ė‚Š
 @ˆ—‚đ’†’f‚ĩ‚āA’Į‰Á‚ĩ‚Ä‚ā‚į‚Á‚ā@‚ā‚¤ˆę“xŽĀs‚ĩ‚Ä‚ā‚į‚¤‚Ė‚Š
 @
iHANAj 2014/10/09(–Ø) 09:37

 „ƒI[ƒgƒtƒBƒ‹ƒ^‚đŽg‚¤‚ÆŠy‚Š‚ÆŽv‚ĸ‚Ü‚ĩ‚Ŋ‚Ē
 ƒI[ƒgƒtƒBƒ‹ƒ^‚ÆŽg‚Á‚Ŋ•û‚Ē‰đœ‚ˇ‚é‚Æ‚Ģ‚ā‚ˇ‚Ž‚Å‚Ģ‚Ü‚ˇ‚ˁB•ĪX‚ĩ‚Ü‚ˇB
 ‚Æ‚ĸ‚Á‚Ä‚āƒ}ƒNƒ‹L˜^‚Å“ž‚ŊƒR[ƒh‚Å‚ˇ‚Ē@(*L-M*)U ƒ|ƒŠƒ|ƒŠ

 „‚āAuI—ņv‚Å—Į‚ĸŽ–‚É‚Č‚č‚Ü‚ˇ‚æ‚ˁH
 ‚Í‚ĸ‚ģ‚¤‚Å‚ˇ‚ˁB
 ‚Ŋ‚žAŽĀÛ‚Ėƒf[ƒ^‚́uI—ņv‚Å‚Í‚Č‚ĸ‚Ė‚ŁA‚ ‚Ļ‚Ä•Ī“Ž‚ĩ‚Ä‚ā•ŌW‚ĩ‚Č‚­‚Ä‚ā‚ĸ‚ĸ‚悤‚É
 ‚đŽg—p‚ĩ‚Ŋ‚ņ‚Å‚ˇ‚ĒA
 WŒv.Range(WŒv.Cells(3, 5), WŒv.Cells(NO, "I")).ClearContents
 ‚đŽg—p‚ĩ‚Ŋ•û‚Ē‚ĸ‚ĸ‚Ė‚Å‚ĩ‚傤‚ŠH

 „ƒf[ƒ^[.Cells(i, "E") ‚Ė’l‚Ē WŒv.Range("AFA") ‚Ė”͈͂ɗL‚é‚Š‚Į‚¤‚Š
 ‚ģ‚¤‚Å‚ˇ‚ˁANO‚Ē’Į‰Á‚É‚Č‚Á‚Ŋ‚Æ‚Ģ
 WŒvƒV[ƒg‚ā’Į‰Á‚ĩ‚Č‚ĸ‚Æ‚Å‚ˇ‚ˁA‚ˇ‚Á‚Š‚č–Y‚ę‚Ä‚Ü‚ĩ‚Ŋ@ƒ°ƒ°(߄tßlll)!

 „ŒŸõ’l‚Ē–ŗ‚Š‚Á‚Ŋę‡‚É‚Į‚¤‚ˇ‚é‚Ė‚Š
 ‚ą‚ŋ‚į‚Í‚Č‚ņ‚Æ‚Č‚­‚Å‚Ģ‚ģ‚¤‚Å‚ˇ‚ĒA

 COUNTIFŠÖ”@‚Å‚ˇ‚ŠH@ƒf[ƒ^ƒV[ƒg‚đWŒvƒV[ƒg‚ĖNO‚Ė
 ŒÂ”‚𒲂ׂ銴‚ļ‚Å‚ĩ‚傤‚ŠH

 Sub test8()
    Dim NO As Long
    Dim ŒŽ As Long
    Dim i As Long
    Dim s”ԍ† As Long
    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ As Worksheet

    Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ = Worksheets("Sheet6")
    NO = WŒv.Range("A3").End(xlDown).Row
    ŒŽ = WŒv.Range("E2").End(xlToRight).Column

    's‚đÄ•\ŽĻ‚ŗ‚š‚é
    WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=9

   '’lƒNƒŠƒA
    WŒv.Range(WŒv.Cells(3, 5), WŒv.Cells(NO, "I")).ClearContents

    'ŒŽ•Ę‡Œv
      For i = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row
           NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)
              If IsNumeric(NO) Then
                 If IsNumeric(ŒŽ) Then
                    WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                    WŒv.Cells(NO, "I") = WŒv.Cells(NO, "I") + ƒf[ƒ^[.Cells(i, "j")
                 End If
              End If
      Next i

    '‹ķ—“‚Ės‚đ”ņ•\ŽĻ‚ŗ‚š‚é
        For s”ԍ† = 3 To WŒv.Cells(Rows.Count, 1).End(xlUp).Row
              If WŒv.Cells(s”ԍ†, "I").Value = "" Then
                WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=9, Criteria1:="<>"
              End If
        Next s”ԍ†

 End Sub
i‚ā‚Ũ‚ļâj 2014/10/10(‹ā) 23:46

 „WŒv.Range(WŒv.Cells(3, 5), WŒv.Cells(NO, "I")).ClearContents
 „‚đŽg—p‚ĩ‚Ŋ•û‚Ē‚ĸ‚ĸ‚Ė‚Å‚ĩ‚傤‚ŠH
 ‚ĸ‚ĸ‚ĻB
 „ŽĀÛ‚Ėƒf[ƒ^‚́uI—ņv‚Å‚Í‚Č‚ĸ‚Ė‚ŁA‚ ‚Ļ‚Ä•Ī“Ž‚ĩ‚Ä‚ā•ŌW‚ĩ‚Č‚­‚Ä‚ā‚ĸ‚ĸ‚悤‚É‚đŽg—p‚ĩ‚Ŋ
 ‚Ė‚Å‚ˇ‚Š‚įA‚Ū‚ĩ‚ë
                    WŒv.Cells(NO, "I") = WŒv.Cells(NO, "I") + ƒf[ƒ^[.Cells(i, "j")
 ‚Ė•û‚đ’ŧ‚ĩ‚Ä‚ā‚į‚¤‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 s‚đÄ•\ŽĻ‚ŗ‚š‚é‚Æ‚ą‚ë‚Å
    WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=9
 ‚Æ‚Č‚Á‚Ä‚ĸ‚Ü‚ˇ‚ĒA‚ą‚Ėu9v•”•Ē‚ā
 „ŽĀÛ‚Ėƒf[ƒ^‚́uI—ņv‚Å‚Í‚Č‚ĸ‚Ė‚ŁA‚ ‚Ļ‚Ä•Ī“Ž‚ĩ‚Ä‚ā•ŌW‚ĩ‚Č‚­‚Ä‚ā‚ĸ‚ĸ‚悤‚É
 ‚ĩ‚Ä‚¨‚Š‚Č‚ĸ‚Æ‚ĸ‚¯‚Č‚­‚Č‚ĸ‚Å‚ˇ‚ŠH

 ‚Ü‚ŊA‹ķ—“‚Ės‚đ”ņ•\ŽĻ‚ŗ‚š‚鏊‚́Aƒ‹[ƒv‚ŗ‚š‚é•K—v‚Ē‚ ‚č‚Ü‚ˇ‚ŠH
 ˆęs‚¸‚Â
              If WŒv.Cells(s”ԍ†, "I").Value = "" Then
 ‚đŠm”F‚ĩ‚Ä‚āA‚â‚é‚ą‚Æ‚Í
                WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=9, Criteria1:="<>"
 ‚Å‚ˇ‚æ‚ˁH

 ‚ģ‚ę‚Š‚į‚ą‚ŋ‚į‚ÉŠÖ‚ĩ‚Ä‚ā
 „ŽĀÛ‚Ėƒf[ƒ^‚́uI—ņv‚Å‚Í‚Č‚ĸ‚Ė‚ŁA‚ ‚Ļ‚Ä•Ī“Ž‚ĩ‚Ä‚ā•ŌW‚ĩ‚Č‚­‚Ä‚ā‚ĸ‚ĸ‚悤‚É
 ‚ĩ‚Ä‚¨‚ĸ‚Ä‚ā‚į‚¤‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 @
iHANAj 2014/10/11(“y) 15:21

 ‚Č‚é‚Ų‚Į@_Y(Ĩ‚–Ĩš)@‚Ü‚žA”˛‚¯‚Ä‚é•”•Ē‚Ē‚ ‚č‚Ü‚ˇ‚ˁB

 ­‚ĩ‹^–â‚đ•‚‚Š‚ņ‚ž‚ņ‚Å‚ˇ‚ĒB
 ƒR[ƒh‚Ė’†‚Ɂ@ŒŽ‚Æ‚m‚n‚đ‚Q‚ŠŠŽg—p‚ĩ‚Ä‚ĸ‚é‚ņ‚Å‚ˇ‚ĒA
 For@`@Next@‚Ė’†‚ɐŨ’č‚ĩ‚Ä‚ĸ‚é@ŒŽ‚Æ‚m‚n@‚Í
 For@`@Next@‚Ėƒ‹[ƒv“ā‚Ė‚ŨŽg—p‚ˇ‚é‚ą‚Æ‚Ē‚Å‚Ģ‚é‚ņ‚Å‚ˇ‚æ‚ˁ@(*ßÅ߁G*)
 ĄX‚ĖŽŋ–â‚Å‚ˇ‚Ũ‚Ü‚š‚ņ

 Žw“E‰ĶŠ‚đ‰ē‹L‚ɏCŗ‚ĩ‚Ä‚Ũ‚Ü‚ĩ‚ŊB

 Sub test8()
    Dim NO As Long
    Dim ŒŽ As Long
    Dim i As Long
    Dim s”ԍ† As Long
    Dim WŒv As Worksheet
    Dim ƒf[ƒ^[ As Worksheet

    Set WŒv = Worksheets("Sheet5")
    Set ƒf[ƒ^[ = Worksheets("Sheet6")
    NO = WŒv.Range("A3").End(xlDown).Row
    ŒŽ = WŒv.Range("E2").End(xlToRight).Column

    's‚đÄ•\ŽĻ‚ŗ‚š‚é
    WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=ŒŽ

   '’lƒNƒŠƒA
    WŒv.Range(WŒv.Cells(3, 5), WŒv.Cells(NO, ŒŽ)).ClearContents

    'ŒŽ•Ę‡Œv
      For i = 3 To ƒf[ƒ^[.Cells(Rows.Count, 1).End(xlUp).Row
           NO = Application.Match(ƒf[ƒ^[.Cells(i, "E"), WŒv.Range("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)
              If IsNumeric(NO) Then
                 If IsNumeric(ŒŽ) Then
                    WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                    WŒv.Cells(NO, "I") = WŒv.Cells(NO, "I") + ƒf[ƒ^[.Cells(i, "j")
                 End If
              End If
      Next i

    '‹ķ—“‚Ės‚đ”ņ•\ŽĻ‚ŗ‚š‚é
                WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=ŒŽ, Criteria1:="<>"

 End Sub
i‚ā‚Ũ‚ļâj 2014/10/11(“y) 23:30

 „ĄX‚ĖŽŋ–â‚Å‚ˇ‚Ũ‚Ü‚š‚ņ
 ‚ĸ‚ĸ‚ĻA—Į‚ĸŠ‚É‹C‚Âĸ‚Ä‚ā‚į‚Ļ‚Ü‚ĩ‚ŊB

 ‰Ŋ“x‚ā‘‚ĸ‚Ä‚ĸ‚Ü‚ˇ‚Ē
 •Ī”‚ɂ́AŽg‚¤Žž‚Ɂ@Žg‚ĸ‚Ŋ‚ĸ’l‚Ē“ü‚Á‚Ä‚ĸ‚Č‚ĸ‚Æ‚ĸ‚¯‚Ü‚š‚ņB
 Žg‚ĸ‚Ŋ‚ĸ’l‚ÆŒž‚¤‚Ė‚́A‚Ŋ‚Æ‚Ļ‚Î
 @WŒv.Range("E2").End(xlToRight).Column
 @Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)
 ‚Å‚ˇB

    ŒŽ = WŒv.Range("E2").End(xlToRight).Column
    WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=ŒŽ
 ‚đAu•Ī”FŒŽv‚đŽg‚킸‚ɏ‘‚ĸ‚Ä‚Ũ‚é‚Æ
    WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, WŒv.Range("E2").End(xlToRight).Column)).AutoFilter Field:=WŒv.Range("E2").End(xlToRight).Column
 ‚É‚Č‚č‚Ü‚ˇB

 ‚ą‚ę‚ž‚ƁAƒR[ƒh‚đ“Į‚ņ‚Å‚ĸ‚­‚Æ‚Ģ‚Ɂ@Å‰‚ĖuWŒv.Range("E2").End(xlToRight).Columnv‚đŒŠ‚Ä
 w•\‚ĖÅI—ņ”ԍ†‚ž‚ȁx‚ÆŽv‚ĸA‚ģ‚ĖŒã‚ĖuWŒv.Range("E2").End(xlToRight).Columnv‚đŒŠ‚Ä
 w‚ą‚ą‚āA•\‚ĖÅI—ņ”ԍ†‚ž‚ȁx‚ÆŽv‚ĸ‚Ü‚ˇB

 •Ī”‚đŽg‚Á‚Ŋ‘‚Ģ•û‚ž‚Æ
 •Ī”FŒŽ‚ɂ́A•\‚Ė—ņ”ԍ†‚Ē“ü‚Á‚Ä‚ĸ‚é‚Ė‚Å
 wWŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=ŒŽ
 @‚ą‚Ė2‚ŠŠ‚É‚Í“¯‚ļ’l‚ĒŽw’č‚ŗ‚ę‚Ä‚ĸ‚é‚ȁB     ~~                     ~~x
 ‚Ė—l‚ɁAƒR[ƒh‚đˆę•ļŽš‚¸‚“Į‚Ū•K—v‚Ē­‚Č‚­‚Č‚č‚Ü‚ˇB

 Ą‰ņ‚Ė‹^–â‚đŽ‚Ŋ‚ę‚Ŋ‚Ė‚Í
                 If IsNumeric(ŒŽ) Then
                    WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                    WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                 End If
 ‚Á‚ďo—ˆ‚Č‚ĸ‚Æ‚¨‚ā‚í‚ę‚Ŋ‚Š‚į‚ļ‚á‚Č‚ĸ‚Å‚ĩ‚傤‚ŠH

 Šm‚Š‚ɁA‚ą‚ę‚ł̓_ƒ‚Å‚ˇB

 u•Ī”FŒŽv‚́AÅ‰‚Í
    ŒŽ = WŒv.Range("E2").End(xlToRight).Column
 ‚ŁA•\‚ĖÅI—ņ”ԍ†‚Ē“ü‚Á‚Ä‚ĸ‚Ü‚ˇ‚Ē@‚ģ‚ĖŒã
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)
 ‚ŁAŒŸõ‚ĩ‚ŊŒŽ‚Ē‚ ‚é—ņ”ԍ†‚ɏ‘‚ĢŠˇ‚í‚Á‚Ä‚ĸ‚é‚Š‚į‚Å‚ˇB

 •Ī”‚đŽg‚킸‚Ɂi‚ˇ‚ą‚ĩ’[Ü‚Á‚āj‘‚­‚Æ
                 If IsNumeric(ŒŽ) Then
                    WŒv.Cells(NO, EEE.Match(EEE, 0)) = WŒv.Cells(NO, EEE.Match(EEE, 0)) + ƒf[ƒ^[.Cells(i, "j")
                    WŒv.Cells(NO, WŒv.EEEEEE.Column) = WŒv.Cells(NO, WŒv.EEEEEE.Column) + ƒf[ƒ^[.Cells(i, "j")
                 End If
 ‚Å‚ˇ‚ˁB

 ˆŊ‚ĸ‚Í
                 If IsNumeric(ŒŽ) Then
                    WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")

                    ŒŽ = WŒv.Range("E2").End(xlToRight).Column
                    WŒv.Cells(NO, ŒŽ) = WŒv.Cells(NO, ŒŽ) + ƒf[ƒ^[.Cells(i, "j")
                 End If
 ‚ą‚Ė—l‚É‚ˇ‚ę‚΁A
 ã‘¤‚Ės‚Ė’iŠK‚ł́AŽg‚ĸ‚Ŋ‚ĸ’liŒŸõ‚ĩ‚ŊŒŽ‚Ē‚ ‚é—ņ”ԍ†j‚Ēu•Ī”FŒŽv‚É“ü‚Á‚Ä‚ĸ‚Ä
 ‰ē‘¤‚Ės‚Ė’iŠK‚ł́AŽg‚ĸ‚Ŋ‚ĸ’li•\‚ĖÅI—ņ”ԍ†j‚Ēu•Ī”FŒŽv‚É“ü‚Á‚Ä‚ĸ‚Ü‚ˇ‚Ė‚Å
 “¯‚ļŒ‹‰Ę‚Ē“ž‚į‚ę‚é‚ÆŽv‚ĸ‚Ü‚ˇB

    '‹ķ—“‚Ės‚đ”ņ•\ŽĻ‚ŗ‚š‚é
                WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=ŒŽ, Criteria1:="<>"
 ‚ĖŠ‚ā“¯—l‚Å‚ˇ‚ˁB
 Ą‚Ė‚܂܂ł́u•Ī”FŒŽv‚ɂ́AÅŒã‚ÉŒŸõ‚ĩ‚ŊŒŽ‚Ē‚ ‚é—ņ”ԍ†@‚Ē“ü‚Á‚Ä‚ĸ‚Ä
 Žg‚ĸ‚Ŋ‚ĸ’li•\‚ĖÅI—ņ”ԍ†j‚Í“ü‚Á‚Ä‚ĸ‚Č‚ĸ‚Ė‚Ł@‚¤‚Ü‚­s‚Á‚Ä‚ĸ‚Č‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB
 ‚ą‚Ė—l‚ɏ‘‚­‚Č‚į
    '‹ķ—“‚Ės‚đ”ņ•\ŽĻ‚ŗ‚š‚é
                ŒŽ = WŒv.Range("E2").End(xlToRight).Column
                WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=ŒŽ, Criteria1:="<>"
 ‚Å‚ˇB

 ‚Å‚āAuWŒv.Range("E2").End(xlToRight).Columnv‚Á‚襉ņ‚Í“r’†‚Å•Ī‚í‚į‚Č‚ĸ‚Å‚ˇ‚æ‚ˁH
 Å‰‚Ė@ŒŽ = WŒv.Range("E2").End(xlToRight).Column@‚ĖŽž‚Ė’l‚đu•Ī”FŒŽv‚Ē•ÛŽ‚ĩ‚Ä‚­‚ę‚Ä‚ĸ‚Ŋ‚į
 ƒ‹[ƒv“ā‚â@”ņ•\ŽĻ‚É‚ŗ‚š‚鎞‚Ɂ@‚ģ‚Ė‚Ü‚ÜŽg‚Ļ‚Ü‚ˇB

 ‚Č‚ņ‚Å•ÛŽ‚ĩ‚Ä‚­‚ę‚Ä‚ĸ‚Č‚ĸ‚Š‚ÆŒž‚¤‚ƁA‚ģ‚ĖŒã‚ňá‚Á‚Ŋ’l‚đ“ü‚ę‚é‚Š‚į‚Å‚ˇB

 •Ī”‚́AFXŽg‚ĸ‚Ü‚í‚ĩ‚Ēo—ˆ‚Ü‚ˇ‚Ē
 Šî–{“I‚ɂ́u“ü‚Á‚Ä‚ĸ‚é‚ā‚Ė‚Ė–ŧ‘O‚Ē‚í‚Š‚é•Ī”–ŧv‚É‚ĩ‚Ä‚¨‚ĸ‚Ä
 “ā—e‚Ēˆá‚¤‚ā‚Ė‚́Aˆá‚¤•Ī”‚É“ü‚ę‚é‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇB

 WŒv.Range("E2").End(xlToRight).Column ‚́A‚Ŋ‚Æ‚Ļ‚΁u•\ÅI—ņ”ԍ†v
 Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0) ‚́A‚Ŋ‚Æ‚Ļ‚΁uŒŸõŒŽ—ņ”ԍ†v
 ‚ÆŒž‚¤–ŧ‘O‚Ė•Ī”‚É“ü‚ę‚é‚Æ‚ˇ‚é‚Æ

                 If IsNumeric(ŒŸõŒŽ—ņ”ԍ†) Then
                    WŒv.Cells(NO, ŒŸõŒŽ—ņ”ԍ†) = WŒv.Cells(NO, ŒŸõŒŽ—ņ”ԍ†) + ƒf[ƒ^[.Cells(i, "j")
                    WŒv.Cells(NO, •\ÅI—ņ”ԍ†) = WŒv.Cells(NO, •\ÅI—ņ”ԍ†) + ƒf[ƒ^[.Cells(i, "j")
                 End If
 ‚Ė—l‚É‚Č‚č‚Ü‚ˇB

 ŽĀÛ‚Í•Ī”–ŧ‚É‚U•ļŽš‚ā‘‚­‚Ė‚Í‘å•Ī‚Č‚Ė‚ŁA‚ā‚¤­‚ĩ’Z‚ĸ–ŧ‘O‚đl‚Ļ‚Ä‚ā‚į‚¤‚Ė‚Ē—Į‚ĸ‚ÆŽv‚ĸ‚Ü‚ˇ‚ĒB
 @
iHANAj 2014/10/12(“ú) 13:51

 ‹Æ–ą˜A—‚Å‚ˇB
 –ž“úi‚ā‚¤Ą“ú‚Å‚ˇ‚Ēj‚Š‚į@‚ĩ‚΂į‚­
 Œg‘Ņ‚Š‚į‚ĩ‚Š•ÔM‚Ē‚Å‚Ģ‚Ü‚š‚ņ‚Ė‚Å
 VƒXƒŒ‚đė‚Á‚Ä‚ā‚į‚Ļ‚Ŋ‚į‚ÆŽv‚ĸ‚Ü‚ˇB

 ‚Ü‚ŊA‚ģ‚ĖŠÔ’ˇ•ļ‚Ė“Še‚Í“ī‚ĩ‚­‚Č‚é‚ÆŽv‚ĸ‚Ü‚ˇ‚Ė‚Å
 ‚˛—šŗ‚­‚ž‚ŗ‚ĸB
 @
iHANAj 2014/10/15(…) 00:07

 HANA —l

 —š‰đ‚Å‚ˇB‚Ŋ‚žAŽ„‚ā‚ĩ‚΂į‚­ƒhƒ^ƒoƒ^‚ĩ‚Ä‚Ü‚ˇB
 —ˆT‚ɐV‚ĩƒgƒr‚𗧂è‚Ģ‚Ü‚ˇB

 ‚ ‚ƁA‰J‚Ē‹­‚ĸ‚Æ‚Ģ‚Í‚Į‚¤‚â‚į‚¤‚ŋ‚̓lƒbƒg‚‚ȂĒ‚į‚Č‚ĸ‚Ũ‚Ŋ‚ĸ‚Å‚ˇ@(*Lƒm„DM)
 ‚ā‚¤­‚ĩ‚¨ŽžŠÔ‰ē‚ŗ‚ĸB

i‚ā‚Ũ‚ļâj 2014/10/15(…) 22:47


‹Æ–ą˜A—‚Å‚ˇ

‚ˇ‚Ũ‚Ü‚š‚ņBŒģŨ‰Æ‚Ėƒlƒbƒg‚ĒŽg‚Ļ‚Ü‚š‚ņB
‚ā‚¤­‚ĩ‚Š‚Š‚č‚ģ‚¤‚Å‚ˇB
i‚ā‚Ũ‚ļâj 2014/10/21(‰Î) 15:24


[[20141024002243]]wƒ}ƒNƒ‚ō‡Œv@3x ‚Ö
i‚ā‚Ũ‚ļâj 2015/03/08(“ú) 23:09

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

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


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