Home » Excel VBA Rangeオブジェクト » VBAで干支をオートフィルする

VBAで干支をオートフィルする

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

Excelでセルに「未」と入力しておいてからオートフィルしたら、
　　未
　　申
　　酉
　　戌
　　亥
　　子
　　丑
　　寅
　　卯
　　辰
　　巳
　　午
と干支が入力され脱力した……といった主旨のツイートを、数年に1回は見るような気がします。

［スポンサードリンク］

Excel VBAでも、もちろん同じ挙動になります。

セルに干支を入力するサンプルマクロ

以下のExcelマクロを実行すると、A1:A12セルに未・申・酉・戌・・・の順で干支が入力されます。

Sub 十二支を入力する()
　Range("A1").Value = "未"
　Range("A1").AutoFill Destination:=Range("A1:A12")
End Sub

「未」と入力されているセルから、Range.AutoFillメソッドの

引数Destinationだけ指定すれば、引数Typeに定数xlFillDefaultが指定されたとみなされ、

干支の入力が行われます。

上記のサンプルマクロの、

Range("A1").AutoFill Destination:=Range("A1:A12")

の行を、

Range("A1").AutoFill Destination:=Range("A1:A12"), Type:=xlFillCopy

のように引数Typeに定数xlFillCopyを指定すれば、

干支の入力にはならず「未」がA12セルまで複製されます。

最終更新日時：2024-08-10 11:10

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » VBAで干支をオートフィルする

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象に、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Excel VBA Rangeオブジェクト」の記事一覧