[Help]In thẻ dự thi cho học sinh từ data là excel (2 người xem)

[be_09]

vâng ad lam cho e dùng thử để e tìm hiểu a,chứ e chưa hiểu gì về VBA

Khi mở File thì nó hiện hình 1 trong 30 giây và đóng lại.
Khi nhấn nút thì nó lấy hình trong Folder và gán tất cả hình ảnh vào tương ứng với tên học sinh, do không có ảnh nên tôi lấy hình mẫu gán thử, như hình 2.

 

[batman1]

Khi mở File thì nó hiện hình 1 trong 30 giây và đóng lại.
Khi nhấn nút thì nó lấy hình trong Folder và gán tất cả hình ảnh vào tương ứng với tên học sinh, do không có ảnh nên tôi lấy hình mẫu gán thử, như hình 2.

Người ta chỉ cần in dữ liệu thôi, còn ảnh sau đó sẽ được dán vào. Tức dán ảnh chụp rửa (?) chứ không phải dùng ảnh in.

Người ta nói rõ mà. Tôi còn hiểu tiếng Việt thì người hàng ngày tiếp xúc với tiếng Việt phải hiểu chứ nhỉ?

không a chưa hiểu rồi,hình ảnh thì sẽ là dán hình vào

--------
@namninh9999:
Khi dùng code thì không cần Spin Button nữa.
Công thức tôi đã sửa để mỗi "mẻ" là 10 em. Code sẽ tự nhập vào L1 các giá trị 1, 2, 3, ... Các số này xác định "mẻ" 1, 2, 3, ... Thế thôi.

Cấu trúc, phông chữ v...v bạn tự thiết kế lại theo sở thích của mình.
Code để in

Sub Button2_Click()
Dim vong As Long, k As Long
    With Worksheets("DATA")
        k = .Cells(Rows.Count, "A").End(xlUp).Row
        If k = 1 Then Exit Sub
        vong = .Range("A" & k).Value
    End With
    If vong Mod 10 = 0 Then
        vong = vong / 10
    Else
        vong = vong \ 10 + 1
    End If
    With Worksheets("BANG IN")
        For k = 1 To vong
            .Range("L1") = k
'            .Range("A1:J47").PrintPreview
            Range("A1:J47").PrintOut
        Next k
    End With
End Sub

 

[be_09]

Người ta chỉ cần in dữ liệu thôi, còn ảnh sau đó sẽ được dán vào. Tức dán ảnh chụp rửa (?) chứ không phải dùng ảnh in.
Người ta nói rõ mà. Tôi còn hiểu tiếng Việt thì người hàng ngày tiếp xúc với tiếng Việt phải hiểu chứ nhỉ?
......................................................

Bài 19 tôi nêu như thế này:

Nếu đồng ý sử dụng VBA tôi làm luôn cho, vì không phải làm riêng cho bạn sử dụng mà cho cả các thành viên khác (nếu có thành viên nào quản lý cả khối hoặc cả trường) làm ứng dụng thì phải nghĩ đến gán ảnh hàng loạt.

Ở Việt Nam có một số nơi họ chụp hình thẻ và in thẻ màu luôn chứ không có dán ảnh.
Tôi làm giúp thành viên này nhưng cũng nghĩ đến các thành viên khác đôi khi cần đến việc in ảnh, nếu thành viên nào không cần in ảnh thì chỉ việc nhấn nút Xóa hình là xong.
Hình bài 19 tôi chụp có một phần mà không chụp hết.

 

[giaiphap]

Bài này nếu viết code thì tôi sẽ làm thế này, Dùng một sheet mẫu in thẻ, khi chạy code sẽ tách sheet mẫu này sang file mới và đưa tất cả thông tin học sinh vào sheet này (Có thể cho phép chọn số lượng tùy thích), lúc đó muốn in hoặc điều chỉnh trang in rồi in sẽ nhanh hơn là in từng trang một.

 

[namninh9999]

Khi mở File thì nó hiện hình 1 trong 30 giây và đóng lại.
Khi nhấn nút thì nó lấy hình trong Folder và gán tất cả hình ảnh vào tương ứng với tên học sinh, do không có ảnh nên tôi lấy hình mẫu gán thử, như hình 2.

View attachment 197056View attachment 197057

vấn đề data lưu hinh sẽ nằm ở thư mục ak ad,chứ exel có lưu dữ liệu là hình ảnh ko?

Bài đã được tự động gộp: 11/6/18

Người ta chỉ cần in dữ liệu thôi, còn ảnh sau đó sẽ được dán vào. Tức dán ảnh chụp rửa (?) chứ không phải dùng ảnh in.

Người ta nói rõ mà. Tôi còn hiểu tiếng Việt thì người hàng ngày tiếp xúc với tiếng Việt phải hiểu chứ nhỉ?

--------
@namninh9999:
Khi dùng code thì không cần Spin Button nữa.
Công thức tôi đã sửa để mỗi "mẻ" là 10 em. Code sẽ tự nhập vào L1 các giá trị 1, 2, 3, ... Các số này xác định "mẻ" 1, 2, 3, ... Thế thôi.

Cấu trúc, phông chữ v...v bạn tự thiết kế lại theo sở thích của mình.
Code để in

Sub Button2_Click()
Dim vong As Long, k As Long
    With Worksheets("DATA")
        k = .Cells(Rows.Count, "A").End(xlUp).Row
        If k = 1 Then Exit Sub
        vong = .Range("A" & k).Value
    End With
    If vong Mod 10 = 0 Then
        vong = vong / 10
    Else
        vong = vong \ 10 + 1
    End If
    With Worksheets("BANG IN")
        For k = 1 To vong
            .Range("L1") = k
'            .Range("A1:J47").PrintPreview
            Range("A1:J47").PrintOut
        Next k
    End With
End Sub

cái này thì chính xác e cần thank a, nhừng hoc đươc thêm của a be9 cung tot mà a

 

[be_09]

vấn đề data lưu hinh sẽ nằm ở thư mục ak ad,chứ exel có lưu dữ liệu là hình ảnh ko?
...................................................
Nhưng học đươc thêm của a be9 cũng tốt mà

Tôi làm 1 lớp rồi, nhưng thấy bạn không cần in hình nên tôi chưa đưa File lên.

Nhằm chào mừng sinh nhật GPE, trong nay mai tôi sẽ mở Topic mới. Tôi sẽ đưa File sử dụng chung cho 1 khối lớp (để các thành viên khác tham khảo có thể dùng để in thẻ nhân viên), ý tưởng của tôi như sau:

1/ Dùng 1 sheet Data chứa danh sách của 1 khối lớp (trong đó có cột lớp).
2/ Dùng 1 sheet chứa danh sách lớp, dựa vào danh sách của khối lớp muốn in thẻ của lớp nào thì lọc danh sách lớp đó ra và gán nội dung cần của từng học sinh vào sheet in thẻ.
3/ Tại sheet in thẻ: Nếu không muốn gán hình thì chỉ việc in là xong, còn muốn gán hình cho từng thẻ học sinh thì nhấn nút Gán hình, việc còn lại là in thẻ.
4/ Hình thẻ thì để trong 1 Folder khối chứa nhiều Forlder lớp, muốn gán hình của lớp nào thì chọn Forlder của lớp đó nó sẽ tự động lấy danh sách và gán hình vào lớp vừa lọc danh sách.

 

[namninh9999]

Tôi làm 1 lớp rồi, nhưng thấy bạn không cần in hình nên tôi chưa đưa File lên.

Nhằm chào mừng sinh nhật GPE, trong nay mai tôi sẽ mở Topic mới. Tôi sẽ đưa File sử dụng chung cho 1 khối lớp (để các thành viên khác tham khảo có thể dùng để in thẻ nhân viên), ý tưởng của tôi như sau:

1/ Dùng 1 sheet Data chứa danh sách của 1 khối lớp (trong đó có cột lớp).
2/ Dùng 1 sheet chứa danh sách lớp, dựa vào danh sách của khối lớp muốn in thẻ của lớp nào thì lọc danh sách lớp đó ra và gán nội dung cần của từng học sinh vào sheet in thẻ.
3/ Tại sheet in thẻ: Nếu không muốn gán hình thì chỉ việc in là xong, còn muốn gán hình cho từng thẻ học sinh thì nhấn nút Gán hình, việc còn lại là in thẻ.
4/ Hình thẻ thì để trong 1 Folder khối chứa nhiều Forlder lớp, muốn gán hình của lớp nào thì chọn Forlder của lớp đó nó sẽ tự động lấy danh sách và gán hình vào lớp vừa lọc danh sách.

A ơi! giờ e muốn hiện tất cả ra để in thì làm thế nào?cac ad xem giúp e với!

Bài đã được tự động gộp: 16/6/18

Bài này nếu viết code thì tôi sẽ làm thế này, Dùng một sheet mẫu in thẻ, khi chạy code sẽ tách sheet mẫu này sang file mới và đưa tất cả thông tin học sinh vào sheet này (Có thể cho phép chọn số lượng tùy thích), lúc đó muốn in hoặc điều chỉnh trang in rồi in sẽ nhanh hơn là in từng trang một.[/

Người ta chỉ cần in dữ liệu thôi, còn ảnh sau đó sẽ được dán vào. Tức dán ảnh chụp rửa (?) chứ không phải dùng ảnh in.

Người ta nói rõ mà. Tôi còn hiểu tiếng Việt thì người hàng ngày tiếp xúc với tiếng Việt phải hiểu chứ nhỉ?

--------
@namninh9999:
Khi dùng code thì không cần Spin Button nữa.
Công thức tôi đã sửa để mỗi "mẻ" là 10 em. Code sẽ tự nhập vào L1 các giá trị 1, 2, 3, ... Các số này xác định "mẻ" 1, 2, 3, ... Thế thôi.

Cấu trúc, phông chữ v...v bạn tự thiết kế lại theo sở thích của mình.
Code để in

Sub Button2_Click()
Dim vong As Long, k As Long
    With Worksheets("DATA")
        k = .Cells(Rows.Count, "A").End(xlUp).Row
        If k = 1 Then Exit Sub
        vong = .Range("A" & k).Value
    End With
    If vong Mod 10 = 0 Then
        vong = vong / 10
    Else
        vong = vong \ 10 + 1
    End If
    With Worksheets("BANG IN")
        For k = 1 To vong
            .Range("L1") = k
'            .Range("A1:J47").PrintPreview
            Range("A1:J47").PrintOut
        Next k
    End With
End Sub

em in được rồi nhưng khi in khung ko ra giống như khung mình chon,toàn mất thông tin hình ảnh thôi a ak.A có cách nào ko?hướng dẫn e luôn hàm hiện tất cả ra dữ liệu ấy a

 

[hoangtuaotrang_hp_vn]

Khi mở File thì nó hiện hình 1 trong 30 giây và đóng lại.
Khi nhấn nút thì nó lấy hình trong Folder và gán tất cả hình ảnh vào tương ứng với tên học sinh, do không có ảnh nên tôi lấy hình mẫu gán thử, như hình 2.

View attachment 197056View attachment 197057

cho e xin file này với ạ, em cảm ơn

Bài đã được tự động gộp: 18/6/18

Tôi làm 1 lớp rồi, nhưng thấy bạn không cần in hình nên tôi chưa đưa File lên.

Nhằm chào mừng sinh nhật GPE, trong nay mai tôi sẽ mở Topic mới. Tôi sẽ đưa File sử dụng chung cho 1 khối lớp (để các thành viên khác tham khảo có thể dùng để in thẻ nhân viên), ý tưởng của tôi như sau:

1/ Dùng 1 sheet Data chứa danh sách của 1 khối lớp (trong đó có cột lớp).
2/ Dùng 1 sheet chứa danh sách lớp, dựa vào danh sách của khối lớp muốn in thẻ của lớp nào thì lọc danh sách lớp đó ra và gán nội dung cần của từng học sinh vào sheet in thẻ.
3/ Tại sheet in thẻ: Nếu không muốn gán hình thì chỉ việc in là xong, còn muốn gán hình cho từng thẻ học sinh thì nhấn nút Gán hình, việc còn lại là in thẻ.
4/ Hình thẻ thì để trong 1 Folder khối chứa nhiều Forlder lớp, muốn gán hình của lớp nào thì chọn Forlder của lớp đó nó sẽ tự động lấy danh sách và gán hình vào lớp vừa lọc danh sách.

Quá hay anh ah, em mong chờ file chia sẻ của anh, em cảm ơn anh trước nhé