エクセル名前BOX変更

質問

エクセルの名前BOXを一括で変更する方法があれば教えてください。

やりたいことは例えば
A1のセルBOXの名前をりんご１とするとして、
A2のセルBOXはりんご２、A3はりんご３という具合に
セルBOXの名前に「名称＋一連番号」を順につけていきたいのです。

エクセルは2007です。
よろしくおねがいします。

回答No.1

keithin · ベストアンサー

セルの一つ一つにそれぞれ異なる名前を定義する，エクセルの一般機能での操作方法はありません。

ご質問の直接の回答として：
マクロを使い，ご相談でヤリタイ事をその通りにやらせることはできます。

手順：
ＡＬＴ＋Ｆ１１を押す
現れた画面でＣｔｒｌ＋Ｇを押す
「イミディエイト」というウィンドウが現れるので，

for i = 1 to 10 : cells(i, "A").name = "りんご" & i : next i

と記入し，Ｅｎｔｅｒキーを押す
ファイルメニューから終了してエクセルに戻ると，Ａ１：Ａ１０にそれぞれ名前が付いている。

もうちょっと一般操作の範疇で出来ることとして：
Ａ１：Ａ１０の１０個のセル範囲を選び，その１０個のカタマリに「りんご」と名前を定義する

他のセルで例えば
=りんご1
と名前で参照したかった代わりに，
=INDEX(りんご,1)
とするとりんご１
=INDEX(りんご,5)
とするとりんご５を，それぞれ利用するのと同じになります。

=INDEX(りんご,ROW(A1))
と記入して下向けにコピーすれば，りんごの１，２，３…１０までになります。

お礼

イミディエイト画面で入力するとすんなりうまくいきました!!
ありがとうございます！

回答No.2

K Kazz（@JazzCorp）

'セルごとに名前を付ける
'セルに設定されている値（文字列）を名前にすることもできる
Option Explicit
Sub NameCell()
Const xBase = "りんご"
Dim xBox As Range
Dim kk As Long
For Each xBox In ActiveSheet.UsedRange
kk = kk + 1
' xBox.Name = xBox.Value
xBox.Name = xBase & kk
Next xBox
MsgBox kk & "コ、アッタよ！" & vbNewLine & "全部名札つけたよ！！"
End Sub

お礼

なるほど。
マクロ勉強中なので構文の意味するところを解るようにがんばってみます。
ありがとうございました。