Đổ dữ liệu vào Form

[hoangleminh90]

Chào các a/c!
Hiện em đang cần giải quyết 1 vấn đề ở cơ quan mong a/c hướng dẫn giúp em nhé!
Em thiết kế 1 form chuẩn với nội dung trong sheet1 trong file đính kèm. Vấn đề em muốn đổ dữ liệu thông tin học sinh bao gồm: họ và tên, lớp, ngày sinh, nơi sinh,... từ một file excel khác thì phải làm như thế nào để tiết kiệm thời gian nhất ạ?
Rất mong được a.c chỉ giáo để em được học hỏi và mở mang thêm kiến thức ạ!
Em xin chân thành cám ơn!

dữ liệu em đã đưa hết vào file data rồi ạ!
đổ từ sheet 2 ra sheet1

 

[snow25]

Chào các a/c!
Hiện em đang cần giải quyết 1 vấn đề ở cơ quan mong a/c hướng dẫn giúp em nhé!
Em thiết kế 1 form chuẩn với nội dung trong sheet1 trong file đính kèm. Vấn đề em muốn đổ dữ liệu thông tin học sinh bao gồm: họ và tên, lớp, ngày sinh, nơi sinh,... từ một file excel khác thì phải làm như thế nào để tiết kiệm thời gian nhất ạ?
Rất mong được a.c chỉ giáo để em được học hỏi và mở mang thêm kiến thức ạ!
Em xin chân thành cám ơn!

dữ liệu em đã đưa hết vào file data rồi ạ!
đổ từ sheet 2 ra sheet1

Không hiểu bạn muốn làm gì.Bạn muốn in nhiều bản hay là thế nào nhỉ.

 

[hoangleminh90]

Không hiểu bạn muốn làm gì.Bạn muốn in nhiều bản hay là thế nào nhỉ.

dạng như mình có bảng lương, giờ muốn in phiếu lương cho từng người, bấm 1 phát nó in đc tất cả phiếu đấy ạ! chắc do e dùng từ ko chuẩn xác nên hơi khó hiểu, bạn thông cảm nhé! mong đc hướng dẫn,cám ơn bạn!

 

[snow25]

dạng như mình có bảng lương, giờ muốn in phiếu lương cho từng người, bấm 1 phát nó in đc tất cả phiếu đấy ạ! chắc do e dùng từ ko chuẩn xác nên hơi khó hiểu, bạn thông cảm nhé! mong đc hướng dẫn,cám ơn bạn!

Bạn thử code này nhé.

Sub innhanh()
    Dim i As Long, lr As Long, arr, kq(1 To 8, 1 To 1)
    With Sheets("sheet2")
         lr = .Range("B" & Rows.Count).End(xlUp).Row
         arr = .Range("B2:I" & lr).Value
    End With
    With Sheet1
         For i = 1 To UBound(arr)
             kq(1, 1) = arr(i, 2)
             kq(2, 1) = arr(i, 1)
             kq(3, 1) = arr(i, 3)
             kq(4, 1) = arr(i, 6)
             kq(5, 1) = arr(i, 4)
             kq(6, 1) = arr(i, 7)
             kq(7, 1) = arr(i, 5)
             kq(8, 1) = arr(i, 8)
             .Range("B5:B12").Value = kq
          .PrintOut
         Next i
    End With
End Sub

 

[le_vis]

Bạn thử code này nhé.

Sub innhanh()
    Dim i As Long, lr As Long, arr, kq(1 To 8, 1 To 1)
    With Sheets("sheet2")
         lr = .Range("B" & Rows.Count).End(xlUp).Row
         arr = .Range("B2:I" & lr).Value
    End With
    With Sheet1
         For i = 1 To UBound(arr)
             kq(1, 1) = arr(i, 2)
             kq(2, 1) = arr(i, 1)
             kq(3, 1) = arr(i, 3)
             kq(4, 1) = arr(i, 6)
             kq(5, 1) = arr(i, 4)
             kq(6, 1) = arr(i, 7)
             kq(7, 1) = arr(i, 5)
             kq(8, 1) = arr(i, 8)
             .Range("B5:B12").Value = kq
          .PrintOut
         Next i
    End With
End Sub

Code của thầy gọn và rất nhanh. Nhưng Xin thầy cho ý kiến thêm :
Bạn này có tới hơn nghìn học sinh vậy nên chăng cho thêm phần chọn in từ số đến số được không thầy -
Nếu dùng hàm tôi chơi cách củ chuối như File đính kèm :

 

[hoangleminh90]

Bạn thử code này nhé.

Sub innhanh()
    Dim i As Long, lr As Long, arr, kq(1 To 8, 1 To 1)
    With Sheets("sheet2")
         lr = .Range("B" & Rows.Count).End(xlUp).Row
         arr = .Range("B2:I" & lr).Value
    End With
    With Sheet1
         For i = 1 To UBound(arr)
             kq(1, 1) = arr(i, 2)
             kq(2, 1) = arr(i, 1)
             kq(3, 1) = arr(i, 3)
             kq(4, 1) = arr(i, 6)
             kq(5, 1) = arr(i, 4)
             kq(6, 1) = arr(i, 7)
             kq(7, 1) = arr(i, 5)
             kq(8, 1) = arr(i, 8)
             .Range("B5:B12").Value = kq
          .PrintOut
         Next i
    End With
End Sub

Cám ơn bạn nhiều nhé! Mình thử rồi phản hồi kết quả ạ!

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

Code của thầy gọn và rất nhanh. Nhưng Xin thầy cho ý kiến thêm :
Bạn này có tới hơn nghìn học sinh vậy nên chăng cho thêm phần chọn in từ số đến số được không thầy -
Nếu dùng hàm tôi chơi cách củ chuối như File đính kèm :

quá tuyệt vời! Mình thử cả cách của bạn luôn ạ! thank bạn!

 

[le_vis]

Bạn thử code này nhé.

Sub innhanh()
    Dim i As Long, lr As Long, arr, kq(1 To 8, 1 To 1)
    With Sheets("sheet2")
         lr = .Range("B" & Rows.Count).End(xlUp).Row
         arr = .Range("B2:I" & lr).Value
    End With
    With Sheet1
         For i = 1 To UBound(arr)
             kq(1, 1) = arr(i, 2)
             kq(2, 1) = arr(i, 1)
             kq(3, 1) = arr(i, 3)
             kq(4, 1) = arr(i, 6)
             kq(5, 1) = arr(i, 4)
             kq(6, 1) = arr(i, 7)
             kq(7, 1) = arr(i, 5)
             kq(8, 1) = arr(i, 8)
             .Range("B5:B12").Value = kq
          .PrintOut
         Next i
    End With
End Sub

Thầy xử lý cho cách chọn thêm từ số đến số được không thầy ?

 

[hoangleminh90]

Code của thầy gọn và rất nhanh. Nhưng Xin thầy cho ý kiến thêm :
Bạn này có tới hơn nghìn học sinh vậy nên chăng cho thêm phần chọn in từ số đến số được không thầy -
Nếu dùng hàm tôi chơi cách củ chuối như File đính kèm :

Bạn ơi,cho mình xin zalo mình hỏi để hiểu cách làm có đc ko ạ? Mình chạy rồi,thấy rất hay và chính xác. Tại hạ xin bái phục!

 

[Cu Tồ]

Code của thầy gọn và rất nhanh. Nhưng Xin thầy cho ý kiến thêm :
Bạn này có tới hơn nghìn học sinh vậy nên chăng cho thêm phần chọn in từ số đến số được không thầy -
Nếu dùng hàm tôi chơi cách củ chuối như File đính kèm :

bác cho hỏi là trong file bác làm ,có các name mà bác tạo ra đấy,có dùng hàm VLOOKUP .bác giải thích giúp e là sao giá trị tìm kiếm lại là các ô trống ạ?

 

[quick87]

Thầy xử lý cho cách chọn thêm từ số đến số được không thầy ?

Nếu muốn thực hiện phần in như hình dưới thì bạn tham khảo file đính kèm nhé:

Option Explicit
Sub zaq()
    Dim i&, p&, p1, p2
    Dim Tb As VbMsgBoxResult
    Tb = MsgBox("Ban co chac chan muon thuc hien In tu phieu so " & Range("U1") & " toi Phieu so " & Range("U2") & " hay khong?" & vbNewLine & "Neu co thi chon Yes hoac No de huy bo", vbYesNo, "Canh bao!")
    If Tb = vbYes Then
        p1 = Sheet1.Range("U1").Value
        p2 = Sheet1.Range("U2").Value
        If IsNumeric(p1) = False Or IsNumeric(p2) = False Then Exit Sub
        If p1 > p2 Then Exit Sub
        For p = p1 To p2
            Sheet1.Range("U1").Value = p
            Sheet1.PrintPreview
            'Sheet1.PrintOut 'From:=1, To:=2
        Next p
    End If
End Sub

 

[be_09]

Chào các a/c!
Hiện em đang cần giải quyết 1 vấn đề ở cơ quan mong a/c hướng dẫn giúp em nhé!
Em thiết kế 1 form chuẩn với nội dung trong sheet1 trong file đính kèm. Vấn đề em muốn đổ dữ liệu thông tin học sinh bao gồm: họ và tên, lớp, ngày sinh, nơi sinh,... từ một file excel khác thì phải làm như thế nào để tiết kiệm thời gian nhất ạ?
Rất mong được a.c chỉ giáo để em được học hỏi và mở mang thêm kiến thức ạ!
Em xin chân thành cám ơn!

dữ liệu em đã đưa hết vào file data rồi ạ!
đổ từ sheet 2 ra sheet1

Góp ý cho bạn:
1/ Nên sửa tiêu đề bài viết là "Giúp code in danh sách từng học sinh theo một mẫu".
2/ Mục đích để các thành viên khác cần nội dung về in ấn thì vào mục tìm kiếm bài viết liên quan cho dễ.
3/ Nếu bạn sửa đúng tiêu đề bài viết về in ấn tôi sẽ cho bạn tham khảo một cách khác có thể in từ số đến số hoặc in theo tùy chọn từng lớp.

 

[anhtuan2939]

Thầy xử lý cho cách chọn thêm từ số đến số được không thầy ?

Bạn dùng thử file này nhé. Điền số thứ tự cần in ở ô U1 và U2 (số thứ tự này là số ở cột A của sheet!DATA)

 

[hoangleminh90]

Góp ý cho bạn:
1/ Nên sửa tiêu đề bài viết là "Giúp code in danh sách từng học sinh theo một mẫu".
2/ Mục đích để các thành viên khác cần nội dung về in ấn thì vào mục tìm kiếm bài viết liên quan cho dễ.
3/ Nếu bạn sửa đúng tiêu đề bài viết về in ấn tôi sẽ cho bạn tham khảo một cách khác có thể in từ số đến số hoặc in theo tùy chọn từng lớp.

ok mình đã sửa, mong được bạn hướng dẫn nhé!

 

[anhtuan2939]

mong được bạn hướng dẫn nhé!

Bạn kiểm tra tệp ở phần #12 xem đúng ý bạn không?

 

[be_09]

ok mình đã sửa, mong được bạn hướng dẫn nhé!

Tiêu đề bài viết vẫn là "Đổ dữ liệu vào Form", nếu các thành viên khác cần code in danh sách thì làm thế nào để tìm ra bài viết liên quan đến in ấn.