Điền dữ liệu tự động bằng VBA

[sonminhtran]

Vui lòng hỗ trợ điền dữ liệu tự động bằng VBA vào các ô "B, C, D, E, F" dựa theo dữ liệu Cột A

Ví dụ:
1. Cột B2 bằng ngày hiện tại
2. Cột "C, D, E, F" sẽ điền dữ liệu tự động chữ "A tương ứng cột C2, Chữ B tương ứng D2, Chữ C tương ứng cột E2, Chữ D tương ứng cột F2.
3. Chữ A, B, C, D, E của các cột "C, D, E, F" sẽ căn cứ theo dữ liệu cột A, nếu dữ liệu cột A tới đâu thì các cột kia chạy theo như vậy

(File đính kèm).

Xin cảm ơn

 

[befaint]

1. Cột B2 bằng ngày hiện tại
2. Cột "C, D, E, F, G" sẽ điền dữ liệu tự động chữ "A tương ứng cột C2, Chữ B tương ứng D2, Chữ C tương ứng cột E2, Chữ D tương ứng cột F2.
3. Chữ A, B, C, D, E của các cột "B, C, D, E, F" sẽ căn cứ theo dữ liệu cột A, nếu dữ liệu cột A tới đâu thì các cột kia chạy theo như vậy

Kiểm tra lại xem mình có viết nhầm nhọt gì hông?

 

[Hoang2013]

Xài macro sự kiện sẽ thỏa iêu cầu của bạn;

Nhưng chưa thật sự hiểu hết í bạn, nên chưa dám làm.

 

[sonminhtran]

Xin lỗi mình gửi lại

1. Cột B2 bằng ngày hiện tại
2. Cột "C, D, E, F" sẽ điền dữ liệu tự động "Chữ A tương ứng cột C2, Chữ B tương ứng D2, Chữ C tương ứng cột E2, Chữ D tương ứng cột F2.
3. Chữ A, B, C, D của các cột "C, D, E, F" sẽ căn cứ theo dữ liệu cột A, nếu dữ liệu cột A tới đâu thì các cột kia chạy theo như vậy

 

[phulien1902]

Xin lỗi mình gửi lại

1. Cột B2 bằng ngày hiện tại
2. Cột "C, D, E, F" sẽ điền dữ liệu tự động "Chữ A tương ứng cột C2, Chữ B tương ứng D2, Chữ C tương ứng cột E2, Chữ D tương ứng cột F2.
3. Chữ A, B, C, D của các cột "C, D, E, F" sẽ căn cứ theo dữ liệu cột A, nếu dữ liệu cột A tới đâu thì các cột kia chạy theo như vậy

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
        With Target
            .Offset(, 1) = Format(Now(), "m/d/yyyy")
            .Offset(, 2) = "A": .Offset(, 3) = "B"
            .Offset(, 4) = "C": .Offset(, 5) = "D"
        End With
    End If
End Sub

 

[be_09]

Xài macro sự kiện sẽ thỏa iêu cầu của bạn;

Nhưng chưa thật sự hiểu hết í bạn, nên chưa dám làm.

Đúng vậy, chủ Topic nêu vấn đề không rõ ràng, đúng ra phải nêu thế này:
- Tôi có sheet Data chứa danh mục (chưa đính kèm sheet danh mục).
- Tôi muốn dùng UserForm hay cái gì đó ......gõ từ gợi nhớ để xuất hiện danh sách cần, khi chọn 1 hay nhiều loại thì tự động gán dữ liệu vào Sheet1.

Nếu chưa nắm rõ được cái chủ Topic mong muốn, e rằng nhảy bổ vô làm chỉ tốn công vô ích.

 

[sonminhtran]

Cảm ơn bạn mình đã làm được

Cho mình hỏi bạn "phulien1902" #5, nếu mình tạo nút nhấn không phải chạy tự động như code trên thì chỉnh sửa như thế nào

Ví dụ: dữ liệu mình không muốn chạy tự động ở các cột B, C, D, E khi đánh số 1, 2, 3.. ở Cột A. Mà mình muốn đánh số xong rồi nhấn vào nút "GPE" thì sẽ chạy dữ liệu

Xin cảm ơn

 

[phulien1902]

Cho mình hỏi bạn "phulien1902" #5, nếu mình tạo nút nhấn không phải chạy tự động như code trên thì chỉnh sửa như thế nào

Ví dụ: dữ liệu mình không muốn chạy tự động ở các cột B, C, D, E khi đánh số 1, 2, 3.. ở Cột A. Mà mình muốn đánh số xong rồi nhấn vào nút "GPE" thì sẽ chạy dữ liệu

Xin cảm ơn

Bạn thử:

Sub abc()
    Dim i&
    For i = 2 To Cells(Rows.Count, 1).End(xlUp) + 1
        Cells(i, 2).Value = Evaluate("=now() ")
        Cells(i, 3).Value = "A": Cells(i, 4).Value = "B"
        Cells(i, 5).Value = "C": Cells(i, 6).Value = "D"
    Next
End Sub

 

[doveandrose]

lâu quá quên sạch kiến thức, giờ phải ôn lại từ đầu, hi hi. Làm chơi ôn bài chứ đầu bài chắc không phải thế này

Public Sub hello()
Sheet1.Range("B2:F" & Sheet1.[A100000].End(xlUp).Row).Value = Array("=now()", "A", "B", "C", "D")
End Sub