Tạo function mới trong excel (1 người xem)

[return81]

Mình đang cần thu gọn hàm trong excel như sau:

Từ: = if(countif(a3:b4,a2) >0, "đi làm","nghỉ làm")

thành =chamcong(a3:b4,a2)

trong đó a3:b4 là range có thể thay đổi được
a2 là cell có thể thay đổi được

bác nào thạo vba cho mình xin cái code với

cám ơn trước.

 

[quanluu]

Mình đang cần thu gọn hàm trong excel như sau:

Từ: = if(countif(a3:b4,a2) >0, "đi làm","nghỉ làm")

thành =chamcong(a3:b4,a2)

trong đó a3:b4 là range có thể thay đổi được
a2 là cell có thể thay đổi được

bác nào thạo vba cho mình xin cái code với

cám ơn trước.

Bạn dùng function này

Function chamcong(dulieu As Range, dk As Range) As String
Dim cel As Range
For Each cel In dulieu
    If cel = dk Then
        chamcong = "di lam"
        Exit Function
    End If
Next
chamcong = "nghi lam"
End Function

 

[ChanhTQ@]

Tạm là vầy cũng được:

Option Explicit
Function ChamCong(Rng As Range, Cls As Range) As String
 Dim WF As Object
 Set WF = Application.WorksheetFunction
 If WF.CountIf(Rng, Cls.Value) > 0 Then
    ChamCong = "Có Làm"
 Else
    ChamCong = "0 Làm"
 End If
End Function

 

[HieuCD]

dùng find range

Function ChamCong(rng As Range, val)
ChamCong = "Nghi lam"
If Not rng.Find(val, LookIn:=xlValues) Is Nothing Then ChamCong = "Di lam"
End Function

 

[ndu96081631]

dùng find range

Function ChamCong(rng As Range, val)
ChamCong = "Nghi lam"
If Not rng.Find(val, LookIn:=xlValues) Is Nothing Then ChamCong = "Di lam"
End Function

Cái này tuy hay nhưng coi chừng... trật lất

 

[HieuCD]

Cái này tuy hay nhưng coi chừng... trật lất

Cám ơn bạn, các tham số hàm Find mình không rành, mình copy trong Help ra, kiểm tra trên máy mình thì ra kết quả đúng
Sử dụng cách tìm được trên GPE nhưng không hiểu trong Find(val, , , 1) số 1 là gì, bạn giải thích dùm

Function ChamCong(rng As Range, val)
ChamCong = "Nghi lam"
If Not rng.Find(val, , , 1) Is Nothing Then ChamCong = "Di lam"
End Function

 

[doveandrose]

Cám ơn bạn, các tham số hàm Find mình không rành, mình copy trong Help ra, kiểm tra trên máy mình thì ra kết quả đúng
Sử dụng cách tìm được trên GPE nhưng không hiểu trong Find(val, , , 1) số 1 là gì, bạn giải thích dùm

Function ChamCong(rng As Range, val)
ChamCong = "Nghi lam"
If Not rng.Find(val, , , 1) Is Nothing Then ChamCong = "Di lam"
End Function

nghe nói vị trí thứ 4 trong tham số nó tương ứng với cái checkbox này

bạn thử MsgBox xlWhole xem sao .

 

[HieuCD]

nghe nói vị trí thứ 4 trong tham số nó tương ứng với cái checkbox này

bạn thử MsgBox xlWhole xem sao .

Cám ơn bạn, mình đã hiểu

 

[HieuCD]

Cám ơn bạn, các tham số hàm Find mình không rành, mình copy trong Help ra, kiểm tra trên máy mình thì ra kết quả đúng
Sử dụng cách tìm được trên GPE nhưng không hiểu trong Find(val, , , 1) số 1 là gì, bạn giải thích dùm

Function ChamCong(rng As Range, val)
ChamCong = "Nghi lam"
If Not rng.Find(val, , , 1) Is Nothing Then ChamCong = "Di lam"
End Function

Sáng nay mở tập tin

Function ChamCong(rng As Range, val)
ChamCong = "Nghi lam"
If Not rng.Find(val, LookIn:=xlValues) Is Nothing Then ChamCong = "Di lam"
End Function

Thì kết quả không đúng
Lại thêm một cái sai nữa vì không đọc kỹ phần help "The settings for LookIn, LookAt, SearchOrder, and MatchByte are saved each time you use this method."

 

[return81]

Các bạn cho mình hỏi thêm là muốn search theo Tên luôn thì thế nào nhỉ. VD: công thức là
=ChamCong(A2:B4,"Lan")
chẳng hạn. làm thế nào để VBA nó hiểu linh động giữa Cell và value có sẵn trong công thức.

 

[quanluu]

Các bạn cho mình hỏi thêm là muốn search theo Tên luôn thì thế nào nhỉ. VD: công thức là
=ChamCong(A2:B4,"Lan")
chẳng hạn. làm thế nào để VBA nó hiểu linh động giữa Cell và value có sẵn trong công thức.

Bạn thay "dk as range" thành "dk" ko thui ( biến dk sẽ là variant)

Function chamcong(dulieu As Range, dk) As String
Dim cel As Range
For Each cel In dulieu
    If cel = dk Then
        chamcong = "di lam"
        Exit Function
    End If
Next
chamcong = "nghi lam"
End Function