ช่วง (“ R2”) ค่า = ActiveCell.Address


-1

เป็นไปได้ไหมที่จะใช้ที่อยู่นั้นหลังจากที่มันปรากฏขึ้นในเซลล์ R2? จนถึงตอนนี้ฉันสามารถรับที่อยู่ของเซลล์ที่คัดลอกของฉันไปในเซลล์ R2 ได้โดยป้อนบรรทัดนั้นที่ส่วนท้ายของแมโครเพื่อคัดลอกเซลล์ ตอนนี้ฉันต้องการที่จะสามารถกลับไปที่เซลล์นั้นได้หลังจากที่ถูกวางในเซลล์อื่นดังนั้นฉันจึงสามารถล้างมันได้

ยังคงพยายาม (คัดลอกวางเซลล์พิเศษที่คัดลอกแล้ว) หลังจากที่วางไว้ที่อื่นแล้ว

ขอบคุณล่วงหน้า.


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

นอกจากนี้คุณสามารถใช้เลือกเพื่อเปิดใช้งานเซลล์ จากช่วงเวลานั้น ActiveCell อ้างอิงถึงเซลล์นั้น ตัวอย่างเช่น Range("A1").Select ติดตามโดย ActiveCell.Text = "new value"
LPChip

ฉันพยายามคัดลอกและวางค่าพิเศษเท่านั้นจากนั้นลบแหล่งที่มา ตั้งแต่เมื่อฉันใช้การตัดแบบฝึกหัดก็จะใช้รูปแบบด้วยและวางลงในเซลล์ปลายทางด้วยการจัดรูปแบบ ฉันต้องการบางสิ่งบางอย่างที่จะตัดค่าเท่านั้นและวางค่าเท่านั้น
Rene Bourgoin

Sub PasteAsValue () Selection.PasteSpecial Paste: = xlPasteValues ​​'ที่นี่ฉันพยายามเพิ่มบรรทัดเพื่อลบแหล่งที่มาของค่าวางหากเป็นไปได้หรือเป็นวิธีที่แตกต่างกันโดยสิ้นเชิง (ขออภัยฉันใหม่กับ vba) ส่วนท้าย
Rene Bourgoin

@ LPChip ฉันเพิ่งเห็นสิ่งที่คุณเขียนเมื่อวานนี้ นั่นเป็นรหัสที่ฉันใช้ .. ขอบคุณสำหรับคำแนะนำ
Rene Bourgoin

คำตอบ:


0

ในที่สุดฉันก็พบสิ่งที่ฉันกำลังมองหา

มีการเพิ่มบรรทัดเหล่านี้ในรหัสของฉันเพื่อกลับไปยังเซลล์ที่คัดลอกเพื่อล้างข้อมูล อาจไม่ใช่วิธีที่ดีที่สุดในการทำ แต่ทำในสิ่งที่ฉันต้องการ

Range(Range("R2")).Select
Selection.ClearContents

หรือ

Range([indirect("R2")]).Select
Selection.ClearContents

ดังนั้นฉันมีมาโครสำหรับการคัดลอกที่ใช้เมื่อ Ctrl+c ถูกกดที่คัดลอกเซลล์ที่ใช้งานเช่นเดียวกับการคัดลอกปกติ แต่ก็ยังใส่ที่อยู่ของเซลล์ที่ใช้งานใน R2

จากนั้นฉันมีหนึ่งสำหรับ ctrl+v เพื่อวางค่าเท่านั้นจากนั้นกลับไปที่เซลล์ที่คัดลอกแล้วล้างค่า

โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.