過去ログ

                                Page     694
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼R1C1指定を英文字に変換するには  チャオ 03/2/6(木) 14:36
   ┗Re:R1C1指定を英文字に変換するには  ぴかる 03/2/6(木) 17:30
      ┗Re:R1C1指定を英文字に変換するには  チャオ 03/2/6(木) 18:09

 ───────────────────────────────────────
 ■題名 : R1C1指定を英文字に変換するには
 ■名前 : チャオ
 ■日付 : 03/2/6(木) 14:36
 -------------------------------------------------------------------------
   R1C1の位置指定の形式を英文字指定に変換したいのですが
(1, 2) の指定を (B1)に変換する関数ってあるのでしょうか。

セルに格納する場合にはConvertFormulaが使えますが
VBAのプログラム中に変数の形式を変換する関数を探しています。

位置指定を可変にしたいので、R1C1形式で指定したいのですが
Range指定の場合、R1C1指定ができないときがあって困っています。

よろしくお願いいたします。
 ───────────────────────────────────────  ■題名 : Re:R1C1指定を英文字に変換するには  ■名前 : ぴかる  ■日付 : 03/2/6(木) 17:30  -------------------------------------------------------------------------
   チャオさん、こんにちは。

こういうことで良いのかな?
Sub TEST()

Dim 行 As Long
Dim 列 As Integer

  On Error GoTo errout
  
  行 = InputBox("行Noを入力してちょうだい。")
  列 = InputBox("列Noを入力してちょうだい。")
  MsgBox Cells(行, 列).Address(False, False)
  Exit Sub

errout:
  MsgBox "変なデータは、ダメだぞ!", vbExclamation

End Sub
 ───────────────────────────────────────  ■題名 : Re:R1C1指定を英文字に変換するには  ■名前 : チャオ  ■日付 : 03/2/6(木) 18:09  -------------------------------------------------------------------------
   ▼ぴかる さん:

回答ありがとうございます。
Addressっていうのがあったのですね。
助かりました。
ありがとうございます m(_ _)m
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 694