[其他] 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
附件: 您需要登錄才可以下載或查看附件。沒有帳號?註冊

Please

TOP

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



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

TOP

回覆  terence071

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



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

TOP