ความคิดเห็นที่ 17
ตรวจสอบการบันทึกสมาชิกทั้งหมดจาก code ดังต่อไปนี้ โดยทดลองป้อน
ข้อมูลสุ่มลงในแผ่นงานหน่วยกิจการนักศึกษา
'Determine current number of NEvaluate & NYear
Sheets(SectorName(1)).Select
k = 0
h = 0
Do
k = k + 1
If k = 1 Then
CurrYear_Start = CDbl(Cells(3, 3))
EvalName(1) = Cells(2, 3)
Else
Temp = CDbl(Cells(3, k + 2)) - CurrYear_Start
If Temp = 0 Then
h = h + 1
CurrYear_Fin = CDbl(Cells(3, k + 1))
EvalName(h + 1) = Cells(2, k + 2)
End If
End If
Loop Until Cells(3, k + 3) = ""
Curr_NEvaluate = h + 1
Curr_NYear = CurrYear_Fin - CurrYear_Start + 1
'Collect Member of QA index
For i = 1 To NSector
Sheets(SectorName(i)).Select
For j = 1 To NHeadQA_EachSector(i)
For k = 1 To Curr_NEvaluate
For l = 1 To Curr_NYear
MemberQA(i, j, k, l) = Cells(j + 4, 2 + l + Curr_NYear * (k - 1))
Next l
Next k
Next j
Next i
Sheets(OrigSheet).Select
'Confirm collected QA Member from each SectorName
Sheets(CheckSheet).Select
k = NSector + 3
LocSector_Accum = 0
For i = 1 To NSector
For m = 1 To Curr_NEvaluate
Cells(k + 1 + LocSector_Accum, 11 + Curr_NYear * (m - 1)) = EvalName(m)
Range(Cells(k + 1 + LocSector_Accum, 11 + Curr_NYear * (m - 1)), Cells(k + 1 + LocSector_Accum, 11 + Curr_NYear * (m - 1) + Curr_NYear - 1)).Select
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
For n = 1 To Curr_NYear
Cells(k + 2 + LocSector_Accum, 10 + n + Curr_NYear * (m - 1)) = CurrYear_Start + n - 1
Next n
Next m
For j = 1 To NHeadQA_EachSector(i)
For kk = 1 To Curr_NEvaluate
For l = 1 To Curr_NYear
If MemberQA(i, j, kk, l) <> "" Then
Cells(k + 2 + LocSector_Accum + j, 10 + l + Curr_NYear * (kk - 1)) = MemberQA(i, j, kk, l)
Else
Cells(k + 2 + LocSector_Accum + j, 10 + l + Curr_NYear * (kk - 1)) = " "
End If
Next l
Next kk
Next j
LocSector_Accum = LocSector_Accum + NHeadQA_EachSector(i) + 2
Next i
Sheets(OrigSheet).Select
จากคุณ :
Practical x 2  
- [
วันฉัตรมงคล 18:14:49
]
|
|
|
