Snasui Excel Forum

Bafnet wrote:Private Sub TextBox1_AfterUpdate()
TextBox1.Value = format(TextBox1.Value, "#,##0.00")
End Sub

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

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

Bafnet wrote:เรื่องการแสดงรูปกรณี Err นั้นทำได้แล้วครับ แต่ต้องเขียนคำสั่งLoadPicture เพิ่มอีกหนึ่งคำสั่งครับ

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

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

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