[其他] Excel VBA後無法插入Active X, 無法Copy工作頁

terence071

我唔係識寫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

Please

狂蜂一號

回覆 1# terence071

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

tragamer

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

terence071

windows 11?
office 2021?
係咪須要"啟用"activeX
tragamer 發表於 2021-11-20 14:56

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

terence071

回覆  terence071

試下將 Sub 巨集1() 改為 Sub Macro1()
狂蜂一號 發表於 2021-11-20 14:37

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

tragamer

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

唔知幫唔幫到手

狂蜂一號

哩個正正就係另一個問題, 佢啲中文去到第二部機度就會變哂亂碼
所以我都改哂做英文喇,  但都仲係咁 ...
terence071 發表於 2021-11-21 05:41

Windows 7 and Office 2007 OK.

Before - Sub 巨集1():



After - Sub Macro1():

狂蜂一號

哩個正正就係另一個問題, 佢啲中文去到第二部機度就會變哂亂碼
所以我都改哂做英文喇,  但都仲係咁 ...
terence071 發表於 2021-11-21 05:41

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