ผู้เขียน หัวข้อ: แนวคิดการเขียนโค๊ดเพื่อจัดตารางสอนใน vba  (อ่าน 49 ครั้ง)

administrator

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 1466
    • ดูรายละเอียด




แนวคิดสำหรับการจัดห้อง รายวิชา และจำนวนคาบของรายวิชา เพื่อนำมาจัดสุ่ม


อ้างถึง
Dim wsh As Worksheet
    Set wsh = Worksheets("subject2tabrand")
   
    Columns(5).Select
    Selection.Clear
        'wsh.Range("d20:d" & Rows.Count).ClearContents
        'wsh.Range("a21:f21").Select
        'Selection.Copy
        lastrow = Worksheets("subject_list").Range("c" & Rows.Count).End(xlUp).Row 
        'wsh.Range("c3:c" & lastrow).Select
        'Selection.Copy
        'MsgBox lastrow
        'Selection.PasteSpecial xlPasteFormats

Dim i_room As Integer
Dim i_subject As Integer
Dim i_period As Integer

For i_room = 1 To 12 ' จำนวนห้อง
    For i_subject = 3 To lastrow
            For i_period = 1 To Worksheets("subject_list").Range("d" & i_subject).Value
            wsh.Range("e" & Rows.Count).End(xlUp).Offset(1, 0).Select
            Selection.Value = "ห้องที่_" & i_room & " & Worksheets("subject_list").Range("c" & i_subject) '& "_" & "คาบที่ " & i_period
            Next i_period
    Next i_subject
Next i_room

« แก้ไขครั้งสุดท้าย: 01/02/20 โดย administrator »