VBA Dồn kết quả phép tính

[hongphuong1997]

Nhờ thầy cô và các bạn viết giúp code dồn kết quả như file đính kèm
Em cảm ơn!

 

[hongphuong1997]

Nhờ thầy cô và các bạn viết giúp code dồn kết quả như file đính kèm
Em cảm ơn!

Buồn qua, mấy ngày mà chẳng ai làm và hướng dẫn giúp emhu hu....huuu......

 

[TongDe]

1. Cũng muốn giúp nhưng không biết làm ... !
2. Làm xong cũng không biết để áp dụng vào chuyện gì ...
3. Đẻ thêm yêu cầu khác lại nhức đầu thêm ...
4. Chém gió chút chút, đừng buồn nhe em !

 

[concogia]

Buồn qua, mấy ngày mà chẳng ai làm và hướng dẫn giúp emhu hu....huuu......

Buồn quá, hổng ai rủ đi ...nhậu:

Public Sub BuonWa()
    Dim Vung, I, J, K
    Set Vung = [D3:V7]
        For J = 1 To Vung.Columns.Count Step 3
            For I = 1 To Vung.Rows.Count - 1
                [D12].Offset(I - 1, K).Formula = "=SUM(" & Vung(I, J).Address & ":" & Vung(I + 1, J).Address & ")"
            Next I
            K = K + 1
        Next J
End Sub

Híc híc

 

[hongphuong1997]

1. Cũng muốn giúp nhưng không biết làm ... !
2. Làm xong cũng không biết để áp dụng vào chuyện gì ...
3. Đẻ thêm yêu cầu khác lại nhức đầu thêm ...
4. Chém gió chút chút, đừng buồn nhe em !

Anh biết đến đâu thì giúp đến đó, em cũng đang tìm hiểu mà anh

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

Buồn quá, hổng ai rủ đi ...nhậu:

Public Sub BuonWa()
    Dim Vung, I, J, K
    Set Vung = [D3:V7]
        For J = 1 To Vung.Columns.Count Step 3
            For I = 1 To Vung.Rows.Count - 1
                [D12].Offset(I - 1, K).Formula = "=SUM(" & Vung(I, J).Address & ":" & Vung(I + 1, J).Address & ")"
            Next I
            K = K + 1
        Next J
End Sub

Híc híc

Hi hi...... cháu chào bác, cháu cảm ơn bác nhé!
Để cháu xem đã đúng chưa bác nhé.
Cháu tin là bác Gà con đã làm thì chỉ có chuẩn thôi

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

Buồn quá, hổng ai rủ đi ...nhậu:

Public Sub BuonWa()
    Dim Vung, I, J, K
    Set Vung = [D3:V7]
        For J = 1 To Vung.Columns.Count Step 3
            For I = 1 To Vung.Rows.Count - 1
                [D12].Offset(I - 1, K).Formula = "=SUM(" & Vung(I, J).Address & ":" & Vung(I + 1, J).Address & ")"
            Next I
            K = K + 1
        Next J
End Sub

Híc híc

Hu hu.... bác Gà con ui, code của bác cao thủ quá bác à
Rất đúng, đúng ơi là chuẩn
hu hu ...hu....
Nhưng bác viết cho cháu theo kiểu học lớp vỡ lòng đi bác
"Cái lớp lá đó"
Code này với trình độ của cháu chưa hiểu đươc bác oi.
Bác viết lại theo kiểu "lớp vỡ lòng nhé bác'
cháu cảm ơn bác!

 

[Ba Rọi 33]

Anh biết đến đâu thì giúp đến đó, em cũng đang tìm hiểu mà anh

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

Hi hi...... cháu chào bác, cháu cảm ơn bác nhé!
Để cháu xem đã đúng chưa bác nhé.
Cháu tin là bác Gà con đã làm thì chỉ có chuẩn thôi

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

Hu hu.... bác Gà con ui, code của bác cao thủ quá bác à
Rất đúng, đúng ơi là chuẩn
hu hu ...hu....
Nhưng bác viết cho cháu theo kiểu học lớp vỡ lòng đi bác
"Cái lớp lá đó"
Code này với trình độ của cháu chưa hiểu đươc bác oi.
Bác viết lại theo kiểu "lớp vỡ lòng nhé bác'
cháu cảm ơn bác!

284 bài toàn VBA không thì lòng với mề gì nữa vậy trời. Chú ấy là "Con Cò già" Giang hồ vẫn gọi là " Bác Cò" vậy mà Bạn lại dịch thành "Gà con"

 

[phihndhsp]

Anh biết đến đâu thì giúp đến đó, em cũng đang tìm hiểu mà anh

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

Hi hi...... cháu chào bác, cháu cảm ơn bác nhé!
Để cháu xem đã đúng chưa bác nhé.
Cháu tin là bác Gà con đã làm thì chỉ có chuẩn thôi

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

Hu hu.... bác Gà con ui, code của bác cao thủ quá bác à
Rất đúng, đúng ơi là chuẩn
hu hu ...hu....
Nhưng bác viết cho cháu theo kiểu học lớp vỡ lòng đi bác
"Cái lớp lá đó"
Code này với trình độ của cháu chưa hiểu đươc bác oi.
Bác viết lại theo kiểu "lớp vỡ lòng nhé bác'
cháu cảm ơn bác!

Bắt chước bác GÀ CON viết lại cho bạn vỡ lòng nè, bác GÀ CON đặt tên vùng chi cho nó rắc rối, tôi làm vỡ lòng trực tiếp trên sheet luôn, bạn xem có hiểu hay không nha

Sub Ga_Con()
Dim Cot As Long, i As Long, J As Long
  Cot = 3
  For J = 4 To 22 Step 3
      Cot = Cot + 1
      For i = 1 To 4
         Cells(i + 11, Cot).FormulaR1C1 = "=sum(r" & i + 2 & "c" & J & ":r" & i + 3 & "c" & J & ")"
      Next
 Next
End Sub

 

[hongphuong1997]

Bắt chước bác GÀ CON viết lại cho bạn vỡ lòng nè, bác GÀ CON đặt tên vùng chi cho nó rắc rối, tôi làm vỡ lòng trực tiếp trên sheet luôn, bạn xem có hiểu hay không nha

Sub Ga_Con()
Dim Cot As Long, i As Long, J As Long
  Cot = 3
  For J = 4 To 22 Step 3
      Cot = Cot + 1
      For i = 1 To 4
         Cells(i + 11, Cot).FormulaR1C1 = "=sum(r" & i + 2 & "c" & J & ":r" & i + 3 & "c" & J & ")"
      Next
Next
End Sub

h hi.... em cảm ơn anh nhé
Bác
concogia
viết rất đúng kết quả anh
phihndhsp à
Nhưng mà thuật ngữ cao quá, em lại đang tìm hiểu nên nhìn code khó mường tượng