No.1ベストアンサー
- 回答日時:
sub macro1()
dim res as string
dim w as worksheet
set w = activesheet
res = inputbox("市")
if res = "" then exit sub
application.screenupdating = false
range("B:B").autofilter field:=1, criteria1:="*" & res & "*"
worksheets.add
w.range("A1").currentregion.copy destination:=range("A1")
w.autofiltermode = false
application.screenupdating = true
end sub
などのように。
No.2
- 回答日時:
こんばんは!
一例です。
Sheet1のデータをSheet2に表示するようにしてみました。
項目は何列あっても大丈夫ですが、↓の画像のように検索列(住所欄)はB列とします。
Alt+F11キー → VBE画面が出ますので、↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub test() 'この行から
Dim i, j, k As Long
Dim ws1, ws2 As Worksheet
Dim str As String
Set ws1 = Worksheets("sheet1") '←Sheet名は適宜変更
Set ws2 = Worksheets("sheet2") 'こちらのSheet名も・・・
str = InputBox("検索したい市を入力してください。")
If WorksheetFunction.CountIf(ws1.Columns(2), "*" & str & "*") Then
ws2.Cells.Clear
i = ws1.Cells(Rows.Count, 1).End(xlUp).Row
j = ws1.Cells(1, Columns.Count).End(xlToLeft).Column
Range(ws1.Cells(1, 1), ws1.Cells(i, j)).AutoFilter _
field:=2, Criteria1:="*" & str & "*"
k = ws1.Cells(Rows.Count, 1).End(xlUp).Row
Range(ws1.Cells(1, 1), ws1.Cells(k, j)).Copy
ws2.Activate
ws2.Cells(1, 1).Select
ActiveSheet.Paste
Range(ws2.Columns(1), ws2.Columns(j)).AutoFit
ws1.Activate
ws1.Cells(1, 1).Select
Selection.AutoFilter
ws1.Cells(1, 1).Select
Else
MsgBox "データがありません。"
End If
End Sub 'この行まで
こんな感じではどうでしょうか?m(_ _)m
この回答へのお礼
お礼日時:2011/08/02 03:02
ショートカット方法など細かい配慮ありがとうございます。
しかし申し訳ないですが、最初に答えていただいかたにベストアンサーを送りたいと思います。
機会あればまたよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) Excelで質問です! 現在マクロを勉強中の初心者です。 以下のような表から、会社名が空白のもの以外 2 2022/06/14 12:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
既婚で現役のAV女優さんは居ま...
-
VBAが止まります。
-
私は今年で60歳で孤独です。40...
-
CDレコの曲の消し方を教えてく...
-
大昔から、クンニ、フェラって...
-
とても初歩的な質問
-
女性が頼まれなくてもフェラす...
-
Word 黒塗り部分の文字のみ削除...
-
射精したあとの匂いって他人に...
-
おっぱいを舐める
-
1日3回セックスって多いですか...
-
精液のにおいがほとんど無いの...
-
夫にセックスがないのなら他人...
-
先日彼氏とラブホに行ったら電...
-
彼とのエッチで、彼がイクのが...
-
彼女をオカズにして抜くのって...
-
男の精子ってどんな匂いですか、
-
手マンしたあと それとなく指の...
-
彼のペニスが挿入時に柔らかく...
-
手マンした手って臭いですか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
既婚で現役のAV女優さんは居ま...
-
VBA ソートすると、1、11、...
-
CDレコの曲の消し方を教えてく...
-
VBAが止まります。
-
EXCELで3行を一組にして結合す...
-
大昔から、クンニ、フェラって...
-
シンナーの夏型と冬型の違いは?
-
私は今年で60歳で孤独です。40...
-
別ブックの空白行に転記
-
女性が頼まれなくてもフェラす...
-
直線コネクタの中央にコネクタ...
-
エクセル最終行の下に貼り付け
-
相対参照から絶対参照に変換す...
-
データの平均を1分値にまとめる...
-
Word 黒塗り部分の文字のみ削除...
-
4次元について
-
ウォークマンa30についてです。...
-
Excelで抽出・連続印刷したいです
-
最適な組み合わせの自動計算
-
ExcelVBAで指定文字(この場合...
おすすめ情報