Hỏi về code in điểm (5 người xem)

[dancao1975]

Hôm trước có bác đã giúp em viết code lọc điểm, nhưng hôm nay bảng của em thêm 3 cột thì báo lỗi code khi nhấn nút PRINT trong sheet[inbangdiem] nhờ các bác giúp, file của em đây:http://www.mediafire.com/?iafaqc05x8dy1eh

 

[concogia]

Hôm trước có bác đã giúp em viết code lọc điểm, nhưng hôm nay bảng của em thêm 3 cột thì báo lỗi code khi nhấn nút PRINT trong sheet[inbangdiem] nhờ các bác giúp, file của em đây:http://www.mediafire.com/?iafaqc05x8dy1eh

File dữ liệu là của bạn tạo ra ( hay của người khác ) mà sao phải thêm bớt cột nhỉ ??? Lạ, khó hiểu thật. Híc
Cái cột lấy tên bạn tìm trên diễn đàn có nhiều cách lấy lắm đấy, sao không thêm vào ( đừng có nói để dành đó mai mốt .......xóa cột í nhé )
Thân

 

[dancao1975]

Bác cho hỏi em code lấy tên với, em tìm mãi mà không ra. cảm ơn bác nhiều

File dữ liệu là của bạn tạo ra ( hay của người khác ) mà sao phải thêm bớt cột nhỉ ??? Lạ, khó hiểu thật. Híc
Cái cột lấy tên bạn tìm trên diễn đàn có nhiều cách lấy lắm đấy, sao không thêm vào ( đừng có nói để dành đó mai mốt .......xóa cột í nhé )
Thân

 

[concogia]

Bác cho hỏi em code lấy tên với, em tìm mãi mà không ra. cảm ơn bác nhiều

Cách lấy tên có nhiều mà, có thể dùng hàm hoặc code đều được
Thí dụ dữ liệu Họ & tên của bạn ở cell [AD7], dùng hàm:

=TRIM(RIGHT(SUBSTITUTE(AD7," ",REPT(" ",LEN(AD7))),LEN(AD7)))

Nếu dùng code thì đây là một cách viết:

Public Function Ten(Cll As Range) As String
    Ten = Right(Cll, InStr(StrReverse(Cll), " ") - 1)
End Function

Chép code này vào module nào cũng được, ở cell muốn nhận kết quả là tên nhập
=Ten(AD7)
Thân

 

[dancao1975]

Ý em là ở trong đây cột họ tên dang nhập chung, bây giờ mình tách riêng cột họ và cột tên

Cách lấy tên có nhiều mà, có thể dùng hàm hoặc code đều được
Thí dụ dữ liệu Họ & tên của bạn ở cell [AD7], dùng hàm:

Nếu dùng code thì đây là một cách viết:

Public Function Ten(Cll As Range) As String
    Ten = Right(Cll, InStr(StrReverse(Cll), " ") - 1)
End Function

Chép code này vào module nào cũng được, ở cell muốn nhận kết quả là tên nhập
=Ten(AD7)
Thân

 

[Quang_Hải]

ý em là ở trong đây cột họ tên dang nhập chung, bây giờ mình tách riêng cột họ và cột tên

=trim(right(substitute(trim(c8)," ",rept(" ",len(c8))),len(c8)))
Hoặc copy code này vào 1 module.

Function ten(cell As Range)
   With CreateObject("vbscript.regexp")
      .Global = True
      .Pattern = ".*\s"
      ten = .Replace(Trim(cell), "")
   End With
End Function

 

[dancao1975]

hỏi code loc điểm

Em thử bảng thống kê bác gửi cho em rồi nhưng còn chỗ này nhờ bác sửa luôn: khi chọn ALL thì nó in ra Cột I có lớp, nhưng khi chọn riêng từng môn thì cột I không có lớp

Bác cho hỏi em code lấy tên với, em tìm mãi mà không ra. cảm ơn bác nhiều

 

[dancao1975]

KHi chọn in ALL thì cột I có lớp, còn chọn riêng từng môn thì không có lớp bác ơi?

 

[dancao1975]

Bác cho em hỏi chép code này vào module rồi làm sao cho nó chạy được

 

[buithinhvan77]

Bác cho em hỏi chép code này vào module rồi làm sao cho nó chạy được

Giả sử ở Cell A1: Nguyễn Văn Anh
Thì tại Cell muốn lấy tên giả sử B1 gõ =ten(A1)

 

[dancao1975]

Em muốn tách sao cho cột họ tên đang chung, giờ tách thì họ và tên đệm ở một cột, còn tên tách sang cột riêng. Code các bác cho em tách đượ tên nhưng cột bên vân giư lại tên.