อยากให้ comment มาอยู่ในเซลตัวเอง

[akekorn]

เรียนคุณ คนควนและเพื่อนสมาชิก
ผมรบกวนขอความช่วยเหลือครับคือได้ไฟด์ที่ มีcomment ในเซลเยอะมากเลย สิ่งที่ต้องการคือ อยากให้ comment ที่มีอยู่ มาใส่ในไฟด์แทน เช่นมี comment อยู่ที่เซล A1 ว่า Thailand ก็อยากให้คำว่า Thailand มาอยู่ที่เซล A1 แทนครับ

รบกวนด้วยครับผม

[bank9597]

มี comment อยู่ที่เซล A1 ว่า Thailand ก็อยากให้คำว่า Thailand มาอยู่ที่เซล A1 แทนครับ

ประโยคข้างต้นหมายความอย่างไรครับ ฟังแล้วงงๆอยู่ครับ

[tupthai]

คงต้องใช้vba
http://chandoo.org/wp/2009/09/03/get-cell-comments/

[akekorn]

ได้แนบตัวอย่างมาแล้วครับคืออยากให้คำนี้อยู่ในเซลที่มีการ comment ครับ

[bank9597]

ได้แนบตัวอย่างมาแล้วครับคืออยากให้คำนี้อยู่ในเซลที่มีการ comment ครับ

ต้องใช้ vba อย่างที่ท่านอื่นได้บอกไว้ครับ

[akekorn]

ครับแต่ผมลองบันทึกมาโครดู ไม่ทราบว่าหาก comment ขึ้น ไปทั่ว แล้วจะรับค่าตัวแปรเข้าไปใส่แต่ละเซลอย่างไร
ได้แนบไฟด์ที่บันทึกมาโครมาด้วยครับ

[snasui]

ไฟล์ที่จะมี Macro ได้จะต้องเป็นนามสกุล .xlsm หรือ .xls ที่แนบมานั้นเป็น xlsx ไม่สามารถแนบ Macro ได้ครับ

[akekorn]

ครับได้แนบไฟด์ใหม่แล้วครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Macro1()
    On Error Resume Next
    Dim r As Range
    For Each r In Cells.SpecialCells(xlCellTypeComments)
        r = r.Comment.Text
    Next r
End Sub

[akekorn]

ขอบคุณมากครับผม

[akekorn]

คุณคนควนครับรบกวนอีกนิดนะครับ
โค๊ดตัวนี้สามารถปรับใช้กับวัตถุพิเศษบนหน้าชีทปัจจุบันได้ใช่ไหมครับ
หากจะใช้กับ textbox หรือ obj อื่นๆจะตัองอ้างถึงวัตถุอย่างไรครับ
For Each r In Cells.SpecialCells(xlCellTypeComments) ใช่แก้ไขตรงนี้ใช่ไหมครับหากจะอ้างถึง
รูป หรือ box ต่างๆครับผม

ขอบคุณอีกครั้งครับ

[snasui]

ลองบันทึก Macro แล้วดูว่าโปรแกรมอ้างถึงอย่างไรครับ