Anh chị giúp em đánh STT với ạ

[tvl297]

Anh chị giúp em STT bằng VBA với a

 

[befaint]

Anh chị giúp em STT bằng VBA với a

Sub vidu()
Dim Arr(), i As Long, STT(), maxR As Long, t1 As Long, t2 As Long
With Sheet5
    maxR = .Range("H" & Rows.Count).End(xlUp).Row
    If maxR <= 3 Then Exit Sub
    Arr = .Range("D4:H" & maxR).Value
    maxR = UBound(Arr, 1)
    ReDim STT(1 To maxR, 1 To 1)
    For i = 1 To maxR
        If Arr(i, 1) <> "" Then
            t1 = t1 + 1
            STT(i, 1) = t1
            t2 = 0
            For j = i + 1 To maxR
                If Arr(j, 5) <> "" Then
                    t2 = t2 + 1
                    STT(j, 1) = "'" & t1 & "." & t2
                Else
                    Exit For
                End If
            Next j
        End If
    Next i
    .Range("A4").Resize(maxR, 1) = STT
End With
End Sub

 

[tvl297]

báo lỗi ko chạy được bạn à

 

[giaiphap]

báo lỗi ko chạy được bạn à

Sao tôi test thấy có lỗi gì đâu, chạy ngon lắm mà.

 

[tvl297]

Cảm ơn bạn chạy được rồi, nhưng khi xóa nội dung cột H đi chạy lại thì ko xóa stt cũ đi ạ. H6 xóa đi thì khi chạy H7 ko nổi stt nữa

 

[tvl297]

help

 

[chisinhvnn]

Cảm ơn bạn chạy được rồi, nhưng khi xóa nội dung cột H đi chạy lại thì ko xóa stt cũ đi ạ. H6 xóa đi thì khi chạy H7 ko nổi stt nữa

'H6 xóa đi thì H7 không đánh số thứ tự: Bạn bỏ dọng lệnh else /exit for xem thử.
'Xóa nội dung cột H đi nó không đánh stt thì đúng rồi. Bạn xem file của bạn, xác định cột nào chứa dữ liệu dài nhất thì thay vào đoạn này "maxR = .Range("H" & Rows.Count).End(xlUp).Row (thay chỗ chữ H đấy)

 

[vova2209]

Anh chị giúp em STT bằng VBA với a

Sài hàm cho nhanh ^^!
Hàm excell >> nhâpk
A4 =IF(COUNTA($C4:$H4)>=2;COUNT($C$4:$C4);IF(COUNTA($C4:$H4)>0;A3+0.1;""))
----------------------------------------
Code của bác Befaint llll chạy bon lắm >> nhâpk (2)

 

[tvl297]

Sài hàm cho nhanh ^^!
Hàm excell >> nhâpk
A4 =IF(COUNTA($C4:$H4)>=2;COUNT($C$4:$C4);IF(COUNTA($C4:$H4)>0;A3+0.1;""))
----------------------------------------
Code của bác Befaint llll chạy bon lắm >> nhâpk (2)

cảm ơn bạn mình cần dạng 1.1 chứ ko phải dạng 1,1 bạn à. mh muốn viết vba còn về công thức mh viết được rồi bạn à. thank

 

[tvl297]

'H6 xóa đi thì H7 không đánh số thứ tự: Bạn bỏ dọng lệnh else /exit for xem thử.
'Xóa nội dung cột H đi nó không đánh stt thì đúng rồi. Bạn xem file của bạn, xác định cột nào chứa dữ liệu dài nhất thì thay vào đoạn này "maxR = .Range("H" & Rows.Count).End(xlUp).Row (thay chỗ chữ H đấy)

thank bạn nhé

 

[vova2209]

cảm ơn bạn mình cần dạng 1.1 chứ ko phải dạng 1,1 bạn à. mh muốn viết vba còn về công thức mh viết được rồi bạn à. thank

VBA bác Befabt llll mình add sheet nhaapk (2) ý bài #8 đính kèm ở file rồi. còn định dạng 1.1 hay 1,1 là do cài đặt ở win hoặc vào excell trực tiếp chỉnh ở option là được bạn nhé

 

[chisinhvnn]

VBA bác Befabt llll mình add sheet nhaapk (2) ý bài #8 đính kèm ở file rồi. còn định dạng 1.1 hay 1,1 là do cài đặt ở win hoặc vào excell trực tiếp chỉnh ở option là được bạn nhé

Mình nghỉ chủ topic muốn định dạng kiêu 1.1 à. (nếu vậy là không phải theo cài đặt máy). Mà mình code ra kết quả đúng rồi mà