No.2
- 回答日時:
シートのイメージがよくわかりません。
添付のような画像を提示していただけますか。
G5、G7の箇所を検索したいのでしょうか。(赤線で囲んだ箇所)
それなら、G列の2行目から、空白セルを検索すれば良いだけです。
Indexナンバーで検索したいなら、A列の2行目からIndexナンバーで検索すれば良いだけです。
ありがとうございます!!
すみません!あまりPCに不慣れなもので!
提示していただいたイメージです。
現在BからFにもデータが入っています。
甘えてもよろしければ、INDEXナンバーで検索とはどのようにすれば?
現在はオートフィルタを利用しているのですが、あまり使い勝手が
良くないもので。
宜しければ教えていただければと思っています。
No.3
- 回答日時:
>甘えてもよろしければ、INDEXナンバーで検索とはどのようにすれば?
>現在はオートフィルタを利用しているのですが、あまり使い勝手が良くないもので。
A2から最後の行(図ではA8)まで、テキストボックスのINDEXナンバーと同じか比較します。
いずれにしろ、何をなさりたいのかが、よくわかりません。
1.1行目は見出し行であり、データ行は2行目から始まる。
2.IndexナンバーはA列、データはG列にある。
ということまでは、わかったのですが、
①テキストボックス1にIndexナンバーを入力し、検索用ボタンをクリックした時、どうしたいのか不明。
②テキストボックス1にIndexナンバーを入力し、再登録用ボタンをクリックした時、どうしたいのか不明。
③テキストボックス2にデータを入力し、検索用ボタンをクリックした時、どうしたいのか不明。
④テキストボックス2にデータを入力し、再登録用ボタンをクリックした時、どうしたいのか不明。
何をどうしたいのか、もっと具体的に提示してください。
どうも説明がへたなようで..
①A列に固有の番号(INDEXナンバー)がふってありBからF列まではデータが入力されています。
②G列はAからF入力時には空欄で後日入力します。
行いたいこと
①ユーザフォームを利用してテキストボックス1にINDEXナンバーを入力し、コマンド1で検索を行い該当行のG 列を選択させたい
②選択されたセルにテキストボックス2利用して入力し、再登録ボタンでシートG列該当行にデータが入力されるというものです。
お付き合いくださりありがとうございます。
No.4ベストアンサー
- 回答日時:
以下の用にしてください。
CommandButton1が検索用
CommandButton2が再登録用です。
Dim Grow As Longは選択されたG列の行を記憶します。
マクロの上部に記述してください。(このフォーム内での共有変数にします)
-----------------------------------
Option Explicit
Dim Grow As Long
Private Sub CommandButton1_Click()
Dim row, rowmax As Long
Worksheets("Sheet1").Activate
rowmax = Cells(Rows.Count, "A").End(xlUp).row
Grow = 0
For row = 2 To rowmax
If Cells(row, "A").Value = TextBox1.Text Then
Cells(row, "G").Select
Grow = row
Exit For
End If
Next
If Grow = 0 Then
Cells(1, "G").Select
MsgBox ("該当Indexなし:" & TextBox1.Text)
End If
End Sub
Private Sub CommandButton2_Click()
If Grow = 0 Then
MsgBox ("G列は選択されていません")
Exit Sub
End If
Worksheets("Sheet1").Activate
Cells(Grow, "G").Value = TextBox2.Text
MsgBox ("更新完了")
End Sub
-----------------------------------------
No.6
- 回答日時:
>Findメソッドとかやってはみてるのですが
そこまでご存じで上手くいかないのなら、いっそコードを載せて修正やアドバイスを受けられては?
私個人の考えで言うなら
>①A列に固有の番号(INDEXナンバー)がふってあり
これを右にシフトしてB列とし、改めてA列に単純な1から始まる普通の連番を入れては?と考えましたが、
その固有番号で検索したいのなら、Findメソッドで検索可能な物であるのか否か実態がわからない事には・・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Web画面の文字をVB6で取得したい
-
【ExcelVBA】インデックスが有...
-
VBA 別ブックから条件に合うも...
-
Excel VBA 文字列のセルを反映...
-
VB.net(VB)で、フォームにExcel...
-
配列のペースト出力結果の書式...
-
エクセルのマクロについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
vbaにてseleniumを使用したedge...
-
メールの件名をデコードしたい
-
VBA 別ブックからコピペしたい...
-
VBA実行後に元のセルに戻りたい
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Excel-VBAのmsgBox()の不思議
-
郵便番号検索APIにてget Elemen...
-
VBA 入力箇所指定方法
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 別ブックからコピペしたい...
-
Vba ファイル書き込み時に書き...
-
Excel_VBAについて質疑です。(...
-
VBAの間違い教えて下さい
-
VBA コードどこがおかしいですか?
-
VBA 円グラフ 特定条件に一致し...
-
VBA 別ブックから条件に合うも...
-
pdfファイルの複数添付 引数の型
-
【ExcelVBA】インデックスが有...
-
ExcelVBAマクロで実行した時の疑問
-
Vba UserformからExcelシートの...
-
VBA初心者です。次のVBAコード...
-
Outlookの「受信日時」「件名」...
-
Excel 範囲指定スクショについ...
-
vbs ブック共有を解除
-
配列のペースト出力結果の書式...
-
Excel VBAで値を変えながら、pd...
-
VB.net(VB)で、フォームにExcel...
-
vbaにてseleniumを使用したedge...
-
ExcelVBA シート名を複数セルか...
おすすめ情報