今、提出用の資料作成にて、
従業員の稼動実績を記載した表部分を隠して
A3にかたち良く収まるように印刷できるよう列の調整をしようと
マクロの記録を行い、下記のようなプログラムを得ました。
ところが、実行すると("U:AD")の部分は隠れているのですが、
それ以外は全て、列の幅が"20"になってしまいます。
一体どのようにすれば列の幅を記載通りに調整できるのでしょうか?
お教え下さい。宜しくお願いします。
* * * * * * * * * * * * * * * * *
Sub 稼動実績を隠す()
'
' 稼動実績を隠す Macro
' マクロ記録日 : 2007/9/27 ユーザー名 : ########
'
'
Columns("A:M").Select
Range("A2").Activate
Selection.ColumnWidth = 8
Columns("N:O").Select
Selection.ColumnWidth = 16
Columns("P:P").Select
Selection.ColumnWidth = 20
Columns("R:T").Select
Selection.ColumnWidth = 20
Columns("U:AD").Select
Selection.ColumnWidth = 0
Columns("AE:AF").Select
Selection.ColumnWidth = 20
Columns("AG:AG").Select
Selection.ColumnWidth = 8
Columns("AH:AH").Select
Selection.ColumnWidth = 54
Columns("AI:AP").Select
Selection.ColumnWidth = 20
Columns("AQ:AQ").Select
Selection.ColumnWidth = 8
Columns("AR:AS").Select
Selection.ColumnWidth = 20
Range("A2").Select
End Sub
No.3ベストアンサー
- 回答日時:
列幅を数値で指定したい場合は、複数列なら
Columns("A:B").ColumnWidth = 8
また1列なら
Columns(1).ColumnWidth = 8
Range("A1").EntireColumn.ColumnWidth = 8
のように書けばよいです。わざわざセルをSelectする必要はありません
また列幅を自動調整するなら
Columns("A:B").Autotfit
で入力文字に合わせて自動調整します
どうも、何度もご回答頂きありがとうございました。
最初のマクロでは、どぉ修正しても出来なかったのですが、
#3.でお書き頂いた方法で、下記のように直すと出来ました。
つねにセレクトしていたのがマズかったのですかね;;
とにかく無事出来るようになりました。
本当にありがとうございました。
* * * * * * * * * * * * * * * *
'
Columns("A:M").ColumnWidth = 8
Columns("N:O").ColumnWidth = 16
Columns("P:P").ColumnWidth = 20
Columns("R:T").ColumnWidth = 20
Columns("U:AD").ColumnWidth = 0
Columns("AE:AF").ColumnWidth = 20
Columns("AG:AG").ColumnWidth = 8
Columns("AH:AH").ColumnWidth = 54
Columns("AI:AP").ColumnWidth = 20
Columns("AQ:AQ").ColumnWidth = 8
Columns("AR:AS").ColumnWidth = 20
Range("A2").Select
End Sub
No.1
- 回答日時:
>Columns("A:M").Select
>Range("A2").Activate
>Selection.ColumnWidth = 8
これはA列だけが対象になってますね。
他の部分には問題ないように思われます。
↓の現象はおきませんでした。
>それ以外は全て、列の幅が"20"になってしまいます。
この回答への補足
早速の回答ありがとうございます。
質問のマクロは、記録通りのなのですが、
それでは駄目って事なのでしょうか?
下記の
・
・
Columns("A:M").Select
Range("A2").Activate ←この部分?
Selection.ColumnWidth = 8
Columns("N:O").Select
・
・
を削除すれば出来ると言う事でよかったですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロで 1 2022/04/09 06:44
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Visual Basic(VBA) excelVBAについて。 4 2022/11/21 16:15
- Excel(エクセル) excelVBAについて。 8 2022/12/11 13:47
- Visual Basic(VBA) excelVBAについて。 1 2022/11/30 06:16
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/04 14:20
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) excelVBAについて。 5 2022/11/27 18:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
「B列が日曜の場合」C列に/...
-
エクセルで最初のスペースまで...
-
VBAで文字列を数値に変換したい
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
エクセル 文字数 多い順 並...
-
エクセル(勝手に太字になる)
-
Excel 別ファイルに自動的に反...
-
Excel、市から登録している住所...
-
Excelで半角の文字を含むセルを...
-
EXCELで 一桁の数値を二桁に
-
A列がない・・・A列が非表示に...
-
文字列に数字を含むセルを調べたい
-
エクセルで文字が混じった数字...
-
2つのエクセルのデータを同じよ...
-
エクセルの項目軸を左寄せにしたい
-
エクセル 同じ値を探して隣の...
-
文字を入力したら数値が自動入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル 同じ値を探して隣の...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
エクセルの項目軸を左寄せにしたい
-
Excel、市から登録している住所...
-
エクセルで、列の空欄に隣の列...
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
VBAで文字列を数値に変換したい
-
A列がない・・・A列が非表示に...
-
文字列に数字を含むセルを調べたい
-
50人を数回、グループ分けする...
おすすめ情報