Các bạn cho mình hỏi:thí dụ ở hàng 1 ô A chẳng hạn có thể viết hàm tự tạo làm sao nếu giá trị của ô A này nhỏ hơn 0 thì mặc định 4 hàng phía dưới ẩn đi còn nếu lớn hơn không thì 4 hàng đó tự động hiện lên lại.Chân thành cảm ơn trước.
Bạn nên đưa file lên để đỡ mất thời gian người khác và bạn có kết qủa tốt hơnCác bạn cho mình hỏi:thí dụ ở hàng 1 ô A chẳng hạn có thể viết hàm tự tạo làm sao nếu giá trị của ô A này nhỏ hơn 0 thì mặc định 4 hàng phía dưới ẩn đi còn nếu lớn hơn không thì 4 hàng đó tự động hiện lên lại.Chân thành cảm ơn trước.
bạn muốn như thế này chăng/Các bạn cho mình hỏi:thí dụ ở hàng 1 ô A chẳng hạn có thể viết hàm tự tạo làm sao nếu giá trị của ô A này nhỏ hơn 0 thì mặc định 4 hàng phía dưới ẩn đi còn nếu lớn hơn không thì 4 hàng đó tự động hiện lên lại.Chân thành cảm ơn trước.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1").Value < 0 Then
Range("a2:a5").EntireRow.Hidden = True
Else
Range("a2:a5").EntireRow.Hidden = False
End If
End Sub
bạn muốn như thế này chăng/
PHP:Private Sub Worksheet_Change(ByVal Target As Range) If Range("a1").Value < 0 Then Range("a2:a5").EntireRow.Hidden = True Else Range("a2:a5").EntireRow.Hidden = False End If End Sub
Hàm thì làm sao có khả năng ẩn cột dòng hà bạn? ---> Đã gọi là HÀM thì nó chỉ có khả năng TÍNH TOÁN rồi XUẤT KẾT QUÀ thôiĐúng rồi.cảm ơn bạn,nhưng có thể viết thành hàm mà không phải thủ tục được không bạn?
Cho mình hỏi trong code bạn viết nếu a1<0 thì hàng a2 đến a5 ẩn đi nếu mình muốn nếu a1<0 thì hàng a2 đến hàng a5 ẩn và a7 ẩn thì viết thế nào?Chân thành cảm ơn.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1").Value < 0 Then
Range("a2:a5,a7").EntireRow.Hidden = True
Else
Range("a2:a5,a7").EntireRow.Hidden = False
End If
End Sub
Mình gặp trường hợp này mong các bạn giúp:mình có gửi file đính kèm.Nếu mở file lên nhập vào ô a1 số nhỏ hơn hoặc bằng 5 thì sử lý đúng,tiếp theo nhập số lớn hơn bằng 10 vẫn sử lý đúng nhưng tiếp theo nếu nhập vào số nhỏ hơn hoặc bằng 5 thì lại không sử lý đúng.ThanksMuốn vậy thì bạn sửa lại code như sau:
PHP:Private Sub Worksheet_Change(ByVal Target As Range) If Range("a1").Value < 0 Then Range("a2:a5,a7").EntireRow.Hidden = True Else Range("a2:a5,a7").EntireRow.Hidden = False End If End Sub
Chúc bạn thành công!
Mình gặp trường hợp này mong các bạn giúp:mình có gửi file đính kèm.Nếu mở file lên nhập vào ô a1 số nhỏ hơn hoặc bằng 5 thì sử lý đúng,tiếp theo nhập số lớn hơn bằng 10 vẫn sử lý đúng nhưng tiếp theo nếu nhập vào số nhỏ hơn hoặc bằng 5 thì lại không sử lý đúng.Thanks
Code của bạnMình gặp trường hợp này mong các bạn giúp:mình có gửi file đính kèm.Nếu mở file lên nhập vào ô a1 số nhỏ hơn hoặc bằng 5 thì sử lý đúng,tiếp theo nhập số lớn hơn bằng 10 vẫn sử lý đúng nhưng tiếp theo nếu nhập vào số nhỏ hơn hoặc bằng 5 thì lại không sử lý đúng.Thanks
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1").Value <= 5 Then
Range("a6:a9").EntireRow.Hidden = True
Else
Range("a6:a9").EntireRow.Hidden = False
If Range("a1").Value >= 10 Then
Range("a2:a5,a9").EntireRow.Hidden = True
Else
Range("a2:a5,a9").EntireRow.Hidden = False
If Range("a1").Value > 5 And Range("a1").Value < 10 Then
Range("a2:a9").EntireRow.Hidden = False
End If
End If
End If
End Sub
Bạn có thể giúp mình viết lại với cấu trúc Select Case được không?Mình mới bước đầu tập làm quen với VBA thôi.Chân thành cảm ơn trước.Bài này của bạn điều kiện có vấn đề. Bạn kiểm tra lại nhé! Trong trường hợp của bài này thì bạn nên dùng cấu trúc Select Case thay If thì hay hơn.
Nhấn Alt F11 copy code phía dưới vào sheet bạn cần thực hiện (tại ô C2 bạn đánh Yes thay cho chữ có, và No thay cho chữ không)Do có thay đổi trong bảng tính nên nhờ các bác giúp vấn đề:
Nếu trong ô C2 là CÓ thì hàng 11 đến hàng 15 ẩn đi,còn trong ô C2 là KHÔNG thì các hàng đó lại hiện ra.
Chân thành cảm ơn trước.
Mình thấy các anh trên GPE hay viết thế này thì gọn hơn nèNhấn Alt F11 copy code phía dưới vào sheet bạn cần thực hiện (tại ô C2 bạn đánh Yes thay cho chữ có, và No thay cho chữ không)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" And Target.Value = "Yes" Then
Range("C11:C15").EntireRow.Hidden = True
End If
If Target.Address = "$C$2" And Target.Value = "No" Or Target.Value = "" Then
Range("C11:C15").EntireRow.Hidden = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
Range("C11:C15").EntireRow.Hidden = UCase(Target) = "YES"
End If
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2