bạn xem vậy được chưa,Anh chị giúp em giải quyết bài tập này, câu 2 và 3 em không biết làm, em làm hoài mà không ra. hic hic
muốn hâu tạ thì link 1 cái cảm ơn phía dưới để người trở giúp được biết là đã nhận được sự trở giúp thế là được rồi <văn hoá lịch sự thây lời hậu tạ>
làm kô ra mà còn cười được sao???, bài trên tổng 2, và 3 điều kiện, nếu bạn dùng office 2007 về sau bạn có thể sử dụng hàm sumifs để giải quyết câu 2 và câu 3, nếu bạn là office 2003 về trước thì dùng sumproduct của nhapmon đã giải, và phần over country thì làm tương tự như hà nội và hồ chí minh (nếu có)Anh chị giúp em giải quyết bài tập này, câu 2 và 3 em không biết làm, em làm hoài mà không ra. hic hic
http://www.mediafire.com/view/?kfnecvcfv6mb080
e có bài này củng gần giống với bài trước nhưng hơi khác 1 chút (nhờ các anh, chị cho em xin code VBA cho bài này nhé)
sory các a chị lần trước em quên đính kem file
Bạn tham khảo file này nhé
bạn ơi cám ơn bạn đã viết công thức giúp mình, nhưng yêu cầu của mình không phải như đáp án của bạn,
+1) Thật là không hiểu ý bạn. Với dữ liệu Nsu - 1.2012 sau khi trích lọc tôi thấy có 11 tên hàng đúng như công thức => vậy 10 tên hàng là như thế nào? Nếu thích 10 thì chỉ cho 10 dong công thức là xong lúc đó sai là cái chắc
=IF(COUNT(Tien)<ROW(1:1),"",
Bạn nhấn Ctrl+F3, xem lại name LuuData sẽ thấy bảng này chỉ có 40 cột (dựa vào tham số cuối của hàm OFFSET). Trong khi đó, công thức tại các hàng 15 và 16 (ở các ô bị lỗi #REF), tham số thứ 3 của VLOOKUP lại là các số lớn hơn 40. Chính vì vậy mới xuất hiện lỗi #REF. Cách khắc phục: Thay đổi số 40 trong name LuuData.
e đã sửa lại đề bài, có gì a xem lại giúp em nhé.
cám ơn bạn đã chỉ ra cái sai cho mình, bạn đã nói đúng nếu số tiền trùng nhau thì nếu lọc đến 10 tên hàng thì tên thứ 11 cũng có số tiền giống tên hàng thứ 10 thì biết lấy cái nào , cái này để mình xem lại bạn nhé .
anh ,chi nào giup e bài nay với
Public Sub LOC_10()
Application.ScreenUpdating = False
Dim sArr(), dArr(), I As Long, K As Long, Cot As Long, Tem As Variant
Tem = [B2] * 1
With Sheets("Data")
K = .[IV2].End(xlToLeft).Column
sArr = .[C2].Resize(, K).Value
For I = 1 To UBound(sArr, 2)
If sArr(1, I) * 1 = Tem Then
Cot = I
Exit For
End If
Next I
sArr = .Range(.[C4], .[C65000].End(xlUp)).Resize(, K).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 3)
For I = 1 To UBound(sArr, 1)
dArr(I, 1) = sArr(I, 1)
dArr(I, 2) = sArr(I, Cot)
dArr(I, 3) = sArr(I, Cot + 2)
Next I
With Sheets("Lietke")
.[B4].Resize(I - 1, 3).Value = dArr
.[B4].Resize(I - 1, 3).Sort Key1:=Range("D4"), Order1:=xlDescending
.[B14:D65000].ClearContents
End With
Application.ScreenUpdating = True
End Sub
Phải là B4 chứ, với lại nên bẩy lỗi khi người dùng gõ số khác ngoài số từ 1-4.
65000].ClearContents là sau khi mình đã sỏrt thì mình xóa dữ liệu phía dưới chỉ chừa 10 dòng phía trên theo yêu cầu của đề bài.
hihi, nếu dữ liệu ít hơn 10 dòng thì sao?Đề bài yêu cầu lọc và sort liệt kê 10 người có số lớn nhất theo thứ tự giảm dần.
Và lệnh .[B14
-thêm cái bẫy lỗi có lẽ hợp lý hơn, có thể bạn ấy có đến 12 tháng để mà sort.
Do vậy ta nên dùng ADO, ADO sẽ giải quyết được vấn đề này.
Đơn giá (USD), E4:
=VLOOKUP(B4,$A$22:$E$26,IF(D4>=10,4,5),0)=E4*(100%+IF(VLOOKUP(B4,$A$22:$E$26,3,0)="Bộ",5%,10%))*VLOOKUP(DATE(2013,8,C4),$H$4:$I$12,2)=SUMPRODUCT(($B$4:$B$13=INDEX($A$22:$A$26,MATCH($G22,$B$22:$B$26,0),))*($D$4:$D$13>=10),$F$4:$F$13)=SUMPRODUCT(($B$4:$B$13=INDEX($A$22:$A$26,MATCH($G22,$B$22:$B$26,0),))*($D$4:$D$13<10),$F$4:$F$13)Cái hình nhỏ chút xíu vậy thì có đọc được cái gì đâu mà biết đó là lỗi gì. Khi xuất hiện hộp thoại như vậy, thay vì bạn nhấn phím Print Screen thì bạn nhấn tổ hợp phím Alt + Print Screen, bạn sẽ chụp được riêng hộp thoại này mà không phải là toàn bộ màn hình. Sau khi chụp xong thì bạn mở chương trình Paint có sẵn của Windows, dán nó vào đó và lưu lại, bạn sẽ được cái hình rõ hơn.
mình sửa được rồi, tại hàm của b. bên trên 1 số chỗ nhầm dấu ; thành dấu , nên không được
4,D4))),"")
mình có làm như bạn nói nhưng mà kết qua chưa ra được bạn có thể làm và post file lên lai cho mình xem được không bạnD4=IFERROR(INDEX(Loai,SMALL(IF(INDIRECT(VLOOKUP($B$2,$G$2:$I$6,3,0))=D4,ROW(INDIRECT(VLOOKUP($B$2,$G$2:$I$6,3,0)))-ROW($D$4)+1),COUNTIF(D$4
kết thúc bằng Ctrl Shift Enter.
với "Loai" là define name cho cột loại
để tiên sử dụng bạn có nên đặt define động.
ngâm dấm cho vui thôi, chớ mấy bại toán này nên giải quyết bằng vba cho nhẹ file
Đặt tiêu đề đã bị khoá topic mà bạn chưa rút kinh nghiệm.
hihi chắc là chưa hiểu vấn đề đó mà, chủ nhật không đi chơi mà lên :GPE vậy a ba tê
Ậy, sao anh lại nói thế, như anh cũng đã biết lọc và truy vấn thì ado là 1 thế mạnh, mà đề bài là lọc và truy vấn thì ta nên dùng ado là hợp lý.
Kết quả vẫn chưa chính xác nếu như có những số tiền cao nhất bị trùng. Nếu dùng vba thì ta nên dùng autofilter cho gọn
bạn ơi bạn hiểu sai ý của mình rùi, ý mình là thêm 1 ĐK là A, hoăc bất kì "loại " nào thì liệt kê 10 tên hàng ra chứ không phải là những loại hàng kèm theo là loại gì
Làm cho bạn = ADO như sau nhé:
Sub Loc_AnhChangNgoc()
On Error GoTo BayLoi
Dim adoConn As Object, adoRs As Object, arr As Variant, nCol As Integer
Set adoConn = CreateObject("ADODB.Connection"): Set adoRs = CreateObject("ADODB.Recordset")
arr = Array("6", "9", "12", "15"): nCol = arr(Sheet2.Range("B2").Value - 1)
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;"";"
.Open
End With
With adoRs
.ActiveConnection = adoConn
.Open "select top 10 F2, f" & nCol - 2 & ",F" & nCol & " from [data$B4:P500] " & _
"where F3 like '" & IIf(Len(Sheet2.Range("D2")) = 0, "%", Sheet2.Range("D2")) & "' and F" & nCol & " is not null " & _
"order by f" & nCol & " desc"
End With
With Sheets("LietKe")
.[B4:D65000].ClearContents
.[B4].CopyFromRecordset adoRs
End With
adoRs.Close: Set adoRs = Nothing: adoConn.Close: Set adoConn = Nothing: Erase arr
Exit Sub
BayLoi:
If Err.Number = 9 Then
MsgBox "Xin loi nhe, thang ban chon nam ngoai vung phu song", vbInformation
Sheets("LietKe").[B4:D65000].ClearContents
Else
MsgBox Err.Description
End If
End SubĐồng ý luôn.
.
hihi, giả sử như số 23.000 là số lớn nhất. Nhưng số 23.000 nó xuất hiện trong csdl lớn hơn 10 thì liệu trích ra làm sao? Chắc chắn chỉ lấy có 10 số. Vậy xin hỏi các số 23.000 còn lại thì sao? Không sợ bị kiện à.
Hì hì... cũng chưa hiểu luôn.
Mình phải lường trước sự việc chứ. Làm như vậy thì không hợp lý chút nào cả. Anh đưa ví dụ có 15 số lớn nhất bằng nhau, nhưng anh lấy dữ liệu chỉ có 10 thì như vậy còn lại là 5 số, những số này tính sao? Ví dụ như anh thống kê điểm thi đại học là lấy điểm từ trên xuống theo như trường hợp trên thì 5 thí sinh còn lại không được lấy? Anh sẽ giải quyết sao khi gặp trường hợp này?
Tui đọc và làm theo yếu cầu lấy 10 tên hàng chứ không phải lấy 10 số tiền lớn nhất nên nó mới như vậy.
Điều này không hợp logic, vậy tiêu chuẩn lấy 10 món hàng là gì? có phải có số tiền cao nhất? còn nếu chỉ lấy 10 món hàng như thế thì bị kiện là đúng. Nếu như theo suy nghĩ của anh chỉ lấy 10 món hàng thì bóc và lấy đại 10 món, không hợp logic.
Bạn nói tào lao là tào lao làm sao? Vấn đề chưa giải quyết thì mình có thể tranh luận chứ.
Chổ màu xanh bạn lại không chịu đọckatylove83 đã viết:
Tiêu chuẩn 10 món hàng là đây:
Ví dụ có 15 tên hàng có số tiền lớn nhất bằng nhau, tui lấy 10 tên thôi thì cũng đúng yêu cầu rồi, nếu tác giả muốn gì thêm thì hỏi tiếp.
Híc! Chữ với nghĩa, ai cũng hiểu chỉ mình tui không hiểu!
Nếu bàn cho ra lẽ bài này thì em sẽ không vội quan tâm đến công thức hay code... Em sẽ gợi ý tác giả nên bố trí lại dữ liệu cho hợp lý: Có 1 cột THÁNG đàng hoàng chứ không thể mỗi tháng 1 cột như dữ liệu gốc:
Đã đưa lên đây thì vấn đề không phải của riêng tác giả, mà nếu không phải của riêng tác giả thì mình có thể tranh luận, có thể có những thành viên khác theo dõi và áp dụng. Bạn nói tào lao sao nghe nó nặng lời quá.
trước hết em xin cám ơn các bác đã giup đỡ em, e có đôi lời thế này
"Chời đất ơi", tui có thay đổi, sắp xếp gì đâu "Chời".
còn bây giờ anh "bate" đã làm đúng ý của em rùi hihihi
G3 của bạn điền công thức này xem sao. Hiện tại chưa pro nên chưa có cách giải tối ưu cho bài 1
=F3*VLOOKUP(B3,$A$12:$F$14,IF(AND(D3="Mua",E3="L"),4,IF(AND(D3="Mua",E3="S"),3,IF(AND(D3="Bán",E3="L"),6,5))),0)=IF(RANK(F3,$F$3:$F$8)=1,100000,IF(RANK(F3,$F$3:$F$8)=COUNTIF($F$3:$F$8,MAX($F$3:$F$8))+1,50000,0))bạn hỏi bài 2 thì mình trả lời bài 2 vậy, bạn tạo cột phu
giải giúp còn bị gõ cái đầu ngu nữa , đâu quáMọi người giải giúp em bài tập về cách đếm theo file đính kèm này với ạ
Mọi người giải giúp em bài tập về cách đếm theo file đính kèm này với ạ
=SUMIF($D$5:$D$245,$B249,$CF$5:$CF$245)=COUNTIFS($D$5:$D$245,$B249,$CF$5:$CF$245,">0")Gỡ cho bạn giá xuất:
Tự tin lên chứ bác =)) 100% rồi còn gì
Bạn gõ tiêu đề STT và điều kiện là <>
Công thức:Cả nhà e có bài tập này mà e tìm công thức tổng hợp rồi mà vẫn ko ra. Nên e up lên nhờ cả nhà giải hộ nhé . Thanks!
=IF(I3<H3,(I3+(H3-I3)*VLOOKUP(LEFT(D3,2),$A$12:$E$14,3,0)),H3)*VLOOKUP(LEFT(D3,2),$A$12:$E$14,5,0)
hút , VD là 2h 15' .... ) . Anh chị nào xem hướng dẫn giúp mình.
Bạn sử dụng công thức tách giá trị thời gian bên phải (vì dữ liệu dạng text), sau đó định dạng lại là giờChào các anh chị, mình có 1 file này mà không biết phải làm sao để tính. Cột A, B là cở sở dữ liệu từ hệ thống, có định ngày customer " dd/mm/yyyy hh:mm " , hiện giờ mình muốn tính cột C sẽ = cột B - cột A, kết quả là thời gian ( tính theo giờ
hút:=VALUE(RIGHT(B2,LEN(B2)-FIND(" ",B2)))-VALUE(RIGHT(A2,LEN(A2)-FIND(" ",A2)))Bạn sử dụng công thức tách giá trị thời gian bên phải (vì dữ liệu dạng text), sau đó định dạng lại là giờ
Định dạng thì chuột phải, chọn Format cells, Number, Custom, Type: "hh:mm", Ok.Mã:=VALUE(RIGHT(B2,LEN(B2)-FIND(" ",B2)))-VALUE(RIGHT(A2,LEN(A2)-FIND(" ",A2)))
Bạn đặt hàm Max(0,công thức trên) thử xem. Bạn có muốn tính ra số luôn hay là dùng số không?
