Em Hỏi Khai báo biến VBA (1 người xem)

[0954010823]

• Sub HideRows()
  
• Application.ScreenUpdating = False
  
• Application.Calculation = xlManual
  
• For Each c In Range("E3:E13")
  
• If c.Value = 0 Or c.Value = "0" Then Rows(c.Row).Hidden = True
  
• Next
  
• Application.Calculation = xlAutomatic
  
• Application.ScreenUpdating = True
  
• End Sub
  Em hỏi C là cái gì em xóa dòng 2, 3, 7, 8 đi khai báo thì chương trình k chạy còn k khai báo chương trình lại chạy.. Mong a(c) giải thích cho e hiểu với ạ..

 

[SA_DQ]

Từ câu lệnh

 For Each c In Range("E3:E13")

Ta biết rằng C là 1 biến "biểu thị" là 1 vùng ô (Range)
Ta nên khai báo

Dim C As Range

cho nó lành!

 

[giaiphap]

• Sub HideRows()
• Application.ScreenUpdating = False
• Application.Calculation = xlManual
• For Each c In Range("E3:E13")
• If c.Value = 0 Or c.Value = "0" Then Rows(c.Row).Hidden = True
• Next
• Application.Calculation = xlAutomatic
• Application.ScreenUpdating = True
• End Sub
  Em hỏi C là cái gì em xóa dòng 2, 3, 7, 8 đi khai báo thì chương trình k chạy còn k khai báo chương trình lại chạy.. Mong a(c) giải thích cho e hiểu với ạ..

Vầy nè bạn
Dim c As Range

 

[Kiều Mạnh]

• Sub HideRows()
• Application.ScreenUpdating = False
• Application.Calculation = xlManual
• For Each c In Range("E3:E13")
• If c.Value = 0 Or c.Value = "0" Then Rows(c.Row).Hidden = True
• Next
• Application.Calculation = xlAutomatic
• Application.ScreenUpdating = True
• End Sub
  Em hỏi C là cái gì em xóa dòng 2, 3, 7, 8 đi khai báo thì chương trình k chạy còn k khai báo chương trình lại chạy.. Mong a(c) giải thích cho e hiểu với ạ..

Nếu bạn chưa rành As Nọ ... As Kia thì Cứ Dim a,b,c,e,..........xyxz cho nó chạy đi xong tính tiếp
Cái này nó cũng hổ trợ ít nhiều nè tham khảo thêm: MsgBox TypeName(c)...tuy nhiên có những biến nó ứ cho biết ....

 

[VetMini]

• Sub HideRows()
• Application.ScreenUpdating = False
• Application.Calculation = xlManual
• For Each c In Range("E3:E13")
• If c.Value = 0 Or c.Value = "0" Then Rows(c.Row).Hidden = True
• Next
• Application.Calculation = xlAutomatic
• Application.ScreenUpdating = True
• End Sub
  Em hỏi C là cái gì em xóa dòng 2, 3, 7, 8 đi khai báo thì chương trình k chạy còn k khai báo chương trình lại chạy.. Mong a(c) giải thích cho e hiểu với ạ..

Dòng 2, 3 của bạn là
Application.ScreenUpdating = False
Application.Calculation = xlManual
Dòng 7, 8 là
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True

Tôi xoá những dòng ấy đi, code còn lại
Sub HideRows()
'Application.ScreenUpdating = False
'Application.Calculation = xlManual
For Each c In Range("E3:E13")
If c.Value = 0 Or c.Value = "0" Then Rows(c.Row).Hidden = True
Next
'Application.Calculation = xlAutomatic
'Application.ScreenUpdating = True
End Sub

Chạy tuốt luốt. Không chạy chỗ nào?

Hỏi bài thì nói chuyện cặn kẽ, tránh viết tắt. Trong lập trình k tượng trương cho 1 số đếm, lúc hỏi bài thì tuyệt không dùng k để trhay cho chữ "không". Trong ngôn ngữ, "e" còn có nghĩa là "ngại". Cứ tự xét nếu những người khác trả lời cho bạn cũng viết tắt tùm lum thì bạn có hiểu gì không.