A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
名前検索といっているのは、苗字で検索したいのか。
苗字と名前は(全部の人で統一して)全角か半角の1スペースで別れているのでしょうね。そういうことを書くのが大事なんだ。
それには見出し実例だけでなく、模擬データを質問異書くこと。
FindメソッドやFirutaやそのワイルドカード利用の方法もあるが、VBAはそんなに詳しくないだろう。だから泥臭いがわかりやすいコードにしておく。
ーー
例データ(こういうように簡略に模擬実例はかけるという見本)
A2:B6
山田 三郎江戸川区
木下 安雄大田区
鈴木 一浪横浜市
大田 五郎三鷹市
鈴木 文雄千葉市
D1セル
鈴木
コード
Private Sub CommandButton1_Click()
d = Range("a65536").End(xlUp).Row
MsgBox d
k = 2
For i = 1 To d
p = InStr(Cells(i, "A"), Range("D1"))
If p <> 0 Then
Cells(k, "J") = Cells(i, "A")
Cells(k, "K") = Cells(i, "B")
k = k + 1
End If
Next i
End Sub
ーー
結果
J2:K3
鈴木 一浪横浜市
鈴木 文雄千葉市
これを参考に勉強のこと。
得rつすうが増えても
Cells(k, "K") = Cells(i, "B")
いかが増えるだけ。
データ行数(のオーダー)も質問にいてないが、10000人以下なら処理速度も大丈夫だろう。
上記のコードは苗字に拘ってないが。
Instrの行でRange("D1")&" ”にすればそれらしくなろう。
なおじょうきはコマンドボタンはシートに貼り付けた例。
No.2
- 回答日時:
こんばんは!
一例です。
便宜上、↓の画像のような配置でのコードです。
ユーザーフォームではなく、コマンドボタンをクリックするとインプットボックスが表示され、それに苗字のみ(最初の1文字だけでもOK)を入力するとH~M列に表示されるようにしてみました。
コントロールツールボックスから「コマンドボタン」を挿入 → コマンドボタンをダブルクリックしVBE画面に↓のコードをコピー&ペーストしてください。
(コードの1行目と最終行は表示されているはずですので、2行目以降を貼り付けます)
Private Sub CommandButton1_Click()
Dim i, j As Long 'この行から
Dim str As String
str = InputBox("苗字を入力してください。")
j = Cells(Rows.Count, 8).End(xlUp).Row
If j > 1 Then
Range(Cells(2, 8), Cells(j, 13)).ClearContents
End If
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("C:C"), str & "*") = 0 Then
MsgBox "該当データがありません。"
Exit Sub
Else
If Cells(i, 3) Like str & "*" Then
With Cells(Rows.Count, 8).End(xlUp).Offset(1)
.Value = Cells(i, 1)
.NumberFormatLocal = "m月d日" '←表示形式は適宜変更してください。
.Offset(, 1) = Cells(i, 2)
.Offset(, 2) = Cells(i, 3)
.Offset(, 3) = Cells(i, 4)
.Offset(, 4) = Cells(i, 5)
.Offset(, 5) = Cells(i, 6)
End With
End If
End If
Next i
Columns("H:M").AutoFit 'この行まで
End Sub
参考になれば良いのですが・・・m(__)m
この回答への補足
tom04さん 回答ありがとうございます。
だいぶ エクセルから 離れていて2010ですので
コマンドボタンだすのも手間取りましたが・・・・
すごいです。できるんですね。
検索に関しての ご指導ありがとうございます。
No.1
- 回答日時:
>ユーザーホーム コマンドボタンなどを使い
マクロを使ってって事ですよね
>sheets1の対応する場所に転記
この動作であれば、ボタンクリック時に行われる動作をマクロの記録で記録しする事で割りと簡単に対応できそうですね
>検索ボタンで 名前検索をしたいのですが
この操作もフィルター機能で絞り込む動作をマクロの記録で記録して、フィルターの条件指定の部分だけ少しマクロを変更すれば可能と思います
簡単と言えば簡単だけど、VBA知らないと難しいかな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
スクロールしてもボタンを常に...
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
EXCELでNo.を変えて印刷したい
-
押したボタンの位置取得(共通の...
-
Accessのコマンドボタンの立体...
-
エクセルVBA
-
エクセルVBA シート上にあるコ...
-
[ExcelVBA] コマンドボタンを押...
-
コマンドボタンがあるかどうか...
-
エクセルVBAでOptionButtonのオ...
-
PPTのコマンドボタンがクリック...
-
access レコード移動の早送り的な
-
コマンドボタン 改行したい
-
excelコマンドボタンと内容を別...
-
ShowAllDataのエラーを回避したい
-
Excel VBA --- コマンドボタ...
-
スペシャルねこまんま57号での...
-
マクロボタンを別のファイルで...
-
EXCELのコマンドボタンが消えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドボタンを押すたびに大...
-
Excel:コマンドボタンの移動
-
スクロールしてもボタンを常に...
-
押したボタンの位置取得(共通の...
-
コマンドボタンがあるかどうか...
-
Accessのコマンドボタンの立体...
-
PPTのコマンドボタンがクリック...
-
ShowAllDataのエラーを回避したい
-
エクセルVBAでOptionButtonのオ...
-
エクセルVBA
-
EXCELでNo.を変えて印刷したい
-
Excel VBA --- コマンドボタ...
-
エクセルVBA シート上にあるコ...
-
Wordでドラッグした文字列を括...
-
Accessユーザーフォームでコマ...
-
コマンドボタンがきかなくなる
-
excelコマンドボタンと内容を別...
-
ROCKET MOUSEの使い方
-
コマンドボタンで「終了ボタン...
-
エミュレータでジョイパットを...
おすすめ情報