Dùng vba để xếp loại nhân viên

[phantom]

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
Bài này mình có thể dùng 1 dòng lệnh duy nhất. Thử xem.

View more random threads:

• Giúp đỡ về lấy dữ liệu giữa 2 biểu
• Tính công suất động cơ điện xoay chiều.
• Nhờ import excel vào access
• nhờ ac trong diễn đàn viết nút lệnh
• Hướng dẫn cài đặt nâng cấp từ office 2007 lên office 2016
• Tính thời gian sản xuất thực tế (trừ thời gian giải lao)
• Giúp em bài toán lãi suất
• [Cần giúp đỡ] Bar chart chèn trực tiếp vào excel
• Tạo msgbox thông báo nhắc nhở tự động mở thêm file
• Nhờ anh (chị) giúp mình với.

[trqzung]

Bài này mình có thể dùng 1 dòng lệnh duy nhất. Thử xem.

được 2 dòng thôi, 1 dòng thì bó tay, nếu mà kết quả là số thì có thể làm 1 dòng

   arr = Array("TB", "KHA", "Gioi", "XS")
    Range("B14") = arr((Range("L11").Value > 10) * (-1) + (Range("L11").Value >= 9.5) * (-1) + (Range("L11").Value >= 9) * (-1) + (Range("L11").Value >= 8.5) * (-1) - 1)

[phamnga25]

Làm mấy cái IIF lồng nhau thì được 1 dòng lệnh, tương tự công thức IF

[manhhuong]

chào các anh chị
Hien tai em bat dau tu hoc VBA va dang muon tim hieu,xin cac anh chi ho tro chi giup vba de xep loai nhan vien trong file kem (viet code tu dong chay va hoan chinh)
Dua vao KQ cua cot B14 va đk cua thang diem ma xep loai :
Thang điểm xếp loại :

1.Trung bình: 8.5 đên < 9 điểm

2.Khá: 9 đến dưới 9,5 điểm

3.Giỏi: 9,5 đên 10 điểm

4.Xuất sắc: > 10 điểm
Tran trong
dat.nv

[MrBen]

chào các anh chị
Hien tai em bat dau tu hoc VBA va dang muon tim hieu,xin cac anh chi ho tro chi giup vba de xep loai nhan vien trong file kem (viet code tu dong chay va hoan chinh)
Dua vao KQ cua cot B14 va đk cua thang diem ma xep loai :
Thang điểm xếp loại :

1.Trung bình: 8.5 đên < 9 điểm

2.Khá: 9 đến dưới 9,5 điểm

3.Giỏi: 9,5 đên 10 điểm

4.Xuất sắc: > 10 điểm
Tran trong
dat.nv

Bạn dùng If...........then........... thôi!

[HSREAL.VN]

chào các anh chị
Hien tai em bat dau tu hoc VBA va dang muon tim hieu,xin cac anh chi ho tro chi giup vba de xep loai nhan vien trong file kem (viet code tu dong chay va hoan chinh)

Sub GPE()
Dim KQ As String
 If (Range("L11").Value < 9) Then
    KQ = "TRUNG BINH"
 ElseIf (Range("L11").Value < 9.5) Then
    KQ = "KHA"
 ElseIf (Range("L11").Value <= 10) Then
    KQ = "GIOI"
 Else
    KQ = "XUAT SAC"
 End If
Range("B14").Value = KQ
End Sub