ขอทราบหลักการเขียน Code VB

[tigerwit]

สวัสดีครับ
ผมไม่มีความรู้ในการเขียน Code VB เลย อาศัยการบันทึกแมโคร แล้วนำมาแก้ไข ผิดบ้างถูกบ้าง และสอบถามจากบอร์ดนี้ แกะโค๊ด ทดลองไปเรื่อยจนได้ตามที่ต้องการแต่ ในบ้างครั้งที่ผมทดลองโค๊ดเหล่านี้มีบรรทัดหลายๆบรรทัด ที่ไม่ต้องการให้แสดงผล แต่ยังต้องการเก็บไว้เพื่อแก้ไขใช้งาน จะมีวิธีการใดที่จะให้บรรทัดเหล่านั้นยังคงอยู่ แต่ไม่แสดงผล นอกเหนือจากวิธีการใส่ ' หน้าบรรทัดที่ไม่ต้องการให้แสดงผล ทุกบรรทัด

Code: Select all

Sub PrintFA1_Rank()
        If MsgBox("คุณต้องการพิมพ์แบบรายงาน 1 จัดลำดับคะแนนประเมิน ใช่หรือไม่?", 36, "ยืนยันการสั่งพิมพ์") = 6 Then
            If Range("A2") = 10 Then
                Sheets("FormR18").Select
                    ActiveWindow.SelectedSheets.PrintOut
                Sheets("Main2").Select
            Else
                  If MsgBox("จำนวนบุคลากรในโรงเรียนท่านเกิน 18 คน" & vbCrLf & "โปรแกรมจะพิมพ์ข้อมูลให้เพียง 18 คน เท่านั้น" 
                  & vbCrLf & "ท่านยังต้องการพิมพ์เอกสารอยู่หรือไม่", 36, "โปรดทราบ") = 6 Then
                Sheets("FormR18").Select
          ActiveWindow.SelectedSheets.PrintOut
          Sheets("Main2").Select
          End If

        End If
        
        
        'If Range("A2") = 20 Then
                'Sheets("FormR36").Select
                '    ActiveWindow.SelectedSheets.PrintOut
              '  Sheets("Main2").Select
      '  End If
     '   If Range("A2") = 30 Then
    '            Sheets("FormR54").Select
  '                  ActiveWindow.SelectedSheets.PrintOut
   '             Sheets("Main2").Select
 '       End If
'        If Range("A2") = 40 Then
 '                   Sheets("FormR72").Select
 '                   ActiveWindow.SelectedSheets.PrintOut
   '             Sheets("Main2").Select

 '       End If
  '             If Range("A2") = 50 Then
    '                Sheets("FormR90").Select
    '                ActiveWindow.SelectedSheets.PrintOut
   '             Sheets("Main2").Select

  '      End If
 '
  '             If Range("A2") = 60 Then
  '                  Sheets("FormR108").Select
 '                   ActiveWindow.SelectedSheets.PrintOut
  '              Sheets("Main2").Select
  '          Cancel = True
        'End If
        End If
    End Sub

[snasui]

การไม่ให้ Code ทำงานสามารถทำได้ 2 แบบคือทำเป็น Comment กับไม่เรียกใช้ Code นั้นครับ

การเก็บ Code เอาไว้ใช้ในภายหลังควรสร้าง Module ขึ้นมาเพิ่ม 1 Module หรือมากกว่าแล้วแต่ต้องการ แล้วเก็บ Code ต่าง ๆ เพื่อสำรองในภายหลัง เมื่อจะใช้งานค่อยคัดลอกมาวางแทน Code ที่ใช้งานอยู่ในปัจจุบัน

การทำเป็น Comment สามารถทำได้เร็ว ๆ แทนการคีย์เครื่องหมาย ' นำหน้าทีละบรรทัดโดยการใช้เครื่องมือ Comment Block ที่ระบายสีแดงในภาพ วิธีการใช้คือคลุม Code ที่ต้องการแล้วคลิกปุ่ม Comment Block หากจะยกเลิกให้คลิกปุ่มที่ระบายสีเขียวในภาพ

เมนูนี้สามารถเปิดได้จากเมนู View > Toolbars > Edit

[tigerwit]

ขอบคุณครับผม