エクセル：Targetの列番号を英字で出す

Private Sub Worksheet_Change(ByVal Target As Range)
　　MsgBox Target.Column
End sub
このコードを書いたシートでセル"B1"の値を変更すると、
メッセージボックスで　2 と出ますが、
B と出したい（列番号ではなく、列の英字で）場合はどのように書けばよいでしょうか。

Left関数やMid関数を使ってTarget.Addressから英字部分を抜き出す、というコードも組んでみましたが、
そんなことしなくても出そうな気がするので、
そのような書き方がありましたら教えてください。

No.2 ベストアンサー 回答者： jobvba 回答日時： 2007/07/05 19:32

すみません

質問内容にもありました英字部分を抜き出すコードのほうが遥かに簡単でした
できれば流してください

この回答へのお礼

回答ありがとうございます。

申し訳ありません、「教えて！goo」内で似たような質問を見つけました。
そちらでもコードを組んで取り出す方法が挙げられていたので、
質問したような都合の良い関数は無いみたいですね。
例えばですけど、Target.retuと書けば出るよ、とかそんな楽な記述があればと思って質問しました(苦笑)。
普通は英字でなくて番号で出した方が扱いやすいんでしょうか。

お礼日時：2007/07/05 19:54

No.4 回答者： imogasi 回答日時： 2007/07/05 21:05

実際個人的にはあればと思って、勉強してますが、出くわさないですね。

（１）ユーザー関数
例えば（３）のロジックを使い
Function　Clmna(n)
Clmna=Chr(64 + n)
End Function
（２）Left関数やMid関数を使ってTarget.Address
（３）
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Chr(64 + Target.Column)
End Sub
（４）
Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox Chr(64 + Target.Column)
S = Split("A,B,C,D,E,F,G,H,I,J", ",") '10列まで
MsgBox S(Target.Column - 1)
End Sub
ーー
どこかで別の気の効いたやり方を見た気がするが思い出せない。

この回答へのお礼

回答ありがとうございます。

何個もありがとうございます。
別の所でも使えそうなんでコピっておきます。

皆さんに答えてもらっておいて申し訳ないですけど、
英字だけ抜く意味が無くなってしまったので結局自分で作ったMidとかInStrとか使ったコードも使わず仕舞いでした。

お礼日時：2007/07/06 20:29

No.3 回答者： Wendy02 回答日時： 2007/07/05 20:34

こんばんは。

MsgBox Replace$(Target.Cells(1).Address(0, 0), Target.Cells(1).Row, "")

もともと、このアルファベットというのは、可読性だけの問題だと思います。Lotusというよりも、VisiCalc の時代に出来たものだと思います。実際、VBAで、そのアルファベットを取り出しても使いようがありませんよね。Microsoft 自身も、Excelになってから採用した表示形式です。

この回答へのお礼

回答ありがとうございます。

>実際、VBAで、そのアルファベットを取り出しても使いようがありませんよね。

いえ、そんなことはありません、使いまくりです、
と書くつもりだったんですが、
確かに英字だけ取り出す意味はありませんでした。
今まではRange("A1")などと指定することが多かったのでどうしても欲しかったのですが、
Target.addressで出る「＄」付きのアドレス($A$1)で十分使えました。
（結局まだ英字に執着してますけど）

お礼日時：2007/07/06 20:25

No.1 回答者： jobvba 回答日時： 2007/07/05 19:30

こういうことでしょうか？

参考URL：http://support.microsoft.com/kb/833402/ja