Snasui Excel Forum

snasui wrote: เพิ่มบรรทัดนี้ pic1.PictureSizeMode = fmPictureSizeModeStretch แทน Code ตามด้านล่าง

Code: Select all

Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
    Width:=240, Height:=156)

ขอบคุณครับ

:D ลองปรับมาเองก่อน ติดแล้วค่อยถามกันต่อครับ


ลองปรับขนาดภาพตามนี้ ครับ ยังล้นอยู่เลยครับ

Private Sub txtcode_Change()
On Error Resume Next
With Application.WorksheetFunction
txtlist.Value = .VLookup(Val(txtcode.Text), Sheets("DATA").Range("A2:C1041576"), 2, False)
txtprice.Value = .VLookup ...

snasui wrote: ไม่สามารถตอบได้ เพราะไม่ได้เห็นสภาพการทำงานครับ

ผมเปลี่ยน โฟเดอร์ใหม่ได้แล้วครับ

การกำหนดขนาดของรูปให้พอดีกับ กรอบ IMAGE
ต้องเพิ่มยังไง บางครับ

snasui wrote: ควรแยก Path ไว้อีกต่างหาก ที่เขียนมาตามด้านบนควรจะทำงานได้หากมีรูปใน Folder นั้นจริงครับ

ขอบคุณครับอาจารย์

ผมก็งงเหมือนกันครับ แก้แล้วลง F8 ดูก็ผ่าน แต่ไม่แสดงผล

พอ ปิด ไป 2 วัน มาเปิดกลับใช้งานได้ แบบนี้เป็นเพราะอะไรครับ อาจารย์

รึว่าผมจะแยกรูป ออกมาใส่อีก Folder ดีครับ

เลยลองใส่ ภาพก็ยังไม่ขึ้น ต้องแก้ตรงไหนดีครับ

สวัสดีครับ ผู้เชียวชาญทุกท่าน
พอดีผมติดการดึงภาพจาก Sheet DATA ใน ช่วง K
ให้มาโชว์ ใน USER FORM โดยใช้สูตร Vlookup (อยากให้ภาพขยายขนาดตามกรอบของ Pic1)
Private Sub txtcode_Change()
On Error Resume Next
With Application.WorksheetFunction
txtlist.Value = .VLookup(Val(txtcode.Text), Sheets("DATA ...

ลองแบบนี้ว่าใช้ได้ตามต้องการไหมครับ
Sub ListFileInFolder()
Directory = "D:\2" & "\"
r = 1
ListFile = Dir(Directory, vbNormal)
Do While ListFile <> ""
r = r + 1
Cells(r, 2) = ListFile
Cells(r, 3) = Directory
Range(Cells(r, 3), Cells(r, 3)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection ...

สวัสดี ผู้เชี่ยวทุกท่านครับ

มีปัญหาสอบถามเกี่ยวกับ VBA

ผมมี VB ที่เข้าไปให้ชื่อในโพเดอร์ แล้วเอาชื่อมาโชว์ที่ คอลัม B แล้ว Directory อยู่ที่ คอลัม C
ผมอยากให้ Hyperlinks คอลัม C ไปที่ที่อยู่ไฟล์ต้องแก้ยังไงครับ

ความต้องการคือคลิ๊กที่ link Hyperlinks แล้วเปิดไฟล์เลย ครับ

Sub ListFileInFolder ...

snasui wrote: ปกติเขียนในเซลล์ก่อนแล้วค่อย Link เข้ามาใน TextBox หรือ Object อื่น ๆ ได้ตามต้องการ

วิธีการคือ คลิกที่ขอบของ TextBox > คลิกลงใน Formula bar > คีย์เครื่องหมาย = จากนั้นไปคลิกเซลล์ที่ต้องการจะนำข้อมูลมาแสดง > Enter

ขอบคุณมากครับ คิดไม่ถึง

สวัสดีผู้ชำนาญทุกท่านครับ

พอดีผมมีคำถามเกี่ยวกับ Textbox แบบที่เราไม่ได้เขียน VBA (อยู่ใน Tab Insert)
เราสามารถใส่สูตร Vlookup ใน Textbox ให้เปลี่ยนตาม เงื่อนไข ที่กำหนดได้ไหม ครับ

snasui wrote:

titus2014 wrote:แต่ทำไหมใช่ With ครับ อธิบายหน่อยได้ไหม ครับ

ดูคำอธิบายใน Link นี้ครับ With...End With

ขอบคุณครับ

ลองแบบนี้ดูครับ ว่าใช้ได้ตามต้องการไหม
Private Sub txtp_Change()
With txtlist
If txtp = 1 Then
.RowSource = "item1"
End If
If txtp = 2 Then
.RowSource = "item2"
End If
If txtp = 3 Then
.RowSource = "item3"
End If
End With
End Sub


ตรงตามความต้องการครับ
แต่ทำไหมใช่ With ครับ อธิบายหน ...

:D Code ที่มีปัญหาไม่ควร Mark เป็น Comment ให้เขียนแจ้งมาในที่นี้แทนว่าบรรทัดใดติดปัญหาครับ

สำหรับ Code ในไฟล์ที่แนบมายังไม่ได้ใส่บรรทัด End Select นอกจากนี้ยังไม่เข้าใจว่า Add.Visible = False ที่เขี่ยนไว้นั้น ต้องการจะทำอะไร เพราะบรรทัดนี้ก่อให้เกิดปัญหา Error ตามที่ถามมา หากไม่ได้ใช้ประโยชน์ให ...

snasui wrote: แนบไฟล์ที่ได้ Update Code แล้วมาด้วย จะได้ดูต่อไปจากนั้นครับ

ผมใส่ เครื่องหมาย ' ข้ามไว้นะครับ เพราะมัน Error

:D การจะใช้ให้ถูกต้องคงต้อง ซื้อหนังสือมาศึกษา อย่างจริงจัง สำหรับแหล่งข้อมูลสำคัญที่ควรใช้ให้เป็นคือ Help ของโปรแกรมครับ จะได้ทราบว่า Property หรือ Method แต่ละตัวมีความหมายและให้ผลลัพธ์เป็นอะไร ทราบแต่เพียงอย่างเดียวคงไม่พอ ต้องฝึกฝนอย่างมากหากต้องการใช้อย่างคล่องแคล่ว

สำหรับ .Value จะเป็น ...

:D สามารถใช้ RowSource มาช่วยได้ ลองดูตัวอย่างที่กระทู้นี้ครับ http://snasui.com/viewtopic.php?t=3450&p=23511 สำหรับตัวอย่างอื่น ๆ ดูที่นี่ครับ RowSource


Private Sub UserForm_Initialize()
Add.Visible = False
a = Range("item1")
b = Range("item2")
c = Range("item3")
Select Case txtp.Value ...

:D สามารถใช้ RowSource มาช่วยได้ ลองดูตัวอย่างที่กระทู้นี้ครับ http://snasui.com/viewtopic.php?t=3450&p=23511 สำหรับตัวอย่างอื่น ๆ ดูที่นี่ครับ RowSource


ขอบคุณมากครับ อาจาร์ย
ตอนแรกผมก็ใส่ RowSource =RangName ดูเหมือนรายการมันจะเยอะไปหน่อยครับ
ถามอาจาร์ยหน่อยครับ รูปแบบการเขียน RowSource ใน VBA ...

:D ตัวอย่าง Code ตามด้านล่างครับ
txtlist.Value = .VLookup(Val(txtp.Text), Sheets("DATA").Range("allitem"), Val(txtp.Value), False)

ขอบคุณครับอาจาร์ย
ทำไปทำมา ลืมไปว่า Vlookup แสดงแค่รายการเดียว

ผมต้องการสร้างเงือนไข มากกว่า 2 รายการ
if txtp = 1 ให้ Combo Box แสดง List จากชื่อ item1
if txtp = 2 ...

อันนี้ขอต่อยอดหน่อยครับ
ถ้าเราต้องการสร้างเงื่อนไขสำหรับ Vlookup
โดยเงื่อนไข เรามี แค่ 3 ค่า
คือ 1-3
ผมเลือกใช้ Case ครับ
Case ที่ 1 ถ้า ในช่องtxtp มีค่า = 1 ให้ไปดูที่ แถวที่ 1 ของ Allitem
Case ที่ 2 ถ้า ในช่องtxtp มีค่า = 2 ให้ไปดูที่ แถวที่ 2 ของ Allitem
Case ที่ 2 ถ้า ในช่องtxtp มีค่า = 3 ให ...

อยากจะสอบถามเกี่ยวกับ เกี่ยวกับการประกาศตัวแปร

Set myRange = Worksheets("DATA").Range("A2:C11")

1. ในการเขียน VBA เราต้องมาประกาศตัวแปรภายใน ด้วยหรอครับ
เราจะประกาศตัวแปรหรือไม่ก็ได้ แต่การประกาศตัวแปรทำเพื่อจัดส Memory ให้ใช้อย่างเหมาะสม เพราะการไม่ประกาศตัวแปร โปรแกรมถือว่าตัวแปรนั้นเป็น ...