Snasui Excel Forum

ขอบคุณครับ

ขอบคุณครับอาจารย์
โมดูล2 ผมลองทำดูตอนที่จะสั่งฟอร์แมทแล้วลืมลบออก
ทำได้แล้วครับ :mrgreen:
ขอบคุณมากๆครับ รักษาสุขภาพนะครับ

Sub lstCustom_Enter()
On Error Resume Next
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
  If Err <> 0 Then
    myPic = "D:\Data\"& MainPic & ".jpg"
    ImgCustom.Picture = LoadPicture(myPic) '<== Add this line
    MsgBox "Customer's picture not available"
  EndIf
End Sub

Sub format()
'
' format Macro
' xxx
'

'
    Range("X3").Select
    Selection.NumberFormat = "0000000000000000"
    Range("W13").Select
End Sub

Dim Target As Range
Set Target = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

[quote="Bafnet"]เรื่องการแสดงรูปกรณี Err นั้นทำได้แล้วครับ แต่ต้องเขียนคำสั่งLoadPicture เพิ่มอีกหนึ่งคำสั่งครับ[/quote]
ยินดีด้วยครับ Code ที่ผมให้ไปเขียนตกไปบรรทัดนึงครับ ซึ่งควรจะเปรับป็นตามด้านล่าง :oops:
[code]Sub lstCustom_Enter()
On Error Resume Next
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
If Err <> 0 Then
myPic = "D:\Data\"& MainPic & ".jpg"
ImgCustom.Picture = LoadPicture(myPic) '<== Add this line
MsgBox "Customer's picture not available"
EndIf
End Sub[/code]
กรณีที่ Function [color=#0000FF]Format[/color] ใช้ไม่ได้เพราะว่าคุณ Bafnet ไปใช้ Format เป็นชื่อ Procedure ใน [color=#FF0000]Module2[/color] ตามด้านล่าง ซึ่งควรลบหรือเปลี่ยนชื่อเพื่อไม่ให้ Code Error ครับ
[code]Sub format()
'
' format Macro
' xxx
'

'
Range("X3").Select
Selection.NumberFormat = "0000000000000000"
Range("W13").Select
End Sub[/code]
[quote="Bafnet"]การส่งข้อมูล(บันทึก)/หรือแก้ไขผมเขียนโดยใช้ Target = OFFSET(Ref,COUNTA(Sheet!$A:$A)-1,0,1,32) แล้วส่งค่า Source ที่กำหนดไปต่อท้ายข้อมูลในตาราง[/quote]
การเขียน Code เพื่อส่งข้อมูลไปบันทึกท้ายตารางเราสามารถกำหนดใน Code VBA เป็น
[code]Dim Target As Range
Set Target = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)[/code]
เป็นการกำหนด Target ให้เป็นเซลล์หลังจากเซลล์สุดท้ายที่มีข้อมูล
กรณีกำหนดด้วยการให้ชื่อเซลล์ตามตัวอย่างที่ถามมาคิดว่าสามารถใช้ได้แล้วครับ

สวัสดีครับอาจารย์
เรื่องTextBox ยังคงใช้ไม่ได้ครับ/ส่วนเรื่องการแสดงรูปกรณี Err นั้นทำได้แล้วครับ แต่ต้องเขียนคำสั่งLoadPicture เพิ่มอีกหนึ่งคำสั่งครับ
ผมอยากให้อาจารย์ดูไฟล์ให้หน่อยนะครับ ช่องรับค่าจำนวนเงินอยู่หน้าระบบเปิดบัญชีเงินฝาก(ด้านล่างซ้ายมือ)
file.BES 4U.xls http://www.upload-thai.com/download.php?id=6931afe05d7c8314e17ff12240f34367

User=admin
Password=admin
การส่งข้อมูล(บันทึก)/หรือแก้ไขผมเขียนโดยใช้ Target = OFFSET(Ref,COUNTA(Sheet!$A:$A)-1,0,1,32) แล้วส่งค่า Source ที่กำหนดไปต่อท้ายข้อมูลในตาราง
การเขียนคำสั่งแบบนี้พอไปได้ไหมครับหรือ
Cmdบันทึกควรเขียนอย่างไร Cmdแก้ไขข้อมูลควรเขียนอย่างไร
กรุณาด้วยนะครับ

Sub lstCustom_Enter()
On Error Resume Next
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
  If Err <> 0 Then
    myPic = "D:\Data\"& MainPic & ".jpg"
    MsgBox "Customer's picture not available"
    Exit Sub
  EndIf
End Sub

[quote="Bafnet"]Private Sub TextBox1_AfterUpdate()
TextBox1.Value = format(TextBox1.Value, "#,##0.00")
End Sub[/quote]
เท่าที่ทดสอบสามารถแสดงผลได้ครับ
[quote="Bafnet"]รบกวนอีกเรื่องครับความสัมพันธ์ของtxtBox-ImgBox
txtID = รับค่าจากเลขบัตรประชาชน
ImgCustom = แสดงผลรูปภาพ
....................................
lstCustom_Enter()
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
End Sub
ปัญหาคือเมื่อไม่มีรูปภาพที่ชื่อเดียวกับtxtIDในแฟ้มที่กำหนดก็จะdebug ผมอยากสร้างรูปหนึ่งในลักษณะเป็นรูปหลัก ถ้าไม่มีรูปตามที่กำหนด(myPic) ก็ให้แสดงรูปหลักแทนพร้อมแสดงMsgBox"ลูกค้ารายนี้ยังไม่มีข้อมูลรูปภาพในฐานข้อมูล"
จะเขียนคำสั่งเพิ่มเติมอย่างไรได้ครับ รบกวนอาจารย์และพี่ๆผู้รู้ด้วยครับผม[/quote]
ลองปรับเป็น
[code]Sub lstCustom_Enter()
On Error Resume Next
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
If Err <> 0 Then
myPic = "D:\Data\"& MainPic & ".jpg"
MsgBox "Customer's picture not available"
Exit Sub
EndIf
End Sub[/code]
[color=#0000FF]MainPic[/color] คือรูปหลักที่ต้องการให้แสดง หากยังไม่ได้ลองส่งไฟล์ตัวอย่างมาครับจะได้สะดวกในการทดสอบ

ใส่จำนวนเงิน 10000 ต้องการแสดงค่าหลังจากคีย์ข้อมูลเป็น 10,0000 ผมกำหนดค่าในTextBox1 ดังนี้
Private Sub TextBox1_AfterUpdate()
TextBox1.Value = format(TextBox1.Value, "#,##0.00")
End Sub
เกิดDebugแสดงผลผิดพลาดที่คำว่าformat ไม่ทราบว่าจะเขียนให้ถูกต้องอย่างไรครับ/ รบกวนอีกเรื่องครับความสัมพันธ์ของtxtBox-ImgBox
txtID = รับค่าจากเลขบัตรประชาชน
ImgCustom = แสดงผลรูปภาพ
....................................
lstCustom_Enter()
myPic = "D:\Data\"& txtID & ".jpg"
ImgCustom.Picture = LoadPicture(myPic)
End Sub
ปัญหาคือเมื่อไม่มีรูปภาพที่ชื่อเดียวกับtxtIDในแฟ้มที่กำหนดก็จะdebug ผมอยากสร้างรูปหนึ่งในลักษณะเป็นรูปหลัก ถ้าไม่มีรูปตามที่กำหนด(myPic) ก็ให้แสดงรูปหลักแทนพร้อมแสดงMsgBox"ลูกค้ารายนี้ยังไม่มีข้อมูลรูปภาพในฐานข้อมูล"
จะเขียนคำสั่งเพิ่มเติมอย่างไรได้ครับ รบกวนอาจารย์และพี่ๆผู้รู้ด้วยครับผม