Dim UserEntry, xText
xText = "001 สมชาย ใจงาม & Chr(10) & _
"002 สมหญิง แจ่มจันทร์" & Chr(10) & _
"003 ประชัน บุญดี" & Chr(10) & _
"004 ªชัยพร จรัสศรี" & Chr(10) & _
"005 ประจวบ คล้ายคลึง"
UserEntry = InputBox("โปรดระบุรหัสพนักงาน..." & Chr(10) & _

"---------------------------------------------------------------" & Chr(10) & xText, "UserEntry")

1. พิมพ์รายชื่อที่ต้องการลงในชีทงานไว้ก่อน ประมาณนี้



2. โค้ดในส่วนของการควบคุม InputBox จะเปลี่ยนมาอ่านรายชื่อในชีทงานแทน ด้วยโค้ดแบบนี้

Dim UserEntry, xText, i As Integer
With Sheets("username")
i = 2
Do Until Range("a" & i).Text = ""
xText = xText & Chr(10) & .Range("b" & i).Text & " " & .Range("c" & i).Text
i = i + 1
Loop
End With


UserEntry = InputBox("โปรดระบุรหัสพนักงาน..." & Chr(10) & _

"---------------------------------------------------------------" & Chr(10) & xText, "UserEntry")

3. เมื่อรันโค้ดงานออกมา ก็จะได้หน้าตาของ InputBox เป็นแบบนี้

Create Date : 18 ธันวาคม 2550
Last Update : 22 ธันวาคม 2550 12:26:43 น.		2 comments
Counter : 3317 Pageviews.
Share Tweet