ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó°µ¨ì¹ï¤é´Áªºchecking

¦p¦ó°µ¨ì¹ï¤é´Áªºchecking

¥»©«³Ì«á¥Ñ patrickccs ©ó 2014-9-4 07:54 ½s¿è

½Ð¨£ªþÀÉ

Sheet2¤¤ªºcommand button ¬O§â¸ê®Æcopy & paste¨ìSheet1, ¦ý§Ú·Q°µ¨ìªº¬O, ¦pªGA2ªº¤é´Á¬Oµ¥©ó¥´¶}excel·í¤Ñªº¤é´Á(¨Ò¦p¤µ¤Ñ), ´N§â¾ã¦C§R°£, ¤~copy & paste¨ìSheet1, ¦pªG¤£µ¥©óªº¸Ü, ´N¥þ³¡ª½±µcopy & paste¨ìSheet1

½Ð°Ý§Ú¥i¥H¥Î­þ¤@­Ó«ü¥O?

ÁÂÁÂ

123.zip (20.68 KB)

¦^´_ 1# patrickccs

°Ñ¦Ò¬Ý¬Ý
  1. Private Sub CommandButton1_Click()
  2. If [a2] = Date Then
  3. [a2].EntireRow.Delete
  4. Range("a2:G" & [a65536].End(3).Row).Copy
  5. Sheets("sheet1").Select
  6. Sheets("sheet1").[a2].Select
  7. Selection.PasteSpecial xlPasteValues
  8. Else: Range("a2:G" & [a65536].End(3).Row).Copy
  9. Sheets("sheet1").Select
  10. Sheets("sheet1").[a2].Select
  11. Selection.PasteSpecial xlPasteValues
  12. End If
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_  patrickccs

°Ñ¦Ò¬Ý¬Ý
owen06 µoªí©ó 2014-9-4 10:04
¤w¦¨¥\¹Á¸Õ, ÁÂÁÂ

TOP

¥t¥~, ·Q°Ý°Ý, ¦pªG§Ú·Q­n¦bA15 ¿é¤J§Ú·Q­nªº¤é´Á, ¨Ò¦p8-Sep-14, µM«á·Q­n­pºâ«e¤@¤Ñ(§Y5-Sep-14)¤§¶¡A,B,C,D,E,F¨C¤@¶µªº¬Û®t¼Æ­È, ­pºâ¤§«á¦b¬ÛÀ³15ÄæÅã¥Ü¥X¨Ó(§YB15,C15,D15µ¥)

¨º§ÚÀ³¸Ó±q­þ¤@­Ócommand«ü¥O¾Ç²ß?? §Ú§¹¥þ¨S¦³¤è¦V

TOP

¦^´_ 4# patrickccs


    ¸Õ¸Õ¬Ý¦bsheet1¥[¤J³o­Ó
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. With Target
  3.   If .Column = 1 And .Row = 15 Then
  4.     For Each mr In [a2:a10]
  5.       If mr = [a15] Then
  6.         tg = mr.Row
  7.       End If
  8.      Next
  9.    For i = 2 To 7
  10.      Cells(15, i) = Cells(tg, i) - Cells(tg - 1, i)
  11.    Next
  12.   End If
  13. End With
  14. End Sub
½Æ»s¥N½X

TOP

´ú¸Õ¦¨¥\¡A¤£¹L­nª`·Nsheet¦WºÙªº¤£¦P¤~¤£·|¥X²{¿ù»~

TOP

¦^´_ 5# owen06 ´ú¸Õok, ¦pªG§Ú·Q¥Îcommand button ¥h°õ¦æ³o­Ó«ü¥O, ­n«ç»ò§ï?

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-9-8 10:54 ½s¿è
  1. Private Sub CommandButton2_Click()
  2. For Each mr In [a2:a10]
  3.       If mr = [a15] Then
  4.         tg = mr.Row
  5.       End If
  6.      Next
  7.    For i = 2 To 7
  8.      Cells(15, i) = Cells(tg, i) - Cells(tg - 1, i)
  9. Next
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# owen06

´ú¸Õ¦¨¥\, ÁÂÁÂ!

§ÚÁÙ¦³¤@­ÓºÃ°Ý, ´N¬O°²³]§Ú¨S¦³¦bA15¿é¤J¤é´Á©ÎªÌ¿é¤J¿ù¤F, ¦ý¥¦´N¶]¥X¹B¦æ¿ù»~ªº°T®§, ©Ò¥H¦³¿ìªk°µ¨ì¤£¶]¥X¹B¦æ¿ù»~ªº°T®§, ¦Ó¥u¬O¨S¦³¸ê®Æ¦b¬ÛÃöÄæ¦ì¶Ü?

TOP

¦^´_ 9# patrickccs


    §ï¨}¤F¤@¤U¡A§A¸Õ¸Õ§a
  1. Private Sub CommandButton1_Click()
  2. [b15:G15].Clear
  3. For Each mr In Range("a2:a" & [a1].End(4).Row)
  4.       If mr = [a15] Then
  5.         tg = mr.Row
  6.       End If
  7. On Error Resume Next
  8.      Next
  9.    For i = 2 To 7
  10.      Cells(15, i) = Cells(tg, i) - Cells(tg - 1, i)
  11. Next
  12. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD