Page 1 of 1
การตั้งชื่อและเพ่ิม worksheet อย่างรวดเร็ว(เทคนิค)
Posted: Thu Feb 03, 2011 1:50 pm
by godman
สวัสดีครับ มีเรื่องขอความรู้ด้วยครับ คือผมมีรายชื่อพนักงานในชืตแรก แต่ตานี้ ผมต้องการให้ 1 ชี้ต แทน 1 คน จำทำอย่างไรที่จะตั้งชื่อแต่ละ worksheet ได้อย่างรวดเร็วแทนการมานั่ง insert sheet แล้ว rename เพราะผมมีรายชื่อเป็น 100 ชื่อ
Re: การตั้งชื่อและเพ่ิม worksheet อย่างรวดเร็ว(เทคนิค)
Posted: Thu Feb 03, 2011 3:00 pm
by snasui
ลองใช้ Code ด้านล่างนี้ช่วยในการสร้าง Sheet ตามรายชื่อพนักงานครับ ซึ่งสิ่งที่ต้องเตรียมก่อนครับ
1. เพิ่มชีทใหม่มา 1 ชีทโดยให้ชื่อว่า Sheet1 > Copy รายชื่อมาวางโดยเริ่มที่เซลล์ A1
2. เพิ่ม Code ใน VBE โดย Copy Code ด้านล่างไปวาง > Run Code
Code: Select all
Sub AddWorkSheets()
Dim i As Long
Dim r As Range
On Error Resume Next
With Worksheets("Sheet1")
Set r = .Range(.Range("A1"), Range("A65536").End(xlUp))
End With
For i = 1 To r.Count
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = _
r.Cells(i, 1).Value
Next i
End Sub
Re: การตั้งชื่อและเพ่ิม worksheet อย่างรวดเร็ว(เทคนิค)
Posted: Thu Feb 03, 2011 3:03 pm
by kmb
วิธีนึงที่ผมใช้ครับ คือต้องเพิ่ม add-in นี้ก่อน
ตามลิ้งก์ข้างล่างนี้เลยครับ
http://www.asap-utilities.com/download- ... lities.php
สมมติว่า B2:B15 เป็นรายชื่อที่จะเพิ่ม worksheet ก็ทำตามรูปเลยครับ
ASAP add sheet.JPG
Re: การตั้งชื่อและเพ่ิม worksheet อย่างรวดเร็ว(เทคนิค)
Posted: Thu Feb 03, 2011 4:22 pm
by godman
ทำได้แล้วครับ ขอบคุณครับ แต่ว่าผมลืมถามไปว่า ถ้า copy ฟอร์ม ไปใส่แต่ละ work sheet เร็วๆนี่ทำอย่างไรครับ
Re: การตั้งชื่อและเพ่ิม worksheet อย่างรวดเร็ว(เทคนิค)
Posted: Thu Feb 03, 2011 4:33 pm
by snasui
ลองตามนี้ครับ
1. Copy ข้อมูลจากชีท Form
2. คลิกเลือกชีทแรกที่ยังไม่มีข้อมูลตามชีท Form
3. คลิกปุ่ม >| หน้าแถบชีทเพื่อไปยังชีทสุดท้าย
4. กดแป้น Shift ค้างไว้แล้วคลิกชีทสุดท้าย จะเป็นการเลือกพร้อมกันหลาย ๆ ชีท
5. คลิกขวาบนเซลล์เป้าหมาย > Paste
6. คลิกชีทสุดท้าย 1 ครั้ง ตามด้วยกดแ้ป้น Shift แล้วคลิกชีทสุดท้ายอีกครั้งเพื่อปลดการเลือกพร้อมกันหลายชีท
Re: การตั้งชื่อและเพ่ิม worksheet อย่างรวดเร็ว(เทคนิค)
Posted: Thu Feb 03, 2011 4:49 pm
by godman
ใช้ได้ดีครับ ขอบคุณครับ