Ãö©óÀ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
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 1# handsometrowa
¸Õ¸Õ¬Ý"«¾ã´«ºâ"
Sub ex()
Dim arr As Variant
Dim a As Variant
Dim x%
arr = Array("H", "J", "N", "P") '©ñ¤Jn¥Î¤½¦¡ªºÄæ¦ì
For Each a In arr
For x = 4 To Range(a & 65535).End(3).Row
Cells(x, a) = "=$" & Range(a & x).Offset(0, -1).Address(0, 0) & "-$" & Range(a & (x - 1)).Offset(0, -1).Address(0, 0) '©ñ¤J¤½¦¡H4=$G4-$G3,H5=$G5-$G4...¥H¦¹Ãþ±À
Next
Next
arr = Array("K") '©ñ¤Jn¥Î¤½¦¡ªºÄæ¦ì
For Each a In arr
For x = 4 To Range(a & 65535).End(3).Row
Cells(x, a) = "=$" & Range(a & x).Offset(0, -3).Address(0, 0) & "-$" & Range(a & x).Offset(0, -1).Address(0, 0) '©ñ¤J¤½¦¡K4=$H4-$J4,K5=$H5-$J5...¥H¦¹Ãþ±À
Next
Next
End Sub
±NA2:T2¸ê®Æ½Æ»s©ó¤U¤è¸ê®Æ,¤½¦¡¤£´N¦Û°Ê±a¤J¤F¶Ü??¤£ª¾¬°¦ón¦A©ñ¤J¤½¦¡ |
|
|
|
|
|
|
- ©«¤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 |
|
|
|
|
|
|
- ©«¤l
- 406
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 453
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2021-7-31
|
¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-4-11 01:19 ½s¿è
¦^´_ 3# handsometrowa
¬Ý¤F§Aªºªþ¥ó~ §Aªº·N«ä¬O¶À¦âÀx¦s®æªºÄæ¦ìn¶ñ¤J²Ä2¦Cªº"È"¡A
¨ä¥LÄæ¦ìn¶ñ¤J²Ä2¦Cªº"¤½¦¡"¡A¬O³o¼Ë¶Ü?
·Pı¨S¨º»ò½ÆÂø.............¥i¬O¬°¤°»ò§Aªº±Ôz¦³ÂI½ÆÂø@@
¸Õ¸Õ§a!- Sub ¶K¤W¸ê®Æ()
- R% = [A65536].End(3).Row + 1
- '¥ý¥þ³¡¶ñ¤JÈ~
- Cells(R, 1).Resize(1, 20) = Cells(2, 1).Resize(1, 20).Value
- Arr = Array(8, 10, 11, 14, 16, 18, 19, 20) 'n¤½¦¡ªºÄ渹
- For Each c In Arr '½Æ»s²Ä2¦C¤½¦¡~
- Cells(2, c).Copy Cells(R, c)
- Next
- End Sub
½Æ»s¥N½X |
|
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U
|
|
|
|
|