Tự động cộng thêm 1 đơn vị vào bảng có sẵn (4 người xem)

[duongvietlong9x]

em không biết tiêu đề có đúng không nhưng ý em muốn hỏi thế này
em có 1 bảng như file đính kèm
yêu cầu bây giờ là tất cả các dữ liệu trong bảng trên cộng thêm 1. Nếu làm thủ công thì cách làm là
L2= A2 + 1. sau đó paste value vào A2
nhưng nếu có hàng nghìn sheet thì các bác cho e hỏi có cách nào không. em mù tịt về VBA nên không biết cách viết. có bro nào giúp em với.
cảm ơn các bác rất nhiều.

 

[phucbugis]

em không biết ....

bạn mở file xem có đúng với yêu cầu đó ko nhé, còn vấn đề hàng nghìn sheet ---> bác phóng đại dữ quá

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

 

[duongvietlong9x]

bạn mở file xem có đúng với yêu cầu đó ko nhé, còn vấn đề hàng nghìn sheet ---> bác phóng đại dữ quá

bác giúp em thì giúp cho trót vì em mù tịt hoàn toàn về VBA.
em muốn tất cả các cột từ A-> H chẳng hạn và các dòng từ 5-> 20 đều cộng 1 thì phải sửa ntn?
ps: 1 đơn vị nhỏ thì có thể hàng nghìn sheet khó, chứ khoảng 20 đơn vị x 50 sheet/dv thì cũng k phóng đại đâu bác

 

[phucbugis]

bác giúp em thì giúp cho trót vì em mù tịt hoàn toàn về VBA.
em muốn tất cả các cột từ A-> H chẳng hạn và các dòng từ 5-> 20 đều cộng 1 thì phải sửa ntn?
ps: 1 đơn vị nhỏ thì có thể hàng nghìn sheet khó, chứ khoảng 20 đơn vị x 50 sheet/dv thì cũng k phóng đại đâu bác

bạn down tiếp file cong1 (1) và test thử nhé !

Link: https://www.mediafire.com/?0mfvgmkw2i7vcw8

 

[ndu96081631]

bạn down tiếp file cong1 (1) và test thử nhé !

Code của bạn:

Sub congmot_allsheet_2()
  Dim ws As Worksheet, rng As Range
  Application.ScreenUpdating = False
  For Each ws In Worksheets
    [COLOR=#ff0000]For Each rng In ws.Range("A5:H20")
      rng.Value = rng.Value + 1
    Next[/COLOR]
  Next ws
  Application.ScreenUpdating = True
End Sub

Cũng có thể dùng cách này:

Sub congmot_allsheet_2()
  Dim ws As Worksheet
  For Each ws In Worksheets
    [COLOR=#ff0000]ws.Range("A5:H20") = Evaluate("'" & ws.Name & "'!A5:H20 +1")[/COLOR]
  Next ws
End Sub

Ẹc... Ẹc...

 

[customs45]

em không biết tiêu đề có đúng không nhưng ý em muốn hỏi thế này
em có 1 bảng như file đính kèm
yêu cầu bây giờ là tất cả các dữ liệu trong bảng trên cộng thêm 1. Nếu làm thủ công thì cách làm là
L2= A2 + 1. sau đó paste value vào A2
nhưng nếu có hàng nghìn sheet thì các bác cho e hỏi có cách nào không. em mù tịt về VBA nên không biết cách viết. có bro nào giúp em với.
cảm ơn các bác rất nhiều.

Cách làm như này không biết có đúng ý không?
gõ số 1 vào ô trống nào đó sau đó copy, bôi đen đoạn cần +1 sau đó dùng chức năng Paste Special (vào Paste Special->Operation->add) là xong
Thuật toán là cộng tất cả vùng chọn cho giá trị copy

 

[magnolialethuy]

mình có 1 cột dữ liệu số như này ( cột H ). muốn bên cột I tự động: lấy những ô bên cột H (có giá trị ) thì + 1,ô nào trắng bỏ qua. ai có cách chỉ mình với

 

[HUONGHCKT]

View attachment 271014mình có 1 cột dữ liệu số như này ( cột H ). muốn bên cột I tự động: lấy những ô bên cột H (có giá trị ) thì + 1,ô nào trắng bỏ qua. ai có cách chỉ mình với

Thử: I1=If(H1<>"";H1+1;"")
enter và filldown