แทรก Cells แล้ว Code vb เคลื่อนครับ

[trirongcop]

ติดปํญหาเขียน Code vb ใน excel เมื่อเวลาทำการแทรกเซลล์ Row และ Column แล้ว ทำให้ Code vb เคลื่อนครับ
มีวิธีแก้ยังไงครับ
ตัวอย่างครับง
 Range("K70") = Range("E70") + Range("H70")

[snasui]

แนบไฟล์พร้อม Code ตัวอย่าง จะได้เข้าถึงปัญหาโดยไวครับ

[trirongcop]

ไฟล์แนบครับ

[snasui]

จากตัวอย่างที่ยกมาใช้ Range Name เข้ามาช่วยได้ครับ

การสร้าง Range Name คลิกขวาที่ F4 > Define Name > ตั้งชื่อตามต้องการ

ยกตัวอย่างตั้งชื่อเซลล์ F4, G4, H4 เป็น Name0, Name1, Name2 ตามลำดับ

เมื่อสร้าง Range Name แล้วให้ปรับ Code เป็น

Code: Select all

Range("Name0") = Range("Name1") + Range("Name2")

[trirongcop]

อาจารย์ครับ ถ้าผมอ้างอิงทั้ง Column
ตัวอย่างครับ
Range("K70") = Range("E:E) + Range("H:H")
ต้องปรับยังไงครับ

[snasui]

การรวมใช้ Range("K70").Value = Application.Sum(Range("E:E)) + Application.Sum(Range("H:H")) ได้ครับ

[trirongcop]

อาจารย์ครับ แต่ถ้าเวลาผมแทรกเชลล์
มันก็เลื่อนเหมือนเดิมครับ
เวลาผมแทรกเชลล์ Column D มันก็จะเลื่อนการคำนวณครับ

[snasui]

ควรจะถามให้ครบถ้วน แจ้งสิ่งปัญหาที่เป็นและสิ่งที่ต้องการมาทั้งหมด จะได้ทราบว่าปัญหาคืออะไรต้องการคำตอบเป็นอย่างไร

ตัวอย่างควรแสดงให้เห็นถึงงานที่ใช้จริงครับ

การจะทำให้ Dynamic ได้ก็ต้องใช้ตัวแปรเข้าไปจัดการ หาให้ได้ว่าตอนนี้กำลังทำงานอยู่กับช่วงข้อมูลใด เมื่อหาได้แล้วก็สามารถจัดการกับมันได้ทั้งนั้นครับ

หรือสามารถใช้ SpecialCells หาค่าที่ต้องการ เช่นหาตัวเลขในคอลัมน์ E ไมว่าจะมีค่าอยู่ตรงไหนมันก็หาได้ทั้งนั้นตามด้านล่างครับ

Code: Select all

Sub test0()
    Range("a1").Value = Application.Sum(Sheets(1).Range("e:e").SpecialCells(xlCellTypeConstants,1))
End Sub

[trirongcop]

ขอบคุณอาจารย์มากครับ