สอบถาม Code เรื่องการ แสดงรูปภาพ ครับ

[jullathep]

ผมเจอCodeของท่านอาจารย์ก็นั่งศึกษา แล้ว ลองปรับเป็นของตัวเอง แต่ ไม่มีผลปรากฎ รบกวน ท่านอาจารย์ช่วยดู Code หน่อยครับ ผมเพิ่ม Image และ Textbox เข้าไปแทนที่ ปรับค่าบางตัว แล้ว ขอคำชี้แนะด้วยครับ ขอบคุณครับ
Module 1

Code: Select all

Sub ShowPicture00()
    Dim r As String
    r = TextBox1.Text <> ""
    On Error Resume Next
    ActiveSheet.Shapes(1).Delete
    Image1.Select
    ActiveSheet.Pictures.Insert("D:\" & r & ".JPG").Select
    Selection.ShapeRange.ScaleWidth 0.14, _
        msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.14, _
        msoFalse, msoScaleFromTopLeft
    Image1.Select
End Sub
Sub ShowPicture()
Dim r As String
Dim imgIcon
On Error Resume Next
    ActiveSheet.Shapes(1).Delete
r = TextBox1.Text <> ""
With Image1
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="D:\" & r & ".jpg", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
    Width:=180, Height:=138)
End With
Set imgIcon = Nothing
End Sub

Sheet1

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "TextBox1" Then
    Call ShowPicture
End If
Application.EnableEvents = True
End Sub

[snasui]

ค่อย ๆ ถามตอบกันไปครับ

ตรง Code ด้านล่างเข้าใจว่าอย่างไรช่วยอธิบายมาด้วยครับ

Code: Select all

If Target.Address = "TextBox1" Then
    Call ShowPicture
End If

[jullathep]

ค่อย ๆ ถามตอบกันไปครับ

ตรง Code ด้านล่างเข้าใจว่าอย่างไรช่วยอธิบายมาด้วยครับ

Code: Select all

If Target.Address = "TextBox1" Then
    Call ShowPicture
End If

เดิมของอาจารย์ เป็น $F$4 คือ ความเข้าใจผมนะครับ คือ ประมาณ ว่า ที่ cell F4 มีค่า ให้เรียก Moduel ShowPicture มาทำงาน กลับกันผมเลยแปลงเป็น Textbox1 เพื่อรับค่า ของอาจารย์ใช้ Cell F4 เพื่อรับค่า น่าจะประมาณนี้ครับ

Code: Select all

If Target.Address = "$F$4" Then
    Call ShowPicture
End If

[snasui]

ไม่ได้แปลว่าเช่นนั้นครับ

จาก

Code: Select all

If Target.Address = "$F$4" Then
    Call ShowPicture
End If

Code นั้นอยู่ในส่วนของ Event ที่ชื่อว่า Worksheet_Change หมายถึงถ้าเซลล์ที่เปลี่ยนค่าคือเซลล์ F4 ไม่ใช่ว่าถ้ามีค่าในเซลล์ F4

Target.Address คือสิ่งที่เราตรวจสอบว่าเซลล์ที่เปลี่ยนแปลงเป็นเซลล์ F4 หรือไม่ ถ้าใช่จึงจะไปเรียก ShowPicture ให้ทำงาน

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

[jullathep]

ไม่ได้แปลว่าเช่นนั้นครับ

จาก

Code: Select all

If Target.Address = "$F$4" Then
    Call ShowPicture
End If

Code นั้นอยู่ในส่วนของ Event ที่ชื่อว่า Worksheet_Change หมายถึงถ้าเซลล์ที่เปลี่ยนค่าคือเซลล์ F4 ไม่ใช่ว่าถ้ามีค่าในเซลล์ F4

Target.Address คือสิ่งที่เราตรวจสอบว่าเซลล์ที่เปลี่ยนแปลงเป็นเซลล์ F4 หรือไม่ ถ้าใช่จึงจะไปเรียก ShowPicture ให้ทำงาน

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

คล้ายกันครับอาจารย์ Textbox 1 ของผมก็เปลี่ยนค่าเช่นกันครับ เพราะว่ารูป ที่ จับคู่ กับชื่อเครื่องหมายการค้านั้นมีเยอะมาก ครับ จึง ต้องเปลี่ยนค่า เช่นกัน รบกวน ขอคำชี้แนะด้วยครับ อย่างเช่น ชื่อเครื่องหมายการค้า รวมดาวเกษตร ชื่อเครื่องเหมายการค้า ภคินทร์ และอื่นๆ ครับ เอ๋ หรือผมต้องเปลี่ยน Event ของ Worksheet

[snasui]

ก็ต้องไปกำหนด Code ดักจับเมื่อมีการเปลี่ยนที่ TextBox1 ไม่ใช่ใช้ Code ต้นฉบับที่ดักจับการเปลี่ยนแปลงในเซลล์ครับ

[jullathep]

ก็ต้องไปกำหนด Code ดักจับเมื่อมีการเปลี่ยนที่ TextBox1 ไม่ใช่ใช้ Code ต้นฉบับที่ดักจับการเปลี่ยนแปลงในเซลล์ครับ

จุดใต้ตำตอครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range) << ผมต้องเปลี่ยนเป็นอะไรครับอาจารย์ Text หรือ ครับ 

[snasui]

ไม่ต้องสนใจ Code นี้เพราะไม่เกี่ยวกับเรื่องที่กำลังทำ

เขียนขึ้นมาใหม่หรือปรับจาก Code เดิมที่เกี่ยวข้องกับการเปลี่ยนแปลงค่าใน TextBox1 ตามที่กล่าวมาครับ

[jullathep]

ไม่ต้องสนใจ Code นี้เพราะไม่เกี่ยวกับเรื่องที่กำลังทำ

เขียนขึ้นมาใหม่หรือปรับจาก Code เดิมที่เกี่ยวข้องกับการเปลี่ยนแปลงค่าใน TextBox1 ตามที่กล่าวมาครับ

เดี๋ยวจะลองทำครับอาจารย์ ถ้าไม่ได้จะปรึกษาใหม่ครับ

[jullathep]

ไม่ต้องสนใจ Code นี้เพราะไม่เกี่ยวกับเรื่องที่กำลังทำ

เขียนขึ้นมาใหม่หรือปรับจาก Code เดิมที่เกี่ยวข้องกับการเปลี่ยนแปลงค่าใน TextBox1 ตามที่กล่าวมาครับ

เดี๋ยวจะลองทำครับอาจารย์ ถ้าไม่ได้จะปรึกษาใหม่ครับ

Code: Select all

Sub ShowPicture00()
    Dim r As String
    r = TextBox1.Text <> "" <<ติด Error บรรทัดนี้ครับ อาจารย์
    On Error Resume Next
    ActiveSheet.Shapes(1).Delete
    Image1.Select
    ActiveSheet.Pictures.Insert("D:\" & r & ".JPG").Select
    Selection.ShapeRange.ScaleWidth 0.14, _
        msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.14, _
        msoFalse, msoScaleFromTopLeft
    Image1.Select
End Sub

Code: Select all

Private Sub CommandButton1_Click()
Call ShowPicture00
End Sub

ผมเผลี่ยนเป็นปุ่มตกลงแทนครับ อาจารย์แล้วติด Error

[snasui]

เราไม่สามารถใช้ r = TextBox1.Text <> "" ซึ่งเป็นการกำหนดค่าซ้อนการเปรียบเทียบได้ครับ

้ถ้าต้องการกำหนดค่าให้กับตัวแปร r ให้ปรับเป็น r = TextBox1.Text ครับ

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

[jullathep]

เราไม่สามารถใช้ r = TextBox1.Text <> "" ซึ่งเป็นการกำหนดค่าซ้อนการเปรียบเทียบได้ครับ

้ถ้าต้องการกำหนดค่าให้กับตัวแปร r ให้ปรับเป็น r = TextBox1.Text ครับ

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

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

[snasui]

ระบุมาให้ละเอียดถึงตำแหน่งชีต ตำแหน่งเซลล์ที่แสดงผล ตำแหน่งภาพที่จะนำมาใช้ พร้อมทั้งเขียน Code ในไฟล์แนบให้สอดคล้องกับสิ่งที่อธิบาย ฯลฯ ครับ