Code cách đánh số thứ tự theo nhóm (3 người xem)

[tracanhtam]

Nhờ mọi người giúp dùm việc sau :
Gỉa sử tôi có 30 học sinh có hai loại điểm 40 và 39( 20 học sinh có điểm 40, 10 học sinh có điểm 39) . Tôi muốn đánh số thứ tự theo hai nhóm điểm 40 và 39 . Bạn nào có thể viết code dùm, cám ơn

 

[boyxin]

Nhờ mọi người giúp dùm việc sau :
Gỉa sử tôi có 30 học sinh có hai loại điểm 40 và 39( 20 học sinh có điểm 40, 10 học sinh có điểm 39) . Tôi muốn đánh số thứ tự theo hai nhóm điểm 40 và 39 . Bạn nào có thể viết code dùm, cám ơn

Có phải thế này không?​

 

[tracanhtam]

Đúng rồi , nhưng trong một danh sách có nhiều loại điểm nữa chứ không phải chỉ có hai loại điểm đó

 

[boyxin]

Đúng rồi , nhưng trong một danh sách có nhiều loại điểm nữa chứ không phải chỉ có hai loại điểm đó

Vậy những điểm khác thì đánh số thế naìo hay là khong đánh
bạn phải đưa file lên, nói rõ yêu cầu cụ thể thì mới có câu trả lời chính xác được

-------------------------------------------------------
Lúc đầu bạn chỉ nói

Gỉa sử tôi có 30 học sinh có hai loại điểm 40 và 39( 20 học sinh có điểm 40, 10 học sinh có điểm 39) . Tôi muốn đánh số thứ tự theo hai nhóm điểm 40 và 39 .

thì làm vậy chứ biết sao được danh sách cụ thể của bạn là thế nào

 

[tracanhtam]

Xin nói lại cho rõ
Một danh sách có 1000 hs, trong dó có nhiều loại điểm. Tôi muốn đánh số thứ tự cho tất cả các loại điểm đó . Đánh stt hết loại điểm này stt đến loại điểm khác cho đến hết tất cả loại điểm

 

[ndu96081631]

Với file của Boyxin, bạn chỉ cần sửa lại công thức như vầy là được:

A2 =COUNTIF(C$2:C2,C2)

Muốn bao nhiêu loại điểm cũng được

 

[boyxin]

Xin nói lại cho rõ
Một danh sách có 1000 hs, trong dó có nhiều loại điểm. Tôi muốn đánh số thứ tự cho tất cả các loại điểm đó . Đánh stt hết loại điểm này stt đến loại điểm khác cho đến hết tất cả loại điểm

1. Cụ thể là bạn có bao nhiêu loại điểm, điểm lẻ hay nguyên, điểm là số hay còn có cả điểm là chữ ...
2. Có cái file không đưa được lên thì ai mà đoán được ý đồ của bạn
   (lúc đầu thì nói có 30 HS giờ thì 1000 HS, tý nữa thì là bao nhiêu HS ...)

 

[tracanhtam]

Điểm từ 45 trở lại, có điểm nữa. VD: 36.5, 37,37.5, …

 

[ThuNghi]

Điểm từ 45 trở lại, có điểm nữa. VD: 36.5, 37,37.5, …

Thông thường, những bài như thế này, ta nên có 1 bảng tham chiếu gồm có
Điểm---Nhóm
------------
Sau đó dùng Vlookup với tham số là 1

 

[boyxin]

Điểm từ 45 trở lại, có điểm nữa. VD: 36.5, 37,37.5, …

Đây là file làm theo cách NDU đã gợi ý.
bạn kiểm tra lại xem cần bổ sung thêm gì nữa không?​

 

[cadafi]

Cách đếm này hình như trên GPE có nhiều rồi thì phải. Bác kế toán già gân cũng có một bài tương tự.

Dùng countif và cố định ô đầu tiên là xong.
Như file của anh boyxin là chuẩn nhất rồi. Chấp danh sách có 50,000 dòng và 1000 điểm cũng đếm được.

 

[nguyen_dang]

Xin chào các bạn trên diễn đàn,

Các bạn vui lòng chỉ cho mình link trên diễn đàn để lập công thức đánh STT. Mình muốn đánh STT tiết dạy theo 2 điều kiện MÔn học Và Lớp. Cám ơn các bạn.

 

[truong van truong]

Nhờ anh chi em giúp dùm

Em có file danh sách. Nhờ anh, chị điền những dòng màu đỏ vào danh sách bằng VBA hoặc hàm. Cám ơn anh, chị

 

[truong van truong]

Không ai hướng dẫn giúp mình với

 

[alodie123]

Không ai hướng dẫn giúp mình với

ôi cái câu hỏi ,danhđiền những dòng màu đỏ vào danh sách, danh sách nào?

 

[Ba Tê]

Em có file danh sách. Nhờ anh, chị điền những dòng màu đỏ vào danh sách bằng VBA hoặc hàm. Cám ơn anh, chị

Thử code này xem.

Public Sub GPE()
Dim Arr(), I As Long, Tem As String
Arr = Range([B1], [B65536].End(xlUp)).Offset(, 1).Value
For I = 1 To UBound(Arr, 1)
    If Arr(I, 1) <> Empty Then
        Tem = Arr(I, 1)
    Else
        Arr(I, 1) = Tem
    End If
Next I
[C1].Resize(I - 1) = Arr
End Sub

 

[nghiaphuc]

Em có file danh sách. Nhờ anh, chị điền những dòng màu đỏ vào danh sách bằng VBA hoặc hàm. Cám ơn anh, chị

Bạn quả là kiên nhẫn, một câu hỏi mà bạn chờ đến gần 5 năm luôn, thật đáng khâm phục.

Không biết có phải liệu bạn muốn chèn những chữ màu đỏ ở cột C vào vị trí dấu "__" ở cột E không. Nếu đúng như vậy thì bạn dùng công thức này cho ô I2 và fill xuống nhé:

=IF(E2="","",IF(ISNUMBER(FIND("__",E2)),SUBSTITUTE(E2,"__",C2),E2))

 

[Ba Tê]

Bạn quả là kiên nhẫn, một câu hỏi mà bạn chờ đến gần 5 năm luôn, thật đáng khâm phục.

Không biết có phải liệu bạn muốn chèn những chữ màu đỏ ở cột C vào vị trí dấu "__" ở cột E không. Nếu đúng như vậy thì bạn dùng công thức này cho ô I2 và fill xuống nhé:

=IF(E2="","",IF(ISNUMBER(FIND("__",E2)),SUBSTITUTE(E2,"__",C2),E2))

Híc!
Hình như hổng phải vậy đâu Phúc ơi.
Trong Module đã có cái này:

Sub Macro1()
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:C5"), Type:=xlFillDefault
    Range("C1:C5").Select
    Range("C1").Select
End Sub

Tui nghĩ là người ta muốn trong cột C, mấy ô chữ đỏ là "như trên" của các ô chữ đen chép xuống đó.

 

[nghiaphuc]

Híc!
Hình như hổng phải vậy đâu Phúc ơi.
Trong Module đã có cái này:

Sub Macro1()
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:C5"), Type:=xlFillDefault
    Range("C1:C5").Select
    Range("C1").Select
End Sub

Tui nghĩ là người ta muốn trong cột C, mấy ô màu đỏ là "như trên" chép xuống.

Dạ, có lẽ vậy, sau khi đọc code của bác Ba Tê, em cũng nghiệm ra điều này.

Nếu đúng vậy thì em cũng xin góp vui một cách thủ công nhưng khá đơn giản:
1. Chọn vùng C1:C451, nhấn F5 --> Special --> Blanks --> OK để chọn những ô trống trong vùng.
2. Gõ dấu = và phím mũi tên lên, sau đó nhấn Ctrl+Enter. Vậy là xong.

 

[VetMini]

Bạn quả là kiên nhẫn, một câu hỏi mà bạn chờ đến gần 5 năm luôn, thật đáng khâm phục.

Chưa hẳn vậy bạn ơi. Có thể người hỏi làm không được cho nên lơ đi luôn. 5 năm sau mới bị sếp đòi tới, thế là lại phải lục hồ sơ cũ ra, phủi bụi, đánh bóng.
Sếp này cũng thuộc loại "kiên nhẫn", đáng khâm phục.