Giúp em thay đổi nội dung của 1 hay nhiều dòng nào đó trong nhiều sheet có cấu trúc giống nhau

[dangky47h]

em có 1 file excel bao gồm nhìu sheet (11 sheet ), mỗi sheet có cấu trúc giống nhau
em muốn thay đổi nội dung của 1 hay nhìu dòng tương ứng của các sheet thì làm thế nào vậy các bác
pas:có file mẫu đính kèm các bác giúp em (dòng em muốn thay đổi có nền màu vàng trong sheet 11), giờ em muốn các sheet có dòng tương ứng đều giống sheet11

 

[phulien1902]

em có 1 file excel bao gồm nhìu sheet (11 sheet ), mỗi sheet có cấu trúc giống nhau
em muốn thay đổi nội dung của 1 hay nhìu dòng tương ứng của các sheet thì làm thế nào vậy các bác
pas:có file mẫu đính kèm các bác giúp em (dòng em muốn thay đổi có nền màu vàng trong sheet 11), giờ em muốn các sheet có dòng tương ứng đều giống sheet11

Bạn thử:

Sub abc()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "KC_CD11" Then
            ws.Range("A8:A10").Value = Sheets("KC_CD11").Range("A8:A10").Value
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[dangky47h]

Bạn thử:

Sub abc()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "KC_CD2" Then
            ws.Range("A8:A10").Value = Sheets("KC_CD2").Range("A8:A10").Value
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

cám ơn anh

Bài đã được tự động gộp: 26/6/18

Bạn thử:

Sub abc()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "KC_CD2" Then
            ws.Range("A8:A10").Value = Sheets("KC_CD2").Range("A8:A10").Value
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

sử dụng thế nào vậy anh

 

[dangky47h]

Bạn thử:

Sub abc()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "KC_CD2" Then
            ws.Range("A8:A10").Value = Sheets("KC_CD2").Range("A8:A10").Value
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

em mở vba chen vào module và ấn chạy cũng k duoc, sau đo e chèn vào from cũng k chạy được anh ạ!

 

[phulien1902]

em mở vba chen vào module và ấn chạy cũng k duoc, sau đo e chèn vào from cũng k chạy được anh ạ!

Tôi đã chèn Code vào File của bạn rồi đó, bây giờ công việc của bạn là thay đổi giá trị A8:A10 trong Sheets("KC_CD11") và chạy Code nhé

 

[ndu96081631]

em có 1 file excel bao gồm nhìu sheet (11 sheet ), mỗi sheet có cấu trúc giống nhau
em muốn thay đổi nội dung của 1 hay nhìu dòng tương ứng của các sheet thì làm thế nào vậy các bác
pas:có file mẫu đính kèm các bác giúp em (dòng em muốn thay đổi có nền màu vàng trong sheet 11), giờ em muốn các sheet có dòng tương ứng đều giống sheet11

- Chọn cùng lúc 10 sheets, từ KC_CD1 đến KC_CD10
- Xong quét chọn khu vực A8:A10 rồi gõ vào thanh Formula công thức =KC_CD11!A8:A10 bấm Ctrl + Shift + Enter để kết thúc
Xong

 

[dangky47h]

- Chọn cùng lúc 10 sheets, từ KC_CD1 đến KC_CD10
- Xong quét chọn khu vực A8:A10 rồi gõ vào thanh Formula công thức =KC_CD11!A8:A10 bấm Ctrl + Shift + Enter để kết thúc
Xong

vâng e acmr ơn anh

Bài đã được tự động gộp: 26/6/18

Tôi đã chèn Code vào File của bạn rồi đó, bây giờ công việc của bạn là thay đổi giá trị A8:A10 trong Sheets("KC_CD2") và chạy Code nhé

vâng, anh ơi, khi nào chèn mã vba vào "Module", khi nào chèn vào "view code" trong từng sheet và khi nào chèn vào "UserForm"

 

[SA_DQ]

Vâng, anh ơi, khi nào chèn mã vba vào "Module", khi nào chèn vào "view code" trong từng sheet và khi nào chèn vào "UserForm"

Trên UserForm thì fải viết macro cho các sự kiện diễn ra trên các Controls của Form
Trên trang tính nào đó ta cũng có thể viết các sự kiện diễn ra trên trang tính đó
Trên 2 cái này, ta có thể thêm các hàm người dùng, nhưng hãn hữu;
Thường hàm người dùng ta thấy trên Module1

 

[be_09]

em có 1 file excel bao gồm nhìu sheet (11 sheet ), mỗi sheet có cấu trúc giống nhau
em muốn thay đổi nội dung của 1 hay nhìu dòng tương ứng của các sheet thì làm thế nào vậy các bác
pas:có file mẫu đính kèm các bác giúp em (dòng em muốn thay đổi có nền màu vàng trong sheet 11), giờ em muốn các sheet có dòng tương ứng đều giống sheet11

Góp ý:
Theo tôi cái này theo dõi chỉ cần 4 sheet là đủ nếu theo dõi cùng lúc nhiều dự án mà làm vầy có nước mà chết.
1/ Thiết kế 1 sheet dùng nhập liệu tương tự như 1 sheet lớp.
2/ Dùng 1 sheet lưu theo dõi chung các dự án, theo lý trình, theo lớp.
3/ Dùng 1 sheet in lớp theo lý trình.
4/ Muốn xem lại dự án nào, lý trình, lớp nào thì thêm 1 sheet lọc.

Làm như vậy thì sẽ dễ dàng theo dõi, quản lý dễ tổng hợp theo dự án, theo lý trình, theo lớp thì quá dễ, dung lượng File cũng giảm đáng kể (vì không phải chứa quá nhiều sheet).

 

[dangky47h]

Góp ý:
Theo tôi cái này theo dõi chỉ cần 4 sheet là đủ nếu theo dõi cùng lúc nhiều dự án mà làm vầy có nước mà chết.
1/ Thiết kế 1 sheet dùng nhập liệu tương tự như 1 sheet lớp.
2/ Dùng 1 sheet lưu theo dõi chung các dự án, theo lý trình, theo lớp.
3/ D

Góp ý:
Theo tôi cái này theo dõi chỉ cần 4 sheet là đủ nếu theo dõi cùng lúc nhiều dự án mà làm vầy có nước mà chết.
1/ Thiết kế 1 sheet dùng nhập liệu tương tự như 1 sheet lớp.
2/ Dùng 1 sheet lưu theo dõi chung các dự án, theo lý trình, theo lớp.
3/ Dùng 1 sheet in lớp theo lý trình.
4/ Muốn xem lại dự án nào, lý trình, lớp nào thì thêm 1 sheet lọc.

Làm như vậy thì sẽ dễ dàng theo dõi, quản lý dễ tổng hợp theo dự án, theo lý trình, theo lớp thì quá dễ, dung lượng File cũng giảm đáng kể (vì không phải chứa quá nhiều sheet).

vâng nhưng chắc thực hiện thì khó a nhỉ hi

lý trình, lớp nào thì thêm 1 sheet lọc.

Làm như vậy thì sẽ dễ dàng theo dõi, quản lý dễ tổng hợp theo dự án, theo lý trình, theo lớp thì quá dễ, dung lượng File cũng giảm đáng kể (vì không phải chứa quá nhiều sheet).