Code VBA điền dữ liệu tự động ở cột J khi có dữ liệu cột C

[TrongNguyenBTC]

Ai giúp em code VBA điền dữ liệu tự động sao cho khi cột C có dữ liệu thì sẽ tự động điền 1 trong 2 mã là 1451 Hoặc 2317 trong cột J được không ạ ?
Với điều kiện tổng 1451 & 2317 bằng nhau như bảng tính ở Cột Q & R.
Ai giúp em với.

 

[huuquy1196]

Ai giúp em code VBA điền dữ liệu tự động sao cho khi cột C có dữ liệu thì sẽ tự động điền 1 trong 2 mã là 1451 Hoặc 2317 trong cột J được không ạ ?
Với điều kiện tổng 1451 & 2317 bằng nhau như bảng tính ở Cột Q & R.
Ai giúp em với.

mình chưa hiểu lắm. điều kiện để điền 1451 và 2317 là gì. khi nào thì 1451, khi nào thì 2317 ?

 

[TrongNguyenBTC]

mình chưa hiểu lắm. điều kiện để điền 1451 và 2317 là gì. khi nào thì 1451, khi nào thì 2317 ?

Không có điều kiện đâu ạ. Em chỉ cần cột C xuất hiện dữ liệu khác 0 thì Cột J sẽ tự động điền 1451 & 2317. Theo vòng lặp cứ 10 mã 1451 thì sẽ tự động điền mã 2317 và lặp lại ạ. Em cám ơn ạ.

 

[SA_DQ]

Bạn thử với cái ni đến khi chán nha:

Sub DienSoVoJKhiCotCCoTri()
 Dim J As Long, Rws As Long, W As Integer, Num As Integer
 Const Num1 As Integer = 1451:              Const Num2 As Integer = 2317

 Rws = [C65500].End(xlUp).Row:              Randomize
 J = 9 + 9 * Rnd() \ 1
 If J Mod 2 = 0 Then Num = Num1 Else Num = Num2
 For J = 3 To Rws
    If Cells(J, "C").Value <> "" Then
        W = W + 1
        If W > 10 Then
            If Num = Num1 Then Num = Num2 Else Num = Num1
            W = 1
        End If
        Cells(J, "J").Value = Num
    End If
 Next J
 MsgBox "GPE.COM Xin Chào!"
End Sub

 

[TrongNguyenBTC]

Bạn thử với cái ni đến khi chán nha:

Sub DienSoVoJKhiCotCCoTri()
Dim J As Long, Rws As Long, W As Integer, Num As Integer
Const Num1 As Integer = 1451:              Const Num2 As Integer = 2317

Rws = [C65500].End(xlUp).Row:              Randomize
J = 9 + 9 * Rnd() \ 1
If J Mod 2 = 0 Then Num = Num1 Else Num = Num2
For J = 3 To Rws
    If Cells(J, "C").Value <> "" Then
        W = W + 1
        If W > 10 Then
            If Num = Num1 Then Num = Num2 Else Num = Num1
            W = 1
        End If
        Cells(J, "J").Value = Num
    End If
Next J
MsgBox "GPE.COM Xin Chào!"
End Sub

Em cám ơn ạ. Để em thử ạ.