Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
55854 / 76736 ←次へ　｜　前へ→
【25648】Re:R1C1参照形式の列番号を、アルファベット列番号に変換する方法
回答  Kein  - 05/6/9(木) 14:40 -
引用なし
パスワード
   解決後ですが、これでどうでしょーか ?

Sub Cl_Ad()
　 Dim i As Integer, x As Integer, y As Integer
　 Dim MyAd As String
　
　 Do
　　　i = Application _
　　　.InputBox("列番号を1〜256までの数値で入力して下さい", Type:=1)
　　　If i = False Then Exit Sub
　 Loop While i < 1 Or i > 256
　 If i < 27 Then
　　　MyAd = Chr(i + 64) & ":" & Chr(i + 64)
　 Else
　　　x = Int(i / 26)
　　　y = i Mod 26
　　　If y = 0 Then
　　　　 x = x - 1: y = 26
　　　End If
　　　MyAd = Chr(x + 64) & Chr(y + 64) & _
　　　":" & Chr(x + 64) & Chr(y + 64)
　 End If
　 MsgBox MyAd
End Sub
0 hits
▼ 【25617】R1C1参照形式の列番号を、アルファベット列番号に変換する方法 えくせーる 05/6/8(水) 11:03 質問
【25618】Re:R1C1参照形式の列番号を、アルファベッ... IROC 05/6/8(水) 11:14 回答
【25620】Re:R1C1参照形式の列番号を、アルファベッ... えくせーる 05/6/8(水) 13:03 質問
【25621】Re:R1C1参照形式の列番号を、アルファベッ... つん 05/6/8(水) 13:06 発言
【25655】Re:R1C1参照形式の列番号を、アルファベッ... とおりすがり 05/6/9(木) 19:17 回答
【25619】Re:R1C1参照形式の列番号を、アルファベッ... Jaka 05/6/8(水) 12:05 回答
【25646】Re:R1C1参照形式の列番号を、アルファベッ... えくせーる 05/6/9(木) 14:02 お礼
【25647】Re:R1C1参照形式の列番号を、アルファベッ... Jaka 05/6/9(木) 14:21 発言
【25732】Re:R1C1参照形式の列番号を、アルファベッ... えくせーる 05/6/13(月) 9:20 お礼
【25648】Re:R1C1参照形式の列番号を、アルファベッ... Kein 05/6/9(木) 14:40 回答≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
55854 / 76736 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free