Home » Excel VBA Rangeオブジェクト » 行・列を表すRange » Excel VBAで偶数列を選択する

Excel VBAで偶数列を選択する

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2501（ビルド18407.200002クイック実行）ベータチャネル

「偶数列を選択するvba」
といった検索キーワードで、このサイト『インストラクターのネタ帳』へアクセスがありました。

既にご紹介している奇数行を選択するExcel VBAのコードを少しだけ変更すれば、偶数列選択マクロを作れます。

［スポンサードリンク］

偶数列を選択するサンプルマクロ

以下のExcelマクロを実行すると、1列目から10列目までの偶数列のみが選択されます。

Sub 偶数列を選択する()

　Dim rng As Range
　
　Dim i As Long
　For i = 2 To 10 Step 2
　　If rng Is Nothing Then
　　　Set rng = Columns(i)
　　Else
　　　Set rng = Union(Columns(i), rng)
　　End If
　Next
　
　rng.Select

End Sub

サンプルマクロで行っている処理について

基本的な考え方は、奇数行選択マクロと同じですから、違いだけを見ておきましょう。

奇数行の選択マクロで、

　For i = 1 To 10 Step 2

となっていた箇所を、偶数列ですから、

　For i = 2 To 10 Step 2

に変更しています。

奇数行の選択マクロで、

　　If rng Is Nothing Then
　　　Set rng = Rows(i)
　　Else
　　　Set rng = Union(Rows(i), rng)

となっていた箇所を、偶数列ですから、

　　If rng Is Nothing Then
　　　Set rng = Columns(i)
　　Else
　　　Set rng = Union(Columns(i), rng)

としています。

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » 行・列を表すRange » Excel VBAで偶数列を選択する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 日経BP社から出版されたExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓


「行・列を表すRange」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.