ความคิดเห็นที่ 1 Last time on Practical x 2 Programming... ตอนนี้มีโปรแกรมที่รวบรวมชื่อ, นามสกุล และรหัส นักศึกษา ตั้งแต่ปี 2539 - 2549 มาไว้เป็นรายการ เรียงตามลำดับ ทำให้ค้นหาข้อมูลได้ง่ายและสะดวกครับ จำนวนนักศึกษา ณ ตอนนี้ มีทั้งสิ้น 1847 คน จากคุณ : Practical x 2 - [ วันจักรี 09:46:45 ]

ความคิดเห็นที่ 2 ตอนนี้ข้อมูลกรอกเสร็จไปได้กว่า 80% แล้ว... จากคุณ : Practical x 2 - [ วันจักรี 09:49:26 ]

ความคิดเห็นที่ 3 ข้อมูลอันดับแรกที่ต้องการตอนนี้คือ ในแต่ละปีการศึกษา มีจำนวนนักศึกษาที่เข้ามาเรียนในแต่ละภาควิชาฯ แบ่ง เป็นกลุ่มที่เข้ามาทาง Quota, Entrance, Admission, ฯลฯ เป็นจำนวนเท่าใด จากคุณ : Practical x 2 - [ วันจักรี 09:56:06 ]

ความคิดเห็นที่ 4 And now the conclusion (or not??)... สิ่งแรกที่ต้องทำคือทำการวิเคราะห์ผลใน EXCEL ให้ได้ ก่อน จากนั้นจึงขยายขอบข่ายไป generate HTML ครับ ภาพข้างล่างเป็นผังโครงร่างคร่าวๆ ครับ จริงบรรทัดสุดท้าย จะเติมจำนวนนักศึกษาทั้งหมดลงไป เมื่อเขียนโค้ดแล้ว โปรแกรมจะไปยังแผ่นงานต่างๆ ใน EXCEL แล้วรวบรวม ข้อมูล ทำการประเมินผลตามที่ต้องการในปีการศึกษา ต่างๆ จากคุณ : Practical x 2 - [ วันจักรี 10:06:22 ]

ความคิดเห็นที่ 5 เริ่มเขียน code ตอน 10.06 AM ครับ ตอนแรกเขียนชุดคำสั่งให้โปรแกรมเลือก process แผ่นงานที่เหมาะสมก่อน โค้ดด้านล่างสอนให้เลือก เฉพาะแผ่นงานที่ระบุสองตัวท้ายของปี และนำใส่ใน array YearCond ที่มีหนึ่งมิติ และบรรจุได้ 100 ปี Sub ProcessQEAAAInfo()    Dim YearCond(1 To 100) As Integer        N = ActiveWorkbook.Sheets.Count    For i = 1 To N        If IsNumeric(Sheets(i).Name) = True Then            Sheets(i).Select            YearCond(i) = CInt(Sheets(i).Name) + 2500        End If    Next i End Sub จากคุณ : Practical x 2 - [ วันจักรี 10:12:53 ]

ความคิดเห็นที่ 6 10.29 AM ปรับปรุงโค้ดบนให้จำแนกว่าในแต่ละปีการ ศึกษานั้นมีภาควิชาใดที่เปิดสอนบ้าง จากข้อมูลจะพบว่า PKT เริ่มมาเปิดในปี 2542 ส่วน MRT เพิ่งเปิดปี 2549 เก็บข้อมูลในรูป array ทั้งหนึ่งมิติ (จำนวนปีการศึกษา, จำนวนภาควิชาในแต่ละปี) และสองมิติ (ชื่อภาควิชาใน แต่ละปีการศึกษา) ส่วน code ด้านท้าย ตรวจสอบว่า ข้อมูลที่เก็บมาถูกต้องไหม ซึ่งเมื่อตรวจสอบแล้ว ก็พบว่าถูกต้องครับ Sub ProcessQEAAAInfo()    Dim YearCond(1 To 100) As Integer    Dim DeptCount(1 To 100) As Integer    Dim DeptName(1 To 100, 1 To 10) As String    N = ActiveWorkbook.Sheets.Count    ii = 0    For i = 1 To N        If IsNumeric(Sheets(i).Name) = True Then            ii = ii + 1            Sheets(i).Select            YearCond(ii) = CInt(Sheets(i).Name) + 2500            k = 0            DeptCount(ii) = 0            Do                k = k + 1                If k = 1 Then                    DeptName(ii, k) = Cells(k + 5, 6)                    DeptCount(ii) = DeptCount(ii) + 1                Else                    Temp = Cells(k + 5, 6)                    Repetition = False                    For j = 1 To DeptCount(ii)                        If Temp = DeptName(ii, j) Then                            Repetition = True                        End If                    Next j                    If Repetition = False Then                        DeptCount(ii) = DeptCount(ii) + 1                        DeptName(ii, DeptCount(ii)) = Cells(k + 5, 6)                    End If                End If            Loop Until Cells(k + 5, 6) = ""        End If    Next i        'Test_YearCond & DeptName    Sheets("Summary2").Select    Cells.Clear    For i = 1 To ii        Cells(i, 1) = YearCond(i)        For j = 1 To DeptCount(i)            Cells(i, 1 + j) = DeptName(i, j)        Next j    Next i End Sub จากคุณ : Practical x 2 - [ วันจักรี 10:32:45 ]

ความคิดเห็นที่ 7 ปูเสื่อแถวหน้าสุด จากคุณ : Autster - [ วันจักรี 10:34:27 ]

ความคิดเห็นที่ 8 ผลการรันโปรแกรมใน คคห 6 ครับ จากคุณ : Practical x 2 - [ วันจักรี 10:40:19 ]

ความคิดเห็นที่ 9 กินโจ๊กไป ดูอ.แพรกไป อิอิ จากคุณ : The Piggy@u - [ วันจักรี 10:46:55 ]

ความคิดเห็นที่ 10 ความรู้คู่ปัญญา   ขอบคุณครับ จากคุณ : 323club - [ วันจักรี 10:57:36 ]

ความคิดเห็นที่ 11 ขยันจังครับ จากคุณ : RT - [ วันจักรี 11:07:40 A:203.149.10.114 X: TicketID:100823 ]

ความคิดเห็นที่ 12 เครื่อง มืออื่นไม่ได้เหรอครับเนี๊ยะ จากคุณ : caznov - [ วันจักรี 11:10:12 ]

ความคิดเห็นที่ 13 ข้อมูลทั้งหมดอยู่ใน EXCEL ครับ ที่ต้องการคือจาก EXCEL --> WEB โดยเจ้าหน้าที่ ที่กรอกไม่ต้องทำอะไร เพิ่มเติมเลย ทำมากที่สุดคือ copy ไฟล์ที่ generate ลงเวป แล้วก็จบงานครับ 11.18 AM เนื่องจาก internet connection ไม่ค่อยดีครับ การอัพเดทเป็น real time อาจลำบากนิดนึง แต่อย่างไรก็บันทึกเวลาไว้แล้ว ปรับปรุงโค้ดอีกครั้งครับ คราวนี้ต้องการ ให้โปรแกรมเรียนรู้ต่อว่าในแต่ละปีการศึกษา มีวิธีการรับนักศึกษาเข้าต่างๆ กัน ซึ่งต้องเตรียม ชุดคำสั่งไว้เผื่อกรณีไม่มีข้อมูลด้วย อย่าง (no info) เพราะสละสิทธิ์ หรือลาออกไปก่อน เป็นต้น หรือเพราะบังเอิญไม่มีข้อมูลตรงนี้ ส่วนผลการรันโปรแกรมก็เป็นดังภาพข้างล่างครับ Sub ProcessQEAAAInfo()    Dim YearCond(1 To 100) As Integer    Dim DeptCount(1 To 100) As Integer    Dim MethodCount(1 To 100) As Integer    Dim DeptName(1 To 100, 1 To 10) As String    Dim MethodName(1 To 100, 1 To 10) As String        N = ActiveWorkbook.Sheets.Count    ii = 0    For i = 1 To N        If IsNumeric(Sheets(i).Name) = True Then            ii = ii + 1            Sheets(i).Select            YearCond(ii) = CInt(Sheets(i).Name) + 2500                        k = 0            DeptCount(ii) = 0            Do                k = k + 1                If k = 1 Then                    DeptName(ii, k) = Cells(k + 5, 6)                    DeptCount(ii) = DeptCount(ii) + 1                Else                    Temp = Cells(k + 5, 6)                    Repetition = False                    For j = 1 To DeptCount(ii)                        If Temp = DeptName(ii, j) Then                            Repetition = True                        End If                    Next j                    If Repetition = False Then                        DeptCount(ii) = DeptCount(ii) + 1                        DeptName(ii, DeptCount(ii)) = Cells(k + 5, 6)                    End If                End If            Loop Until Cells(k + 5, 2) = ""                        k = 0            MethodCount(ii) = 0            Do                k = k + 1                Temp = Trim(Cells(k + 5, 7))                If Temp = "" Then                    If IsNumeric(Cells(k + 5, 9)) = False Then                        Temp = "No Info (absentee)"                    Else                        Temp = "No Info (incomplete data)"                    End If                End If                Repetition = False                For j = 1 To MethodCount(ii)                    If Temp = MethodName(ii, j) Then                        Repetition = True                    End If                Next j                If Repetition = False Then                    MethodCount(ii) = MethodCount(ii) + 1                    MethodName(ii, MethodCount(ii)) = Temp                End If            Loop Until Cells(k + 5, 2) = ""                    End If    Next i        'Test_YearCond & DeptName    Sheets("Summary2").Select    Cells.Clear    CountLine = 0    For i = 1 To ii        Cells(i + CountLine, 4) = "Total"        Cells(i + CountLine + 1, 1) = "Year"        Cells(i + CountLine + 1, 2) = YearCond(i)        For j = 1 To DeptCount(i)            Cells(i + CountLine, 4 + j) = DeptName(i, j)        Next j        For j = 1 To MethodCount(i)            Cells(i + CountLine + j, 3) = MethodName(i, j)        Next j        Cells(i + CountLine + 1 + MethodCount(i), 3) = "Overall"        CountLine = CountLine + MethodCount(i) + 2    Next i    Cells.Columns.AutoFit End Sub จากคุณ : Practical x 2 - [ วันจักรี 12:13:25 ]

ความคิดเห็นที่ 14 ขยันจังเลยครับ อ. แพร็กฯ จากคุณ : Due_n - [ วันจักรี 12:18:33 ]

ความคิดเห็นที่ 15 12.26 AM ครับ เดี๋ยวไปกินข้าวก่อน ตอนนี้พัฒนาโค้ดให้ไปนับจำนวนนักศึกษาในแต่ละกรณี เช่น นักศึกษาที่อยู่ภาค FST ที่เข้ามาโดยการสอบ Quota มีทั้งหมดกี่คนเป็นต้น ซึ่งต้องใช้ array 3 มิติ ดังโค้ดด้าน ล่างครับ ส่วนภาพประกอบคือผลการนับในแต่ละกรณีครับ Sub ProcessQEAAAInfo()    Dim YearCond(1 To 100) As Integer    Dim DeptCount(1 To 100) As Integer    Dim MethodCount(1 To 100) As Integer    Dim DeptName(1 To 100, 1 To 10) As String    Dim MethodName(1 To 100, 1 To 10) As String    Dim CountIndivDeptMeth(1 To 100, 1 To 10, 1 To 10) As Long        N = ActiveWorkbook.Sheets.Count    ii = 0    For i = 1 To N        If IsNumeric(Sheets(i).Name) = True Then            ii = ii + 1            Sheets(i).Select            YearCond(ii) = CInt(Sheets(i).Name) + 2500                        k = 0            DeptCount(ii) = 0            Do                k = k + 1                If k = 1 Then                    DeptName(ii, k) = Cells(k + 5, 6)                    DeptCount(ii) = DeptCount(ii) + 1                Else                    Temp = Cells(k + 5, 6)                    Repetition = False                    For j = 1 To DeptCount(ii)                        If Temp = DeptName(ii, j) Then                            Repetition = True                        End If                    Next j                    If Repetition = False Then                        DeptCount(ii) = DeptCount(ii) + 1                        DeptName(ii, DeptCount(ii)) = Cells(k + 5, 6)                    End If                End If            Loop Until Cells(k + 6, 2) = ""                        k = 0            MethodCount(ii) = 0            Do                k = k + 1                Temp = Trim(Cells(k + 5, 7))                If Temp = "" Then                    If IsNumeric(Cells(k + 5, 9)) = False Then                        Temp = "No Info (absentee)"                    Else                        Temp = "No Info (incomplete data)"                    End If                End If                Repetition = False                For j = 1 To MethodCount(ii)                    If Temp = MethodName(ii, j) Then                        Repetition = True                    End If                Next j                If Repetition = False Then                    MethodCount(ii) = MethodCount(ii) + 1                    MethodName(ii, MethodCount(ii)) = Temp                End If            Loop Until Cells(k + 6, 2) = ""                    End If        YearCount = ii    Next i        For i = 1 To YearCount        Sheets(CStr(YearCond(i) - 2500)).Select        h = 0        MsgBox DeptCount(i) & " " & MethodCount(i)        Do            h = h + 1            Temp1 = Cells(h + 5, 6)            Temp2 = Cells(h + 5, 7)            If Temp2 = "" Then                If IsNumeric(Cells(h + 5, 9)) = False Then                    Temp2 = "No Info (absentee)"                Else                    Temp2 = "No Info (incomplete data)"                End If            End If                    For k = 1 To DeptCount(i)                For j = 1 To MethodCount(i)                    'MsgBox Temp1 & " " & DeptName(i, k) & Chr(13) & Temp2 & " " & MethodName(i, j)                    If Temp1 = DeptName(i, k) And Temp2 = MethodName(i, j) Then                        CountIndivDeptMeth(i, k, j) = CountIndivDeptMeth(i, k, j) + 1                        GoTo 1:                    End If                Next j            Next k 1:        Loop Until Cells(h + 5, 2) = ""        'If i = 1 Then Stop    Next i            'Test_YearCond & DeptName    Sheets("Summary2").Select    Cells.Clear    CountLine = 0    For i = 1 To ii        Cells(i + CountLine, 4) = "Total"        Cells(i + CountLine + 1, 1) = "Year"        Cells(i + CountLine + 1, 2) = YearCond(i)        For j = 1 To DeptCount(i)            Cells(i + CountLine, 4 + j) = DeptName(i, j)        Next j        For j = 1 To MethodCount(i)            Cells(i + CountLine + j, 3) = MethodName(i, j)        Next j        For k = 1 To DeptCount(i)            For l = 1 To MethodCount(i)                Cells(i + CountLine + l, 4 + k) = CountIndivDeptMeth(i, k, l)            Next l        Next k        Cells(i + CountLine + 1 + MethodCount(i), 3) = "Overall"        CountLine = CountLine + MethodCount(i) + 3    Next i    Cells.Columns.AutoFit End Sub จากคุณ : Practical x 2 - [ วันจักรี 12:32:57 ]

ความคิดเห็นที่ 16 พักเที่ยงกันก่อนไม๊ครับ เดี๋ยวผมเลี้ยงข้าวขาหมูเอง [คลิกเพื่อชมภาพขนาดจริง] จากคุณ : ksk - [ วันจักรี 12:56:32 ]

ความคิดเห็นที่ 17 ขอหลับหลังห้องเหมือนเดิมละกันครับ อิอิ จากคุณ : Piggie MM - [ วันจักรี 13:03:31 ]

ความคิดเห็นที่ 18 ^ ^ น่ากินจัง เออ.. อ. ไม่ PrintScreen ตัดแปะละครับ ถ้าเป็นรูปexcelแบบนี้ไม่ใช่รูปถ่ายที่ซับซ้อน saveเป็นไฟล์สกุลPNGจะได้รูปใหญ่ไฟล์เล็กสะดวกดี แต่รูปแบบนี้ก็ให้อารมณ์ realtime ดีครับ จากคุณ : ของเล่นใหม่ - [ วันจักรี 13:32:40 ]

ความคิดเห็นที่ 19 Pivot Chart สิครับ จากคุณ : ยากจริงจริง - [ วันจักรี 14:15:51 ]

ความคิดเห็นที่ 20 ขออาศัยเสื่อคนข้างๆนั่งด้วยคนครับ^^ จากคุณ : NoriP - [ วันจักรี 14:17:36 ]

ความคิดเห็นที่ 21 ZZZZZZZZZZZZZZZzz จากคุณ : tanni - [ วันจักรี 14:29:14 ]

ความคิดเห็นที่ 22 เบื่อจัง มีแต่คนใช้ Computer ทำเอกกระสาร ปัญญามีแค่นี้หรือ จากคุณ : Aqua Aerospace (p_narin2000) - [ วันจักรี 14:37:25 ]

ความคิดเห็นที่ 23 alt+printscreen gnuplot จากคุณ : ดีกว่าครับจารย์ - [ วันจักรี 14:46:45 A:58.9.143.176 X: TicketID:140004 ]

ความคิดเห็นที่ 24 คือ ถ้าเป็น comp เครื่องเดียวกันก็ใช้ print screen ได้ครับ แต่มันแยกเครื่องกัน -_-" จากคุณ : Practical x 2 - [ วันจักรี 15:11:21 ]

ความคิดเห็นที่ 25 15.11 น. ตอนนี้ได้โค้ดสำหรับสร้างตารางแบบสมบูรณ์ ออกมาแล้วครับ ผลการตรวจสอบกับโปรแกรมอีกอัน หนึ่งที่ออกแบบเมื่อปีที่แล้ว ก็ได้ผลตรงกัน Sub ProcessQEAAAInfo()    Dim YearCond(1 To 100) As Integer    Dim DeptCount(1 To 100) As Integer    Dim MethodCount(1 To 100) As Integer    Dim DeptName(1 To 100, 1 To 10) As String    Dim MethodName(1 To 100, 1 To 10) As String    Dim SumRow(1 To 100, 1 To 10) As Integer    Dim SumCol(1 To 100, 1 To 10) As Integer    Dim CountIndivDeptMeth(1 To 100, 1 To 10, 1 To 10) As Long        N = ActiveWorkbook.Sheets.Count    ii = 0    For i = 1 To N        If IsNumeric(Sheets(i).Name) = True Then            ii = ii + 1            Sheets(i).Select            YearCond(ii) = CInt(Sheets(i).Name) + 2500                        k = 0            DeptCount(ii) = 0            Do                k = k + 1                If k = 1 Then                    DeptName(ii, k) = Cells(k + 5, 6)                    DeptCount(ii) = DeptCount(ii) + 1                Else                    Temp = Cells(k + 5, 6)                    Repetition = False                    For j = 1 To DeptCount(ii)                        If Temp = DeptName(ii, j) Then                            Repetition = True                        End If                    Next j                    If Repetition = False Then                        DeptCount(ii) = DeptCount(ii) + 1                        DeptName(ii, DeptCount(ii)) = Cells(k + 5, 6)                    End If                End If            Loop Until Cells(k + 6, 2) = ""                        k = 0            MethodCount(ii) = 0            Do                k = k + 1                Temp = Trim(Cells(k + 5, 7))                If Temp = "" Then                    If IsNumeric(Cells(k + 5, 9)) = False Then                        Temp = "No Info (absentee)"                    Else                        Temp = "No Info (incomplete data)"                    End If                End If                Repetition = False                For j = 1 To MethodCount(ii)                    If Temp = MethodName(ii, j) Then                        Repetition = True                    End If                Next j                If Repetition = False Then                    MethodCount(ii) = MethodCount(ii) + 1                    MethodName(ii, MethodCount(ii)) = Temp                End If            Loop Until Cells(k + 6, 2) = ""                    End If        YearCount = ii    Next i        For i = 1 To YearCount        Sheets(CStr(YearCond(i) - 2500)).Select        h = 0        'MsgBox DeptCount(i) & " " & MethodCount(i)        Do            h = h + 1            Temp1 = Cells(h + 5, 6)            Temp2 = Cells(h + 5, 7)            If Temp2 = "" Then                If IsNumeric(Cells(h + 5, 9)) = False Then                    Temp2 = "No Info (absentee)"                Else                    Temp2 = "No Info (incomplete data)"                End If            End If                    For k = 1 To DeptCount(i)                For j = 1 To MethodCount(i)                    'MsgBox Temp1 & " " & DeptName(i, k) & Chr(13) & Temp2 & " " & MethodName(i, j)                    If Temp1 = DeptName(i, k) And Temp2 = MethodName(i, j) Then                        CountIndivDeptMeth(i, k, j) = CountIndivDeptMeth(i, k, j) + 1                        GoTo 1:                    End If                Next j            Next k 1:                    Loop Until Cells(h + 5, 2) = ""        'If i = 1 Then Stop    Next i            'Test_YearCond & DeptName    Sheets("Summary2").Select    Cells.Clear    CountLine = 0    For i = 1 To ii        Cells(i + CountLine, 4) = "Total"        Cells(i + CountLine + 1, 1) = "Year"        Cells(i + CountLine + 1, 2) = YearCond(i)        For j = 1 To DeptCount(i)            Cells(i + CountLine, 4 + j) = DeptName(i, j)        Next j        For j = 1 To MethodCount(i)            Cells(i + CountLine + j, 3) = MethodName(i, j)        Next j        CheckSum1 = 0        For k = 1 To DeptCount(i)            For l = 1 To MethodCount(i)                Cells(i + CountLine + l, 4 + k) = CountIndivDeptMeth(i, k, l)                SumCol(i, k) = SumCol(i, k) + CountIndivDeptMeth(i, k, l)            Next l            Cells(i + CountLine + 1 + MethodCount(i), 4 + k) = SumCol(i, k)            CheckSum1 = CheckSum1 + SumCol(i, k)        Next k        CheckSum2 = 0        For k = 1 To MethodCount(i)            For l = 1 To DeptCount(i)                SumRow(i, k) = SumRow(i, k) + CountIndivDeptMeth(i, l, k)            Next l            Cells(i + CountLine + k, 4) = SumRow(i, k)            CheckSum2 = CheckSum2 + SumRow(i, k)        Next k        Cells(i + CountLine + 1 + MethodCount(i), 3) = "Overall"        If CheckSum1 = CheckSum2 Then Cells(i + CountLine + 1 + MethodCount(i), 4) = CheckSum1        Range(Cells(i + CountLine, 4), Cells(i + CountLine + 1 + MethodCount(i), 4)).Font.ColorIndex = 5        Range(Cells(i + CountLine, 4), Cells(i + CountLine + 1 + MethodCount(i), 4)).Font.Bold = True        Range(Cells(i + CountLine + 1 + MethodCount(i), 1), Cells(i + CountLine + 1 + MethodCount(i), 4 + DeptCount(i))).Font.ColorIndex = 3        Range(Cells(i + CountLine + 1 + MethodCount(i), 1), Cells(i + CountLine + 1 + MethodCount(i), 4 + DeptCount(i))).Font.Bold = True        Cells(i + CountLine + 1 + MethodCount(i), 4).Font.ColorIndex = 13        Cells(i + CountLine + 1 + MethodCount(i), 4).Font.Bold = True        Cells(i + CountLine + 1 + MethodCount(i), 4).Font.Underline = xlUnderlineStyleSingle        CountLine = CountLine + MethodCount(i) + 3    Next i    Cells.Columns.AutoFit End Sub จากคุณ : Practical x 2 - [ วันจักรี 15:20:19 ]

ความคิดเห็นที่ 26 ขั้นตอนต่อไปเป็นการเขียนโปรแกรมสร้างกราฟ ใน EXCEL สำหรับแต่ละชุดข้อมูลแล้ว EXPORT ออกมาให้เป็น PNG ครับ จากคุณ : Practical x 2 - [ วันจักรี 15:28:09 ]

ความคิดเห็นที่ 27 อยากถาม อ. Practical หน่อยครับว่าเหตุใดถึงเลือกใช้ VBA ในการพัฒนา software จากคุณ : Oak - [ วันจักรี 15:52:25 A:202.5.82.142 X: TicketID:062405 ]

ความคิดเห็นที่ 28 เพราะว่าเป็น program ที่มีอยู่แล้วใน Microsoft Office และมีอยู่ทั่วไปในคณะของผมครับ ไม่ต้องติดตั้งโปรแกรม เฉพาะเพิ่มเติม และถ้าออกแบบโปรแกรมเรียบร้อยแล้ว ขอให้ใช้งาน EXCEL ได้ก็เพียงพอ จากคุณ : Practical x 2 - [ วันจักรี 16:05:38 ]

ความคิดเห็นที่ 29 #24 โห๋ใช้ตั้งสองเครื่องเต็มอัตราศึกเลย จากคุณ : ของเล่นใหม่ - [ วันจักรี 16:40:01 ]

ความคิดเห็นที่ 30 17.17 น. โอเคครับ ผมเขียน sub export กราฟทั้งหมดเสร็จแล้ว ซึ่งชุดคำสั่งที่เขียนขึ้นนี้เป็นกรณีทั่วไปครับ ไม่จำเป็นต้อง เปลี่ยนคำสั่งใดๆ อีกแม้จะมีข้อมูลเพิ่มขึ้นสำหรับปี 2550 ไปจนถึงปี 2599 Sub ExportChart(ChName As String, RangeGraph As String, NGroup As Integer)    Dim LegendColorThis(1 To 10) As Integer        ThisWorkbook1 = ActiveWorkbook.Name    SheetName = ActiveSheet.Name    Range(RangeGraph).Select    Charts.Add    ActiveChart.ChartType = xlColumnClustered    ActiveChart.SetSourceData Source:=Sheets(SheetName).Range(RangeGraph), PlotBy _        :=xlRows    ActiveChart.Location Where:=xlLocationAsObject, Name:=SheetName    ChartName = ActiveChart.Name    ChartName = Replace(ChartName, SheetName, "")    ActiveSheet.ChartObjects(ChartName).Name = ChName    ActiveChart.Legend.Select    Selection.Position = xlBottom    ActiveChart.PlotArea.Select    With Selection.Border        .ColorIndex = 16        .Weight = xlThin        .LineStyle = xlContinuous    End With    Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=2    With Selection        .Fill.Visible = True        .Fill.ForeColor.SchemeColor = 6        .Fill.BackColor.SchemeColor = 2    End With    ActiveChart.Axes(xlValue).MajorGridlines.Select    Selection.Delete    ActiveChart.PlotArea.Select    With Selection.Border        .ColorIndex = 1        .Weight = xlThin        .LineStyle = xlContinuous    End With    ActiveChart.ChartArea.Select    With Selection.Border        .Weight = 2        .LineStyle = 0    End With    Selection.Interior.ColorIndex = xlAutomatic    Sheets(SheetName).DrawingObjects(ChName).RoundedCorners = False    Sheets(SheetName).DrawingObjects(ChName).Shadow = False    ActiveChart.Axes(xlValue).Select    With Selection.Border        .ColorIndex = 57        .Weight = xlThin        .LineStyle = xlContinuous    End With    With Selection        .MajorTickMark = xlOutside        .MinorTickMark = xlNone        .TickLabelPosition = xlNextToAxis    End With    ActiveChart.Axes(xlCategory).Select    With Selection.Border        .ColorIndex = 57        .Weight = xlThin        .LineStyle = xlContinuous    End With    With Selection        .MajorTickMark = xlOutside        .MinorTickMark = xlNone        .TickLabelPosition = xlNextToAxis    End With    ActiveChart.Legend.Select    With Selection.Border        .ColorIndex = 57        .Weight = xlThin        .LineStyle = xlContinuous    End With    Selection.Shadow = False    Selection.Interior.ColorIndex = xlAutomatic    ActiveChart.PlotArea.Select    ActiveChart.Axes(xlCategory).Select    ActiveChart.ChartArea.Select    ActiveChart.Legend.Select    For i = 1 To 7        If i = 1 Then LegendColorThis(i) = 32        If i = 2 Then LegendColorThis(i) = 3        If i = 3 Then LegendColorThis(i) = 4        If i = 4 Then LegendColorThis(i) = 13        If i = 5 Then LegendColorThis(i) = 8        If i = 6 Then LegendColorThis(i) = 7        If i = 7 Then LegendColorThis(i) = 0    Next i    For i = 1 To NGroup        ActiveChart.Legend.LegendEntries(i).LegendKey.Select        With Selection.Border            .Weight = xlThin            .LineStyle = xlAutomatic        End With        Selection.Shadow = False        Selection.InvertIfNegative = False        With Selection.Interior            .ColorIndex = LegendColorThis(i)            .Pattern = xlSolid        End With    Next i    CurrentSheet = SheetName    Sheets(SheetName).Select    ActiveWindow.Visible = False    Windows(ThisWorkbook1).Activate    ChartName = ChName    ChDir ActiveWorkbook.Path    ActiveSheet.ChartObjects(ChartName).Width = (500 / 666) * 640    ActiveSheet.ChartObjects(ChartName).Height = (400 / 533) * 480    ActiveSheet.ChartObjects(ChartName).Activate    ActiveChart.ChartArea.Select    ActiveChart.Export Filename:=ActiveWorkbook.Path & "\" & ChName & ".png", FilterName:="PNG"    ActiveWindow.Visible = False    Windows(ThisWorkbook1).Activate    Sheets(CurrentSheet).Select    ActiveSheet.ChartObjects(ChName).Activate    ActiveChart.ChartArea.Select    ActiveWindow.Visible = False    Selection.Delete    Cells(1, 1).Select End Sub จากคุณ : Practical x 2 - [ วันจักรี 17:22:04 ]

ความคิดเห็นที่ 31 ภาพประกอบครับ จากคุณ : Practical x 2 - [ วันจักรี 17:28:46 ]

ความคิดเห็นที่ 32 อย่างไรก็ตามใน คคหที่ 31 จะเห็นว่าลำดับกราฟไม่ค่อย สวยนัก เริ่มจาก นักศึกษาที่เข้ามาด้วยทุนกีฬา, จากนั้นเป็น Admission, Quota, etc.. จริงๆ แล้วอยากให้เป็น 1. Quota 2. Entrance 3. X-Entrance 4. Extra 5. Admission 6. Sport 7. No Info (absentee) 8. No Info (incomplete data) มากกว่าครับ ซึ่งสามารถทำได้โดยนำตัวเลขใส่ด้านหลัง แถวใน คคห 25 เขียนชุดคำสั่งให้โปรแกรมใช้ฟังก์ชั่น sort ของ EXCEL แล้วป้อนข้อมูลลง array ใหม่ จากคุณ : Practical x 2 - [ วันจักรี 17:33:52 ]

ความคิดเห็นที่ 33 เมื่อก่อนผมก็ใช้ VB เหมือนกัน เขียนเชื่อมได้หมด word excel access อาจารย์เลือกเครื่องมือถูกแล้วคับ KISS - Keep it simple. Stupid!! จากคุณ : กะต่อ - [ วันจักรี 20:10:19 ]

ความคิดเห็นที่ 34 อยากทำแบบนี้ได้มั่งจัง แต่สำหรับผม คงยาก- -* จากคุณ : Proximitron - [ วันจักรี 21:25:56 ]

ความคิดเห็นที่ 35 กว่าจะอ่านจบ - -' จากคุณ : Elrond - [ วันจักรี 22:25:38 ]

ความคิดเห็นที่ 36 22.28 น. ถึงตอนนี้สร้างชุดคำสั่งสำหรับป้อนข้อมูลในตารางและ กราฟทั้งสองแบบ เทียบจากจำนวนนักศึกษารวม และ เทียบ 100 เปอร์เซ็นต์ เสร็จหมดแล้วครับ ขั้นตอนต่อไปคือการ generate html.... จากคุณ : Practical x 2 - [ วันจักรี 22:33:06 ]

ความคิดเห็นที่ 37 อ.ไม่พักบ้างเหรอครับ?!? จากคุณ : The Piggy@u - [ วันจักรี 23:52:44 ]

ความคิดเห็นที่ 38 วันนี้ตื่นมาตั้งแต่ 7 โมงเช้าแล้วครับ มาทำส่วน generate to HTML ต่อไป นี่เป็นชุดคำสั่งที่เขียนเพิ่มเติมขึ้นอีกจาก คคห 36 Sheets("Code").Select        Code1 = Cells(1, 1)        Code2 = Cells(2, 1)        CodeTopic = Cells(3, 1)        CodeSubTopic = Cells(4, 1)        CodeHead = Cells(5, 1)        CodeTable = Cells(6, 1)        CodeBlank = Cells(7, 1)        CodeRegSubTopic = Cells(8, 1)        CodeRegHead = Cells(9, 1)                TempCodeTopic = CodeTopic        TempCodeTopic = Replace(TempCodeTopic, "##Body##", "Academic Year " & YearCond(i))        TempCodeSubTopic = Replace(CodeSubTopic, "##Body##", "Total")        CountSub = 2        For j = 1 To DeptCount(i)            TCodeSubTopic = CodeSubTopic            TCodeSubTopic = Replace(TCodeSubTopic, "##Body##", DeptName(i, j))            TempCodeSubTopic = TempCodeSubTopic & TCodeSubTopic            CountSub = CountSub + 2        Next j                OverallRow = ""        For l = 1 To MethodCount(i)            TempCodeRegHead = Replace(CodeRegHead, "##Body##", MethodName(i, l))            TempSubTotal = Replace(CodeRegSubTopic, "##Body##", SumRow(i, l))            TempCodeRegSubTopic = ""            For k = 1 To DeptCount(i)                TCodeRegSubTopic = CodeRegSubTopic                TCodeRegSubTopic = Replace(TCodeRegSubTopic, "##Body##", CountIndivDeptMeth(i, k, l))                TempCodeRegSubTopic = TempCodeRegSubTopic & TCodeRegSubTopic            Next k            OverallRow = OverallRow & "<tr>" & TempCodeRegHead & TempSubTotal & TempCodeRegSubTopic & "</tr>"        Next l                TempCodeHead = CodeHead        TempCodeHead = Replace(TempCodeHead, "##Body##", "Acceptance Method")        TempCodeSubTopic = "<tr>" & TempCodeHead & TempCodeSubTopic & "</tr>"        CountSub = CountSub + 4        TempCodeTopic = Replace(TempCodeTopic, "colspan = 20", "colspan = " & CountSub)        CombinedCode = TempCodeTopic & TempCodeSubTopic & OverallRow        For kk = 1 To CountSub            TCodeBlank = CodeBlank            TempCodeBlank = TempCodeBlank & CodeBlank        Next kk        TempCodeTable = CodeTable        TempCodeTable = Replace(TempCodeTable, "##Blank##", CodeBlank)        TempCodeTable = Replace(TempCodeTable, "##Body##", CombinedCode)                'MsgBox CombinedCode                Code1 = Replace(Code1, "datedate", Format(Date, "dd mmmm yyyy"))        Code1 = Replace(Code1, "timetime", Format(Time, "hh:mm:ss"))        Code1 = Replace(Code1, "##Body##", TempCodeTable)        Open ActiveWorkbook.Path & "\" & "SummaryQEAAA.html" For Output As #1        Print #1, Code1        Close #1                Sheets(SheetName).Select ผลการทดลองรันก็ทำให้ได้ web HTML อันหนึ่งออกมา ตอนนี้กำลังให้เจ้าหน้าที่ทำ banner สวยๆ อยู่ครับ ที่ต้องทำต่อไปคือเพิ่มแถวผลรวม ใส่สีให้เหมือนใน คคหที่ 25 และใส่กราฟด้วยครับ จากคุณ : Practical x 2 - [ 7 เม.ย. 50 08:31:36 ]

ความคิดเห็นที่ 39 11.10 AM ตอนนี้ได้ตารางที่น่าพอใจออกมาแล้วครับ สีและการ เว้นช่องไฟต่างๆ ก็เป็นอย่างที่ต้องการ ยังเหลือตาราง เปอร์เซ็นต์ที่ต้องนำมาไว้ในเวปด้วยเช่นกัน จากคุณ : Practical x 2 - [ 7 เม.ย. 50 11:14:24 ]

ความคิดเห็นที่ 40 12.13 น. เที่ยงวันแล้วหรือนี่ -_-" อย่างไรก็ตามตอนนี้เขียน HTML code แทรกเข้าไป ในโปรแกรม EXCEL แล้วครับ เหมือนเป็น control panel เล็กๆ ให้ผู้เยี่ยมชมเวปไซต์เลือก display mode ได้ <tr>  <td colspan = 1 align = "center"></td><td colspan = 20 align = "center"><table border = 5>  <tr><td colspan = 4><font color = blue><b><center>Please select other display modes</center></b></font></td></tr><tr><td colspan = 2 align = "center">     <img src="icon_table.png" border = 0 alt = "Display data in table form, select two options below">  </td><td colspan = 2 align = "center">   <img src="icon_graph.png" border = 0 alt = "Display data in column chart form, select two options below">  </td></tr><tr><td align = "center">     <a href="SummaryQEAAA.html#Start" target="_self"><img src="icon_number.png" border = 0 alt = "Display data in table form based on actual number of accepted students"></a>  </td><td align = "center">     <a href="SummaryQEAAA1.html#Start" target="_self"><img src="icon_percent.png" border = 0 alt = "Display data in table form based on percentage of accepted students"></a>  </td><td align = "center">     <a href="SummaryQEAAA2.html#Start" target="_self"><img src="icon_number.png" border = 0 alt = "Display data in chart column form based on actual number of accepted students"></a>  </td><td align = "center">     <a href="SummaryQEAAA3.html#Start" target="_self"><img src="icon_percent.png" border = 0 alt = "Display data in chart column form based on percentage of accepted students"></a>  </td></tr></table></td>  <td colspan = 1 align = "center"></td> </tr> จากคุณ : Practical x 2 - [ 7 เม.ย. 50 12:18:22 ]

ความคิดเห็นที่ 41 12.38 น. เนื่องจากการออกแบบโปรแกรมอย่างเป็นระบบทำให้การ ทำเวปหน้าที่ 2 ที่จะแสดงร้อยละจำนวนนักศึกษาที่รับ เป็นไปอย่างง่ายดาย และรวดเร็วครับ :D จากคุณ : Practical x 2 - [ 7 เม.ย. 50 12:41:15 ]

ความคิดเห็นที่ 42 13.50 เสร็จเรียบร้อยครับ สำหรับการออกแบบโปรแกรมวิเคราะห์ ข้อมูล ตอนที่ 1 สำหรับสำนักงานบริการการศึกษา โดย ผู้ใช้โปรแกรมดังกล่าวเพียงกรอกข้อมูลนักศึกษาใน โปรแกรมเอกเซลตามปกติ จากนั้นกดปุ่มให้โปรแกรม ทำงาน หรือจะบันทึก แล้วเปิดโปรแกรมขึ้นใหม่เพื่อทำ การวิเคราะห์อัตโนมัติโดยทันที ก็ได้เหมือนกัน ทั้งนี้ ข้อมูลจะถูกเปลี่ยนเป็นฐานข้อมูลใน HTML พร้อมนำ ไปขึ้นเวปได้ทันทีครับ จากคุณ : Practical x 2 - [ 7 เม.ย. 50 13:56:33 ]

ความคิดเห็นที่ 43 ขอมอบดอกไม้เป็นกำลังใจแด่อาจารย์ Practical x 2 ด้วยความเคารพแทนลูกศิษย์ค่ะ จากคุณ : Komi (komi_to) - [ 7 เม.ย. 50 16:50:13 ]

ความคิดเห็นที่ 44 แจ๋วๆๆ excel ทำได้ขนาดนี้เลย ^^ ครึ่งวันได้ 1 โปรแกรม สุดยอด อ.รับ job นอกไหมครับ อิอิ จากคุณ : NBA - [ 11 เม.ย. 50 12:59:20 A:222.123.30.59 X: TicketID:107130 ]