การเก็บข้อมูล Text จากที่กล่องกาเครื่องหมาย

[liveday]

สวัสดีครับ อาจารย์ทุกท่าน

จะถามอาจารย์ทุกท่านเกี่ยวการเก็บข้อมูล Text จากที่กล่องกาเครื่องหมายครับ
เราจะต้องเก็บไว้ใน Database อย่างไรได้บ้างครับ

ขอบคุณครับ

[snasui]

การจะเก็บได้ก็ต้องตรวจสอบก่อนว่า Obect ใดมีการทำเครื่องหมายเอาไว้

การตรวจสอบการทำเครื่องหมายสามารถนำตัวอย่างสูตรด้านล่างไปใช้ได้ครับ

Code: Select all

If ActiveSheet.Shapes("Check Box 4").OLEFormat.Object.Value = 1 Then
    '...Your code
End If

[liveday]

การตรวจสอบการทำเครื่องหมายแล้วในขั้นตอนต่อไป เราจะแปลงเป็นข้อความเพื่อไปใส่ใน Database ได้อย่างไรครับ

[snasui]

หาบรรทัดล่าสุดที่ได้มีการวางข้อมูลแล้วนำไปวางยังตำแหน่งเซลล์ที่ต้องการครับ

[liveday]

อาจารย์ครับ ผมไม่แนใจว่าทำถูกหรือเปล่านะครับ แล้วในส่วน CheckBox4 กับ CheckBox5 เราสามารถติ้กแค่อันใดอันนึงได้ไหมครับอาจารย์ แบบว่า ถ้าเราติ้ก CheckBox4 แล้ว CheckBox5 จะติ้กไม่ได้ครับ

[snasui]

อาจารย์ครับ ผมไม่แนใจว่าทำถูกหรือเปล่านะครับ แล้วในส่วน CheckBox4 กับ CheckBox5 เราสามารถติ้กแค่อันใดอันนึงได้ไหมครับอาจารย์ แบบว่า ถ้าเราติ้ก CheckBox4 แล้ว CheckBox5 จะติ้กไม่ได้ครับ

กรณีต้องการให้เลือกได้แค่อันใดอันหนึ่งจะใช้ Option และครอบด้วย GroupBox และกำหนดเส้นขอบของ GroupBox ไม่ให้มองเห็นมาช่วยแทนการใช้ CheckBox ครับ

Option ที่อยู่ภายใต้ GroupBox เดียวกันจะได้เลือกได้เพียงอันใดอันหนึ่งครับ

[liveday]

เรียน อาจารย์
ผมได้ปรับ Code ไหม่ครับ โดยการสร้าง Userform แต่ยังไม่สามารถนำข้อความจาก OptionButton มาใส่ที่ Database ครับ
Private Sub OptionButton1_Click()
If ActiveSheet.Shapes("Option Button 1").OLEFormat.Object.Value = 1 Then
Sheets("Default").Range("Q1").Value = "µÃ§"
Else
Sheets("Default").Range("Q1").Value = ""
End If
End Sub
โค้ดนี้ผมเอาไปใส่แล้ว Error เลยไม่แน่ใจว่าต้องปรับโค้ดอย่างไรครับ

[snasui]

การวาง Code กรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบน ไม่ใช่ตามลักษณะของโพสต์ #7 ซึ่งเป็น Code แบบ Inline ซึ่งไว้สำหรับการอธิบายครับ

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

Code: Select all

Dim x As String
Dim y As String

Sub CommandButton3_Click()
    If Me.TextBox1.Value <> "" Then
        Dim irow As Long
        Dim ws As Worksheet
        Set ws = Worksheets("Database")
        Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
        'Find first empty row in database
        irow = ws.Cells(Rows.Count, 2) _
            .End(xlUp).Offset(1, 0).Row
       
        'Copy The Data To The Database
        ws.Cells(irow, 1).Value = Me.TextBox1.Value
        ws.Cells(irow, 2).Value = Me.TextBox2.Value
        ws.Cells(irow, 3).Value = Me.TextBox3.Value
        ws.Cells(irow, 4).Value = Me.TextBox4.Value
        ws.Cells(irow, 7).Value = Me.TextBox5.Value
        ws.Cells(irow, 5).Value = x
        ws.Cells(irow, 6).Value = y
        Me.TextBox1 = ""
        Me.TextBox2 = ""
        Me.TextBox3 = ""
        Me.TextBox4 = ""
        Me.TextBox5 = ""
        Me.OptionButton1 = ""
        Me.OptionButton2 = ""

    Else
        MsgBox "ÂѧäÁèä´éãÊè¢éÍÁÙÅ", vbCritical
    End If
    End Sub
    Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub OptionButton1_Click()
    x = OptionButton1.Caption
End Sub
Private Sub OptionButton2_Click()
     x = OptionButton2.Caption
End Sub
Private Sub OptionButton3_Click()
     x = OptionButton3.Caption
End Sub

Private Sub OptionButton4_Click()
    y = OptionButton4.Caption
End Sub

Private Sub OptionButton5_Click()
    y = OptionButton5.Caption
End Sub

Private Sub OptionButton6_Click()
    y = OptionButton6.Caption
End Sub

Private Sub OptionButton7_Click()
    y = OptionButton7.Caption
End Sub

[liveday]

อาจารย์ครับผมติดเรื่อง Date ไม่เรียงตาม Format ที่กำหนดครับ ที่ควรเป็น DD/MM/YYYY และวันที่จะปรับเปลี่ยนจาก พ.ศ ไปเป็น ค.ส.อย่างไรครับ ส่วนข้อมูลถ้าเราใส่แค่วันที่ ก็จะทำให้บันทึกในบรรทัดเดิมครับ จะแก้โค้ดได้อย่างไรครับ ขอบคุณครับ

[snasui]

ตามไฟล์แนบได้ปรับ Code ไว้อย่างไรและติดขัดบรรทัดใดช่วยโพสต์แจ้งมาด้วยพอสังเขปครับ

[liveday]

Code ที่ใช้

Code: Select all

ws.Cells(irow, 1).Value = Format(Me.TextBox1.Value, "DD/MM/YYYY")

ผลที่แสดงออกไปเป็น เดือน/วันที่/ปี
จะปรับยังไงให้เป็น วันที่/เดือน/ปี ครับ

[snasui]

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

Code: Select all

ws.Cells(irow, 1).Value = Application.Text(Me.TextBox1.Value, "DD/MM/YYYY")