Snasui Excel Forum

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

หมายเหตุอยากให้ข้อมูลแสดงทั้งหมายเลข ชื่อ นามสกุล และตำแหน่ง

แนบโค้ดที่ดัดแปลงเองมาด้วยพร้อมแจ้งว่าติดบรรทัดไหนตามกฎข้อ 5 ด้านบนครับ

พอดีมือใหม่ค่ะ

ไม่เคยทำเลย ด้านล่างนี้ได้จากการบันทึกแมโครค่ะ ไม่ได้สร้าง VBA เพราะทำไม่เป็นค่ะ

Sub Randome()
'
' Randome ?????
'
' Keyboard Shortcut: Ctrl+t
'
Range("B4").Select
ActiveCell.FormulaR1C1 = "=NAME!R[2]C[7]"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=NAME!R[2]C[7]"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=NAME!R[2]C[7]"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=NAME!R[2]C[7]"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=NAME!R[1]C[9]"
Range("A1").Select
End Sub

ขณะทำก็ศึกษาในเว็บต่างๆไป ค่ะ
สิ่งที่ต้องการคือการสุ่มเลือกพนักงานแล้วคัดคนที่ได้แล้วออกค่ะ ซึ่งข้อมุลที่แสดงก็ตามไฟล์แนบด้านบนค่ะค่ะ
สิ่งที่อยากได้เพิ่มคือให้คัดออกแล้วบันทึกไว้เซลล์ด้านข้างค่ะ

ถ้าไม่เคยทำเลยยังไม่ควรใช้ VBA ครับ

สำหรับการสุ่มที่บอกว่านำมาจากกระทู้ ไม่ทราบว่าเป็นประทู้ไหน และได้ลองปรับ Code ไปเป็นแบบใด ให้แนบ Code นั้นมา แจ้งมาด้วยว่าติดขัดตรงบรรทัดใด อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ ส่วน Code ที่เขียนมาด้านบนไม่ได้สื่อถึงการสุ่มข้อมูลตามที่บอกว่าศึกษามาจากกระทู้

การจะนำ Code มาถามกันจะต้องเขียนให้สอดคล้องกับสิ่งที่ต้องการจะทำ ไม่ใช่นำ Code ที่ไม่เกี่ยวข้องมาถามครับ