- ©«¤l
- 38
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-10
- ³Ì«áµn¿ý
- 2021-7-18
![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif)
|
[µo°Ý] ½Ð±Ð¦Ñ®v:·Q±N쥻µ{§ÇÄæ¦ìªº¤ÀªRªk,Âà´«¬°¦C¦ì¤ÀªRªk
½Ð±Ð¦Ñ®v:
·Q±N쥻µ{§ÇÄæ¦ìªº¤ÀªRªk,Âà´«¬°¦C¦ì¤ÀªRªk
쥻µ{§Ç:
Sub yy()
For Each a In Range([M4], [M4].End(xlToRight))
mystr = "=SUMPRODUCT((COUNTIF($E$1:$I$1," & a.Resize(5, 1).Address & ")>0)*1)"
a.Offset(-3, 0) = Evaluate(mystr)
Next
End Sub
1.¥»µ{§Ç¥HÀx¦s®æE1~I1 ¬°¤ñ¹ï¥Ø¼ÐÈ,M4~M8¬°¤@²Õ,Y»PE1~I1 ¬Û¦P«h¦bM1 ¶ñ¤J¼Æ¾Ú1.¦³·Q¦P2¼Æ«h¶ñ¤J¼Æ¾Ú2
2.¥»µ{§Ç¥HÀx¦s®æE1~I1 ¬°¤ñ¹ï¥Ø¼ÐÈ,N4~N8¬°¤@²Õ,Y»PE1~I1 ¬Û¦P«h¦bN1 ¶ñ¤J¼Æ¾Ú1.¦³·Q¦P2¼Æ«h¶ñ¤J¼Æ¾Ú2
3.¦p¤µ·QÂà´«¦ì¸m..§Æ±æÂà´«¦¨
1.¥»µ{§Ç¥HÀx¦s®æA5~A9 ¬°¤ñ¹ï¥Ø¼ÐÈ,D11~H11¬°¤@²Õ,Y»PA5~A9 ¬Û¦P«h¦bA11 ¶ñ¤J¼Æ¾Ú1.¦³·Q¦P2¼Æ«h¶ñ¤J¼Æ¾Ú2
2.¥»µ{§Ç¥HÀx¦s®æA5~A9 ¬°¤ñ¹ï¥Ø¼ÐÈ,D12~H12¬°¤@²Õ,Y»PA5~A9 ¬Û¦P«h¦bA12 ¶ñ¤J¼Æ¾Ú1.¦³·Q¦P2¼Æ«h¶ñ¤J¼Æ¾Ú2
3.¥H¦¹Ãþ±À........
4.¤£ª¾¹D¸Ó¦p¦ó±N쥻ªºµ{§Ç¶i¦æקï,½Ð¦Ñ®vÌÀ°¦£.ÁÂÁ |
-
-
xx.rar
(7.71 KB)
|