返回列表 上一主題 發帖

[發問] 請問如何將變動的數值在另一頁紀錄?(請幫忙修改,謝謝)

回復 1# Brandy
工作表1模組的程式碼  :需將這程式碼複製到工作表1(Monitor)模組中
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim A As Integer
  3.     If Target.Address(0, 0) = "A2" Then
  4.         With Sheets("History")
  5.             '*** 則在History頁裡出現 456***
  6.             '如: 從不含.[B2] 開始
  7.             A = .Cells(.Rows.Count, "B").End(xlUp).Row
  8.             A = IIf(A <= 2, 3, A + 1)
  9.              .Cells(A, "B") = Target
  10.         End With
  11.     End If
  12. End Sub
複製代碼

TOP

回復 4# Brandy
  1. If Target.Row = 2 Then  '修改看看
複製代碼

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題