Không mở file được
Do tập tin có mật khẩu nên không xem được, vậy tiếp theo chỉ là đoán mò.
Em ẩu quá bác ạ. Mật khẩu là p bác ạ. Bác giúp em với ạ
Em quên không bỏ mật khẩu bác ạ. Lẫn quá . Hì. Mật khẩu là p ạ. Bác xem giúp em với ạ
Em quên không bỏ mật khẩu bác ạ. Lẫn quá . Hì. Mật khẩu là p ạ. Bác xem giúp em với ạ
Bạn muốn "tự động chạy" khi nào, khi thay đổi cái gì?
Kết quả là chuỗi "0" không phải số 0
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Address = "$K$1" Then
Application.ScreenUpdating = False
For Each Rng In [A39:A42]
If Rng.Value <> "0" Then
Rng.EntireRow.Hidden = False
Else
Rng.EntireRow.Hidden = True
End If
Next Rng
Application.ScreenUpdating = True
End If
End Subdạ ý em là khi giá trị ở ô em tô mầu vàng bên sheet hợp đồng = 0 thì hàng đó tự động ẩn đi, giá trị khác 0 thì hiện bác ạ
bác ơi, bác à, em coppy pate vào rồi sao không chạy bác nhề, bác giúp em với ạ ạ ạ.
Như tôi đã đoán mò ở bài #3, bạn dùng Worksheet_Change. Nhưng sub Worksheet_Change không được gọi để thực thi khi sự thay đổi của ô/vùng là do công thức trong ô/vùng, và vài nguyên nhân khác. Trong A39:A42 có công thức mà như trên tôi viết sự thay đổi trong các ô đó không kéo theo việc thực thi Worksheet_Change. Sự thay đổi trong A39:A42 lại do K1 gây ra. Nhưng sự thay đổi trong K1 cũng không kéo theo việc thực hiện Worksheet_Change do K1 chỉ liên kết với "Spinner 4". Tuy nhiên sự thay đổi trong K1 là do việc nhấn "Spinner 4" gây ra. Vậy có thể gán macro cho "Spinner 4".
Sub Spinner4_Change()
Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In [A39:A42]
Rng.EntireRow.Hidden = Rng.Value = "0"
Next Rng
Application.ScreenUpdating = True
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Address = "$K$1" Then
Application.ScreenUpdating = False
For Each Rng In [A39:A42]
Rng.EntireRow.Hidden = Rng.Value = "0"
Next Rng
Application.ScreenUpdating = True
End If
End Sub
em làm được rồi bác ạ, Ơ mây zing gút chóp bác. Em xin chân thành cám ơn bác nhiều nhé
em làm được rồi bác ạ, Ơ mây zing gút chóp bác. Em xin chân thành cám ơn bác nhiều nhé
Từ này giành cho bên cao nói với bên thấp.... em làm được rồi bác ạ, Ơ mây zing gút chóp bác. Em xin chân thành cám ơn bác nhiều nhé
Tôi không biết dành cho ai vì tôi không hiểu "Ơ mây zing gút chóp" là gì. Rất nhiều khi tôi không hiểu những cách nói như thế nhưng tôi không hỏi vì những kiến thức kiểu đó không hữu ích với tôi.
Tôi không chủ ý nói với thớt.
Hì , bác khó tính quá, em nói cho vui thôi mà. mồm nói thế nhưng ý em là không thế đâu.
em bắt chước 1 câu nói trending thôi, ý của em là rất chân thành cám ơn bác đã bỏ thời gian của mình để giúp đỡ em thôi ạ
Không nên như thế đối với người giúp mình, người lớn tuổi hơn (hoặc không biết có lớn hơn không), và quan trọng là trên diễn đàn này, viết như vậy là vi phạm nội quy.
Đó là tác hại của truyền thông mà các "ngài" bên thông tin văn hoá không học không biết thậm chí cho là hay
Dạ vâng. Lần sau em sẽ rút kinh nghiệm ạ. Vì em còn trẻ có thể chưa hiểu chuyện lắm. Ko biết trên diễn đàn này có các anh các chị khác tầm tuổi mình nên nói những từ ko đúng chỗ. Nhưng chỉ mong các bác hiểu là em đc tham gia vào diễn đàn và nhờ các anh chị giúp đỡ, chỉ bảo là vinh dự của em. Vì em với anh chị chả quen biết gì mà anh chị bỏ thời gian giúp đỡ em cũng như mọi người khác ko công là điều rất đáng quý ạ
Các thành viên sẽ vui hơn nếu bạn chịu khó không viết tắt trong bài viết vì không chắc tất cả đều hiểu được nghĩa từ viết tắt của bạn, điều đó có thể dẫn đến sự hạn chế thời gian hoàn thành công việc nói riêng cũng như sự hiểu lầm về các vấn đề khác nói chung. Mong bạn lưu ý hơn.
Vâng ạ. Lần sau em sẽ lưu ý ạ
Bác ạ, bác ơi bác giúp em thêm 1 vấn đề nữa được không ạ. Sau khi em là xong và khóa Protect Sheet lại, nhưng khi ấn Spinner 4 thì báo lỗi : " runtime error #1004 "unable to set hidden property of range class". Có cách nào khắc phục không bác. Vì em dùng máy tính cơ quan, dữ liệu liên quan đến kinh phí xin công ty hỗ trợ tiền cho bà con làm ruộng, ai mà vui tính thêm vài số 0 là em bán nhà nên bắt buộc em phải khóa bác ạ. Em xin chân thành cám ơn bác ạ
Làm từ thiện thì cái mục đích từ thiện là chính. Tìm cách quản lý dữ liệu trong khả năng của mình.
bác ơi, em cũng tự mò các chỗ hết rồi, ngồi nghiên cứu từ hôm qua tới giờ mà ngu quá không nghĩ ra, chỗ nào em ngu em mới hỏi thôi bác ạ, chứ em biết các bác cũng bận mà. Khổ cái máy cơ quan, đã từng có người bị nghịch tài liệu rồi em mới bày vẽ ra như thế bác ạ, 1 năm em làm 3 lần hồ sơ nếu không vba làm cho nhanh thì làm không kịp bác ạ
