cám ơn thầy, cũng với code đó: em muốn tách riêng ra hàm con, vì trong chương trình của em có nhiền điều kiện để chọn hàng và cột nên khi gọi cột 1 thì chỉ cần gọi chương trình con lên và chạy, e chưa hiểu lắm về cách xuất ra
Tôi thắc mắc tại sao bài này bạn không dùng VLOOKUP?
=VLOOKUP(K4,$A$2:$I$14,MATCH(K5,$A$2:$I$2,0),0)vì e đang lam chương trinh tim kiếm NVL, nên k xài Vlookup
Nó không chịu byRef thì mình byVal
Function terminal(ByVal ter As String, ByVal wire As String, Darr())
Dim Arr(1 To 100, 1 To 3), i As Long, j As Long, iR As Long, DK As String
For i = 2 To UBound(Darr)
If Darr(i, 1) = ter Then
For j = 2 To UBound(Darr, 2)
If Darr(1, j) = wire Then
terminal = Darr(i, j)
Exit Function
End If
Next j
End If
Next i
End Functioncám ơn thầy
For i = 2 To UBound(Darr)
If Darr(i, 1) = ter Then
For j = 2 To UBound(Darr, 2)
If Darr(i, j) > 0 Then
Darr(1, j)
End If
Next j
End If
Next i
[code]
em o viết theo Dictionary nhưng chưa hiểu củ pháp
Vào tool/references rồi bỏ những cái có chữ mising đi.
1. Bạn xem file này có khác biệt gì với code trong file trước rồi ngẫm ra cái "chèn thêm cột".
Em cám ơn anh BaTe :
Sheets("PartsData").Select
Cells(nextRow, "A").SelectVậy có thể do máy của em bị lỗi rồi; không phải do file. Cảm ơn anh
Code của anh dài nên em luận không ra được.
Sub GPE()
Dim sArr(), dArr()
Dim I As Long, j As Long, K As Long, D As Date, lR As Long
D = wksPartsDataEntry.Range("D3")
sArr() = wksPartsDataEntry.Range("B7", wksPartsDataEntry.Range("B7").End(xlDown)).Resize(, 8).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 11)
For I = 1 To UBound(sArr, 1)
dArr(1, 1) = Format(Now, "mm/dd/yyyy hh:mm:ss")
dArr(1, 2) = Application.UserName
K = K + 1
dArr(K, 3) = D
For j = 1 To 8
dArr(K, j + 3) = sArr(I, j)
Next j
Next I
lR = wksPartsData.Range("C" & Rows.Count).End(xlUp).Row + 1
wksPartsData.Range("A" & lR).Resize(K, 11) = dArr
End SubOption Explicit
' Dinh nghia kieu nguoi dung cho loai vat tu
' moi loaij vat tu gom co ma so , ten,don vij, khoi luong
Type LoaiVatTu
Maso As String
Donvi As String
Khoiluong As String
End Type
' Lap danh sach cac loai vat tu
Public Sub DanhSachVT()
Dim R As Range 'Pham vi trong bang vat lieu can phan tich
Dim DanhSachVT() As LoaiVatTu ' Mang dong chua danhsach vat tu
Dim i As Long ' chi so mang
Dim k As Range ' bien nay dung de duyet bang du lieu trong R
Set R = Application.InputBox("Cho?n vu`ng du~ liê?u câ`n tô?ng hop", Type:=8)
i = 0 'chi so dau tien cua mang vat tu la 0
Dim ii As Long
Dim ok As Boolean
' Doc du lieu tu sheet "Phan Tich Vat Tu"
For Each k In R.Columns(1).Cells
If Trim(k.Value) <> "" Then
If i = 0 Then 'vat tu dau tien trong danh sach
ReDim Preserve DanhSachVT(i) 'khai bao lai mang
'gan du lieu cho vat tu dau tien
DanhSachVT(i).Maso = Trim(k.Value)
DanhSachVT(i).Donvi = Trim(k.Offset(0, 6).Value)
DanhSachVT(i).Khoiluong = Trim(k.Offset(0, 5).Value)
i = i + 1 'tang chi so mang len 1
Else 'neu danh sach vat tu lon hon 1
ok = True
For ii = 0 To i - 1
'vat tu nay da co trong danh sach
If DanhSachVT(ii).Maso = Trim(k.Value) Then
ok = False
DanhSachVT(ii).Khoiluong = DanhSachVT(ii).Khoiluong
Exit For
End If
Next ii
' vat tu chua co ten trong danh sach
If ok Then
ReDim Preserve DanhSachVT(i)
DanhSachVT(i).Maso = Trim(k.Value)
DanhSachVT(i).Donvi = Trim(k.Offset(0, 6).Value)
DanhSachVT(i).Khoiluong = Trim(k.Offset(0, 5).Value)
i = i + 1 'tang chi so mang len 1
End If
End If
End If
Next
'Ghi ket qua ra excel, trong sheet "THVT"
Dim j As Long
Dim row As Long
row = 7 ' bat dau ghi du lieu
For j = LBound(DanhSachVT) To UBound(DanhSachVT)
ThisWorkbook.Worksheets("thvt").Cells(row + j, 1).Value = j + 1
ThisWorkbook.Worksheets("thvt").Cells(row + j, 2).Value = DanhSachVT(j).Maso
ThisWorkbook.Worksheets("thvt").Cells(row + j, 3).Value = DanhSachVT(j).Donvi
ThisWorkbook.Worksheets("thvt").Cells(row + j, 4).Value = DanhSachVT(j).Khoiluong
Next j
MsgBox "Ket thuc"
End SubCode của Vanthinh luôn gọn gàng và tốc độ nhanh đúng phong cách của anh Nguyễn Duy Tuân; Cảm ơn Vanthinh3101 nhiều, Chúc bạn và gia đình luôn mạnh khỏe, gặp nhiều thành công trong công việc. Hẹn gặp lại bạn mùa hè năm nay nhé
