Giúp hiển thị tên theo tiêu đề vùng dữ liệu (1 người xem)

[thanh tong]

Mình cần nhờ các bạn giúp mình code hiển thị tên tiêu đề vùng dữ liệu khi đang làm việc.
Các bạn đọc file mình gửi kèm và giúp mình nhé!
Cảm ơn các bạn.

 

[Quang_Hải]

Mình cần nhờ các bạn giúp mình code hiển thị tên tiêu đề vùng dữ liệu khi đang làm việc.
Các bạn đọc file mình gửi kèm và giúp mình nhé!
Cảm ơn các bạn.

Chắc đại loại là thế này

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(5, Target.Column) <> "" Then
   [k1] = Cells(5, Target.Column)
Else
   [k1] = Cells(5, Target.Column - 1)
End If
End Sub

 

[thanh tong]

Chắc đại loại là thế này

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(5, Target.Column) <> "" Then
   [k1] = Cells(5, Target.Column)
Else
   [k1] = Cells(5, Target.Column - 1)
End If
End Sub

Nhưng bạn QuangHai ơi cái code này không có giới hạn dòng à?.Mình thực hiện thử thì được nhưng khi vượt qua số dòng trong dữ liệu thì nó vẫn chạy

 

[Quang_Hải]

Nhưng bạn QuangHai ơi cái code này không có giới hạn dòng à?.Mình thực hiện thử thì được nhưng khi vượt qua số dòng trong dữ liệu thì nó vẫn chạy

Sửa lại số 5 và số 100 theo yêu cầu thực tế

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If target.row > 5 and target.row < 100 then
If Cells(5, Target.Column) <> "" Then
   [k1] = Cells(5, Target.Column)
Else
   [k1] = Cells(5, Target.Column - 1)
End If
end if
End Sub

 

[thanh tong]

Sửa lại số 5 và số 100 theo yêu cầu thực tế

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If target.row > 5 and target.row < 100 then
If Cells(5, Target.Column) <> "" Then
   [k1] = Cells(5, Target.Column)
Else
   [k1] = Cells(5, Target.Column - 1)
End If
end if
End Sub

Cảm ơn bạn nhiều
Mình cũng vừa tìm ra giới hạn vùng thực hiện code rồi
"Dim Rng As RangeSet Rng = Range("c4:ao34")
If Not Intersect(Target, Rng) Is Nothing Then

 

[ndu96081631]

Cảm ơn bạn nhiều
Mình cũng vừa tìm ra giới hạn vùng thực hiện code rồi
"Dim Rng As RangeSet Rng = Range("c4:ao34")
If Not Intersect(Target, Rng) Is Nothing Then

Tôi làm bằng công thức thấy cũng được như thường:

=INDIRECT(ADDRESS(5,INT(CELL("col")/2)*2+NOW()*0))

Công thức trên gõ tại cell K1

 

[thanh tong]

Tôi làm bằng công thức thấy cũng được như thường:

=INDIRECT(ADDRESS(5,INT(CELL("col")/2)*2+NOW()*0))

Công thức trên gõ tại cell K1

Bác Du ơi! sao em làm thử bằng công thức của bác nó lúc thì chạy lúc thì không vậy?

 

[ndu96081631]

Bác Du ơi! sao em làm thử bằng công thức của bác nó lúc thì chạy lúc thì không vậy?

Khi nào bạn gõ gì đó (nhập liệu) thì nó chạy
Nếu bạn chỉ Select mà không gõ gì thì nó sẽ im re. Trường hợp này muốn cập nhật lại địa chỉ ActiveCell, bạn bấm F9 sẽ có ngay kết quả mới nhất

 

[thanh tong]

Hóa ra là như vậy.
Cảm ơn Bác