Mong anh chị giúp em thêm 1 đoạn code tô màu dòng! (1 người xem)

[hoatinhyeu862000]

Em đã có 1 đoạn code tính tổng bẳng cách kéo vùng vd như kéo chọn cột A1 - A10 sau đó kick chuột phải vào chỗ đã chọn thì nó sẽ tự động thêm hàm sum vào ô B10 giờ mong các thầy cô giúp đỡ thêm đoạn code cùng với lúc thao tác kick chuột phải thì nó sẽ tự đông Bồi màu giống như trong vd hết dòng 10 ạ. Cảm ơn thầy cô.

 

[leonguyenz]

Em đã có 1 đoạn code tính tổng bẳng cách kéo vùng vd như kéo chọn cột A1 - A10 sau đó kick chuột phải vào chỗ đã chọn thì nó sẽ tự động thêm hàm sum vào ô B10 giờ mong các thầy cô giúp đỡ thêm đoạn code cùng với lúc thao tác kick chuột phải thì nó sẽ tự đông Bồi màu giống như trong vd hết dòng 10 ạ. Cảm ơn thầy cô.

Bạn thêm lệnh tô màu trong Sub Tong:
[gpecode=vb]
Public Sub Tong()
Dim DC As String, R As Long
DC = Selection.Address
R = Selection.Rows.Count
Selection.Resize(1, 1).Offset(R - 1, 1).Value = "=Sum(" & DC & ")"
Selection.Resize(1, 1).Offset(R - 1, 1).Interior.ColorIndex = 16
End Sub
[/gpecode]

 

[hoatinhyeu862000]

Bạn thêm lệnh tô màu trong Sub Tong:
[gpecode=vb]
Public Sub Tong()
Dim DC As String, R As Long
DC = Selection.Address
R = Selection.Rows.Count
Selection.Resize(1, 1).Offset(R - 1, 1).Value = "=Sum(" & DC & ")"
Selection.Resize(1, 1).Offset(R - 1, 1).Interior.ColorIndex = 16
End Sub
[/gpecode]

Anh leo ơi anh xem lại giúp em với bị lỗi dòng thêm vào anh ạ. cảm ơn anh với lại ý em là để cả dòng đó tô màu chứ k phải ô đó đc tô màu anh ạ. em gửi luôn file anh giúp đỡ em.

 

[leonguyenz]

Anh leo ơi anh xem lại giúp em với bị lỗi dòng thêm vào anh ạ. cảm ơn anh với lại ý em là để cả dòng đó tô màu chứ k phải ô đó đc tô màu anh ạ. em gửi luôn file anh giúp đỡ em.

Code chuột phải sửa lại:
[gpecode=vb]
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [A:A]) Is Nothing Then
If Target.Columns.Count = 1 Then
Tong
Cancel = True
End If
End If
End Sub
[/gpecode]
Tô cả dòng:
[gpecode=vb]
Public Sub Tong()
Dim DC As String, R As Long
DC = Selection.Address
R = Selection.Rows.Count
Selection.Resize(1, 1).Offset(R - 1, 1).Value = "=Sum(" & DC & ")"
Selection.Resize(1, 255).Offset(R - 1).Interior.ColorIndex = 16
End Sub
[/gpecode]