![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
一つのシートで、複数のセル範囲を選択している場合に、セル範囲を選択しているのか?列、行を選択しているのかを判別する方法として次のようなのを考えました。
それとなく動いているのですが、なんとなくスマートでなく、場当たり的な感じがしますが、どのようにすればいいのか判りません!!
どなたか、アドバイス頂けないでしょうか?宜しくお願いいたします。
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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで連続データから、数...
-
excelで、スクロールをすると限...
-
複数のセルの入力内容を一度に...
-
EXCEL アルファベットと数字の...
-
excelで1行ごとに一気に削除す...
-
エクセルの画面で十字マークが...
-
セルをクリックすると付箋のよ...
-
エクセル 数値を全て「1」にす...
-
エクセル 画面上の行数を調節...
-
エクセルでハイパーリンクのU...
-
Excel 小さくなったスクロール...
-
エクセルでカーソルが四方に矢...
-
エクセルで、結合したセルを選...
-
エクセルで1つおきに列を削除...
-
エクセルVBA 複数行にまたがっ...
-
Excel選択を繰り返すとセルの色...
-
列選択で勝手に広範囲に範囲選...
-
Excelで表のデータを並び替えた...
-
エクセル 複数セルを選択する...
-
ピポットテーブルエラー解決方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルで連続データから、数...
-
複数のセルの入力内容を一度に...
-
エクセルの画面で十字マークが...
-
EXCEL アルファベットと数字の...
-
excelで1行ごとに一気に削除す...
-
エクセル 画面上の行数を調節...
-
セルをクリックすると付箋のよ...
-
Excel 小さくなったスクロール...
-
エクセル 数値を全て「1」にす...
-
エクセルでハイパーリンクのU...
-
Excelで表のデータを並び替えた...
-
エクセルで任意のセルをクリッ...
-
エクセルで1つおきに列を削除...
-
エクセルで、結合したセルを選...
-
Excel選択を繰り返すとセルの色...
-
エクセルで0を除いて昇順に並...
-
エクセルでカーソルが四方に矢...
-
ピポットテーブルエラー解決方法
-
Shift押しながら、矢印ボタンで...
おすすめ情報