Tin Học

VBA Excel Cấp Tốc Bài 9

Xem bài trước

>> VBA Excel Express Bài 1 – Lọc nhiều dữ liệu có điều kiện với bộ lọc nâng cao

Bạn Đang Xem: VBA Excel Cấp Tốc Bài 9

>> VBA Excel Express Bài 2 – In Bảng Chín Chương

>> VBA Excel Express Bài 3 – In hàng loạt nhanh

>> VBA Excel Express Bài 4 – Tự động xóa hàng loạt trang tính không hoạt động

>> VBA Excel Express Bài 5 – Sao chép tệp từ thư mục này sang thư mục khác

>> VBA Excel Express Bài 6 – Hướng dẫn sử dụng Record Macro trong Excel từ Cơ bản đến Nâng cao

>> VBA Excel Express Bài 7 – Cách hợp nhất nhiều tệp Excel thành một tệp

>> VBA Excel Express Bài 8 – Cách tạo hàng loạt hộp kiểm trong Excel

Video hướng dẫn

Xem Thêm : Bánh Xe Cảm Xúc Là Gì? Lý Thuyết, Cách Sử Dụng Và Ứng Dụng Thực Tế

Viết một hàm nối chuỗi

Đầu tiên là một Tập tin màu trắng bạn cần tiết kiệm Tập tin trước khi thực hành: đi đến thẻ Tập tin ở góc trên của màn hình -> Lưu dưới dạng -> chọn nơi lưu Tệp -> cho tên -> hộp bên dưới hộp đặt tên chọn Macro Excel -> Lưu

lưu tệp trước khi thực hành

Mở Ngôn ngữ lập trình up: Trong Nhà phát triển -> Visual Basic -> Chèn -> Mô-đun.

mở hình ảnh cơ bản

Chương trình bắt đầu với: Hàm số tên chương trình (chuỗi As Range, các ký tự giữa các chuỗi As String) đi vào tự tạo xuống dòng Chức năng Kết thúc.
Bán tại: Hàm call_string (string As Range, ky_tu_giua_cac_string As String)
Kết thúc chức năng

Khai báo một biến mỗi ký tự: Dim moi_ky_tu As Range
Sử dụng vòng lặp để quét từng ô một trong phạm vi: Đối với mỗi moi_ky_tu Trong chui và nên xuống gõ Kế tiếp chủ đề kết thúc vòng tránh quên.

đầu cuối chương trình

Tiếp theo trong vòng lặp bạn viết lệnh nối chuỗi: tên chương trình = tên chương trình và khai báo từng ký tự đầu và ký tự giữa các chuỗi. ví dụ: gọi điện

Nhưng khi vòng lặp For hoàn thành, bạn sẽ có thêm một ký tự nối chuỗi ở cuối, vì vậy hãy xóa nó bằng lệnh: noi_chuoi = Left (noi_chuoi, Len (noi_chuoi) – Len (ky_tu_giua_cac_chuoi)). Trong đó Trái chức năng xóa cũng là Len là hàm độ dài.

Bây giờ bạn có thể sử dụng chức năng talk_speech bằng cách bạn đánh dấu vào ô bạn muốn chứa loại chuỗi đó talk_speech(đánh dấu vùng dữ liệu bạn muốn nối; “khoảng cách giữa các chuỗi được nối”)

hàm nối chuỗi trong Excel

Mã hàm nối chuỗi:

Hàm call_string (string As Range, ky_tu_giua_cac_string As String)
Dim moi_ky_tu As Range


Đối với mỗi bản in moi_ky_tu
gọi điện


Kế tiếp
noi_chuoi = Left (noi_chuoi, Len (noi_chuoi) – Len (ky_tu_giua_cac_chuoi))


Kết thúc chức năng

Xem Thêm : Top 3 cách chèn ảnh vào PowerPoint nhanh, chính xác nhất

Kết quả.

kết quả nối chuỗi

Viết hàm tính tổng

Đầu tiên, chúng ta cũng bắt đầu với tên chương trình: Hàm số tên chương trình (chuỗi dưới dạng chuỗi) Nhập dòng mới tự tạo Chức năng Kết thúc.
ví dụ: Hàm Tinh_tong (string As String)
Kết thúc chức năng

Gán giá trị cho Tinh_tong bằng không(tinh_tong = 0)khai báo biến i để tách và quét từ ký tự đầu tiên đến ký tự cuối cùng: Dim i As Integer

Khai báo nhiều hàng hơn cho mỗi ký tự để tính tổng: Dim tung_ky_tu As String.

Tiếp theo là vòng lặp cho phép tôi quét từng ký tự trong chuỗi: For i = 1 To Len (string)Kế tiếp để kết thúc vòng lặp.

hàm tổng

Tiếp theo tôi sẽ chỉ định tung_ky_tu bằng mid (string, i, 1). Hàm mid dùng để tách từng ký tự trong chuỗi. Vd tung_ky_tu = Mid (chuoi, i, 1)

Sử dụng hàm If để xác định đó là số hay chữ, nếu là số thì hàm sẽ lấy số đó và tính tổng, nếu không thì sẽ bỏ qua và quay lại vòng lặp For.
ví dụ: Nếu tung_ky_tu> = “0” Và tung_ky_tu <= "9" Thì
Tinh_tong = Tinh_tong + tung_ky_tu
EndIf

lặp lại nếu

Bây giờ bạn có thể tính tổng bất kỳ ô nào trong Tệp Excel.

tổng kết quả

Đoạn văn mã số toàn bộ:

Hàm Tinh_tong (string As String)
Tinh_tong = 0
Dim i As Integer
Dim tung_ky_tu As String


For i = 1 To Len (string)
tung_ky_tu = Mid (chuoi, i, 1)


Nếu tung_ky_tu> = “0” Và tung_ky_tu <= "9" Thì
Tinh_tong = Tinh_tong + tung_ky_tu
EndIf
Kế tiếp
Kết thúc chức năng

ĐIỂM CHO BÀI VIẾT NÀY

Nguồn: https://lienket365.com
Danh mục: Tin Học

Related Articles

Trả lời

Email của bạn sẽ không được hiển thị công khai.

Back to top button