ความคิดเห็นที่ 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
]
|
|
|