Snasui Excel Forum

อยากเรียนถามทุกท่านครับ
เรียนเขียน VBA ใหม่ครับ ความต้องการคือว่า
ถ้า column B1:B20 มี่ค่าไหนใหญ่กว่า 0 ให้ column A1:A20 ออกค่า TRUE ไม่นั้นให้ออก FALSE แทนครับ

ปรับเป็น

puriwutpokin wrote: Wed Feb 27, 2019 4:14 pm ปรับเป็น

Code: Select all

Sub Macro1()
Dim r As Range
Set rAll = Range("b1:b20")
For Each r In rAll
If r.Value > 0 Then
r.Offset(, -1) = True
Else
r.Offset(, -1) = False
End If
Next
End Sub

สุดยอดครับ ได้ตามต้องการครับ
อยากถามอีกว่า ถ้า b1:b20 มีอันเป็น 0 ให้ hide column นั้นเลยต้องปรับ code ตรงไหนครับ?

ปรับตามนี้ครับ

puriwutpokin wrote: Wed Feb 27, 2019 5:08 pm ปรับตามนี้ครับ

Code: Select all

Sub Macro1()
Dim r As Range
Set rAll = Range("b1:b20")
For Each r In rAll
If r.Value > 0 Then
r.Offset(, -1) = True
Else
r.EntireRow.Hidden = True
End If
Next
End Sub

เก่งมากครับ ได้ตามต้องการเลยครับ

วังวู ช่ง wrote: Wed Feb 27, 2019 6:32 pm

puriwutpokin wrote: Wed Feb 27, 2019 5:08 pm ปรับตามนี้ครับ

Code: Select all

Sub Macro1()
Dim r As Range
Set rAll = Range("b1:b20")
For Each r In rAll
If r.Value > 0 Then
r.Offset(, -1) = True
Else
r.EntireRow.Hidden = True
End If
Next
End Sub

เก่งมากครับ ได้ตามต้องการเลยครับ

ถ้าเราอยากทำหลายๆ sheet พร้อมกันได้ไม่ครับ ถ้าได้จะปรับตรงไหนอีกครับ

ปรับเป็น

puriwutpokin wrote: Wed Feb 27, 2019 7:59 pm ปรับเป็น

Code: Select all

Sub Macro3()
Dim r As Range
Dim i As Integer
For i = 1 To Sheets.Count
With Sheets(i)
Set rAll = .Range("b1:b20")
For Each r In rAll
If r.Value > 0 Then
r.Offset(, -1) = True
Else
r.EntireRow.Hidden = True
End If
Next
End With
Next
End Sub

เก่งมากครับ ขอบคุณมากครับ