Cách tô đậm tiêu đề khi dùng hàm Vlookup và cách liên kết đến Ô có địa chỉ

[hieu998]

Nhờ mọi người giúp cách tô đậm tiêu đề khi dùng hàm Vlookup và cách liên kết đến Ô có địa chỉ. Em xin cảm ơn ạ

 

[qtm1987]

Nhờ mọi người giúp cách tô đậm tiêu đề khi dùng hàm Vlookup và cách liên kết đến Ô có địa chỉ. Em xin cảm ơn ạ

Bạn ghi ngắn gọn quá mình không hiểu ý của bạn lắm.
Vấn đề 1: tô đậm đoạn text trước dấu ":" dùng code này thử

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$6" Then
        Call Bold_Text
    End If
End Sub

Sub Bold_Text()
    Dim vt As Integer   'bien xac dinh vi tri dau :
    Dim d As Integer    'bien xac dinh do dai chuoi tai o hien tai
    Dim aC              'vi tri Bold doan text ket hop vlookup
    With Sheets("Sheet2")
        .Cells(6, 2) = "= ho_va_ten & VLOOKUP(D6,Tb_Data,2,0)"
        .Cells(7, 2) = "=dia_chi & VLOOKUP(D6,Tb_Data,3,0)"
        .Cells(8, 2) = "=so_dien_thoai & VLOOKUP(D6,Tb_Data,4,0)"
        For Each aC In .Range("B6:B8")
            With .Range(aC.Address)
                vt = InStr(1, .Value, ":", 1)
                d = Len(.Value)
                .ClearFormats
                .Formula = .Value
                .Characters(Start:=1, Length:=vt).Font.FontStyle = "Bold"
                .Characters(Start:=vt + 1, Length:=d).Font.FontStyle = "Regular"
            End With
        Next
    End With
End Sub

Vấn đề 2: Liên kết đến ô (mình hiểu là giống Ctrl + F mở hộp thoại tìm kiếm Find and Replace thôi)

Private Sub CommandButton1_Click()
    Dim tk As String
    ActiveSheet.Range("A1").Select
    tk = "CV1"
    With Cells
        .Find(What:=tk, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    End With
    Application.CommandBars("Edit").Controls("Find...").Execute 'dung dialog Find and Replace (gia su co nhieu gia tri CV1)
    'Usf_Find.Show 'Tao userform tiep tuc tim kiem hay khong tim kiem neu khong thich dung Dialog Find and Replace
End Sub

Bạn xem file thử nhé.

 

[hieu998]

Bạn ghi ngắn gọn quá mình không hiểu ý của bạn lắm.
Vấn đề 1: tô đậm đoạn text trước dấu ":" dùng code này thử

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$6" Then
        Call Bold_Text
    End If
End Sub

Sub Bold_Text()
    Dim vt As Integer   'bien xac dinh vi tri dau :
    Dim d As Integer    'bien xac dinh do dai chuoi tai o hien tai
    Dim aC              'vi tri Bold doan text ket hop vlookup
    With Sheets("Sheet2")
        .Cells(6, 2) = "= ho_va_ten & VLOOKUP(D6,Tb_Data,2,0)"
        .Cells(7, 2) = "=dia_chi & VLOOKUP(D6,Tb_Data,3,0)"
        .Cells(8, 2) = "=so_dien_thoai & VLOOKUP(D6,Tb_Data,4,0)"
        For Each aC In .Range("B6:B8")
            With .Range(aC.Address)
                vt = InStr(1, .Value, ":", 1)
                d = Len(.Value)
                .ClearFormats
                .Formula = .Value
                .Characters(Start:=1, Length:=vt).Font.FontStyle = "Bold"
                .Characters(Start:=vt + 1, Length:=d).Font.FontStyle = "Regular"
            End With
        Next
    End With
End Sub

Vấn đề 2: Liên kết đến ô (mình hiểu là giống Ctrl + F mở hộp thoại tìm kiếm Find and Replace thôi)

Private Sub CommandButton1_Click()
    Dim tk As String
    ActiveSheet.Range("A1").Select
    tk = "CV1"
    With Cells
        .Find(What:=tk, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    End With
    Application.CommandBars("Edit").Controls("Find...").Execute 'dung dialog Find and Replace (gia su co nhieu gia tri CV1)
    'Usf_Find.Show 'Tao userform tiep tuc tim kiem hay khong tim kiem neu khong thich dung Dialog Find and Replace
End Sub

Bạn xem file thử nhé.

Dạ em cảm ơn Anh nhiều ạ. Nhờ A giúp nội dung 2 đó là Em muốn khi nhấn nút Liên kết đến ô có địa chỉ (các ô đó vẫn áp dụng công thức và chỉ tìm trong phạm vi cột D). Hiện tại theo code trên chỉ tìm được các dữ liệu có số chết (khi áp dụng công thức thì không liên kết được). Em xin gửi File ạ

 

[hieu998]

Nhờ Anh

qtm1987 giúp em nội dung trên với được không ạ. Cảm ơn Anh!​

 

[hieu998]

Dạ em cảm ơn Anh nhiều ạ. Nhờ A giúp nội dung 2 đó là Em muốn khi nhấn nút Liên kết đến ô có địa chỉ (các ô đó vẫn áp dụng công thức và chỉ tìm trong phạm vi cột D). Hiện tại theo code trên chỉ tìm được các dữ liệu có số chết (khi áp dụng công thức thì không liên kết được). Em xin gửi File ạ

Nhờ Anh qtm1987 giúp em nội dung này với ạ. Cảm ơn Anh!

 

[batman1]

Nhờ Anh qtm1987 giúp em nội dung này với ạ. Cảm ơn Anh!

1. Nếu đã "Nhờ Anh qtm1987 giúp em nội dung này với ạ" mà không thấy phản hồi thì lần thứ 2 không nên lặp lại nội dung đó. Lần 2 nên ghi rõ là nhờ TẤT CẢ mọi người. Rất có thể ai đó không tham gia khi bạn nhờ người khác. Ăn có mời làm có khiến bạn ạ. Người ta gọi thẳng tên để nhờ mà mình lao vào thì vô duyên lắm.

2. Nếu tôi hiểu ý, hiểu vấn đề mà bạn đề cập, thì bạn không tìm thấy ở những ô có công thức bởi bạn có

.Find(What:=tk1, After:=ActiveCell, LookIn:=xlFormulas, _

Phải là

.Find(What:=tk1, After:=ActiveCell, LookIn:=xlValues, _

Tất nhiên nếu bạn nói mục đích cuối cùng thì biết đâu có thể dùng cách khác.

 

[hieu998]

Vâng em xin rút kinh nghiệm và cảm ơn Anh batman1 ạ. Bởi vì nội dung trước e đăng nhưng đợi hơi lâu sau đó thấy anh qtm1987 vào giúp đỡ nên mới mong chờ lại Anh qtm1987 . Một lần nữa xin cảm ơn 2 anh qtm1987 và batman1!