Ãö©óÀx¦s®æ»Ýn¤½¦¡pºâ¡A¤Sn½Æ»s¶K¤W¡A«ç»ò³B²z¤ñ¸û¦n?
- ©«¤l
- 82
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 112
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- WIN7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-3
- ³Ì«áµn¿ý
- 2020-9-21
|
Ãö©óÀx¦s®æ»Ýn¤½¦¡pºâ¡A¤Sn½Æ»s¶K¤W¡A«ç»ò³B²z¤ñ¸û¦n?
¦U¦ì«e½ú¡A³Ìªñ§ì¥æ©ö¸ê®Æ¹J¨ì¤@Ó°ÝÃD ¦pªþ¥óÀÉ®×
20200406¿ï¾ÜÅv¤Q¤j¯S©w¤H.rar (35.26 KB)
§Ú§Æ±æ§âA2:T2 ªº¸ê®Æ§ó·s¤§«á
¶K¨ì³Ì·sªº¸ê®Æ¤U¤è «ö·Ó¤é´Á±Æ¦n¡A
¥i¬O¹J¨ì A2:T2 ¸Ì±¦³¨ÇªÅ®æ¤£¬O³æ¯Âªº¸ê®Æ¡A¦Ó¬O¤½¦¡¡A
©Ò¥H§Ú¤£ª¾¹D¸Ó«ç»òÅý¶K¹L¥hªº¸ê®Æ°£¥~ªº¤½¦¡Àx¦s®æ¡A
¤]¯à¦Û°Ê¥h¸É¶ñ¸ê®Æ
§Úªº¤èªk¬O¼g¤@ӰƵ{¦¡Åý¥L¥h°õ¦æ ¨Ò¦p
½d¨ÒH13ªº¸ê®Æ¬O =$G13 -$G12 §Ú´N©I¥s¤@¦¸ «¾ã´«ºâ1()
Sub «¾ã´«ºâ1()
Dim i As Integer
For i = 4 To Range("H4").End(xlDown).Row
Cells(i, "H") = Cells(i, "G") - Cells(i - 1, "G")
Next i
End Sub
µM«á¦pªG¤S¦³¤@®æ ¨Ò¦pJ = $I13-$I12 §Ú¤S¦A©I¥s¤@¦¸«¾ã´«ºâ2()
Sub «¾ã´«ºâ2()
Dim i As Integer
For i = 4 To Range("J4").End(xlDown).Row
Cells(i, "J") = Cells(i, "I") - Cells(i - 1, "I")
Next i
End Sub
³o¼Ë¤U¥h ¦pªG»Ýn¹Bºâªº®æ¤l¦³30Ó ´Nn¼g30ӰƵ{¦¡
°j°é¬O§Ú³Ì®zªº¤@Àô¡A½Ð°Ý«e½ú̯à§_«ü¾É§ÚÀ³¸Ó«ç»ò¥h«ä¦Ò³oÃþªº°ÝÃD
³o´N¬O¤£Â_ªº¦b¬Y¨Ç«½Æªº¹Lµ{¤¤§ä¨ì³B²zªº¤âªk
¦AªÌ§Ú¤]¦³·Q¹L ¬O¤£¬O¯à¦b³Ì«á¶K¤Wªº¤@¦æ¸ê®Æ¸Ì±
¼g¤@Ó For each myRng ¥h§ä ·|¦^¶Ç iferror ªºÀx¦s®æ¡AµM«áÅý¸ÓÀx¦s®æµ¥©ó¤½¦¡pºâªºµ²ªG??
§Æ±æ¤j®aµ¹¤©«ü¾É ÁÂÁÂ~@@ |
|
|
|
|
|
|
- ©«¤l
- 82
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 112
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- WIN7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-3
- ³Ì«áµn¿ý
- 2020-9-21
|
¦^´_ 2# jcchiang
ÁÂÁÂjcc«e½ú
±z°Ý¨ì
¡y±NA2:T2¸ê®Æ½Æ»s©ó¤U¤è¸ê®Æ,¤½¦¡¤£´N¦Û°Ê±a¤J¤F¶Ü??¤£ª¾¬°¦ón¦A©ñ¤J¤½¦¡¡z
¤¤¶¡·|²£¥Í¤@Ó°ÝÃD¡A´N¬O½Æ»s¤½¦¡¤U¨Ó¡A¥Lªº¬Û¹ï¦ì¸m¤£·|§óµÛ§ïÅÜ
·|³y¦¨³Ì·sªº¨º¤@¦æ¸ê®Æ ·|²£¥Í#VALUE °Ñ·Ó¿ù»~¡A´Nºâcopy ¤½¦¡¤F ¥L¤£·|¦Û°Ê¦ì²¾¸Ó¤½¦¡¹ï·Óªº¦ì¸m:'(
«á¨Ó§Ú¥Î¥t¥~¤@ºØ¤è¦¡cells ¥h§ä¨ºÓ·|²£¥Í¿ù»~ªºÀx¦s®æ Ãþ¦ü¤U±³oºØ
Dim myRng As Range, endRng As Range
Dim i As Integer
Dim j As Integer
Dim k As Integer
Worksheets("¸ê®Æ§ó·s").Activate
Set myRng = Sheets("¸ê®Æ§ó·s").Range("A2:U2")
Set endRng = Worksheets("¸ê®Æ§ó·s").Range("A1048576").End(xlUp).Offset(1, 0)
j = endRng.Row
k = Range("U2").Column
myRng.Copy
endRng.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
On Error Resume Next
For i = 1 To k
If IsError(Cells(j, i)) Then
Cells(j, i).Value = Cells(j, i).Offset(0, -1).Value - Cells(j, i).Offset(-1, -1).Value
End If
Next i |
|
|
|
|
|
|