Note: The other languages of the website are Google-translated. Back to English

วิธีการกำหนดหมายเลขเซลล์ด้วยตัวอักษรตามตัวอักษรใน Excel

ใน Excel เราสามารถกำหนดหมายเลขเซลล์ด้วยอนุกรมตัวเลขเช่น 1, 2, 3 ... โดยใช้ที่จับการป้อนอัตโนมัติ แต่คุณจะกำหนดหมายเลขเซลล์ด้วยตัวอักษร A, B, C ได้อย่างไร? ในบทช่วยสอนนี้ฉันแนะนำวิธีจัดการงานนี้ใน Excel

การกำหนดหมายเลขเซลล์ด้วยตัวอักษรตามตัวอักษรพร้อมสูตร

การกำหนดหมายเลขเซลล์ด้วยตัวอักษรตามตัวอักษรด้วยรหัส VBA

การกำหนดหมายเลขเซลล์ด้วย Kutools for Excelความคิดที่ดี 3


ใส่สัญลักษณ์แสดงหัวข้อย่อยหรือหมายเลขหลายรายการในการวิ่งge

ใน Excel คุณต้องแทรกสัญลักษณ์แสดงหัวข้อย่อยหรือลำดับเลขทีละรายการ แต่ด้วยเครื่องมือที่มีประโยชน์นี้ Kutools สำหรับ Excel's ใส่สัญลักษณ์แสดงหัวข้อย่อย และ แทรก Nmbering ยูทิลิตี้คุณสามารถแทรกสัญลักษณ์แสดงหัวข้อย่อยหรือหมายเลขได้อย่างรวดเร็ว
ไปยังเซลล์ที่เลือกพร้อมกัน ..  คลิกเพื่อทดลองใช้ฟรี 60 วัน!
doc ใส่สัญลักษณ์แสดงหัวข้อย่อย
 
Kutools for Excel: มีโปรแกรมเสริม Excel ที่มีประโยชน์มากกว่า 200 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน

การกำหนดหมายเลขเซลล์ด้วยตัวอักษรตามตัวอักษรพร้อมสูตร

1. พิมพ์ตัวอักษรทั้งหมดที่คุณต้องการใช้เพื่อกำหนดหมายเลขเซลล์ในรายการถัดจากเซลล์ที่คุณต้องการกำหนดหมายเลข
เลขที่เอกสารด้วยตัวอักษร 1

ถ้าคุณมี Kutools สำหรับ Excelที่ กรอกรายการที่กำหนดเอง ยูทิลิตี้สนับสนุนให้คุณสร้างรายการจากช่วงจากนั้นคุณสามารถแทรกรายการใหม่ได้ทุกที่ตามที่คุณต้องการโดยไม่ต้องพิมพ์ซ้ำทีละรายการ  คลิกเพื่อทดลองใช้ฟรี 60 วัน!
เลขที่เอกสารด้วยตัวอักษร 2

2. เลือกเซลล์ที่อยู่ติดกับตัวอักษรและเนื้อหาของเซลล์ที่คุณต้องการกำหนดหมายเลขพิมพ์สูตรนี้ = A1 & "." & B1ลากเติมที่จับลงเพื่อเติมสูตรลงในเซลล์ทั้งหมดที่คุณต้องการ
เลขที่เอกสารด้วยตัวอักษร 3


การกำหนดหมายเลขเซลล์ด้วยตัวอักษรตามตัวอักษรด้วยรหัส VBA

หากคุณคุ้นเคยกับรหัสมาโครคุณสามารถทำได้ดังนี้:

1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. คลิก สิ่งที่ใส่เข้าไป > โมดูล.

2. คัดลอกและวางโค้ดด้านล่างลงในไฟล์ โมดูล ต้นฉบับ

VBA: การกำหนดหมายเลขด้วย A

Sub Prefix_A()
'UpdatebyExtendoffice20180828
Dim xRg As Range
Dim xStrPrefix As String
xStrPrefix = "A."
On Error Resume Next
Application.ScreenUpdating = False
For Each xRg In Selection
    If xRg.Value <> "" Then
        xRg.Value = xStrPrefix & xRg.Value
    End If
Next
Application.ScreenUpdating = True
End Sub

3. จากนั้นวางรหัสซ้ำและเปลี่ยน A เป็น B หรือ C หรือ D ตามที่คุณต้องการ
เลขที่เอกสารด้วยตัวอักษร 4

4. บันทึกรหัสและปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

5. เลือกเซลล์ที่คุณต้องการกำหนดหมายเลขด้วย A แล้วคลิก ผู้พัฒนา > แมโคร.
เลขที่เอกสารด้วยตัวอักษร 5

6 ใน แมโคร โต้ตอบเลือกรหัส คำนำหน้า_A และคลิก วิ่ง.
เลขที่เอกสารด้วยตัวอักษร 6

7. การเลือกได้รับหมายเลขด้วยก.
เลขที่เอกสารด้วยตัวอักษร 7

8. ทำซ้ำขั้นตอนที่ 5 และ 6 เพื่อกำหนดหมายเลขเซลล์ด้วยตัวอักษรเฉพาะตามที่คุณต้องการ


การกำหนดหมายเลขเซลล์ด้วย Kutools for Excel

หากคุณมี Kutools for Excel คุณสามารถกำหนดหมายเลขเซลล์ได้อย่างรวดเร็ว

Kutools สำหรับ Excel, ที่มีมากกว่า 200 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:(ดาวน์โหลด Kutools for Excel ฟรีทันที!)

เลือกเซลล์ที่คุณต้องการกำหนดหมายเลขจากนั้นคลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกลำดับเลขเลือกหนึ่งประเภทที่คุณต้องการ
เลขที่เอกสารด้วยตัวอักษร 8

จากนั้นเซลล์จะถูกเพิ่มหมายเลข
เลขที่เอกสารด้วยตัวอักษร 9

การเรียกดูแบบแท็บและแก้ไขสมุดงาน Excel / เอกสาร Word หลายรายการเช่น Firefox, Chrome, Internet Explore 10!

คุณอาจคุ้นเคยกับการดูหน้าเว็บหลายหน้าใน Firefox / Chrome / IE และสลับไปมาระหว่างหน้าเว็บเหล่านั้นโดยคลิกที่แท็บที่เกี่ยวข้องได้อย่างง่ายดาย ที่นี่ Office Tab รองรับการประมวลผลที่คล้ายกันซึ่งช่วยให้คุณสามารถเรียกดูสมุดงาน Excel หรือเอกสาร Word หลายรายการในหน้าต่าง Excel หรือหน้าต่าง Word เดียวและสลับไปมาระหว่างกันได้อย่างง่ายดายโดยคลิกที่แท็บ คลิ๊กฟรี

วันทดลองใช้ Office Tab!

ot excel

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (1)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ย่อย Alphabetic_Numbering()
Dim InputRng เป็นช่วง, เริ่มเป็นจำนวนเต็ม, เซลล์เป็นช่วง, เริ่ม1 เป็นจำนวนเต็ม, Rowsx เป็นจำนวนเต็ม, Double_Start เป็นจำนวนเต็ม
ตั้งค่า InputRng = Application.Selection
ตั้งค่า InputRng = Application.InputBox("Range", xTitleId, InputRng.Address, Type:=8)

เริ่ม = 65
Rowsx = InputRng.Rows.Count


สำหรับฉัน = 1 ถึง Rowsx
ถ้าฉัน < 27 แล้ว
InputRng.Cells(i, 1).Value = Chr(Start) & ". " & InputRng.Cells(i, 1).Value
เริ่ม = เริ่ม + 1
End If

roundupUnitcount = Application.WorksheetFunction.RoundUp(i / 26, 0) - 1
ถ้าเริ่ม > 90 แล้ว
เริ่ม = เริ่ม - 26
End If
Double_Start = 64 + roundupUnitcount
ถ้าฉัน > 26 แล้ว
InputRng.Cells(i, 1).Value = Chr(Double_Start) & Chr(Start) & ". " & InputRng.Cells(i, 1).Value
InputRng.Cells(i, 2).Value = เริ่มต้น
เริ่ม = เริ่ม + 1
End If
ต่อไปฉัน
ย่อยสิ้นสุด
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL