Cần giúp đỡ tạo QR - chèn vào ô Excel (2 người xem)

khaiser · 22/7/20

- mình mới học phần quản lý tài sản,
tài sản phân bổ cho nhiều chi nhánh khác nhau. mỗi tài sản mã khác chỉ trùng tên phòng phía trước.
. có cách nào tạo QR nhanh và chèn vào ô trong Excel không các Anh/Chị ?? thanks

MinhKhai · 22/7/20

khaiser đã viết:
- mình mới học phần quản lý tài sản,
tài sản phân bổ cho nhiều chi nhánh khác nhau. mỗi tài sản mã khác chỉ trùng tên phòng phía trước.
. có cách nào tạo QR nhanh và chèn vào ô trong Excel không các Anh/Chị ?? Cảm ơn

Có nhiều cách tạo Q qrcode tùy theo khả năng của bạn mà bạn lựa chọn sử dụng
1. Sử dụng các add-in đóng gói sẵn để tạo QR code. Các Addin hàng hiệu này tải trên MarketPlace (tìm nó ngay trong Excel). Addin nội địa thì tìm Atools
2. Sử dụng code VBA để tạo thông qua API của 1 số trang Web. (thử tại:

)
3. Việc tạo QR code rồi cũng phải in và gắn vào đâu đó. Cách của bạn tạo QR code ngay trong bảng tính có vẻ không thuận tiện lắm. Mình thì dùng phần mềm in nhãn (VD: BarTender) kết nối tới file dữ liệu là excel để in.

khaiser · 29/7/20

CA

MinhKhai đã viết:
Có nhiều cách tạo Q qrcode tùy theo khả năng của bạn mà bạn lựa chọn sử dụng
1. Sử dụng các add-in đóng gói sẵn để tạo QR code. Các Addin hàng hiệu này tải trên MarketPlace (tìm nó ngay trong Excel). Addin nội địa thì tìm Atools
2. Sử dụng code VBA để tạo thông qua API của 1 số trang Web. (thử tại:

)
3. Việc tạo QR code rồi cũng phải in và gắn vào đâu đó. Cách của bạn tạo QR code ngay trong bảng tính có vẻ không thuận tiện lắm. Mình thì dùng phần mềm in nhãn (VD: BarTender) kết nối tới file dữ liệu là excel để in.

Cảm ơn bạn, mình tham khảo thêm.

Bài đã được tự động gộp: 29/7/20

Mình mò được như vậy nhưng không biết cách làm sao để nó có thể in hết ra giấy a4, vì hiện nó chỉ in được chiều dài

Xin các cao nhân chỉ giúp
Mình xin cảm ơn nhiều

huuthang_bd · 29/7/20

khaiser đã viết:
CA

Cảm ơn bạn, mình tham khảo thêm.

Bài đã được tự động gộp: 29/7/20

Mình mò được như vậy nhưng không biết cách làm sao để nó có thể in hết ra giấy a4, vì hiện nó chỉ in được chiều dài
Xin các cao nhân chỉ giúp
Mình xin cảm ơn nhiều

Bạn tạo QR code bằng cách nào?

khaiser · 29/7/20

huuthang_bd đã viết:
Bạn tạo QR code bằng cách nào?

mình tải soft QR code về máy tính sau đó tạo văn bản thủ công nó ra mã QR tài sản. sau đó mình dùng VBA của bác nào share trên google để chèn vào file Excel.

huuthang_bd · 29/7/20

khaiser đã viết:
dùng VBA của bác nào share trên google để chèn vào file Excel.

Vậy thì bạn đưa cái này lên.

khaiser · 3/8/20

file đây các bác.
NHờ các bác chỉ giúp

huuthang_bd · 3/8/20

Chọn vùng rồi chạy macro, ô nào có đường dẫn ảnh hợp lệ sẽ được chèn ảnh bằng đường dẫn đó. Macro sẽ xóa toàn bộ ảnh hiện tại trong vùng chọn trước khi chèn ảnh mới.

Mã:

Sub InsertPics()
    Dim FSO As Object, Rng As Range, Arr As Variant, i As Long, j As Long
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Application.ScreenUpdating = False
    DeletePics Selection
    For Each Rng In Selection.Areas
        If Rng.Cells.Count = 1 Then
            If FSO.FileExists(Rng.Value) Then InsertPicAtCll Rng.Value, Rng
        Else
            Arr = Rng.Value
            For i = 1 To UBound(Arr, 1)
                For j = 1 To UBound(Arr, 2)
                    If FSO.FileExists(Arr(i, j)) Then
                        InsertPicAtCll Arr(i, j), Rng.Cells(i, j)
                    End If
                Next
            Next
        End If
    Next
    Application.ScreenUpdating = True
End Sub
Private Sub InsertPicAtCll(ByVal sLink As String, ByVal Cll As Range)
    On Error Resume Next
    With Cll.Parent.Shapes.AddPicture(sLink, msoFalse, msoTrue, Cll.Left + 1, Cll.Top + 1, -1, -1)
        .ScaleWidth (Cll.MergeArea.Height - 2) / .Height, True, 0
    End With
End Sub
Private Sub DeletePics(ByVal Rng As Range)
    Dim oPic As Shape
    For Each oPic In Rng.Parent.Shapes
        If Not (Intersect(Rng, oPic.TopLeftCell) Is Nothing) Then
            oPic.Delete
        End If
    Next
End Sub

khaiser · 3/8/20

huuthang_bd đã viết:

Chọn vùng rồi chạy macro, ô nào có đường dẫn ảnh hợp lệ sẽ được chèn ảnh bằng đường dẫn đó. Macro sẽ xóa toàn bộ ảnh hiện tại trong vùng chọn trước khi chèn ảnh mới.

Mã:

Sub InsertPics()
    Dim FSO As Object, Rng As Range, Arr As Variant, i As Long, j As Long
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Application.ScreenUpdating = False
    DeletePics Selection
    For Each Rng In Selection.Areas
        If Rng.Cells.Count = 1 Then
            If FSO.FileExists(Rng.Value) Then InsertPicAtCll Rng.Value, Rng
        Else
            Arr = Rng.Value
            For i = 1 To UBound(Arr, 1)
                For j = 1 To UBound(Arr, 2)
                    If FSO.FileExists(Arr(i, j)) Then
                        InsertPicAtCll Arr(i, j), Rng.Cells(i, j)
                    End If
                Next
            Next
        End If
    Next
    Application.ScreenUpdating = True
End Sub
Private Sub InsertPicAtCll(ByVal sLink As String, ByVal Cll As Range)
    On Error Resume Next
    With Cll.Parent.Shapes.AddPicture(sLink, msoFalse, msoTrue, Cll.Left + 1, Cll.Top + 1, -1, -1)
        .ScaleWidth (Cll.MergeArea.Height - 2) / .Height, True, 0
    End With
End Sub
Private Sub DeletePics(ByVal Rng As Range)
    Dim oPic As Shape
    For Each oPic In Rng.Parent.Shapes
        If Not (Intersect(Rng, oPic.TopLeftCell) Is Nothing) Then
            oPic.Delete
        End If
    Next
End Sub

- cảm ơn anh nhiệt tình giúp đỡ, em đã làm được chuyển nó sang ngang (20 hàng 1 trang a4)
- nhưng có cách nào mình xoá bớt dữ liệu đường dẫn trong ô nhanh không a ? vì nó dài quá, mình chỉ cần nó hiện mã QR + tên mã thôi .
cảm ơn anh nhiều. chúc sức khoẻ

huuthang_bd · 3/8/20

khaiser đã viết:
- cảm ơn anh nhiệt tình giúp đỡ, em đã làm được chuyển nó sang ngang (20 hàng 1 trang a4)
- nhưng có cách nào mình xoá bớt dữ liệu đường dẫn trong ô nhanh không a ? vì nó dài quá, mình chỉ cần nó hiện mã QR + tên mã thôi .
cảm ơn anh nhiều. chúc sức khoẻ

Định dạng để không nhìn thấy là được, number format (;;; ) hoặc chữ màu trắng.

Nếu muốn xóa luôn thì thêm dòng màu đỏ.

Rich (BB code):

Private Sub InsertPicAtCll(ByVal sLink As String, ByVal Cll As Range)
    On Error Resume Next
    With Cll.Parent.Shapes.AddPicture(sLink, msoFalse, msoTrue, Cll.Left + 1, Cll.Top + 1, -1, -1)
        .ScaleWidth (Cll.MergeArea.Height - 2) / .Height, True, 0
    End With
    Cll.ClearContents
End SubA

Cần giúp đỡ tạo QR - chèn vào ô Excel (2 người xem)

Người dùng đang xem chủ đề này

khaiser

Thành viên mới

File đính kèm

MinhKhai

Giải pháp Ếc-xào

khaiser

Thành viên mới

File đính kèm

huuthang_bd

Chuyên gia GPE

khaiser

Thành viên mới

huuthang_bd

Chuyên gia GPE

khaiser

Thành viên mới

File đính kèm

huuthang_bd

Chuyên gia GPE

khaiser

Thành viên mới

File đính kèm

huuthang_bd

Chuyên gia GPE

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian