VBA Ẩn cột theo điều kiện (1 người xem)

MeThuongNho · 25/11/17

Dear Anh/Chị,
Giúp em cái code VBA ẩn cột giúp em.
1 code chung hoặc 2 code riêng cũng được.
Mục đích : muốn khi chạy code:
1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.
2. Sẽ hiện ra lại các cột từ C:BM (tất cả các cột)
Cám ơn mợi người giúp đỡ.

befaint · 25/11/17

MeThuongNho đã viết:
1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.
2. Sẽ hiện ra lại các cột từ C:BM (tất cả các cột)

Còn chữ nào trong đầu chưa viết ra thì mình viết hết ra đi...

MeThuongNho · 25/11/17

befaint đã viết:
Còn chữ nào trong đầu chưa viết ra thì mình viết hết ra đi...

Là sao befaint ,
Mình không hiểu ý bạn ?

giaiphap · 25/11/17

MeThuongNho đã viết:
Là sao befaint ,
Mình không hiểu ý bạn ?

Là còn trường hợp nào nửa không hay giúp xong lại phát sinh nửa?

PacificPR · 25/11/17

Em thấy cứ ngồi bấm nút nó cho nó ẩn, hiện cũng vui vui ...

PHP:

Sub An_hiencot()
    Dim Rng As Range, Rng1 As Range
Set Rng = Range("C4:BM4")
For Each Cll In Rng
    If Cll = Empty Then
        If Rng1 Is Nothing Then
            Set Rng1 = Cll
        Else
            Set Rng1 = Union(Rng1, Cll)
        End If
    End If
Next
Rng1.EntireColumn.Hidden = Not Rng1.EntireColumn.Hidden
End Sub

befaint · 25/11/17

MeThuongNho đã viết:
không hiểu ý ?

Nghĩa là tất cả =0 hay thằng nào =0 thì ẩn?

MeThuongNho · 25/11/17

befaint đã viết:
Nghĩa là tất cả =0 hay thằng nào =0 thì ẩn?

=0 thì sẽ ẩn,
Cám ơn befaint,
File ví dụ mình chạy được rồi.

ndu96081631 · 26/11/17

Nếu giải quyết bài này mà không dùng vòng lập thì sao?

NguyenNgocThuHien · 26/11/17

ndu96081631 đã viết:
Nếu giải quyết bài này mà không dùng vòng lập thì sao?

Dùng cái thuộc tính "ô đặc biệt" để tìm các ô rỗng.

ndu96081631 · 26/11/17

NguyenNgocThuHien đã viết:
Dùng cái thuộc tính "ô đặc biệt" để tìm các ô rỗng.

Chính xác là cái này nhưng giờ "nâng cấp độ khó" là: vùng chọn có chứa công thức, tức số 0 mà ta nhìn thấy là giá trị do công thức trả về
Vậy phải mần... răng?

NguyenNgocThuHien · 26/11/17

ndu96081631 đã viết:
Chính xác là cái này nhưng giờ "nâng cấp độ khó" là: vùng chọn có chứa công thức, tức số 0 mà ta nhìn thấy là giá trị do công thức trả về
Vậy phải mần... răng?

Không chơi kiểu dùng ô phụ?

MeThuongNho · 28/11/17

ndu96081631 đã viết:
Chính xác là cái này nhưng giờ "nâng cấp độ khó" là: vùng chọn có chứa công thức, tức số 0 mà ta nhìn thấy là giá trị do công thức trả về
Vậy phải mần... răng?

Mình không đưa về 0 mà đưa về 1 cái cụ thể "k" nào cũng được anh ndu96081631, sẽ khỏi vất vả cái code về rỗng or 0.
File của befaint em mà đk như này : OK rồi anh.

Mã:

1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.

-- 1. Nếu h em làm điều kiện =K thì code sao anh.
--2. Ngược lại nếu em muốn ẩn cột >0 thì code sửa lại như thế nào ah.
Trân trọng!

ndu96081631 · 28/11/17

MeThuongNho đã viết:
Mình không đưa về 0 mà đưa về 1 cái cụ thể "k" nào cũng được anh ndu96081631, sẽ khỏi vất vả cái code về rỗng or 0.
File của befaint em mà đk như này : OK rồi anh.

Mã:

1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.

-- 1. Nếu h em làm điều kiện =K thì code sao anh.
--2. Ngược lại nếu em muốn ẩn cột >0 thì code sửa lại như thế nào ah.
Trân trọng!

Code bạn có rồi, chỉ sửa lại điều kiện trong phát biểu IF thôi mà

Do Nam Trung · 2/12/17

PacificPR đã viết:
Em thấy cứ ngồi bấm nút nó cho nó ẩn, hiện cũng vui vui ...

PHP:

Sub An_hiencot() Dim Rng As Range, Rng1 As Range Set Rng = Range("C4:BM4") For Each Cll In Rng If Cll = Empty Then If Rng1 Is Nothing Then Set Rng1 = Cll Else Set Rng1 = Union(Rng1, Cll) End If End If Next Rng1.EntireColumn.Hidden = Not Rng1.EntireColumn.Hidden End Sub

Code chạy Ok ,Trong trường hợp Chen nó vào CommandButton thì phải sửa lại như thế nào,để nút CommandButton hiện nên chữ AN và HIEN....?

PacificPR · 2/12/17

Do Nam Trung đã viết:
Code chạy Ok ,Trong trường hợp Chen nó vào CommandButton thì phải sửa lại như thế nào,để nút CommandButton hiện nên chữ AN và HIEN....?

Code ở Bài 6 đó bạn

maiban116 · 5/1/18

em có 1 file mà không biết cách tạo code ẩn cột có khoảng trắng nhờ các bác hướng dẫn hay tạo hộ em cái code ẩn cột rỗng . em gửi file lên nhờ các bác xem dùm. em xin cảm ơn

MeThuongNho · 5/1/18

maiban116 đã viết:
em có 1 file mà không biết cách tạo code ẩn cột có khoảng trắng nhờ các bác hướng dẫn hay tạo hộ em cái code ẩn cột rỗng . em gửi file lên nhờ các bác xem dùm. em xin cảm ơn

Sử dụng code bài #.6 được mà bạn.
File mình không ẩn cột A(thấy fill đỏ nên mình để lại), bạn xem file nha.

maiban116 · 10/1/18

MeThuongNho đã viết:
Sử dụng code bài #.6 được mà bạn.
File mình không ẩn cột A(thấy fill đỏ nên mình để lại), bạn xem file nha.

Cám ơn bạn rất nhiều file bạn gửi đãđáp ứng đúng yêu cầu của mình

maiban1986 · 11/1/18

MeThuongNho đã viết:
Sử dụng code bài #.6 được mà bạn.
File mình không ẩn cột A(thấy fill đỏ nên mình để lại), bạn xem file nha.

xin hỏi bác chỉ dẫn hộ em làm với các sheet khác thì làm như thế nào ạ

maiban1986 · 11/1/18

MeThuongNho đã viết:
Sử dụng code bài #.6 được mà bạn.
File mình không ẩn cột A(thấy fill đỏ nên mình để lại), bạn xem file nha.

xin bạn hướng dẫn làm với các sheet khác

MeThuongNho · 11/1/18

maiban1986 đã viết:
xin bạn hướng dẫn làm với các sheet khác

Sheet đang làm: Khu vực hiển thị là sheet 3: code
2 Code trong Modules như sau:

Mã:

Sub HideColumns()
    Dim Rng As Range, Cll As Range, i As Long
    For Each Cll In Sheet3.Range("B3:HG3")
        If Cll.Value = 0 Or Len(Cll.Value) = 0 Then
            i = i + 1
            If i = 1 Then
                Set Rng = Cll
            Else
                Set Rng = Union(Rng, Cll)
            End If
        End If
    Next Cll
Rng.EntireColumn.Hidden = True
End Sub

Sub ShowColumns()
    Sheet3.Range("B3:HG3").EntireColumn.Hidden = False
End Sub

Rồi trong sheet 3 đó bạn gán cán code này cho CommandButton , Code sau:

Mã:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "Show" Then
        Call ShowColumns
        CommandButton1.Caption = "Hide"
    Else
        Call HideColumns
        CommandButton1.Caption = "Show"
    End If
    Application.ScreenUpdating = True
End Sub

Làm tương tự cho sheet bạn muốn làm nha.
Thân!

maiban1986 · 11/1/18

MeThuongNho đã viết:

Sheet đang làm: Khu vực hiển thị là sheet 3: code
2 Code trong Modules như sau:

Mã:

Sub HideColumns()
    Dim Rng As Range, Cll As Range, i As Long
    For Each Cll In Sheet3.Range("B3:HG3")
        If Cll.Value = 0 Or Len(Cll.Value) = 0 Then
            i = i + 1
            If i = 1 Then
                Set Rng = Cll
            Else
                Set Rng = Union(Rng, Cll)
            End If
        End If
    Next Cll
Rng.EntireColumn.Hidden = True
End Sub

Sub ShowColumns()
    Sheet3.Range("B3:HG3").EntireColumn.Hidden = False
End Sub

Rồi trong sheet 3 đó bạn gán cán code này cho CommandButton , Code sau:

Mã:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "Show" Then
        Call ShowColumns
        CommandButton1.Caption = "Hide"
    Else
        Call HideColumns
        CommandButton1.Caption = "Show"
    End If
    Application.ScreenUpdating = True
End Sub

Làm tương tự cho sheet bạn muốn làm nha.
Thân!

xin bạn hướng dẫn tạo lút lệnh

MeThuongNho · 11/1/18

maiban1986 đã viết:
xin bạn hướng dẫn tạo lút lệnh

Vào tab : Developer ( nếu không thấy tab này : searh google và mở ra: key: " mở thẻ Developer" chẳng hạn)
--> chọn Insert --> Chọn Commnand Button. ( đó là nút lệnh bạn cần).

maiban1986 · 11/1/18

MeThuongNho đã viết:
Vào tab : Developer ( nếu không thấy tab này : searh google và mở ra: key: " mở thẻ Developer" chẳng hạn)
--> chọn Insert --> Chọn Commnand Button. ( đó là nút lệnh bạn cần).

mình làm được rồi nhưng không thể gán 2 show và hide cùng 1 lúc vào lút lệnh được mong bạn hướng dẫn. xin cảm ơn

MeThuongNho · 11/1/18

Bạn gán cái code này vào Command Button đã tạo đó:

Mã:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "Show" Then
        Call ShowColumns
        CommandButton1.Caption = "Hide"
    Else
        Call HideColumns
        CommandButton1.Caption = "Show"
    End If
    Application.ScreenUpdating = True
End Sub

maiban1986 · 11/1/18

nhờ bạn gán hộ mình vào sheet9 với cảm ơn bạn

MeThuongNho · 11/1/18

maiban1986 đã viết:
nhờ bạn gán hộ mình vào sheet9 với cảm ơn bạn

Upfile lên đi

maiban1986 · 11/1/18

MeThuongNho đã viết:
Upfile lên đi

xin gửi bạn

maiban1986 · 11/1/18

MeThuongNho đã viết:
Upfile lên đi

nếu được xin bạn cái video bạn làm thì hay quá vì mù tịt code. xin cảm ơn

MeThuongNho · 11/1/18

maiban1986 đã viết:
nếu được xin bạn cái video bạn làm thì hay quá vì mù tịt code. xin cảm ơn

Rảnh mình làm gửi sau nha.
Còn đây là file

maiban1986 · 11/1/18

MeThuongNho đã viết:
Rảnh mình làm gửi sau nha.
Còn đây là file

cảm ơn bạn đã giúp đỡ nhưng tạo lút lệnh mình không làm như bạn được

maiban1986 · 11/1/18

Cho xin file bạn ơi. Cảm ơn nhiều

maiban1986 · 12/1/18

MeThuongNho đã viết:
Rảnh mình làm gửi sau nha.
Còn đây là file

cho cho mình xin cái video tạo lút lệnh của bạn làm. mình làm mãi mà không được

NguyenNgocThuHien · 12/1/18

maiban1986 đã viết:
cho cho mình xin cái video tạo lút lệnh của bạn làm. mình làm mãi mà không được

Tự google đi bạn, cái này dễ mà. google

https://caprovn.wordpress.com/2015/03/02/tao-lenh-in-bang-macro-trong-excel/

Mình lại khuyên dùng shape thay nút bấm do áp dụng trên nhiều sheet ( nhưng phải code lại)

maiban1986 · 12/1/18

NguyenNgocThuHien đã viết:
Tự google đi bạn, cái này dễ mà. google

https://caprovn.wordpress.com/2015/03/02/tao-lenh-in-bang-macro-trong-excel/

Mình lại khuyên dùng shape thay nút bấm do áp dụng trên nhiều sheet ( nhưng phải code lại)

bạn ơi code kế tiếp của code này là gì vậy:
Sub HideFour()
Dim Rng As Range, Cll As Range, i As Long
For Each Cll In Sheet9.Range("B3:HG3")
If Cll.Value = 0 Or Len(Cll.Value) = 0 Then
i = i + 1
If i = 1 Then
Set Rng = Cll
Else
Set Rng = Union(Rng, Cll)
End If
End If
Next Cll
Rng.EntireColumn.Hidden = True
End Sub
Sub ShowFour()
Sheet9.Range("B3:HG3").EntireColumn.Hidden = False
End Sub
làm sao phải thay các chữ màu xanh chỉ cho mình với. xin cảm ơn bạn

MeThuongNho · 12/1/18

Cái chỗ màu xanh đó tên j cũng đc: nhưng k dc thiếu chữ Sub và dấu () sau tên code:
- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo

Mã:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "Show" Then
        Call ShowTVG
        CommandButton1.Caption = "Hide"
    Else
        Call HideTVG
        CommandButton1.Caption = "Show"
    End If
    Application.ScreenUpdating = True
End Sub

maiban1986 · 12/1/18

MeThuongNho đã viết:
Cái chỗ màu xanh đó tên j cũng đc: nhưng k dc thiếu chữ Sub và dấu () sau tên code:
- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo

Mã:

Private Sub CommandButton1_Click() Application.ScreenUpdating = False If CommandButton1.Caption = "Show" Then Call ShowTVG CommandButton1.Caption = "Hide" Else Call HideTVG CommandButton1.Caption = "Show" End If Application.ScreenUpdating = True End Sub

Sao mình thay như vậy để áp dụng với các sheet khác lại không được nhỉ bạn. xin hướng dẫn mình với

maiban1986 · 12/1/18

MeThuongNho đã viết:
Cái chỗ màu xanh đó tên j cũng đc: nhưng k dc thiếu chữ Sub và dấu () sau tên code:
- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo

Mã:

Private Sub CommandButton1_Click() Application.ScreenUpdating = False If CommandButton1.Caption = "Show" Then Call ShowTVG CommandButton1.Caption = "Hide" Else Call HideTVG CommandButton1.Caption = "Show" End If Application.ScreenUpdating = True End Sub

cho mình hỏi muốn dùng code cho các sheet khác chỉ càn thay đổi Sub Hide......() và Show......() là được đúng không bạn

MeThuongNho · 12/1/18

maiban1986 đã viết:
cho mình hỏi muốn dùng code cho các sheet khác chỉ càn thay đổi Sub Hide......() và Show......() là được đúng không bạn

Mã:

- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo
Code:
Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   If CommandButton1.Caption = "Show" Then
       Call ShowTVG
       CommandButton1.Caption = "Hide"
   Else
       Call HideTVG
       CommandButton1.Caption = "Show"
   End If
   Application.ScreenUpdating = True
End Sub

MeThuongNho · 12/1/18

-- 1 sheet cần 2 code Module đó là Show và Hide
-- và trong sheet đó cần code này: mình đã lặp lại mấy lần rồi.

Mã:

Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   If CommandButton1.Caption = "Show" Then
       Call ShowTVG
       CommandButton1.Caption = "Hide"
   Else
       Call HideTVG
       CommandButton1.Caption = "Show"
   End If
   Application.ScreenUpdating = True
End Sub

Code này chỉnh sửa tên theo 2 cái tên mình tùy đặt, mình đã ví dụ ak.

maiban1986 · 12/1/18

MeThuongNho đã viết:

Mã:

- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo
Code:
Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   If CommandButton1.Caption = "Show" Then
       Call ShowTVG
       CommandButton1.Caption = "Hide"
   Else
       Call HideTVG
       CommandButton1.Caption = "Show"
   End If
   Application.ScreenUpdating = True
End Sub

sao mình làm như bạn hương dẫn sao vẫn báo sai là sao hả bạn. xin bạn chỉ dẫn

MeThuongNho · 12/1/18

Bạn gửi file lên coi, mình xem lại bạn đang gán code vào đâu

maiban1986 · 12/1/18

MeThuongNho đã viết:
Bạn gửi file lên coi, mình xem lại bạn đang gán code vào đâu

xin cảm ơn bạn mình đã làm được rồi. nhưng có điều xin hỏi bạn cái lút lệnh của bạn lúc in ra lại không có. nhưng lút lệnh mình tạo in ra lại có. bạn làm cách nào vậy xin chỉ dẫn

MeThuongNho · 13/1/18

Click chuột phải cái Command button đó
Chọn tiếp Format Control
Qua tab: Properties: bỏ chọn: "Print Object" đi.
Chúc thành công.

huyensim19 · 18/12/23

hii. Mình đang tập viết VBA mọi người chỉ mình cái này với. chỉ ẩn được hàn mà không hiện được hàng trong exel.
code:
Private Sub CommandButton1_Click()
Dim Check As Boolean
Check = (CommandButton1.Caption = "AN HANG")
CommandButton1.Caption = IIf(Check, "HIEN HANG", "AN HANG")
Dim ws As Worksheet
Set ws = ActiveSheet
For i = 2 To 25
If ws.Cells(i, 1).Value = "0" Then
ws.Rows(i & ":" & i).EntireRow.Hidden = True
Else
ws.Rows(i & ":" & i).EntireRow.Hidden = False
End If
Next
End Sub

TongDe · 19/12/23

huyensim19 đã viết:
chỉ ẩn được hàn mà không hiện được hàng

Cho hiện lại mọi hàng trước khi chạy vòng lặp

Mã:

Set...
Range("a2:a25").EntireRow.Hidden=False[
for...

huyensim19 · 19/12/23

TongDe đã viết:
Cho hiện lại mọi hàng trước khi chạy vòng lặp

Mã:

Set... Range("a2:a25").EntireRow.Hidden=False[ for...

Thanks tối qua ngồi mò ra được rồi.

HeSanbi · 19/12/23

@huyensim19 có hàm ẩn dòng tự động được không bạn?

Hàm UDF Tự động ẩn dòng với một hoặc nhiều điều kiện

HÀM TỰ ĐỘNG ẨN DÒNG VỚI MỘT HOẶC NHIỀU ĐIỀU KIỆN với S_AutoHide Hướng dẫn sử dụng hàm: Hàm: =S_AutoHide(Title,Target,Cells,Conditions,OrdersRange,CreateButtonShowing) Tham số : Vị trí Tham số Kiểu Optional Diễn giải 1 Title Chuỗi Rỗng Chuỗi trả về cho Ô nhập công thức...

www.giaiphapexcel.com

phuongga1234 · 22/1/24

befaint đã viết:
Nghĩa là tất cả =0 hay thằng nào =0 thì ẩn?

Cho e hỏi nếu tất cả bằng 0 mới ẩn thì sửa code như nào ạ

Hoàng Tuấn 868 · 22/1/24

phuongga1234 đã viết:
Cho e hỏi nếu tất cả bằng 0 mới ẩn thì sửa code như nào ạ

Đầu tiên là sửa từ viết tắt trước. Tiếp theo là gửi file lên và nêu kết quả mong muốn.

phuongga1234 · 22/1/24

Hoàng Tuấn 868 đã viết:
Đầu tiên là sửa từ viết tắt trước. Tiếp theo là gửi file lên và nêu kết quả mong muốn.

Sub An_hiencot()
Dim Rng As Range, Rng1 As Range
Set Rng = Range("C4:BM4")
For Each Cll In Rng
If Cll = Empty Then
If Rng1 Is Nothing Then
Set Rng1 = Cll
Else
Set Rng1 = Union(Rng1, Cll)
End If
End If
Next
Rng1.EntireColumn.Hidden = Not Rng1.EntireColumn.Hidden
End Sub

Em cần ẩn cột B như file này ạ
Em thử code này sẽ ẩn luôn cột A ạ
Nhờ các anh giúp dùm
Em cám ơn!

Hoàng Tuấn 868 · 22/1/24

phuongga1234 đã viết:
Em cần ẩn cột B như file này ạ

Chẳng biết có đúng ý không.

phuongga1234 · 23/1/24

Hoàng Tuấn 868 đã viết:
Chẳng biết có đúng ý không.

Hoàng Tuấn 868 đã viết:

Chẳng biết có đúng ý không.

Nhấp chuột vào đây để mở rộng...

Code này chạy đúng ý em rồi ạ

Hoàng Tuấn 868 đã viết:
Chẳng biết có đúng ý không.

Code này đúng rồi ạ Em cám ơn nhiều
Mà mình có thể để ẩn, hiện file chung 1 nút shapes được không ạ

Hoàng Tuấn 868 · 23/1/24

phuongga1234 đã viết:
Mà mình có thể để ẩn, hiện file chung 1 nút shapes dc ko ạ

Chung một nút được, nhưng bạn sửa mấy từ viết tắt đi đã. Mà sao lại ẩn hiện file là thế nào nhỉ.

phuongga1234 · 23/1/24

Hoàng Tuấn 868 đã viết:
Chung một nút được, nhưng bạn sửa mấy từ viết tắt đi đã. Mà sao lại ẩn hiện file là thế nào nhỉ.

File mình làm có nhiều cột nên muốn cột nào không có dữ liệu ẩn cho gọn để gởi hình báo cáo qua zalo á
Làm giúp cái này nữa nha
Cám ơn nhiều ạ

Hoàng Tuấn 868 · 23/1/24

phuongga1234 đã viết:
Mà mình có thể để ẩn, hiện file chung 1 nút shapes dc ko ạ

phuongga1234 đã viết:
Viết tắt là sao bạn ko hiểu luôn á

Mấy từ màu đỏ đó bạn.

phuongga1234 · 23/1/24

Hoàng Tuấn 868 đã viết:
Mấy từ màu đỏ đó bạn.

À à hiểu rồi nè

Hoàng Tuấn 868 · 23/1/24

phuongga1234 đã viết:
À à hiểu rồi nè

phuongga1234 đã viết:
Làm giúp cái này nữa nha

Khi nào bạn sửa xong mình sẽ làm cho.

Hoàng Tuấn 868 · 23/1/24

phuongga1234 đã viết:
À à hiểu rồi nè

Của bạn đây nhé. Nếu nhiều cột hơn thì phải đưa file có định dạng chuẩn để chỉnh code cho phù hợp, đỡ phải sửa đi sửa lại nhiều lần.

phuongga1234 · 23/1/24

Hoàng Tuấn 868 đã viết:
Của bạn đây nhé. Nếu nhiều cột hơn thì phải đưa file có định dạng chuẩn để chỉnh code cho phù hợp, đỡ phải sửa đi sửa lại nhiều lần.

Cám ơn bạn nhiều
File mình chỉnh lại có gì còn hỏi thêm nè

Hoàng Tuấn 868 · 23/1/24

phuongga1234 đã viết:
nè

Có thấy file nào đâu mà "nè" nhỉ.

phuongga1234 · 23/1/24

Hoàng Tuấn 868 đã viết:
Có thấy file nào đâu mà "nè" nhỉ.

Mò nãy giờ mới làm xong
mà tình hình là nếu mình thêm hoặc bớt dòng là code không chạy
Không biết mình sai chỗ nào
bạn có thể xem giúp được không ạ

Hoàng Tuấn 868 · 23/1/24

phuongga1234 đã viết:
mà tình hình là nếu mình thêm hoặc bớt dòng là code không chạy

Biết ngay là file đầu không giống file thật mà, để xem xem thế nào rồi điều chỉnh.
Dòng tổng cộng cuối tại cột AJ thì nên dùng SUMIF chứ không nên đi cộng từng ô một như vậy.
Bạn chạy thử xem thế nào.

phuongga1234 · 24/1/24

Hoàng Tuấn 868 đã viết:
Biết ngay là file đầu không giống file thật mà, để xem xem thế nào rồi điều chỉnh.
Dòng tổng cộng cuối tại cột AJ thì nên dùng SUMIF chứ không nên đi cộng từng ô một như vậy.
Bạn chạy thử xem thế nào.

Code chạy được rồi ạ
Cám ơn bạn nhiều giúp nhiệt tình quá

Hoàng Tuấn 868 · 24/1/24

phuongga1234 đã viết:
Code chạy được rồi ạ

Phần cột TOTAL cũng nên cho tự động nốt thì đỡ phải cộng thủ công từng đoạn mấy dòng một như hiện tại.

phuongga1234 · 24/1/24

Hoàng Tuấn 868 đã viết:
Phần cột TOTAL cũng nên cho tự động nốt thì đỡ phải cộng thủ công từng đoạn mấy dòng một như hiện tại.

Phần total mình có sum mà tự động là sao bạn
Còn cái G.Total thấy file này đơn giản mà khi chèn hoặc bớt dòng không thấy ảnh hưởng nên thôi

Hoàng Tuấn 868 · 24/1/24

phuongga1234 đã viết:
đơn giản mà

Theo mình thấy file của bạn toàn làm thủ công, nhưng với quan điểm "đơn giản mà" như vậy thì mình không ý kiến gì thêm.

phuongga1234 · 24/1/24

Hoàng Tuấn 868 đã viết:
Theo mình thấy file của bạn toàn làm thủ công, nhưng với quan điểm "đơn giản mà" như vậy thì mình không ý kiến gì thêm.

Thật sự trình gà như mình cũng không biết tự động thêm như nào

Hoàng Tuấn 868 · 24/1/24

phuongga1234 đã viết:
không biết tự động thêm như nào

Tức là bạn chỉ cần nhập dữ liệu là sẽ tự động cộng tổng các dòng Total (kể cả thêm dòng cũng không cần kéo lại công thức) và dòng G.TOTAL

VBA Ẩn cột theo điều kiện (1 người xem)

Người dùng đang xem chủ đề này

Thành viên thường trực

File đính kèm

|||||||||||||

Thành viên thường trực

==(^o^)==

Thành viên mới

|||||||||||||

File đính kèm

Thành viên thường trực

Huyền thoại GPE

Cute Black Cat

Huyền thoại GPE

Cute Black Cat

Thành viên thường trực

Huyền thoại GPE

Thành viên mới

Thành viên mới

Thành viên thường trực

File đính kèm

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Cute Black Cat

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên mới

Thành viên tiêu biểu

Thành viên mới

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên mới

Đăng ký hôm qua

Thành viên mới

File đính kèm

Đăng ký hôm qua

File đính kèm

Thành viên mới

Đăng ký hôm qua

Thành viên mới

Đăng ký hôm qua

Thành viên mới

Đăng ký hôm qua

Đăng ký hôm qua

File đính kèm

Thành viên mới

Đăng ký hôm qua

Thành viên mới

File đính kèm

Đăng ký hôm qua

File đính kèm

Thành viên mới

Đăng ký hôm qua

Thành viên mới