Excel Forum

mr.zatan

ทำให้ ขึ้นบรรทัดใหม่ หลังเครื่องหมาย "+" ผมใช้ =VLOOKUP(A3,Sheet1!A4:N15,4,FALSE) เพื่อดึงข้อมูลมา https://lh3.googleusercontent.com/-rEDgANJPKMo/UrO3cDgMadI/AAAAAAAADXE/vVeolM0VIH0/w578-h305-no/001.jpg เอาแบบนี้ครับ https://lh3.googleusercontent.com/-eX6dMeOsujU/UrO3cfu1HMI/AAAAAAAADXI/p...

mr.zatan

คือผมหมายถึง..คลิกครั้งเดียวรูปเข้าพร้อมกัน 2 ช่องน่ะครับ

mr.zatan

ผมลอง Set r = Range("a5","a10").MergeArea

ก็ไม่ได้

mr.zatan

เพิ่มเติมครับ

Code ส่วนนี้ ถ้าจะทำให้เพิ่มรูปที่ a10 ด้วยนี่ต้องเพิ่ม Code อะไรครับ

คือเพิ่มรูปที่ a5 และ a10 พร้อมกันรูปเดียวกัน

Code: Select all

Set r = Range("a5").MergeArea

mr.zatan

โทษทีครับผมอธิบายไม่ค่อยตรง

- คือให้อยู่ตรงกลางโดยภาพไม่เสีย ขนาดจริง

- คลิกครั้งที่2 ให้ ลบรูปออก ผมสามารถใช้ Code นี้ได้ รึเปล่าว

Code: Select all

ActiveSheet.Pictures.Delete

mr.zatan

ภาพมันยืด....น่ะครับ

อย่างถ้ารูปที่เป็น สี่เหลี่ยมจัตุรัตอย่างนี้ มันก็จะยืดเท่ากับช่องครับ

คือให้รูปอยุ่ในทรงเดิมๆๆ แค่ให้อยู่ตรงกลางครับ...

mr.zatan

ไฟล์ตัวอย่างครับ..

- ให้รูปอยู่ในช่อง และตรงกลาง

mr.zatan

สงสัยต้องใช้ VBA เข้ามาช่วยใช่มัยครับ งั้น.... ผมจะใช้ VBA ช่วยและกัน ตามนี้ครับ... - คือตอนนี้มันติดตรงที่ รูปที่ Insert เข้ามามันไม่อยู่ตรงกลางช่องน่ะครับ ช่วยแก้ให้หน่อยครับ... - ให้อยู่ตรงกลางช่อง และ ปรับขนาดรูปให้พอดีกับช่อง Private Sub CommandButton1_Click() Dim sFile As Variant, r As Range S...

mr.zatan

คือปรกติถ้า Protect Sheet แล้วจะไม่สามารถ Insert Picture ได้ใช่มัยครับ

แต่ที่ต้องการคือ จะ Insert Picture ใน Sheet ที่ Protect Sheet ไว้น่ะครับ

mr.zatan

ทำยังไงถึงจะ Protect Sheet แต่ยังสามารถ Insert Picture ได้...

mr.zatan

คือผมอยากจะ เพิ่ม Code ให้ Export XML ออกมาไฟล์ล่ะ 100 แถว เช่น มีทั้งหมด 200 แถว Export ออกมาก็จะได้ 2 ไฟล์ รบกวนดูให้หน่อยครับ :D Sub Button1_Click() Dim TheText Dim TheLineText TheText = "<?xml version=""1.0""?><product>" For i = 3 To 10000 If Sheet1.Cells(i, 2) <> &...

mr.zatan

ขอบคุณครับ..

*** ผมสงสัยมานานแล้วว่า MsgBox สามารถเปลี่ยนขนาด Font ได้มัย หรือว่าทำให้เป็นตัวหนาก็ได้

mr.zatan

แก้ Code ให้หน่อยครับ.

** คลิกครั้งแรก Copy ได้ปรกติ แต่คลิกครั้งที่ 2 แล้ว error ครับ

- ผมอยากให้ คลิกครั้งที่ 2 แล้วไม่ error หรือจะให้ขึ้น Popup แจ้งเตือนก็ได้

Code: Select all

Sub copysheet()

ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = Format(Date, "mmm_yyyy")

End Sub

mr.zatan

ขอบคุณครับ....สั้นๆๆได้ใจความดี

mr.zatan

ตามไฟล์แนบครับ...

mr.zatan

เหมือนเดิมครับ เพิ่มเหมือนเดิม

ผมว่าน่าจะต้องแก้บรรทัดนี้รึเปล่าว

NextRow = ActiveCell.Row

Worksheets("Sheet2").Range("a" & NextRow).Select

mr.zatan

จะแก้ยังไงครับ...

คือตอนนี้มันจะเพิ่มบรรทัดไปเรื่อย.....คืออยากให้ทับของเดิมไปเลย ไม่อยากให้ขึ้นบรรทัดใหม่

mr.zatan

ใช้ Sheets(2).Activate แทน Worksheets("Sheet2").Activate แบบนี้ถูกมัยครับ

mr.zatan

ขอตัวอย่างหน่อยครับ....

mr.zatan

ถามผิดครับ...โทษที...

คือว่า Sheet1 Sheet2 มีอะไรที่ใช้แทนชื่อ Sheet ได้มัยครับ เช่น ลำดับของ sheet

เพราะว่า อย่างเช่น ผมจะส่งข้อมูลจาก Sheet 2 ไปที่ Sheet1

ปัญหาคือ ที่ Sheet2 ต้องเปลี่ยนชื่อ Sheet ไปเรื่อยๆๆ

Excel Forum

EXCEL TOOLS

Search found 305 matches

หลังเครื่องหมาย "+" ให้ขึ้นบรรทัดใหม่

Re: Protect Sheet แต่ยัง Insert Picture ได้...

Re: Protect Sheet แต่ยัง Insert Picture ได้...

Re: Protect Sheet แต่ยัง Insert Picture ได้...

Re: Protect Sheet แต่ยัง Insert Picture ได้...

Re: Protect Sheet แต่ยัง Insert Picture ได้...

Re: Protect Sheet แต่ยัง Insert Picture ได้...

Re: Protect Sheet แต่ยัง Insert Picture ได้...

Re: Protect Sheet แต่ยัง Insert Picture ได้...

Protect Sheet แต่ยัง Insert Picture ได้...

Export xml ตามจำนวนที่กำหนด

Re: การ Copy Sheet และ Auto Rename

การ Copy Sheet และ Auto Rename

Re: ส่งข้อมูล จาก Sheet นึง ไปอีก Sheet นึง.....

Re: ส่งข้อมูล จาก Sheet นึง ไปอีก Sheet นึง.....

Re: ส่งข้อมูล จาก Sheet นึง ไปอีก Sheet นึง.....

Re: ส่งข้อมูล จาก Sheet นึง ไปอีก Sheet นึง.....

Re: ส่งข้อมูล จาก Sheet นึง ไปอีก Sheet นึง.....

Re: ส่งข้อมูล จาก Sheet นึง ไปอีก Sheet นึง.....

Re: ส่งข้อมูล จาก Sheet นึง ไปอีก Sheet นึง.....