VBA เพื่อให้ออกค่า TRUE และ FALSE

[วังวู ช่ง]

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

Code: Select all

Sub Macro1()
If Range("B1:B20").Value > 0 Then
Range("A1:A20") = True
Else
Range("A1:A20") = False
End If
End Sub

[puriwutpokin]

ปรับเป็น

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

[วังวู ช่ง]

ปรับเป็น

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]

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

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

[วังวู ช่ง]

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

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

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

[วังวู ช่ง]

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

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]

ปรับเป็น

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

[วังวู ช่ง]

ปรับเป็น

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

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