Xin chỉ dùm code để ẩn cột

[tranthichucloan]

Mình đang có 1 sheet , vui lòng chỉ dùm code ẩn và hiện 01 cột nào đo trong sheet này.

 

[cadafi]

Mình đang có 1 sheet , vui lòng chỉ dùm code ẩn và hiện 01 cột nào đo trong sheet này.

Chà bạn,
Đơn thuần, nếu bạn chỉ muốn ẩn/hiện một cột thì không cần viết code làm chi. Có hai cách cơ bản sau:
1. Chọn cột cần ẩn, ấn Ctrl + 0 (số 0/dấu ")" trên bàn phím) --> muốn hiện lại thì Ctrl + A, sau đó Alt+O, C, U
2. Sử dụng Group and Outline (vào Menu/Data/Group and Outline)

Còn nếu bạn vẫn muốn viết code thì hãy record lại macro các thao tác bạn vừa làm bên trên, sau đó ấn Alt+F11 để xem excel viết code như thế nào nhé! Mình nghĩ cũng không khó hiểu lắm đâu!

Chúc bạn thành công!

 

[BNTT]

Chà bạn,
Đơn thuần, nếu bạn chỉ muốn ẩn/hiện một cột thì không cần viết code làm chi. Có hai cách cơ bản sau:
1. Chọn cột cần ẩn, ấn Ctrl + 0 (số 0/dấu ")" trên bàn phím) --> muốn hiện lại thì Ctrl + A, sau đó Alt+O, C, U...

Nên phân biệt Ctrl+0 và Ctrl+) (một cái không có Shift, một cái có Shift)

Nếu đã biết cách dùng Ctrl+0 để ẩn cột, tại sao không dùng Ctrl+) [Ctrl+Shift+0] để cho nó hiện lại?

Khi bạn đang đứng ở một cột, ví dụ đang đứng ở K6, nhấn Ctrl+0 sẽ ẩn cột K, và nếu như ngay lập tức, nhấn Ctrl+), thì cột K sẽ hiện ra lại.

Trong trường hợp không "nhấn ngay lập tức", thì chỉ cần đứng tại một ô của cột J rồi chọn thêm một ô ở bên phải, hoặc đứng tại một ô của cột L rồi chọn thêm một ô ở bên trái (những thao tác này có thể dùng Shift + phím mũi tên cho nhanh), rồi nhấn Ctrl+) để cột K hiện ra lại.

P/S: Tương tự cho hàng (row): Ctrl+9 để Hide, và Ctrl+( [Ctrl+Shift+9] để Unhide.

 

[rollover79]

Mình đang có 1 sheet , vui lòng chỉ dùm code ẩn và hiện 01 cột nào đo trong sheet này.

Nếu bạn muốn dùng code thì thử mấy dòng này xem sao

    Range("B:C").EntireColumn.Hidden = True     ' An 2 cot B, C
    Range("B:C").EntireColumn.Hidden = False    ' Hien 2 cot B, C
    Range("3:4").EntireRow.Hidden = True         ' An 2 dong 3, 4
    Range("3:4").EntireRow.Hidden = False        ' Hien 2 dong 3, 4

 

[boyxin]

Nếu bạn muốn dùng code thì thử mấy dòng này xem sao

    Range("B:C").EntireColumn.Hidden = True     ' An 2 cot B, C
    Range("B:C").EntireColumn.Hidden = False    ' Hien 2 cot B, C
    Range("3:4").EntireRow.Hidden = True         ' An 2 dong 3, 4
    Range("3:4").EntireRow.Hidden = False        ' Hien 2 dong 3, 4

Ăn từng dòng 1 thôi nhé, ăn cả 1 lúc là bị nghẹn đó nha

 

[ndu96081631]

Khi bạn đang đứng ở một cột, ví dụ đang đứng ở K6, nhấn Ctrl+0 sẽ ẩn cột K, và nếu như ngay lập tức, nhấn Ctrl+), thì cột K sẽ hiện ra lại.

Hướng dẩn này dể nhầm lẩn quá....
Nếu tôi xem hướng dẩn chắc ăn tôi sẽ bấm 2 phím, thay vì là 3 phím cho trường hợp Ctrl + )

 

[boyxin]

Hướng dẩn này dể nhầm lẩn quá....
Nếu tôi xem hướng dẩn chắc ăn tôi sẽ bấm 2 phím, thay vì là 3 phím cho trường hợp Ctrl + )

Không nhầm đâu, Office 2003 là như vậy thiệt đó: Ctrl + 0 = ẩn cột, nhấn ngay Ctrl + Shift + 0 thì cột đó hiện ra liền à

 

[rollover79]

Ăn từng dòng 1 thôi nhé, ăn cả 1 lúc là bị nghẹn đó nha

Có chắc không đây? boyxin đã thử chưa? tôi thì vẫn thấy ăn được cả bao nhiêu dòng cũng ok.

 

[boyxin]

Có chắc không đây? boyxin đã thử chưa? tôi thì vẫn thấy ăn được cả bao nhiêu dòng cũng ok.

ăn từng dòng trong số các dòng code đó, chứ không phải là ẩn từng dòng ăn cả 1 lúc, không quen dễ mắc nghẹn lắm

 

[rollover79]

ăn từng dòng trong số các dòng code đó, chứ không phải là ẩn từng dòng ăn cả 1 lúc, không quen dễ mắc nghẹn lắm

À ra là vậy, xin lỗi vì tôi lại hiểu thành là nhiều dòng trên Sheet. Vậy xin boyxin cho biết luôn là khi chạy cả 4 dòng trên cùng 1 lúc thì có vấn đề gì xảy ra, cần phải chú ý thêm điểm nào vậy để mọi người còn tránh? Tôi cũng sợ bị "Nghẹn" lắm .

 

[boyxin]

À ra là vậy, xin lỗi vì tôi lại hiểu thành là nhiều dòng trên Sheet. Vậy xin boyxin cho biết luôn là khi chạy cả 4 dòng trên cùng 1 lúc thì có vấn đề gì xảy ra, cần phải chú ý thêm điểm nào vậy để mọi người còn tránh? Tôi cũng sợ bị "Nghẹn" lắm .

Chưa thử nhưng nhìn vào thứ tự các dòng code như vầy:
Nếu chạy cả 4 dòng:
Ẩn 2 cột B,C -> Hiện 2 cột B,C (không có kết quả) -> Ẩn 2 dòng 3; 4 -> Hiện 2 dòng 3; 4 (không có kết quả)
khi ăn mà thức ăn không vào tới dạ dày (không thấy kết quả = không thấy NO)

Có phải là do bị nghẹn nên tắc không nhỉ

 

[ndu96081631]

Không nhầm đâu, Office 2003 là như vậy thiệt đó: Ctrl + 0 = ẩn cột, nhấn ngay Ctrl + Shift + 0 thì cột đó hiện ra liền à

Tôi có nói gì đâu! Ý tôi là hướng dẩn dể gây nhầm lẩn!
Trong trường hợp bạn đọc hướng dẩn bảo bấm Ctrl + ) thì bạn sẽ bấm mấy phím? 2 phím hay 3 phím?

 

[BNTT]

Hướng dẩn này dể nhầm lẩn quá....
Nếu tôi xem hướng dẩn chắc ăn tôi sẽ bấm 2 phím, thay vì là 3 phím cho trường hợp Ctrl + )

Anh xem lại bài đó dùm em. Em có nói rõ ràng là dùng phím gì (mở ngoặc vuông chú thích cặn kẽ). Mà chú thích thì một lần đầu thôi chứ, chẳng lẽ lo rằng người đọc đọc ở dưới quên ở trên à...

 

[rollover79]

Chưa thử nhưng nhìn vào thứ tự các dòng code như vầy:
Nếu chạy cả 4 dòng:
Ẩn 2 cột B,C -> Hiện 2 cột B,C (không có kết quả) -> Ẩn 2 dòng 3; 4 -> Hiện 2 dòng 3; 4 (không có kết quả)
khi ăn mà thức ăn không vào tới dạ dày (không thấy kết quả = không thấy NO)

Có phải là do bị nghẹn nên tắc không nhỉ

Ồ, cảm ơn boyxin, vì 4 dòng code trên chỉ dùng để tham khảo chứ nó không có ý nghĩa thực thi 1 yêu cầu nào đó, tôi đã dùng comment để chú thích rõ ràng rồi mà. Còn nếu tôi muôn thực thi cả 4 câu lệnh đó thì tôi đã post lên 1 Sub đầy đủ rồi. Dẫu sao cũng cảm ơn!

 

[thanh_tks]

Nhân tiện các cao thủ đang ở đây mình muốn hỏi về tự động ẩn ,hiện cột có điều kiện thì làm thế nào ?
VD :tôi có ô D1=A1;E1=B1;F1=C1 Khi A1 =0 -> D1=0 thì cột D tự động ẩn các cột khác cũng tương tự và khi các ô có số liệu thị tự động hiện ( tức là các cột tự động ẩn ,hiện theo điều kiện của các ô nằm trong cột đó). Rất mong được các anh chị giúp đỡ.

 

[anqseap]

Mình đang có 1 sheet , vui lòng chỉ dùm code ẩn và hiện 01 cột nào đo trong sheet này.

Bạn bôi đen vào cột hoặc hàng muốn ẩn sau đó vào Format sau đó vào sheet tiếp theo nhấp chuột vài Hide để ẩn, muốn hiện lại làm như vậy và nhấp chuột vào unhide.
Chúc thành công