Excel Forum

Sub ShowPicture() Dim r As Range, ra As Range Dim imgIcon As Object Dim obj As Object On Error Resume Next With Worksheets("Sheet1") Set ra = .Range("B1", .Range("A65536").End(xlUp).Offset(0, 1)) End With For Each obj In ActiveSheet.Shapes If Left(obj.Name, 4) = "...

Sub ShowPicture() Dim r As Range, ra As Range Dim imgIcon As Object Dim obj As Object On Error Resume Next With Worksheets("Sheet1") Set ra = .Range("B1", .Range("A65536").End(xlUp).Offset(0, 1)) End With For Each obj In ActiveSheet.Shapes If Left(obj.Name, 4) = "...

แก้ไขได้แล้วครับ ขอบคุณมากเลยครับ

แก้ไขแล้วครับ

Sub ShowPicture() Dim r As Range, ra As Range Dim imgIcon As Object Dim obj As Object On Error Resume Next With Worksheets("Sheet1") Set ra = .Range("B1", .Range("A65536").End(xlUp).Offset(0, 1)) End With For Each obj In ActiveSheet.Shapes If Left(obj.Name, 4) = "...

111111111111ข้อมูล 1 สีดำ 1111111111111111111
22222222 ข้อมูล 2 สีแดง
111111111111ข้อมูล 1 สีดำ 111111111111111
22222222ข้อมูล 2 สีแดง
1111111111ข้อมูล 1 สีดำ 111111111111111
22222222ข้อมูล 2 สีแดง
ต้องการprint ออกมาเฉพาะข้อมูลสีดำ

รบกวนหน่อยครับ

snasui wrote: ↑Sun Apr 08, 2018 7:08 pm ถ้าไม่เปิดการใช้งาน Macro การคำนวณไม่ช้าหรือว่าเป็นเช่นไรครับ

ถ้าแค่เปิดใช้ Macro ไม่ควรจะทำให้ไฟล์ช้า ยกเว้นมี Macro ที่ทำงานทุกครั้งเมื่อมีการเปลี่ยนแปลงในเซลล์ หรือ มีการคำนวณใน Worksheet ซึ่งจำเป็นจะต้องเห็นไฟล์จึงจะช่วยตรวจสอบได้ครับ

ผมลองส่งfile ให้ดูได้ไหมครับ

ขอคำชี้แนะด้วยครับ

snasui wrote: ↑Tue Jan 30, 2018 5:39 pm ไฟล์ตัวอย่างไม่ควรมีขนาดใหญ่ สามารถสร้างขึ้นใหม่โดยมีข้อมูลที่พอเป็นตัวแทนของข้อมูลจริงได้ ไม่ควรส่งไฟล์จริงมาครับ

ผมลองcopy เส้นกรอบ ลง Excel ตัวใหม่ เส่นกรอบไม่มีปัญหาแล้วครับ แต่ เราสามารถ copy ทั้งสูตร และ ขนาด เซลล์ ได้ไหมครับ จะได้ไม่ต้องปรับมาก ปล เป็น macro excel ทีมีปัญหา

snasui wrote: ↑Sat Jan 27, 2018 6:03 am แนบไฟล์นั้นมาด้วยจะได้ช่วยดูให้ได้ครับ

ไฟล์ใหญ่เกินไปส่งเมลได้ไหมครับ

ไฟล์มันใหญ่เกินไปมีช่องทางอื่นที่จะส่งให้ได้ไหมครับ

อันนี้ผมเคปหน้าจอมาครับ เส้นกรอบอยู่คนละ sheet ครับ