一つのシートで、複数のセル範囲を選択している場合に、セル範囲を選択しているのか?列、行を選択しているのかを判別する方法として次のようなのを考えました。
それとなく動いているのですが、なんとなくスマートでなく、場当たり的な感じがしますが、どのようにすればいいのか判りません!!
どなたか、アドバイス頂けないでしょうか?宜しくお願いいたします。
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も見ています
-
【お題】NEW演歌
【大喜利】 若い人に向けたことは分かるけど、それはちょっと寄せ過ぎて変になってないか?と思った演歌の歌詞
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
「覚え間違い」を教えてください!
私はかなり長いこと「大団円」ということばを、たくさんの団員が祝ってくれるイメージで「大円団」だと間違えて覚えていました。
-
いけず言葉しりとり
はんなりと心にダメージを与える「いけず言葉」でしりとりをしましょう。 「あ」あら〜しゃれた服着てはりますな 遠くからでもわかりましたわ
-
好きな和訳タイトルを教えてください
洋書・洋画の素敵な和訳タイトルをたくさん知りたいです!【例】 『Wuthering Heights』→『嵐が丘』
-
For Nextマクロの高速化についてご教示ください。
Excel(エクセル)
-
エクセルVBA フォーム上でOnkeyがうまく出来ない
Excel(エクセル)
-
エクセルVBAでRangeの引数制限?
Excel(エクセル)
-
-
4
エクセル 一定の条件に沿ってデータを変換する方法を教えてください。
Excel(エクセル)
-
5
VBA DictionaryオブジェクトのItemについての質問です。
Excel(エクセル)
-
6
エクセルVBAでもっと早く転記
PowerPoint(パワーポイント)
-
7
Excel_VBAでハイパーリンクの削除時の書式
Excel(エクセル)
-
8
VBA For Eachでセル内の文字列を一個ずつ取り出すには
Excel(エクセル)
-
9
VBA/Worksheet_Changeがうまくいかない
PowerPoint(パワーポイント)
-
10
VBAで配列のデータを検索
PowerPoint(パワーポイント)
-
11
GoogleDoc.Spreadsheet配列数式
Excel(エクセル)
-
12
VBAでオブジェクトがありません、となってしまう
Visual Basic(VBA)
-
13
VBA/エクセルの日付入力でYYYYMMDD
Excel(エクセル)
-
14
VBAでURLからソース内の指定文字列を取り出す
Visual Basic(VBA)
-
15
無限ループ objIE.Navigate
Visual Basic(VBA)
-
16
「timer」の不思議
Excel(エクセル)
-
17
エクセルVBA 他の仕事を止めない時間稼ぎ
Visual Basic(VBA)
-
18
配列を初期化する時ってどうすればいいですか?
Excel(エクセル)
-
19
エクセルVBAで読み取りパスワード回避
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/22】このサンタクロースは偽物だと気付いた理由とは?
- ・お風呂の温度、何℃にしてますか?
- ・とっておきの「まかない飯」を教えて下さい!
- ・2024年のうちにやっておきたいこと、ここで宣言しませんか?
- ・いけず言葉しりとり
- ・土曜の昼、学校帰りの昼メシの思い出
- ・忘れられない激○○料理
- ・あなたにとってのゴールデンタイムはいつですか?
- ・とっておきの「夜食」教えて下さい
- ・これまでで一番「情けなかったとき」はいつですか?
- ・プリン+醤油=ウニみたいな組み合わせメニューを教えて!
- ・タイムマシーンがあったら、過去と未来どちらに行く?
- ・遅刻の「言い訳」選手権
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで連続データから、数...
-
excelで、スクロールをすると限...
-
複数のセルの入力内容を一度に...
-
EXCEL アルファベットと数字の...
-
excelで1行ごとに一気に削除す...
-
エクセルの画面で十字マークが...
-
Excel 小さくなったスクロール...
-
エクセルでハイパーリンクのU...
-
エクセルで、結合したセルを選...
-
セルをクリックすると付箋のよ...
-
エクセル 画面上の行数を調節...
-
エクセル 数値を全て「1」にす...
-
エクセルVBAでセル範囲のデータ...
-
Excelで表のデータを並び替えた...
-
エクセルでウインドウ枠を固定...
-
ピポットテーブルエラー解決方法
-
Excel選択を繰り返すとセルの色...
-
エクセルで任意のセルをクリッ...
-
Excelで急に動かなくなる
-
エクセルで0を除いて昇順に並...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルで連続データから、数...
-
EXCEL アルファベットと数字の...
-
複数のセルの入力内容を一度に...
-
エクセルの画面で十字マークが...
-
excelで1行ごとに一気に削除す...
-
セルをクリックすると付箋のよ...
-
エクセルで、結合したセルを選...
-
エクセル 数値を全て「1」にす...
-
エクセル 画面上の行数を調節...
-
Excel選択を繰り返すとセルの色...
-
Excelで表のデータを並び替えた...
-
エクセルでハイパーリンクのU...
-
エクセルで1つおきに列を削除...
-
エクセルで0を除いて昇順に並...
-
Shift押しながら、矢印ボタンで...
-
エクセルでカーソルが四方に矢...
-
Excel 小さくなったスクロール...
-
フィルタを解除した後の表示位置
-
ピポットテーブルエラー解決方法
おすすめ情報