【本日のミッション】
Excel VBAにて、離れた複数列の列幅を変更せよ。
ただし、列番号にはアルファベットを使用せず、数字のみで選択すること。
ミッションの概要
下記のように、離れた複数の列の幅を、一気に変更するのが今回のミッションです。
でも、B列、D列、F~H列という風にアルファベットは使わずに、2列、4列、6~8列という風に数字で表現すること、という条件付きです。
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
プロシージャ
答えはこちら3つ目の「離れた列の列幅を変更3」プロシージャになります。
Sub 離れた列の列幅を変更1()
Range("B:B,D:D,F:H").ColumnWidth = 10
End Sub
Sub 離れた列の列幅を変更2()
Range("B1,D1,F1:H1").EntireColumn.ColumnWidth = 10
End Sub
Sub 離れた列の列幅を変更3()
Union(Columns(2), Columns(4), Range(Columns(6), Columns(8))).ColumnWidth = 10
End Sub列番号が決まっているときは「離れた列の列幅を変更1」とか「離れた列の列幅を変更2」プロシージャでOKなんです。
ただ、実際の業務では、処理する列番号が必ずしも決まっているとは限りません。
条件によっては、列が変動する場合もあります。
そんなときは、「離れた列の列幅を変更3」プロシージャの方法がとっても役に立ちます。
Unionメソッド
Union（セル範囲1,セル範囲2,セル範囲3,セル範囲4以降・・・）
複数のセル範囲をひとまとまりの集合体にします。
今回の例であれば、2列目、4列目、6～8列目を一つの集合体として選択しています。
ちなみに「セル範囲1」と「セル範囲2」は必ず指定しないといけません。集合体を作るわけですからね♪
参照
「数字が文字列として保存されています。」を一括で数字に変換
データが増減しても参照先を変更しない名前の管理（Excel）
連動するドロップダウンリストを名前の管理・入力規制・OFFSET・INDIRECTを使って「リストが表示されない」を解決（Excel）
Excel 複数セル内の改行（Alt+Enter）を一括で解除する方法
Excel関数を使って 縦の表に連動した（リンクした）横の表を一括で作成せよ
ワイルドカードとは。使い方いろいろ。（Excel）
Excelの改ページの点線を消す方法
Excelの背景にある薄グレーの枠線（罫線）を消す（非表示）方法
非表示になってしまった列を表示させる方法
ファイルを開くと空の画面も同時に開くのを解決（Excel）
図 画像 グラフ ボタン などのオブジェクトが消えてしまった時の表示方法（Excel）
大量の画像やグラフ等のオブジェクトで画面表示が遅いのを解決（Excel）
保護されたシートに対して、このコマンドは使用できません。テーマが変えられない現象を解決（Excel）
離れた複数列をまとめて列番号（数字）で選択する方法（Excel VBA）
Excel VBA で選択した複数のセルにデータ・数式を（Ctrl+Enter のように）一気に入力する方法
離れた複数列を列番号（数字）で指定して、列幅変更する方法（Excel VBA）
