Gán Giá Trị Cho Nhiều Cell Với VBA | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Gán giá trị cho nhiều cell với VBA (1 người xem)

• Thread starter Thread starter voduyminh0504
• Ngày gửi Ngày gửi 25/11/20

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

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) V

voduyminh0504

Thành viên chính thức

Tham gia 11/2/15 Bài viết 51 Được thích 12 Chào các bạn Tôi muốn viết cái code để gán giá trị "SELECT" vào cell Sub Code () Activesheel.Seclect Range("A1").Value="SELECT" (rồi sau đó cứ 50 dòng, nghĩa là A51, A101, A151, A201, ... cho đến khoảng 5000 hoặc hơn nữa) End Sub Vấn đề là lặp đi lặp lại Range ("...") thì rất chậm, và chẳng hay ho gì Rất mong nhận được hỗ trợ của các bạn để lệnh VBA có thể xử lý nhanh vụ này Sắp xếp theo thời gian sắp xếp theo bầu chọn B

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆

Tham gia 17/12/10 Bài viết 2,783 Được thích 3,392 Giới tính Nam

voduyminh0504 đã viết: Rất mong nhận được hỗ trợ của các bạn để lệnh VBA có thể xử lý nhanh vụ này Nhấp chuột vào đây để mở rộng...

Anh đưa file demo lên coi thử xem . biết đâu sẽ có cách Upvote 0

tigertiger

Coming back ...

Tham gia 25/1/07 Bài viết 1,941 Được thích 1,907

voduyminh0504 đã viết: Chào các bạn Tôi muốn viết cái code để gán giá trị "SELECT" vào cell Sub Code () Activesheel.Seclect Range("A1").Value="SELECT" (rồi sau đó cứ 50 dòng, nghĩa là A51, A101, A151, A201, ... cho đến khoảng 5000 hoặc hơn nữa) End Sub Vấn đề là lặp đi lặp lại Range ("...") thì rất chậm, và chẳng hay ho gì Rất mong nhận được hỗ trợ của các bạn để lệnh VBA có thể xử lý nhanh vụ này Nhấp chuột vào đây để mở rộng...

Yên tâm chậm chỉ là cảm giác thôi, còn vài ngàn dòng chỉ với lặp máy tính không là gì cả Vì tốc độ máy tính bạn đã biết lên hàng mấy GHz rồi Vấn đề là bạn biết cách các tác vụ liên quan thôi, ví dụ Application.ScreenUpdating, Application.Calulation.... Và nhớ là For có Step - chắc cái này đã biết Còn nhanh nữa có thể ARRAY? Upvote 0 V

VetMini

Đang đi tìm hòn đá

Tham gia 21/12/12 Bài viết 17,867 Được thích 24,788 Nghề nghiệp Thầy bói bài ta

voduyminh0504 đã viết: ... Vấn đề là lặp đi lặp lại Range ("...") thì rất chậm, và chẳng hay ho gì Rất mong nhận được hỗ trợ của các bạn để lệnh VBA có thể xử lý nhanh vụ này Nhấp chuột vào đây để mở rộng...

Kén dữ. Ra kết quả là được rồi. Còn phải đòi hỏi "hay ho" nữa ! Làm một cái vòng lặp. Union chúng lại trước khi gán trị. Sub t() Set x = Range("a1") For i = 1 To 501 Step 50 Set x = Union(x, Range("a" & i)) Next i x.Value = "SELECT" End Sub Upvote 0 V

voduyminh0504

Thành viên chính thức

Tham gia 11/2/15 Bài viết 51 Được thích 12 Cám ơn bạn rất nhiều. Tôi chưa thử do hôm nay tôi có quá nhiều việc, và bây giờ mới thấy hướng dẫn của bạn. Rất xin lỗi đã reply chậm hướng dẫn của bạn. Bài đã được tự động gộp: 26/11/20

voduyminh0504 đã viết: Cám ơn bạn rất nhiều. Tôi chưa thử do hôm nay tôi có quá nhiều việc, và bây giờ mới thấy hướng dẫn của bạn. Rất xin lỗi đã reply chậm hướng dẫn của bạn. Nhấp chuột vào đây để mở rộng...

Tôi vừa áp dụng hướng dẫn của bạn. Dùng "hay ho" thì đúng là chưa được, mà phải nói là "quá sức hay ho". Tôi vừa tick một cái và đang định chờ nó chạy thì ... nó xong tát rồi. Rất và rất cám ơn bạn. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

Nếu diễn đàn GPE đóng cửa? (1 người xem)

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 15 Đọc 379 47 phút trước ExcelMy

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Hôm nay lúc 19:57 Maika8008 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Hôm qua, lúc 10:18
• Hàm và công thức Excel

Trả lời 5 Đọc 128 Hôm nay lúc 13:59 phamdinh.huy.aladin@gmail P K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (1 người xem)

• kaoehtkid
• Hôm qua, lúc 19:04
• Những vấn đề chung

Trả lời 4 Đọc 87 Hôm nay lúc 13:49 ptm0412 D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 14 Đọc 279 Hôm nay lúc 09:00 ptm0412

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 82K Hôm nay lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 502 Hôm qua, lúc 16:19 eagle12 E Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 1 Đọc 142 Hôm qua, lúc 10:34 jonythanht J D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 10 Đọc 303 Hôm qua, lúc 08:43 dieppk.nb92 D H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel (1 người xem)

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 112 Hôm qua, lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 135 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 133 Chủ nhật lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 744 Thứ bảy lúc 10:43 Cúc Hr C CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 8 Đọc 2K Thứ bảy lúc 00:09 PhanTuHuong D

• Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

• duongnhuxuyen
• 12/11/25
• Lập Trình với Excel

Trả lời 14 Đọc 476 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape (1 người xem)

• Vũ Hải Sơn
• 2/12/25
• Hàm và công thức Excel

Trả lời 34 Đọc 734 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.

• Thúy Sa
• Thứ năm lúc 17:17
• Những vấn đề chung

Trả lời 1 Đọc 113 Thứ năm lúc 20:29 Maika8008 L

• Question Question

Tạo ComboBox để tìm kiếm tên

• lyvanthang
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 213 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif

• TVT230279
• 5/12/25
• Hàm và công thức Excel

Trả lời 5 Đọc 289 Thứ năm lúc 11:30 87kilua Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

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

• Maika8008 33
• thanthanhan 19
• dungpham01 18
• eagle12 16
• ongke0711 16
• nguyenanhtruong2409 14
• Phan Thế Hiệp 12
• HUONGHCKT 12
• vic_it 11
• ptm0412 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 8
• bsbnhh 7
• Gà Con yêu VBA 7
• Hana2610 6
• dieppk.nb92 6
• duongnhuxuyen 6
• Mr.hieudoanxd 5

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

• Phan Thế Hiệp 63
• Maika8008 26
• ongke0711 17
• thanthanhan 16
• ptm0412 14
• HeSanbi 12
• HUONGHCKT 9
• dungpham01 9
• Cúc Hr 8
• eagle12 8
• dieppk.nb92 6
• befaint 5
• Mr.hieudoanxd 5
• pycckuu410 5
• SA_DQ 4
• nguyenanhtruong2409 4
• Phuocam 4
• nhhnam 2
• Gà Con yêu VBA 2
• huuthang_bd 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom