คู่มือทีละขั้นตอนการเข้ารหัสข้อมูลใน Excel ด้วย VBA

ขั้นตอนที่ 1 – สร้างชุดข้อมูลพร้อมพารามิเตอร์ที่เหมาะสม

• สามารถเห็นชุดข้อมูลของเราในภาพ

ขั้นตอนที่ 2 – ใช้แท็บ Developer

แท็บ Developer ตัวจริงของ Excel มีเครื่องมือที่จำเป็นสำหรับใช้ Visual Basic for Applications (VBA) รันแมโคร ปกติแท็บนี้จะปิดใช้งาน ต้องเปิดใช้งานในส่วน Options ของแถบ Menu ก่อนจึงจะมองเห็นบนแถบเครื่องมือด้านบนของหน้าต่าง Excel

• เปิดแท็บ Developer
• เลือกคำสั่ง Visual Basic

ขั้นตอนที่ 3 – สร้าง VBA User-Defined Function

• หน้าต่าง Visual Basic จะเปิด
• จากตัวเลือก Insert เลือก Module เพื่อเขียนโค้ด VBA

• วางโค้ด VBA ต่อไปนี้ใน Module
• บันทึกโค้ด

Function Encoding(text$)
Dim i
With CreateObject("ADODB.Stream")
    .Open: .Type = 2: .Charset = "utf-8"
    .WriteText text: .Position = 0: .Type = 1: i = .Read
    With CreateObject("Microsoft.XMLDOM").createElement("b64")
        .DataType = "bin.base64": .nodeTypedValue = i
        Encoding = Replace(Mid(.text, 5), vbLf, "")
    End With
    .Close
End With
End Function

ขั้นตอนที่ 4 – เข้ารหัสข้อมูลใน Excel

• ไปที่แผ่นงาน ใช้สูตรต่อไปนี้ในเซลล์ B5

• กด Enter

• จะเห็นผลลัพธ์ที่เข้ารหัสสำหรับคนแรก
• ใช้ Fill Handle ลากลงจากเซลล์ B5 ถึง B11

• จะได้ผลลัพธ์ทั้งหมดตามภาพด้านล่าง

อ่านเพิ่มเติม: วิธีตรวจสอบ Encoding ของไฟล์ Excel

ดาวน์โหลดสมุดงานฝึกปฏิบัติ

บทความเกี่ยวข้อง

• วิธีเปลี่ยน Encoding ใน Excel
• [Fixed!] CSV UTF 8 Not Available in Excel
• วิธีใช้ UTF 8 Encoding บนไฟล์ CSV ใน Excel
• วิธีถอดรหัส Base64 ใน Excel

<< กลับไป Excel Encoding | Excel Files | Learn Excel

รับแบบฝึกหัด Excel ขั้นสูงพร้อมเฉลยฟรี!