Snasui Excel Forum

ทำได้แล้วครับ ขอบคุณมากครับอาจารย์

ไฟล์แนบครับ

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


Sub Macro3()
'
' Macro3 Macro
'

'
ActiveWindow.ScrollColumn = 2
ActiveWindow ...

รบกวนผู้รู้หน่อยนะครับ ผมไม่มีความรู้เรื่อง VB จึงอยากรบกวนช่วยแนะนำการเขียนหน่อยครับ โดยคอลัมน์ A มีข้อมูลเลข 1 กับ 2 อยากจะเขียน VB ให้เลือกเฉพาะข้อมูลที่มีเลข 2 แล้วทำการขีดเส้นทึบแถวนั้นทั้งแถวครับ เนื่องจากไม่มีความรู้ทางด้านนี้ รบกวนช่วยแนะนำด้วยนะครับว่าจะเขียนเป็น VB หรือใช้วิธีใดได้บ้าง

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

สองตัวรวมกันหาร2ครับ เป็นค่าเฉลี่ย

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

เมื่อใส่ ID ในช่องเซล T3 แล้วกด Enter ครับ (ขอโทษด้วยนะครับทีี่ให้รายละเอียดไม่ครบ)

ถ้าต้องการดึงรูปภาพมาโดยไม่ต้องกดปุ่ม Show จะได้ต้องเขียน สูตรอย่างไรครับ Public Sub picshow()
Dim r As Range, ra As Range
Dim imgIcon As Object
Dim obj As Object
On Error Resume Next
' With Worksheets("302")
' Set ra = .Range("c116", .Range("b116").End(xlUp).Offset(0, 1))
' End With
For Each ...

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

Public Sub picshow()
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("d2", .Range("c2").End(xlUp).Offset(0, 1))
End With
For Each obj In ActiveSheet.Shapes
If Left(obj.Name, 4) = "Pict" Then
obj.Delete
End ...

ผมลองเขียน VB ใหม่แล้วคับสามารถดึงรูปมาได้แล้ว แต่อยากจะให้มีรูปเพิ่มใน sheet เดียวกัน ซึ่งมีชื่อรูปเหมือนกันแต่อยู่คนละโฟลเดอร์ ต้องเขียน Code เพิ่มยังไงครับ
ซึ่งผมได้แนบไฟล์มาให้แล้วนะครับ ข้อมูลตามในไฟล์ Book1 เลยครับ

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

ผมลองทำ vba ตามนี้แล้วคับ พอกด run มันขึ้น error ตามภาพคับ
Public Sub san()
Dim r As Range, obj As Object
Dim fs As Object, i As Integer
Dim Img1 As Variant, Img2 As Variant

Set r = Worksheets("302").Range("F1")
Set fs = Application.FileSearch

On Error Resume Next

For Each obj In ActiveSheet ...

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("A3", .Range("F65536").End(xlUp).Offset(0, 1))
End With
For Each obj In ActiveSheet.Shapes
If Left(obj.Name, 4) = "Pict" Then
obj.Delete
End ...

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

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