Page 1 of 1

การเขียนโค๊ดบน WorkSheet โดยสั่งให้มีการวางค่าอย่างเดียว

Posted: Mon Dec 19, 2011 11:05 am
by bank9597
:D อาจารย์ครับ ผมมีเรื่องรบกวนถามเกี่ยวกับการบังคับวางข้อมูลแบบวางเฉพาะค่าอย่างเดียว

สมมุติว่า ในชีท Sheet1 เซลล์ A1:A5 โดยในเซลล์ดังกล่าวจะมีการคัดลอกข้อมูลมาจากส่วนอื่นมาวาง(Paste) เราจะเขียนโค๊ดอย่างไรเมื่อเวลามีการวางข้อมูล (Paste) ให้เป็นการวางค่าอย่างเดียว โดยไม่เอาขนาดฟอนต์ สีพื้นหลังครับ :D

เราสามารถวางโค๊ดใน WorkSheet เลยได้ไหม โดยไม่ต้องสร้างปุ่ม RUN

Re: การเขียนโค๊ดบน WorkSheet โดยสั่งให้มีการวางค่าอย่างเดียว

Posted: Mon Dec 19, 2011 4:20 pm
by snasui
:D สำหรับที่ถามมาใช้ Code การวางเฉพาะ Values ได้ ดูตัวอย่างตามด้านล่างครับ

Code: Select all

Sub test()
    Dim rSource As Range
    Dim rTarget As Range
    'Other code
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    'Other code
End Sub