ongtrungducmx25
Thành viên gạo cội
- Tham gia
- 5/2/07
- Bài viết
- 2,077
- Được thích
- 1,987
- Nghề nghiệp
- GV
em muốn làm một From để nhập công thức tính vd như cột A: số thứ tự , cột B: họ tên ,cột C : dân tộc ,cột D:giới tính; Cột E: điểm trung bình 1 ; cột F: 7 điểm ;cột G: 9điểm cột G: =(7+9)/2=8điểm
=Mycount(A2:G2, “kinh”, “nữ”,7,10) è kết quả :1
code:
Private Sub MyCount(rng As Range, dantoc As String, gioitinh As String, tbmin As Double, tbmax As Double)
Dim count As Integer
Dim i As Integer
Dim tdb As Double
count = 0
For i = 1 To rng.count
dtb = CDbl(rng.Item(i, 7))
If (dantoc = rng.Item(i, 3).Value) And (gioitinh = rng.Item(i, 4).Value) And (tbmin <= dtb) And (dtb <= tbmax) Then
count = count + 1
End If
MyCount = count
Next i
End Sub
NHƯNG KHÔNG THỂ NÀO NHẬP ĐƯỢC MONG ĐƯỢC SỰ GIÚP ĐỞ
=Mycount(A2:G2, “kinh”, “nữ”,7,10) è kết quả :1
code:
Private Sub MyCount(rng As Range, dantoc As String, gioitinh As String, tbmin As Double, tbmax As Double)
Dim count As Integer
Dim i As Integer
Dim tdb As Double
count = 0
For i = 1 To rng.count
dtb = CDbl(rng.Item(i, 7))
If (dantoc = rng.Item(i, 3).Value) And (gioitinh = rng.Item(i, 4).Value) And (tbmin <= dtb) And (dtb <= tbmax) Then
count = count + 1
End If
MyCount = count
Next i
End Sub
NHƯNG KHÔNG THỂ NÀO NHẬP ĐƯỢC MONG ĐƯỢC SỰ GIÚP ĐỞ
