Hỏi code để tự động điền "số thứ tự.n" (1 người xem)

[khoa289]

Chào mọi người.
Tôi hỏi code để tự động điền "Số thứ tư.1"-"Số thứ tư.2"-"Số thứ tư.3"-"Số thứ tư.4"
Hỏi: Làm sao để tự động điền sau "số thứ tự" cập nhật công việc" là "số thứ tự.1"; "số thứ tự.2"; "số thứ tự.3" ; "số thứ tự.4"
Hỏi code để tự động điền "số thứ tự.n" (Với n là số tư nhiên 1,2,3,4...)
Ví dụ
Ô 9 là 2.1
Ô 9 là 2.2
Ô 9 là 2.3
Ô 9 là 2.4
Tương tư như các ô khác sẽ tự động khi bấm tổ hợp phím: Ctrl+shift+N
Đính kèm file hỏi
Cám ơn.
PS: Đang học VBA nên đang học để biết nhiều hơn.

 

[giaiphap]

Chào mọi người.
Tôi hỏi code để tự động điền "Số thứ tư.1"-"Số thứ tư.2"-"Số thứ tư.3"-"Số thứ tư.4"
Hỏi: Làm sao để tự động điền sau "số thứ tự" cập nhật công việc" là "số thứ tự.1"; "số thứ tự.2"; "số thứ tự.3" ; "số thứ tự.4"
Hỏi code để tự động điền "số thứ tự.n" (Với n là số tư nhiên 1,2,3,4...)
Ví dụ
Ô 9 là 2.1
Ô 9 là 2.2
Ô 9 là 2.3
Ô 9 là 2.4
Tương tư như các ô khác sẽ tự động khi bấm tổ hợp phím: Ctrl+shift+N
Đính kèm file hỏi
Cám ơn.
PS: Đang học VBA nên đang học để biết nhiều hơn.

Bạn phải cho lý do khi nào nó mới điền là 1.1, 1.2, 1.3 (dựa vào chổ nào để nó không điền, chổ nào để nó điền) chứ nói vậy làm sao biết được. VD tại sao ô A9 thì điền 2.1, 2.2, 2.3 vậy ô A8 tại sao lại không điền 1. 5 vậy.

 

[SA_DQ]

Sub capnhatcongviec()
 Dim J As Long, Dm As Integer, W As Byte
 Dim fC As String, lC As String
 
 For J = 3 To [b9999].End(xlUp).Row
    fC = Left(Cells(J, "B").Value, 1)
    lC = Right(Cells(J, "B").Value, 1)
    If fC = "C" And lC = "c" Then
        Dm = Dm + 1:    Cells(J, "A").Value = Dm
        W = 0
    Else
        If Cells(J, "b").Value <> "" Then
            W = W + 1
            Cells(J, "A").Value = CStr(Dm) & "." & CStr(W)
        End If
    End If
 Next J
End Sub

 

[giaiphap]

Sub capnhatcongviec()
 Dim J As Long, Dm As Integer, W As Byte
 Dim fC As String, lC As String
 
 For J = 3 To [b9999].End(xlUp).Row
    fC = Left(Cells(J, "B").Value, 1)
    lC = Right(Cells(J, "B").Value, 1)
    If fC = "C" And lC = "c" Then
        Dm = Dm + 1:    Cells(J, "A").Value = Dm
        W = 0
    Else
        If Cells(J, "b").Value <> "" Then
            W = W + 1
            Cells(J, "A").Value = CStr(Dm) & "." & CStr(W)
        End If
    End If
 Next J
End Sub

Bác chuẩn bị trả lời tiếp câu thứ 2, thứ 3,... của chủ topic nửa nè.

 

[khoa289]

1. Cám ơn HYen17 và mọi người đã giúp đoạn code. Mình đã làm được đoạn code và chia sẽ với mọi người như sau:
Sub capnhatcongviec()
'
' capnhatcongviec Macro
'
' Keyboard Shortcut: Ctrl+Shift+N
Range("B" & ActiveCell.Row).Select
With ActiveCell
'1.Cap nhat cong viec
.FormulaR1C1 = "Cap nhat cong viec"
.Offset(1, 0).FormulaR1C1 = "Cong van den"
.Offset(2, 0).FormulaR1C1 = "Cong van di"
.Offset(3, 0).FormulaR1C1 = "Bien ban giao"
.Offset(4, 0).FormulaR1C1 = "Bien ban nhan"
.Offset(0, -1).FormulaR1C1 = "=Rounddown(MAX(R1C1:R[-1]C)+1,0)"
.Offset(1, -1).FormulaR1C1 = "=MAX(R1C1:R[-1]C)+0" & ".1"
.Offset(2, -1).FormulaR1C1 = "=MAX(R1C1:R[-1]C)+0" & ".1"
.Offset(3, -1).FormulaR1C1 = "=MAX(R1C1:R[-1]C)+0" & ".1"
.Offset(4, -1).FormulaR1C1 = "=MAX(R1C1:R[-1]C)+0" & ".1"
End With
End Sub