選択した「名前」すべてに、右隣セルの「ふりがな」をまとめて登録したい

For Each～Nextの構文を使えば、選択中のセル（Selection）それぞれに対して、右隣の「ふりがな」を登録できます

選択中の「名前」に、右隣の「ふりがな」を登録する処理は、次のコードで行えます。

ActiveCell.Characters(1).PhoneticCharacters = ActiveCell.Offset(0, 1).Value

これを選択中の「名前」すべてに適用させるには、For Each～Nextで、選択中の「名前」セルを一つずつ対象にしながら、上記のコードが実行されるように、マクロを改良します。

	①選択中のセルは、マクロではSelectionで表すことができます
	②選択したセル一つに対する、ふりがな登録は、左図のマクロで行えます
	③選択中のセルの一つを表すための変数ｃを用意しますセルは、Rangeオブジェクトなので、変数ｃをRangeオブジェクトとして定義します。
	④For Eachの構文を使って、Selection（選択中のセル範囲）から一つずつセルを対象にしながら、右隣の「ふりがな」を登録していきます Selectionから一つずつセルを対象にするには、次のコードを使います。 For Each c In Selection 処理対象のセルは変数ｃで表されるので、ActiveCellの箇所を変数ｃに置き換えます。
	⑤Nextを追加して、For Eachの構文を完成させます
	⑥完成したマクロを実行すると、選択中の「名前」すべてに、右隣の「ふりがな」が登録されます













	●「名前」の右隣のセルのふりがなを、「名前」のふりがなとして登録するマクロを作る動画ですマクロの記録を使って、個人用マクロブックを生成し、そこで「ふりがな登録」マクロを完成させます。段階的に作っていき、最終的に、選択中の「名前」すべてに、右隣のセルのふりがなをまとめて登録できるマクロにします。

	関連する他のページ
	名前を読み順で並べ替えたいふりがなの登録されている名前なら、通常の並べ替えでその読み順に並べ替えられます名前にフリガナを表示させたい「ふりがなの表示/非表示」を使うと、名前を入力したときの読み仮名をフリガナとして表示できますふりがなの付加されているセルのふりがなだけを、PHONETIC関数で表示したいふりがなの文字種を確認することで、ふりがななのか、文字列そのものなのかを判別することは可能ですふりがなを他のセルに表示したい PHONETIC関数を使うと、データに付加されているふりがなを別のセルに表示できますふりがなを登録したい Alt＋Shift＋↑キーで、ふりがなの追加や修正を行えますふりがなを表示したいふりがなを表示したいセルを選択しておいてから、「ふりがなの表示/非表示」を実行しますマクロを作りたい「開発」タブを表示しておけば、そこから「Visual Basic」を実行してマクロを作ることができますブックを開いたときの新規シート自動挿入を、1日1枚に制限したい新規シートの名前に日付を加え、マクロ実行時にその存在の有無を確認するようにしますブックを開いたときに、新規シートを先頭へ挿入したい ThisWorkbookのOpenプロシージャに該当コードを記述しますマイナス値をゼロに置換したい④ If...ThenステートメントによるVBAマクロを使えば、マイナス値をまとめてゼロに置換できます “縮小して表全体を表示する”のマクロを、クイックアクセスツールバーから実行したいクイックアクセスツールバーにマクロを登録すれば、マウスからでも、キーボードからでも、簡単に実行できるようになります “縮小して表全体を表示する”のマクロを使って、表の選択から一気に処理したい Range.CurrentRegion プロパティを使えば、アクティブセル領域となっている表全体をマクロで選択できます “縮小して表全体を表示する”を、ショートカットキーですばやく実行したい実行手順をマクロとして記録すれば、ショートカットキーでその一連の手順をすばやく実行できるようになります「セキュリティの警告」が表示されるんだけど・・・マクロを含むブックを開くときには、注意を促すべく、「セキュリティの警告」が表示されますマクロ有効ファイルって何？マクロを含むブックは、マクロ有効ファイル（マクロ有効ブック）として保存しなければ、マクロが失われてしまいます 100行程度の表で、5行おきに、新しい行を挿入したいあまり大きくない表でのパターン化された処理なら、一定の手順をマクロ記録すると便利ですオートシェイプをクリックするたびに、枠線の表示と非表示を切り替えたい枠線の表示と非表示の切り替えマクロを、オートシェイプに登録すれば、オートシェイプをクリックするだけでそのマクロが実行されるようになりますオートシェイプの枠線の表示と非表示を、一つのマクロで切り替えたい If～Then～Elseの構文を使えば、オートシェイプの状態に応じて、表示と非表示を一つのマクロで切り替えられますオートシェイプの枠線の表示の有無を、マクロで切り替えたい」 Shape.LineのVisibleプロパティの設定を変えることで、枠線を表示したり非表示にしたりすることができますマクロを右クリックで実行したい Worksheet_BeforeRightClickイベントのプロシージャにマクロを記述すると、指定シートを右クリックしたときにそのマクロが実行されますブックを閉じるときに、マクロを自動的に実行したいそのブックのWorkbook.BeforeClose イベントに、マクロを実行するコードを記述します２つのフォルダへの保存マクロを、汎用的なものにしたいファイル名の部分を、編集中のブックの名前を表すActiveWorkbook.Nameにすると、編集中のブックならどれでもマルチ保存が可能になりますマクロ実行時に表示されるダイアログボックスを無視したい Application.DisplayAlerts プロパティをFalseにすると、マクロの実行中に警告やメッセージが表示されなくなります編集中のブックを、現在のフォルダとは別のフォルダにも、すばやく保存したい手間のかかる操作は、マクロ化すれば、簡単に処理できるようになりますブックにたくさんのシートがあり、それぞれのB2セルに入力してあるデータを、それぞれのシートの名前にしたい For Each...Next ステートメントを使えば、編集中のブックに含まれるすべてのシートを対象にして、同じ処理を実行することができますマクロのコードを、見た目にわかりやすく、簡潔に記述したい With ステートメントを使えば、作業の対象となるオブジェクトの記述が１回で済みます B2セルに入力してあるデータを、そのシートの名前にしたいシートの名前は、Worksheet.Name プロパティで変えることができますリスト内の各データを、順番に個別で表示したい専用のユーザーフォームにスクロールバーを追加すれば、リスト内のデータを順番に表示できますリスト内の各データを、必要に応じて個別で表示したいマクロを使えば、ダブルクリックしたデータを、専用のユーザーフォームで表示することができます指定したページだけを、とびとびで印刷したいマクロを使えば、指定したページだけを連続して印刷することは可能ですどのブックからでも利用できるマクロを作りたい「個人用マクロブック」に登録すれば、どのブックからでもそのマクロを実行できるようになります特集「条件付き書式」

選択した「名前」すべてに、 右隣セルの「ふりがな」をまとめて登録したい

For Each～Nextの構文を使えば、 選択中のセル（Selection）それぞれに対して、 右隣の「ふりがな」を登録できます

ActiveCell.Characters(1).PhoneticCharacters = ActiveCell.Offset(0, 1).Value

①選択中のセルは、マクロではSelectionで表すことができます

②選択したセル一つに対する、ふりがな登録は、左図のマクロで行えます

③選択中のセルの一つを表すための変数ｃを用意します

④For Eachの構文を使って、Selection（選択中のセル範囲）から一つずつセルを対象にしながら、右隣の「ふりがな」を登録していきます

For Each c In Selection

⑤Nextを追加して、For Eachの構文を完成させます

⑥完成したマクロを実行すると、選択中の「名前」すべてに、右隣の「ふりがな」が登録されます

●「名前」の右隣のセルのふりがなを、 「名前」のふりがなとして登録するマクロを作る動画です

関連する他のページ

選択した「名前」すべてに、右隣セルの「ふりがな」をまとめて登録したい

For Each～Nextの構文を使えば、選択中のセル（Selection）それぞれに対して、右隣の「ふりがな」を登録できます

●「名前」の右隣のセルのふりがなを、「名前」のふりがなとして登録するマクロを作る動画です