ฉันมีรหัสต่อไปนี้ซึ่งคัดลอกค่าจากแผ่นงานหนึ่งไปอีกแผ่นหนึ่งเมื่อกด B2 ฉันมี 20 เซลล์ที่แตกต่างกันฉันต้องการที่จะคลิกซึ่งจะแสดงข้อความต่าง ๆ จากแท็บต่าง ๆ ฉันกำลังดิ้นรนเพื่อหาทางออกที่ดีสำหรับปัญหานี้ ความช่วยเหลือใด ๆ จะได้รับการชำระล่วงหน้า
If Selection.Count = 1 Then
If Not Intersect(Target, Range("B2")) Is Nothing Then
Worksheets("B").Range("A:J").Copy Worksheets("A").Range("M:V")
End If
End If
ขอโทษสำหรับสิ่งนี้ ฉันมีเซลล์ต่างกัน 20 เซลล์ฉันต้องการคลิกและดึงข้อมูลจากชีตอื่น B2, B3, B4 ... B20 เมื่อฉันคลิกที่ B3 ฉันต้องการคัดลอกคอลัมน์ A ถึง J จากแผ่นงาน C ไปยังคอลัมน์ M ถึง V ในแผ่นงาน A เมื่อคลิกที่ B4 ฉันต้องการคัดลอกจากแผ่นงาน D ไปยังแผ่นงานเป็นต้นฉันอยู่ที่วิธีการทำ สิ่งนี้และความช่วยเหลือใด ๆ จะได้รับความช่วยเหลืออย่างมาก
—
Peter
บางทีใครที่สามารถให้คำแนะนำได้?
—
Peter
SelectionChangeเหตุการณ์ แต่เนื่องจากกระบวนการทั้งหมดของคุณไม่ได้รวมอยู่จึงเป็นเรื่องยากที่จะบอก คุณกำลังคัดลอก 10 คอลัมน์ทั้งหมดจาก "B" ไปยัง "A" ดังนั้นมันจะเป็นมากกว่า 20 เซลล์ คุณชัดเจนมากขึ้นเกี่ยวกับสิ่งที่คุณพยายามหรือไม่ คุณมีคอลัมน์ 20 ช่วงหรือไม่ คุณต้องการเซลล์ที่เฉพาะเจาะจง 20 เซลล์ในคอลัมน์ 10 คอลัมน์เหล่านั้นหรือไม่?