Add text bất thành (1 người xem)

[buihien101]

Các bạn ơi cho mình hỏi. Mình muốn tạo macro để:

thêm nội dung cho ô C1.
Ví dụ nội dung ô C1 hiện nay là Toiyeuem.

Macro sẽ add thêm text vào ô C1, nội dung ô C1 trở thành:

<ahref="#a1">toiyeuem

Làm thế nào đây?
Mình đã thử code sau nhưng không thành công:

Sub test()
Range("C1").Value = "<ahref="#a1">"&Range("C1").Value
End Sub

Ai biết xin mách dùm.
Cảm ơn nhiều ạ.

 

[nghiaphuc]

Các bạn ơi cho mình hỏi. Mình muốn tạo macro để:
thêm nội dung cho ô C1.
Ví dụ nội dung ô C1 hiện nay là Toiyeuem.
Macro sẽ add thêm text vào ô C1, nội dung ô C1 trở thành:

<ahref="#a1">toiyeuem

Làm thế nào đây?
Mình đã thử code sau nhưng không thành công:

Sub test()
Range("C1").Value = "<ahref="#a1">"&Range("C1").Value
End Sub

Ai biết xin mách dùm.
Cảm ơn nhiều ạ.

Bạn sửa lại câu lệnh thành như vầy là được (chú ý chỗ màu đỏ):

Range("C1").Value = "<ahref=[B][COLOR=#ff0000]""[/COLOR][/B]#a1[B][COLOR=#ff0000]""[/COLOR][/B]>" & Range("C1").Value

 

[buihien101]

Great

"<ahref="#a1">"  
change: "<ahref=[B][COLOR=#ff0000]""[/COLOR][/B]#a1[B][COLOR=#ff0000]""[/COLOR][/B]>"