Hỏi Formula trong VBA

[minhxaydungvinh]

Mình có 1 đoan mã VBA sau:

Sub TongHopTCVN()
    Dim t As Variant
    For Each cls In Sheet1.Range("B4:K4")
        If cls <> "" Then
            Select Case cls.Column
                Case Is = 2
                    t = t & "=IF((B4<>"""")*(C4<>"""");B4&""; "";IF((B4<>"""")*(C4="""");B4&""."";""""))"
                Case Is = 3
                    t = t & "&" & "IF((C4<>"""")*(D4<>"""");C4&""; "";IF((C4<>"""")*(D4="""");C4&""."";""""))"
                Case Is = 4
                    t = t & "&" & "IF((D4<>"""")*(E4<>"""");D4&""; "";IF((D4<>"""")*(E4="""");D4&""."";""""))"
                Case Is = 5
                    t = t & "&" & "IF((E4<>"""")*(F4<>"""");E4&""; "";IF((E4<>"""")*(F4="""");E4&""."";""""))"
                Case Is = 6
                    t = t & "&" & "IF((F4<>"""")*(G4<>"""");F4&""; "";IF((F4<>"""")*(G4="""");F4&""."";""""))"
            End Select
        End If
    Next
    t1 = """"
    t2 = """"
    t = t1 & t & t2
    Range("H4").Formula = t
End Sub

Nhưng kết quả ở ô H4 lại là chuỗi. Có cách nào để nó hiển thị giống như ô I4 trong file đính kèm không?
Mong mọi người giúp mình sửa code với

 

[minhxaydungvinh]

Không có ai giúp mình được sao

 

[PacificPR]

Không có ai giúp mình được sao

Bạn thử cái này xem sao

Function TongHopTCVN(Rng As Range) As String
    Dim Str As String, DK As Boolean
DK = False
For Each Cll In Rng
    If Cll <> Empty Then
        If Str = "" Then
            Str = Cll
        Else
            Str = Str & "; " & Cll
        End If
        DK = True
    End If
Next
If DK = True Then TongHopTCVN = Str & "."
End Function

Công thức: H4=TongHopTCVN(B4:G4)

 

[minhxaydungvinh]

Bạn thử cái này xem sao

Function TongHopTCVN(Rng As Range) As String
    Dim Str As String, DK As Boolean
DK = False
For Each Cll In Rng
    If Cll <> Empty Then
        If Str = "" Then
            Str = Cll
        Else
            Str = Str & "; " & Cll
        End If
        DK = True
    End If
Next
If DK = True Then TongHopTCVN = Str & "."
End Function

Công thức: H4=TongHopTCVN(B4:G4)

Cảm ơn bạn nhiều. Thế này mà mình cứ loay hoay cả chiều nay. Nhiều khi cứ tự làm khó mình