Cách copy giá trị trong VBA

[duc22101992]

Mọi người cho e hỏi, có code nào mà khi mình click nút bottum thì có chỉ lấy giá trị text ở ô đó thôi, không lấy công thức, hàm,... gì hết
ví dụ như hình dưới, ô (C2) bằng 2(E2)+3(F3). ô (C2) đang là công thức cộng. Bây giờ e muốn click vào cái nút kia là nó sẽ copy ô (C2), nhưng chỉ là copy text thôi. Ô E2&F2 là mình diễn tả thôi, mục đích là copy text của ô C2, để past vào chỗ khác (ko phải past trong excel).

 

[Nhattanktnn]

Mọi người cho e hỏi, có code nào mà khi mình click nút bottum thì có chỉ lấy giá trị text ở ô đó thôi, không lấy công thức, hàm,... gì hết
ví dụ như hình dưới, ô (C2) bằng 2(E2)+3(F3). ô (C2) đang là công thức cộng. Bây giờ e muốn click vào cái nút kia là nó sẽ copy ô (C2), nhưng chỉ là copy text thôi
View attachment 281764

Range("C2").value = Range("E2").value + Range("F2").value

 

[duc22101992]

Range("C2").value = Range("E2").value + Range("F2").value

ý mình ko phải vậy bạn. Ô E2&F2 là mình diễn tả thôi, mục đích là copy text của ô C2, để past vào chỗ khác (ko phải past trong excel).

 

[Nhattanktnn]

ý mình ko phải vậy bạn. Ô E2&F2 là mình diễn tả thôi, mục đích là copy text của ô C2, để past vào chỗ khác (ko phải past trong excel).

Thử lại cái này:

Sub Button1_Click()
    CopyText Sheets("Sheet1").Range("C2").Value
End Sub
Sub CopyText(Text As String)
    Dim MSForms_DataObject As Object
    Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    MSForms_DataObject.SetText Text
    MSForms_DataObject.PutInClipboard
    Set MSForms_DataObject = Nothing
End Sub

 

[duc22101992]

Thử lại cái này:

Sub Button1_Click()
    CopyText Sheets("Sheet1").Range("C2").Value
End Sub
Sub CopyText(Text As String)
    Dim MSForms_DataObject As Object
    Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    MSForms_DataObject.SetText Text
    MSForms_DataObject.PutInClipboard
    Set MSForms_DataObject = Nothing
End Sub

thanks bạn. code bạn ok rồi nha. cảm ơn bạn nhiều