- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 42
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-2-18
               
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-1-13 08:51 ½s¿è
¦^´_ 1# ABK
¦pªG¤u§@ªí¶¶§Ç¦³¦ç¤é´Á¤ë¥÷¶¶§Ç±Æ¦C
¥i§ï¬°¦p¤Uµ{¦¡½X- Function °²´Á²Öp(©m¦WÄæ$, ½Ð°²Äæ$, ©m¦W$, ¤ë¥÷$)
- Application.Volatile
- m = Val(¤ë¥÷)
- For Each sh In Sheets
- If sh.Name = ActiveSheet.Name Then Exit For
- Set A = sh.Range(©m¦WÄæ).Find(©m¦W, lookat:=xlWhole)
- If Not A Is Nothing Then
- For i = 1 To sh.Range(©m¦WÄæ).Count
- If sh.Range(©m¦WÄæ)(i) = ©m¦W Then
- °²´Á²Öp = °²´Á²Öp + sh.Range(½Ð°²Äæ)(i): Exit For
- End If
- Next
- End If
- Next
- End Function
½Æ»s¥N½X |
|