Một câu hỏi tương đối dễ chỉ cần thay đổi cấu trúc 1 tí thì làm được, nhưng tiêu đề vi phạm nội quy nên không thể giúp được, bạn sửa tiêu đề lại như thế này:em có file đính kèm, các Pro giúp em thống kê số lớp ở sheet với ah. em đội ơn
Bạn tham khảo:em có file đính kèm, các Pro giúp em thống kê số lớp ở sheet với ah. em đội ơn
Sub abc()
Dim i As Integer, Cll As Range
With Sheets("ds lop")
For Each Cll In Range("A1:A135")
If Cll.Font.Bold = False Then i = i + 1
Next
[b135] = i: MsgBox i
End With
End Sub
Sub xyz()
Dim a As Integer
a = Sheets("So lop").Range("A1:A75").SpecialCells(xlCellTypeConstants, 1).Count
[b75] = a: MsgBox a
End Sub
Em đã sửa. Em cảm ơnMột câu hỏi tương đối dễ chỉ cần thay đổi cấu trúc 1 tí thì làm được, nhưng tiêu đề vi phạm nội quy nên không thể giúp được, bạn sửa tiêu đề lại như thế này:
Cách đếm số lớp theo khoa.
Cách sửa lại tiêu đề bài viết:
Khi đăng nhập xong, vào Công cụ chủ đề (trên cùng bên phải bài viết), chọn Edit Title , nó hiện ra hộp thoại để sửa tiêu đề, khi sửa xong nhấn nút Lưu thay đổi.
Bạn đọc lại nội quy tại khoản 3, mục III. Quy định về tiêu đề bài viết, tại Link sau:
http://www.giaiphapexcel.com/diendan/threads/nội-quy-diễn-đàn-cập-nhật.76052/
em chạy xyz thì báo lỗi rangea1:a75Bạn tham khảo:
PHP:Sub abc() Dim i As Integer, Cll As Range With Sheets("ds lop") For Each Cll In Range("A1:A135") If Cll.Font.Bold = False Then i = i + 1 Next [b135] = i: MsgBox i End With End Sub Sub xyz() Dim a As Integer a = Sheets("So lop").Range("A1:A75").SpecialCells(xlCellTypeConstants, 1).Count [b75] = a: MsgBox a End Sub
File em là theo khoa, theo khóa. giờ em muốn thông kê lớp bên sheet2 khoa A khóa 49 là bao nhiêu lớp, 50 la bao nhiêu lơp.Bạn tham khảo:
PHP:Sub abc() Dim i As Integer, Cll As Range With Sheets("ds lop") For Each Cll In Range("A1:A135") If Cll.Font.Bold = False Then i = i + 1 Next [b135] = i: MsgBox i End With End Sub Sub xyz() Dim a As Integer a = Sheets("So lop").Range("A1:A75").SpecialCells(xlCellTypeConstants, 1).Count [b75] = a: MsgBox a End Sub
Bạn sửa Sheets("So lơp") thành Sheets("So lop") là được.em chạy xyz thì báo lỗi rangea1:a75
Bạn dùng hàm CountIf, chẳng hạn muốn đếm khóa 49:File em là theo khoa, theo khóa. giờ em muốn thông kê lớp bên sheet2 khoa A khóa 49 là bao nhiêu lớp, 50 la bao nhiêu lơp.
Em cảm ơn!
Sub count()
MsgBox WorksheetFunction.CountIf(Range("A1:A75"), "49")
End Sub
Ôi, nhìn tiêu đề buồn quá.
Mà đọc file excel cứ bị bùng nhùng
Tại sao, và tại vì sao, diễn đàn nào cũng thế, có rất nhiều người không diễn tả được câu hỏi của mình một cách logic và dễ hiểu ? Kỹ năng trình bày kém đến tệ, nhưng luôn muốn người khác phải hiểu ý mình
Than trời ....
Tại vì trong suốt quá trình học các cấp của ta không có môn nào học về cách phân tích và trình bày vấn đề.
Cái 'thắc mắc' này chỉ có câu "treo đầu dê bán thịt chó' mới giải thích được thôi.Vậy đề bài : Phân tích bài Văn Tế Nghĩa sĩ Cần Giuộc thuộc môn nào vậy anh ?
Mình không muốn ai phải hiểu ý mình. diễn đàn là nơi học hỏi mà, không hiểu, không biết thì phải hỏi chứ. hi.Ôi, nhìn tiêu đề buồn quá.
Mà đọc file excel cứ bị bùng nhùng
Tại sao, và tại vì sao, diễn đàn nào cũng thế, có rất nhiều người không diễn tả được câu hỏi của mình một cách logic và dễ hiểu ? Kỹ năng trình bày kém đến tệ, nhưng luôn muốn người khác phải hiểu ý mình
Than trời ....
Mình không muốn ai phải hiểu ý mình. diễn đàn là nơi học hỏi mà, không hiểu, không biết thì phải hỏi chứ. hi.
Chỉ là một chút trao đổi 'kinh nghiệm sống', nếu có gì làm bạn buồn lòng, thì cũng bỏ qua cho nha!Mình không muốn ai phải hiểu ý mình
bạn nên cố gắng diễn đạt cho dễ hiểu thì mọi người giúp bạn thuận lợi hơnem có file đính kèm, các Pro giúp em thống kê số lớp ở sheet với ah. em đội ơn
Câu của bạn tôi sẽ ghi vào sổ những câu nói kinh điển
Đúng là bạn không ép ai phải hiểu ý bạn, đương nhiên chúng tôi cũng sẽ không ép bạn phải hiểu câu trả lời
Nếu người ta không muốn hiểu ý thì thôi, coi như mình không hiểu được vấn đề thì không giúp.Mình không muốn ai phải hiểu ý mình. ................i.
Vậy đề bài : Phân tích bài Văn Tế Nghĩa sĩ Cần Giuộc thuộc môn nào vậy anh ?
Cái 'thắc mắc' này chỉ có câu "treo đầu dê bán thịt chó' mới giải thích được thôi.
Tuy nói là 'Phân tích' nhưng 'ở trên' dặn thầy cô phải dạy 'rập khuôn' theo giáo án của 'ty' này 'sở' nọ, nên học sinh chỉ biết học theo kiểu rất sáo điều và trả bài như con vẹt (xin lỗi trước anh @VetMini, vì hổng biết có bị tội "phạm húy" không? ). Khi ra xã hội, hoàn cảnh đâu có 'rập khuôn' được nên 'thất thủ' 'bó tay' và 'ngọng nghịu' thôi.
Thầy cô nào mà có suy nghĩ và cách dạy khác là: 'mất quan điểm' và cần phải được 'quán triệt'......
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2