Tạo code insert dòng tự động

[thao82]

Mình mới tập tẹ nghiên cứu code VBA trong EXEL nên còn non nớt lắm! Xin hỏi các cao thủ về lập trình nhé!
Mình có 1 file đính kèm muốn làm như sau:
Ở sheet 1 mình có 1 bảng (như trong file đính kèm) khi mình insert 1 dòng trên bảng đó thì tự động ở sheet 2 cũng sẽ insert 1 dòng tương ứng. Tuy nhiên, cột số lượng mình muốn là khi mình thêm 1 dòng ở sheet 1 thì ở sheet 2 cũng thêm 1 dòng tương ứng và gán công thức tương ứng cho ô vừa thêm!
Mong các cao thủ giúp mình nhé!
À bảng của mình còn nhiều chỉ tiêu nữa nhưng mình lấy ví dụ một vài cái thôi!

 

[hoa.ha]

Có gì đâu em chọn hết tất cả các sheet roi hãy ỉne

 

[hoangsih]

không ai trả lời bạn này à, đang cần cái này các bác ạ

 

[hoa35ktxd]

Bạn thử doạn code này xem nhé.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> Sheet1.Name Then Exit Sub
    Dim I As Integer
    Dim NotEmpt As Boolean
    For I = 1 To 256'Không nhất thiết phải kiểm tra hết các cột
        If Cells(Target.Row, I).Value <> "" Then NotEmpt = True: Exit For
    Next
    If Not NotEmpt Then
        With Sheets(2)
            .Rows(Target.Row).Insert
            .Cells(Target.Row, 7).Value = "=Sheet1!C" & Target.Row
        End With
    End If
End Sub

 

[sieutrom]

Mình có 1 phiếu thu, trong đó có 1 sheet tên "THU" và 1 sheet tên "Tong", mình muốn sao cho cho khi sửa dữ liệu từ sheet "THU", thì sheet "Tong" se tự động insert vào thêm, chứ không phải đè lên record cũ,mình mong các bạn hướng dẫn dùm mình.cám ơn các bạn.

 

[hoa35ktxd]

Cái này bạn nên làm 1 form, trên đó có các Textbox nhập liệu theo yêu cầu và các nút bấm như "chấp nhận", "sửa", "Lưu", "Thoát", khi nhập xong số liệu và bấm vào nút nào đó để tiến hành thêm dòng.
Làm như bạn thì biết lúc nào là thêm, lúc nào sửa.
Tôi làm sẵn cho bạn 1 form để bạn tham khảo.

 

[sieutrom]

Mình cảm ơn bạn rất nhiều.

 

[trôimuabun]

To hoa35ktxd: Sao mình không thấy form nào trong file Formphieuthu.xls hết vậy. Bạn hướng dẫn kỹ hơn tí đi. Xin cảm ơn.

 

[hoa35ktxd]

Hì, tại tôi lười không đưa cái đó ra bên ngoài.
Bạn nhấn Alt+F11 để mở VBE ra, nếu trên màn hình đã hiển thị cửa sổ mã lệnh thì chỉ việc nhấn F5 để chạy, nếu chưa thì nhìn sang bên trái, click vào thư mục Form>UserForm1 và nhấn F5
Có lẽ bạn chưa biết về VBA nên mới không thấy.
Còn việc để nhập số liệu có thể nhập bằng cách tạo form đơn giản mà Excel đã cung cấp bằng cách vào menu Data>Form

 

[danghochoi1234]

Cho em hỏi có cách nào gán macro cho cell nào đó để mình nhấn enter thì nó tự động chạy con macro đó không các bác.

 

[win-sun]

Nhờ hướng dẫn cạy form và code

- Mình gửi file nhờ các anh chị hướng dẫn giúp:
- mình đã tạo 2 button ở sheet-xem, mình muốn đặt tên cho button 1 là "thực hiện" và để chạy form gồm 03 cột mỗi cột khoảng 10 hàng :ngày tháng; mã số và số lượng sau đó nhấn nút sẽ dán vào sheet cập nhật
- tương tự cho button 2 mình đặt tên "giao hàng" và dán vào sheet cập nhật tại cột giao hàng (xuất kho).
Rất mong được các anh chị giúp đỡ, cảm ơn

 

[nguyen trunghoa]

Nhờ giúp dùm mình xử lý các vấn đề sau :
Mình mới tập lập trình bằng VBA trên nền excel và tự nghiên cứu tài liệu hướng dẫn trên mạng nên chưa biết nhiều về cách viết code , đang rất các cao thủ giúp dùm (đừng khóa đoạn mã code để mình tham khảo học hỏi) . Rất cảm ơn :
- Trong sheet1 của file excel mình có tạo cơ sở dữ liệu gồm các cột như sau : Số thứ tự , Họ lót , Tên , Năm sinh , Nữ , Dân tộc , tên cha hoặc mẹ , nơi ở , đang học lớp .
- Mình có yêu cầu khi nhập dữ liệu vào đến hết dòng cuối và enter thì tự động thêm các dòng có kẻ khung sẵn , bấm vào nút lấy số thứ tự thì tự động đánh số thứ tự .
- Sang sheet2 cũng có bảng như sheet1 nhưng đã được lọc dữ liệu theo cột năm sinh và nơi ở để ghi sang sheet này .