Giúp dùm mình điều chỉnh code tô màu ô (1 người xem)

[titanic]

CODE là như thế này:

Option Explicit


Private Sub CommandButton1_Click()
Dim nguon(), vung, cell, n
n = [A65536].End(3).Row
nguon = Array("B1:B" & n, "G1:G" & n, "L1:L" & n, "Q1:Q" & n)
With ActiveSheet.CommandButton1
For Each vung In nguon
If .Caption = "TO MAU" Then
For Each cell In Range(vung)
If Val(cell) < 1 Then
cell.Interior.ColorIndex = 15
End If
Next
Else
Range(vung).Interior.ColorIndex = xlNone
End If
Next
.Caption = IIf(.Caption = "TO MAU", "XOA MAU", "TO MAU")
End With
End Sub

khi em xoa bớt các cột U,V,W thì nó không còn tô màu được nữa nó bị
lỗi ở câu lệnh If Val(cell) < 1 Then
chỉ dùm cách khắc phục. cám ơn

 

[titanic]

các anh/chị cần thêm thông tin gì nữa không ? em sẽ cung cấp thêm

 

[Ngoai Thanh]

các anh/chị cần thêm thông tin gì nữa không ? em sẽ cung cấp thêm

tốt hơn hết là bạn đưa file lên , theo mình thì lỗi chưa chắc đã phải do code .

 

[titanic]

CODE là như thế này:

Option Explicit


Private Sub CommandButton1_Click()
Dim nguon(), vung, cell, n
n = [A65536].End(3).Row
nguon = Array("B1:B" & n, "G1:G" & n, "L1:L" & n, "Q1:Q" & n)
With ActiveSheet.CommandButton1
For Each vung In nguon
If .Caption = "TO MAU" Then
For Each cell In Range(vung)
If Val(cell) < 1 Then
cell.Interior.ColorIndex = 15
End If
Next
Else
Range(vung).Interior.ColorIndex = xlNone
End If
Next
.Caption = IIf(.Caption = "TO MAU", "XOA MAU", "TO MAU")
End With
End Sub

khi em xoa bớt các cột U,V,W thì nó không còn tô màu được nữa nó bị
lỗi ở câu lệnh If Val(cell) < 1 Then
chỉ dùm cách khắc phục. cám ơn
CHO MÌNH HỎI THÊM. cách nối dày cái bảng đó được nhanh nhất không chứ làm thủ công từ cột lâu quá

 

[Ngoai Thanh]

CODE là như thế này:

Option Explicit


Private Sub CommandButton1_Click()
Dim nguon(), vung, cell, n
n = [A65536].End(3).Row
nguon = Array("B1:B" & n, "G1:G" & n, "L1:L" & n, "Q1:Q" & n)
With ActiveSheet.CommandButton1
For Each vung In nguon
If .Caption = "TO MAU" Then
For Each cell In Range(vung)
If Val(cell) < 1 Then
cell.Interior.ColorIndex = 15
End If
Next
Else
Range(vung).Interior.ColorIndex = xlNone
End If
Next
.Caption = IIf(.Caption = "TO MAU", "XOA MAU", "TO MAU")
End With
End Sub

khi em xoa bớt các cột U,V,W thì nó không còn tô màu được nữa nó bị
lỗi ở câu lệnh If Val(cell) < 1 Then
chỉ dùm cách khắc phục. cám ơn
CHO MÌNH HỎI THÊM. cách nối dày cái bảng đó được nhanh nhất không chứ làm thủ công từ cột lâu quá

Bạn xem file xem được chưa ? khi cần thêm dữ liệu thì cột A số TT đến đâu, thì mầu được tô đến đó .

 

[titanic]

cũng gần giống với ý mình . nhưng khác ở chỗ khi nào có nội dung bằng ký tự thì nó mới tô mau. vi du: sim cặp cuối. cho mình hỏi nó khai báo VUNG ở đâu trong VBS vậy ? để mình điều chỉnh lại

 

[Ngoai Thanh]

cũng gần giống với ý mình . nhưng khác ở chỗ khi nào có nội dung bằng ký tự thì nó mới tô mau. vi du: sim cặp cuối. cho mình hỏi nó khai báo VUNG ở đâu trong VBS vậy ? để mình điều chỉnh lại

Mính có cảm giác bạn dùng file của người khác làm của mình thì phải . Nếu bạn đã tải về thì kiểm tra xem code sửa thế đã đúng ý bạn chưa ? Cám ơn bạn vì bạn đã hỏi ;

 

[titanic]

không phải tải của người khác. mà mình thuê người ta viết 1 file excel để quản lí kho hàng, bây giờ không liên lach được nữa với người viết code do cũng quen tren web ne cũng lâu rồi. Bây giờ mà mình đang cần thay đổi một chút nên muốn sửa lại nhưng không biết cách vì execel mình cũng không rành lắm nên mọi người giúp dùm. bạn làm được thì mình cảm ơn hoặc trả 1 khoản phí nào đó.

 

[Ngoai Thanh]

không phải tải của người khác. mà mình thuê người ta viết 1 file excel để quản lí kho hàng, bây giờ không liên lach được nữa với người viết code do cũng quen tren web ne cũng lâu rồi. Bây giờ mà mình đang cần thay đổi một chút nên muốn sửa lại nhưng không biết cách vì execel mình cũng không rành lắm nên mọi người giúp dùm. bạn làm được thì mình cảm ơn hoặc trả 1 khoản phí nào đó.

Bạn đưa dữ liệu giả định giống file thật lên, mọi người sẽ giúp, các thầy còn chả nghĩ chuyện tính phí nữa là lớp hậu sinh . Nhưng nút cám ơn thì có mất gì đâu và khi người khác giúp đúng ý hay không thì bạn phải phản hồi . Nếu người này không giúp được thì đã có người khác . Vài lời chia sẻ .