Tự động thêm cột theo yêu cầu (4 người xem)

[ninhtindcd]

Mình đang có 1 file tổng hợp nề nếp tuần
ví dụ: Mình muốn tổng hợp tuần 1,2,3 thì sẽ xuất hiện 3 cột là tuần 1|Tuần 2|Tuần 3. Nhưng nếu mình muốn tổng hợp thêm tuần 4 nữa thì sao. Mình muốn thêm cột tuần 4 vào. Các bạn giúp đỡ mình với. Chú ý viết bằng VBA nhé. Mình cảm ơn các bạn trước nha!

 

[phucbugis]

Mình đang có 1 file tổng hợp nề nếp tuần
ví dụ: Mình muốn tổng hợp tuần 1,2,3 thì sẽ xuất hiện 3 cột là tuần 1|Tuần 2|Tuần 3. Nhưng nếu mình muốn tổng hợp thêm tuần 4 nữa thì sao. Mình muốn thêm cột tuần 4 vào. Các bạn giúp đỡ mình với. Chú ý viết bằng VBA nhé. Mình cảm ơn các bạn trước nha!

mình nghĩ chưa cần phải dùng đến VBA,
cái bạn cần là lập công thức tham chiếu chính xác vị trí cột Lớp và Tuần:
Trường hợp này mình dùng Index, Match, Match + kèm thêm Address, Row để tự động xác định vị trí tham chiếu.

=INDEX('DU LIEU'!$B$7:$G$27;MATCH(INDIRECT(ADDRESS(ROW();4));'DU LIEU'!$B$7:$B$27;0);MATCH(INDIRECT(ADDRESS(6;COLUMN()));'DU LIEU'!$B$7:$G$7;0))

Link: https://www.mediafire.com/?mw0ivyxjqoza497

 

[ninhtindcd]

bạn không hiểu ý tôi rồi. Cột sẽ được tự động thêm vào theo thứ tự theo ô D3 và F3 ấy. Trong ví dụ mình đưa là Ẻ=1 và F4=4 thì xuất hiện tuần 1, tuần 2, tuần 3,tuần 4. Nhưng nếu chọn F3=5 thì tự động thêm cả Tuần 5 nữa

 

[haonlh]

Tôi giải theo cách:
Thiết kế có từ tuần 1 đến tuần 10. Tuỳ số nhập vô ô F3 từ 3 đến 10 thì chuơng trình sẽ hiện các cột từ tuần 1 đến tuần có số tương ứng viết trong F3

Vừa rồi gửi 1 bài không đính kèm file nên chép code ra đây:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$F$3" Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
i = Int(Target.Value)
If (i > 2) And (i < 11) Then
Range("E:N").EntireColumn.Hidden = 0
If i < 10 Then
Range(Chr(i + 69) & ":N").EntireColumn.Hidden = 1
End If
End If
End Sub

May đính kèm được file

 

[phucbugis]

Tôi giải theo cách: ...
May đính kèm được file

hình như bạn đang gần hết dung lượng để Up file lên diễn đàn, nếu vậy thì tham khảo 2 link sau xem nhé:
Thông báo BQT khi không thể tải tập tin đính kèm lên GPE
Hết Quota upload file

 

[ninhtindcd]

tự động thêm dòng theo yêu cầu

hình như bạn đang gần hết dung lượng để Up file lên diễn đàn, nếu vậy thì tham khảo 2 link sau xem nhé:
Thông báo BQT khi không thể tải tập tin đính kèm lên GPE
Hết Quota upload file

Cảm ơn các bạn trên diễn đàn GPE. nhưng anh em chỉ mới giải quyết được là khi chọn Ô F3 thay đổi nó sẽ thay đổi số cột thôi còn nếu D3 thay đổi thì sao. Ví dụ nếu D3=3 và F3=5 thì xuất hiện tuần 3 tuần 4, tuần 5 còn tuần 1, 2 thì không xuất hiện. Với lại anh em nên giải thích lệnh cho anh em hiểu để ứng dụng vào các trường hợp khác nữa. Trân trọng