ดึงรูปมาใส่ ตามชื่อที่เป็นตัวเลข....

[mr.zatan]

รูปตัวอย่าง http://goo.gl/i16nS

1. รูปอยู่ที่ D:\photo
2. ดึงรูปมาใส่ตามชื่อที่เป็นตัวเลข (เพราะในชื่อจะมีตัวอักษรด้วย) รูปอันไหนก็ได้ที่ชื่อ ตัวเลขเหมือนกัน

[tupthai]

จะทำเช่นนั้นได้ต้องใช้ VBA ครับ
ตามกฎข้อ.5 ด้านบน
สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน

[mr.zatan]

ถ้างั้นก็จบเลยงั้นเพราะผมเองก็ไม่ใช่ โปรแกรมเมอร์...

[tupthai]

http://www.snasui.com/viewtopic.php?f=5&t=3274

[tupthai]

Code: Select all

Public Sub insertphoto()
    Dim Path As String
    Dim F As String
    Path = "d:\photo\"
    F = Dir(Path & "*" & Mid(Range("b11").Value, 5) & "*.jpg")
If Len(F) > 0 Then
   With ActiveSheet.Pictures.Insert(Path & F)
       .Top = Range("a4:b10").Top
       .Height = Range("a4:b10").Height
       .Left = ((Range("a4:b10").Width) - (.Width)) / 2
     End With
Else
    MsgBox "file not found"
End If

 F = Dir(Path & "*" & Mid(Range("b23").Value, 5) & "*.jpg")
Range("a16").Select
If Len(F) > 0 Then
   With ActiveSheet.Pictures.Insert(Path & F)
       .Top = Range("a16:b22").Top
       .Height = Range("a16:b22").Height
       .Left = ((Range("a16:b22").Width) - (.Width)) / 2
     End With
Else
    MsgBox "file not found"
End If
End Sub

[mr.zatan]

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

[mr.zatan]

รูปตัวอย่าง http://goo.gl/4hT14

ส่วนนี้ถ้าผมจะเพิ่มเงื่อนไข ให้ดึงรูปที่ตรงกับตัวอักษรตัวที่ 3 ด้วย ** ในตัวอย่างคือตัว P และ R

(เช็คตัวเลข+ตัวอักษรตัวที่ 3) เมื่อทุกอย่างตรงกันค่อยดึงรูปมาใส่

Code: Select all

 F = Dir(Path & "*" & Mid(Range("b11").Value, 5) & "*.jpg")

[tupthai]

Code: Select all

F = Dir(Path & "*" & Mid(Range("b11").Value, 5) & "*.jpg")

Mid(Range("b11").Value, 5) หมายถึงเอาไว้เฉพาะตัวอักษรตัวที่5เป็นต้นไป ส่วนตัวที่ 1-4 ตัดทิ้ง

ให้แก้ตรงเลข 5 เป็น 3

Code: Select all

F = Dir(Path & "*" & Mid(Range("b11").Value, 3) & "*.jpg")

[mr.zatan]

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