Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

ANUSARA · #11

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$E$8" Then
If Target = "Method 1" Then
Range("C11") = "**Please select data**"
Range("F15:H19") = 0
Else
Range("C11") = "**Please select data**"
Range("F15:H19").ClearContents
End If
End If
Application.EnableEvents = True
End Sub

จาก ตรงบรรทัด Range("F15:H19") = 0 คือเซลล์มีหลายคอลัมน์ จะต้องไม่ merge cell ใช่ไหมคะ
แต่ถ้าในแต่ละแถวมี cell ที่มีหลาย column และถูก merge กันอยู่ จะต้องเขียน code อย่างไรคะ

ANUSARA · #12

ต้องการกำหนด ให้เลือก Combo Box2 ได้เมื่อเลือก Method 2 และถ้าเลือก Method อื่นแล้ว Combo Box นี้จะถูกเลือกไม่ได้
และแสดงตัวเลือกเป็น Please click & select data ค้างไว้ค่ะ

และอยากกำหนดให้ เวลาใส่ค่า Custom จะต้องใส่ได้แต่ค่าตัวเลข จะต้องแก้ไขตรงไหนบ้างคะ
ขอบคุณค่ะ

snasui · #13

ANUSARA wrote:1. แต่ถ้าในแต่ละแถวมี cell ที่มีหลาย column และถูก merge กันอยู่ จะต้องเขียน code อย่างไรคะ
2. ต้องการกำหนด ให้เลือก Combo Box2 ได้เมื่อเลือก Method 2 และถ้าเลือก Method อื่นแล้ว Combo Box นี้จะถูกเลือกไม่ได้
และแสดงตัวเลือกเป็น Please click & select data ค้างไว้ค่ะ

ลองดู Code ด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Application.EnableEvents = False
    If Target.Address = "$E$8" Then
        If Target = "Method 1" Then
            Range("C11") = "**Please select data**"
            With ComboBox2
                .Text = "Please Click & Select Data"
                .ListFillRange = ""
                .ShowDropButtonWhen = fmShowDropButtonWhenNever
            End With
            For Each r In Range("F15:F19")
                If r.MergeCells Then
                    r = 0
                Else
                    r = 0
                End If
            Next r
        Else
            Range("C11") = "**Please select data**"
            With ComboBox2
                .ListFillRange = "M24:M28"
                .ShowDropButtonWhen = fmShowDropButtonWhenAlways
            End With
            For Each r In Range("F15:F19")
                If r.MergeCells Then
                    r = ""
                    Else
                    r.ClearContents
                End If
            Next r
        End If
    End If
  Application.EnableEvents = True
End Sub

และอยากกำหนดให้ เวลาใส่ค่า Custom จะต้องใส่ได้แต่ค่าตัวเลข จะต้องแก้ไขตรงไหนบ้างคะ
ขอบคุณค่ะ

ลองดูตัวอย่างการปรับ Code ด้านล่างครับ

Code: Select all

Private Sub ComboBox2_Change()
     If Range("xSourceEx") = "Custom" Then
            xsourceex = InputBox(Prompt:="Enter Custom Quality Please.", Title:="PLEASE ENTER CUSTOM QUALITY", Default:="")
            Range("xSourceEx") = xsourceex
            If Not IsNumeric(xsourceex) Then
                MsgBox "Please enter numeric."
                ComboBox2.Text = ""
                Exit Sub
            End If
            Range("xSourceEx").NumberFormat = "General "" (Custom)"""
    Else
'        Range("xSourceEx") = Range("xSourceEx")
        Range("xSourceEx").NumberFormat = "General"
    End If
End Sub

ANUSARA · #14

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False
If Target.Address = "$E$8" Then
If Target = "Method 1" Then
Range("C11") = "**Please select data**"
With ComboBox2
.Text = "Please Click & Select Data"
.ListFillRange = ""
.ShowDropButtonWhen = fmShowDropButtonWhenNever
End With
For Each r In Range("F15:F19")
If r.MergeCells Then
r = 0
Else
r = 0
End If
Next r
Else
Range("C11") = "**Please select data**"
With ComboBox2
.ListFillRange = "M24:M28"
.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End With
For Each r In Range("F15:F19")
If r.MergeCells Then
r = ""
Else
r.ClearContents
End If
Next r
End If
End If
Application.EnableEvents = True
End Sub

code นี้ได้ตามที่ต้องการค่ะ
แต่พอกด ตัวเลือก Method 1แล้ว combo box จะหายไปค่ะ แต่มันยังพิมพ์อะไรต่างๆ หรือลบคำว่า Please click & select data ออกไปได้ค่ะ
จะมีคำสั่ง lock ไว้ไม่ให้แก้ไขอะไรเพิ่มเติมได้มีไหมคะ
ลองใช้ Data vlidation แล้วกำหนดให้เซลล์นั้นขึ้นกับ Method 2 เหมือนกัยที่ทำกับ Cell ปกติดูแต่ก็ยังไม่ได้ค่ะ

รบกวนอีกครั้งนะคะ
Code อื่นที่แนะนำมาใช้ได้ตามที่ต้องการค่ะ
ขอบคุณค่ะ

snasui · #15

การ Disable Combo box ลองดู Code ตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Application.EnableEvents = False
    If Target.Address = "$E$8" Then
        If Target = "Method 1" Then
            Range("C11") = "**Please select data**"
            With ComboBox2
                .Text = "Please Click & Select Data"
                .Enabled = False
            End With
            For Each r In Range("F15:F19")
                If r.MergeCells Then
                    r = 0
                Else
                    r = 0
                End If
            Next r
        Else
            Range("C11") = "**Please select data**"
            With ComboBox2
                .Enabled = True
                .ListFillRange = "M24:M28"
            End With
            For Each r In Range("F15:F19")
                If r.MergeCells Then
                    r = ""
                    Else
                    r.ClearContents
                End If
            Next r
        End If
    End If
  Application.EnableEvents = True
End Sub

ANUSARA · #16

1 ลองเอา code มาวางแล้วค่ะ อย่างที่ต้องการคือเมื่อเลือก Method 1 แล้วcombobox 2 จะแก้ไขไม่ได้ค่ะ แต่เมื่อคลิกกลับมาเป็น Method 2 แล้ว combobox ไม่กลับมาให้เลือกรายการเหมือนเดิมได้ค่ะ

2 ถ้าเราให้ แสดงค่าจาก Combo box2 ที่ผู้ใช้เลือกไปแสดงผลใน Sheet2
แต่อยากให้แสดงค่าตามที่เลือกค่ะ เช่น 10, 20 , 50 หรืออื่นๆตามที่ผู้ใช้ใส่ค่ามา
แต่ถ้า Combo box นี้ไม่ถูกเลือก หรือถูกเลือกเป็น Please click & select data แล้ว
cell D5 ที่ Sheet2 ก็ให้แสดงค่าในช่องนั้นเป็นช่องว่างค่ะ

ขอบคุณค่ะ

snasui · #17

คุณ ANUSARA ลองปรับ Code เองมาให้ดูด้วยครับว่าได้พยายามปรับด้วยตัวเองแล้ว

ถ้าคุณเคยใช้ VBA ย่อมจะต้องปรับ Code มาได้บ้างครับ เพราะการเปลี่ยนแปลง Code ย่อมเกิดขึ้นได้ตลอดเวลาถ้าความต้องการเปลี่ยนแปลงไป

ANUSARA · #18

ลองแก้เป็นแบบนี้ สามารถแก้ไขได้แล้วค่ะ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.EnableEvents = False
If Target.Address = "$E$8" Then
If Target = "Method 1" Then
Range("C11") = "**Please select data**"
Range("F15:F19") = 0
With ComboBox2
.Text = "Please Click & Select Data"
.ListFillRange = ""
.ShowDropButtonWhen = fmShowDropButtonWhenNever
.Enabled = False
End With

Else
Range("C11") = "**Please select data**"
Range("F15:F19").ClearContents
With ComboBox2
.Enabled = True
.ListFillRange = "M24:M28"
.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End With

End If
End If
Application.EnableEvents = True
End Sub

แต่ปัญหาอันนี้ยังแก้ไม่ได้เลยค่ะ
# ถ้าเราให้ แสดงค่าจาก Combo box2 ที่ผู้ใช้เลือกไปแสดงผลใน Sheet2
แต่อยากให้แสดงค่าตามที่เลือกค่ะ เช่น 10, 20 , 50 หรืออื่นๆตามที่ผู้ใช้ใส่ค่ามา
แต่ถ้า Combo box นี้ไม่ถูกเลือก หรือถูกเลือกเป็น Please click & select data แล้ว
cell D5 ที่ Sheet2 ก็ให้แสดงค่าในช่องนั้นเป็นช่องว่างค่ะ

snasui · #19

จาก

ANUSARA wrote:1 ลองเอา code มาวางแล้วค่ะ อย่างที่ต้องการคือเมื่อเลือก Method 1 แล้วcombobox 2 จะแก้ไขไม่ได้ค่ะ แต่เมื่อคลิกกลับมาเป็น Method 2 แล้ว combobox ไม่กลับมาให้เลือกรายการเหมือนเดิมได้ค่ะ
...ขอบคุณค่ะ

ผมทดสอบแล้ว Code ที่ผมปรับไปให้ครั้งล่าสุดสามารถใช้ได้ไม่มีปัญหาครับ ทีุ่คุณปรับมาให้นั้นผมยังไม่ถือว่าปรับครับ อย่าเพิ่งเสียกำลังใจ

สำหรับ Code ที่ต้องการให้ปรับมาก็คือตรงนี้ครับ

ANUSARA wrote:....2 ถ้าเราให้ แสดงค่าจาก Combo box2 ที่ผู้ใช้เลือกไปแสดงผลใน Sheet2
แต่อยากให้แสดงค่าตามที่เลือกค่ะ เช่น 10, 20 , 50 หรืออื่นๆตามที่ผู้ใช้ใส่ค่ามา
แต่ถ้า Combo box นี้ไม่ถูกเลือก หรือถูกเลือกเป็น Please click & select data แล้ว
cell D5 ที่ Sheet2 ก็ให้แสดงค่าในช่องนั้นเป็นช่องว่างค่ะ

ตัวอย่าง Code เพื่อบันทึกค่าใน Combobox2 ไปยัง D5 ของ Sheet2 ตามด้านล่างครับ

Code: Select all

Private Sub ComboBox2_Change()
     If Range("xSourceEx") = "Custom" Then
            xsourceex = InputBox(Prompt:="Enter Custom Quality Please.", Title:="PLEASE ENTER CUSTOM QUALITY", Default:="")
            Range("xSourceEx") = xsourceex
            If Not IsNumeric(xsourceex) Then
                MsgBox "Please enter numeric."
                ComboBox2.Text = ""
                Exit Sub
            End If
            Range("xSourceEx").NumberFormat = "General "" (Custom)"""
    Else
'        Range("xSourceEx") = Range("xSourceEx")
        Range("xSourceEx").NumberFormat = "General"
    End If
    If IsNumeric(ComboBox2.Text) Then
        Worksheets("Sheet2").Range("D5") = ComboBox2.Text
    Else
        Worksheets("Sheet2").Range("D5") = ""
    End If
End Sub

ANUSARA · #20

1. ถ้าเปลี่ยนข้อมูลที่เลือกเป็นตัวหนังสือทั้งหมดไม่ใช่ตัวเลขแล้วต้องปรับ code อย่างไรคะ

เราให้ แสดงค่าจาก Combo box2 ที่ผู้ใช้เลือกไปแสดงผลใน Sheet2
แต่อยากให้แสดงค่าตามที่เลือกค่ะ เช่น closure,label, bottom หรืออื่นๆตามที่ผู้ใช้ใส่ค่ามา
แต่ถ้า Combo box นี้ไม่ถูกเลือก หรือถูกเลือกเป็น Please click & select data แล้ว
cell D5 ที่ Sheet2 ก็ให้แสดงค่าในช่องนั้นเป็นช่องว่างค่ะ

2. ตรง Msg ที่เคยขึ้นมาตอนพิมพ์ตัวอักษรแล้ว ขึ้นมาเตือนให้ใส่แต่ตัวเลข
แต่จะเปลี่ยนเป็นขึ้นมาเตือนให้ใส่เฉพาะตัวอักษร ไม่ให้ใส่ตัวเลข

ทั้ง 2 อย่างนี้ต้องปรับ code อย่างไรคะ
ลองเปลี่ยนจาก Numeric เป็น text ยังไม่ได้ค่ะ

ขอบคุณค่ะ

snasui · #21

ANUSARA wrote:1. ถ้าเปลี่ยนข้อมูลที่เลือกเป็นตัวหนังสือทั้งหมดไม่ใช่ตัวเลขแล้วต้องปรับ code อย่างไรคะ

เราให้ แสดงค่าจาก Combo box2 ที่ผู้ใช้เลือกไปแสดงผลใน Sheet2
แต่อยากให้แสดงค่าตามที่เลือกค่ะ เช่น closure,label, bottom หรืออื่นๆตามที่ผู้ใช้ใส่ค่ามา
แต่ถ้า Combo box นี้ไม่ถูกเลือก หรือถูกเลือกเป็น Please click & select data แล้ว
cell D5 ที่ Sheet2 ก็ให้แสดงค่าในช่องนั้นเป็นช่องว่างค่ะ

2. ตรง Msg ที่เคยขึ้นมาตอนพิมพ์ตัวอักษรแล้ว ขึ้นมาเตือนให้ใส่แต่ตัวเลข
แต่จะเปลี่ยนเป็นขึ้นมาเตือนให้ใส่เฉพาะตัวอักษร ไม่ให้ใส่ตัวเลข

ทั้ง 2 อย่างนี้ต้องปรับ code อย่างไรคะ
ลองเปลี่ยนจาก Numeric เป็น text ยังไม่ได้ค่ะ

ขอบคุณค่ะ

ขอตัวอย่าง Code ที่ลองปรับแล้วทุกข้อที่กล่าวมาด้วยครับ

ANUSARA · #22

ลองเปลี่ยนจากที่เป็น Numeric เป็น Text ค่ะ ไม่ทราบว่าทำได้ไหมคะถ้าต้องการให้เป็นตัวอักษร

Private Sub ComboBox2_Change()
If Range("xSourceEx") = "Custom" Then
xsourceex = InputBox(Prompt:="Enter Custom Quality Please.", Title:="PLEASE ENTER CUSTOM QUALITY", Default:="")
Range("xSourceEx") = xsourceex

If Not IsText(xsourceex) Then
MsgBox "Please enter text."
ComboBox2.Text = ""
Exit Sub
End If
Range("xSourceEx").NumberFormat = "General "" (Custom)"""
Else

' Range("xSourceEx") = Range("xSourceEx")
Range("xSourceEx").NumberFormat = "General"
End If

If IsText(ComboBox2.Text) Then
Worksheets("Sheet2").Range("D5") = ComboBox2.Text
Else
Worksheets("Sheet2").Range("D5") = ""
End If

End Sub

snasui · #23

จริง ๆ ที่ปรับมานั้นเกือบใช้ได้แล้วครับ ตรง If Not IsText.. สามารถเขียนเป็น If Not Application.Istext... ได้

ดูตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Private Sub ComboBox2_Change()
     If Range("xSourceEx") = "Custom" Then
            xsourceex = InputBox(Prompt:="Enter Custom Quality Please.", Title:="PLEASE ENTER CUSTOM QUALITY", Default:="")
            Range("xSourceEx") = xsourceex
            
            If IsNumeric(xsourceex) Then
                MsgBox "Please enter text."
                ComboBox2.Text = "Please click & select data"
                Exit Sub
            End If
            Range("xSourceEx").NumberFormat = "General "" (Custom)"""
    Else
    
'        Range("xSourceEx") = Range("xSourceEx")
        Range("xSourceEx").NumberFormat = "General"
    End If
    
    If Not IsNumeric(ComboBox2.Text) And ComboBox2.Text <> "Please click & select data" Then
        Worksheets("Sheet2").Range("D5") = ComboBox2.Text
    Else
        Worksheets("Sheet2").Range("D5") = ""
    End If
    
End Sub

ANUSARA · #24

ขอรบกวนอีกครั้งนะคะ จากที่เคยถามเรื่อง การให้แสดงค่า 0 ใน sheet2 เมื่อเลือก Please click & select data จาก sheet1 ค่ะ
แล้ว คุณSnasui ได้ให้ code ตามด้านล่างมาแล้ว ลองไปทำตามดู ผลที่ไ้คือ Range D5 ใน sheet2 มันกลายเป็นช่องว่างตลอดเลยไม่ว่าจะเลือกค่าใดจาก combobox2 ค่ะ ไม่ทราบว่าต้องปรับแก้ code อย่างไรคะ

ขอบคุณค่ะ

คำถามเก่าที่เคยถามค่ะ
ถ้าเราให้ แสดงค่าจาก Combo box2 ที่ผู้ใช้เลือกไปแสดงผลใน Sheet2
แต่อยากให้แสดงค่าตามที่เลือกค่ะ เช่น 10, 20 , 50 หรืออื่นๆตามที่ผู้ใช้ใส่ค่ามา
แต่ถ้า Combo box นี้ไม่ถูกเลือก หรือถูกเลือกเป็น Please click & select data แล้ว
cell D5 ที่ Sheet2 ก็ให้แสดงค่าในช่องนั้นเป็นช่องว่างค่ะ

ตัวอย่าง Code เพื่อบันทึกค่าใน Combobox2 ไปยัง D5 ของ Sheet2 ตามด้านล่างครับ

Code: Select all

Private Sub ComboBox2_Change()
     If Range("xSourceEx") = "Custom" Then
            xsourceex = InputBox(Prompt:="Enter Custom Quality Please.", Title:="PLEASE ENTER CUSTOM QUALITY", Default:="")
            Range("xSourceEx") = xsourceex
            If Not IsNumeric(xsourceex) Then
                MsgBox "Please enter numeric."
                ComboBox2.Text = ""
                Exit Sub
            End If
            Range("xSourceEx").NumberFormat = "General "" (Custom)"""
    Else
'        Range("xSourceEx") = Range("xSourceEx")
        Range("xSourceEx").NumberFormat = "General"
    End If
    If IsNumeric(ComboBox2.Text) Then
        Worksheets("Sheet2").Range("D5") = ComboBox2.Text
    Else
        Worksheets("Sheet2").Range("D5") = ""
    End If
End Sub

snasui · #25

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

Code: Select all

If Not IsNumeric(ComboBox2.Text) And ComboBox2.Text <> "Please click & select data" Then

ดูความเห็นก่อนหน้าความเห็นของคุณ

หากยังไม่ได้ลองส่งไฟล์ที่ได้ Update Code ที่ให้ไปล่าสุดมาให้ดูหน่อยครับ

ANUSARA · #26

ไฟล์ที่แนบมาเป็นอันที่ลองทำตาม code ที่ให้มาแล้วค่ะ
แต่พอคลิกเลือกให้เป็น Please click & Select data แล้ว ช่อง cell B2 ใน sheet2 ก็แสดงเป็นช่องว่างแล้วค่ะ แต่พอคลิกเลือก ให้เป็น 21 ค่าที่แสดงในช่อง cell B2 ใน sheet2 กลับไม่แสดงค่าด้วยค่ะ
แต่ถ้าใส่ค่าเองที่ custom ค่าจะไปแสดงที่ช่อง cell B2 ใน sheet2 ได้ค่ะ

ไม่ทราบว่าต้องแก้ code อย่างไรให้พอเลือกค่า 21 แล้วแสดงค่าที่ sheet2 ด้วยคะ

ขอบคุณค่ะ

snasui · #27

ลองเปลี่ยน Code เป็นตามด้านล่างครับ

Code: Select all

If IsNumeric(Val(ComboBox1.Text)) Then
       Worksheets("Sheet2").Range("xResult1") = ComboBox1.Text
   Else
      Worksheets("Sheet2").Range("xResult1") = ""
End If

ANUSARA · #28

ลองแก้ code แล้วค่ะ
ที่ต้องการคือเมื่อเลือก Please click & Select data แล้ว cell B2 ใน Sheet2 กลายเป็นช่องว่างค่ะ
แต่ถ้าเลือกตัวเลือกอื่น ทั้งเลือกค่า 21 หรือใส่ค่าเองจาก custom จะแสดงค่าใน sheet2 ตามค่าที่เลือกค่ะ

code ที่ได้ปรับแก้นั้น ยังทำให้แสดงค่าเมื่อเลืือก Please click & Select data อยู่ค่ะ
ไม่ทราบว่าแก้ตรงไหนผิดค่ะ

รบกวนอีกครั้งนะคะ
ขอบคุณค่ะ

snasui · #29

ปรับ Code ใหม่เป็นตามด้านล่างครับ

Code: Select all

If ComboBox1.Text <> "<--Please click & Select data-->" Then
       Worksheets("Sheet2").Range("xResult1") = ComboBox1.Text
   Else
      Worksheets("Sheet2").Range("xResult1") = ""
End If

หมายถึงค่า ComboBox1 ไม่เป็นค่า <--Please click & Select data--> แล้วให้ชีท 2 เซลล์ B2 เป็นค่านั้น ไม่เช่นนั้่นให้เป็นค่าว่าง

ANUSARA · #30

รบกวนช่วยดูไฟล์ที่แนบมานี้ค่ะ
ลองทำตาม code ที่ให้มาแล้วค่ะ ไม่ทราบว่าผิดตรงไหนค่ะ
แต่เมื่อเลือก Please click & Select data ค่ายังไปแสดงที่ Sheet2 อยู่ค่ะ อยากให้ไม่แสดงค่าค่ะ
แต่ถ้าเลือกอย่างอื่นก็ให่แสดงค่าค่ะ

ขอบคุณนะคะ

Snasui Excel Forum

File Anatomy Add-in: ตรวจสอบโครงสร้างไฟล์ Excel อย่างมืออาชีพ

Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel

Re: Code VBA ที่กำหนดให้ผู้ใช้ใส่ข้อมูลบน Excel