รบกวนขอ Code VBA สำหรับกำหนด Format ครับ

[vichaim]

คือผมต้องการให้ Cell A1 เมื่อใดที่มีการคีย์ตัวเลข จะได้ผลกลับมาเป็นดังนี้ครับ
สมมุติว่าเราคีย์ที่ช่อง A1 เป็น 11 ผลที่ได้กลับมาจะต้องเป็น 9IN22000011

ผมเขียน Code แบบนี้แต่ไม่ได้อย่างที่คิดครับ รบกวนด้วยครับ ผมใช้คำสั่งอะไรผิดหรือเปล่า

หมายเหตุ A1 จะมีผลสืบเนื่องจาก B2 ถ้า
B2 = 1 จะใช้ Format 9IN22000000
B2 = 2 จะใช้ Format 4NI22000000
ตอนนี้พยายามทำให้ได้ Format ที่ถูกต้องการเดี่ยวค่อยสร้างเงื่อนไขอีกทีครับ ขอบคุณครับ

Code: Select all

   If Target.Column = 1 Then
         If Target.Offset(0, 0) <> "" Then
            Target.Offset(0, 0) = Format(Target.Offset(0, 0), ("9IN22000000"))
            Target.Offset(0, 1).Activate
        End If
    End If
 

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code...
If Target.Offset(0, 1).Value = 1 Then
    Target.Value = VBA.Format(Target.Value, """9IN22""000000")
Else
    Target.Value = VBA.Format(Target.Value, """4NI22""000000")
End If
'Other code...

[vichaim]

ขอบคุณครับ