ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excel VBA¥H©w¸q¹LªºWorkSheet·f°tExcel¤@¯ë¨ç¼Æ

[µo°Ý] Excel VBA¥H©w¸q¹LªºWorkSheet·f°tExcel¤@¯ë¨ç¼Æ

¤p§Ì¥¿¶}©lExcel VBAªº¼g§@¹Lµ{

¸ÕµÛ±Nsht1«Å§i¦¨Worksheet (Dim sht1 as Worksheet)
¦A¥HÅܼÆSheet1¥h»PExcel¨ç¼Æ°µ·f°t

¥Ø«e¤wª¾¥i¥H§Q¥ÎRange ("A1").Value ¤Î Range ("A1").Formula¥h¿é¤J¤½¦¡
¦ý¦ü¥G³£¨S¿ìªk¥HSheet1¥hª½±µ°µ¹B¥Î

¨Ò¦p¡Gsht1.Name = "¤u§@ªí1"
  ·í­nªí¥Ü =countif(¤u§@ªí1!C:C,A1)®É
  ¬O§_¯à°÷Âà´«¦¨ ±N¤u§@ªí1ª½±µ¥Îsh1¥h°µ¥N´À¡A²¤ÆVBAªº°T®§

  ²{¦b§Úªº¶i«×¥u·|§â¥Î¦r¦êªº¤è¦¡¥hªí¥Ü = "=countif(" & sh1.Name & "!C:C,A1)"
  ´Á±æ¥i¥H²¤Æ¦¨ = "=countif(sh1!C:C,A1)" ³oÃþ¤ñ¸û©öÁAªº¤½¦¡

¥t¥~·í¦³¸ó¬¡­¶Ã¯®É¡A¬O§_¤]¥i¥HÂǥѫŧiWorkbook
  Dim wb1 as Workbook
  ¥h±Nwb1.sh1¥h¹B¥Î¦bExcel¤½¦¡¤¤¡I¡H

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD