Copy dữ liệu trong 1 ô trong excel

[club_k]

Xin chào các anh chị,
Hiện em đang gặp vướng mắc với việc copy dữ liệu từ excel sang 1 phần mềm khác.
Khi em copy dữ liệu mà copy cả cel (ví dụ như A1) thì khi paste sang phần mềm thì sẽ gặp các ký tự trống đằng sau dẫn tới việc trace dữ liệu bị sai.
Nếu em F2 cel và quét các ký tự trong cel và copy thì khi paste sang không bị thừa ký tự trống sau các số của cel.
Vậy có cách nào dùng macro để ghi lại cách thứ 2 không ạ
E cám ơn !

 

[LamNA]

Xin chào các anh chị,
Hiện em đang gặp vướng mắc với việc copy dữ liệu từ excel sang 1 phần mềm khác.
Khi em copy dữ liệu mà copy cả cel (ví dụ như A1) thì khi paste sang phần mềm thì sẽ gặp các ký tự trống đằng sau dẫn tới việc trace dữ liệu bị sai.
Nếu em F2 cel và quét các ký tự trong cel và copy thì khi paste sang không bị thừa ký tự trống sau các số của cel.
Vậy có cách nào dùng macro để ghi lại cách thứ 2 không ạ
E cám ơn !

Góp ý bạn nên gửi file đính kèm để được hỗ trợ nhanh

 

[club_k]

Tks anh @LamNA ,
Em gửi file như bên dưới ạ, em đã ghi macro để copy tuy nhiên khi dán sang word thì nó bị nhảy dòng, cái em cần là chuỗi ký tự được copy và paste sang word sẽ không bị nhảy dòng (không có ký tự thừa phía sau)
E cám ơn ạ

 

[snow25]

Xin chào các anh chị,
Hiện em đang gặp vướng mắc với việc copy dữ liệu từ excel sang 1 phần mềm khác.
Khi em copy dữ liệu mà copy cả cel (ví dụ như A1) thì khi paste sang phần mềm thì sẽ gặp các ký tự trống đằng sau dẫn tới việc trace dữ liệu bị sai.
Nếu em F2 cel và quét các ký tự trong cel và copy thì khi paste sang không bị thừa ký tự trống sau các số của cel.
Vậy có cách nào dùng macro để ghi lại cách thứ 2 không ạ
E cám ơn !

Bạn có thể dùng Hàm để cắt ký tự trống.Hoặc dùng record macro.Ghi lại thao tác của mình.

 

[club_k]

Bạn có thể dùng Hàm để cắt ký tự trống.Hoặc dùng record macro.Ghi lại thao tác của mình.

Cám ơn anh/chị
Em đã ghi lại nhưng không ghi được case 2 ạ

 

[LamNA]

Tks anh @LamNA ,
Em gửi file như bên dưới ạ, em đã ghi macro để copy tuy nhiên khi dán sang word thì nó bị nhảy dòng, cái em cần là chuỗi ký tự được copy và paste sang word sẽ không bị nhảy dòng (không có ký tự thừa phía sau)
E cám ơn ạ

Mình vẩn chưa hiểu ý bạn

 

[giaiphap]

Tks anh @LamNA ,
Em gửi file như bên dưới ạ, em đã ghi macro để copy tuy nhiên khi dán sang word thì nó bị nhảy dòng, cái em cần là chuỗi ký tự được copy và paste sang word sẽ không bị nhảy dòng (không có ký tự thừa phía sau)
E cám ơn ạ

Bạn xem thử đúng yêu cầu của mình hay chưa.

 

[CHAOQUAY]

Tks anh @LamNA ,
Em gửi file như bên dưới ạ, em đã ghi macro để copy tuy nhiên khi dán sang word thì nó bị nhảy dòng, cái em cần là chuỗi ký tự được copy và paste sang word sẽ không bị nhảy dòng (không có ký tự thừa phía sau)
E cám ơn ạ

Kết quả mong muốn là thế nào

 

[club_k]

Bạn xem thử đúng yêu cầu của mình hay chưa.

Cám ơn anh,
Đúng rồi ạ, anh ơi nếu em muốn cố định 1 ô để khi nhấn vào đó thì nó copy có được không ạ.
Em cám ơn !

 

[club_k]

Kết quả mong muốn là thế nào

Cám ơn anh,
Em đã làm được rồi ạ

 

[club_k]

Dear các anh chị,
Em đã xong file tuy nhiên trong file của em khi lấy ảnh QR code thì cái ảnh hiện ra nó bị đè lên border của cell do đó khi in ra sẽ mất border,
Các anh kiểm tra giúp em làm thế nào để đưa ảnh vào trong border mỗi khi chạy macro được không ạ (em đã mò nhiều cách mà không ra)
Em cám ơn ạ !

 

[giaiphap]

Dear các anh chị,
Em đã xong file tuy nhiên trong file của em khi lấy ảnh QR code thì cái ảnh hiện ra nó bị đè lên border của cell do đó khi in ra sẽ mất border,
Các anh kiểm tra giúp em làm thế nào để đưa ảnh vào trong border mỗi khi chạy macro được không ạ (em đã mò nhiều cách mà không ra)
Em cám ơn ạ !

Sửa lại hàm pic_QR thế này xem sao.

Private Function pic_QR(ByVal QR_Value As String, ByVal Target As Range, Optional ByVal Size As Long = 58) As Shape

  Dim sURL As String
  On Error Resume Next
  If Len(QR_Value) Then
    sURL = "https://chart.googleapis.com/chart?chs=" & 100 & "x" & 100 & "&cht=qr&chl="
    sURL = sURL & QR_Value
    Set pic_QR = Target.Parent.Shapes.AddPicture(sURL, True, True, Target.Left + 2, Target.Top + 2, Size, Size)
 
  End If
End Function

 

[club_k]

Sửa lại hàm pic_QR thế này xem sao.

Private Function pic_QR(ByVal QR_Value As String, ByVal Target As Range, Optional ByVal Size As Long = 58) As Shape

  Dim sURL As String
  On Error Resume Next
  If Len(QR_Value) Then
    sURL = "https://chart.googleapis.com/chart?chs=" & 100 & "x" & 100 & "&cht=qr&chl="
    sURL = sURL & QR_Value
    Set pic_QR = Target.Parent.Shapes.AddPicture(sURL, True, True, Target.Left + 2, Target.Top + 2, Size, Size)

  End If
End Function

Perfect, em cám ơn anh nhiều ạ

 

[giaiphap]

Perfect, em cám ơn anh nhiều ạ

Tôi thấy bạn trước khi tạo mã QR nên xóa cái mã QR trước thì sẽ khắc phục được cái lỗi tạo mã QR khác trùng vào vị trí cái cũ.

 

[club_k]

Tôi thấy bạn trước khi tạo mã QR nên xóa cái mã QR trước thì sẽ khắc phục được cái lỗi tạo mã QR khác trùng vào vị trí cái cũ.

Vâng, Em sẽ study thêm
Cám ơn anh ạ

 

[giaiphap]

Vâng, Em sẽ study thêm
Cám ơn anh ạ

Góp ý bạn thêm một vấn đề nửa để lần sau đăng bài sẽ ít bị các thành viên phàn nàn là: Không nên pha lẫn tiếng Anh vào tiếng Việt chung như vậy.
Các thành viên sẽ khó chịu về vấn đề này.

 

[club_k]

Góp ý bạn thêm một vấn đề nửa để lần sau đăng bài sẽ ít bị các thành viên phàn nàn là: Không nên pha lẫn tiếng Anh vào tiếng Việt chung như vậy.
Các thành viên sẽ khó chịu về vấn đề này.

Vâng, cám ơn anh ạ