標題: [其他] Excel VBA後無法插入Active X, 無法Copy工作頁 [打印本頁]

---

作者: terence071    時間: 2021-11-19 12:06     標題: Excel VBA後無法插入Active X, 無法Copy工作頁

本帖最後由 terence071 於 2021-11-19 12:08 編輯

我唔係識寫VBA, 一向都係透過網上左抄抄右抄抄咁去方便自己做野
但我想知.... 我哩堆野係咪有問題,
只要個File曾經有哩個VBA, 就出現無法插入Active X, 無法Copy工作頁

我唔知係我電腦問題, 定咩
但電腦係新, Office又係正版, 我唔知咩事~ 求教
https://drive.google.com/drive/f ... zxxvSNJ?usp=sharing
一個有整巨集, 一個無

個VBA目的
一開頭有個MSGBOX, 問供應商名,
輸入後會開新工作表, 而個工作表會用供應商名作為名稱
之後會係某一格格仔輸入供應商名稱

正路應該好簡單

我果堆VBA如下

Sub 巨集1()

' 巨集1 巨集

'開新工作表,用InputBox黎拎名
Dim DataSheet As String
DataSheet = Application.InputBox("供應商名稱：")
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = DataSheet

'細至85%
ActiveWindow.Zoom = 85

'Copy Heading
Sheets("Template").Select
Cells.Select
Selection.Copy
Sheets(Sheets.Count).Select
ActiveSheet.Paste
Application.CutCopyMode = False

'搞格式
    Range("A3:O3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection.Font
        .Name = "Calibri"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With

'係某格入返個名
    Range("A10").Select
    Range("A9") = DataSheet
   
End Sub

---

作者: terence071    時間: 2021-11-19 20:13

Please

---

作者: 狂蜂一號    時間: 2021-11-20 14:37

回覆 1# terence071

試下將 Sub 巨集1() 改為 Sub Macro1()

---

作者: tragamer    時間: 2021-11-20 14:56

windows 11?
office 2021?
係咪須要"啟用"activeX

---

作者: terence071    時間: 2021-11-21 05:40




你點知既?
係Windows 11, 係Office 2021
其實個Excel變得好怪, 同之前好唔同
係想啟用ActiveX
(其實除左ActiveX問題, 仲有其他古怪野,
例如平時Ctrl移動張Sheet可以Copy Sheet
咦家都做唔到, 成日久唔久彈的Error既MsgBox出黎)

---

作者: terence071    時間: 2021-11-21 05:41




哩個正正就係另一個問題, 佢啲中文去到第二部機度就會變哂亂碼
所以我都改哂做英文喇,  但都仲係咁

---

作者: tragamer    時間: 2021-11-21 13:13

https://support.microsoft.com/zh ... 5-a17e-b0b8898743ed

唔知幫唔幫到手

---

作者: 狂蜂一號    時間: 2021-11-21 13:35

本帖最後由 狂蜂一號 於 2021-11-21 13:53 編輯


Windows 7 and Office 2007 OK.

Before - Sub 巨集1():
[attach]2294067[/attach]
[attach]2294068[/attach]

After - Sub Macro1():
[attach]2294069[/attach]

---

作者: 狂蜂一號    時間: 2021-11-23 20:06



原來插入表單控制項是沒有問題的(中文 Sub 巨集1() 都得)，你可以用表單控制項的按鈕。