Page 1 of 1
อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 9:23 am
by akekorn
เรียนคุณ คนควนและเพื่อนสมาชิก
ผมรบกวนขอความช่วยเหลือครับคือได้ไฟด์ที่ มีcomment ในเซลเยอะมากเลย สิ่งที่ต้องการคือ อยากให้ comment ที่มีอยู่ มาใส่ในไฟด์แทน เช่นมี comment อยู่ที่เซล A1 ว่า Thailand ก็อยากให้คำว่า Thailand มาอยู่ที่เซล A1 แทนครับ
รบกวนด้วยครับผม
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 10:27 am
by bank9597
มี comment อยู่ที่เซล A1 ว่า Thailand ก็อยากให้คำว่า Thailand มาอยู่ที่เซล A1 แทนครับ
ประโยคข้างต้นหมายความอย่างไรครับ ฟังแล้วงงๆอยู่ครับ
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 10:31 am
by tupthai
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 10:45 am
by akekorn
ได้แนบตัวอย่างมาแล้วครับคืออยากให้คำนี้อยู่ในเซลที่มีการ comment ครับ
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 10:51 am
by bank9597
akekorn wrote:ได้แนบตัวอย่างมาแล้วครับคืออยากให้คำนี้อยู่ในเซลที่มีการ comment ครับ
ต้องใช้ vba อย่างที่ท่านอื่นได้บอกไว้ครับ
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 10:59 am
by akekorn
ครับแต่ผมลองบันทึกมาโครดู ไม่ทราบว่าหาก comment ขึ้น ไปทั่ว แล้วจะรับค่าตัวแปรเข้าไปใส่แต่ละเซลอย่างไร
ได้แนบไฟด์ที่บันทึกมาโครมาด้วยครับ
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 11:51 am
by snasui
ไฟล์ที่จะมี Macro ได้จะต้องเป็นนามสกุล .xlsm หรือ .xls
ที่แนบมานั้นเป็น xlsx ไม่สามารถแนบ Macro ได้ครับ
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 1:12 pm
by akekorn
ครับได้แนบไฟด์ใหม่แล้วครับ
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 1:29 pm
by 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
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 1:38 pm
by akekorn
ขอบคุณมากครับผม
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 2:07 pm
by akekorn
คุณคนควนครับรบกวนอีกนิดนะครับ
โค๊ดตัวนี้สามารถปรับใช้กับวัตถุพิเศษบนหน้าชีทปัจจุบันได้ใช่ไหมครับ
หากจะใช้กับ textbox หรือ obj อื่นๆจะตัองอ้างถึงวัตถุอย่างไรครับ
For Each r In Cells.SpecialCells(xlCellTypeComments) ใช่แก้ไขตรงนี้ใช่ไหมครับหากจะอ้างถึง
รูป หรือ box ต่างๆครับผม
ขอบคุณอีกครั้งครับ
Re: อยากให้ comment มาอยู่ในเซลตัวเอง
Posted: Wed Jan 23, 2013 2:08 pm
by snasui
ลองบันทึก Macro แล้วดูว่าโปรแกรมอ้างถึงอย่างไรครับ