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
Bùi Thanh Hà
Bùi Thanh Hà
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 390 lượt xem

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

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
Thảo luận 1 câu trả lời
Lượt xem 390 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Bùi Thanh Hà 04:04 - Apr 18, 2020
Trong code trên của bạn, biến DongCuoi bạn đã xách định chưa? nếu chưa sẽ báo lỗi không biết DongCuoi là cái gì
Phương thức .Select không cần thiết. Khi tìm hiểu cấu trúc With (chương 9) bạn sẽ biết cách viết code gọn hơn.
Bạn có thể định hình lại 3 bước giải quyết cho tình huống trên như sau:
Bước 1: bạn record macro cho thao tác kẻ khung (ở chương 2) để có code. Chọn 1 vùng bất kỳ để kẻ khung
Bước 2: xác định phạm vi vùng cần kẻ: sau khi thêm dữ liệu mới vào bảng, bạn xác định lại dòng cuối = cách đặt lệnh tìm dòng cuối bên dưới lệnh thêm dữ liệu
Bước 3: bạn sửa lại vùng ở bước 1 theo vùng bảng cần kẻ (từ dòng 2 tới dòng cuố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 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"...
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 ạ?
' 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