一つのシートで、複数のセル範囲を選択している場合に、セル範囲を選択しているのか?列、行を選択しているのかを判別する方法として次のようなのを考えました。
それとなく動いているのですが、なんとなくスマートでなく、場当たり的な感じがしますが、どのようにすればいいのか判りません!!
どなたか、アドバイス頂けないでしょうか?宜しくお願いいたします。
Sub test()
Dim myRang As Range
Dim myArry As Variant
For Each myRang In Selection.Areas
myArry = Split(Replace(myRang.Address, ":", ""), "$")
If UBound(myArry) <> 2 Then
MsgBox "セル範囲を選択しています。" & myRang.Address
Else
If IsNumeric(myArry(1)) Then
MsgBox "行を選択しています。" & myRang.Address
Else
MsgBox "列を選択しています。" & myRang.Address
End If
End If
Next
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは。
>なんとなくスマートでなく、場当たり的な感じがしますが、どのようにすればいいのか判りません!!
Split(Replace(myRang.Address, ":", ""), "$")
ここまでのレベルまで使ってしまって、なんとなくすっきりこない、その気持ちは分かるけれども、それを、自分の外に求めないほうがよいと思いますね。1年前の自分と比較して進歩しているなら、それで良いと思います。
年数やコードの数を重ねれば、それなりに、満足いくような格好にはなるけれども、「エラーなく、動きさえすれば良いのだ」と思って、先に進んでいくしかないと思います。ご質問のコードでも立派なものだと思います。ある別の掲示板の常連さんのコードを思い出しました。その方は、そういうスタイルの書き方で掲示板にいつも書いています。だから、キリがないです。
私だって、こんなことは自信があるわけではありません。
ただ、なるべく、エラー・フリー(エラーを出さない)を目指す、それだけだと思います。
Sub Test2()
Dim r As Range
Dim a As Range
Dim i As Long, j As Integer
Dim msg As String
If StrComp(TypeName(Selection), "Range", 1) <> 0 Then Exit Sub
Set r = Selection
For Each a In r.Areas
i = a.Rows.Count
j = a.Columns.Count
If a.Count = 1 Then
msg = "1つのセルを選択しています。"
ElseIf i > 1 And j > 1 Then
msg = "セル範囲を選択しています。"
ElseIf i > 1 Then
msg = "列を選択しています。"
ElseIf j > 1 Then
msg = "行を選択しています。"
End If
MsgBox msg & ": " & a.Address, 64
Next a
Set r = Nothing
End Sub
No.3
- 回答日時:
こんにちは。
"ある別の掲示板の常連"です。遅すぎるレスですが、とりあえず、ご要望のものを...。
Sub Test_SS()
Dim strM As String
'' ...MsgBoxで表示する文字列
Dim strB As String
'' ...一時的に格納する文字列(使いまわし)
Dim strRngA() As String
'' ...Addressを","区切りで(各Area毎に)文字列の配列に
Dim strBA() As String
'' ...各strRngAを"$"区切りで文字列の配列に(使いまわし)
Dim i As Integer
strB = ActiveWindow.RangeSelection.Address
strRngA = Split(strB, ",")
For i = 0 To UBound(strRngA)
strM = strM & CStr(i + 1)
strB = strRngA(i)
' If strB = "$1:$65536" Then
'strM = strM & "_すべてのセル_"
' Else
strBA = Split(strB, "$")
If UBound(strBA) And 4 Then
strM = strM & "_セル範囲_"
ElseIf CBool(Val(strBA(1))) Then
strM = strM & "_行範囲_"
ElseIf Not CBool(Val(strBA(2))) Then
strM = strM & "_列範囲_"
Else
strM = strM & "_単一セル_"
End If
' End If
strM = strM & strB & vbLf ' & vbLf
Next i
'Erase strBA
'Erase strRngA
strM = strM & "以上の 範囲 を選択中です。"
'strM = Replace$(strM, "$", "")
'strM = StrConv(strM, vbWide)
MsgBox strM
End Sub
''注:「無くても動く」部分をコメント('以下)にしておきます
''Excel2000/2002で動作確認済です
Rangeオブジェクトやプロパティの参照・取得を減らして、
文字列変数でループ処理することでパフォーマンスを高める
という狙い(?)ならば、"すっきり"したのではないでしょうか。
行数・字数を減らす意味なら、色々出来ると思いますが、
できるだけ「犠牲」にするもののないように書いてみました。
但し、このような目的の為だけに、
こうした記述を実践で使うかといえば、微妙です。
目的を実現する方法だけを問う質問だったなら、
Q&Aの回答として書くか、は、NOです。
(#1さん#2さんのような記述が一般的で妥当だと思います)
記述が長くなるということは、
「エラーの機会が増える」
「メンテナンスが複雑になる」
一般的でない書き方をするということは、
「他の人が管理・メンテナンスすることを難しくする」
といった「犠牲」を払うことになります。
どうしても必要な記述で、人に配布する場合には、
管理者向けの丁寧な説明文とセットで考える必要があるでしょう。
そこまでする必要があるのかないのか、実践での判断、
それ以前に、色々な方法がある中で、目的に照らして、
前提にした選択肢が十分で適当なものかどうか、
私はいつも考えさせられます。
昨年下半期の個人的な課題として掲げていたのが、
・次の実践の機会に正しい選択ができるように幅を拡げる研究。
・出来上がった自分のスタイルを、疑って、壊して、再構築。
本来は個人的に行う学習・探求なのですが、こうした事を
他者と共有できる場-"ある別の掲示板"のトピックス-で、
ご提示のコードに良く似た内容のものを書いたことがあります。
その時は、Range参照文字列そのものを編集・加工して
新たなRangeオブジェクトを合成する、という目的でしたので、
それなりに整合性はあったと思っているのですが、
説明不足や不備があって誤解を招いた面もあったようです。
こうした経緯がありましたので此処に出てくることにしました。
この場に書いて良いか迷う点もありました。
よかったら"ある別の掲示板"にも遊びに来ませんか?
ご活躍を期待しております。頑張ってください。
No.2
- 回答日時:
オーソドックスなのをひとつ。
。'--------------------------------------------
Sub Test()
Dim myRang As Range
For Each myRang In Selection.Areas
If myRang.Columns.Count = Columns.Count Then
MsgBox "行選択: " & myRang.Address
ElseIf myRang.Rows.Count = Rows.Count Then
MsgBox "列選択: " & myRang.Address
Else
MsgBox "セル選択: " & myRang.Address
End If
Next
End Sub
'---------------------------------------------
因みに質問者提示のコードでは、セルを【ひとつ選択】したとき正しいメッセージが出ないのでは?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
このQ&Aを見た人はこんなQ&Aも見ています
-
つい集めてしまうものはなんですか?
人間誰もは1つ「やたらこればかり集めてしまう」というものがあるもの。 あなたにとって、つい集めてしまうものはなんですか?
-
チョコミントアイス
得意ですか?不得意ですか?できれば理由も教えてください。
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
おすすめのモーニング・朝食メニューを教えて!
コメダ珈琲店のモーニング ロイヤルホストのモーニング 牛丼チェーン店の朝食などなど、おいしいモーニング・朝食メニューがたくさんありますよね。
-
好きな和訳タイトルを教えてください
洋書・洋画の素敵な和訳タイトルをたくさん知りたいです!【例】 『Wuthering Heights』→『嵐が丘』
-
エクセルVBAでRangeの引数制限?
Excel(エクセル)
-
エクセル 一定の条件に沿ってデータを変換する方法を教えてください。
Excel(エクセル)
-
For Nextマクロの高速化についてご教示ください。
Excel(エクセル)
-
-
4
VBAで配列のデータを検索
PowerPoint(パワーポイント)
-
5
エクセルVBA フォーム上でOnkeyがうまく出来ない
Excel(エクセル)
-
6
Excel_VBAでハイパーリンクの削除時の書式
Excel(エクセル)
-
7
エクセルVBAでもっと早く転記
PowerPoint(パワーポイント)
-
8
VBA For Eachでセル内の文字列を一個ずつ取り出すには
Excel(エクセル)
-
9
VBA/Worksheet_Changeがうまくいかない
PowerPoint(パワーポイント)
-
10
GoogleDoc.Spreadsheet配列数式
Excel(エクセル)
-
11
VBA DictionaryオブジェクトのItemについての質問です。
Excel(エクセル)
-
12
VBA/エクセルの日付入力でYYYYMMDD
Excel(エクセル)
-
13
VBAでURLからソース内の指定文字列を取り出す
Visual Basic(VBA)
-
14
配列を初期化する時ってどうすればいいですか?
Excel(エクセル)
-
15
無限ループ objIE.Navigate
Visual Basic(VBA)
-
16
エクセルVBAで読み取りパスワード回避
Excel(エクセル)
-
17
エクセルVBA 他の仕事を止めない時間稼ぎ
Visual Basic(VBA)
-
18
VBAでオブジェクトがありません、となってしまう
Visual Basic(VBA)
-
19
「timer」の不思議
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで連続データから、数...
-
excelで、スクロールをすると限...
-
複数のセルの入力内容を一度に...
-
EXCEL アルファベットと数字の...
-
エクセルの画面で十字マークが...
-
エクセル 画面上の行数を調節...
-
エクセルで、結合したセルを選...
-
セルをクリックすると付箋のよ...
-
エクセル 数値を全て「1」にす...
-
Excel選択を繰り返すとセルの色...
-
excelで1行ごとに一気に削除す...
-
ピポットテーブルエラー解決方法
-
エクセルでハイパーリンクのU...
-
Shift押しながら、矢印ボタンで...
-
エクセルで任意のセルをクリッ...
-
Excelで表のデータを並び替えた...
-
エクセルで0を除いて昇順に並...
-
Excel 小さくなったスクロール...
-
Excelでctrl+Aで全選択してdele...
-
inputboxの出力位置
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルで連続データから、数...
-
EXCEL アルファベットと数字の...
-
複数のセルの入力内容を一度に...
-
エクセルの画面で十字マークが...
-
excelで1行ごとに一気に削除す...
-
セルをクリックすると付箋のよ...
-
エクセルで、結合したセルを選...
-
エクセル 数値を全て「1」にす...
-
エクセル 画面上の行数を調節...
-
Excel選択を繰り返すとセルの色...
-
Excelで表のデータを並び替えた...
-
エクセルでハイパーリンクのU...
-
エクセルで1つおきに列を削除...
-
エクセルで0を除いて昇順に並...
-
Shift押しながら、矢印ボタンで...
-
エクセルでカーソルが四方に矢...
-
Excel 小さくなったスクロール...
-
フィルタを解除した後の表示位置
-
ピポットテーブルエラー解決方法
おすすめ情報