人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBAについて質問です。Selection.Addressを用い$E$6:$E$7という値を取得しました。この値から範囲指定されている値を整数型で求めたいのですがどのように処理したらよいでしょうか?基本的な質問だと思いますが教えていただきたくよろしくお願いします。

●質問者: harunoharuno
●カテゴリ:コンピュータ
✍キーワード:VBA 整数
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● Mook
●200ポイント

希望されていることを満たしているかどうかわかりませんが、

下記が参考になるでしょうか。

Sub showData()
 Dim r As Range
 For Each r In Range(Selection.Address)
 MsgBox CInt(r.Value)
 Next
End Sub

不明な点は補足しますので、コメントを有効にお願いします。

http://officetanaka.net/excel/vba/tips/tips50.htm

◎質問者からの返答

不体裁な質問に答えていただきありがとうございました。

$E$6:$E$7を元に

二つの(x,y)(x,y)を得たいと思っています。

追加で教えていただけると助かります。


2 ● fuentebella
●200ポイント ベストアンサー

>二つの(x,y)(x,y)を得たいと思っています。

は、この場合 (5,6)-(5,7)という意味ですか?

Selectionからだと

Sub find_coord()

Dim x1 As Integer, y1 As Integer
Dim x2 As Integer, y2 As Integer

With Selection
 x1 = .Column
 y1 = .Row
 x2 = .Column + .Columns.Count - 1
 y2 = .Row + .Rows.Count - 1
End With

MsgBox ("(" & x1 & "," & y1 & ")-(" & x2 & "," & y2 & ")")

End Sub

それとも 「$E$6:$E$7」の文字列をもとに(x,y)(x,y)を求めるという意味ですか??

はずしていたらすみません

http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page7.htm#...

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ