Lập công thức điền số thứ tự tăng dần

[yome]

Chào các anh/chị GPE!
Em có 1 file này. Em nhờ anh/chị thiết lập công thức điền số TT tăng dần khi em chọn lọc nhé.

 

[dat_butmuc]

Chào các anh/chị GPE!
Em có 1 file này. Em nhờ anh/chị thiết lập công thức điền số TT tăng dần khi em chọn lọc nhé.

Dùng cái này tại A6 rồi fill xuống:
=IF(B6="","",COUNTIF($B$6:B6,">"""))

 

[ndu96081631]

Chào các anh/chị GPE!
Em có 1 file này. Em nhờ anh/chị thiết lập công thức điền số TT tăng dần khi em chọn lọc nhé.

Làm cho bạn "toàn tập" dùng VBA nhé... chẳng tí công thức nào!
Lưu ý: Công thức thì thà là công thức toàn bộ và ngược lại... dở dở ương ương chẳng hay ho tí nào

Private Sub worksheet_change(ByVal Target As Range)
  If Target.Address = "$C$1" Then
    Range("A6:F60000").ClearContents
    With Sheets("Data")
      With .Range(.[B3], .[B60000].End(xlUp)).Resize(, 6)
        .AutoFilter 1, Target
        Intersect(.Cells, .Offset(1, 1)).SpecialCells(12).Copy
        Range("B6").PasteSpecial 3
        .AutoFilter
      End With
    End With
    Target.Select
    With Range("A5").CurrentRegion
      If .Rows.Count > 1 Then
        Intersect(.Resize(, 1), .Offset(1)).Value = Evaluate("ROW(R:R)")
      End If
    End With
  End If
End Sub

 

[ndu96081631]

Cải tiến file này để có dòng TỔNG CỘNG ở cuối trang

Private Sub worksheet_change(ByVal Target As Range)
  Dim Tmp As String
  If Target.Address = "$C$1" Then
    Application.ScreenUpdating = False
    Range("A6:F60000").ClearContents
    Range("A6:F60000").Font.Bold = False
    With Sheets("Data")
      With .Range(.[B3], .[B60000].End(xlUp)).Resize(, 6)
        .AutoFilter 1, Target
        Intersect(.Cells, .Offset(1, 1)).SpecialCells(12).Copy
        Range("B6").PasteSpecial 3
        .AutoFilter
      End With
    End With
    Target.Select
    With Range("A5").CurrentRegion
      If .Rows.Count > 1 Then
        Tmp = .Resize(, 1).Offset(, 5).Address
        Intersect(.Resize(, 1), .Offset(1)).Value = Evaluate("ROW(R:R)")
        With .Resize(1).Offset(.Rows.Count)
          .Font.Bold = True
          .Cells(1, 2) = "C" & ChrW(7896) & "NG"
          .Cells(1, 6) = "=SUM(" & Tmp & ")"
        End With
      End If
    End With
    Application.ScreenUpdating = True
  End If
End Sub