Vander_Quan
Thành viên mới
- Tham gia
- 3/11/20
- Bài viết
- 22
- Được thích
- 2
nếu chỉ mẫu đơn giản, thì dùng công thức đơn giản, như file đính kèm, nếu cần công thức phức tạp hơn thì comment tiếp. TTr!Em có đề như sau nhờ các bác giúp em chuyển đổi ạ
- Bảng này là chi tiêu hàng ngày, mỗi ngày mỗi danh mục khác nhau.
View attachment 289180
- Nhờ các bác hướng dẫn e lập công thức để nó tự tổng hợp tất cả mục chi tiêu vô 1 cột như bên dưới và số tiền thì vẫn hiện theo từng ngày.
View attachment 289181
Cảm ơn các bác trước ạ.
cám ơn bác đã cho ct chỗ giá tiền, còn chỗ danh mục chi tiêu mình phải tự gõ tay vô hả bác?nếu chỉ mẫu đơn giản, thì dùng công thức đơn giản, như file đính kèm, nếu cần công thức phức tạp hơn thì comment tiếp. TTr!
Với e sử dụng Excel 2010 nên nó không có công thức IFNA bác ơi.nếu chỉ mẫu đơn giản, thì dùng công thức đơn giản, như file đính kèm, nếu cần công thức phức tạp hơn thì comment tiếp. TTr!
Ngày | Chỉ tiêu | Số tiền | ||||||||||||||||||||||
1/10/2022 | đò | 4,000 | ||||||||||||||||||||||
1/10/2022 | café | 10,000 | ||||||||||||||||||||||
1/10/2022 | ăn tối | 40,000 | ||||||||||||||||||||||
1/10/2022 | card | 20,000 | ||||||||||||||||||||||
1/10/2022 | Tiền nhà | 375,000 | ||||||||||||||||||||||
1/11/2022 | ăn sáng | 10,000 | ||||||||||||||||||||||
1/11/2022 | ăn tối | 60,000 | ||||||||||||||||||||||
1/11/2022 | thuốc | 25,000 | ||||||||||||||||||||||
1/11/2022 | trà đường | 4,000 | ||||||||||||||||||||||
1/13/2022 | ăn tối | 40,000 | ||||||||||||||||||||||
1/13/2022 | nước cam | 12,000 | ||||||||||||||||||||||
Không có Ifna(), thì thay bằng Iferror() chứ!Với e sử dụng Excel 2010 nên nó không có công thức IFNA bác ơi.
Em dân Tự động hóa ko phải dân văn phòng, nên e recommend bác xài VBA viết công thức ạ.Em có đề như sau nhờ các bác giúp em chuyển đổi ạ
- Bảng này là chi tiêu hàng ngày, mỗi ngày mỗi danh mục khác nhau.
View attachment 289180
- Nhờ các bác hướng dẫn e lập công thức để nó tự tổng hợp tất cả mục chi tiêu vô 1 cột như bên dưới và số tiền thì vẫn hiện theo từng ngày.
View attachment 289181
Cảm ơn các bác trước ạ.
Khoe nghề "tự động hóa" hay khoe tiếng Tây vậy?Em dân Tự động hóa ko phải dân văn phòng, nên e recommend bác xài VBA viết công thức ạ.
...
bác sẽ thêm 2 ô chi tiêu và số tiền , nhập xong sẽ bấm nút , dữ liệu đó nếu cũ trong cột chi tiêu thì sẽ điền số tiền vào cột ngày tương ứng. Còn nếu là mới thì sẽ tự động add thêm 1 dòng chi tiêu mới và điền số tiền vào ngày tương ứng.Nếu hướng dẫn chi tiết cách làm thì sẽ hơi lâu ạ, nếu bác có hứng về cách này thì reply e, có thời gian e sẽ chỉ chi tiết ạ.
Best regrads!
Option Explicit
Sub GPE()
Dim Dic As Object, Key, Lr&, Lc&, tRes()
Dim Arr(), j&, i&, Res(), k&, t&, m&
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Sheet2")
.Range("A19:AA100").ClearContents
Lc = .Cells(1, Columns.Count).End(xlToLeft).Column
Lr = .Range(.Cells(1, 1), .Cells(100000, Lc)).Find("*", _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Arr = .Range(.Cells(1, 1), .Cells(Lr, Lc)).Value
ReDim Res(1 To 10000, 1 To Lc)
ReDim tRes(1 To 1, 1 To Lc)
For j = 1 To UBound(Arr, 2) Step 2
For i = 2 To UBound(Arr)
If Arr(i, j) <> "" Then
Key = Arr(i, j)
If Not Dic.exists(Key) Then
m = m + 1
Dic.Add (Key), m
End If
End If
Next i
Next j
For j = 2 To UBound(Arr, 2) Step 2
t = t + 1: tRes(1, t) = Arr(1, j)
For i = 2 To UBound(Arr)
For Each Key In Dic.keys
If Arr(i, j - 1) = Key Then
m = Dic.Item(Key)
Res(m, 1) = Key
Res(m, t + 1) = Arr(i, j)
End If
Next Key
Next i
Next j
.Range("B19").Resize(1, t).Value = tRes
.Range("A20").Resize(m, t + 1).Value = Res
End With
Set Dic = Nothing
MsgBox "Done"
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2