Tính tổng và copy mảng.

[hongphuong1997]

Nhờ các bác, thầy cô và anh chị viết giúp code như file đính kèm

 

[ndu96081631]

Nhờ các bác, thầy cô và anh chị viết giúp code như file đính kèm

- Bạn gõ vào cell B10 công thức:

=SUM(OFFSET(B$8,,,-ROWS(A$1:A2)))

- Kéo fill xuống đến B15
- Cuối cùng copy B10:B15 rồi paste sang chỗ khác
Vậy thôi

 

[hongphuong1997]

- Bạn gõ vào cell B10 công thức:

=SUM(OFFSET(B$8,,,-ROWS(A$1:A2)))

- Kéo fill xuống đến B15
- Cuối cùng copy B10:B15 rồi paste sang chỗ khác
Vậy thôi

Bác ơi, nhưng cháu thick viết bằng sub() cơ bác à, vì cháu đang học mà.

 

[ndu96081631]

Bác ơi, nhưng cháu thick viết bằng sub() cơ bác à, vì cháu đang học mà.

Thì cứ record macro đi, sẽ có code

 

[hongphuong1997]

Thì cứ record macro đi, sẽ có code

Bác ơi, cháu ghi được như này rùi,
Sub Macro2()
Range("B10").FormulaR1C1 = "=SUM(OFFSET(R8C,,,-ROWS(R1C[-1]:R[-8]C[-1])))"
AutoFill Destination:=Range("B10:B15"), Type:=xlFillDefault
End Sub
Bây giờ phải làm như nào hở Bác?
Cháu cảm ơn Bác!

 

[ndu96081631]

Bác ơi, cháu ghi được như này rùi,
Sub Macro2()
Range("B10").FormulaR1C1 = "=SUM(OFFSET(R8C,,,-ROWS(R1C[-1]:R[-8]C[-1])))"
AutoFill Destination:=Range("B10:B15"), Type:=xlFillDefault
End Sub
Bây giờ phải làm như nào hở Bác?
Cháu cảm ơn Bác!

Vậy là có được bước đầu rồi đó. Thường với công thức dạng RC thì có thể áp dụng cho nguyên khối cell, chẳng hạn:

Sub Macro2()
  Range("B10:B15").Value = "=SUM(OFFSET(R8C,,,-ROWS(R1C[-1]:R[-8]C[-1])))"
End Sub

"Thừa thắng xông lên" áp dụng cho 5 cột luôn:

Sub Macro2()
  Range("B10:B15,E10:E15, H10:H15, K10:K15, N10:N15").Value = "=SUM(OFFSET(R8C,,,-ROWS(R1C[-1]:R[-8]C[-1])))"
End Sub

Nếu muốn PasteValues thì thêm dòng này ở dưới

Range("B10:N15").Value = Range("B10:N15").Value

 

[hongphuong1997]

Vậy là có được bước đầu rồi đó. Thường với công thức dạng RC thì có thể áp dụng cho nguyên khối cell, chẳng hạn:

Sub Macro2()
  Range("B10:B15").Value = "=SUM(OFFSET(R8C,,,-ROWS(R1C[-1]:R[-8]C[-1])))"
End Sub

"Thừa thắng xông lên" áp dụng cho 5 cột luôn:

Sub Macro2()
  Range("B10:B15,E10:E15, H10:H15, K10:K15, N10:N15").Value = "=SUM(OFFSET(R8C,,,-ROWS(R1C[-1]:R[-8]C[-1])))"
End Sub

Nếu muốn PasteValues thì thêm dòng này ở dưới

Range("B10:N15").Value = Range("B10:N15").Value

Úi bác ui bác con cảm ơn Bác.

 

[truongvu317]

vì cháu đang học mà

AVB với Excel thì tui chịu, có muốn học "hướng dẫn sử dụng đàn bà" "hướng dẫn sử dụng con trai" thì tui dạy cho.

Bác ơi, cháu ghi được như này rùi,
Sub Macro2()
Range("B10").FormulaR1C1 = "=SUM(OFFSET(R8C,,,-ROWS(R1C[-1]:R[-8]C[-1])))"
AutoFill Destination:=Range("B10:B15"), Type:=xlFillDefault
End Sub
Bây giờ phải làm như nào hở Bác?
Cháu cảm ơn Bác!

Giờ ngồi copy value là xong chứ còn gì nữa.

 

[hongphuong1997]

AVB với Excel thì tui chịu, có muốn học "hướng dẫn sử dụng đàn bà" "hướng dẫn sử dụng con trai" thì tui dạy cho.


Giờ ngồi copy value là xong chứ còn gì nữa.

Thế câu lện nó như nào?
Chẳng nhé cứ thế mà copy cho tất cả à

 

[truongvu317]

Thế câu lện nó như nào?
Chẳng nhé cứ thế mà copy cho tất cả à

Chuột trái, chọn copy, rồi lại chuột trái và chọn dán

 

[hongphuong1997]

AVB với Excel thì tui chịu, có muốn học "hướng dẫn sử dụng đàn bà" "hướng dẫn sử dụng con trai" thì tui dạy cho.


Giờ ngồi copy value là xong chứ còn gì nữa.

Cháu đã làm như này roài;
Sub Macro4()
'
' Macro4 Macro
'

'
Selection.Copy
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Nhưng chẳng nhẽ copy bao nhiêu lần cũng như này hở Bác?

 

[truongvu317]

Cháu đã làm như này roài;
Sub Macro4()
'
' Macro4 Macro
'

'
Selection.Copy
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Nhưng chẳng nhẽ copy bao nhiêu lần cũng như này hở Bác?

HOặc là dùng cái .value ý.

 

[hongphuong1997]

HOặc là dùng cái .value ý.

Cháu chưa biết cái đó, bác
truongvu317
giúp cháu đi Bác

 

[truongvu317]

Cháu chưa biết cái đó, bác
truongvu317
giúp cháu đi Bác

Cháu cái gì mà cháu, "tuổi ba mươi mà ngỡ như trẻ thơ".
code ví dụ thì ở bài #6 rồi đó.

 

[hongphuong1997]

Cháu cái gì mà cháu, "tuổi ba mươi mà ngỡ như trẻ thơ".
code ví dụ thì ở bài #6 rồi đó.

Nhưng mà cái Bác này, Cháu làm hàng ngàn cái như vậy thì cũng nhập như thế sao?
Bác chẳng hiểu gì hết.

 

[truongvu317]

Nhưng mà cái Bác này, Cháu làm hàng ngàn cái như vậy thì cũng nhập như thế sao?
Bác chẳng hiểu gì hết.

Đó lại là một câu chuyện khác rùi, khi có nhiều vùng người ta vẫn dùng cách đó, nhưng phải ứng biến đi, code có thể sẽ dài hơn chút, nhưng áp dụng cho vô số vùng cũng được,

 

[hongphuong1997]

Đó lại là một câu chuyện khác rùi, khi có nhiều vùng người ta vẫn dùng cách đó, nhưng phải ứng biến đi, code có thể sẽ dài hơn chút, nhưng áp dụng cho vô số vùng cũng được,

Bác toàn nói suông thui, Bác sửa cho cháu cái trường hợp này đi.
Nếu không biết thì đừng nói tức sóc cho người ta nhé.

 

[truongvu317]

Bác toàn nói suông thui, Bác sửa cho cháu cái trường hợp này đi.
Nếu không biết thì đừng nói tức sóc cho người ta nhé.

Đã bảo là không biết vba do vẫn còn "trẻ thơ" , người ta chỉ thích mấy cái chuyện trăng sao thui. Bạn cứ triển khai ý tưởng của mình là được, chắc chắn là được, cố lên nhé.
"
Khi đôi ta đồng cảnh ngộ yêu nhau
Cho dù gian khó anh cũng chấp nhận
Suốt đời ta sống bên nhau cho dù dưa muối cơm rau
Có đôi mình dệt vần thơ yêu. "
À, mà mấy cái vùng dữ liệu đó nó cố định cách đều hay như thế nào vây.