No.1
- 回答日時:
はじめまして。
2つの文字列というのは、例えば"たこ"と"たい"というように文字が決まっているのですか。それとも"いか"と"ひらめ"とか"たこ"と"ひらめ"というように、任意の2文字を使いたいのですか。それによってコードが違ってきます。
その点についてお知らせ下さい。私でよろしければ、サンプルマクロを作ってみたいと思います。
お手数をおかけいたしますが、よろしくお願いいたします。
スミマセン。決まった文字で任意の文字ではなかったのですが、私が書き込みをする前に、他に回答が出てしまいました。
お気を遣っていただき、本当にありがとうございます。
No.2
- 回答日時:
sheet1の任意のセルにaとbを入れた時、そのセルを対角2隅
とする範囲を選択します。
Sub test01()
Dim a As Range
Set a = Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
x = a.Row
y = a.Column
Set a = Cells.Find(What:="b", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
u = a.Row
v = a.Column
Range(Cells(x, y), Cells(u, v)).Select
End Sub
ありがとうございます。ちょっとだけ質問の意味と違いましたが、別のことで使えそうです。メモメモ。
本当にありがとうございます。今回は2番手という事でご勘弁を。(^^;
No.3ベストアンサー
- 回答日時:
質問の意味とあっているか疑問ですが、参考例です。
Sub areaSelect()
Dim startRg As Range '最初のセル
Dim endRg As Range '最後のセル
Set startRg = Range("A:A").Find("たこ")
Set endRg = Range("A:A").Find("たい")
With startRg
Range(.Offset(0, 0), .Offset(endRg.Row - .Row, 5)).Select
End With
End Sub
ありがとうございます。上手く行きました。
単純な事とは思いながら、動いてくれなくて困ってました。勉強になりました。
本当にありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) エクセルのマクロを教えてください 2 2022/05/13 10:21
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Word(ワード) Wordの表中の文字を選択した時の白黒反転の違い 1 2023/04/25 12:13
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
クリックすると文章が表示され...
-
シート保護とグループ化機能を...
-
Excelでセルをクリックす...
-
太字に設定されているセルの個...
-
Excel内での検索結果をシート...
-
フォントの色を指定して削除出...
-
アポストロフィーの一括挿入 ...
-
Excelで、図形内の文字をセルに...
-
Excelで挿入した図をセルの中央...
-
VBA 見つからなかった時の処理
-
エクセル 未入力セルがあると...
-
EXCELのセルや文字色の反映
-
現在のセルの位置を返す関数は...
-
エクセルでの検索ボックスの作...
-
エクセル VBA セルをクリ...
-
sheetsの保護されていないセル...
-
【EXCEL】先週の月曜日の日付を...
-
空白セルを空セルに置き換える...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
太字に設定されているセルの個...
-
Excel ハイパーリンクのURLを別...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
現在のセルの位置を返す関数は...
-
Excelで挿入した図をセルの中央...
-
フォントの色を指定して削除出...
-
VBA 見つからなかった時の処理
-
エクセルでの検索ボックスの作...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
エクセルでPDFリンクを大量...
-
【EXCEL】先週の月曜日の日付を...
-
EXCELのセルや文字色の反映
-
セルがクリックされた回数をカ...
おすすめ情報