อยากเขียนปุ่มที่กดแล้วไปดึงภาพมาโชว์ใน excelค่ะ ที่เขียน VBA

[widtara]

สวัสดดีค่ะอ้อยมีปัญหามาถามต่อค่ะ เป็นภาคต่อจากคำถามเรื่องการแยก sheet โดยเขียน VBA ค่ะ ซึ่งเป็นงานที่ต่อเนื่องกันค่ะ
ตอนนี้อ้อยยังศึกษาพื้นฐาน VBA อยู่ยังไม่เก่งและยังไม่ค่อยเข้าใจการทำงานมากนัก คือว่า มี excel อยู่หน้าหนึ่ง
เช่นสมุมติว่า ที่ A1 มีรหัส 92217 ซึ่งจะมี Folders ชื่อ 92217 อยู่และมีไฟล์ภาพอยู่ 3 ไฟล์ ซึ่งชื่อจะมาจากกล้องที่ถ่าย ส่วนใหญ่ภาพที่ต้องการจะเป็นภาพที่ 2 กับ ภาพที่ 3 คราวนี้อ้อย กำหนดให้ อาจเป็น B1 โชว์ภาพที่ 2 ใน Folders 92217

และ อาจให้ B2 โชว์ภาพที่ 3 ใน Folder 92217 โดยระบุขนาดภาพที่แน่นอนเพื่อลดขนาดไฟล์ ลักษณะแบบนี้ค่ะ อาจจะต้องใช้ VBA แต่ไม่รู้จะเริ่มยังงัยค่ะ อ้อยแนบตัวอย่างมาให้ดูค่ะ และแนบ ไฟล์ โครงการที่คิดจะทำมาให้ดูค่ะ ช่วยแนะนำหน่อยนะค่ะ หรือหากไม่ใช้ VBA จะต้องมีวิธีทำอย่างอื่นไหมค่ะ 2 ไฟล์ที่แนบมา เป็นงานเดียวกัน ค่ะ ไฟล์แรกเป็นวิธีการทำให้ได้ภาพมาจริง ส่วนไฟล์ที่ 2 เป็นแนวคิดปรับงานโดยใช้วิธีดึงภาพมานะค่ะ เป็นงานที่ทำอยู่เลยค่ะ

[widtara]

ไฟล์ที่ 2 แต่ว่ามันใหญ่เลยสับออกเป็น 6 ไฟล์ค่ะ
Update Sub NCR1.1.xls
Update Sub NCR1.2.xls
Update Sub NCR1.3.xls
Update Sub NCR1.4.xls
Update Sub NCR1.5.xls
Main.Sub Form.xls

[widtara]

ไฟล์ที่เหลือ รวมแล้ว เป็นโครงการที่คิดไว้นะค่ะ มันค่อนข้างเยอะและยาว อาจเป็นเพราะยังหาวิธีการจัดเรียงที่ดีกว่านี้ยังไม่ได้ ตอนนี้จะค่อยดูและค้นหาวิธีที่ดีที่สุดไปเรื่อยค่ะ ตอนนี้อยากรู้คำสั่งที่ทำให้ภาพโชว์ได้ก่อน แล้วค่อยไปทีละขั้นนะค่ะ

[sdmania]

ผมมาเสนอว่าให้ไปรวมกระทู้เกี่ยวกับการเขียนโปรแกรมเพื่อให้ได้งานประมาณนี้ที่กระทู้นี้ครับ
http://www.snasui.com/viewtopic.php?f=3&t=632

หากคุณอ้อยรีบ ผมก็ขอเสนอให้อาจารย์ช่วยแก้ หรือยกตัวอย่างปัญหาคุณอ้อยก่อนครับ เดี๋ยวผมกับคุณ sup จะได้เรียนรู้ตามกันทีหลังจากตัวอย่างคุณอ้อย


ผมว่าค่อยๆอ่านพื้นฐาน VBE ให้เข้าใจนะครับ แล้วจะได้แกะตัวอย่างมาปรับใช้ได้(อันนี้วิธีผมครับ มือใหม่เหมือนกัน)

[sup]

แสดงว่ามีผู้ที่มีปัยหากับงานที่อยากนำเสนอแบบเดียวกับผมอยู่ทั้งที่ ออกตัวมาแล้วและที่ยังไม่ออกตัวมาก็คงมากนะครับ
มือใหม่ๆทั้งนั้น ก็มาช่วยกันครับ

[widtara]

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

[widtara]

ขอบคุณ คุณ sdmania อ่านมาแล้วค่ะ ลิงค์ค่ะ แต่ยังมึน เหมือนโดน ไม้หน้าสามทุบหัวเลยค้าๆๆๆๆๆ มึนอย่างแรง ขอออกตัวเลยนะค่ะ ที่อยู่พึ่งมาใช้ 2007 ได้ 1 อาทิตย์ เป็นการเปลี่ยนแปลงของบริษัทนะค่ะ แต่จุน สมอง จาก 2003 มา 2007 ยังมึนไม่หาย

เลยค๊าๆๆๆๆๆ ขอบอก มาเจอ 2007 ไอ้ที่คิดว่าตัวเองเก่งกว่าแถวนี้แล้วนะ ยังหาอะไร ใช้ไม่ได้ดังใจเลย มันไม่เคยๆ หันหน้าหันหลัง เจอบ้างไม่เจอ เหมือนนับ1 ใหม่ๆ ตลอดๆ เลยค๊า

[sdmania]

ผมเองก็ไม่ได้เก่งอะไรเลยครับ เพียงแต่มาเข้าบอร์ดนี้บ่อย แถมอาจารย์คนควนใจดี สอนในแบบที่มือใหม่เข้าใจได้เลยครับ
ขอขอบคุณอาจารย์ไว้ ณ ที่นี้อีกครั้งครับ อาจารย์มีความเป็นครูเต็มเปี่ยมครับ

เอาละ เข้าเรื่องๆ คุณอ้อย กับคุณ sup ลองเขียนแผนผังการทำงาน ว่ากันตั้งแต่เปิดโปรแกรมเข้ามาน่ะ(อ่านว่า หนะ)ครับ
จะได้ลองดูงานเราสามคนว่าใกล้เคียงกันแค่ไหน

มาว่ากันด้วยเรื่อง เปิดโปรแกรมแล้วจะดึงภาพมาดูกันได้ยังไงดีกว่า คือจะลำดับดูว่ามีขั้นตอนอะไรกันบ้าง เรียกข้อมูลยังไง เก็บภาพยังไงน่ะครับ มันอาจจะคาบเกี่ยวไปเรื่องอื่นน่ะครับ ผมยังมึนยังลำดับไม่ถูกช่วงนี้ออกไปทำงานข้างนอกบ่อย ไม่ค่อยได้นั่งหน้าจอต่องานexcel เลย ก็เลยมาหาเพื่อนช่วยๆกันทำงานขึ้นมาจะได้ดึงcodeมาใช้ หลายๆคนช่วยพัฒนาโปรแกรมมันจะได้ไปได้ค่อนข้างเร็วครับ

[sup]

ของผมเป็นการดึงภาพโฟลเดอร์ที่ใช้เป็นคลังเก็บ ซึ่งคิดว่าเก็บได้เยอะดี ในโฟลเดอร์ก็แยกโฟลเดอร์ย่อยๆมีชื่อตามรหัสสินค้าซึ่งเก็บภาพที่มีชื่อเดียวกับโฟลเดอร์นั้นๆ แต่มี -1, -2 ฯลฯ ต่อไปได้เรื่อยๆ เพื่ออาจจะมีเติมในอนาคต แล้วผมทำ User Form มีช่องรับข้อมูลโดยกรอกรหัสเข้าไป แล้วคลิกปุ่มให้ค้นหา เข้าไป แล้วสามารถไล่หาไปได้เรื่อยทุกภาพที่มีอยู่ในโฟลเดอร์นั้นๆ เดินหน้าถอยหลังได้ และมีช่องแสดงผลลัพธ์ คือจำนวนภาพที่มีทั้งหมด และลำดับของภาพที่กำลังดู
ตามไฟล์แบบที่เคยแนบมาก่อนหน้าครับ

อาจารญืบอกว่ายากต้องใช้เวลานาน

[widtara]

ของผมเป็นการดึงภาพโฟลเดอร์ที่ใช้เป็นคลังเก็บ ซึ่งคิดว่าเก็บได้เยอะดี ในโฟลเดอร์ก็แยกโฟลเดอร์ย่อยๆมีชื่อตามรหัสสินค้าซึ่งเก็บภาพที่มีชื่อเดียวกับโฟลเดอร์นั้นๆ แต่มี -1, -2 ฯลฯ ต่อไปได้เรื่อยๆ เพื่ออาจจะมีเติมในอนาคต แล้วผมทำ User Form มีช่องรับข้อมูลโดยกรอกรหัสเข้าไป แล้วคลิกปุ่มให้ค้นหา เข้าไป แล้วสามารถไล่หาไปได้เรื่อยทุกภาพที่มีอยู่ในโฟลเดอร์นั้นๆ เดินหน้าถอยหลังได้ และมีช่องแสดงผลลัพธ์ คือจำนวนภาพที่มีทั้งหมด และลำดับของภาพที่กำลังดู
ตามไฟล์แบบที่เคยแนบมาก่อนหน้าครับ

อาจารญืบอกว่ายากต้องใช้เวลานาน

คล้ายๆข้างบนนี้ค่ะ โครงที่จะทำจนสมบูรณ์มีตามไฟล์แนบมา เอามาต่อกันค่ะ คือมันใหญ่ เลยสับหลายไฟล์
Update Sub NCR1.1.xls
Update Sub NCR1.2.xls
Update Sub NCR1.3.xls
Update Sub NCR1.4.xls
Update Sub NCR1.5.xls
Main.Sub Form.xls

แต่ไฟล์ที่จะทำให้ได้ก่อนคือ ไฟล์นี้ค่ะ RJL-F1101-01-01.xls
ขอการดึงข้อมูลใน Folders ที่เก็บไว้เช่น
EVENT PICTURES DRYER
-wk01
-RJI
80364 ซึ่งเป็นรหัสใบ ma ข้างในจะมีภาพประมาณ 3 ภาพ ตั้งชื่อตามค่ากล้องที่ถ่ายมา ภาพที่ใช้จะอยู่อันดับ 2 และ 3
-RJL มีข้อมูลลักษณะเดียวกันกับ RJI

ไฟล์ RJL-F1101-01-01.xls
จะมีข้อมูลเลข ma อยู่ จะกำหนดให้มันเจอเลข ma และไปค้นหา ใน folders ถ้ามีเลข ma เหมือนกัน ให้ดึงภาพที่ 2 และ 3 มาโชว์ใน ส่วนที่ เรากำหนด ค่ะ

[snasui]

ผมลองเขียน Code สำหรับ Add รูปให้ตามตำแหน่งเซลล์ โดยกำหนดขนาดให้พอดีกับพื้นที่ที่กำหนดไว้ โดยใช้ Code ตามด้านล่างครับ

สังเกตที่ .LookIn = "C:\Picture\" ตรงนี้ต้องใส่ Path ที่เก็บภาพก่อนที่จะถึง Folder ใน J29

Code: Select all

Option Explicit

Sub FindPicture()
Dim r As Range, obj As Object
Dim fs As Object, i As Integer
Dim Img1 As Variant, Img2 As Variant

Set r = Worksheets("22").Range("J29")
Set fs = Application.FileSearch

On Error Resume Next

For Each obj In ActiveSheet.Shapes
    If Left(obj.Name, 3) = "Pic" Then
            obj.Delete
    End If
Next

    With fs
        .LookIn = "C:\Picture\" & r '<== Chage to your real path
        .SearchSubFolders = True
        .Filename = "*"
        If .Execute() > 0 Then
            With Range("F47")
                Set Img1 = ActiveSheet.Shapes.AddPicture( _
                Filename:=fs.FoundFiles(2), LinkToFile:=False, _
                SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
                Width:=590, Height:=420)
            End With
            With Range("M47")
                Set Img2 = ActiveSheet.Shapes.AddPicture( _
                Filename:=fs.FoundFiles(3), LinkToFile:=False, _
                SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
                Width:=590, Height:=420)
            End With
        Else
            MsgBox "There were no files found."
            Exit Sub
        End If
    End With
    
End Sub