เมื่อการเปลี่ยนแปลงค่าในเซลล์ใน excel เพิ่มค่าใหม่ให้กับตาราง [ปิด]

ฉันกำลังมองหาสคริปต์ VBA น่าจะเป็น โดยทั่วไปแล้วสถานการณ์คือสิ่งนี้: ฉันมีชีตที่ดึงค่าจาก API โดยอัตโนมัติดังนั้นเมื่อใดก็ตามที่ฉันอัปเดตชีตค่าจะเปลี่ยน สิ่งที่ฉันต้องการจะทำคือเพิ่มค่าใหม่จากบางเซลล์ไปยังตารางในชีตอื่น ดังนั้นเมื่อใดก็ตามที่ค่าเปลี่ยนแปลงค่าใหม่จะถูกเพิ่มเข้าไปในแถวแรกที่ว่างในคอลัมน์ใดคอลัมน์หนึ่ง ฉันต้องการติดตามข้อมูลในอดีตเพื่อติดตามว่าค่าเหล่านี้พัฒนาอย่างไรเมื่อเวลาผ่านไป โบนัสที่ดีจะเพิ่มเวลาที่แน่นอนของการอัปเดตเฉพาะนั้นไปยังคอลัมน์อื่นในแถวเดียวกัน แต่ฉันสามารถทำได้ด้วยตนเองเช่นกัน

คุณสามารถใช้มาโครเหล่านี้เพื่อติดตามการเปลี่ยนแปลงในช่วงข้อมูลเฉพาะ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Master
End If
End Sub

บันทึก:

• รหัสนี้จะเรียกใช้แมโคร (Master)เมื่อมีการเปลี่ยนแปลงค่าของเซลล์ในช่วง

ป้อนรหัส VBA ด้านล่างเขียนเป็นโมดูลมาตรฐาน

• รหัสนี้จะคัดลอกค่า New / Altered ทุกค่าจากช่วงA1:B100เข้าสู่ชีตใหม่MasterSheetโดยไม่เขียนทับข้อมูลเก่า

  Sub Master()
  
  Dim sourceSheet As Worksheet
  Dim sourceRange As Range
  Dim sourceRows As Integer
  
  Set sourceSheet = Worksheets("Sheet1")
  
  sourceRows = WorksheetFunction.CountA(sourceSheet.Range("A:A"))
  
  Set sourceRange = sourceSheet.Range("A1:B" & sourceRows)
  
  Dim targetSheet As Worksheet
  Dim targetRange As Range
  Dim targetRows As Integer
  
  Set targetSheet = Worksheets("MasterSheet")
  
  targetRows = WorksheetFunction.CountA(targetSheet.Range("A:A"))
  
  Set targetRange = targetSheet.Range("A" & targetRows + 1 & ":B" & targetRows + 1 + sourceRows)
  
  sourceRange.Copy Destination:=targetRange
  
  End Sub
  

บันทึก:

• เพื่อการจัดการข้อมูลและไฟล์ที่ดีขึ้นฉันใช้ MACRO สองตัว
• มาโครใช้ในCOUNTAการคำนวณว่าแถวมีการใช้งานอย่างไร
• หากคุณมีส่วนหัวของคอลัมน์บนแผ่นงานต้นฉบับและปริญญาโทพวกเขาจะได้รับการทำซ้ำ ดังนั้นคุณอาจต้องการที่จะทำให้การเริ่มต้นที่sourceRangeA2

ปรับการอ้างอิงเซลล์และชื่อแผ่นงานตามต้องการ