Page 1 of 1
VBA Copyอ้างอิง ชื่อใน Cell =ชื่อSheetเหมือนกัน ให้ copyข้อมูล ในช่วงไปวางที่sheetนั้น
Posted: Sun Jan 12, 2020 4:17 pm
by lotto009
เรียนอาจาร์ยครับ
ขอความช่วยเหลือในการ เขียน code VBA หน่อยครับ
กำหนดให้
-ชื่อใน Worksheets(INPUT).Cell("I2") Referee Name = มีชื่อเหมือนกับชื่อ sheet ที่เหมือนกัน
-ให้ทำการcopyข้อมูล ในช่วงไปวางที่sheetนั้น
และ
-หากเปลี่ยนชื่อใน Worksheets(INPUT).Cell("I2") Referee Name = มีชื่อเหมือนกับชื่อ sheetที่เหมือนกัน
-ให้ทำการcopyข้อมูล ในช่วงไปวางที่sheetนั้น
เนือ่งจาก Referee Name มีหลายชื่อจึงต้องมีหลาย sheetที่ตั้งชื่อเพื่อให้เหมือน Referee Nameครับ
ด้วยเนื้องานข้อมุลผมจะเปลียนบ่อยมากและมีปริมาณที่มากครับ
ผมบันทึก Macro ไว้ด้วยนะครับตามไฟล์แนบ
ขอบพระคุณครับ
อาร์ต
Re: VBA Copyอ้างอิง ชื่อใน Cell =ชื่อSheetเหมือนกัน ให้ copyข้อมูล ในช่วงไปวางที่sheetนั้น
Posted: Sun Jan 12, 2020 5:00 pm
by snasui
ตัวอย่าง Code ครับ
Code: Select all
'Other code
Dim tg As Range
With Worksheets("INPUT")
Set tg = .Parent.Worksheets(.Range("i2").Value).Range("a2")
tg.CurrentRegion.Offset(1, 0).Clear
.Range("j3", .Range("k" & .Rows.Count).End(xlUp)).Copy tg
End With
'Other code
Re: VBA Copyอ้างอิง ชื่อใน Cell =ชื่อSheetเหมือนกัน ให้ copyข้อมูล ในช่วงไปวางที่sheetนั้น
Posted: Sun Jan 12, 2020 5:36 pm
by lotto009
ขออธิบาย code ด้วยได้ใหมครับ
ปกติ copy ข้ามsheet ธรรมดาผมก้อพอทำได้แต่หากจะ อ้างอิง จากชื่อช่องcell ใดcellหนึ่ง มันยากสำหรับผมนะครับ
ขอบพระคุณมากครับ
อาร์ต
Re: VBA Copyอ้างอิง ชื่อใน Cell =ชื่อSheetเหมือนกัน ให้ copyข้อมูล ในช่วงไปวางที่sheetนั้น
Posted: Sun Jan 12, 2020 5:59 pm
by snasui
ก่อนอื่นต้องทำความเข้าใจ With Statement เสียก่อนครับ ➡
With Statement
จาก Code ที่ผมเขียนไปมี 3 เรื่องสำคัญ ๆ คือ
- ประกาศตัวแปรในส่วนที่เป็นเซลล์ปลายทาง คือ
Dim tg As Range
- กำหนดค่าให้ตัวแปรที่เป็นเซลล์ปลายทาง
Set tg = .Parent.Worksheets(.Range("i2").Value).Range("a2") สำหรับ Worksheets(.Range("i2").Value) คือ Worksheet ที่มีชื่อตามเซลล์ I2
- คัดลอกค่าต้นทางไปวางปลายทาง
.Range("j3", .Range("k" & .Rows.Count).End(xlUp)).Copy tg โดยต้นทางคือ .Range("j3", .Range("k" & .Rows.Count).End(xlUp)) แปลว่าช่วงเซลล์ J3 จนถึง K สุดท้ายที่มีข้อมูล
ในส่วนที่เป็นรายละเอียดปลีกย่อยให้ลองศึกษาและถามเป็นกรณี ๆ ไปครับ
Re: VBA Copyอ้างอิง ชื่อใน Cell =ชื่อSheetเหมือนกัน ให้ copyข้อมูล ในช่วงไปวางที่sheetนั้น
Posted: Sun Jan 12, 2020 8:04 pm
by lotto009
ขอบพระคุณอาจารย์มากครับ
ดูแลสุขภาพครับ
Re: VBA Copyอ้างอิง ชื่อใน Cell =ชื่อSheetเหมือนกัน ให้ copyข้อมูล ในช่วงไปวางที่sheetนั้น
Posted: Wed Jan 15, 2020 12:32 pm
by lotto009
ผมไม่ต้องเปลี่ยนชื่อเองได้แล้วครับผมใช้
Sheets("Sheet1").Name = Worksheets("INPUT").Cells(2, 2).Value
ไว้หน้าก่อน เลย
ขอบพระคุณมากครับได้เรียนรู้จากอาจาร์ยเยอมากเลยช่วงนี้
อาร์ต