Snasui Excel Forum

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

ขอบคุณมากๆเลยครับอาจารย์

Excel+ไฟล์รูปครับ
C:\Promaterial\

Sheet01--------------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E" Then
Call Test
End If
End Sub

Module1--------------------------------------------------------------------

Sub Test()
Dim SourceFolder ...

ยังไม่สำเร็จครับอาจารย์
ผม ใส่ให้ Excel ทำการตรวจสอบ คอลัม E พร้อมใส่ฟันหนูแบบที่อาจารย์ใส่มาแล้วครับ
ไม่มี error ขึ้นมา แต่ คลิ๊กที่ คอลัม E ทั้งคอลัม ไม่มีรูปขึ้นมาเลยครับ
เลยไม่ทราบว่าผมทำตรงไหนผิดอยู่อีก
ผมแนบโค๊ดที่แก้พร้อมไฟล์มาให้อาจารย์ตรวจอีกครั้งครับ

โปรเกรมขึ้น Syntax Error ครับ

โค๊ด
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = (E12:E42) Then
Call Test
End If
End Sub

ลองใส่ให้ Excel ตรวจสอบ คอลัม E12-E42
แต่โปรเกรมขึ้น Syntax Error ครับ
ลองทั้งแบบ $E$ หรือ E$ , $E ก็ยังใช้ไม่ได้ครับ
คงต้องรบกวนอาจารย์ช ...

ทำได้แล้วครับ ผมดูไม่ดีเอง แค่เลื่อนเซลล์ไปเซลล์เดียวเอง รู้สึกละอายใจจริงๆเลยครับ
แต่แก้ปัญหาจุดนี้ได้แล้วก็เจออีกปัญหาหนึ่งครับ
ใน Module 1 เนื่องจากเราสั่งให้ If Selection.Value = Left(fName, 12)
พอเราคลิ๊กที่เซลล์อื่นจะขึ้น error 13 Type Mismach. ครับตรงจุดนี้เราจะแก้ไขอย่างไรดีครับ
ถึงจะไม่ข ...

กราบขออภัยอย่างสูงครับอาจารย์ ที่ผมไม่อ่าน กฏ-กติกา ที่ภูกต้องก่อนทำการโพสข้อความครับ
สืบเนื่องจากที่บริษัทมีอุปกรณ์ส่งเริมการขายค่อนข้างมาก และเวลาสั่งของก็สั่งกันผิดอยู่บ่อยๆ
เลยมีแนวความคิดว่านำรูปมาโชว์ในเอกสารสั่งของด้วยน่าจะแก้ปัญหาได้ครับ
ผมลองทำตามโค๊ดที่อยู่ในกระทู้นี้ แต่ติดปัญหานิดหนึ่งคร ...

อาจารย์ครับ
ผมลองปรังปรุงตามที่อาจารย์แก้ไขมาเพื่อปรับใช้ที่บริษัทแต่ยังไม่สามารถดึงรูปขึ้นมาจาก c:\Promaterial ได้เลยครับ
รบกวนชี้แนะด้วยครับ