langthangmang
Thành viên hoạt động



- Tham gia
- 11/8/07
- Bài viết
- 120
- Được thích
- 82
À mình quên bạn chèn vào cuối nhưng trước End sub
Chào Bạn Hyen17(Mỗi cái 1 trang tính à nha!)
PHP:Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A99")) Is Nothing Then With Target Select Case Target.Value Case Is = 0, 2 .Offset(, 1) = "": .Offset(, 2) = "" .Offset(, 3).Value = "" Case Is = 1, Is < 9 .Offset(, 1) = "a": .Offset(, 2) = "b" .Offset(, 3).Value = "c" Case 10, 12 .Offset(, 1) = "8A": .Offset(, 2) = "9A" .Offset(, 3).Value = "10A" Case Is < 20 .Offset(, 1) = "X": .Offset(, 2) = "Y" .Offset(, 3).Value = "Z" Case Is > 24 .Offset(, 1) = "Lung tung": .Offset(, 2) = "Tu Tung" .Offset(, 3).Value = "Lon xon" End Select End With End If End Sub
'- - - - - - - - - - - - - - - - - - '- - - - - - - - - - - - - - - - - - '
PHP:Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A99")) Is Nothing Then Dim SoNhap SoNhap = Target.Value Target.Offset(, 1) = Switch(SoNhap < 7, 7, SoNhap > 10, 20, SoNhap > 30, 30) Target.Offset(, 2) = Switch(SoNhap < 7, "A", SoNhap > 10, "B", SoNhap > 30, "C") Target.Offset(, 3) = Switch(SoNhap < 7, 10, SoNhap > 10, 24, SoNhap > 30, 35) End If End Sub
Còn code 2 mình không hiểu lắm, nhờ bạn giải thích thêm.
Thân
Nhân tiện cho mình hỏi:mình muốn nếu tại ô A1 =1.5 nếu A2 nhỏ hơn hoặc bằng 10 còn không thì bằng 2 mình viết biể thức như vầy sao excel không hiểu.Tại A1 =if(A2<=10,1.5,2).các bạn xem lại công thức này đúng hay sai giùm mình.Chân thành cảm ơn.
Câu này thì là ABC -> bạn làm được tốt?+ Cột Đtb (trung bình cộng) được tính ĐTB = (Điểm Lt+Điểm TH)/2
câu này cũng vậy: chỉ lưu ý bạn dùng hàm RANK+Cột Xếp thứ thí sinh có ĐTB Lớn Nhất Xếp Thứ 1 . Tiếp theo ĐTB Thấp hơn xếp thứ 2
ị
+Cột Kết quả :Thí sinh có ĐTB>=5,0 Và không có điểm thi dưới 3,0 thì kết quả là đỗ số còn lại là trượt
-Nếu ĐTB >=8,0 Và không có điểm thi dưới 7,0..... xếp loại giỏi
-Nếu ĐTB từ 7,0 đến Cận 8,0 và không có điểm thi dưới 6,0 xếp loại khá
-Nếu ĐTB từ 5,0 đến Cận 7,0 xếp loại trung bình
Bạn tham khảo File đính kèm ( lưu ý có sử dụng cột phụ là Hàm MIN )+ Cột Đtb (trung bình cộng) được tính ĐTB = (Điểm Lt+Điểm TH)/2
+Cột Xếp thứ thí sinh có ĐTB Lớn Nhất Xếp Thứ 1 . Tiếp theo ĐTB Thấp hơn xếp thứ 2
+Cột Kết quả :Thí sinh có ĐTB>=5,0 Và không có điểm thi dưới 3,0 thì kết quả là đỗ số còn lại là trượt
-Nếu ĐTB >=8,0 Và không có điểm thi dưới 7,0..... xếp loại giỏi
-Nếu ĐTB từ 7,0 đến Cận 8,0 và không có điểm thi dưới 6,0 xếp loại khá
-Nếu ĐTB từ 5,0 đến Cận 7,0 xếp loại trung bình
Giúp Em Với Anh chị
Vẫn không được,vì nếu a>b một chút thì nó vẫn theo ý mình là NO nhưng nếu a>b quá nhiều thì báo là #NUM! Mong các bạn chỉ mình cách khắc phục.Thanks.Chào bạn 311280
Đó là lỗi Format
Bạn Ctrl+A vào format / cells / chọn General OK
Chúc thành công
Chào bạn
lưu ý có sử dụng cột phụ là Hàm MIN
Chào bạn !Vẫn không được,vì nếu a>b một chút thì nó vẫn theo ý mình là NO nhưng nếu a>b quá nhiều thì báo là #NUM! Mong các bạn chỉ mình cách khắc phục.Thanks.
File của mình đây.ThanksChào bạn !
Lỗi #NUM! là lỗi về giá trị của số trong công thức ( có số âm không ? ). Mình thấy Workbook bất kì mình làm trên máy vẫn ra kết quả theo công thức mà.
Bạn có thể up file được không để các bạn trên GPE giúp cho.
Thân chào
Lẽ ra ngay từ đầu bạn phải nói rằng cái công thức của bạn là gì trong đó... Bạn cứ a>b, rồi a<b... thì làm sao mà người ta biết để giải thích được?File của mình đây.Thanks
Thì... chỉ có trời mới biết tại sao công thức của bạn bị lỗi... còn chúng tôi cứ phải đoán mò, tội nghiệp chớ...Mình có dùng hàm if ví dụ như: If(a<b,1,"no") nhưng khi a lớn hơn b thì báo lỗi #NUM!.mong các bạn giải thích giùm.Thanks.