Bác hỏi bài kiểu này chắc tới tết mới được giúp quá.
Chỉ cần tải về, mở file lên là thấy mà.
Hic, file dữ liệu của bạn nhiều quá, mình giúp bạn phần 1, mấy phần kia thì chịu dữ liệu nhiều quá:
AR9=VLOOKUP(AR$8,INDIRECT("[TCTĐ.xlsx]TCTĐ!B"&MATCH(LOOKUP(2,1/($AR$7:AR$7<>""),$AR$7:AR$7),TCTĐ.xlsx!$C$7:$C$49,)&":E100"),4,0)*C9Sao nó không hiện gì hết vậy bạnHic, file dữ liệu của bạn nhiều quá, mình giúp bạn phần 1, mấy phần kia thì chịu dữ liệu nhiều quá:
1. File lớp: đây là file nhập lỗi vi phạm của học sinh.... nhưng phần tính điểm lỗi mình làm thủ công quá... mong mọi người giúp công thức tối ưu hóa, giúp công thức tính tuần tự động
CT tại sheet "1" lớp 6A, CT tại AR9:
Fill sang phải rồi fill sang xuống!!!Mã:AR9=VLOOKUP(AR$8,INDIRECT("[TCTĐ.xlsx]TCTĐ!B"&MATCH(LOOKUP(2,1/($AR$7:AR$7<>""),$AR$7:AR$7),TCTĐ.xlsx!$C$7:$C$49,)&":E100"),4,0)*C9
Bạn nhận lại file file TCTĐ, và bỏ file TCTĐ cũ đi, vì mình chỉnh một số cái!!!
Mấy lớp khác bạn làm tương tự!!!
Hiện gì bạn!!!!!!!!!
Bạn vô xem lại... Mình down 2 file của bạn về... Khi nhập vi phạm vào thì nó không hiển thị gì hết
bạn xem thử chạy có ổn không
ý bạn là lấy tổng điểm của từng lớp trong từng tuần và đưa vào sheet Xếp loại file xep loai hanh kiem?
- File xếp loại hạnh kiểm chỉ cần lấy điểm của từng lớp qua chỗ xếp loại trong file Xếp loại hạnh kiểm đó anh.
Public Sub XepLoai()
Dim Darr
Dim WbMain As Workbook, FThiDua As Workbook, Fname As String
Dim i, j, CountSh As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo thoat
Set WbMain = ThisWorkbook
Fname = ThisWorkbook.Path & "\THI DUA TOAN TRUONG.xlsm"
Set FThiDua = Application.Workbooks.Open(Fname)
CountSh = FThiDua.Sheets.Count
For i = 1 To CountSh
With FThiDua.Sheets(i & "")
Darr = .Range("B56", .Range("B65536").End(xlUp)).Resize(, 10)
End With
With WbMain.ActiveSheet
dong = 10: If i > 18 Then dong = 38
cot = (i Mod 18) + 1
For j = 1 To UBound(Darr)
.Cells(dong + j, 1) = Darr(j, 1)
.Cells(dong + j, cot) = Darr(j, 10)
Next j
End With
Next i
thoat:
FThiDua.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubFile Thiduatoantruong đứng ở sheet nào chạy macro cũng được
công thức như thế nào? bạn gởi lên xem thử
Đây nè anh... côgn thức lấy điểm và tên của cờ vua đó
bạn phải tìm code hàm tự tạo GetData và copy vào file của bạn rồi sử dụng thôi
mỗi lần mở nó chạy cũng được, trong phần This Work Book bạn chép doạn code nầy vào
Private Sub Workbook_Open()
Call GPE
End Sub Set Wb = Application.Workbooks.Open(Fname)
[COLOR=#ff0000] 'Ngay = Wb.Sheets("1").Range("AC5") & " - " & Wb.Sheets("1").Range("AH5")[/COLOR]
For i = 1 To CountSh 'xet tung tuan
[COLOR=#0000ff] Ngay = Wb.Sheets(i & "").Range("AC5") & " - " & Wb.Sheets(i & "").Range("AH5")[/COLOR]
Carr = Wb.Sheets(i & "").Range("AR7:CC7")
t = 8
With WbMain.Sheets(i & "")
.Cells(6, 5) = NgayThì ngay chỗ Tên lớp nó lấy điểm đưa vô luôn anh
[COLOR=#000000]Private Sub Workbook_Open()[/COLOR]
[COLOR=#000000] Call GPE[/COLOR]
[COLOR=#000000]End Sub[/COLOR] With WbMain.ActiveSheet
dong = 10: If i > 18 Then dong = 38
[COLOR=#FF0000] cot = (i Mod 18) + 1[/COLOR]
For j = 1 To UBound(Darr) With WbMain.ActiveSheet
dong = 10: If i > 18 Then dong = 38
[COLOR=#ff0000] cot = (i - 1 Mod 18) + 2[/COLOR]
For j = 1 To UBound(Darr)file mình chạy bình thường
Private Sub Workbook_Open()
Sheets("1").Select
[H3] = "code chay OK"
Call GPE
End Subbạn sửa lại đoạn code
For t = 1 To 10 [COLOR=#0000ff]'[/COLOR][COLOR=#008000]Nhap diem va xep loai[/COLOR]
.Cells(f + 55, t + 2) = Wb.Sheets(i & ""). _
Cells([COLOR=#ff0000]7[/COLOR] + Int((t - 1) / 2), ((t - 1) Mod 2) * 2 + 3)
Next
