[[20140827212357]]@wƒ}ƒNƒ‚ŇŒv_2_Žè‡¨ƒR[ƒh쬨•Ï”錾xi‚à‚Ý‚¶âj@ƒy[ƒW‚ÌÅŒã‚É”ò‚Ô

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

@

wƒ}ƒNƒ‚ŇŒv_2_Žè‡¨ƒR[ƒh쬨•Ï”錾xi‚à‚Ý‚¶âj

[[20140814193616]]wƒ}ƒNƒ‚ŇŒv@1x

‚±‚¤‚Å‚·‚©H

„—¼•û‚Ì•û–@‚ª‚Ü‚´‚Á‚Ä`
@‚Ä‚±‚Æ‚È‚Ì‚ÅA‚h‚eŠÖ”‚Å@‚m‚n@‚ª“¯‚¶‚Æ‚±@ŒŽ‚ª“¯‚¶‚Æ‚«@
@“¯‚¶‚Ì‚ð’T‚µ‚ÄBŠY“–‚̃Zƒ‹‚É‘‚«o‚·B
@WŒv‚̃V[ƒg‚̃‹[ƒv‚à’ljÁ‚µ‚Ü‚µ‚½B

WŒvƒV[ƒg‚É‚¢‚ç‚È‚¢ƒf[ƒ^[‚ ‚Á‚½‚Ì‚ÅA휂µ‚ăRƒ“ƒpƒNƒg‚É‚µ‚Ü‚µ‚½B

ƒf[ƒ^[ƒV[ƒg‚͈̔͂ð‹‚ß‚é
@3s–Ú‚©‚ç‚ÌÅIsƒ‹[ƒviƒf[ƒ^[ƒV[ƒgj
@@@3—ñ–Ú‚©‚ç‚ÌÅI—ñƒ‹[ƒviƒf[ƒ^[ƒV[ƒgj
@@@@@1s–Ú‚©‚çÅIsƒ‹[ƒviWŒvƒV[ƒgj
@@@@@@@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 ExcelFunknownAŽg—p OSFunknown „


 ‚»‚Ìl‚¦•û‚ÍA‚²Ž©g‚ÅŽÀs‚µ‚Ä‚Ý‚é‚Æ‚Ç‚¤‚¢‚¤Ž–‚Å‚·‚©H
 @
iHANAj 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‚µ‚Ä‚Ý‚é‚Æ‚Ç‚¤‚¢‚¤Ž–‚Å‚·‚©Hv‚Æ‘‚¢‚Ä‚Ý‚Ü‚µ‚½B

 ‚à‚Ý‚¶â‚³‚ñ‚È‚çAWŒvƒV[ƒg‚ÉWŒv‚·‚é‚Æ‚«‚É@‚ǂ̂悤‚É‚·‚é‚ñ‚Å‚·‚©H
 ‚²Ž©g‚ª‚â‚邱‚Æ‚ð‡”Ô‚É‘‚«o‚µ‚Ä‚Ý‚Ä‚Í‚Ç‚¤‚Å‚µ‚傤H
 @
iHANAj 2014/08/27(…) 23:37

 ƒGƒNƒZƒ‹‚©‚ç‚àˆê’U—£‚ê‚Äl‚¦‚Ä‚Ý‚½‚ç‚Ç‚¤‚Å‚·‚©H
 ƒf[ƒ^‚Ì•\‚ÆWŒv‚Ì•\‚ÆŽ†‚Ɖ”•M‚ÆÁ‚µƒSƒ€‚ð“n‚³‚ê‚Ä
 u‚±‚êAWŒv‚µ‚Ä‚¨‚¢‚Äv
 ‚ÆŒ¾‚í‚ꂽŽžA‚à‚Ý‚¶â‚³‚ñ‚È‚ç@WŒv‚Å‚«‚Ü‚·‚æ‚ËH

 ÅI“I‚É‚Í
 @A02‚Ì1ŒŽA2ŒŽA3ŒŽBA03‚Ì1ŒŽBA04‚Ì2ŒŽB
 ˆÈã‚Ì‚T‚©Š‚É”Žš‚ð‘‚­Ž–‚É‚È‚é‚ÆŽv‚¢‚Ü‚·‚ª
 ‚»‚ÌŽžAˆê”Ôʼn‚É”Žš‚ð‘‚­‚Ì‚Í‚Ç‚±‚Å‚·‚©H

 ‚Ü‚½A‚»‚Ì”Žš‚͉½‚ð‘‚«‚Ü‚·‚©H
 @
iHANAj 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ƒgj 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—ñ‚É‚ÍAu=DATE(YEAR(A3),MONTH(A3),1)v‚ÌŽ®‚ð–„‚ß‚Ä‚¨‚«‚Ü‚·B

ŽŸ‚ÉAB`D—ñ‚ð”͈͑I‘ðBu‘}“üv|uƒsƒ{ƒbƒgƒe[ƒuƒ‹vB
—ñƒ‰ƒxƒ‹‚Éu”NŒŽvAsƒ‰ƒxƒ‹‚ÉuNOvAƒ°’l‚Éu‹àŠzv‚ðŽw’èB
u‹àŠzv‚Í’lƒtƒB[ƒ‹ƒh‚ÌÝ’è‚ÅAu‡Œvv‚É‚µ‚Ü‚·B

‚±‚ꂾ‚¯‚Å–Ú“I‚Ì•\‚É‚È‚é‚ÆŽv‚¢‚Ü‚·‚ªA‚¢‚©‚ª‚Å‚µ‚傤‚©B
i???j 2014/08/29(‹à) 14:47


i@‰À@j—liƒfƒCƒgj —l@

à–¾•s‘«‚Å‚·‚Ý‚Ü‚¹‚ñB
‚¸‚Á‚ÆiHANAj—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„DM)
Š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‚Ì3s–Ú‚©‚çÅIs‚܂ň—‚µ‚Ü‚·B

 @‚PDNo‚ªWŒvƒV[ƒg‚̉½s–Ú‚É—L‚é‚©MATCHŠÖ”‚Å’²‚ׂ܂·B
 @‚QD“ú•t‚©‚猎•”•ª‚ðŽæ‚èo‚µ‚ÄAWŒvƒV[ƒg‚̉½—ñ–Ú‚É—L‚é‚©MATCHŠÖ”‚Å’²‚ׂ܂·B
 @‚RDWŒvƒV[ƒg‚ÌA1‚Å’²‚ׂ½s‚Æ,2‚Å’²‚ׂ½—ñ‚̃Zƒ‹‚É@”—Ê‚ð‘«‚µŽZ‚µ‚Ü‚·B
 @‚±‚ê‚ðÅIs‚Ü‚ÅŽÀ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	

 Ž„‚ÌŽè‡
 @ŸÅIsƒf[ƒ^ƒV[ƒg‚Ì3s–Ú‚©‚çÅIs‚܂ň—‚µ‚Ü‚·B			
 @@1.No‚ªWŒvƒV[ƒg‚̉½s–Ú‚É—L‚é‚©MATCHŠÖ”‚Å’²‚ׂ܂·B
 @@@‚m‚n=MATCH(‚e3`ÅIs,Sheet5!$A$1:$A$7,0)
 @@2.“ú•t‚©‚猎•”•ª‚ðŽæ‚èo‚µ‚ÄAWŒvƒV[ƒg‚̉½—ñ–Ú‚É—L‚é‚©MATCHŠÖ”‚Å’²‚ׂ܂·B@@									
 @@@ŒŽ=MATCH(MONTH(B3F),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[ƒgiŒ©‚‚©‚Á‚½‚m‚nƒZƒ‹AŒ©‚‚©‚Á‚½ŒŽ‚̃Zƒ‹j@WŒvƒV[ƒgiŒ©‚‚©‚Á‚½‚m‚nƒZƒ‹AŒ©‚‚©‚Á‚½ŒŽ‚̃Zƒ‹jj{@ƒf[ƒ^[ƒV[ƒgiÅIsA10j
 @@@
       œ‘‚«o‚·‚Æ‚«‚̃Cƒ[ƒW
@@@ @WŒvƒV[ƒgi‚d3jƒf[ƒ^[‚ª‚ ‚鎞‚ÌŒvŽZ‚È‚Ì‚Å‚`01‚̓JƒEƒ“ƒg‚³‚ê‚È‚¢‚Í‚¸B
 @@@@WŒvƒV[ƒgi‚d4jWŒvƒV[ƒgi‚d4j{ƒf[ƒ^[ƒV[ƒgi‚i3jˆêT–ڂ̃‹[ƒv
 @@@@WŒvƒV[ƒgi‚d4jWŒvƒV[ƒgi‚d4j{ƒf[ƒ^[ƒV[ƒgi‚i4jˆêŽí–ڂ̃‹[ƒv
  @‚±‚ê‚ðÅIs‚Ü‚ÅŽÀs‚µ‚Ü‚·B

 Žè‡‚Ìl‚¦•û‚Í‚ ‚Á‚Ä‚Ü‚·‚©H
 “¯‚¶“š‚¦‚ð‚®‚é‚®‚邵‚Ä‘‚¢‚Ä‚é‹C‚àB
 ˆê‰ñ‘‚«o‚µ‚Ä“ª‚𮗂̈Ӗ¡‡‚¢‚àBBBB

i‚à‚Ý‚¶âj 2014/08/30(“y) 21:42


 ‚¨‚¨‚æ‚»—Ç‚¢‚ÆŽv‚¢‚Ü‚·B

 3”Ô‚Ì”—Ê‚ð‘«‚·Š‚Í
 WŒvƒV[ƒgiŒ©‚‚©‚Á‚½‚m‚nƒZƒ‹AŒ©‚‚©‚Á‚½ŒŽ‚̃Zƒ‹j@WŒvƒV[ƒgiŒ©‚‚©‚Á‚½‚m‚nƒZƒ‹AŒ©‚‚©‚Á‚½ŒŽ‚̃Zƒ‹jj{@ƒf[ƒ^[ƒV[ƒgi3`ÅIsA10j
 ‚Á‚Ä‘‚¢‚Ä‚ ‚é•û‚ªA1,2‚Ì‘‚«•û‚Ƈ‚¤‚ÆŽv‚¢‚Ü‚·‚ª@‚Ç‚¤‚Å‚·‚©H

 ‚»‚ê‚©‚ç
   Cells(1, 1).Value = "HANA"
 ‚Æ‘‚¢‚½‚çAA1ƒZƒ‹‚ÉuHANAv‚Æ‚¢‚¤•¶Žš‚ª“ü‚è‚Ü‚·‚ËH

 WŒvƒV[ƒgiŒ©‚‚©‚Á‚½‚m‚nƒZƒ‹AŒ©‚‚©‚Á‚½ŒŽ‚̃Zƒ‹j@WŒvƒV[ƒgiŒ©‚‚©‚Á‚½‚m‚nƒZƒ‹AŒ©‚‚©‚Á‚½ŒŽ‚̃Zƒ‹jj{@ƒf[ƒ^[ƒV[ƒgiÅIsA10j
 ‚±‚ê‚ÅAWŒvƒV[ƒg‚Ì–Ú“I‚̃Zƒ‹‚ɉÁŽZ‚µ‚½’l‚ª“ü‚é‚Ì‚Å
 „œ‘‚«o‚·‚Æ‚«‚̃Cƒ[ƒW
 ‚ª‚Ç‚¤‚¢‚Á‚½ˆÓ–¡‚Å‘‚¢‚Ä‚ ‚é‚Ì‚©‚æ‚­‚í‚©‚ç‚È‚¢‚Å‚·‚ªBBB

 ‚±‚ê‚ÍA3‚ÌŒã‚ɉ½‚©•Ê‚Ì–½—ß•¶‚ð“ü‚ê‚é‚Æ‚¢‚¤Ž–‚Å‚·‚©H
 ‚»‚ê‚Æ‚àBBBH
 @
iHANAj 2014/08/30(“y) 22:24

 iHANAj—l

 ‚·‚Ý‚Ü‚¹‚ñB–½—ß•¶‚Í3.‚Ì‚Ý‚Å‚·B

@@@@@@@@@

        œ‘‚«o‚·‚Æ‚«‚̃Cƒ[ƒW@‚Íiƒ‹[ƒv‚ʼnÁŽZ‚·‚é‚Æ‚±‚ñ‚ÈŠ´‚¶‚©‚ÈH‚̃Cƒ[ƒW‚Å‚·OOGG@‚Æ‚­‚ɃR[ƒh‚ð’ljÁ‚µ‚Ü‚¹‚ñBj
 @@@ @WŒvƒV[ƒgi‚d3jƒf[ƒ^[‚ª‚ ‚鎞‚ÌŒvŽZ‚È‚Ì‚Å‚`01‚̓JƒEƒ“ƒg‚³‚ê‚È‚¢‚Í‚¸B
  @@@@WŒvƒV[ƒgi‚d4jWŒvƒV[ƒgi‚d4j{ƒf[ƒ^[ƒV[ƒgi‚i3jˆêT–ڂ̃‹[ƒv
  @@@@WŒvƒV[ƒgi‚d4jWŒvƒV[ƒgi‚d4j{ƒf[ƒ^[ƒV[ƒgi‚i4jˆêŽí–ڂ̃‹[ƒv

 ‚±‚ê‚ŃR[ƒh쬂Ìì‹Æ‚É“ü‚ê‚é‚Ì‚Å‚µ‚傤‚©H

 >‚Æ‘‚¢‚½‚çAA1ƒZƒ‹‚ÉuHANAv‚Æ‚¢‚¤•¶Žš‚ª“ü‚è‚Ü‚·‚ËH
  ‚Í‚¢B
i‚à‚Ý‚¶âj 2014/08/30(“y) 22:53

 „‚±‚ê‚ŃR[ƒh쬂Ìì‹Æ‚É“ü‚ê‚é‚Ì‚Å‚µ‚傤‚©H
 ‚³‚Á‚»‚­@ƒR[ƒhì¬ì‹Æ‚É“ü‚肽‚¢‚ÆŽv‚¢‚Ü‚·‚ª
 ƒp[ƒc‚²‚Æ‚Å\‚¢‚Ü‚¹‚ñ‚Ì‚ÅA‚¢‚­‚‚©‚í‚©‚è‚Ü‚·‚©H
 @
iHANAj 2014/08/30(“y) 23:15

 ‚±‚ñ‚ÈŠ´‚¶‚Å‚µ‚傤‚©H
 2.‚ÌÅIs‚Í‚c‚È‚Ì‚ÅA{4—ñ‚ª•K—v‚Å‚·‚æ‚Ë
 3.‚±‚ê‚Å‚·‚ÆAƒGƒ‰[o‚½‚ñ‚Å‚·‚æB“ú•t‚Ì•”•ª‚ð‰ÁH‚µ‚Ä‚©‚炵‚È‚¢‚ƃ_ƒ‚Å‚·‚æ‚ËH

 @1.ÅIsƒf[ƒ^ƒV[ƒg‚Ì3s–Ú‚©‚çÅIs‚܂ň—‚µ‚Ü‚·B
     For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
                         ª‚±‚ê‚Í1—ñ‚ÌÅIs‚̈Ӗ¡‚Å‚·‚æ‚Ë‚»‚¤‚·‚é‚Æ‚Ù‚©‚Ì—ñ‚ðÅIs‚É‚µ‚½‚¢Žž‚͕ʂ̈—‚ð“ü‚ê‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Å‚·‚ËB

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

 @@ 3.ŒŽ=MATCH(MONTH(B3F),Sheet5!$A$2:$J$2,0)@@									
 @@@@ŒŽ=Application.Match(‚lonth(ƒf[ƒ^ƒV[ƒg.Cells(i, "‚`"), WŒvƒV[ƒg.Range("2F2"), 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[ƒgi‚m‚nAŒŽj@WŒvƒV[ƒgi‚m‚nAŒŽjj{@ƒf[ƒ^[ƒV[ƒgiiA"J"j
 @@@
       7.End If
@@@ 8.End If
  @9.‚±‚ê‚ðÅIs‚Ü‚ÅŽÀs‚µ‚Ü‚·B
       Next i
i‚à‚Ý‚¶âj 2014/08/31(“ú) 11:37

 „2.‚ÌÅIs‚Í‚c‚È‚Ì‚ÅA{4—ñ‚ª•K—v‚Å‚·‚æ‚Ë
 ‚Ç‚±‚É@+4—ñ@‚Å‚·‚©H
 Cells(Rows.Count, 1).End(xlUp).Row
                   ~ ‚±‚±‚ªAu1—ñ–ÚvuA—ñv‚Æ‚¢‚¤Ž–‚Å‚·‚ªB

 ¡‰ñAA—ñ‚àD—ñ‚à“¯‚¶‚¾‚¯î•ñ‚ª“ü‚Á‚Ä‚¢‚é‚ÆŽv‚¢‚Ü‚·‚Ì‚Å
 ‚Ç‚¿‚ç‚ÌÅIs‚܂ł̃‹[ƒ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[ƒgvuWŒvƒV[ƒgv‚ª‚ ‚è‚Ü‚·‚ª
 ‚±‚ꂪ@•Ï”@‚Á‚ÄŽ–‚Í‚í‚©‚è‚Ü‚·‚©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
 @
iHANAj 2014/08/31(“ú) 12:08

‚±‚¤‚Å‚·‚©H
š‚ªC³‰ÓŠ‚Å‚·

1.ÅIsƒf[ƒ^ƒV[ƒg‚Ì3s–Ú‚©‚çÅIs‚܂ň—‚µ‚Ü‚·B

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

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

 @@ 3.ŒŽ=MATCH(MONTH(B3F),Sheet5!$A$2:$J$2,0)@@									
 @@@@šŒŽ=Application.Match(‚lonth(ƒf[ƒ^ƒV[ƒg.Cells(i, "‚`")), WŒvƒV[ƒg.Range("2F2"), 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[ƒgi‚m‚nAŒŽj@WŒvƒV[ƒgi‚m‚nAŒŽjj{@ƒf[ƒ^[ƒV[ƒgiiA"J"j
 @@@
       7.End If
@@@ 8.End If
  @9.‚±‚ê‚ðÅIs‚Ü‚ÅŽÀs‚µ‚Ü‚·B
       Next i

„‚±‚ꂪ@•Ï”@‚Á‚ÄŽ–‚Í‚í‚©‚è‚Ü‚·‚©H
‚Í‚¢•ª‚©‚è‚Ü‚·B

i‚à‚Ý‚¶âj 2014/08/31(“ú) 13:40


 ‚¿‚È‚Ý‚É
 „2.‚m‚n=MATCH(‚e3`ÅIs,Sheet5!$A$1:$A$7,0)
 ‚Á‚Ä‚©‚¢‚Ä‚ ‚é‚Ì‚É
 „‚m‚n= Application.Match(ƒf[ƒ^ƒV[ƒg.Cells(i, "D"), WŒvƒV[ƒg.Range("AFA"), 0)
 ‚¾‚ÆAD—ñ‚Å‚·‚ªBBBH

 ‚Å‚ÍA•Ï”‚Ì錾‚ð‚µ‚½‚èE•Ï”‚ɃV[ƒg‚ðƒZƒbƒg‚µ‚½‚è
 „WŒvƒV[ƒgi‚m‚nAŒŽj@WŒvƒV[ƒgi‚m‚nAŒŽjj{@ƒf[ƒ^[ƒV[ƒgiiA"J"j
 ‚±‚±‚à‚à‚¤­‚µ‘‚«’¼‚µ‚½‚肵‚Ä
 ƒR[ƒh‚É‚µ‚Ä‚Ý‚Ä‚à‚炦‚Ü‚·‚©H
 @
iHANAj 2014/08/31(“ú) 13:50

‚¾‚ÆAD—ñ‚Å‚·‚ªBBBH
 ‚ ƒ°ƒ°(ß„tßlll)!@‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B’¼‚µ‚Ü‚µ‚½B

 „‚Å‚ÍA•Ï”‚Ì錾‚ð‚µ‚½‚èE•Ï”‚ɃV[ƒg‚ðƒZƒbƒg‚µ‚½‚è
 DIM@‚ÌŒã‚É‚­‚Á‚‚¯‚é‚à‚̂̊ĂȂñ‚Å‚·‚©iHHj

 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—vv‚Æ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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^ƒV[ƒg.Cells(i, "‚`")), WŒvƒV[ƒg.Range("2F2"), 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—vv‚ÆB
 ‚Ç‚±‚Ìs‚Åo‚½‚Ì‚©‡‚킹‚Ä‘‚¢‚Ä‚¨‚¢‚Ä‚à‚炦‚é‚Æ—Ç‚¢‚ÆŽv‚¢‚Ü‚·B

 „DIM@‚ÌŒã‚É‚­‚Á‚‚¯‚é‚à‚̂̊ĂȂñ‚Å‚·‚©iHHj
 „‚±‚¿‚ç‚Ì•\Œ©‚ÄAˆê”Ô–³“ï‚È‚Ì‚ð‘I‚Ñ‚Ü‚µ‚½B@(Lß„tß`)
 ʼn‚Í‚»‚ñ‚ÈŠ´‚¶‚Å—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
 ‚¤‚Ü‚­‚¢‚©‚È‚¢Žž‚ÉA‚Ç‚¤‚¢‚Á‚½Žž‚É‚¢‚‚à‚ƈႤ‚Ì‚©‚ðŠm”F‚µ‚Ä‚à‚炦‚é‚Æ—Ç‚¢‚ÆŽv‚¢‚Ü‚·B

 ¡‰ñ‚ÍAuNOvuŒŽv‚Ì•Ï”‚Í”’l‚ð“ü‚ê‚é‚Ì‚Å@‚Ü‚¸‚Í Long ‚Å‚â‚Á‚Ă݂ĉº‚³‚¢B
 uƒIƒuƒWƒFƒNƒg‚ª•K—vv‚̃Gƒ‰[‚ªo‚È‚­‚È‚Á‚½‚ç
 ¡“x‚Í‚»‚Ì•”•ª‚̃Gƒ‰[‚É‚È‚é‚ÆŽv‚¢‚Ü‚·‚Ì‚ÅA‚»‚ÌŽž‚Ü‚½C³‚µ‚Ä‚à‚ç‚Á‚½‚ç—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
 @
iHANAj 2014/08/31(“ú) 23:14

 „Option Explicit
 „•Ï”‚Ì錾‚ð‹­§‚·‚é(R)

 ‚ðݒ肵‚Ü‚µ‚½B

 ‚»‚ê‚Å‚àu•Ï”‚ª’è‹`‚³‚ê‚Ä‚¢‚¢‚Ü‚¹‚ñBv@
 ƒf[ƒ^ƒV[ƒg‚Ì‚Æ‚±‚ë‚É@ƒ}[ƒNH‚³‚ê‚Ä‚Ü‚·B

 „¡‰ñ‚ÍAuNOvuŒŽv‚Ì•Ï”‚Í”’l‚ð“ü‚ê‚é‚Ì‚Å@‚Ü‚¸‚Í Long ‚Å‚â‚Á‚Ă݂ĉº‚³‚¢B
 Œ»Ý@Dim ŒŽ As Long@Žg—p‚µ‚Ä‚Ü‚·‚ªAˆá‚¤‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H

 ‚»‚ê‚É
 V‚µ‚¢‚v‚c‚ÉØ‚è‘Ö‚¦‚Ä‚©‚çBƒwƒ‹ƒv‚ª•\Ž¦‚³‚ê‚È‚­‚È‚Á‚½‚ñ‚Å‚·iHHj
 2007‚ÌŽg—p‚µ‚½‚Æ‚«@ƒGƒ‰[ƒƒbƒZ[ƒW•\Ž¦‚³‚ê‚é‚Æ@uƒwƒ‹ƒvvƒ{ƒ^ƒ“ƒNƒŠƒbƒNŒã‚É
 ‚¢‚ë‚¢‚ëƒqƒ“ƒg‚ª•\Ž¦‚³‚ꂽ‚ñ‚Å‚·‚ªA
 ¡‚Í^‚Á”’Bu‚ v‚Ì•¶Žš‚ào‚È‚¢‚Å‚·‚æB
 Ý’è•û–@“™•ª‚©‚è‚Ü‚µ‚½‚燂킹‚Ä‹³‚¦‚Ä‚­‚¾‚³‚¢@(*Lƒm„DM)

@

i‚à‚Ý‚¶âj 2014/09/01(ŒŽ) 00:00


 „ƒf[ƒ^ƒV[ƒg‚Ì‚Æ‚±‚ë‚É@ƒ}[ƒNH‚³‚ê‚Ä‚Ü‚·B
 ‚¾‚Á‚Ä錾‚µ‚½‚Ì‚Í
 „Dim ƒf[ƒ^[ƒV[ƒg As Worksheet
 ‚Å‚·‚©‚çB
 uƒf[ƒ^ƒV[ƒgv‚Íw•Ï”‚ª’è‹`‚³‚ê‚Ä‚¢‚¢‚Ü‚¹‚ñBx‚Å‚·‚æ‚ËH

 ƒGƒNƒZƒ‹‚ÌŒ¾‚¤Ž–‚àA‚«‚¿‚ñ‚Æ•·‚¢‚Ä‚ ‚°‚Ä‚­‚¾‚³‚¢B

 „V‚µ‚¢‚v‚c‚ÉØ‚è‘Ö‚¦‚Ä‚©‚çB
 u‚v‚cv‚Á‚ĉ½‚Å‚·‚©H
 •’Ê‚É(F1‚Æ‚©‚Å)ƒwƒ‹ƒv‚ÍŒ©‚ç‚ê‚Ü‚·‚©H
 @
iHANAj 2014/09/01(ŒŽ) 00:04

 >u‚v‚cv
  windows2010‚Å‚·@OOGG

 „•’Ê‚É(F1‚Æ‚©‚Å)ƒwƒ‹ƒv‚ÍŒ©‚ç‚ê‚Ü‚·‚©H
 @‚¢‚¢‚¦AŒ©‚ê‚Ü‚¹‚ñA‚Æ‚¢‚¢‚Ü‚·‚©‰½‚à•\Ž¦‚³‚ê‚Ä‚¢‚È‚¢^‚Á”’‚ȃy[ƒW‚É‚È‚Á‚Ä‚Ü‚·

 „uƒf[ƒ^ƒV[ƒgv‚Íw•Ï”‚ª’è‹`‚³‚ê‚Ä‚¢‚¢‚Ü‚¹‚ñBx‚Å‚·‚æ‚ËH
 iHHj

 •Ï”錾‚µ‚ăV[ƒg‚ð‚r‚d‚s‚·‚ê‚Î@ƒV[ƒg–¼‚Ì‘ã‚í‚è@•Ï”‚ªŽg‚¦‚é‚Æ‚¢‚¤ˆÓ–¡‚Å‚Í ‚È‚¢‚Ì‚Å‚·‚©H
 ‚³‚ç‚É‚à‚¤ˆê“xuƒ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("AFA"), 0)

 ‚Å‚à
 ƒf[ƒ^[ƒV[ƒg@‚Æ‚¢‚¤Œ¾—t‚ª‚¢‚¯‚È‚¢‚Ì‚©‚ÆŽv‚¢B
 ƒ[ƒ}Žš‚É•ÏX‚µ‚½‚Æ‚±‚ë

 ¡“x‚Í(NO¤ŒŽ)‚Ì•”•ª‚Íu•Ï”‚ª’è‹`‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBv‚Æ‚Å‚Ä‚¢‚Ü‚·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("AFA"), 0)
           ŒŽ = Application.Match(Month(Date6.Cells(i, "‚`")), WŒv.Range("2F2"), 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•Ï”‚ª’è‹`‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBv‚Æ‚Å‚Ä‚¢‚Ü‚·
 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ƒ@ƒŒƒ“ƒXv‚ðƒNƒŠƒbƒN‚µ‚Ă݂ĉº‚³‚¢B
 @
iHANAj 2014/09/01(ŒŽ) 00:51

 ‚·‚Ý‚Ü‚¹‚ñ(*Lƒm„DM)
 uCv‚Ä‚¢‚Â‚àŽ©“®‚É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")
 ‚Ì@uiv‚ªãŽè‚­Œ‹‰Ê‚ðE‚¢‚¦‚Ä‚¢‚È‚¢‚ÌŠ´‚¶‚Å‚·B
 i=3 ‚¾‚Á‚½‚è i=Œ`‚ªˆê’v‚µ‚È‚©‚Á‚½‚è

 ƒGƒ‰[13‚É‚È‚Á‚½‚肵‚Ü‚·B

 >‚»‚Ìu¥v‚ðƒNƒŠƒbƒN‚µˆê”Ô‰º‚ÌuŠJ”­ŽÒ—pƒŠƒtƒ@ƒŒƒ“ƒXv‚ðƒNƒŠƒbƒN‚µ‚Ă݂ĉº‚³‚¢B

 ‚à‚Æ‚à‚ƃ`ƒFƒbƒN‚³‚ê‚Ä‚¢‚Ü‚·AƒGƒNƒZƒ‹‚̃wƒ‹ƒv‚à‚ ‚Á‚Ä
 ƒNƒŠƒbƒN@Ë@ƒGƒ‰[13ŒŸõ@¨@google@‚ÌŒŸõ‰æ–Ê‚ÉØ‚è‘Ö‚¦‚½‚ñ‚Å‚·‚æB

 ‚à‚µ‚©‚·‚é‚Æ
 ƒGƒ‰[‰ÓŠ‚Í‹³‚¦‚Ä‚â‚邯‚ÇA“à—e‚ÍŸŽè‚É’²‚ׂë‚ÄŽ–‚È‚ñ‚¾‚낤‚©iHHj
 ‚»‚¤‚¢‚¤‚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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "‚`")), WŒv.Range("2F2"), 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‚Íuiv‚Åo‚Ä‚¢‚éƒGƒ‰[‚Å‚Í‚È‚¢‚Å‚·B
 uŒ^‚ªˆê’v‚µ‚Ü‚¹‚ñv‚Å‚·‚æ‚ËH

 ‚»‚ê‚ÍNO=``‚©ŒŽ=``‚Åo‚Ä‚¢‚éƒGƒ‰[‚Å‚·B
 ‚Ü‚¸‚»‚Ì“ñ‚‚̌^‚ÍStringŒ^‚Å‚·‚æ‚ËH

 ‚»‚±‚ÉMatch‚ÅŒŸõ‚µ‚½’l‚ð“ü‚ê‚悤‚Æ‚µ‚Ä‚¢‚Ü‚·‚ªA’l‚ªŒ©‚‚©‚ç‚È‚©‚Á‚½ê‡uFalsev‚ª•Ô‚è‚Ü‚·B
 ‚»‚¤‚·‚é‚ÆFalse‚ÍBooleanŒ^‚Å‚·‚Ì‚ÅAStringŒ^‚ÉBooleanŒ^‚ð“ü‚ê‚悤‚Æ‚µ‚ÄuŒ^‚ªˆê’v‚µ‚Ü‚¹‚ñv
 ‚Æ‚È‚è‚Ü‚·B

 ‚¹‚Á‚©‚­IsNumericŠÖ”‚ðŽg‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚©‚çA“ñ‚‚̕ϔ‚ð‚È‚ñ‚Å‚à“ü‚éVariantŒ^‚É•ÏX‚µ‚ÄA
 ’†g‚Å•]‰¿‚·‚ê‚΂悢‚Ì‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©H

 HANA‚³‚ñ‚ªƒR[ƒh‚ÌŒfÚ‚µ‚Ä‚¢‚È‚¢•ûj‚̂悤‚È‚Ì‚ÅAŽ„‚à휂µ‚Ü‚µ‚½i11:45j

 “r’†ƒR[ƒh‚ÉDebug.Print‚ð‹²‚ñ‚Å•Ï”‚Ì’l‚ðŠm”F‚·‚邱‚Æ‚ÍA‚Æ‚Ä‚à‘å؂Ȉ—‚Å‚·Bi“Á‚ɉ‚ß‚Äì‚Á‚½ƒ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ˆî—tj 2014/09/01(ŒŽ) 11:41

‰¡‚©‚ç‚·‚¢‚Ü‚¹‚ñ
ŒŽ‚ÌŒvŽZ‚Å‚·‚ªA‚Å‚Í‚È‚­B—ñ‚Å‚Í‚ ‚è‚Ü‚¹‚ñ‚©
‚»‚ê‚Æmonth‚Å‚¾‚·‚Æ1‚È‚Ç‚ª‚Å‚Ü‚·‚ªAWŒv‚Å‚Í‚PŒŽ‚Ȃ̂ňê’v‚µ‚Ü‚¹‚ñB
‚±‚ê‚ð‰ðÁ‚·‚é‚ɂ͈êˆÄ‚Å‚·‚ª

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

‚»‚ê‚Æ‚à‚µƒGƒ‰[‚ªo‚½‚ç‚»‚̃Gƒ‰[•¶‚Ì‚Ü‚Ügoogle‚È‚Ç‚ÅŒŸõ‚·‚é‚Æ“š‚¦‚ª‚ ‚Á‚½‚肵‚Ü‚·B

ʼn‚©‚çVBA‚Å‚â‚é‚æ‚è‚ࡉñ‚ÌMATCH‚Ìꇈê“xƒ}ƒNƒ‚Ì‹L˜^‚È‚Ç‚Å‚Å‚«‚é‚Ì‚©AŠm‚©‚ß‚È‚ª‚ç‚â‚é‚Æ‚¢‚¤‚±‚Æ‚à‚Å‚«‚Ü‚·B

ˆê“x‚É‚·‚ׂĂðl‚¦‚é‚Ì‚Å‚Í‚È‚­AƒfƒoƒbƒO‹@”\‚âƒuƒŒ[ƒNƒ|ƒCƒ“ƒgAƒRƒƒ“ƒg‚ð‘‚¢‚½‚èAƒRƒƒ“ƒg‚É‚µ‚Ä‚Ý‚½‚肵‚Ä‚µ‚Ä‚­‚¾‚³‚¢B

iƒfƒCƒgj 2014/09/01(ŒŽ) 12:03


 iƒfƒCƒgj —l

 ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·@(L¡✪ƒÖ✪¡M)
 ‚ ‚ꂱ‚ê‚𒼂µ‚½‚牽‚â‚ç‚¢‚‚̊Ԃɂ©•Ï‚í‚Á‚Ä‚Ü‚µ‚½@(*Lƒm„DM)

 >ˆê“x‚É‚·‚ׂĂðl‚¦‚é‚Ì‚Å‚Í‚È‚­
 ‚¸‚Á‚Æ’·‚¢Ž–“¯‚¶ƒŒƒbƒXƒ“‚ð‚µ‚Ä‚¢‚Ü‚·B
 ‚È‚É‚ð‚‚­‚肽‚¢‚©@¨@‚Ç‚Ì—l‚ÉŒ‹‰Ê‚𓾂ç‚ê‚é‚©@¨@ƒR[ƒh쬂̎è‡
 ¨@ƒR[ƒhì¬@¨@Œ»Ý‚Í•Ï”‚ÌÝ’è•û–@@
 ‚»‚µ‚Ä¡‚͂悤‚â‚­ƒGƒ‰[‚É‚È‚é——R‚ð•×‹­‚µ‚Ä‚¢‚é‚Æ‚±‚ë‚Å‚·@(Lß„tß`)
 “¹‚Ì‚è‚Í‚Ü‚¾‚Ü‚¾ƒiƒCƒKƒC‚ÆŽv‚¢‚Ü‚·B

 iˆî—tj—l

 ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·@E:*(VEªEVl)*: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‚Å‚«‚é‚ÆBBB

 ‚»‚ê‚Å‚µ‚½‚çBƒ{ƒ^ƒ“ì‚Á‚ă}ƒNƒ‚ð“o˜^‚µ‚ÄŽg—p‚µ‚Ä‚Ü‚·B
 ‚»‚Ì“s“x@ÎßÁØÎßÁØ@‚ÆB@’ŒbŽMP)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

 ‚µ‚©‚µiHANAj—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„DM)
 ƒ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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 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„DM)
 ‚»‚¤‚Å‚·‚ËB
 ’ljÁ‚µ‚Ă݂ĉº‚³‚¢B
 E3ƒZƒ‹‚©‚çA(A—ñ‚ÌÅIs,2s–Ú‚ÌÅI—ñ)‚̃Zƒ‹@‚܂ł͈̔͂ł·‚æ‚ËH

 „‚»‚Ì“s“x@ÎßÁØÎßÁØ@‚ÆB
 ‚±‚ꂾ‚ÆAƒGƒ‰[‚ªo‚½’iŠK‚Å‚µ‚©Ž~‚Ü‚ç‚È‚¢‚Ì‚Å
 [F8]‚ňês‚¸‚ÂŽÀs‚µ‚È‚ª‚ç@Šm‚©‚ß‚Ä‚Ý‚Ä‚à‚炤‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
 @
iHANAj 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‚ÌŠÔ‚É‹ó—“‚ª‚ ‚Á‚½‚¹‚¢‚Å‚Í‚ÆBBB

 For=3to9

 ‚ÌŽž‚Í‚¢‚¢‚Ì‚Å‚·‚ªA

 ÅIs‚É‚È‚è‚Ü‚·‚ÆB

 15–Ú‚©‚çFXƒƒ‚‚Á‚Ä‚½‚Ì‚ÅA‚»‚Ì‚¹‚¢‚©‚à‚Å‚·B
 ‚»‚ê‚ç‚𜂢‚½‚ç
 Dim NO As Long
 Dim ŒŽ As Long

 ‚Å‚à‘S‘R–â‘è‚ ‚è‚Ü‚¹‚ñ‚Å‚µ‚½B

 ‚¾‚¢‚½‚¢ƒRƒc‚ª’Í‚ñ‚¾‚Ì‚ÅA’lƒNƒŠƒA‚Í–â‘è‚È‚¢‚Å‚·‚ªA
 TEL‚̒ljÁðŒ‚ðƒ`ƒƒƒŒƒ“ƒW‚µ‚Ă݂悤‚ÆŽv‚¢‚Ü‚·@(L¡✪ƒÖ✪¡M)

 ­X‚¨‘Ò‚¿‚­‚¾‚³‚¢B
 ‚»‚Ì‘O‚ɃtƒH[ƒ€ƒy[ƒW‚àì‚ç‚È‚«‚á`@(*Lƒm„DM)
 ‚±‚±‚̂悤‚É‹³‚¦‚Ä‚­‚ê‚é‚Æ‚±‚ë‚È‚¢‚©‚µ‚çB
i‚à‚Ý‚¶âj 2014/09/01(ŒŽ) 16:28

ƒtƒH[ƒ€‚Íexcel‚Å쬂ł·‚©H‚»‚ê‚Æ‚à•Ê‚̉½‚©‚Å‚·‚©
excel‚Å‚µ‚½‚炱‚̃TƒCƒg‚Å‘åä•v‚Å‚·B
iƒfƒCƒgj 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—ñ‚Ì3s–Ú‚©‚çA—ñ‚ÌÅIs‚܂Ń‹[ƒ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("AFA"), 0)
                ŒŽ = WSF.Match(ŒŽŒŸõ’l, WŒv.Range("2F2"), 0)
                Debug.Print NO
                Debug.Print ŒŽ

                '//‚Ç‚¿‚ç‚à”’l‚È‚ç‚ÎAWŒ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 & "vu " & ŒŽŒŸõ’l & "v" & vbNewLine
                End If
            Next i
        End With
        If Len(msg) > 0 Then MsgBox msg & "‚̈—‚ªo—ˆ‚Ü‚¹‚ñ‚Å‚µ‚½B"
    End Sub

 HANA‚³‚ñ‚²‚ß‚ñ‚È‚³‚¢BBB

iˆî—tj 2014/09/01(ŒŽ) 16:54


 iƒfƒCƒgj —l

 ƒXƒ‹[‚µ‚Ä‚­‚¾‚³‚¢@OOGG
 ƒz[ƒ€ƒy[ƒW‚̊ԈႢ‚Å‚·B

 iˆî—tj —l
 ‚²Žw“E‚ÆAhç…‚Ì‚¨Œ¾—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
 @
iHANAj 2014/09/01(ŒŽ) 23:21

 HANA‚³‚ñ
 „„„Œ‹‹ÇƒGƒ‰[‚ÌŒ´ˆö‚Í•ª‚©‚Á‚½‚Ì‚Å‚µ‚傤‚©H
 „‚±‚ê‚ÍA‚à‚Ý‚¶â‚³‚ñ‚É‚ ‚Ä‚½Œ¾—t‚Å‚à‚ ‚è‚Ü‚·‚ª
 „ˆî—t‚³‚ñ‚É‚ ‚Ä‚½Œ¾—t‚Å‚à‚ ‚Á‚½‚Ì‚Å‚·‚æB
 ‘‚Æ‚¿‚肵‚Ä‚¢‚½‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªAi•\‚ð‚¿‚á‚ñ‚ÆŒ©‚Ä‚È‚¢‚Ì‚ÅEEEj
 VBAã‚Å‚ÍAMatchŠÖ”‚Ì–ß‚è’l‚ÍStringŒ^‚ÆLongŒ^‚Å‚ÍAFalse‚ª–ß‚é‚̂Ŏ󂯎æ‚ê‚È‚¢Žd—lB

 ÝŒvã‚Å‚ÍAƒf[ƒ^ƒV[ƒg‚É‚ ‚èAWŒvƒV[ƒg‚É‚È‚¢‚à‚Ì‚ª‚ ‚é–â‘èB
 EEEˆ½‚¢‚ÍWŒvƒV[ƒg‚Í‚Ü‚Á‚³‚ç‚ȃV[ƒg‚ÉAƒf[ƒ^ƒV[ƒg‚É—L‚é‚à‚Ì‚¾‚¯o—Í‚³‚¹‚é‚È‚Ç‚ÌH•vB
 iH•v‚ÉŠÖ‚µ‚Ä‚ÍAŠÖ”‚Åì‚낤‚Æ‚¢‚¤•ûj‚̂悤‚Å‚µ‚½‚ªj

 Ž„‚ªŒ´ˆö‚©‚È[‚ÆŽv‚¤‚Æ‚±‚ë‚Í‚±‚ñ‚È‚Æ‚±‚ë‚Å‚µ‚½B
 ‰¡‚©‚çŒûo‚µ‚ÄAê‚ðr‚炵‚½‚悤‚Å\‚µ–󂲂´‚¢‚Ü‚¹‚ñ‚Å‚µ‚½B

 „i—ªj‚¨•ª‚©‚è‚ÆŽv‚¢‚Ü‚·‚ªB
 ‚Í‚¢EEEB

iˆî—tj 2014/09/02(‰Î) 08:46


 ˆî—t‚³‚ñB
 ˆî—t‚³‚ñ‚ªê‚ðr‚µ‚½‚Æ‚ÍŽv‚¢‚Ü‚¹‚ñB
 ŠÖŒW‚È‚¢˜b‚ª’·‚­‚È‚é‚Æ‚¢‚¯‚Ü‚¹‚ñ‚Ì‚ÅA’Z‚¢‚Å‚·‚ª‚±‚Ì•Ó‚ÅB

 ‚à‚Ý‚¶â‚³‚ñ
 „TEL‚̒ljÁðŒ‚ðƒ`ƒƒƒŒƒ“ƒW‚µ‚Ă݂悤‚ÆŽv‚¢‚Ü‚·@
 ‚»‚Ì‘O‚É

 „15–Ú‚©‚çFXƒƒ‚‚Á‚Ä‚½‚Ì‚ÅA‚»‚Ì‚¹‚¢‚©‚à‚Å‚·B
 ‚à‚¤ˆê“x“¯‚¶ó‹µ‚É‚µ‚ÄAMATCHŠÖ”‚Ì–ß‚è’l‚ª‰½‚É‚È‚é‚Ì‚©B
 ‚Ü‚½A‚»‚ꂪŠi”[‚Å‚«‚é•Ï”‚ÌŒ^‚͉½‚È‚Ì‚©B
 ‚º‚Њm”F‚µ‚Ä’¸‚¯‚é‚Æ—Ç‚¢‚ÆŽv‚¢‚Ü‚·B

 ‚»‚ê‚©‚ç
 „ƒ‹[ƒv‚ÌŠÔ‚É‹ó—“‚ª‚ ‚Á‚½‚¹‚¢‚Å‚Í‚ÆBBB
 ‚±‚ê‚Ì‘Îô‚à•K—v‚Å‚·‚©‚ËBBBH
 @‚È‚º‹ó—“‚ª‚ ‚é‚Ì‚©‚Ì‚²à–¾‚É‚æ‚Á‚Ä@‚Ç‚Ì—l‚È‘Îô‚ªo—ˆ‚é‚Ì‚©@‚ª
 @•Ï‚í‚Á‚Ä‚­‚é‚ÆŽv‚¢‚Ü‚·‚ªB

 ‚ Aæ‚Ƀz[ƒ€ƒy[ƒW‚Å‚·‚©B
 ‚»‚¿‚ç‚àŠæ’£‚Á‚Ä‚­‚¾‚³‚¢B
 @
iHANAj 2014/09/02(‰Î) 09:52

 „ƒ‹[ƒv‚ÌŠÔ‚É‹ó—“‚ª‚ ‚Á‚½‚¹‚¢‚Å‚Í‚ÆBBB
 „‚à‚¤ˆê“x“¯‚¶ó‹µ‚É‚µ‚ÄAMATCHŠÖ”‚Ì–ß‚è’l‚ª‰½‚É‚È‚é‚Ì‚©B

 Œ»ÝtestƒV[ƒguƒf[ƒ^[ƒV[ƒgv‚̃ŒƒCƒAƒEƒg‚͉º‹L‚É‚È‚Á‚Ä‚Ü‚·B
 ã‚Ì•\‚ÍŒvŽZ—pA‰º‚Ì•\‚Í‚±‚±‚É“\‚肾‚µ—p‚Å‚·B
 s—ñ‚ð‚¸‚ç‚·‚ÆŠÖ”‚ÌŽQlƒ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

 FXŽŽ‚µ‚½‚Æ‚±‚ë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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 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—ñ‚ÌÅIs,2s–Ú‚ÌÅI—ñ)‚̃Zƒ‹@‚܂ł͈̔͂ł·‚æ‚ËH

  ‚Í‚¢A‚Å‚àÅIs‚Í‚Å‚«‚È‚¢‚©‚ÈH

  ¡‚Í‚±‚ê‚ðŽg‚Á‚Ä‚Ü‚·B
  WŒv.Range("E3:M6").ClearContents

  ÅIs‚ÅAŽÀs‚·‚é‚ÆŠÔ‚É‹ó—“‚ª‚ ‚é‚Ƴ‚µ‚­C³‚³‚ê‚È‚¢‚Å‚·‚æ‚ËiHHj

i‚à‚Ý‚¶âj 2014/09/03(…) 21:16


 „¡“ú‚ÍŠÖ”‚ÅŠm”F‚µ‚½‚Æ‚±‚ë@”Žš‚Æ•¶Žš@‚ª“ü‚é‚Ì‚Å
 ”Žš‚Á‚Ä‚Ì‚ÍA4,5,6,7 ‚Æ‚©‚ÌŽ–‚Å
 •¶Žš‚Á‚Ä‚Ì‚ÍA#VALUE!@#N/A@‚ÌŽ–‚Å‚·‚©H

 ‚Å‚µ‚½‚çAŒãŽÒ‚Íu•¶Žšv‚Å‚Í‚È‚­uƒGƒ‰[’lv‚Å‚·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("AFA"), 0)
 ‚ªAˆî—t‚³‚ñ‚ª‘‚¢‚ĉº‚³‚Á‚Ä‚¢‚é
 „‚¹‚Á‚©‚­IsNumericŠÖ”‚ðŽg‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚©‚çA“ñ‚‚̕ϔ‚ð‚È‚ñ‚Å‚à“ü‚éVariantŒ^‚É•ÏX‚µ‚ÄA
 „’†g‚Å•]‰¿‚·‚ê‚΂悢‚Ì‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©H
 ‚ðƒR[ƒh‚É‚µ‚½ê‡‚Å‚·B

 „ã‚Ì•\‚ÍŒvŽZ—pA‰º‚Ì•\‚Í‚±‚±‚É“\‚肾‚µ—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
 @
iHANAj 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„DM)

 „ƒ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‚PzD•Ï”–¼‚ðŠÔˆá‚Á‚½ŽžA‹³‚¦‚Ä‚­‚ê‚éB
 ‚·‚Å‚É‘ÌŒ±Ï‚ÆŽv‚¢‚Ü‚·‚ª
 —á‚Pj
    Dim ƒf[ƒ^[ƒV[ƒg As Worksheet
@@@@~~~~~~~~~~~~~~‚Å錾‚µ‚Ä‚¢‚é‚Ì‚É
    For i = 2 To ƒf[ƒ^ƒV[ƒg.Cells(Rows.Count, 1).End(xlUp).Row
                 ~~~~~~~~~~~~ŠÔˆá‚¦‚Ä‘‚¢‚Ä‚µ‚Ü‚Á‚½B

 —á‚Qj
    WŒvƒV[ƒg.Cells(NO¤ŒŽ) = WŒvƒV[ƒg.Cells(NO¤ŒŽ) + ƒf[ƒ^[ƒV[ƒg.Cells(i¤10)
                     ~~~~~ uNO, ŒŽv‚Æ‘‚­ŠAuNO¤ŒŽv‚É‚È‚Á‚Ä‚µ‚Ü‚Á‚Ä@•Ï”‚Æ‚µ‚Ĉµ‚í‚ê‚Ä‚µ‚Ü‚Á‚½B
 “™‚Æ‚à‚¤ˆê‚Â
 y‚QzD‘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(EEEE)
   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‚Á‚½Œ‹‰Ê‚ƈႤ‚ñ‚¾‚¯‚Ç@‚Ç‚±‚ªˆá‚¤‚Ì‚©‚ÈHv
 ‚Á‚Ä‚È‚è‚Ü‚·B
 ƒR[ƒh‚ª’Z‚©‚¯‚ê‚ÎAŒ©‚‚¯‚â‚·‚¢‚ÆŽv‚¢‚Ü‚·‚ª
 ’·‚­‚È‚Á‚Ä‚­‚é‚ÆA’T‚·‚Ì‚ª‘å•Ï‚Å‚·B

 ‚³‚ÄAÄ“x‚É‚È‚è‚Ü‚·‚ª@Œä•ÔŽ–‚É‚æ‚Á‚Ä‚Í¡Œã‚Ì•ûj‚à•Ï‚í‚Á‚Ä‚«‚Ü‚·‚Ì‚Å
 ƒf[ƒ^ƒV[ƒg‚Ì2s–Ú‚ÌŒ©o‚µˆÈ~‚ÉA‚»‚ÌŒ©o‚µ‚ƈê’v‚µ‚È‚¢ƒf[ƒ^‚ª“ü‚é‚Ì‚©H
 ‹³‚¦‚ĉº‚³‚¢B

 ‚Ü‚½
 „„E3ƒZƒ‹‚©‚çA(A—ñ‚ÌÅIs,2s–Ú‚ÌÅI—ñ)‚̃Zƒ‹@‚܂ł͈̔͂ł·‚æ‚ËH
 „‚Í‚¢A‚Å‚àÅIs‚Í‚Å‚«‚È‚¢‚©‚ÈH
 „ÅIs‚ÅAŽÀs‚·‚é‚ÆŠÔ‚É‹ó—“‚ª‚ ‚é‚Ƴ‚µ‚­C³‚³‚ê‚È‚¢‚Å‚·‚æ‚ËiHHj
 ‹ï‘Ì“I‚ÉA‚Ç‚ñ‚È•\‚ð‘z’肵‚Ä‚¢‚é‚Ì‚Å‚µ‚傤H

 ‚²’掦‚Ì—á‚Å‚ ‚ê‚ÎA
 @A—ñ@‚ÌÅIs‚Í6s–Ú
 @2s–Ú‚ÌÅI—ñ‚Í7—ñ–Ú
 ‚È‚Ì‚ÅA
 @E3‚©‚ç Cells(6, 7) ‚͈̔͂ɂµ‚©ƒf[ƒ^‚Í“ü‚ç‚È‚¢‚Å‚·‚æ‚ËH

 ‚Ü‚ŸAA—ñ‚̃f[ƒ^—Ê‚ª‘‚¦‚½Žž‚É "E3:M6" ‚ð‚»‚Ì“s“x•ÏX‚·‚é‚Ì‚È‚ç
 ‚»‚ê‚Å‚à—Ç‚¢‚Ì‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªB
 @
iHANAj 2014/09/04(–Ø) 10:53

 >’Pƒ‚É‘‚«ŠÔˆá‚¦‚Æ‚ÍŽv‚¢‚Ü‚·‚ªB
  ‚·‚Ý‚Ü‚¹‚ñOOGG‚»‚Ì’Ê‚è‚Å‚·B

 •Ï”‚Í‚æ‚­Žg‚¤‚È‚è‚Ì——R‚ª‚ ‚é‚ñ‚Å‚·‚ËB
 ‚æ‚­‚í‚©‚è‚Ü‚µ‚½B‚â‚Í‚è@long@‚Ì‚Ü‚Ü‚ÅŽg—p‚µ‚½‚¢‚ÆŽv‚¢‚Ü‚·B

 ‚½‚¾A–{Ž¿‚ª‚æ‚­‚í‚©‚ç‚È‚¢‚Ì‚Å‚·‚ªA
 IntegerALong@‚Ä@“¯‚¶”Žš‚ð“ü‚ê‚é•Ï”‚Å‚·‚æ‚ËB
 Žg—pŠî€‚ÍA@Žg‚¦‚锎š‚Ì•‚É‚È‚é‚Ì‚Å‚µ‚傤‚©H

 ‚ß‚Á‚½‚ÉŽg—p‚µ‚È‚¢‚ÆŽv‚¢‚Ü‚·‚ªASingleADoubleA‚à‚»‚¤‚Å‚·‚ªAˆá‚¢‚Í‚â‚͂蔎š‚Ì•H
 String‚Í‚æ‚­‚í‚©‚è‚Ü‚¹‚ñ‚ªA”Žš‚Æ•¶Žš‚𗼕û”FŽ¯‚Å‚«‚é‚æ‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H
 Variant@‚Í@”Žš‚à•¶Žš‚àƒGƒ‰[‚à‰½‚Å‚à‚Ç‚ñ‚Æ‚±‚¢@‚ƃCƒ[ƒW‚Å‚æ‚낵‚¢‚Å‚µ‚傤‚©H

 ƒoƒCƒgŒ^	        Byte	  1	@@@@@@@@0`255
 ƒu[ƒ‹Œ^	        Bool	  2	@@@@@@@@^iTruej‹UiFalsej
 ®”Œ^	                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.402823E38i³‚Ì”j
 ”{¸“x•‚“®¬”“_”Œ^	Double	  8	@@@@@@@@-1.7976931348623E308`-4.94065645841247E-324i•‰‚Ì”j
@@@@@@@@@@@@@@@@@@@@@@@           4.94065645841247E-324`1.79769313486232E308i³‚Ì”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‚·‚é`
 @ÅIsAŽ©“®‚Ɏ擾‚µ‚Ä‚­‚ê‚é‚Æ‚ ‚肪‚½‚¢‚Å‚·B
 „E3‚©‚ç Cells(6, 7) ‚͈̔͂ɂµ‚©ƒf[ƒ^‚Í“ü‚ç‚È‚¢‚Å‚·‚æ‚ËH
@ testƒf[ƒ^[‚Å‚·‚Æ@Cells(6, 8)@‚Å‚·B

  „‹ï‘Ì“I‚ÉA‚Ç‚ñ‚È•\‚ð‘z’肵‚Ä‚¢‚é‚Ì‚Å‚µ‚傤H
 —Ⴆ‚Ήº‹L‚Ì•\‚©‚炵‚Ü‚·‚ÆB
 i‚d3‚©‚çÅIsA‚o—ñj.ƒNƒŠƒAƒRƒ“ƒeƒ“ƒc@‚É‚µ‚½ê‡
 @‚e660@‚Æ@‚o730@‚ªÁ‚³‚ꂸ‚É@‚»‚Ì‚Ü‚ÜŽc‚é‚ñ‚¶‚á‚È‚¢‚©‚ƃCƒ[ƒW‚µ‚Ä‚Ü‚·B

 ‚à‚¿‚ë‚ñ‚Ç‚±‚̃Zƒ‹‚ª‹ó—“‚É‚È‚é‚©‚͇ŒvƒK‚Å‚È‚¢‚Æ•ª‚©‚ç‚È‚¢‚Ì‚Å

 ‚»‚¤‚·‚é‚ƃR[ƒh쬂Í

 i‚`3‚©‚çÅIsA1j@‚Å‚à@
 Á‚·‚Ì‚Í@‚d3‚©‚ç‚o‚ÌÅIs‚¾‚æ‚Æ‚¢‚Á‚½ƒR[ƒh쬂µ‚È‚¯‚ê‚΂Ȃç‚È‚¢‚Å‚µ‚傤‚©H

 ‰½Œ¾‚Á‚Ä‚ñ‚Ì‚©‚æ‚­‚í‚©‚ç‚È‚­‚È‚è‚Ü‚µ‚½OOGG

 [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
 ‚PDA—ñ‚Ì“ü—Í‚ª‚ ‚éÅŒã‚Ìs‚͉½”Ô‚Å‚·‚©HEEEEEE—ñ‚Å‚Í‚È‚­A—ñ‚ÅŠm”F‚µ‚Ü‚·
 ‚QD2s–Ú‚Ì“ü—Í‚ª‚ ‚éÅŒã‚Ì—ñ‚͉½”Ô‚Å‚·‚©HEEEEŒŽ‚ÌŒ©o‚µ‚ª“ü—Í‚³‚ê‚Ä‚¢‚és
 @
iHANAj 2014/09/05(‹à) 09:24

 •Ï”錾‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B•×‹­‚µ‚Ü‚·B

   „‚PDA—ñ‚Ì“ü—Í‚ª‚ ‚éÅŒã‚Ìs‚͉½”Ô‚Å‚·‚©HEEEEEE—ñ‚Å‚Í‚È‚­A—ñ‚ÅŠm”F‚µ‚Ü‚·
 WŒvƒV[ƒg‚Íu7v”Ô–Ú‚Å‚·
 Œ³ƒf[ƒ^[‚Íu50v”Ô–Ú@‚Å‚·@‚½‚¾‚µA@‘‚¦‚Ü‚·B

  „‚QD2s–Ú‚Ì“ü—Í‚ª‚ ‚éÅŒã‚Ì—ñ‚͉½”Ô‚Å‚·‚©HEEEEŒŽ‚ÌŒ©o‚µ‚ª“ü—Í‚³‚ê‚Ä‚¢‚és

 WŒvƒV[ƒg‚Í@u8v”Ô–Ú‚Å‚·B
 Œ³ƒf[ƒ^[‚Í@u17v”Ô–Ú‚Å‚·B‘‚¦‚Ü‚¹‚ñB
i‚à‚Ý‚¶âj 2014/09/05(‹à) 18:03

 „„‚PDA—ñ‚Ì“ü—Í‚ª‚ ‚éÅŒã‚Ìs‚͉½”Ô‚Å‚·‚©H
 „WŒvƒV[ƒg‚Íu7v”Ô–Ú‚Å‚·
 „„‚QD2s–Ú‚Ì“ü—Í‚ª‚ ‚éÅŒã‚Ì—ñ‚͉½”Ô‚Å‚·‚©H
 „WŒvƒV[ƒg‚Í@u8v”Ô–Ú‚Å‚·B
 ‚Æ‚¢‚¤Ž–‚ÍA
 @E3ƒZƒ‹‚©‚çCells(7, 8)ƒZƒ‹‚͈̔͂Ɍ‹‰Ê‚ª“ü—Í‚³‚ê‚Ä‚¢‚é
 ‚Á‚ÄŽ–‚Å‚·‚æ‚ËH

 ƒ}ƒNƒ‚ÅWŒv‚ðŽn‚ß‚é‘O‚ÉA‚±‚͈̔͂ðClearContents‚·‚é‚Æ‚¢‚¤Ž–‚¾‚Á‚½‚Ì‚Å‚·‚ª
 ‚»‚ê‚Å‚à‘Ê–Ú‚¾‚ÆŽv‚¢‚Ü‚·‚©H
 @
iHANAj 2014/09/05(‹à) 23:16

 „E3ƒZƒ‹‚©‚çCells(7, 8)ƒZƒ‹‚͈̔͂Ɍ‹‰Ê‚ª“ü—Í‚³‚ê‚Ä‚¢‚é
 ‚»‚¤‚µ‚Ü‚·‚ÆBÅIs‚ÆÅI—ñ‚ðŽæ“¾•i‚Æ‚¢‚¯‚È‚¢‚Å‚·‚æ‚ËB

 „„‚PDA—ñ‚Ì“ü—Í‚ª‚ ‚éÅŒã
 „„‚QD2s–Ú‚Ì“ü—Í‚ª‚ ‚éÅŒã

 ã‚ÌðŒ‚ðˆêŒÂ‚¸‚“ü‚ꂽ‚Æ‚±‚뉺‚̃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‚ÌŒ‹‰Ê‚ªu7vAŒŽ‚ÌŒ‹‰Ê‚ªu8v‚¾‚Á‚½Žž‚É
 Cells(NO, 5)‚͂ǂ̃Zƒ‹‚©H@Cells(3, ŒŽ)‚͂ǂ̃Zƒ‹‚©H

 ƒR[ƒh“à‚ɉ¼‚É
    Cells(NO, 5).Select
    Cells(3, ŒŽ).Select
 ‚ð“ü‚ê‚Ä‚à‚ç‚Á‚ÄAWŒ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”Fo—ˆ‚é‚ÆŽ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
 ‚¾‚ÆAWŒvƒV[ƒgˆÈŠO‚̃V[ƒg‚ªƒAƒNƒeƒBƒu‚É‚È‚Á‚Ä‚¢‚½‚çƒGƒ‰[‚É‚È‚é‚ÆŽv‚¢‚Ü‚·B
 •¡”ƒV[ƒg‚ð‘ÎÛ‚É‚·‚éꇂÍA‚·‚ׂẴZƒ‹‚Ì‘O‚Éu‚ǂ̃V[ƒg‚Ìv‚ð“ü‚ê‚ĉº‚³‚¢B
 @ 
iHANAj 2014/09/08(ŒŽ) 08:39

 •ÔM’x‚­‚È‚Á‚Ä‚·‚Ý‚Ü‚¹‚ñB
 9ŒŽ‚̓hƒ^ƒoƒ^‚µ‚Ä•ÔM‚ª’x‚ꂪ‚¿‚©‚à‚Å‚·@(*Lƒm„DM)

 „ Cells(NO, 5)ƒZƒ‹‚©‚çCells(3, ŒŽ)ƒZƒ‹‚͈̔Í
 ~~~~~~~~~~~~~~~~    ~~~~~~~~~~~~~~~~
 Cells(3, 5)ƒZƒ‹‚©‚çCells(3, 8)ƒZƒ‹‚͈̔Í
 ‚Í@E3@`@H8@‚܂ł͈̔͂̉ž—p‚̂‚à‚è‚Å‚µ‚½‚ªA

 ƒR[ƒh‚Ì”FŽ¯‚Æ‚µ‚Ä‚Í
 E1`ÅIs
 E2`ÅIs
 E3`ÅIs

 ‚¾‚¯‚Å‚µ‚½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‚ÌŒ‹‰Ê‚ªu7vAŒŽ‚ÌŒ‹‰Ê‚ªu8v‚¾‚Á‚½Žž‚É
 „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[ƒhj‚ª
 ³‚µ‚­ƒGƒNƒZƒ‹‚É“`‚í‚Á‚Ä‚¢‚é‚©iŽv‚Á‚Ä‚¢‚é’Ê‚è‚É‘‚¯‚Ä‚¢‚é‚©j
 Šm”Fo—ˆ‚é—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‚ª•\Ž¦‚³‚ê‚Ü‚µ‚½‚©Hv
 @
iHANAj 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@3s–Ú‚Ì@ÅI—á@‚Í‚»‚Ì‚Ü‚ÜŽÀs‚³‚ꂽ‚Ì‚ÉA

 WŒv.Cells(NO, 5).Select ‚Í@E5‚ªÅIs‚È‚Ì‚É@‚È‚º@E1@‚ª”FŽ¯‚³‚ꂽ‚ñ‚Å‚µ‚傤‚©H

 ‚¿‚Ȃ݂ɃR[ƒh‚ð
 WŒv.Cells(NO, ŒŽ).Select@‚É‚µ‚Ü‚·‚ÆA@1s–Ú‚ÌÅI—ñ‚É‚È‚è‚Ü‚·B

 NO‚Í@‚Ps–Ú‚ðÅI—ñ‚ð”FŽ¯‚µ‚Ä‚¢‚é‚Ì‚©B
 ‚»‚ê‚Æ‚à@‚Ps–Ú‚©‚爗‚µ‚Ä‚¢‚Ä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
 @
iHANAj 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@iHHj

 „ 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

  iHANAj—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‚ª‚¢‚Á‚Ï‚¢’ljÁ‚³‚ꂽ‚è‘å•Ï‚Å‚·B
 @‰½‚Æ‚©‚È‚é•û–@’m‚è‚Ü‚¹‚ñ‚©H
 @¡ƒGƒNƒXƒvƒ[ƒ‰‚ðŽg—p‚µ‚Ä‚é‚ñ‚Å‚·‚æ@(*Lƒm„DM)
   ‚¢‚Á‚½‚¢‰½‚ª‹N‚±‚Á‚½‚Ì‚â‚çBBB
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
 @
iHANAj 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ŸŽè‚ÉAAA

 ‚XŒŽ17“ú’Ç‹L
 –â‘è‰ðŒˆ‚Ì‚½‚ß•s³ƒAƒNƒZƒXƒŠƒ“ƒN‚ð휂µ‚Ü‚µ‚½B

ƒGƒNƒZƒ‹ŠwZ‚̓GƒNƒXƒvƒ[ƒ‰‚ł̓Rƒƒ“ƒg‚ð‹LÚ‚Å‚«‚È‚¢‚Ì‚Å‚·‚Ë@(*Lƒm„DM)

i‚à‚Ý‚¶âj 2014/09/16(‰Î) 22:51


 ‘¬‚â‚©‚ɃlƒbƒgŠÇ—ŽÒ‚É‘Š’k‚µ‚½•û‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
 ŠÔˆá‚Á‚Ä‚àƒ_ƒEƒ“ƒ[ƒh‚µ‚È‚¢•û‚ª—Ç‚¢‚Å‚µ‚傤B
 ‚»‚ê‚̓EƒBƒ‹ƒXƒTƒCƒg‚̂悤‚Å‚·i­‚È‚­‚Æ‚àŒŸõ‚·‚é‚Ɖö‚µ‚¢æ‚Æ‚µ‚Äî•ñ‚ª
 ‘½”‚ ‚è‚Ü‚·jB

 ƒlƒbƒgŒ©‚Ä‚é•û‚àƒAƒNƒZƒX‚µ‚È‚¢‚悤‚É‚µ‚Ä‚­‚¾‚³‚¢B
 Žæ‚è‚ ‚¦‚¸ URL Ø‚Á‚Ä‚¨‚«‚Ü‚·B

iMookj 2014/09/16(‰Î) 23:36


 ‰½‚©ƒCƒ“ƒXƒg[ƒ‹‚³‚ê‚Ä‚é‚Ý‚½‚¢‚Å‚·‚ËB
 Ž„‚È‚çA•s‹ï‡‚ª‹N‚±‚é‘O‚Ü‚Å•œŒ³‚µ‚Ä‚Ý‚Ü‚·‚ªB
 @‚»‚ê‚Å’¼‚é‚©‚Ç‚¤‚©‚í‚©‚ç‚È‚¢‚Å‚·‚ªBBB

 „ƒGƒNƒZƒ‹ŠwZ‚̓GƒNƒXƒvƒ[ƒ‰‚ł̓Rƒƒ“ƒg‚ð‹LÚ‚Å‚«‚È‚¢‚Ì‚Å‚·‚Ë@(*Lƒm„DM)
 Ž„‚Í Internet Explorer ‚‚©‚¦‚Ä‚Ü‚·B

 ‚³‚ÄA
 „„ NO = WŒv.Range("A3").End(xlUp).Row
 „@’l‚Í@NO=0@‚Å‚·
 ‚±‚ê‚Í‚¨‚©‚µ‚¢‚Å‚·‚ËB
 WŒv.Range("A3").End(xlUp)‚µ‚½ƒZƒ‹‚Ì .Row EEEEs”Ô†
 ‚ª“ü‚é‚Ì‚Åu0v‚ɂȂ邱‚Æ‚Í‚È‚¢‚Å‚·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‚ÅuNOv‚Ì’l‚ðŒ©‚é‚Ì‚Å‚·‚æH

 „„ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
 „@@NO=6@‚Å‚·B
 Cells(Rows.Count, 1)‚Á‚Ăǂ̃Zƒ‹‚©‚í‚©‚è‚Ü‚·‚©H
 @
iHANAj 2014/09/16(‰Î) 23:46

 Ž¿–â‚Ì–{‘è‚Æ‚ÍŠÖŒW‚È‚¢A’ljÁƒ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ƒUi“Á‚É‚¨‚©‚µ‚È‹““®‚ð‚·‚é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
iMookj 2014/09/17(…) 07:56

 iMookj—l

 ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
 ƒGƒNƒZƒ‹ŠwZ‚Ì•ÔŽ–‚¾‚¯‚Å‚àˆê‹ê˜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)

 ‚Ç‚¤‚à‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½ ‚iQ@Qj‚

i‚à‚Ý‚¶âj 2014/09/17(…) 09:49


 ‚·‚Ý‚Ü‚¹‚ñB
 ƒ[ƒJƒ‹ƒEƒBƒ“ƒhƒE‚ƃGƒ~ƒfƒBƒGƒCƒg‚ðŠÔˆá‚¦‚Ü‚µ‚½OOGG

 „ 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‚Í@NO6
 @@A—ñ‚ÌÅIs‚Å‚·‚æ‚Ë@iHHj
@@ ʼnº’[i65536sj‚©‚çã‚ÉŒü‚©‚Á‚Ä‹ó”’‚Å‚È‚¢ƒ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‚Íu6v‚¾‚ÆŽv‚¢‚Ü‚·‚ªBBBH

 Žv‚Á‚½’l‚ª“ü‚Á‚Ä‚¢‚È‚¢‚È‚çAƒR[ƒh‚ªˆ«‚¢‚Ì‚Å•ÏX‚ª•K—v‚Å‚·B

 „„ NO = WŒv.Cells(Rows.Count, 1).End(xlUp).Row
 „@@ʼnº’[i65536sj‚©‚çã‚ÉŒü‚©‚Á‚Ä‹ó”’‚Å‚È‚¢ƒZƒ‹‚ðŒŸõ‚·‚éH
 ‚Í‚¢B‚Å‚·‚©‚ç
 „„ NO = WŒv.Range("A3").End(xlUp).Row 
 ‚Æ‘‚¢‚Ä‚ ‚é‚ÆAA3ƒZƒ‹‚©‚çã‚ÉŒü‚©‚Á‚Ä‹ó”’‚Å‚È‚¢ƒZƒ‹i˜A‘±‚µ‚È‚¢ƒZƒ‹j‚ð
 ŒŸõ‚·‚鎖‚É‚È‚è‚Ü‚·‚ªA‚»‚ꂶ‚áƒ_ƒ‚Å‚·‚æ‚ËH
 @
iHANAj 2014/09/17(…) 16:54

 „‚±‚ê‚Á‚ÄAŽv‚Á‚½’l‚Å‚·‚©H

 ‚ IIƒ°ƒ°(ß„tßlll)!@Š¨ˆá‚¢‚µ‚Ä‚Ü‚µ‚½B
 A3‚©‚çÅIsŽæ“¾‚µ‚Ä‚Ù‚µ‚©‚Á‚½‚ñ‚Å‚·‚ª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„DM)

i‚à‚Ý‚¶âj 2014/09/17(…) 20:53


 „NO = WŒv.Range("A3").End(xlDown).Row
 ‚»‚¤‚Å‚·‚ËB
 A3ƒZƒ‹‚ð‹N“_‚É‚·‚é‚È‚çAxlDown ‚Å’T‚³‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Å‚·‚ËB

 ‚³‚ÄA‚±‚ê‚Å@NO‚Éu6v‚ª“ü‚é—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
 @
iHANAj 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—ñ‚É6s–ڂ܂Ńf[ƒ^‚ª‚ ‚Á‚ÄA2s–Ú‚É8—ñ–ڂ܂Ńf[ƒ^‚ª‚ ‚Á‚½‚ç
 E3:H6@‚͈̔͂̃Zƒ‹‚Ì’l‚ðƒNƒŠƒA‚·‚é•K—v‚ª‚ ‚è‚Ü‚·B

 A—ñ‚É10s–ڂ܂Ńf[ƒ^‚ª‚ ‚Á‚ÄA2s–Ú‚É12—ñ–ڂ܂Ńf[ƒ^‚ª‚ ‚Á‚½‚ç
 E3:L10@‚͈̔͂̃Zƒ‹‚Ì’l‚ðƒNƒŠƒA‚·‚é•K—v‚ª‚ ‚è‚Ü‚·B

 ‚±‚¤l‚¦‚é‚ÆAŽn“_‚Í•Ï‚í‚炸@I“_‚ª•Ï‚í‚è‚Ü‚·‚æ‚ËH 

 Žn“_‚ÍŒˆ‚Ü‚Á‚Ä‚¢‚Ü‚·BE3‚Å‚·B

 I“_‚ªAƒf[ƒ^—Ê‚É‚æ‚Á‚Ä•Ï‚í‚è‚Ü‚·B
 @A—ñ‚É 6s–Ú‚Ü‚Å“ü‚Á‚Ä‚¢‚½‚ç@ 6s–ڂ܂ł͈̔͂ł·‚µ
  @@@10s–Ú‚Ü‚Å“ü‚Á‚Ä‚¢‚½‚ç@10s–ڂ܂ł͈̔͂ł·B
 @2s–Ú‚É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[ƒ‰ƒCv
 ‚¾‚Æ‚µ‚½‚çA—Ç‚¢‚Æ‚ÍŽv‚¦‚Ü‚¹‚ñB
 @
iHANAj 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‚¢‚‚©‚È‚©‚Á‚½‚Å‚·@OOGG
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_cell.html

 Œã‚Ù‚Çfor`next@‚ð@•‚‚©‚ñ‚Å@‚ ‚»‚Á‚©@‚Æ‚¢‚Á‚½Š´‚¶‚Å‚·B
i‚à‚Ý‚¶âj 2014/09/18(–Ø) 00:40

 l‚¦•û‚ÍAŽQl‚É‚³‚ꂽƒ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

 ¡‰ñ‚Íi6s8—ñ‚Ü‚ÅŒ©o‚µ‚ª‚ ‚Á‚½‚çjE3:H6‚È‚Ì‚Å
 Range("E3", "H6").Select
 ‚ÅAE3:H6‚͈̔͂ł·B

 ŽÀÛ‚ÍAŒã‚둤‚ÌuH6v‚Ì•û‚Í•Ï”‚ŕω»‚³‚¹‚½‚¢‚Ì‚Å
 ‚±‚Ì•”•ª‚ª@Cells(› ,¢)@‚Ì—l‚É•Ï”‚ŕω»‚·‚é—l‚É‚µ‚Ü‚·B

 —~‚µ‚¢Œ‹‰Ê‚ª“¾‚ç‚ê‚È‚©‚Á‚½Žž‚ÉAV‚µ‚¢•Ê‚Ì‚à‚Ì‚ð’T‚·‚Ì‚Å‚Í‚È‚­
 ʼn‚Ì“à‚͓‚¢‚ÆŽv‚¢‚Ü‚·‚ªA‚Ç‚¤‚µ‚Ä—~‚µ‚¢Œ‹‰Ê‚ª“¾‚ç‚ê‚È‚©‚Á‚½‚Ì‚©
 ‚Ü‚¸ŒŸ“¢‚µ‚Ä‚Ý‚Ä‚à‚炤‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
 ‚·‚é‚ÆAŽ©•ª‚ŊԈႦ‚â‚·‚¢Š‚à‚í‚©‚Á‚Ä‚­‚é‚ÆŽv‚¢‚Ü‚·‚Ì‚ÅB
 @
iHANAj 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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 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
 @
iHANAj 2014/09/18(–Ø) 22:09

 ‚ ‚·‚Ý‚Ü‚¹‚ñB@call@‚ðŽg‚Á‚Ä
 Ÿ‚Ì‚Æ‚±‚ë‚É“ü‚ê‚Ü‚µ‚½B

 ƒR[ƒhŽÀs‚µ‚Ä‚àB‚¿‚á‚ñ‚Æ—~‚µ‚¢Œ‹‰Ê‚É‚È‚Á‚Ä‚Ü‚·@O[O
 ¡‚Ì‚Æ‚±‚ë@BBB@(*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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 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
 ‚Ì‹Lq‚Í‚¢‚©‚ª‚È‚à‚Ì‚©‚ÆŒ¾‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚ªB
 @
iHANAj 2014/09/18(–Ø) 23:45

 „ ‚Ì‹Lq‚Í‚¢‚©‚ª‚È‚à‚Ì‚©‚ÆŒ¾‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚ª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[ƒ‰ƒCv
 „ ‚¾‚Æ‚µ‚½‚çA—Ç‚¢‚Æ‚ÍŽv‚¦‚Ü‚¹‚ñB

 ‚Æ‘‚¢‚Ä‚ ‚Á‚½‚Ì‚ÅA‚¢‚¢‚Ì‚©‚È‚ÆBBB

 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) ‚ªuE3v
 @WŒv.Cells(3, ŒŽ) ‚ªuH6v
 ‚É‚È‚é‚©‚Ç‚¤‚©Šm”F‚µ‚Ä‚­‚¾‚³‚¢B 

 2014/09/08(ŒŽ) 08:39‚©‚çA‚ªŠÖ˜A‚Ì•”•ª‚Å‚·B
 @
iHANAj 2014/09/19(‹à) 18:26

 @WŒv.Cells(NO, 5) ‚ªuE3v
 @WŒv.Cells(3, ŒŽ) ‚ªuH6v

 ‚É‚È‚ç‚È‚¢‚Å‚·B

 @WŒv.Cells(NO, 5) ‚ªuE6v  
 @WŒv.Cells(3, ŒŽ) ‚ªuH3v

 ‚É‚È‚Á‚Ä‚Ü‚·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) ‚ªuE3v

  WŒv.Cells(3, ŒŽ) ‚ªuH6v

 ‚±‚ÌŒ‹‰Ê‚É‚È‚é‚É‚Í

@WŒv.Cells(3, 5) ‚ªuE3v

  WŒv.Cells(NO, ŒŽ) ‚ªuH6

 ‚É•Ï‚¦‚È‚¢‚ÆBBBB

i‚à‚Ý‚¶âj 2014/09/19(‹à) 20:10


 „WŒv.Cells(3, 5) ‚ªuE3v 
 „WŒv.Cells(NO, ŒŽ) ‚ªuH6v
 ‚Å‚·‚©‚ç
 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‚Å2s–Ú‚ÌÅŒã‚Ì—ñ@‚̃Zƒ‹@‚ÆŒ¾‚¤l‚¦•û‚Å‚·B

 ã‚Åu¡‰ñ‚»‚ê‚ð‚í‚©‚Á‚Ä‚¢‚Ä``‚Æ‚µ‚Ä‚¢‚é‚Ì‚È‚çi‚Ü‚Ÿ‚»‚Ì——R‚Í’m‚肽‚¢‚Æ‚±‚ë‚Å‚·‚ªj—Ç‚¢v‚Æ‘‚«‚Ü‚µ‚½‚ª
 ‚»‚Ì——R‚Æ‚µ‚Ä
 @A—ñ‚ÌÅŒã‚Ìs‚ÅH—ñ‚̃Zƒ‹@‚©‚ç@3s‚Å2s–Ú‚ÌÅŒã‚Ì—ñ@‚̃Zƒ‹
 ‚Æl‚¦‚Ä‚¢‚é‚Æ‚¢‚í‚ê‚ê‚ÎAl‚¦‚½’Ê‚è‚̃R[ƒh‚È‚Ì‚Å—Ç‚¢‚ÆŽv‚¢‚Ü‚·B

 ‚Å‚·‚ªA‚Ç‚¿‚ç‚©‚Æ‚¢‚¤‚Æ
 uƒeƒLƒg[‚É“–‚Ä‚Í‚ß‚ÄA‚È‚ñ‚Æ‚È‚­‚¤‚Ü‚­‚¢‚Á‚½‚©‚ç@Œ‹‰ÊƒI[ƒ‰ƒCv
 ‚̃Œƒxƒ‹‚¾‚ÆŽv‚¢‚Ü‚µ‚½B

 EE3‚©‚çA—ñ‚ÌÅŒã‚Ìs‚Å2s–Ú‚ÌÅŒã‚Ì—ñ@‚̃Zƒ‹@
 EA—ñ‚ÌÅŒã‚Ìs‚ÅH—ñ‚̃Zƒ‹@‚©‚ç@3s‚Å2s–Ú‚ÌÅŒã‚Ì—ñ@‚̃Zƒ‹
 ˆá‚¢‚ª•ª‚©‚Á‚Ä‚à‚炦‚Ü‚·‚©H
 @
iHANAj 2014/09/19(‹à) 23:21

 „‚Ì—l‚É‘‚¢‚Ä‚à‚ç‚¢‚½‚©‚Á‚½‚Ì‚Å‚·‚ªA‚í‚©‚Á‚Ä‚à‚炦‚Ü‚·‚©H
 ‚È‚é‚Ù‚ÇA‚·‚Ý‚Ü‚¹‚ñB
 Ž„‚Í‚»‚Ì‘‚«•ûŽ©‘Ì‚ª@ƒ_ƒ‚¾‚ÆŠ¨ˆá‚¢‚¦‚µ‚Ä‚Ü‚µ‚½@OOGG

 „ˆá‚¢‚ª•ª‚©‚Á‚Ä‚à‚炦‚Ü‚·‚©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‚Åà–¾‚·‚é‚͓̂‚¢‚Å‚·‚ªBBBB

i‚à‚Ý‚¶âj 2014/09/22(ŒŽ) 19:05


 „Ž„‚Í‚»‚Ì‘‚«•ûŽ©‘Ì‚ª@ƒ_ƒ‚¾‚ÆŠ¨ˆá‚¢‚¦‚µ‚Ä‚Ü‚µ‚½@OOGG
 ƒ_ƒ‚¾‚Á‚½Žž‚ÉA‰½‚ªƒ_ƒ‚¾‚Á‚½‚Ì‚©@Šm”F‚µ‚Ä‚­‚¾‚³‚¢B

 ‚¤‚Ü‚­‚¢‚©‚È‚¢ƒR[ƒh‚ðA‚·‚®‚É”jŠü‚µ‚Ä‚µ‚Ü‚Á‚Ä
 ‚Ü‚Á‚½‚­•Ê‚̃R[ƒh‚ðì‚Á‚Ä‚Ý‚Ä
 u‚È‚ñ‚Æ‚È‚­‚¤‚Ü‚­‚¢‚Á‚½‚©‚çA‚Å‚«‚½v‚Å‚Í
 ‚¢‚‚܂ł½‚Á‚Ä‚à‚Å‚«‚é—l‚É‚Í‚È‚ç‚È‚¢‚ÆŽv‚¢‚Ü‚·B

 „``‚Æ‚¢‚Á‚½Š´‚¶‚Å‚µ‚傤‚©H
 ‚à‚¤ˆê“xAŽ„‚ª‘‚¢‚½Ž–‚ð“Ç‚Ý’¼‚µ‚Ä‚à‚炦‚Ü‚·‚©H
 @
iHANAj 2014/09/22(ŒŽ) 23:30

 ”͈͂ª‘‚­‚Æ@Œ¾‚¤@ˆÓ–¡‚Å‚µ‚傤‚©H

 „EE3‚©‚çA—ñ‚ÌÅŒã‚Ìs‚Å2s–Ú‚ÌÅŒã‚Ì—ñ@‚̃Zƒ‹@
 @@E6@‚Æ@H3
@

 „ EA—ñ‚ÌÅŒã‚Ìs‚ÅH—ñ‚̃Zƒ‹@‚©‚ç@3s‚Å2s–Ú‚ÌÅŒã‚Ì—ñ@‚̃Zƒ‹
 @@H6@‚Æ@H3

 „ ˆá‚¢‚ª•ª‚©‚Á‚Ä‚à‚炦‚Ü‚·‚©H

 ‚Å‚µ‚傤‚©H
i‚à‚Ý‚¶âj 2014/09/23(‰Î) 22:48

 ‚Å‚·‚ËB

 „A—ñ‚É6s–ڂ܂Ńf[ƒ^‚ª‚ ‚Á‚ÄA2s–Ú‚É8—ñ–ڂ܂Ńf[ƒ^‚ª‚ ‚Á‚½‚ç
 „E3:H6@‚͈̔͂̃Zƒ‹‚Ì’l‚ðƒNƒŠƒA‚·‚é•K—v‚ª‚ ‚è‚Ü‚·B
 „
 „A—ñ‚É10s–ڂ܂Ńf[ƒ^‚ª‚ ‚Á‚ÄA2s–Ú‚É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
 ‚Æ‘‚¢‚Ä‚¤‚Ü‚­‚¢‚©‚È‚©‚Á‚½ê‡AFX‚È󋵂Íl‚¦‚ç‚ê‚Ü‚·‚ª
 „Range("E3", "H6").Select
 ‚Æ‘‚¯‚Ηǂ¢Ž–‚Í–¾‚ç‚©‚È‚Ì‚Å
 @Cells(3, 5)@¨ E3‚ÌŽ–‚É‚È‚Á‚Ä‹‚È‚¢
 @Cells(NO, ŒŽ)¨ H6‚ÌŽ–‚É‚È‚Á‚Ä‹‚È‚¢
 Ž–‚ð‹^‚Á‚Ä‚­‚¾‚³‚¢B

 ƒ_ƒ‚¾‚ÆŽv‚Á‚ÄA”jŠü‚µ‚Ä@V‚µ‚¢•û–@‚ð’T‚·‚Ì‚Å‚Í
 ‚¢‚‚܂ł½‚Á‚Ä‚àu‚Ç‚±‚ªƒ_ƒ‚¾‚Á‚½‚Ì‚©v‚í‚©‚ç‚È‚¢‚Ü‚Ü‚É‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·B
 ¡‰ñ‚Ì—l‚Éu‚»‚Ì‹Lq‚̓_ƒ‚¾‚ÆŽv‚Á‚Ä‚¢‚½v‚ÆŠÔˆá‚Á‚½Œ‹˜_‚ðo‚µ‚Ä‚µ‚Ü‚Á‚½‚ç
 ¡Œã‚É‚Æ‚Ä‚à‰e‹¿‚µ‚Ä—ˆ‚Ä‚µ‚Ü‚¤‚ÆŽv‚¢‚Ü‚·B
 @
iHANAj 2014/09/23(‰Î) 23:36

 „Ž–‚ð‹^‚Á‚Ä‚­‚¾‚³‚¢B

 @‚È‚é‚Ù‚Ç‚»‚¤‚¢‚¤‚±‚Æ‚È‚ñ‚Å‚·‚Ë@(*Lƒm„DM)

 „u‚È‚ñ‚Æ‚È‚­‚¤‚Ü‚­‚¢‚Á‚½‚©‚çA‚Å‚«‚½v‚Å‚Í

 @Ž„‚Í‚Ü‚¾‚±‚Ì‹æˆæ‚©‚甲‚¯o‚µ‚Ä‚È‚¢‚悤‚Å‚·‚Ë
 @‹C‚ð‚‚¯‚Ë‚Î@BBB

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
 @
iHANAj 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„DM)

 ‚»‚±‚Ì‚Æ‚±‚ë‚ð–À‚Á‚Ä‚Ü‚·B
 ‚È‚É‚©‚¢‚¢ˆÄ‚ ‚è‚Ü‚µ‚½‚çŽQl‚É¥”ñ‹³‚¦‚Ä‚­‚¾‚³‚¢@(*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•Ê‚Ì‚¨˜bH
 @
iHANAj 2014/09/25(–Ø) 09:25

 „WŒv•û–@‚ð•Ï‚¦‚é@‚Á‚ÄŽ–‚Å‚·‚©H¡‚Ì•\‚Æ‚ÍA•Ê‚Ì‚¨˜bH

 ‚Í‚¢‚»‚¤‚Å‚·B

 ¡‚Ì•\‚Å‚·‚Æ‚¢‚ç‚È‚¢‚à‚Ì‚ª‘½‚¢‚Å‚·B
 •Ê‚Ì•\‚ðì‚Á‚½•û‚ªŒ©‚â‚·‚¢‚©‚ÈH‚ÆBBB

 ‚È‚Ì‚ÅAæ‚É
 Adictionary‚ð‚Å‚«‚ê‚΂Ǝv‚¢‚Ü‚·@(*ßÅßG*)

i‚à‚Ý‚¶âj 2014/09/25(–Ø) 09:40


 ‚¶‚á‚ Aæ‚ÉŒ‹‰Ê}‚ðŒˆ‚ß‚Ä‚à‚炤‚Ì‚ª—Ç‚¢‚Ì‚©‚ÈH
 ’Pƒ‚É‚ ‚é‚à‚Ì‚¾‚¯‚Å NO–ˆETEL–ˆEŒŽ–ˆ@‚ÅWŒvo—ˆ‚ê‚Ηǂ¢‚Ì‚©H

 	[A]	[B]	[C]	[D]	[E]	[F]	[G]	[H]	[I]	[J]
[1]										
[2]	NO	“ú•t	TEL	EE	NO	EE	’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	EE	TEL	1ŒŽ	2ŒŽ	3ŒŽ				
[3]	A02		2913		90	70				
[4]	A02		8768	30						
[5]	A03		8768	30						
[6]	A04		2913		60					
 @
iHANAj 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‚·‚é

 ¡‚Ü‚Å‚ÍAWŒvƒV[ƒg‚ÉNO‚ªŽ–‘O‚É“ü—Í‚³‚ê‚Ä‚¢‚½‚ª
 ‚»‚ê‚ð‚â‚ß‚é‚©‚çAƒf[ƒ^ƒV[ƒg‚©‚çd•¡‚È‚­”²‚«o‚·ì‹Æ‚ª•K—v‚É‚È‚é
 ‚Á‚ÄŽ–‚Å‚·‚©H

 ‚Ç‚±‚©‚Ì—ñ‚ÉA”NŠÔ‚̇Œv‚ðo‚·‚±‚Æ‚É‚µ‚Ä
 ƒI[ƒgƒtƒBƒ‹ƒ^‚Å”ñ•\Ž¦‚É‚µ‚Ä‚à—Ç‚³‚»‚¤‚ÉŽv‚¦‚Ü‚·‚ªB
 @
iHANAj 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

 ˆÈ‘OAuDictionary‚ÍWŒv‚ð‚·‚é‚à‚Ì‚Å‚Í‚È‚¢v‚Æ‘‚«‚Ü‚µ‚½‚ªŠo‚¦‚Ä‚¢‚Ü‚·‚©H

 ¡AWŒv‚·‚éƒ}ƒNƒ‚ðì‚è‚Ü‚µ‚½‚æ‚ËH
 ‚Å‚ÍAuƒ}ƒNƒ‚ÍWŒv‚ð‚·‚é‚à‚Ì‚©Hv‚Æ•·‚©‚ê‚é‚ÆA
 u‚â‚è•û‚É‚æ‚Á‚Ä‚ÍWŒv‚à‚Å‚«‚邯‚ÇAWŒ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ƒŠƒ“ƒSv‚ð–â‚¢‡‚킹‚é‚Æ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‚¤‚É“–‚½‚Á‚Ä@‰½‚©ŽQl‚É‚µ‚Ä‚¢‚éƒy[ƒW“™‚ ‚è‚Ü‚µ‚½‚ç
 ‹³‚¦‚Ä‚à‚炦‚é‚Æ—Ç‚¢‚Ì‚Å‚·‚ªB
 @
iHANAj 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 			

 ŸŽQl‚µ‚Ä‚¢‚éƒ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‚ÈŽ–‚Å‚Í‚È‚­BBB
 ‚½‚Æ‚¦‚ÎAI—ñ‚É‚Å‚à
 =SUM(E3:H3) ‚ÌŽ®‚ð“ü‚ê‚Ä‚¨‚­‚Æ
 ƒf[ƒ^‚ª–³‚¢s‚Íu0v‚ª•\Ž¦‚³‚ê‚Ü‚·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") 
 ‚Ý‚½‚¢‚È‚Ì‚ð’ljÁ‚µ‚ÄB
 ‚·‚é‚ÆAƒf[ƒ^‚ª–³‚©‚Á‚½s‚ÌI—ñ‚Í‹ó—“‚É‚È‚é‚Ì‚Å@i‚èž‚ÞÛ‚àu‹ó”’ˆÈŠOv‚ÌÝ’è‚É‚È‚è‚Ü‚·B

 „Dictionary‚ÍŽ„‚É‚Æ‚Á‚Ă͓‚­Š´‚¶‚Ü‚·B
 ‚Ç‚¤‚¢‚¤‚à‚Ì‚©‚í‚©‚ç‚È‚¢“à‚ÍA‚»‚¤‚©‚à‚µ‚ê‚Ü‚¹‚ñB
 Žè‚ð“®‚©‚µ‚Ä‚Ý‚é‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·‚Ì‚Å
 ŽQl‚É‚µ‚Ä‚¨‚ç‚ê‚éƒy[ƒW‚Ìu•d•¡‚µ‚È‚¢•i–¼‚ƌ”‚̇Œv‚ðŒvŽZ‚µ‚Ü‚·v‚̃R[ƒh‚Ì
 ƒf[ƒ^”͈ÍEo—͔͈͂Ȃǂð•ÏX‚µ‚Ä@‡ŒviŒŽ‚²‚Æ‚Å‚Í‚È‚­¤•i–ˆ‚Ì‘S‚Ä‚ÌŒŽ‚̇Œvj‚ð‚¾‚·ƒR[ƒh‚ð
 ‚‚­‚Á‚Ä‚Ý‚ç‚ê‚Ä‚Í‚Ç‚¤‚Å‚µ‚傤B
 @@@@@@@
iHANAj 2014/09/27(“y) 15:21

 „ƒf[ƒ^‚ª–³‚¢s‚Íu0v‚ª•\Ž¦‚³‚ê‚Ü‚·B
 ‚ Iƒ°ƒ°(ß„tßlll)!@‚È‚é‚Ù‚Ç
 ‘S•”Œ©‚é•K—v‘S•”‚Ì—ñ‚ðŽQÆ‚·‚é•K—v‚È‚¢‚Å‚·‚ËBBB

 ‚â‚Á‚Ä‚Ý‚Ü‚·B

 „ ƒf[ƒ^”͈ÍEo—͔͈͂Ȃǂð•ÏX‚µ‚Ä@‡ŒviŒŽ‚²‚Æ‚Å‚Í‚È‚­¤•i–ˆ‚Ì‘S‚Ä‚ÌŒŽ‚̇Œvj‚ð‚¾‚·ƒR[ƒh‚ð
  ‚‚­‚Á‚Ä‚Ý‚ç‚ê‚Ä‚Í‚Ç‚¤‚Å‚µ‚傤B

 ‚Í‚¢‚Å‚Íã‚ÌI‚í‚Á‚½‚çƒ`ƒƒƒŒƒ“ƒW‚µ‚Ä‚Ý‚Ü‚·B
 ƒAƒCƒeƒ€‚ƃL[‚Å–ÀŽq‚µ‚»‚¤‚Å‚·‚ªBBB

 3“ú‚®‚ç‚¢—¯Žç‚É‚µ‚Ü‚·‚Ì‚ÅA–ß‚Á‚½‚çƒ`ƒƒƒŒƒ“ƒW‚µ‚½‚¢‚ÆŽv‚¢‚Ü‚·B
 ­‚µ‚¨ŽžŠÔ‰º‚³‚¢@(L¡✪ƒÖ✪¡M)
i‚à‚Ý‚¶âj 2014/09/27(“y) 21:37

 iHANAj—l@‚¨‚Ђ³‚µ‚Ñ‚è‚Å‚·B
 3“ú‚Ì‚Í‚¸‚ª‹A‚¦‚Ä‚­‚é‚Ì‚É1TŠÔ‚©‚©‚Á‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½@(*Lƒm„DM)

 's‚ðÄ•\Ž¦‚³‚¹‚é
 '‹ó—“‚Ìs‚ð”ñ•\Ž¦‚³‚¹‚é
 I—ñ‚̇Œv‚ð@HANA@—l@‚Ì@Œ¾—t‚ðŽQl‚ÉA’ljÁ‚µ‚Ä‚Ý‚Ü‚µ‚½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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 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‘ð‚³‚ê‚Ä‚¢‚é‚Ì‚Íʼn‚ÉuCells.Selectv‚ð‚µ‚Ä‚¢‚é‚©‚ç‚Å‚·B
 Select|Selection ‚Ì–³‚¢ƒR[ƒh‚É‚µ‚Ă݂ĉº‚³‚¢B

 Select‚µ‚È‚¯‚ê‚Î
 „Cells(1, 1).Select
 ‚à•s—v‚É‚È‚è‚Ü‚·B

 ’ljÁ‚³‚ꂽ•”•ª‚ÍA‚ǂ̃V[ƒg‚ɑ΂µ‚Ă̈—‚È‚Ì‚©‚ª”²‚¯‚Ä‚¢‚é•”•ª‚ª‚ ‚è‚Ü‚·‚Ì‚Å
 ’ljÁ‚µ‚Ä‚¨‚¢‚Ä‚à‚炤‚Ì‚ª—Ç‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñB

 „WŒv.Cells(NO, "I") = WŒv.Cells(NO, "I") + ƒf[ƒ^[.Cells(i, "j")
 ‡Œv‚ðo‚·—ñ‚ðuI—ñv‚ÆŒˆ‚ß‚é‚È‚ç@ʼn‚Ƀf[ƒ^‚ðƒNƒŠƒA‚·‚é”͈Í
 @@WŒv.Range(WŒv.Cells(3, 5), WŒv.Cells(NO, ŒŽ)).ClearContents
 ‚àAuI—ñ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("AFA") ‚͈̔͂ɗL‚é‚©‚Ç‚¤‚©
 COUNTIFŠÖ”“™‚Å’²‚ׂĂ©‚çMatchŠÖ”‚ªs‚í‚ê‚é—l‚É‚µ‚Ä‚¨‚­‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
 ‚Ü‚½AŒŸõ’l‚ª–³‚©‚Á‚½ê‡‚É‚Ç‚¤‚·‚é‚Ì‚©‚àŒˆ‚ß‚Ä‚¨‚¢‚Ä‚à‚炦‚é‚Æ—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
 @–³‚©‚Á‚½‚à‚Ì‚ÍWŒv‚µ‚È‚¢‚Ì‚©
 @ˆ—‚ð’†’f‚µ‚ÄA’ljÁ‚µ‚Ä‚à‚ç‚Á‚Ä@‚à‚¤ˆê“xŽÀs‚µ‚Ä‚à‚炤‚Ì‚©
 @
iHANAj 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 ƒ|ƒŠƒ|ƒŠ

 „‚àAuI—ñ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("AFA") ‚͈̔͂ɗL‚é‚©‚Ç‚¤‚©
 ‚»‚¤‚Å‚·‚ËANO‚ª’ljÁ‚É‚È‚Á‚½‚Æ‚«
 WŒvƒV[ƒg‚à’ljÁ‚µ‚È‚¢‚Æ‚Å‚·‚Ë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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 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‚±‚Ìu9v•”•ª‚à
 „ŽÀۂ̃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
 @
iHANAj 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("AFA"), 0)
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 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("2F2"), 0)
 ‚Å‚·B

    ŒŽ = WŒv.Range("E2").End(xlToRight).Column
    WŒv.Range(WŒv.Cells(2, 1), WŒv.Cells(NO, ŒŽ)).AutoFilter Field:=ŒŽ
 ‚ðAu•Ï”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‚ð“Ç‚ñ‚Å‚¢‚­‚Æ‚«‚É@ʼn‚ÌuWŒv.Range("E2").End(xlToRight).Columnv‚ðŒ©‚Ä
 w•\‚ÌÅI—ñ”Ô†‚¾‚Èx‚ÆŽv‚¢A‚»‚ÌŒã‚ÌuWŒv.Range("E2").End(xlToRight).Columnv‚ðŒ©‚Ä
 w‚±‚±‚àA•\‚ÌÅI—ñ”Ô†‚¾‚Èx‚ÆŽv‚¢‚Ü‚·B

 •Ï”‚ðŽg‚Á‚½‘‚«•û‚¾‚Æ
 •Ï”FŒŽ‚É‚ÍA•\‚Ì—ñ”Ô†‚ª“ü‚Á‚Ä‚¢‚é‚Ì‚Å
 wWŒ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ʼn‚Í
    ŒŽ = WŒv.Range("E2").End(xlToRight).Column
 ‚ÅA•\‚ÌÅI—ñ”Ô†‚ª“ü‚Á‚Ä‚¢‚Ü‚·‚ª@‚»‚ÌŒã
           ŒŽ = Application.Match(Month(ƒf[ƒ^[.Cells(i, "B")), WŒv.Range("2F2"), 0)
 ‚ÅAŒŸõ‚µ‚½ŒŽ‚ª‚ ‚é—ñ”Ô†‚É‘‚«Š·‚í‚Á‚Ä‚¢‚é‚©‚ç‚Å‚·B

 •Ï”‚ðŽg‚킸‚Éi‚·‚±‚µ’[Ü‚Á‚Äj‘‚­‚Æ
                 If IsNumeric(ŒŽ) Then
                    WŒv.Cells(NO, EEE.Match(EEE, 0)) = WŒv.Cells(NO, EEE.Match(EEE, 0)) + ƒf[ƒ^[.Cells(i, "j")
                    WŒv.Cells(NO, WŒv.EEEEEE.Column) = WŒv.Cells(NO, WŒv.EEEEEE.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‚¢‚½‚¢’liŒŸõ‚µ‚½ŒŽ‚ª‚ ‚é—ñ”Ô†j‚ªu•Ï”FŒŽv‚É“ü‚Á‚Ä‚¢‚Ä
 ‰º‘¤‚Ìs‚Ì’iŠK‚Å‚ÍAŽg‚¢‚½‚¢’li•\‚ÌÅ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‚¢‚½‚¢’li•\‚ÌÅ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

 ‚Å‚àAuWŒv.Range("E2").End(xlToRight).Columnv‚Á‚Ä¡‰ñ‚Í“r’†‚Å•Ï‚í‚ç‚È‚¢‚Å‚·‚æ‚ËH
 ʼn‚Ì@ŒŽ = WŒv.Range("E2").End(xlToRight).Column@‚ÌŽž‚Ì’l‚ðu•Ï”FŒŽv‚ª•ÛŽ‚µ‚Ä‚­‚ê‚Ä‚¢‚½‚ç
 ƒ‹[ƒv“à‚â@”ñ•\Ž¦‚É‚³‚¹‚鎞‚É@‚»‚Ì‚Ü‚ÜŽg‚¦‚Ü‚·B

 ‚È‚ñ‚Å•ÛŽ‚µ‚Ä‚­‚ê‚Ä‚¢‚È‚¢‚©‚ÆŒ¾‚¤‚ÆA‚»‚ÌŒã‚ňá‚Á‚½’l‚ð“ü‚ê‚é‚©‚ç‚Å‚·B

 •Ï”‚ÍAFXŽ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("2F2"), 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
 @
iHANAj 2014/10/12(“ú) 13:51

 ‹Æ–±˜A—‚Å‚·B
 –¾“úi‚à‚¤¡“ú‚Å‚·‚ªj‚©‚ç@‚µ‚΂炭
 Œg‘Ñ‚©‚炵‚©•ÔM‚ª‚Å‚«‚Ü‚¹‚ñ‚Ì‚Å
 VƒXƒŒ‚ðì‚Á‚Ä‚à‚炦‚½‚ç‚ÆŽv‚¢‚Ü‚·B

 ‚Ü‚½A‚»‚ÌŠÔ’·•¶‚Ì“Še‚͓‚­‚È‚é‚ÆŽv‚¢‚Ü‚·‚Ì‚Å
 ‚²—¹³‚­‚¾‚³‚¢B
 @
iHANAj 2014/10/15(…) 00:07

 HANA —l

 —¹‰ð‚Å‚·B‚½‚¾AŽ„‚à‚µ‚΂炭ƒhƒ^ƒoƒ^‚µ‚Ä‚Ü‚·B
 —ˆT‚ÉV‚µƒgƒr‚𗧂è‚«‚Ü‚·B

 ‚ ‚ÆA‰J‚ª‹­‚¢‚Æ‚«‚Í‚Ç‚¤‚â‚炤‚¿‚̓lƒbƒg‚‚Ȃª‚ç‚È‚¢‚Ý‚½‚¢‚Å‚·@(*Lƒm„DM)
 ‚à‚¤­‚µ‚¨ŽžŠÔ‰º‚³‚¢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@3x ‚Ö
i‚à‚Ý‚¶âj 2015/03/08(“ú) 23:09

ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


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