Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5730 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49255】英語の表示 マクロって難しい…！！ 07/5/29(火) 15:13 質問[未読]
【49256】Re:英語の表示 ウッシ 07/5/29(火) 15:22 発言[未読]
【49271】Re:英語の表示 マクロって難しい…！！ 07/5/30(水) 8:45 質問[未読]
【49272】Re:英語の表示 ウッシ 07/5/30(水) 9:16 発言[未読]
【49255】英語の表示
質問  マクロって難しい…！！  - 07/5/29(火) 15:13 -
引用なし
パスワード
   すいません、質問してもいいですか(＞_＜)
あの…

for a= 1 to eigo

　 cells(eigo,4)=a

next

というマクロを作ると、４列目には1行目から順に１，２，３，４…という様に数字が表示されると思うんですけど、Ａ，Ｂ，Ｃ，Ｄ…という様に英語を表示したいんです。でもこの方法が分からなくて…誰か分かる人いましたら教えていただけないでしょうか。
　ちなみに、「eigo」というのはＦｏｒ文より前に、任意の数に変更可能な値なのですが…
【49256】Re:英語の表示
発言  ウッシ  - 07/5/29(火) 15:22 -
引用なし
パスワード
   こんにちは

Zの後はどうするのでしょうか？

Sub test()
　　Dim a　　As Long
　　Dim eigo As Long
　　eigo = 26
　　For a = 1 To eigo
　　　 Cells(a, 4) = Chr(64 + a)
　　Next
End Sub
【49271】Re:英語の表示
質問  マクロって難しい…！！  - 07/5/30(水) 8:45 -
引用なし
パスワード
   ▼ウッシ さん：
ありがとうございます！！助かりました(＞_＜)
Ｚ以上は表示しないんでダイジョーブです！！

あの…ついでなんですが…、If文とかで、もしＡがあったら1を、Ｂがあったら２を認識するような方法ないでしょうか？？？？
【49272】Re:英語の表示
発言  ウッシ  - 07/5/30(水) 9:16 -
引用なし
パスワード
   こんにちは

どの時点の判定なのか分からないので、取り敢えずセルD1を判定してます。

Sub test1()
　　Dim a　　As Long
　　Dim eigo As Long
　　a = Asc(Cells(1, 4)) - 64
　　Select Case a
　　　　Case 1 To 26
　　　　　　MsgBox a
　　End Select
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5730 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free