in đậm dòng chọn

Liên hệ QC

Minh Đức 1309

Thành viên chính thức
Tham gia
23/11/17
Bài viết
64
Được thích
3
Giới tính
Nam
em có 1 bảng tính gôm 2 cột a,b.Em muốn khi chọn cột B vd:B1 thì sẽ tô màu ô A1 và khi di chuyển vùng chọn thì sẽ di chuyện vùng in lên ở cột A theo
 
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Static xRow
Static xColumn

If xRow <> "" Then

With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Rows(pRow).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End Sub

E có đoạn code sau mà nó in đậm cả 1 row và cả trang tính luôn,em chỉ muốn n in đậm khi minh chọn vào bảng và n chỉ in đậm dòng trong bảng thì làm ntn ạ
 
Web KT
Back
Top Bottom