Saturday, November 17, 2012

Đếm theo điều kiện đạt mới bắt đầu tính .

Đếm theo điều kiện đạt mới bắt đầu tính .


Đếm theo điều kiện đạt mới bắt đầu tính .

Posted: 16 Nov 2012 01:01 AM PST

Mình mún tính 1 công thức như sau: chỉ bắt đầu đếm khi thoả điều kiện vùng đếm có chứa 15 ô có dữ liệu trở lên, và đếm tương ứng 1 đơn vị là = 5 ô có chứa dữ liệu ( hay nói cách khác là khi vùng đếm có chứa 15 ô có dữ liệu trở lên, thì ô kết quả sẽ tính cứ thêm 5 ô có dữ liệu thì mới ra kết quả là 1 đơn vị, cứ vậy tăng theo 5 ô có dữ liệu là 1 đơn vị, 10 ô có dữ liệu thì kết quả là 2,.... ).
Xin cám ơn các bạn.
File mẫu, xem giúp mình ạ
Tập tin đính kèm

[HELP] Cần giúp đỡ về hàm tính tổng

Posted: 15 Nov 2012 11:06 PM PST

Cần giúp đỡ về hàm tính tổng cho Bảng có tô nền vàng. Mong các Pro chỉ giáo trực tiếp lên bảng exel giúp mình (không tính theo kiểu ==B15+E15+H15+K15+ ....) vì mình còn bảng exel gần 30 trang như thế này, tính kiểu thủ công như vậy rất mất công. Xin trợ giúp.
Tập tin đính kèm

Hàm đổi số âm thành số dương.

Posted: 15 Nov 2012 08:10 PM PST

Chào diễn đàn, mình có vấn đề này mong diễn đàn tư vấn,
Mình đang tham khảo 1 file về kế toán bằng excel theo hình thức nhật ký chung. Ở 1 dữ liệu có công thức thế này, theo mình hiểu lờ mờ thì đây là đổi từ số âm thành số dương. Ở vế mà m gạch chân đó mình không hiểu, Tks diễn đàn.
=If(or(and(left(B44,3)="131",J<0),and(left(B44,3)= "331'',j44<0),left(B44,3)=(B44,3)="214",mid(B44,3,1)="9"),1.1)*J 44

Mình ko tải file lên được, chỉ có thể đánh công thức lên thôi.

Cầu giúp về hàm lọc, tra cứu, tìm kiếm

Posted: 15 Nov 2012 08:04 PM PST

Chào mọi người.
Hiện nay mình có vấn đề như sau:
-Giả sử mình có một bảng kê, cột cuối cùng là cột ghi chú, cột đầu tiên là cột giá trị.

Mình muốn lọc ra các giá trị ở cột đầu thỏa mãn điều kiên cột cuối thì dùng hàm gì?

Vlookup chỉ lọc được giá trị ghi chú đầu tiên thôi.
Nếu như có nhiều giá trị có cùng ghi chú thì vlookup bó tay

các bạn có cách nào chỉ giáo với.

Mình mong muốn làm thế nào mà liệt kê được hết các giá trị ở cột đầu thỏa mãn ghi chú ở cột cuối (sau đó sẽ dùng hàm tính toán với các giá trị được liệt kê ra đó)


(file đính kèm là cái mình đang làm)
Tập tin đính kèm

Anh chị sửa lỗi trong Macro giúp em với ạ.

Posted: 15 Nov 2012 07:58 PM PST

Gửi các anh chị,
Em mới đc hướng dẫn để thao tác Macro cho tiện công việc, học kiểu đi tắt đón đầu, ko đến nơi đến chốn, giờ đang gặp trục trặc, em cũng chưa biết sửa sao.
Anh chị nào có thể chỉ giáo giúp em với ạ. Tất cả đều ổn trừ cái dòng em bôi đậm bị báo lỗi ạ.

Sub rental()
Worksheets("Rental").Select


Call clear
iend = 0
iend = ActiveCell.SpecialCells(xlLastCell).Row
For i = 6 To iend Step 1
If Worksheets("Rental").Cells(i, 1).Value <> "" And Worksheets("Rental").Cells(i + 1, 1).Value = "" Then
k = i
ElseIf Worksheets("Rental").Cells(i, 1).Value = "" And Worksheets("Rental").Cells(i + 1, 1).Value <> "" Then
m = i
x = m - k
Call calculate(k, x)
'Call calculate(6, 1)
ElseIf Worksheets("Rental").Cells(i, 1).Value <> "" And Worksheets("Rental").Cells(i + 1, 1).Value <> "" Then
k = i
Call calculate(k, 0)
End If
Next
Call Find_n_month_rental
Call monthly_fee
Beep
End Sub
Sub calculate(k, x)
'Worksheets("Rental").Select
h = 0
iend = 0
iend = ActiveCell.SpecialCells(xlLastCell).Row
For h = 0 To x Step 1
company_code = Worksheets("Rental").Cells(k, 1).Value
company_name = Worksheets("Rental").Cells(k, 2).Value
machine_code = Worksheets("Rental").Cells(k + h, 5).Value
'Worksheets("Price list").Select
For j = 120 To 200 Step 1
' MsgBox Worksheets("Price list").Cells(j, 1).Value
If Worksheets("Price list").Cells(j, 1).Value = company_code Then
For f = 12 To 19 Step 1
'MsgBox Worksheets("Price list").Cells(121, f).Value
If Worksheets("Price list").Cells(121, f).Value = machine_code Then
' MsgBox machine_code
'MsgBox Worksheets("Price list").Cells(j, f).Value
Worksheets("Rental").Cells(h + k, 7).Value = Worksheets("Price list").Cells(j, f).Value * Worksheets("Rental").Cells(h + k, 6).Value
Worksheets("Rental").Cells(h + k, 10).Value = Worksheets("Price list").Cells(j, 3).Value
End If
Next
For e = 4 To 11 Step 1
If Worksheets("Price list").Cells(121, e).Value = machine_code Then
'MsgBox machine_code
'MsgBox Worksheets("Price list").Cells(j, f).Value
Worksheets("Rental").Cells(h + k, 8).Value = Worksheets("Price list").Cells(j, e).Value * Worksheets("Rental").Cells(h + k, 6).Value

End If
Next
For v = 20 To 27 Step 1
If Worksheets("Price list").Cells(121, v).Value = machine_code Then
'MsgBox machine_code
'MsgBox Worksheets("Price list").Cells(j, f).Value
Worksheets("Rental").Cells(h + k, 9).Value = Worksheets("Price list").Cells(j, v).Value

End If
Next


End If

Next




Next
End Sub


Sub monthly_fee()
Action = False
'Worksheets("Rental").Select
iend = 0
iend = ActiveCell.SpecialCells(xlLastCell).Row
For i = 6 To iend Step 1
If Right(Worksheets("Rental").Cells(i, 10).Value, 2) <> "" Then
month_number = Right(Worksheets("Rental").Cells(i, 10).Value, 2)
j = i

'MsgBox m & "__" & y
Call calculate_month(j, month_number)
End If
Next
End Sub


Sub calculate_month(r, month_number)
'MsgBox m & "_" & y
m = Month(Worksheets("Rental").Cells(r, 4).Value)
y = Year(Worksheets("Rental").Cells(r, 4).Value)
If Worksheets("Rental").Cells(r, 4).Value <> "" Then
For i = 11 To 200 Step 1
If Worksheets("Rental").Cells(5, i).Value <> "" Then
M1 = Month(Worksheets("Rental").Cells(5, i).Value)
y1 = Year(Worksheets("Rental").Cells(5, i).Value)
If M1 = m And y1 = y Then
'MsgBox i & "_" & j
'month_number = Right(Worksheets("Rental").Cells(i, 10).Value, 2)
For u = i To i + month_number - 1 Step 1
Worksheets("Rental").Cells(r, u + 1).Value = Worksheets("Rental").Cells(r, 9).Value * Worksheets("Rental").Cells(r, 6).Value
Next
End If
End If
Next
End If
If Worksheets("Rental").Cells(r, 4).Value = "" And Worksheets("Rental").Cells(r - 1, 4).Value <> "" Then
m = Month(Worksheets("Rental").Cells(r - 1, 4).Value)
y = Year(Worksheets("Rental").Cells(r - 1, 4).Value)
For i = 11 To 100 Step 1
If Worksheets("Rental").Cells(5, i).Value <> "" Then
M1 = Month(Worksheets("Rental").Cells(5, i).Value)
y1 = Year(Worksheets("Rental").Cells(5, i).Value)
If M1 = m And y1 = y Then
'MsgBox i & "_" & j
'month_number = Right(Worksheets("Rental").Cells(i, 10).Value, 2)
For u = i To i + month_number - 1 Step 1
Worksheets("Rental").Cells(r, u + 1).Value = Worksheets("Rental").Cells(r, 9).Value * Worksheets("Rental").Cells(r, 6).Value
Next
End If
End If
Next
End If
If Worksheets("Rental").Cells(r, 4).Value = "" And Worksheets("Rental").Cells(r - 1, 4).Value = "" And Worksheets("Rental").Cells(r - 1, 4).Value <> "" Then
m = Month(Worksheets("Rental").Cells(r - 2, 4).Value)
y = Year(Worksheets("Rental").Cells(r - 2, 4).Value)
For i = 11 To 100 Step 1
If Worksheets("Rental").Cells(5, i).Value <> "" Then
M1 = Month(Worksheets("Rental").Cells(5, i).Value)
y1 = Year(Worksheets("Rental").Cells(5, i).Value)
If M1 = m And y1 = y Then
'MsgBox i & "_" & j
'month_number = Right(Worksheets("Rental").Cells(i, 10).Value, 2)
For u = i To i + month_number - 1 Step 1
Worksheets("Rental").Cells(r, u + 1).Value = Worksheets("Rental").Cells(r, 9).Value * Worksheets("Rental").Cells(r, 6).Value
Next
End If
End If
Next
End If
If Worksheets("Rental").Cells(r, 4).Value = "" And Worksheets("Rental").Cells(r - 1, 4).Value = "" And Worksheets("Rental").Cells(r - 1, 4).Value = "" And Worksheets("Rental").Cells(r - 2, 4).Value <> "" Then
m = Month(Worksheets("Rental").Cells(r - 3, 4).Value)
y = Year(Worksheets("Rental").Cells(r - 3, 4).Value)
For i = 11 To 100 Step 1
If Worksheets("Rental").Cells(5, i).Value <> "" Then
M1 = Month(Worksheets("Rental").Cells(5, i).Value)
y1 = Year(Worksheets("Rental").Cells(5, i).Value)
If M1 = m And y1 = y Then
'MsgBox i & "_" & j
'month_number = Right(Worksheets("Rental").Cells(i, 10).Value, 2)
For u = i To i + month_number - 1 Step 1
Worksheets("Rental").Cells(r, u + 1).Value = Worksheets("Rental").Cells(r, 9).Value * Worksheets("Rental").Cells(r, 6).Value
Next
End If
End If
Next
End If



End Sub


Sub clear()
Worksheets("Rental").Select
Range("G6:J47").Select
Selection.ClearContents
Range("K5:LV47").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("K5:XFD47").Select
Selection.ClearContents

End Sub
Sub Find_n_month_rental()
Worksheets("Rental").Select
iend = 0
iend = ActiveCell.SpecialCells(xlLastCell).Row
n_month = 13
n_year = 2020

'MsgBox n_month & "__" & n_year
For i = 6 To iend Step 1
If Worksheets("Rental").Cells(i, 4).Value <> "" And Year(Worksheets("Rental").Cells(i, 4).Value) < n_year Then
n_year = Year(Worksheets("Rental").Cells(i, 4).Value)
'monthyear = Worksheets("Rental").Cells(i, 4).Value
End If

Next
For i = 6 To iend Step 1
If Worksheets("Rental").Cells(i, 4).Value <> "" And Year(Worksheets("Rental").Cells(i, 4).Value) = n_year Then
If Month(Worksheets("Rental").Cells(i, 4).Value) < n_month Then
n_month = Month(Worksheets("Rental").Cells(i, 4).Value)
'monthyear = Worksheets("Rental").Cells(i, 4).Value
k = i
End If
End If
Next

'MsgBox n_month
colum_length = 11
y = 11
mean_year = 2011
lenth = 1
For i = 6 To iend Step 1
If Worksheets("Rental").Cells(i, 4).Value <> "" Then
a = Year(Worksheets("Rental").Cells(i, 4).Value) - mean_year
month_length = Right(Worksheets("Rental").Cells(i, 10).Value, 2) + Month(Worksheets("Rental").Cells(i, 4).Value) + 12 * a

If month_length > Length Then
Length = Right(Worksheets("Rental").Cells(i, 10).Value, 2) + Month(Worksheets("Rental").Cells(i, 4).Value) + 12 * a
e = i

End If
'MsgBox a
End If

Next
colum_length = Length + y - n_month

n = 0
m = 0
For j = 11 To colum_length Step 1

If Month(Worksheets("Rental").Cells(k, 4).Value) + n <= 12 Then
Worksheets("Rental").Cells(5, j).Value = Month(Worksheets("Rental").Cells(k, 4).Value) + n & "-" & Year(Worksheets("Rental").Cells(k, 4).Value)
n = n + 1
'MsgBox n
ElseIf Month(Worksheets("Rental").Cells(k, 4).Value) + n > 12 Then
Worksheets("Rental").Cells(5, j).Value = 1 + m & "-" & Year(Worksheets("Rental").Cells(k, 4).Value) + 1 + l
m = m + 1
If m = 12 Then
m = 0
l = l + 1
End If
End If
Next
End Sub

lọc 2 danh sách có điều kiện

Posted: 15 Nov 2012 07:06 PM PST

ai có cách nào lọc 2 danh sách có 2 điều kiện như trong file giúp mình với???
Tập tin đính kèm

No comments:

Post a Comment

Dịch vụ quản trị website|Chăm sóc website Thiết kế web giá rẻ Dịch vụ SEO giá rẻ|SEO chuyên nghiệp Công ty thiết kế web chuyên nghiệp Dịch vụ nâng cấp website|Sửa chữa website