tự động hide/unhide trong excel? (2 người xem)

Cá ngừ F1 · 22/5/08

Các pro ơi, có cách nào để tự động hide một dòng nào đấy
vd nếu ô G15 bằng 0 thì hide dòng 15 đi, nếu khác 0 thì để nguyên.
regard.

TKT · 22/5/08

tuknhnvn đã viết:
Các pro ơi, có cách nào để tự động hide một dòng nào đấy
vd nếu ô G15 bằng 0 thì hide dòng 15 đi, nếu khác 0 thì để nguyên.
regard.

Bạn dùng Auto Filter nhé.
Bạn xem file đính kèm có hướng dẫn.

Cá ngừ F1 · 22/5/08

vi file của tớ là file động, nên ô chứa 0 cũng thay đổi, hik autofiter pó tay rồi (mỗi lần cứ phải custom lại thật mất thời gian)..

ThuNghi · 22/5/08

tuknhnvn đã viết:
ko tớ chỉ muốn hide duy nhất dòng 15 thôi

Nếu hide rồi phải có lệnh gì unhide dòng 15 mới nhập liệu vào G15 hay là nhập vào A1 thì unhide. Khó hiểu quá.

anhtuan1066 · 23/5/08

He... he... Đúng như ThuNghi nói, nếu dòng 15 đã ẩn rồi thì bạn làm sao nhập giá trị vào cho nó hiện trở lại đây?
Rất có thể G15 phải là 1 công thức tham chiếu đến 1 cell khác chứ nhỉ? Nếu đúng vậy thì còn có cách!
ANH TUẤN

tigertiger · 23/5/08

Giải pháp theo p/a thử

anhtuan1066 đã viết:
He... he... Đúng như ThuNghi nói, nếu dòng 15 đã ẩn rồi thì bạn làm sao nhập giá trị vào cho nó hiện trở lại đây?
Rất có thể G15 phải là 1 công thức tham chiếu đến 1 cell khác chứ nhỉ? Nếu đúng vậy thì còn có cách!
ANH TUẤN

thê thì tại
G15 chẳng hạn có công thức =H1
tại H1 gõ 0 hoặc 1 (khác 0 là được) -> ẩn hoặc hiện dòng 15

thì CODE thế này

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect([H1], Target) Is Nothing Then
            If [G15].Value = 0 Then
                Rows("15:15").EntireRow.Hidden = True
            Else: Rows("15:15").EntireRow.Hidden = False: End If
      End If
End Sub

down file gửi kèm

anhtuan1066 · 23/5/08

Để xem tác giã nói thêm 1 chút... rất có thể "hên" thì khỏi If ét gì hết luôn cũng ko chừng...
Chẳng hạn.. đặt name:

Mã:

 KT = $G$15=0

và cuối cùng là code:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
      KT = Evaluate("KT")
      If Target.Address = "$H$1" Then
        Rows("15:15").EntireRow.Hidden = KT
      End If
End Sub

tigertiger · 23/5/08

Không cần name lun

THế thì thế này, khỏi name lun

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect([H1], Target) Is Nothing Then
                Rows("15:15").EntireRow.Hidden = [G15].Value = 0
      End If
End Sub

binh191983 · 6/8/08

Bạn ởi,khi ẩn đi rồi,muốn copy dữ liệu vào côt hoặc dòng (chứa cả cột hoặc dòng ẩn đó) nhưng chỉ muốn copy vào những dòng hiện thôi thì làm thế nào ban?

ndu96081631 · 6/8/08

binh191983 đã viết:
Bạn ởi,khi ẩn đi rồi,muốn copy dữ liệu vào côt hoặc dòng (chứa cả cột hoặc dòng ẩn đó) nhưng chỉ muốn copy vào những dòng hiện thôi thì làm thế nào ban?

Bạn chọn vùng cần copy (vùng có chứa cell ẩn)... Bấm Ctrl + G, chọn Special\Visible Cells Only, OK... Tiếp theo bấm Ctrl + C để copy... sang vùng cần Paste, bấm Ctrl + V
Làm như vậy nó chỉ copy những cell nào đang hiện mà thôi

LikeIt · 7/8/08

Bổ sung thêm (cái này em cũng học từ một bạn nào đó trên GPE). Bạn bôi đen vùng cần copy nhấn ALT+; sau đó copy bình thường và dán vào bình thường là xong.

hoangexcell · 28/10/08

Các Bro ơi! làm ơn chỉ cho tớ nếu H1 nằm ở Sheet khác!
Và đặc biệt là tớ không có tác động vào ô H1 gì cả thì nó có hide không?

ndu96081631 · 28/10/08

hoangexcell đã viết:
Các Bro ơi! làm ơn chỉ cho tớ nếu H1 nằm ở Sheet khác!
Và đặc biệt là tớ không có tác động vào ô H1 gì cả thì nó có hide không?

Đương nhiên là được, nhưng xin bạn nói cụ thể 1 chút:
- Yêu cầu là gì? Muốn ẩn cái gì? Có điều kiện gì đi kèm khi ẩn dòng không? (càng rõ càng tốt)

hoangexcell · 29/10/08

Hi,

Xin nói lại:
Tôi muốn nếu ô A1 có giá trị bằng 0 thì tự động hide nguyên dòng đó.
Trong ô A1 chứa công thức!

Nếu vẫn chưa rõ xin xem file dính kèm. Xem Sheet Printform, hy vọng rất rõ ràng ! tôi muốn hide những dòng đó
Thanks

ndu96081631 · 29/10/08

hoangexcell đã viết:
Hi,

Xin nói lại:
Tôi muốn nếu ô A1 có giá trị bằng 0 thì tự động hide nguyên dòng đó.
Trong ô A1 chứa công thức!

Nếu vẫn chưa rõ xin xem file dính kèm. Xem Sheet Printform, hy vọng rất rõ ràng ! tôi muốn hide những dòng đó
Thanks

Ái chà chà... Cái này thì bạn AutoFilter\Custom\Does not Equal = 0 là xong chứ gì
Muốn "tự động" thì ghi nó thành 1 macro
Nói chung: Cái gì ta làm "bằng tay" được thì gần như có thể "tự động hóa" nó được... Chính vì thế mà vấn đề đặt ra là: phải nghĩ rằng công việc ta nêu ra liệu có thể làm bằng tay được không?

hoangexcell · 30/10/08

ndu96081631 đã viết:
Ái chà chà... Cái này thì bạn AutoFilter\Custom\Does not Equal = 0 là xong chứ gì
Muốn "tự động" thì ghi nó thành 1 macro
Nói chung: Cái gì ta làm "bằng tay" được thì gần như có thể "tự động hóa" nó được... Chính vì thế mà vấn đề đặt ra là: phải nghĩ rằng công việc ta nêu ra liệu có thể làm bằng tay được không?

Sorry, tự động hoàn toàn cơ! Tớ không muốn làm gì phải bấm bấm như cách bạn nói!

Nhu cầu là như thế, vì nếu mà ghi macro theo cách vậy rồi lại phải bấm cho chạy macro đó mất công lắm!
Tớ làm dữ liệu ở một sheet kế bên và chỉ việc in ra cái form này! Bạn rõ chứ?

ndu96081631 · 30/10/08

hoangexcell đã viết:
Sorry, tự động hoàn toàn cơ! Tớ không muốn làm gì phải bấm bấm như cách bạn nói!

Nhu cầu là như thế, vì nếu mà ghi macro theo cách vậy rồi lại phải bấm cho chạy macro đó mất công lắm!
Tớ làm dữ liệu ở một sheet kế bên và chỉ việc in ra cái form này! Bạn rõ chứ?

Chài... ai... Hướng dẩn trên là quá rõ rồi còn gì... Quy trình là thế, còn việc "tự động" còn lại phải thuộc về bạn chứ!
Nếu là tôi thì tôi sẽ:
- Record macro quá trình AutoFilter theo điều kiện
- Xem code, chỉnh sửa lại cho gọn
- Tiếp theo sẽ đặt code vào 1 sự kiện nào đó mà tôi cho là hợp lý để tự động hóa hoàn toàn công việc
Code sơ bộ:

PHP:

Option Explicit
Private Sub Worksheet_Activate()
   Dim Rng As Range
   Set Rng = [A8].CurrentRegion
   Rng.AutoFilter Field:=1, Criteria1:="<>0"
End Sub

Với file đính kèm này, nếu bạn thay đổi dử liệu ở nguồn, thì mổi khi bạn chọn vào sheet PrintForm bạn sẽ thấy việc Hide row được tự động hóa hoàn toàn

hoangexcell · 1/11/08

Quá chính xác! Đó là những giải pháp cực kỳ hiệu quả cao.
Tôi có biết gì về VBA đâu nên không nghĩ ra được thế đâu bạn à.

Vấn đề là tôi không biết code để làm sao khi chọn đổi sheet hay đổi dữ liệu thì nó thực thi một macro nào đó. Bây giờ file này quá ngắn gọn và chính xác rồi! Thanks

redhot · 3/11/08

Nhờ các bro giúp đỡ auto hide

tigertiger đã viết:
THế thì thế này, khỏi name lun

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([H1], Target) Is Nothing Then Rows("15:15").EntireRow.Hidden = [G15].Value = 0 End If End Sub

Hi các bro,

Mình là lính mới tò te, nhờ các bro giúp mình đoạn code auto hide row những cell có giá trị True trong cột Y.

Các bro xem file đính kèm nhé. Thank nhiều.

Po_Pikachu · 3/11/08

Ý bạn là trong Sheet DATA các ô ở cột Y = TRUE thì ẩn hết phải không? Nếu vậy thì bạn sửa code Worksheet_Activate của Sheet DATA lại thành như vầy là được.

PHP:

Private Sub Worksheet_Activate() ''Me.ScrollArea = "A1:Y70"    Dim Rng As Range    Set Rng = [Y8].CurrentRegion    Rng.AutoFilter Field:=25, Criteria1:="FALSE" End Sub

Thân.

lephongctbghg · 3/11/08

xin hỏi khi ẩn một hàng hoặc một cột mà có giá trị là một con số thì khi sum lại có cách nào không cho cộng giá trị ẩn được ko? xin cám ơn nhiều

ndu96081631 · 3/11/08

lephongctbghg đã viết:
xin hỏi khi ẩn một hàng hoặc một cột mà có giá trị là một con số thì khi sum lại có cách nào không cho cộng giá trị ẩn được ko? xin cám ơn nhiều

Lúc đó bạn đừng dùng SUM mà dùng SUBTOTAL(109, vùng chọn)
Nghiên cứu xem

Po_Pikachu · 3/11/08

Bạn dùng công thức này:

PHP:

Function SumVisible(Rng As Range) Dim VCel As Range Dim Temp As Double For Each VCel In Rng If Not VCel.Rows.Hidden And Not VCel.Columns.Hidden Then Temp = Temp + VCel Next SumVisible = Temp End Function

Lấy từ kiến thức của bác ndu96081631 đó! Link: http://www.giaiphapexcel.com/forum/showthread.php?t=13454 Thân.

lephongctbghg · 3/11/08

xin anh ndu96081631 cho em hỏi trong một ô trong excel mình có nhiều dòng và có một nút giống nút autofilter nhưng nó nằm về phía bên phải của một ô. ví dụ trong một ô có 4 dòng mình bấm và nút 1 thì 3 dòng kia không thấy.xin các anh chỉ giúp cám ơn nhiều!

Po_Pikachu · 3/11/08

Cái bạn nói chắc là AutoFilter đúng không? Bạn thử quét chọn 1 vùng từ 1 đến 4 đó rồi vào Data -> Filter -> AutoFilter. Rồi Click lên ô đầu xem sẽ thấy có 1 nút tam giác bên phải, bạn nhấn xuống chọn 1 số thì các số kia sẽ bị ẩn đi. Thân.

ndu96081631 · 3/11/08

lephongctbghg đã viết:
xin anh ndu96081631 cho em hỏi trong một ô trong excel mình có nhiều dòng và có một nút giống nút autofilter nhưng nó nằm về phía bên phải của một ô. ví dụ trong một ô có 4 dòng mình bấm và nút 1 thì 3 dòng kia không thấy.xin các anh chỉ giúp cám ơn nhiều!

Đó gọi là Validation (nằm trong menu Data\Validation)
Bạn search trên diển đàn từ khóa VALIDATION, đãm bảo có đầy
---------------------

Po_Pikachu đã viết:
Bạn dùng công thức này:

PHP:

Function SumVisible(Rng As Range) Dim VCel As Range Dim Temp As Double For Each VCel In Rng If Not VCel.Rows.Hidden And Not VCel.Columns.Hidden Then Temp = Temp + VCel Next SumVisible = Temp End Function

Lấy từ kiến thức của bác ndu96081631 đó!
Link: http://www.giaiphapexcel.com/forum/showthread.php?t=13454
Thân.

Cái này nhớ thêm dòng Application.Volatile vào đầu code nhé (nếu không khi ta ẩn dòng nó chả cập nhật đâu)

lephongctbghg · 3/11/08

không phải như vậy anh pikachu ơi ý em hỏi là các số thứ tự đó nằm trong một hàng.bình thường anh không lick vào ô A1 thì nó có số thứ tự là 1 hoặc 2,3,4 gì đó,nhưng khi anh lick vào ô Á sẽ có một autofiter ở bên góc trái ô A1. khi lick vào autofiter đó thì sẽ thấy tất cả các số 1,2,3,4 và tuỳ ý nình chọn số nào. xin anh chỉ giúp!

Po_Pikachu · 3/11/08

Không phải Autofilter thì chỉ còn có Validation thôi. Theo mình thì mình hay dùng cách này: Bạn vào Insert -> Name -> Define -> ô đầu bạn đặt cho nó 1 cái tên (Ví dụ là Ten). Rồi ở dòng Refers to: Bạn quét chọn vùng dữ liệu chứa số thứ tự kia => OK. Rồi nhấp vào ô A1 -> Vào Data -> Validation -> mục Allow: chọn List -> mục Source: bạn gõ =Ten -> OK. Vậy chắc được rồi đó! Thân.

ndu96081631 · 3/11/08

lephongctbghg đã viết:
không phải như vậy anh pikachu ơi ý em hỏi là các số thứ tự đó nằm trong một hàng.bình thường anh không lick vào ô A1 thì nó có số thứ tự là 1 hoặc 2,3,4 gì đó,nhưng khi anh lick vào ô Á sẽ có một autofiter ở bên góc trái ô A1. khi lick vào autofiter đó thì sẽ thấy tất cả các số 1,2,3,4 và tuỳ ý nình chọn số nào. xin anh chỉ giúp!

Không biết có giống vầy không?

lephongctbghg · 3/11/08

đúng rồi xin cám ơn các anh nhiều!

redhot · 3/11/08

PHP:

Private Sub Worksheet_Activate()
''Me.ScrollArea = "A1:Y70"
   Dim Rng As Range
   Set Rng = [Y8].CurrentRegion
   Rng.AutoFilter Field:=25, Criteria1:="FALSE"
End Sub

[/quote]

Hi bác Po_Pikachu,

Cám ơn bác đã giúp, tôi đã paste đoạn code trên của bác vào, nhưng chẳng hiểu sao mỗi lần mở file nó vẫn không thực thi bác à. Nhờ bác xem lại giùm mình nhé. Có cách nào không dùng autofilter không bác?

Po_Pikachu · 4/11/08

Ngoài cách trên vẫn còn cách khác nhưng không hay bằng cách trên đâu! Bạn tải lại file ở top #20, rồi xem thử nha! Bạn có thể thay bằng code dười để có được như yêu cầu.

PHP:

Private Sub Worksheet_Activate() Set vung = Range("Y11:Y33") For Each Rng In vung     If Rng.Value = "True" Then     Rows(Rng.Row).EntireRow.Hidden = True     End If Next End Sub

Thân.

syhoang24 · 22/9/10

Chào các bác Pro.
Mình mới tham gia diễn đàn nhưng đang gặp khó khăn cho một form quản lý kho mà mình đang làm kế hoạch quản lý để trình lên xếp.
vấn đề là như sau mình tạo một bảng báo giá bao gồm tất cả nhứng mặt hàng mà mình có và ở sheet khác là sheet P. báo giá thì mình đã cài sẵn công thức chỉ cần nhập mã hàng thì sẽ tự động tính toán các tham chiếu để đưa số liệu ra phiếu báo giá
tuy nhiên phiếu báo giá thì không phải lúc nào cũng nhiều mặt hàng mà mình lại để dự phòng những dòng khác trong truờng hợp phải báo giá nhiều mặt hàng. vấn đề của mình là làm sao để các dòng trong phiếu báo giá tự ẩn khi mình ko nhập giá trị mà giá trị của nó đựơc mặc định như công thức ban đầu #N/A và nếu có giá trị nó sẽ tự động hiện lên khi mình in báo giá.
Nhờ các pro giúp mình với.
cảm ơn nhièu nhiều....
File đính kèm nè :

khoa an · 28/5/11

file exel của mình sao tự động ẩn một vài dòng hoài, mình dâu có đặt lệnh ẩn đâu, mà mình chọn unhide nó cũng ko chịu ra, chỉ có năm kéo nó mới ra, ai biết chỉ giúp mình với.
Cảm ơn

ndu96081631 · 28/5/11

khoa an đã viết:
ile exel của mình sao tự động ẩn một vài dòng hoài, mình dâu có đặt lệnh ẩn đâu, mà mình chọn unhide nó cũng ko chịu ra, chỉ có năm kéo nó mới ra, ai biết chỉ giúp mình với.
Cảm ơn

Thì ít nhất phải gữi file lên mới biết là nguyên nhân gì chứ

vuminh1601 · 28/5/11

Theo tôi trường hợp của bạn như thế này. Các dòng có hight quá nhỏ mắt thường nhìn thấy nó ẩn, nhưng thực ra nó có ẩn đâu.
Bạn nên chọn tất cả các dòng bằng chuột sau đó click vào đầu số dòng (Auto fit) các dòng sẽ trở về mặc định.
Xem đoạn code do macro ghi lai sau:

Mã:

Rows("8:8").Select
    Selection.RowHeight = 0.1
    Rows("12:12").Select
    Selection.RowHeight = 0.1
    Rows("16:16").Select
    Selection.RowHeight = 0
    Rows("20:20").Select
    Selection.EntireRow.Hidden = True
    Rows("5:28").Select
    Selection.EntireRow.Hidden = False

Đoạn này:

Selection.RowHeight = 0

và

Selection.EntireRow.Hidden = True

Đã được Unhide dòng 16 và dòng 20

Như vậy khi cần ẩn dòng ta có thể sử dụng 1 trong 2 cách này được không bác ndu ?

khoa an · 28/5/11

dòng 7-dòng 14, ẩn hiện hoài- khi mình lọc theo tháng (cột cuối ) rồi chọn lại không lọc nữa thì bị .

khoa an · 28/5/11

mình đầu tiên tải file lên máy, chưa rõ lắm có j sai sót, mọi người thứ lỗi và chỉ giúp nhé .

phat81 · 31/5/11

tigertiger đã viết:
thê thì tại
G15 chẳng hạn có công thức =H1
tại H1 gõ 0 hoặc 1 (khác 0 là được) -> ẩn hoặc hiện dòng 15

thì CODE thế này

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([H1], Target) Is Nothing Then If [G15].Value = 0 Then Rows("15:15").EntireRow.Hidden = True Else: Rows("15:15").EntireRow.Hidden = False: End If End If End Sub

down file gửi kèm

Nếu như một vùng giả sử như từ Y10 đến Y30 có giá trị nào = 0 thì ẩn nguyên dòng đó thì làm thế nào bạn

xuanhuye · 6/6/13

Sao lai phai di long vong the, ban click vao bỏ dấu tick "0 " la dc thôi

kaka1992 · 23/6/16

ndu96081631 đã viết:
Chài... ai... Hướng dẩn trên là quá rõ rồi còn gì... Quy trình là thế, còn việc "tự động" còn lại phải thuộc về bạn chứ!
Nếu là tôi thì tôi sẽ:
- Record macro quá trình AutoFilter theo điều kiện
- Xem code, chỉnh sửa lại cho gọn
- Tiếp theo sẽ đặt code vào 1 sự kiện nào đó mà tôi cho là hợp lý để tự động hóa hoàn toàn công việc
Code sơ bộ:

PHP:

Option Explicit Private Sub Worksheet_Activate() Dim Rng As Range Set Rng = [A8].CurrentRegion Rng.AutoFilter Field:=1, Criteria1:="<>0" End Sub

Với file đính kèm này, nếu bạn thay đổi dử liệu ở nguồn, thì mổi khi bạn chọn vào sheet PrintForm bạn sẽ thấy việc Hide row được tự động hóa hoàn toàn

Khi nhập giá trị khác 0 vào hàng có giá trị bằng 0 trước đó, thì làm sao để show hàng đó ra trở lại à?

kaka1992 · 23/6/16

kaka1992 đã viết:
Khi nhập giá trị khác 0 vào hàng có giá trị bằng 0 trước đó, thì làm sao để show hàng đó ra trở lại à?

Làm thế nào để AutoFilter ở nhiều bảng khác nhau trong cùng 1 Sheet ạ?

Long-Newbie GPE · 3/12/18

Xin chào các pro!

Trở lại với đề tài auto hide/unhide.
- Nếu Sheet1, A1=False thì Sheet2, A1:E5 (đoạn này có thể đặt tên là ABC) sẽ tự động ẩn, còn nếu Sheet1, A1=TRUE thì hiện.
Các Pro giúp mình nhé.
Cảm ơn!

triliem · 30/10/20

tigertiger đã viết:
Giải pháp theo p/a thử

thê thì tại
G15 chẳng hạn có công thức =H1
tại H1 gõ 0 hoặc 1 (khác 0 là được) -> ẩn hoặc hiện dòng 15

thì CODE thế này

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([H1], Target) Is Nothing Then If [G15].Value = 0 Then Rows("15:15").EntireRow.Hidden = True Else: Rows("15:15").EntireRow.Hidden = False: End If End If End Sub

down file gửi kèm

thế cho e hỏi nếu bảng tính e có 100 dòng...nhưng dữ liệu chỉ có 5 dòng vậy làm sao ẩn hết 95 dòng k có dữ liệu ạ

phulien1902 · 30/10/20

triliem đã viết:
thế cho e hỏi nếu bảng tính e có 100 dòng...nhưng dữ liệu chỉ có 5 dòng vậy làm sao ẩn hết 95 dòng k có dữ liệu ạ

Có File là làm được hết.

tigertiger · 30/10/20

triliem đã viết:
thế cho e hỏi nếu bảng tính e có 100 dòng...nhưng dữ liệu chỉ có 5 dòng vậy làm sao ẩn hết 95 dòng k có dữ liệu ạ

Dùng Filter nhé, AutoFilter, hay Advanced Filter

triliem · 12/11/20

phulien1902 đã viết:
Có File là làm được hết.

file đây ạ...e cần code để tự động hide/unhide ở sheet 1 ạ...e có video cụ thể nếu cần e gửi ạ

phulien1902 · 12/11/20

triliem đã viết:
file đây ạ...e cần code để tự động hide/unhide ở sheet 1 ạ

Bạn xem file và Link lại số liệu

triliem · 12/11/20

phulien1902 đã viết:
Có File là làm được hết.

phulien1902 đã viết:
Bạn xem file và Link lại số liệu

không phải như vậy đâu bạn...bạn có gmail hay zalo không mình gửi video bạn xem nha

Cá ngừ F1 · 12/11/20

triliem đã viết:
file đây ạ...e cần code để tự động hide/unhide ở sheet 1 ạ...e có video cụ thể nếu cần e gửi ạ

Có phải bạn muốn lọc từ sheet Tổng về Sheet Bảng TDGH với điều kiện thỏa mãn từ ngày đến ngày trên cell N1, O1 sheet Bảng TDGH ?

triliem · 12/11/20

Cá ngừ F1 đã viết:
Có phải bạn muốn lọc từ sheet Tổng về Sheet Bảng TDGH với điều kiện thỏa mãn từ ngày đến ngày trên cell N1, O1 sheet Bảng TDGH ?

đúng rồi bạn...khi thỏa mãn điều kiện thì có thể có nhiều dòng có dữ liệu...còn lại những dòng không có dữ liệu thì tự động hide

Cá ngừ F1 · 12/11/20

triliem đã viết:
đúng rồi bạn...khi thỏa mãn điều kiện thì có thể có nhiều dòng có dữ liệu...còn lại những dòng không có dữ liệu thì tự động hide

Vậy thì đây là bài toán lọc có điều kiện, chứ ko phải hide/unhide.
Bạn biết dùng advanced filter ko? Đấy là 1 giải pháp, chỉ có điều cần cơ cấu lại các trường thông tin bên sheet Bảng TDGH, sao cho tên các trường cần lấy giống hệt bên sheet Tổng, và ko được merge cell.
Còn nếu muốn giữ nguyên kết cấu của Bảng TDGH thì chỉ có thể dùng VBA

triliem · 12/11/20

Cá ngừ F1 đã viết:
Vậy thì đây là bài toán lọc có điều kiện, chứ ko phải hide/unhide.
Bạn biết dùng advanced filter ko? Đấy là 1 giải pháp, chỉ có điều cần cơ cấu lại các trường thông tin bên sheet Bảng TDGH, sao cho tên các trường cần lấy giống hệt bên sheet Tổng, và ko được merge cell.
Còn nếu muốn giữ nguyên kết cấu của Bảng TDGH thì chỉ có thể dùng VBA

VBA như nào đấy bạn

Cá ngừ F1 · 13/11/20

triliem đã viết:
VBA như nào đấy bạn

Bạn nên mở 1 thớt mới để hỏi, sẽ có nhiều giải pháp cho bạn.
Ngoài ra, về File gửi lên cần nhiều dữ liệu hơn, sao phần tiến độ giao hàng chỉ có tháng 8, 9 , 10, vậy từ tháng 1 bạn có cần phải thống kê không? hãy gửi dữ liệu tương đối chút và mở Topic mới nhé.

triliem · 13/11/20

Ok tks bạn nha...

khanhdq88 · 11/6/22

tigertiger đã viết:
Giải pháp theo p/a thử

thê thì tại
G15 chẳng hạn có công thức =H1
tại H1 gõ 0 hoặc 1 (khác 0 là được) -> ẩn hoặc hiện dòng 15

thì CODE thế này

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([H1], Target) Is Nothing Then If [G15].Value = 0 Then Rows("15:15").EntireRow.Hidden = True Else: Rows("15:15").EntireRow.Hidden = False: End If End If End Sub

down file gửi kèm

Các bác giúp e với, trường hợp H1 ở sheet1 = tham chiếu từ i1 ở sheet2 sang thì code tnao ạh. E test code như trên nếu gõ ở 0-1 ở tại H1 (Sheet1) thì ok, nhưng tham chiếu H1 = Sheet2!I1 thì k chạy ạk. Mong các cao nhân giúp đỡ ạh. Thanks all...!

tigertiger · 11/6/22

khanhdq88 đã viết:
Các bác giúp e với, trường hợp H1 ở sheet1 = tham chiếu từ i1 ở sheet2 sang thì code tnao ạh. E test code như trên nếu gõ ở 0-1 ở tại H1 (Sheet1) thì ok, nhưng tham chiếu H1 = Sheet2!I1 thì k chạy ạk. Mong các cao nhân giúp đỡ ạh. Thanks all...!

Thì đổi sang WorkSheet_Change của Sheet2
và đổi vai trò H1 thành I1
Tức là luôn phải tìm cái gốc thay đổi

khanhdq88 · 11/6/22

tigertiger đã viết:
Thì đổi sang WorkSheet_Change của Sheet2
và đổi vai trò H1 thành I1
Tức là luôn phải tìm cái gốc thay đổi

e mới làm nữa chưa biết đổi tnao, biết hướng dẫn chi tiết hoặc hộ e đoạn code đó đc k. Thanks bác nhiều...!

dunghtgiga · 5/9/24

ndu96081631 đã viết:
Chài... ai... Hướng dẩn trên là quá rõ rồi còn gì... Quy trình là thế, còn việc "tự động" còn lại phải thuộc về bạn chứ!
Nếu là tôi thì tôi sẽ:
- Record macro quá trình AutoFilter theo điều kiện
- Xem code, chỉnh sửa lại cho gọn
- Tiếp theo sẽ đặt code vào 1 sự kiện nào đó mà tôi cho là hợp lý để tự động hóa hoàn toàn công việc
Code sơ bộ:

PHP:

Option Explicit Private Sub Worksheet_Activate() Dim Rng As Range Set Rng = [A8].CurrentRegion Rng.AutoFilter Field:=1, Criteria1:="<>0" End Sub

Với file đính kèm này, nếu bạn thay đổi dử liệu ở nguồn, thì mổi khi bạn chọn vào sheet PrintForm bạn sẽ thấy việc Hide row được tự động hóa hoàn toàn

Ban cho mình hỏi: mình cũng tạo macro, cũng code VBA xong và Save lại nhưng khi tắt đi mở lại thấy macro và code không được lưu, nhờ bạn hướng dẫn giúp.

SA_DQ · 5/9/24

dunghtgiga đã viết:
Ban cho mình hỏi: mình cũng tạo macro, cũng code VBA xong và Save lại nhưng khi tắt đi mở lại thấy macro và code không được lưu, nhờ bạn hướng dẫn giúp.

Bạn xem lại phần cái đuôi của tên file, chắc sẽ OK!

dunghtgiga · 5/9/24

SA_DQ đã viết:
Bạn xem lại phần cái đuôi của tên file, chắc sẽ OK!

Tệp của mình đuôi .xlsx như vậy phải đổi qua .xls hay sao ?

cantl · 5/9/24

dunghtgiga đã viết:
Tệp của mình đuôi .xlsx như vậy phải đổi qua .xls hay sao ?

Lưu tất cả sang .xlsb. file sẽ chạy được và rất nhẹ.

Tại sao lại có đuôi này thì cũng chả hiểu, mặc dù thừa thãi nhưng cứ nhẹ là được.

Sắp tới nếu được tớ sẽ code save as toàn bộ sang xlsb.

tự động hide/unhide trong excel? (2 người xem)

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

( ͡° ͜ʖ ͡°)

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

File đính kèm

( ͡° ͜ʖ ͡°)

Hãy cho rồi sẽ nhận!

Thành viên gạo cội

Coming back ...

File đính kèm

Thành viên gạo cội

Coming back ...

Thành viên mới

Huyền thoại GPE

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

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

Huyền thoại GPE

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

File đính kèm

Huyền thoại GPE

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

Huyền thoại GPE

File đính kèm

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

Thành viên mới

File đính kèm

Po_pikachu@ymail.com

File đính kèm

Thành viên chính thức

Huyền thoại GPE

Po_pikachu@ymail.com

Thành viên chính thức

Po_pikachu@ymail.com

Huyền thoại GPE

Thành viên chính thức

Po_pikachu@ymail.com

Huyền thoại GPE

File đính kèm

Thành viên chính thức

Thành viên mới

Po_pikachu@ymail.com

Thành viên mới

Thành viên mới

Huyền thoại GPE

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

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên chính thức

Thành viên chính thức

Thành viên mới

Thành viên mới

GPE - My love

Coming back ...

Thành viên mới

File đính kèm

GPE - My love

File đính kèm

Thành viên mới

( ͡° ͜ʖ ͡°)

Thành viên mới

( ͡° ͜ʖ ͡°)

Thành viên mới

( ͡° ͜ʖ ͡°)

Thành viên mới

Thành viên mới

File đính kèm

Coming back ...

Thành viên mới

Thành viên chính thức

/(hông là gì!

Thành viên chính thức

!!! Giải thoát !!!

Thời gian đếm ngược.