Hướng dẫn nhập dữ liệu đồng thời vào nhiều Sheet

Bài viết sau sẽ chi tiết cách thực hiện việc nhập dữ liệu đồng thời vào nhiều Sheet.

Có hai phương pháp để thực hiện việc này.

Phương pháp 1: Gom các sheet lại thành nhóm bằng cách sử dụng phím Ctrl.

Cách 2: Sử dụng VBA để nhập dữ liệu.

1. Gom các sheet thành nhóm bằng cách sử dụng phím Ctrl

Bước 1: Nhấn giữ phím Ctrl và chọn tên các sheet muốn nhập dữ liệu đồng thời. Sau khi chọn xong, các sheet sẽ được nhóm lại thành một Nhóm.

Bước 2: Sau khi gom nhóm, nhập dữ liệu vào bất kỳ sheet nào trong nhóm.

Bước 3: Hiển thị kết quả trên các sheet khác:

Sheet 5:

Nếu muốn loại bỏ một sheet khỏi nhóm, bạn có thể thực hiện như sau: Click chuột phải vào tên sheet -> Chọn UnGroup Sheets.

Chú ý: Phương pháp này có nhược điểm là không thể có các tùy chọn riêng cho từng sheet. Để linh hoạt hơn, bạn nên sử dụng VBA để nhập dữ liệu.

2. Áp dụng VBA để nhập dữ liệu

Bước 1: Mở Excel, tạo 5 sheet cần nhập dữ liệu. Ở đây, bạn muốn nhập dữ liệu ban đầu vào sheet 5. Tại sheet 5, tạo vùng dữ liệu muốn nhập (các sheet khác chỉ nhập dữ liệu giống nhau trong vùng chọn này) -> Chuột phải chọn Define Name.

Bước 2: Hộp thoại xuất hiện, đặt tên cho vùng dữ liệu được chọn -> OK. Lưu ý ghi nhớ tên vùng chọn.

Sau khi đặt tên vùng dữ liệu:

Bước 3: Nhấn tổ hợp phím Alt + F11. Cửa sổ VBA xuất hiện chọn Sheet5 -> Chọn sự kiện SelectionChange của Worksheet và nhập câu lệnh như hình dưới:

Code:

// Sự kiện SelectionChange.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("MyRank"), Target) Is Nothing Then
Sheets(Array("Sheet5", "Sheet4", "Sheet3", "Sheet2", "Sheet1")).Select
Else
Me.Select
End If
End Sub
// Sự kiện Change.
Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("MyRank"), Target) Is Nothing Then
With Range("MyRank")
.Copy Destination:=Sheets("Sheet3").Range("A5")
.Copy Destination:=Sheets("Sheet1").Range("E5")
End With
End If
End Sub

Chú ý: Bạn chọn Sheet nào nhập dữ liệu đầu vào thì trong câu lệnh viết sheet đó đầu tiên. Như ví dụ ở đây là Sheet5.

Bước 4: Nhấn Alt + F11 để quay lại nhập dữ liệu tại sheet5.

Kết quả tại các sheet khác:

Sheet 4:

Sheet1:

Chú ý: Trường hợp bạn nhập dữ liệu trong Sheet 5 ngoài vùng chọn đã được đặt tên MyRank thì dữ liệu không được vào các sheet kia.

Trường hợp bạn muốn nhập dữ liệu vào vị trí khác nhau trong các sheet kia có thể làm như sau:

Bước 1: Nhấn tổ hợp phím Alt + F11 cửa sổ VBA xuất hiện chọn sheet5 -> chọn sự kiện Change của Worksheet -> nhập đoạn mã sau.

Các bạn lưu ý tùy yêu cầu các bạn chọn vị trí nhập dữ liệu:

Bước 2: Nhấn tổ hợp phím Alt + F11 quay trở lại Sheet5 nhập dữ liệu mới.

Kết quả ở Sheet 1:

Kết quả ở Sheet 3:

Trên đây là những phương pháp giúp các bạn nhập liệu tiết kiệm được thời gian và công sức.

Chúc các bạn thành công!