- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-7-26
- ³Ì«áµn¿ý
- 2015-7-26
|
[µ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 |
|