วิธีสร้างแบบสอบถามใน Excel (2 วิธีง่ายๆ)

ในบทความนี้ เราจะเรียนรู้ที่จะสร้างแบบสอบถามใน Excel . แบบสอบถามคือชุดคำถามหรือรายการเฉพาะที่มีตัวเลือก มันถูกใช้เพื่อรวบรวมข้อมูลจากผู้ตอบ ใน Excel ผู้ใช้สามารถสร้างแบบสอบถามได้โดยทำตามขั้นตอนง่ายๆ วันนี้เราจะสาธิต 2 วิธีง่ายๆ คุณสามารถสร้างแบบสอบถามใน Excel ได้อย่างง่ายดายโดยใช้วิธีการเหล่านี้ ดังนั้น เรามาเริ่มการสนทนากันโดยไม่ชักช้า

ดาวน์โหลดแบบฝึกหัดได้จากที่นี่

2 วิธีง่ายๆ ในการสร้างแบบสอบถามใน Excel

คุณสามารถสร้างแบบสอบถามใน Excel ได้สองวิธี ในวิธีแรก เราจะสร้างแบบสอบถามด้วยตนเอง ที่นี่ คุณต้องแทรกคำหลักของคำถามเป็นส่วนหัวของคอลัมน์ เราจะสาธิตวิธีการทั้งหมดในขั้นตอนง่ายๆ

ในวิธีที่ 2 เราจะใช้ VBA เพื่อสร้างแบบสอบถามใน Excel ภาพรวมของแบบสอบถามมีดังต่อไปนี้:

1. สร้างแบบสอบถามด้วยตนเองใน Excel

ในวิธีแรก เราจะสร้างแบบสอบถามใน Excel ตั้งแต่เริ่มต้น ในกรณีของเรา เราจะขอชื่อ , รหัส และ แผนก ของพนักงานบริษัทบางส่วน นอกจากนี้ ให้ถามพวกเขาว่าต้องการ วันหยุด . หรือไม่ ปีนี้. ที่นี่เราไม่สามารถแทรกคำถามทั้งหมดได้ ดังนั้น เราต้องการคีย์เวิร์ดของคำถามนั้น และเราจะใช้เป็นส่วนหัวของคอลัมน์ ในขั้นตอนด้านล่าง เราได้สาธิตขั้นตอนพร้อมคำแนะนำง่ายๆ ดังนั้น มาใส่ใจกับขั้นตอนด้านล่างเพื่อเรียนรู้วิธีการ

ขั้นตอนที่ 1:ใส่คำหลักของคำถาม

• ประการแรก เราต้องระบุคีย์เวิร์ดของคำถามและใส่เป็นส่วนหัวดังรูปด้านล่าง
• ตัวอย่างเช่น หากคุณต้องการถามว่า “คุณชื่ออะไร ” ก่อน จากนั้นส่วนหัวของคอลัมน์แรกจะเป็น “ชื่อ ”.
• คำถามที่สองคือ “หมายเลขประจำตัวของคุณคืออะไร ” ดังนั้นที่นี่คำหลักจะกลายเป็น ID .
• คำถามที่สามถามพนักงานเกี่ยวกับแผนก ดังนั้นจึงอยู่ใน คอลัมน์ D .
• และสุดท้ายนี้ เราต้องรู้ว่าพนักงานต้องการลาพักร้อนในปีนี้หรือไม่ เราต้องการคำตอบใน ใช่ หรือ ไม่ . ดังนั้น ส่วนหัวของ คอลัมน์ E เขียนว่า “ต้องการวันหยุด (ใช่/ไม่ใช่) ”.
• ด้วยวิธีนี้ คุณต้องค้นหาคำหลักของคำถามทั้งหมดและใช้เป็นส่วนหัวทีละรายการ

ขั้นตอนที่ 2:สร้างตารางโดยใช้คำหลัก

• ในขั้นตอนที่สอง เราจะสร้างตาราง
• ในการทำเช่นนั้น ให้เลือกส่วนหัว
• จากนั้น กด Ctrl + ท .
• กล่องข้อความจะปรากฏขึ้น
• ทำเครื่องหมายที่ “ตารางของฉันมีส่วนหัว ”.
• คลิก ตกลง เพื่อดำเนินการต่อ

• ด้วยเหตุนี้ คุณจะเห็นตารางเหมือนภาพหน้าจอด้านล่าง

ขั้นตอนที่ 3:สร้างแท็บใหม่สำหรับแบบสอบถาม

• ประการที่สาม เราต้องสร้างแท็บใหม่สำหรับแบบสอบถาม
• เพื่อจุดประสงค์นั้น ให้เลือกส่วนหัวของตารางก่อน

• หลังจากนั้น คลิกที่ ไฟล์  แท็บ

• ตอนนี้ เลือก ตัวเลือก . จะเปิด ตัวเลือก Excel  หน้าต่าง

• ใน ตัวเลือก Excel หน้าต่าง เลือก กำหนด Ribbon เอง จากนั้นเลือก แท็บใหม่ .

• หลังจากนั้น คลิกขวา ใน กลุ่มใหม่ และเลือก เปลี่ยนชื่อ จากเมนู

• A เปลี่ยนชื่อ กล่องจะปรากฏขึ้น
• พิมพ์ ชื่อที่แสดง และคลิก ตกลง เพื่อดำเนินการต่อ
• ที่นี่ เราได้เปลี่ยนชื่อกลุ่มใหม่เป็น แบบสอบถาม 1 .

• ในขั้นตอนต่อไปนี้ ให้เลือก “คำสั่งที่ไม่อยู่ใน Ribbon ” ใน “เลือกคำสั่งจาก ” กล่อง.
• จากนั้น เลือก แบบฟอร์ม และคลิกที่ เพิ่ม  ตัวเลือก

• หลังจากทำตามขั้นตอนข้างต้นแล้ว คุณจะเห็น แบบฟอร์ม ภายใต้ แบบสอบถาม กลุ่มภายใน แท็บใหม่ .
• คลิก ตกลง เพื่อก้าวไปข้างหน้า

ขั้นตอนที่ 4:เปิดแบบฟอร์มเพื่อป้อนข้อมูล

• ในขั้นตอนนี้ ไปที่ แท็บใหม่ แล้วเลือก แบบฟอร์ม .

• ดังนั้น คุณจะเห็นรูปแบบเหมือนรูปภาพพร้อมแท็กของส่วนหัว
• ที่นี่ ผู้ตอบต้องใส่ชื่อ , รหัส , แผนก และ ความต้องการวันหยุด ทีละคน

ขั้นตอนที่ 5:ป้อนข้อมูลสำหรับแบบสอบถาม

• ในขั้นตอนที่ห้า ผู้ตอบต้องใส่คำตอบของคำถามที่ถาม
• ตัวอย่างเช่น พนักงาน John ได้แทรกข้อมูลของเขาแล้ว
• ดังนั้น หากต้องการรับข้อมูลนี้ลงในเวิร์กชีต ให้คลิกที่ ใหม่  ตัวเลือก

• ด้วยเหตุนี้ ข้อมูลจะอยู่ในเวิร์กชีตและแบบฟอร์มจะพร้อมสำหรับการตอบกลับอีกครั้ง
• ในกรณีนี้ พนักงาน พอล ป้อนข้อมูลของเขาและคลิกที่ ใหม่  อีกครั้ง

• ด้วยเหตุนี้ คุณจะเห็นข้อมูลในเวิร์กชีต excel

• หากต้องการใส่ข้อมูลเพิ่มเติม ให้ทำตามขั้นตอนด้านบนแล้วคลิก ใหม่ .

ผลลัพธ์สุดท้าย

• ในท้ายที่สุด คุณจะได้รับข้อมูลที่บันทึกไว้ในเวิร์กชีต และคุณสามารถใช้ขั้นตอนเดียวกันเพื่อป้อนข้อมูลเพิ่มเติมได้

2. ใช้ Excel VBA เพื่อสร้างแบบสอบถาม

ในวิธีที่ 2 เราจะใช้ VBA เพื่อสร้างแบบสอบถามใน Excel VBA ย่อมาจาก Visual Basic for Applications . การใช้ VBA เราสามารถดำเนินงานต่างๆ ได้อย่างง่ายดาย ที่นี่ เราจะถามคำถามสองสามข้อกับผู้ตอบ และพวกเขาจำเป็นต้องตอบโดยใช้ตัวเลือกบางอย่าง ตัวเลือกคือ ไม่แน่ใจ , เห็นด้วย , ไม่เห็นด้วย และ อาจจะ . เรามาทำตามขั้นตอนด้านล่างเพื่อดูว่าเราจะสร้างแบบสอบถามโดยใช้ VBA ได้อย่างไร ใน Excel

ขั้นตอน:

• ก่อนอื่น ไปที่ นักพัฒนา และเลือก Visual Basic . มันจะเปิด Visual Basic  หน้าต่าง
• หรือจะกด Alt . ก็ได้ + F11 เพื่อเปิด

• ใน Visual Basic หน้าต่าง เลือก แทรก>> โมดูล . มันจะเปิด โมดูล  หน้าต่าง

• ตอนนี้ คัดลอกโค้ดด้านล่างแล้ววางลงใน โมดูล หน้าต่าง:

Option Explicit
Sub Create_Questionnaire()
Dim GrupBx As GroupBox
Dim OptnBtn As OptionButton
Dim iMxBtns As Long
Dim icell As Range
Dim iRng As Range
Dim iWks As Worksheet
Dim xCtr As Long
Dim xFrstOptnBtnCel As Range
Dim xNumOfQ As Long
Dim iBorder As Variant
iBorder = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, _
        xlEdgeRight, xlInsideVertical, xlInsideHorizontal)
iMxBtns = 4
xNumOfQ = InputBox("Set the numbers of questions", "Questions", 8)
Set iWks = ActiveSheet
With iWks
Set xFrstOptnBtnCel = .Range("E2")
.Range("A:D").Clear
With xFrstOptnBtnCel.Offset(-1, -1).Resize(1, iMxBtns + 1)
    .Value = Array("Questions", "Option1", "Option2", _
                    "Option3", "Option4")
    .Orientation = 90
    .HorizontalAlignment = xlCenter
End With
Set iRng = xFrstOptnBtnCel.Resize(xNumOfQ, 1)
With iRng.Offset(0, -1)
    .Formula = "=ROW()-" & iRng.Row - 1
    .Value = .Value
End With
iRng.Offset(0, -3).Value = 1
With iRng.Offset(0, -4)
    .FormulaR1C1 = "=IF(RC[2]="""","""",IF(RC[2]=6,""N/A"",RC[1]*(RC[2]-1)))"
End With
.Range("A1").Formula = "=SUM(A2:A" & xNumOfQ + 1 & ")"
With iRng.Offset(0, -4).Resize(, 4)
    For xCtr = LBound(iBorder) To UBound(iBorder)
    With .Borders(iBorder(xCtr))
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Next xCtr
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
End With
iRng.EntireRow.RowHeight = 20
iRng.Resize(, iMxBtns).EntireColumn.ColumnWidth = 9
.GroupBoxes.Delete
.OptionButtons.Delete
End With
For Each icell In iRng
With icell.Resize(1, iMxBtns)
    Set GrupBx = iWks.GroupBoxes.Add _
        (Top:=.Top, Left:=.Left, Height:=.Height, _
        Width:=.Width)
    With GrupBx
    .Caption = ""
    .Visible = True
    End With
End With
    For xCtr = 0 To iMxBtns - 1
      With icell.Offset(0, xCtr)
        Set OptnBtn = iWks.OptionButtons.Add _
              (Top:=.Top, Left:=.Left, Height:=.Height, _
               Width:=.Width)
        OptnBtn.Caption = ""
        If xCtr = 0 Then
          With icell.Offset(0, -2)
            OptnBtn.LinkedCell = .Address(external:=True)
          End With
        End If
      End With
    Next xCtr
  Next icell
End Sub

• กด Ctrl + ส เพื่อบันทึกรหัส
• ในขั้นตอนต่อไปนี้ ไปที่ นักพัฒนา แล้วเลือก มาโคร . มันจะเปิด มาโคร  หน้าต่าง

• หลังจากนั้น เลือกรหัสที่ต้องการใน มาโคร หน้าต่างและ เรียกใช้ มัน.

• ด้วยเหตุนี้ ข้อความจะปรากฏขึ้นและจะขอให้คุณกำหนดจำนวนคำถาม
• นี่เราอยากจะถาม 5 คำถามถึงผู้ตอบของเรา เราก็เลยพิมพ์ 5 .
• คลิก ตกลง เพื่อดำเนินการต่อ

• คุณจะเห็นผลลัพธ์เหมือนรูปภาพในเวิร์กชีตทันที
• ที่นี่ คุณสามารถดู คอลัมน์ D สำหรับคำถามและ คอลัมน์ E , ฉ , ช และ H มีไว้สำหรับตัวเลือก

• ตอนนี้ คุณต้องจัดรูปแบบแบบสอบถามตามความต้องการของคุณและใส่คำถาม
• ตัวอย่างเช่น เราได้แทรกสามแถวและหนึ่งคอลัมน์ ดังนั้น ตอนนี้ ช่วง B4:I9 มีแบบสอบถาม
• เราได้ซ่อน คอลัมน์ C . ด้วย &ด .
• นอกจากนี้ เราได้แทรกคำถามในรูปแบบที่มั่นใจได้
• มี 4 คำตอบสำหรับแต่ละคำถามและคำตอบมีค่าตั้งแต่ 0 ถึง 3 .
• นี่ ไม่แน่ใจ มีค่า 0 , เห็นด้วย มี 1 , ไม่เห็นด้วย มี 2 และ อาจจะ มี 3 .
• เพื่อความสะดวกของคุณ เราได้แสดงคำตอบของผู้ตอบแล้ว
• นี่ เซลล์ B4 เก็บผลรวมของ ช่วง B5:B9 .

บทสรุป

ในบทความนี้ เราได้แสดงให้เห็น 2 วิธีง่ายๆในการ สร้างแบบสอบถามใน Excel . ฉันหวังว่าบทความนี้จะช่วยให้คุณทำงานได้อย่างมีประสิทธิภาพ นอกจากนี้ เราได้เพิ่มหนังสือฝึกหัดไว้ตอนต้นของบทความด้วย เพื่อทดสอบทักษะของคุณ คุณสามารถดาวน์โหลดไปออกกำลังกายได้ นอกจากนี้ คุณสามารถเยี่ยมชมเว็บไซต์ ExcelDemy สำหรับบทความเพิ่มเติมเช่นนี้ สุดท้ายนี้ หากคุณมีข้อเสนอแนะหรือข้อสงสัยใดๆ อย่าลังเลที่จะถามในส่วนความคิดเห็นด้านล่าง