chọn vùng dữ liệu để đếm chữ hoăc số ?

[ongtrungducmx25]

có thể tạo một Form để chọn một vùng trong bảng tính, để đếm các số hoăc các chữ cái không mời các bạn tham khảo dùng?

 

[nvson]

Bác tham khảo code sau:

Option Explicit
Sub Chon_Vung_Number()
Application.ScreenUpdating = False
Dim rngNumber As Range
Dim rngNumber1 As Range
Dim rngNumber2 As Range
    'Chon vung co gia tri la Number
    Cells.SpecialCells(xlCellTypeConstants, 1).Select
    Set rngNumber1 = Selection
    
    'Chon vung ma ket qua cua Cong thuc la Number
    Cells.SpecialCells(xlCellTypeFormulas, 1).Select
    Set rngNumber2 = Selection
    
    Set rngNumber = Union(rngNumber1, rngNumber2)
    
    rngNumber.Select
Application.ScreenUpdating = True
End Sub
Sub Chon_Vung_Text()
Application.ScreenUpdating = False
Dim rngText As Range
Dim rngText1 As Range
Dim rngText2 As Range
    
    'Chon vung co gia tri la Text
    Cells.SpecialCells(xlCellTypeConstants, 2).Select
    Set rngText1 = Selection
    
    'Chon vung ma ket qua cua Cong thuc la Text
    Cells.SpecialCells(xlCellTypeFormulas, 2).Select
    Set rngText2 = Selection
    
    Set rngText = Union(rngText1, rngText2)
    rngText.Select
    
Application.ScreenUpdating = True
End Sub