Hỏi về vba đếm và gán công thức!

[akiralnb]

Hiện em đang gặp vấn đề ngoài khả năng xử lý của em. Nên em gửi lên diễn đàn mong các thầy và các bạn trong diễn đàn giúp đỡ.
Vấn đề em trình bày trong file đính kèm. Rất mong các thầy và các bạn giúp đỡ. Xin chân thành cảm ơn!

 

[Quang_Hải]

Hiện em đang gặp vấn đề ngoài khả năng xử lý của em. Nên em gửi lên diễn đàn mong các thầy và các bạn trong diễn đàn giúp đỡ.
Vấn đề em trình bày trong file đính kèm. Rất mong các thầy và các bạn giúp đỡ. Xin chân thành cảm ơn!

Bài toán này đơn giản. Nếu code thì mất 5 phút là xong, nhưng với kiểu dữ liệu trong file chẳng ra làm sao thì chẳng hứng làm.

 

[akiralnb]

em tính đưa 1 ít số liệu thôi, tại em thấy đưa vậy cũng đầy đủ hơn 1 số người khác rồi. anh muốn thì em đưa thêm số liệu nữa. mong anh xem giúp.

 

[Quang_Hải]

em tính đưa 1 ít số liệu thôi, tại em thấy đưa vậy cũng đầy đủ hơn 1 số người khác rồi. anh muốn thì em đưa thêm số liệu nữa. mong anh xem giúp.

Thấy chưa? Nếu dựa trên file trước viết code là tèo rồi

Sub Tinh()
Dim Sarr(), I, J, X
Sarr = Range([A7], [H65536].End(3).Offset(1, -7)).Resize(, 13).Value
For I = 1 To UBound(Sarr) - 1
   If Sarr(I, 3) <> "" Then
      Sarr(I, 12) = "=RC[-4]-RC[-3]"
      Sarr(I, 13) = "=RC[-6]-RC[-5]"
      If Sarr(I + 1, 3) = "" Then
         Do
            J = J + 1
         Loop Until Sarr(I + J, 3) <> "" Or I + J = UBound(Sarr)
      End If
      If J Then
         For X = 8 To 10
            Sarr(I, X) = "=Sum(R[1]C:R[" & J - 1 & "]C)"
         Next
      End If
   End If
   J = 0
Next
[A7].Resize(I - 1, 13) = Sarr
End Sub

 

[akiralnb]

hay quá! được rồi anh. Nếu số liệu ít quá là tèo chỗ nào gị anh? a chỉ để nữa e rút kinh nghiệm.

 

[Quang_Hải]

hay quá! được rồi anh. Nếu số liệu ít quá là tèo chỗ nào gị anh? a chỉ để nữa e rút kinh nghiệm.

Đã nói là đơn giản mà.
Ai biết tèo chỗ nào mà nói chứ. Hên xui hà, có lúc code nó ngoan, có lúc nó cũng hư hỏng lắm. Gặp bài nào tính bài đó thôi

 

[akiralnb]

mà sao khi bấm vào tính cột B nó hiện thành 12:0:0:AM hết vậy anh? em muốn cell nào có giá trị đó thì làm trống luôn được không anh?

 

[Quang_Hải]

mà sao khi bấm vào tính cột B nó hiện thành 12:0:0:AM hết vậy anh? em muốn cell nào có giá trị đó thì làm trống luôn được không anh?

Hay là bạn gởi cái file nào sau khi chạy code nó thành 12:00:00 AM lên coi, không nhìn thấy thì thua.

 

[Ba Tê]

Hay là bạn gởi cái file nào sau khi chạy code nó thành 12:00:00 AM lên coi, không nhìn thấy thì thua.

Nó ở cái cột B đó, có những số 0.
Format Date thành 00/01/1900, format Time thành 12:00:00 Am, ....
Híc!

 

[akiralnb]

Hay là bạn gởi cái file nào sau khi chạy code nó thành 12:00:00 AM lên coi, không nhìn thấy thì thua.

đây nè anh. ở cột B đó anh

 

[Quang_Hải]

đây nè anh. ở cột B đó anh

Dữ liệu không lần nào giống lần nào hén

Sub Tinh()
Dim Sarr(), I, J, X
Sarr = Range([A7], [H65536].End(3).Offset(1, -7)).Resize(, 13).Value
For I = 1 To UBound(Sarr) - 1
   If Sarr(I, 3) <> "" Then
      If Sarr(I, 2) = 0 Then Sarr(I, 2) = ""
      Sarr(I, 12) = "=RC[-4]-RC[-3]"
      Sarr(I, 13) = "=RC[-6]-RC[-5]"
      If Sarr(I + 1, 3) = "" Then
         Do
            J = J + 1
         Loop Until Sarr(I + J, 3) <> "" Or I + J = UBound(Sarr)
      End If
      If J Then
         For X = 8 To 10
            Sarr(I, X) = "=Sum(R[1]C:R[" & J - 1 & "]C)"
         Next
      End If
   End If
   J = 0
Next
[A7].Resize(I - 1, 13) = Sarr
End Sub

 

[akiralnb]

Em thử đó anh . Code mới chạy tốt rồi anh. cảm ơn anh rất nhiều. anh nhiệt tình quá.