ไปยังเนื้อหาหลัก

รหัส VBA เพื่อแสดงรายการเพิ่มเติมทั้งหมดใน Excel

ใน Excel คุณสามารถเพิ่มหรือแทรกข้อมูลเพิ่มเติมเพื่อให้จัดการกับข้อมูลได้ดีขึ้น ดังที่เราทราบเราสามารถไปที่หน้าต่างตัวเลือกเพื่อดูข้อมูลเพิ่มเติมทั้งหมด แต่มีวิธีใดในการแสดงรายการเพิ่มเติมทั้งหมดในแผ่นงานหรือไม่? ตอนนี้ในบทช่วยสอนนี้มีรหัส VBA สำหรับแสดงรายการ Add in ทั้งหมดใน Excel

1 กด Alt + F11 คีย์เพื่อเปิดใช้งานหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างลงในสคริปต์เปล่า

VBA: แสดงรายการเพิ่มเติมทั้งหมด

Public Sub AllAddins()
'UpdatebyKutools20191031
Dim xWSh As Worksheet
Dim xWB As Workbook
Dim xAddin As AddIn
Dim xCOMAddin As COMAddIn
Dim xFA, xFCA As Integer
Dim xI As Integer
Dim xStr As String
 
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Addins List"
Set xWB = Application.ActiveWorkbook
Set xWSh = xWB.Worksheets.Item(xStr)
If Not xWSh Is Nothing Then
    xWSh.Delete
End If
Set xWSh = xWB.Worksheets.Add
xWSh.Name = xStr
xWSh.Range("A1").Value = "Name"
xWSh.Range("B1").Value = "FullName"
xWSh.Range("C1").Value = "Installed"
For xFA = 1 To Application.AddIns.Count
    Set xAddin = Application.AddIns(xFA)
    xI = xFA + 1
    Range("A" & xI).Value = xAddin.Name
    Range("B" & xI).Value = xAddin.FullName
    Range("C" & xI).Value = xAddin.Installed
Next xFA
xFA = (xFA + 2)
xWSh.Range("A" & xFA).Value = "Description"
xWSh.Range("B" & xFA).Value = "progID"
xWSh.Range("C" & xFA).Value = "Connect"
For xFCA = 1 To Application.COMAddIns.Count
    xI = xFCA + xFA
    Set xCOMAddin = Application.COMAddIns(xFCA)
    Range("A" & xI).Value = xCOMAddin.Description
    Range("B" & xI).Value = xCOMAddin.progID
    Range("C" & xI).Value = xCOMAddin.Connect
Next xFCA
Application.DisplayAlerts = True
End Sub

doc แสดงรายการทั้งหมดเพิ่มใน 1

3 กด F5 คีย์เพื่อรันโค้ดแผ่นงานชื่อ Addins List ถูกสร้างขึ้นพร้อมกับ Add in ทั้งหมด
doc แสดงรายการทั้งหมดเพิ่มใน 2


การดำเนินงานอื่น ๆ (บทความ)

ปิดการใช้งาน Add-in เมื่อเริ่มต้น Excel
คุณอาจติดตั้ง Add-in ไว้ใน Microsoft Excel แล้ว แต่ตอนนี้คุณต้องปิดใช้งาน Add-in ที่ระบุเมื่อเริ่มต้น Excel จะแก้ปัญหานี้อย่างไร? วิธีการในบทความนี้สามารถช่วยคุณได้

ส่งออกและบันทึกแต่ละแผ่นงานเป็นสมุดงานใหม่แยกกันใน Excel
สมมติว่าคุณต้องการส่งออกและบันทึกแผ่นงานหนึ่งหรือหลายแผ่นเป็นสมุดงานใหม่คุณจะจัดการกับมันอย่างไร? โดยปกติคุณสามารถคัดลอกแผ่นงานแต่ละแผ่นและวางลงในสมุดงานใหม่ได้ แต่ที่นี่เรานำเสนอเคล็ดลับที่มีประโยชน์เพื่อจัดการกับมัน:

แทรกแผ่นงานจากสมุดงานอื่น
บางครั้งคุณอาจต้องนำเข้าแผ่นงานจากสมุดงานอื่น หากคุณคัดลอกเนื้อหาของเวิร์กชีตและวางลงในสมุดงานปัจจุบันจะสูญเสียรูปแบบการจัดรูปแบบบางอย่างเช่นความสูงของแถวเป็นต้นบทความนี้อธิบายถึงวิธีที่มีประโยชน์บางประการในการแทรกเวิร์กชีตจากเวิร์กบุ๊กอื่น ๆ อย่างรวดเร็วด้วยการสูญเสียข้อมูลและรูปแบบการจัดรูปแบบ


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

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

  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...
kte แท็บ 201905
  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations