อัปเดตล่าสุด: 10 เมษายน 2019
ปัญหา
ใน Excel for Mac มีการแนะนำ Visual Basic Editor ในเดือนตุลาคม 2017 ด้วยตัวแก้ไข VB ใหม่นี้ มีปัญหากับการสร้างรายงานวัตถุ โดยเลือกจากเมนูดรอปดาวน์ที่ด้านยนของบานหน้าต่างรหัส
ถ้าคุณคลิกที่รายการดรอปดาวน์ทางซ้ายมือและเลือกข้อมูลในรายการจากรายการ คุณควรนำรหัสสำหรับเหตุการณ์ที่เลือกในรายการดรอปดาวน์ทางด้านขวา คุณสามารถเลือกส่วนที่เลือกเพิ่มเติมจากรายการดรอปดาวน์ทางด้านขวาเพื่อสร้างรหัสเพิ่มเติมเพื่อจัดการกับเหตุการณ์ที่เลือก
![ตัวแก้ไข VBE จะแสดงรายการดรอปดาวน์ส่วนที่เลือกของวัตถุ](https://support.content.office.net/th-th/media/92d8bfb0-dd1b-45ee-b068-621bf3aa6c94.png)
ข้อผิดพลาดเกิดขึ้นแทนเมื่อไม่มีการสร้างรหัส
![ข้อผิดพลาดของ Microsoft Visual Basic: ตัวแปรจะใช้และชนิด Automation ไม่ได้รับการสนับสนุนใน Visual Basic](https://support.content.office.net/th-th/media/a242ed6e-f56a-4abb-ad73-bcf2944a87c0.png)
สถานะ: แก้ไขปัญหาชั่วคราว
เลือกการแก้ไขปัญหาชั่วคราวข้อใดข้อหนึ่งสำหรับปัญหา:
วิธีแก้ไขปัญหาชั่วคราว #1
คุณสามารถดำเนินการขั้นตอนที่คล้ายกันบนคอวพิวเตอร์ที่ใช้งาน Excel for Windows แล้วคัดลอกรหัสไปยัง Excel for Mac
วิธีแก้ไขปัญหาชั่วคราว #2
คุณสามารถไปที่ MSDN และค้นหาไวยากรณ์สำหรับเหตุการณ์ที่คุณต้องการใช้และพิมพ์รหัสลงในโครงการ VBA ด้วยตนเอง บทความนี้อธิบายถึงเหตุการณ์ "เวิร์กบุ๊ก" Microsoft Excel - เหตุการณ์เวิร์กบุ๊ก
วิธีแก้ไขปัญหาชั่วคราว #3
คัดลอกรหัสเหตุการณ์ที่เหมาะสมจากตัวอย่างด้านล่างแล้ววางลงในโครงการ VBA ของคุณ สำหรับแต่ละเหตุการณ์ ต้องให้แน่ใจว่าคัดลอกจาก "Private Sub..." ไปยัง "End Sub" โดยรวมแล้ว
Private Sub Workbook_Activate()
End Sub
Private Sub Workbook_AddinInstall()
End Sub
Private Sub Workbook_AddinUninstall()
End Sub
Private Sub Workbook_AfterRemoteChange()
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
Private Sub Workbook_BeforeRemoteChange()
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub
Private Sub Workbook_Deactivate()
End Sub
Private Sub Workbook_NewChart(ByVal Ch As Chart)
End Sub
Private Sub Workbook_NewSheet(ByVal Sh As Object)
End Sub
Private Sub Workbook_Open()
End Sub
Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)
End Sub
Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)
End Sub
Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
End Sub
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
End Sub
Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)
End Sub
Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End Sub
Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End Sub
Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)
End Sub
Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)
End Sub
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)
End Sub
Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
End Sub
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_BeforeDelete()
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_Calculate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Private Sub Worksheet_Deactivate()
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
End Sub
Private Sub Worksheet_LensGalleryRenderComplete()
End Sub
Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)
End Sub
Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End Sub
Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)
End Sub
Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)
End Sub
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)
End Sub
แหล่งข้อมูลเพิ่มเติม
![ไอคอนผู้เชี่ยวชาญ (สมอง เฟือง)](https://support.content.office.net/th-th/media/ee188ecd-f93d-4573-9b01-e11973de3e9a.png)
ถามผู้เชี่ยวชาญ
ติดต่อกับผู้เชี่ยวชาญ พูดคุยเกี่ยวกับข่าวสาร อัปเดต และหลักปฏิบัติที่ดีที่สุดของ Excel ล่าสุด และอ่านบล็อกของเรา
![ไอคอนชุมชน](https://support.content.office.net/th-th/media/f9cd8fac-e1df-4bd7-9f76-0098e0e77d7e.png)
ขอความช่วยเหลือในชุมชน
ถามคำถามและวิธีการแก้ไขจากเจ้าหน้าที่ฝ่ายสนับสนุน MVP วิศวกร และผู้ใช้ Excel รายอื่น
![ไอคอนคำขอฟีเจอร์ (หลอดไฟ ความคิด)](https://support.content.office.net/th-th/media/4c746d07-a10c-46f3-afe5-17a8f9628ccc.png)
แนะนำฟีเจอร์ใหม่
เราชอบอ่านคำแนะนำและคำติชมของคุณ! แบ่งปันความคิดเห็นของคุณ เรายินดีรับฟัง
ดูเพิ่มเติม
การแก้ปัญหาหรือวิธีแก้ปัญหาเฉพาะหน้าสำหรับปัญหาล่าสุุดใน Excel for Mac