Nhờ giúp đỡ tự thêm/bớt hàng trong bảng tính

[Pwz.Rqs]

Chào các bạn, mình muốn xin trợ giúp của các bạn để giải quyết một vấn đề như sau:

File mẫu được đính kèm bài biết.

Khi thay đối số lượng ở ô K3 là bao nhiêu thì tương ứng Phần thứ nhất sẽ có bằng đấy hàng.
Tương tự đối với phần thứ hai, khi thay đổi số lượng ở K4 là bao nhiêu thì Phần thứ hai sẽ có bằng đấy hàng.

Trân trọng cám ơn các bạn./.

 

[SA_DQ]

Chưa thật hiểu hết ý của bạn, nhưng cứ thử con macro này xem sao:

Sub ThemHayBotDong()
' ThemHayBotDong Macro
' Keyboard Shortcut: Ctrl+Shift+T
 Dim SoDong
 
 SoDong = [K3].Value
 Rows("5:5").Resize(SoDong).Insert Shift:=xlDown
End Sub

 

[Pwz.Rqs]

Chưa thật hiểu hết ý của bạn, nhưng cứ thử con macro này xem sao:

Sub ThemHayBotDong()
' ThemHayBotDong Macro
' Keyboard Shortcut: Ctrl+Shift+T
 Dim SoDong
 
 SoDong = [K3].Value
 Rows("5:5").Resize(SoDong).Insert Shift:=xlDown
End Sub

Cám ơn bạn đã trợ giúp.
Ý của mình là số dòng của Phần thứ nhất và số dòng của Phần thứ hai được quyết định bằng giá trị của ô K3 và K4.
Khi thay đổi giá trị của K3 và K4 thì số dòng của Phần thứ nhất và Phần thứ hai thay đổi theo.
Ở marco bạn gửi ở trên chỉ có thêm số dòng tương ứng với giá trị ở K3.
Rất cám ơn bạn

 

[Hoàng Tuấn 868]

!!!...............

 

[Pwz.Rqs]

!!!...............

Mình gửi sự thay đổi về số dòng của 2 phần qua 2 files sau. Cám ơn bạn rất nhiều.

 

[Hoàng Tuấn 868]

Mình gửi sự thay đổi về số dòng của 2 phần qua 2 files sau. Cám ơn bạn rất nhiều.

Bạn tham khảo .

 

[Pwz.Rqs]

Bạn tham khảo .

Cám ơn bạn rất nhiều.

 

[Pwz.Rqs]

Bạn tham khảo .

Mình có thể trao đổi thêm để bạn giải thích giúp về các số liệu trong code được không? Mình áp dụng sang biểu của mình thì không được thành công

 

[Hoàng Tuấn 868]

Mình có thể trao đổi thêm để bạn giải thích giúp về các số liệu trong code được không? Mình áp dụng sang biểu của mình thì không được thành công

Bạn đưa biểu lên đây xem sao.

 

[Pwz.Rqs]

Bạn đưa biểu lên đây xem sao.

Cám ơn bạn, nhờ bạn giúp. Các ô trống trong file đều chứa công thức link ở sheet khác sang, mình xóa để trắng vì các sheet khác bị xóa.

 

[Hoàng Tuấn 868]

Cám ơn bạn, nhờ bạn giúp. Các ô trống trong file đều chứa công thức link ở sheet khác sang, mình xóa để trắng vì các sheet khác bị xóa.

Cấu trúc file này của bạn khác file bài #1 nên phải nghiên cứu viết lại bạn ạ

 

[Pwz.Rqs]

Cấu trúc file này của bạn khác file bài #1 nên phải nghiên cứu viết lại bạn ạ

Cám ơn bạn, mình không biết về code nên làm cái tương tự, nghĩ có thể chế biến áp dụng thôi. Phiền bạn giúp thêm lần nữa.

 

[Pwz.Rqs]

Cấu trúc file này của bạn khác file bài #1 nên phải nghiên cứu viết lại bạn ạ

Mình không PM được nên trích lại bài viết. Nhờ bạn bớt chút thời gian giúp mình. Thank.

 

[Hoàng Tuấn 868]

Cám ơn bạn, mình không biết về code nên làm cái tương tự, nghĩ có thể chế biến áp dụng thôi. Phiền bạn giúp thêm lần nữa.

Bạn xem thử.....

 

[Pwz.Rqs]

Bạn xem thử.....

Cám ơn bạn rất nhiều. Bạn nhiệt tình quá. Rất cám ơn bạn./.

 

[Pwz.Rqs]

Bạn xem thử.....

Cám ơn bạn đã giúp mình hoàn thiện file và các kết quả đạt được ngoài mong đợi.
Mình có áp dụng code của bạn cho một sheet khác nhưng có lỗi xảy ra, mình có comment đối với chỗ xảy ra lỗi ở mỗi sheet.
Do mình ko có biết về code nên phiền bạn lần nữa lại giúp mình.
Thank ban rất nhiều.

 

[Hoàng Tuấn 868]

Cám ơn bạn đã giúp mình hoàn thiện file và các kết quả đạt được ngoài mong đợi.
Mình có áp dụng code của bạn cho một sheet khác nhưng có lỗi xảy ra, mình có comment đối với chỗ xảy ra lỗi ở mỗi sheet.
Do mình ko có biết về code nên phiền bạn lần nữa lại giúp mình.
Thank ban rất nhiều.

Mình không hiểu từ này là gì bạn ạ: "comment".

 

[Pwz.Rqs]

Cám ơn bạn đã để ý bài.
Ý mình là cái này, tại không biết diễn đạt thế nào ^^

 

[Hoàng Tuấn 868]

Cám ơn bạn đã để ý bài.
Ý mình là cái này, tại không biết diễn đạt thế nào ^^View attachment 263725

Do mình không biết tiếng Tây nên nếu có thể bạn diễn giải hết bằng tiếng Việt giúp mình, mình không biết bạn định nói lỗi ở trang tính nào, lỗi như thế nào?

 

[ptm0412]

Mình không hiểu từ này là gì bạn ạ: "comment".

Bạn có thể dịch "New comment" khi nhấn chuột phải vào 1 ô excel ra tiếng Việt không? Bạn gọi nó là gì?
Không phải cái gì cũng bắt bẻ như thế.