Đơn giản bạn sai chỗ này: Trong bảng hệ số, cột hệ số là con số còn trong Mã HĐ bạn trích ra là chuổi số mà!
=VLOOKUP([COLOR=Red]RIGHT(C13,1)*1[/COLOR],[COLOR=Red]$I$24:$K$28[/COLOR],2,0)=VLOOKUP([COLOR=Red]VALUE(RIGHT(C13,1))[/COLOR],[COLOR=Red]$I$24:$K$28[/COLOR],2,0)
----------
=VLOOKUP(RIGHT(C13;1);$I$25:$K$28;3)
bằng =VLOOKUP([COLOR=red]--[/COLOR]RIGHT(C13;1);$I$25:$K$28;3)=VLOOKUP(RIGHT(C13;1);I25:K28;2;0) bằng =VLOOKUP([COLOR=red]--[/COLOR]RIGHT(C13;1);[COLOR=red]$[/COLOR]I[COLOR=red]$[/COLOR]25:[COLOR=red]$[/COLOR]K[COLOR=red]$[/COLOR]28;2;0)
Chưa xem bài, nhưng bạn đổi ct trên thành
File kèm, theo tôi nên chọn từ mã hay hơn, và nhớ tên hàng nên không có khỏang trắng, cùng lắm dùng thêm trim.
Hình như thực thu chưa có thuế bác ah.
---------
Vào đây xem và download cuốn công thức và hàm kèm theo ví dụ, bài tập từ cơ bản đến nâng cao. Bạn thoải mái mà "châm cứu" về hàm trong Excel
Cột đơn giá của bạn là TEXT mà tính toán được gì chứ (12 USD, 12 USD...)
=TRIM(SUBSTITUTE(VLOOKUP(MID(B3,2,2),$A$13:$C$19,3,0),"USD",""))*IF(RIGHT($B3)="1",1.05,0.95)To tandattd! Việc giải thích một công thức là rất mất nhiều thời gian vì khó trong việc trình bày để bạn có thể hiểu được. Nếu bạn thấy công thức nào của bác Ndu hay và hữu ích với bạn bạn copy công thức đó lên đây để bác Ndu hoặc các thành viên khác có thể giải thích trực tiếp cho bạn trên diễn đàn.
Dùng hàm ISNA nhé:
Bạn có thể dùng hàm Index(), kết hợp với các hàm match(),hàm offset()... Và có thể còn nhiều hàm khác. Còn tùy thuộc vào dữ liệu, cấu trúc bảng dữ liệu mà bạn đang sử dụng.
Bạn dùng code này thử xem:
Sub GPE()
For Each cll In Range(Sheets("du lieu").[A2], Sheets("du lieu").[A65536].End(xlUp))
If WorksheetFunction.CountIf(Sheets("code").[A:A], cll.Value) > 0 Then Sheets("code").[A65536].End(xlUp).Offset(1).Value = cll.Value
Next
End Sub
Private Sub CommandButton1_Click()
Dim Sh As Worksheet, Rng As Range, Clls As Range, sRng As Range
Dim MyColor As Byte
Set Sh = Sheets("code"): Sheets("Du Lieu").Select
Set Rng = Sh.Range(Sh.[A1], Sh.[a65500].End(xlUp))
MyColor =Day(Date) Mod 6
For Each Clls In Range([A2], [a65500].End(xlUp))
Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
With Sh.[a65500].End(xlUp).Offset(1)
.Value = Clls.Value
.Interior.ColorIndex = 34 + MyColor
End With
Clls.Font.ColorIndex = MyColor
Set Rng = Sh.Range(Sh.[A1], Sh.[a65500].End(xlUp))
End If
Next Clls
End Sub
Theo cách củ chuối của mình thì copy tất cả dữ liệu của cột A sheet1 sang sheet2 cột A rồi sau đó xóa bỏ những thằng trùng đi là được.
Sub Dan()
Sheet1.Range("A2", "A" & Sheet1.Range("A65536").End(xlUp).Row).copy _
Destination:=Sheet2.Range("a" & Sheet2.Range("A65536").End(xlUp).Row + 1)
Call Unique
Sheet2.Activate
End Sub
Sub Unique()
Dim x As Long
Dim LastRow As Long
LastRow = Sheet2.Range("A65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Sheet2.Range("A2:A" & x), Sheet2.Range("A" & x).Text) > 1 Then
Sheet2.Range("A" & x).EntireRow.Delete
End If
Next x
End Sub
Sub LocDanhSach()
Range(Sheet2.[A1], Sheet2.[a65536].End(xlUp)).Clear
Range(Sheet1.[A1], Sheet1.[a65536].End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range("A1"), Unique:=True
End SubViết lại cho nó... gọn gọn tí đồng chí ơi
Sub LocDanhSach()
Sheet2.Range("A:A").Clear
With Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp))
.AdvancedFilter 2, , Sheet2.Range("A1"), True
End With
End Sub
Viết lại cho nó... gọn gọn tí đồng chí ơi
PHP:Sub LocDanhSach() Sheet2.Range("A:A").Clear With Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp)) .AdvancedFilter 2, , Sheet2.Range("A1"), True End With End Sub
.Tôi đã xem file của bạn! Nhưng vì trong file bạn không đưa ra yêu cầu cụ thể, và mong muốn của bạn là làm thế nào nên tôi chưa làm?anh duongdv giúp em công thức thay thế hàm vlookup nhe.em đang rất cần. Cám ơn anh nhiều lắm!em goi file đính kèm
Bạn dùng hàm Vlookup thôiMình có bài tập này mong bạn nào giúp hộ mình với, mình không bít dùng công thức nào nữa.
Mình có bài tập này mong bạn nào giúp hộ mình với, mình không bít dùng công thức nào nữa.
Mình chuyển mã giúp bạn rồi đấy!
Có nhiều cách chuyển mã font. Bạn cứ tìm trên GPE hoặc bạn dùng phần mềm Unicode hay Vietkey để chuyển mã.
Bạn dùng phần mềm gõ tiếng Việt Unikey 4.0 RC1 để chuyển mã!
Function Vlookups(Table_Range As Range, Return_Col As Long, Val1, Col1_Fnd, _
Optional Val2, Optional Col2_Fnd As Long = 0, _
Optional Val3, Optional Col3_Fnd As Long = 0, _
Optional Val4, Optional Col4_Fnd As Long = 0, _
Optional Val5, Optional Col5_Fnd As Long = 0)
On Error Resume Next
If Col2_Fnd = 0 Then
For xLoop = 1 To Table_Range.Rows.Count
If (Table_Range(xLoop, Col1_Fnd)) = (Val1) Then
Vlookups = Table_Range(xLoop, Return_Col)
Exit Function
End If
Next xLoop
ElseIf Col3_Fnd = 0 Then
For xLoop = 1 To Table_Range.Rows.Count
If (Table_Range(xLoop, Col1_Fnd)) = (Val1) And _
(Table_Range(xLoop, Col2_Fnd)) = (Val2) Then
Vlookups = Table_Range(xLoop, Return_Col)
Exit Function
End If
Next xLoop
ElseIf Col4_Fnd = 0 Then
For xLoop = 1 To Table_Range.Rows.Count
If (Table_Range(xLoop, Col1_Fnd)) = (Val1) And _
(Table_Range(xLoop, Col2_Fnd)) = (Val2) And _
(Table_Range(xLoop, Col3_Fnd)) = (Val3) Then
Vlookups = Table_Range(xLoop, Return_Col)
Exit Function
End If
Next xLoop
ElseIf Col5_Fnd = 0 Then
For xLoop = 1 To Table_Range.Rows.Count
If (Table_Range(xLoop, Col1_Fnd)) = (Val1) And _
(Table_Range(xLoop, Col2_Fnd)) = (Val2) And _
(Table_Range(xLoop, Col3_Fnd)) = (Val3) And _
(Table_Range(xLoop, Col4_Fnd)) = (Val4) Then
Vlookups = Table_Range(xLoop, Return_Col)
Exit Function
End If
Next xLoop
Else
For xLoop = 1 To Table_Range.Rows.Count
If (Table_Range(xLoop, Col1_Fnd)) = (Val1) And _
(Table_Range(xLoop, Col2_Fnd)) = (Val2) And _
(Table_Range(xLoop, Col3_Fnd)) = (Val3) And _
(Table_Range(xLoop, Col4_Fnd)) = (Val4) And _
(Table_Range(xLoop, Col5_Fnd)) = (Val5) Then
Vlookups = Table_Range(xLoop, Return_Col)
Exit Function
End If
Next xLoop
End If
Vlookups = "#N/A"
End FunctionBạn chỉ nói vậy sao mà giúp được. Sao không đưa file lên đây để các thành viên giúp bạn.
Nếu vậy thì bạn dùng 2 hàm Vlookup để tìm kết nối giữa 2 hàm là dấu "-"
Bạn thử công thức này nhé.Bạn nào trong diễn đàn sửa được lỗi trong bảng tính giúp mình với! Cảm ơn nhiều
Nếu bạn muốn vậy thì phải sửa công thức chứ còn sao nữa? Bạn động não lên một chút và tuỳ biến cái công thức đó là sẽ có kết quả theo ý muốn.
Thử cái này đi nhé:
Sao không được
Không biết đúng sai nữa : hình như cái LOTVC của bạn có 12 tháng thì phải, theo mình có 2 cách nhưng hơi buồn cười, trúng ý thì bạn làm còn không thì coi như để tham khảoCám ơn anh đã trả lời.
Ý em là ở đây phần VC0910 tô đỏ đó. Vì một sản phẩm ABC (Lot VN) sẽ sử dụng nhiều loại sản phẩm trung gian (Lot VC) nhưng sản phẩm trung gian này lai được sản xuất ở những tháng khác nhau VC0907 ... VC0909 ... VC0910 ... nên anh chị có cách nào khác không ạ.
Với công thức trên của anh thì Lot trung gian nhập vào là của tháng 10 thì vlookup OK nhưng nếu là của tháng khác thì nó ko tìm thấy dữ liệu.
BTW: Em xin up lại file DHR_new vi file cũ có phần nhầm lần là tát cả các lot trung gian của cac tháng đều là VC0909.... Sorry all
Đún như bạn đã hỏi Lot VC nhập cho mỗi tháng (tức là 12 sheet riêng biệt).
Thật ra mình cũng chẳng biết ở cái sheet DHR bạn cần thể hiện những cái gì nữa. Dùng VBA thì thì là cách như mình tạo một bảng dò trung gian đó thôi : tức là nếu bạn nhập VC0901 thì mình sẽ dò tìm ở sheet VC0901 ......VC0912 thì dò ở sheetvc0912
Nếu trong DS có cả Nguyễn Văn Na và Nguyễn văn Nam thì sao, nếu phải lọc ra hết thì sao Vlookup được, chắc phải Advanced Filter... thôi.
Sub Tim()
[h6] = [c:c].Find([g6]).Offset(, 1)
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [g6]) Is Nothing Then
Dim Rng As Range, sRng As Range, MyAdd As String
Set Rng = Range([C5], [C65500].End(xlUp))
[g7].Resize(Rng.Rows.Count, 2).Clear
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlPart)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
[g65500].End(xlUp).Offset(1).Resize(, 2).Value = sRng.Resize(, 2).Value
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
End If
End Sub
