Macro : อยากให้เรียง 1,2,3,.... โดยไม่เว้นบรรทัด

[wisitsakbenz]

เรียน อาจารย์ รบกวนสอบถามครับ

1.เวลา Save แล้วค่าลำดับจะเป็น 1,3,5 อยากให้เรียง 1,2,3,.... โดยไม่เว้นบรรทัด
2.อยากให้ค่าของ Checkbox เป็นเครื่องหมายถูก ได้หรือไม่ครับ

ต้องปรับ Code อย่างไรครับ ขอบคุณครับ

Code: Select all

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Sheets("Input").Range("C6").Value = "บัตรประชาชน"
End Sub

Private Sub CheckBox2_Click()
If CheckBox1.Value = True Then Sheets("Input").Range("C8").Value = "สำเนาทะเบียนบ้าน"
End Sub

Private Sub CheckBox3_Click()
If CheckBox1.Value = True Then Sheets("Input").Range("C10").Value = "สมุดบัญชีธนาคาร"
End Sub

Private Sub CommandButton1_Click()
Dim r As Integer
r = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Data").Cells(r + 1, 1).Value = r - 1
Sheets("Data").Cells(r + 1, 2).Value = Sheets("Input").Range("C4").Value
Sheets("Data").Cells(r + 1, 3).Value = Sheets("Input").Range("E4").Value
Sheets("Data").Cells(r + 1, 4).Value = Sheets("Input").Range("C6").Value
Sheets("Data").Cells(r + 1, 5).Value = Sheets("Input").Range("C8").Value
Sheets("Data").Cells(r + 1, 6).Value = Sheets("Input").Range("C10").Value


End Sub

[snasui]

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

Code: Select all

Private Sub CommandButton1_Click()
    Dim r As Integer
    With Sheets("Data")
        If .Range("a3").Value = "" Then
            r = 3
        Else
            r = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        End If
        .Cells(r, 1).Offset(0, 3).Resize(1, 3).Font.Name = "Wingdings 2"
        .Cells(r, 1).Value = Val(.Cells(Rows.Count, 1).End(xlUp)) + 1
        .Cells(r, 2).Value = Sheets("Input").Range("C4").Value
        .Cells(r, 3).Value = Sheets("Input").Range("E4").Value
        .Cells(r, 4).Value = IIf(Sheets("Input").OLEObjects("CheckBox1").Object.Value = True, "P", "")
        .Cells(r, 5).Value = IIf(Sheets("Input").OLEObjects("CheckBox2").Object.Value = True, "P", "")
        .Cells(r, 6).Value = IIf(Sheets("Input").OLEObjects("CheckBox3").Object.Value = True, "P", "")
    End With
End Sub

[wisitsakbenz]

เรียน อาจารย์ snasui

ได้แล้วครับ ขอบคุณมากครับ