Excel VBA質問箱 IV

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

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


9504 / 13644 ツリー ←次へ | 前へ→

【26957】セルの複数選択したものの取得 らせつ 05/7/25(月) 14:43 質問[未読]
【26959】Re:セルの複数選択したものの取得 Jaka 05/7/25(月) 15:12 回答[未読]
【26960】Re:セルの複数選択したものの取得 らせつ 05/7/25(月) 15:19 お礼[未読]

【26957】セルの複数選択したものの取得
質問  らせつ  - 05/7/25(月) 14:43 -

引用なし
パスワード
   ctrlキーにて複数選択したもののアドレスの取得(rowとcolumn)をしたいのですが1つの選択の取得しか出来ません。
ご教授願います。下記のようにして取得しています。

ActiveRow = ActiveCell.Row
ActiveRow_Count = Selection.Rows.Count
Activerow_CountSS = (ActiveRow_Count + ActiveRow) - 1

ActiveCol = activecell.column
ActiveCol_Count = Selection.Columns.Count
Activecol_CountSS = (ActiveCol_Count + ActiveCol) - 1

【26959】Re:セルの複数選択したものの取得
回答  Jaka  - 05/7/25(月) 15:12 -

引用なし
パスワード
   ▼らせつ さん:
>ctrlキーにて複数選択したもののアドレスの取得(rowとcolumn)をしたいのですが1つの選択の取得しか出来ません。
意味がわかりません。
例えばどことどことどこを選択した場合、どんな情報がほしいのか具体的に書いてください。
ActiveCellとか
Selectionだとさっぱり解りません。

Dim mycl As Range
Set mycl = Selection
For Each ArRg In mycl.Areas
  MsgBox ArRg.Address
Next

【26960】Re:セルの複数選択したものの取得
お礼  らせつ  - 05/7/25(月) 15:19 -

引用なし
パスワード
   ▼Jaka さん:

ありがとうございます。わかりづらくてすいません。
下記の方法で出来そうです。
例えばC5:f10 と I5:K10とか範囲選択して
そのそれぞれの範囲の縦と横の座標を取得してその範囲の書式変更したいのです。

>Dim mycl As Range
>Set mycl = Selection
>For Each ArRg In mycl.Areas
>  MsgBox ArRg.Address
>Next

9504 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free