Gitiho contest

Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.

Chương trình hội viên Gitiho

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

480+ khóa học

15 Danh mục theo kỹ năng, ngành nghề

Năng lực Lõi, Năng lực Chuyên môn, Năng lực Bổ trợ, Năng lực Quản lý

Khám phá ngay

2000+ đã đăng ký

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

83 khóa học Tin học văn phòng

85 khóa học Kỹ năng mềm

29 khóa học Ngoại ngữ

Khám phá ngay

500+ đã đăng ký

Gitiho for leading business

Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.

Đã được tin tưởng sử dụng bởi các doanh nghiệp

  1. Trang chủ
  2. Hỏi đáp
  3. Trang chủ
  4. Hỏi đáp
Đào Thị Truc Quỳnh
Đào Thị Truc Quỳnh
Thảo luận 3 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 355 lượt xem

Mình muốn lấy dữ liệu từ nhiều sheet (4 sheet) để vào sheet kết quả nhưng

Thầy ơi, cho mình hỏi. Mình muốn lấy dữ liệu từ nhiều sheet (4 sheet) để vào sheet kết quả nhưng trên mỗi sheet chỉ lấy thông tin vài cột, không lấy hết. Thì mình làm như thế nào ạ?
Thảo luận 3 câu trả lời
Lượt xem 355 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Đào Thị Truc Quỳnh 09:06 - Jun 12, 2020
Khi lấy dữ liệu từ nhiều sheet trong 1 workbook, có 1 số nguyên tắc sau đây cần tuân thủ:
- Không làm việc trực tiếp với tên từng sheet, mà bạn nên làm việc theo thứ tự của sheet trong workbook. Cách viết Sheets(i) trong đó i chạy từ A đến B
Ví dụ bạn duyệt tới 4 sheet đầu tiên thì:
For i = 1 to 4
Sheets(i).Range(...)... 'trong sheet thứ i, vùng nào, sẽ làm việc gì đó
- Tiếp theo là vùng nào
ở đây bạn nói vài cột. Về nguyên tắc thì để làm việc theo 1 quy trình tự động thì các vùng trong mỗi sheet phải bằng nhau (tức là ít nhất số cột bằng nhau, số dòng có thể khác)
Bạn xác định dòng cuối mỗi sheet
Sau đó xác định phạm vi vùng cần lấy dữ liệu
Xác định khoảng cách cần lấy (từ dòng đầu tới dòng cuối)
Đưa vùng đó vào nơi lưu.
---
Bạn vui lòng xem kỹ bài 7,8,9 chương 8. Thay đối tượng lặp không phải workbook mà là worksheet, thay vì chỉ có Sheets(1) thì dùng Sheet(i)
Vỗ tay vỗ tay
Đào Thị Truc Quỳnh 09:06 - Jun 12, 2020
Bạn có thể thử làm và gửi file lên để được hỗ trợ thêm. Vì nội dung này khá dài và phức tạp, ko thể nói hết qua 1 câu trả lời. Bạn vừa làm vừa tìm hiểu từng lỗi sai luôn.
Để gửi file bạn vui lòng xem hướng dẫn đính kèm bên dưới khung chat này.
Vỗ tay vỗ tay
Đào Thị Truc Quỳnh 11:06 - Jun 12, 2020
cám ơn thầy, để mình thử thiết lập lại
Vỗ tay vỗ tay
Câu hỏi liên quan
Cho em hỏi làm thế nào để dữ liệu thêm mới tự động có format giống như dữ liệu đã có sẵn ạ? Phải thêm lệnh như thế nào ạ?
Da Thầy cho e hỏi. ví dụ trên cùng 1 workbook có nhiều người thao tác nhập liệu trên 1 sheet "cho dữ liệu" thì sheet "nhận dữ liệu" của sheet cho dữ liệu đó có bị ảnh hưởng gì không ạ, và cách làm đó thì ntn vậy ạ.
Em muốn kẻ khung cho toàn bộ bảng dữ liệu, kể cả vùng mới thêm vào nhưng bị lỗi. Sheets("Data").Range("A2:E" & DongCuoi + 1).Select
em lấy dữ liệu, chạy thành công. nhưng khi em copy maxco kẻ khung cho dongcuoi+1: sheet2.range( "A3:E" & dongcuoi +1).select....đoạn này là em lấy từ việc ghi maxco. chỉ thay đổi vùng ( A3:E) như trên. nhưng lại không chạy được. Thầy xem giúp em chỗ này...
Thầy cho e hỏi là, e viết lệnh như thế này nhưng khi trả về kết quả thì lại hiện thị tại dòng A1, chứ không phải là A6 ạ Sub Dongcuoi_1() Dim Dongcuoi As Long Dongcuoi = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row End Sub Sub LuuDL() Sheets("Data").Range("A"...
' Bai tap copy pat Sub copy1() Dim DongCuoi As Long DongCuoi = Sheet6.Range("B14 : C" & Rows.Count).End(xlUp).Row Range("B14:C & dongcuoi ").Selection.Copy End Sub Sub Xoa_Du_Lieu() Dim DongCuoi As Long DongCuoi = Sheets("Dmuc").Range("B15 : C" & Rows.Count).End(xlUp).Row Sheets("Dmuc").Range("B15:C...
Em có 1 khung bảng dữ liệu trong 1 file excel , muốn chèn dữ liệu vào dòng cuối thì làm thế nào ạ? Em chưa biết cách đẩy file lên để thầy xem. thầy chỉ em nhé. em cảm ơn
Sub Luu_Du_Lieu() Dim DongCuoi As Long DongCuoi = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row Sheets("Data").Range("A" & DongCuoi + 1).Value = Sheets("Them moi").Range("A3").Value Sheets("Data").Range("B" & DongCuoi + 1).Value = Sheets("Them moi").Range("E3").Value Sheets("Data").Range("C" & DongCuoi...
cho hỏi làm thế nào để tạo combo box ở mục nhập tên hàng ?
Cho hỏi: mỗi lần lưu dữ liệu ta đều phải dùng chuột để bấm nút " Lưu dữ liệu" - có cách nào mình dùng nút Enter thay cho động tác bấm chuột không
Scroll Top Top

Hỗ trợ khách hàng

VỀ GITIHO

hợp tác và liên kết

Tải App Gitiho

Kết nối với chúng tôi

Địa chỉ văn phòng: Phòng 302, tầng 3, Tòa nhà Tây Hà, KĐT mới Phùng Khoang, Phường Trung Văn, Quận Nam Từ Liêm, Thành phố Hà Nội, Việt Nam
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông