[[20190716214653]]@wu•¶Žš”‚ª‘½‚­‚Ä COUNTIFŠÖ”‚ªŽg‚¦‚È‚¢v‚ÌVBA‚xiVBA‰SŽÒj@ƒy[ƒW‚ÌÅŒã‚É”ò‚Ô

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

@

wu•¶Žš”‚ª‘½‚­‚Ä COUNTIFŠÖ”‚ªŽg‚¦‚È‚¢v‚ÌVBA‚Ö‚Ì”½‰f‚ɂ‚¢‚ÄxiVBA‰SŽÒj

‚¨Šè‚¢’v‚µ‚Ü‚·B

h=COUNT(INDEX(0/SUBSTITUTE(”͈Í,ŒŸõ•¶Žš,1),0))h
‚ðVBA‚É‘g‚Ýž‚ñ‚ÅŽg‚¨‚¤‚Æ‚µ‚½‚Æ‚±‚ëA
SUBSTITUTE‚Ŕ͈Í(—á@A1:A5)Žw’è‚ð‚·‚é‚ÆAuŒ^‚ªˆê’v‚µ‚Ü‚¹‚ñv‚ÆExcelŠÖ”‚Ì‚¨ì–@‚É”½‚µ‚Ä‚¢‚é‚炵‚­A‘g‚Ýž‚Þ‚±‚Æ‚ª‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½(’Êí‚ÉExcel‚ÌŠÖ”‚Æ‚µ‚ÄŽg‚¤ê‡‚É‚Í–â‘è‚È‚©‚Á‚½‚Ì‚Å‚·‚ªc)B

1,‚Ç‚È‚½‚©Aã‹L‘g‚݇‚킹ŠÖ”‚ðAVBA‚ÅŽg‚¦‚½•û‚¢‚ç‚Á‚µ‚á‚¢‚Ü‚·‚Å‚µ‚傤‚©H@‚¢‚ç‚Á‚µ‚á‚¢‚Ü‚µ‚½‚çAƒTƒ“ƒvƒ‹‚ðŒ©‚¹‚Ä’¸‚¯‚ê‚ÎK‚¢‚Å‚·B

2,‚â‚肽‚¢‚±‚Æ‚Æ‚µ‚Ä‚ÍAucountif‚ÅAconcatenate‚µ‚½s‚Ì’†‚Éd•¡‚·‚és‚ª–³‚¢‚©ƒ`ƒFƒbƒN‚·‚év‚Æ‚¢‚¤‚±‚Æ‚ð‚µ‚½‚¢‚Å‚·B
‚½‚¾Aconcatenate‚µ‚½s‚Ì•¶Žš”‚ª255•¶Žš‚ð’´‚¦‚Ä‚µ‚Ü‚Á‚½‚½‚ßA‚»‚Ì‘Îô‚Æ‚µ‚Äã‹L‘g‚݇‚킹ŠÖ”‚ð–Íõ‚µ‚Ä‚¢‚½‚Ì‚Å‚·‚ªA
‰½‚©‘ã‚í‚è‚Æ‚È‚éŠÖ”‘g‚݇‚킹‚Í–³‚¢‚Å‚µ‚傤‚©H
VBA‚É‘g‚Ýž‚Ý‚½‚¢‚½‚ßAVBA‚Å‚Å‚«‚邱‚Æ‚Å‚ ‚ê‚΂悢‚Ì‚Å‚·‚ªcB

‚æ‚낵‚­‚¨‚Ë‚ª‚¢‚µ‚Ü‚·B

ƒ Žg—p ExcelFExcel2013AŽg—p OSFWindows10 „


1.
„VBA‚É‘g‚Ýž‚ñ‚ÅŽg‚¨‚¤‚Æ‚µ‚½‚Æ‚±‚ë
„uŒ^‚ªˆê’v‚µ‚Ü‚¹‚ñv
‚Æ‚è‚ ‚¦‚¸A•Ï”‚Ý‚½‚¢‚¢‚É‚È‚Á‚Ä‚é•”•ª‚àŠÜ‚ß‚ÄAƒR[ƒh‚ð’ñŽ¦‚µ‚½‚Ù‚¤‚ª˜b‚ª‘‚¢‚ÆŽv‚¢‚Ü‚·‚æB

2.
‚â‚肽‚¢‚±‚Æ‚ªƒsƒ“‚Æ‚±‚È‚¢‚Å‚·B
256•¶Žš‚à‘‚©‚È‚­‚Ä‚à‚æ‚¢‚Ì‚ÅA‹ï‘Ì“I‚È•µˆÍ‹C‚ª‚í‚©‚郌ƒCƒAƒEƒg‚ð’ñŽ¦‚µ‚Ä‚à‚炦‚Ü‚¹‚ñ‚©H
‚½‚Æ‚¦‚ÎA

 ___A___B___C__
 1 ‚   ‚¢  ‚¤
 2 ‚¦  ‚¨  ‚©
 3 ‚«  ‚­  ‚¯
 4 ‚±  ‚³  ‚µ
 5 ‚·  ‚¹  ‚»

 A1:C5‚ð‚·‚×‚Ä•¶ŽšŒ‹‡‚µ‚½‚¤‚¦‚ÅA"‚­‚¯‚±"‚ªŠÜ‚Ü‚ê‚Ä‚¢‚é‚©”»’肵‚½‚¢

‚Ý‚½‚¢‚ÈŠ´‚¶‚Å’ñŽ¦‚Å‚«‚Ü‚¹‚ñ‚©H

i‚à‚±‚È‚Qj 2019/07/16(‰Î) 23:41


ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


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