Làm sao tính số dòng và số cột trong 1 vùng, ẩn Cột theo điều kiện

[congnguyen88]

1. làm sao tính số dòng và số cột cho 1 vùng

Sub tinh()
Dim I As Long, Y As Long
I = Range("A200:AZ500")....chấm cái gì để lấy tổng số dòng
y= Range("A200:AZ500")....chấm cái gì để lấy tổng số cột
End Sub

2. Làm sao For Next theo cột
Ví dụ cho 1 bảng tính như hình. Làm sao ẩn cái cột có giá trị là 1

Sub Andong()
Dim i As Long, rg As Range, a As Long, b As Long
rg = Range("b3:l3")
a= làm sao tính được cột đầu tiên của vùng  Range("b3:l3") là số 2
b= làm sao tính được cột cuối cùng của vùng  Range("b3:l3") là số 12
For i = a To b
    If Cells(3, i) = 1 Then
       Columns(i).Hidden = True
    End If
Next i
End Sub

Xin cảm ơn !

 

[PacificPR]

1. làm sao tính số dòng và số cột cho 1 vùng

Sub tinh()
Dim I As Long, Y As Long
I = Range("A200:AZ500")....chấm cái gì để lấy tổng số dòng
y= Range("A200:AZ500")....chấm cái gì để lấy tổng số cột
End Sub

2. Làm sao For Next theo cột
Ví dụ cho 1 bảng tính như hình. Làm sao ẩn cái cột có giá trị là 1
View attachment 234164

Sub Andong()
Dim i As Long, rg As Range, a As Long, b As Long
rg = Range("b3:l3")
a= làm sao tính được cột đầu tiên của vùng  Range("b3:l3") là số 2
b= làm sao tính được cột cuối cùng của vùng  Range("b3:l3") là số 12
For i = a To b
    If Cells(3, i) = 1 Then
       Columns(i).Hidden = True
    End If
Next i
End Sub

Xin cảm ơn !

Bạn này lại học VBA kiểu từ trên ngọn tụt xuống gốc rồi
Mới trưa viết Code mảng rầm rầm. Bây giờ lại hỏi cái này

Sub Test()
    Dim Rng As Range, Cll As Range
Set Rng = Range("B3:F16")
MsgBox Rng.Rows.Count
MsgBox Rng.Columns.Count
For Each Cll In Rng
    Cll.EntireRow.Select
    Cll.EntireColumn.Select
Next
End Sub

Bấm F8 xem nó chạy như thế nào

 

[congnguyen88]

Bạn này lại học VBA kiểu từ trên ngọn tụt xuống gốc rồi
Mới trưa viết Code mảng rầm rầm. Bây giờ lại hỏi cái này

Sub Test()
    Dim Rng As Range, Cll As Range
Set Rng = Range("B3:F16")
MsgBox Rng.Rows.Count
MsgBox Rng.Columns.Count
For Each Cll In Rng
    Cll.EntireRow.Select
    Cll.EntireColumn.Select
Next
End Sub

Bấm F8 xem nó chạy như thế nào

tại lúc chiều mình ổn định, giờ hiện tại đầu óc mình đang bị lỗi. chắc sáng mai mình cài lại win cái não mình thì nó mới được.

Thank you, teacher, for your beautiful avatar