CÔNG TY CỔ PHẦN BLUESOFTS

CÔNG TY CỔ PHẦN BLUESOFTS

/ Lập trình VBA / cơ bản / Điền dữ liệu vào 2 cột tự động theo ý bằng VBA

Điền dữ liệu vào 2 cột tự động theo ý bằng VBA

 Giải bài toán theo yêu cầu như sau:

Yêu cầu bài toán: Điền giá trị từ A1:A10 là 1:100, tương ứng mỗi giá trị tại cột A điền tiếp giá trị tại cột B từ B1:B100 nếu là:
- Dòng chẵn điền "Bluesofts.net"
- Dòng lẻ điền "Excelnangcao.com"
Để giải bài toán trên, các bạn làm theo các bước sau:
Bước 1: Các bạn tạo mới một module và copy code ở dưới đây vào.
Sub VongLapFor()
Dim i As Long
For i = 1 To 100
Cells(i, 1).Value = i
If i Mod 2 = 1 Then
Cells(i, 2).Value = "Excelnangcao.com"
Else
Cells(i, 2).Value = "Bluesofts.net"
End If
Next i
End Sub

Bước 2: Tại môi trường bảng tính, bạn tạo một nút bấm (hoặc Shap) để gán và chạy macro.

Bước 3: Click chuột trái vào nút bấm để chạy macro và nhận kết quả.

Các bạn vào đây download file ví dụ: Download

Để tìm hiểu VBA trong Excel là gì, tại sao những người làm Excel cần học VBA, các bạn tìm hiểu tại khóa Đào tạo VBA trong Excel cơ bản tại Bluesofts.net.

 

Tác giả: Hoàng Phong - Công ty Cổ phần Bluesofts