- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 6# tomtracy
¥ý¼á²M¤@¤U¡A¬°¦ó§Aªºªí³æ»Ýn³sÄò¦³¥|²Õ¡y¤pp¡z¡A
¨C²Õ¡y¤pp¡zªº©w¸q¬°¦ó¡H
쥻ªí³æ¤§³B¸Ì¡G- Sub Ex()
- Dim bt As Single
-
- With Sheet1
- bt = .Range("B" & .Rows.Count).End(xlUp).Row
- If InStr(.Range("B" & bt - 5), "¤pp") Then
- .Range("K" & bt - 5).Formula = "=SUM(K8:K" & (bt - 6) & ")"
- .Range("K" & bt).Formula = "=SUM(K" & (bt - 5) & ":K" & (bt - 1) & ")"
- End If
- End With
- End Sub
½Æ»s¥N½X ¨Ì·Ó¤§«áªþ¤Wªí³æ¤§¤º®e¡A½Ð¦Û¦æ×¥¿¬°¡G- Sub Ex()
- Dim bt As Single
-
- With Sheet1
- bt = .Range("B" & .Rows.Count).End(xlUp).Row
- If InStr(.Range("B" & bt - 3), "¤pp") Then
- .Range("K" & bt - 3).Formula = "=SUM(K8:K" & (bt - 4) & ")" ' ¤pp
- .Range("K" & bt).Formula = "=SUM(K" & (bt - 3) & ":K" & (bt - 1) & ")" ' Á`p
- End If
- End With
- End Sub
½Æ»s¥N½X «K¦³¼Æȼg¤J¤F¡C |
|