Ẩn hiện các hàng!

[ohay102]

có cách nào làm ẩn hoặc hiện các hàng ( cột ) theo một điều kiện cho trước không vậy các bác

 

[PhanTuHuong]

Việc này không khó, nhưng bạn phải nói thêm về điều kiện ẩn/hiện?

 

[Mr Okebab]

Điều kiện là như thế nào vậy bạn ?

 

[ohay102]

giống như mình giải bài toán phương trình bậc 2 ấy các bác, nếu delta nho hon 0 cac hang Nghiem sẽ bị ẩn đi

 

[SA_DQ]

Một cách khắc phục khi giải phw trình bậc 2:

Hàm tự tạo sau đây sẽ cho kết quả như í!

Option Base 1
[b]Function PhTrBac2(Aa As Double, Bb As Double, Cc As Double)[/b]
 ReDim MNghiem(3, 1) As Variant
 Dim DelTa As Double:            Dim iJ As Integer
 
 For iJ = 1 To 3
    MNghiem(iJ, 1) = ""
 Next iJ
 DelTa = (Bb ^ 2 - (4 * Aa * Cc))
 Select Case DelTa
 Case Is < 0
    MNghiem(1, 1) = "Phương trình vô nghiệm"
    MNghiem(2, 1) = "DelTa bé hơn 0 !"
Case 0
    MNghiem(1, 1) = "Phương trình có nghiệm duy nhất"
    MNghiem(2, 1) = -Bb / (2 * Aa)
 Case Is > 0
    MNghiem(3, 1) = (-Bb + DelTa ^ (1 / 2)) / (2 * Aa)
    MNghiem(2, 1) = (-Bb - DelTa ^ (1 / 2)) / (2 * Aa)
    MNghiem(1, 1) = "Phương trình có hai nghiệm "
  End Select
  PhTrBac2 = MNghiem()
  
[b]End Function[/b]

Chú ý:
Vì là hàm mảng nên phải chọn 3 ô trống trong một cột nào đó
Sau khi nhập hàm, ta phải kết thúc = tổ hợp 3 fím zành cho hàm mảng!

&ui &ẽ nhân dịp xuân về!

 

[kshoang]

Ẩn các hàng không cần in!

Sẵn đây cho mình hỏi cách đơn giản nhất để ẩn các hàng không cần in, ví dụ: Mình có một bảng tính mẫu, khi cập nhật số liệu tính toán đôi lúc có một số hàng không cần in (giá trị tính toán bằng 0), vậy nhờ các bạn chỉ giúp mình thực hiện việc này - Xin cảm ơn!

 

[skyonline]

Bạn chọn những hàng đó (nhấp phía ngoài cùng ấy) sau đó nhấp phải chuột chọn chức năng hide !

 

[kshoang]

Ẩn hàng khi in!

Cảm ơn bạn đã trả lời, nhưng ý của minh là tự động ẩn hàng khi giá trị tính toán bằng 0 (có hàm nào làm đươc điều này?) - Xin chỉ giúp!

 

[SA_DQ]

Nếu tại A2 ta nhập -1; Tại A6 ta nhập 1
Ô nào bất kì trong vùng B1:C99 ta nhập công thức =A2 + A6; Sau khi 'ENTER' ta sẽ thấy macro làm việc

[b]
Private Sub Worksheet_Change(ByVal Target As Range)[/b]
 If Not Intersect(Target, Range("B1:C99")) Is Nothing And Target.Value = 0 Then
    Target.EntireRow.Hidden = True:       MsgBox "Dong An:" & Str(Target.Row)
End If[b]
End Sub[/b]

Bạn có thể tham khảo macro này và sữa lại theo ý của mình!