実行前にシート内のセルがクリックされた場合、マクロが正しく実行されない

Question

私は新しいVBAコーダーであり、それでも間違っています。レポートを書式設定するための非常に基本的で非常に単純なマクロを作成しました。

私は、ファイルを開くと、任意のセルをクリックするか、任意の場所に実際のスプレッドシートで、マクロを実行しない、マクロは完璧に実行

、

私は、ファイルを開いても、ワンクリックを行うと、マクロはありません私の最初の行と列を自動調整しないでください。文字通りワンクリックで、私の結果は達成されません。

これを修正する必要があります。それが選択かアクティブなシートの問題かどうかはわかりません。非常に限られた理解。

'Unmerge all Cells in Worksheet 
ActiveSheet.Cells.UnMerge 

'Delete Columns A1 thru D1 
Range("A1:D1").EntireColumn.Delete 

'Delete Rows A1 thru A9 
Range("A1:A9").EntireRow.Delete 

'Cut and Paste Cells 
Range("A2").Cut Range("A1") 
Range("G1").Cut Range("F1") 
Range("P1").Cut Range("O1") 
Range("AA1").Cut Range("Z1") 

'Sort by Column A to Remove Extra Rows from View 
Columns("A:AM").Sort key1:=Range("A:A"), order1:=xlAscending, Header:=xlYes 

'Auto Fit Contents in Columns and Rows 
ActiveCell.Columns("A:AG").EntireColumn.Select 
ActiveCell.Columns("A:AG").EntireColumn.AutoFit 
ActiveSheet.Rows.EntireRow.AutoFit 

'Delete Empty Columns 
Range("B:B, D:D, G:I, K:L, N:N, P:Q, T:V, X:Y, AA:AB, AD:AF").EntireColumn.Delete 

'Remove Wrap Text from Cell B1 
Range("B1").WrapText = False 

'Autofit Contents of Columns 
Range("A1:AF1").Columns.AutoFit 

'Autofit Row A2 Contents 
Range("A2:A2").Rows.AutoFit 

'Save File As 
Application.GetSaveAsFilename 

Answer 1

このブロックは、私には間違っているになります。

'Auto Fit Contents in Columns and Rows 
ActiveCell.Columns("A:AG").EntireColumn.Select 
ActiveCell.Columns("A:AG").EntireColumn.AutoFit 
ActiveSheet.Rows.EntireRow.AutoFit 

ActiveSheetへのActiveCellを変更してみてください：

'Auto Fit Contents in Columns and Rows 
ActiveSheet.Columns("A:AG").EntireColumn.Select 
ActiveSheet.Columns("A:AG").EntireColumn.AutoFit 
ActiveSheet.Rows.EntireRow.AutoFit 

（あなたは相対参照ではなく、絶対参照を使用しているため、ActiveCell.Columnsを（ "A：AG"）は、ワークシートの起点から始めるのではなく、クリックしたセルに関連して表示されます）