- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
118 ：デフォルトの名無しさん[sage]：2015/01/22(木) 09:30:51.95 ID:4WNaJbbR - Set A = Worksheets("Sheet1").Cells.Find(B)
If A Is Nothing Then Exit Sub
Else A.Select
Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Date
この処理で、検索して見つかったらそのセルを選択して、
その後アクティブセルからいくつか移動したセルに日付を入れてるんだけど
選択→その位置から移動 の２回の処理をオブジェクト変数Aを使って１回で処理したいんだけど
どうしたらいい？
|
- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
121 ：デフォルトの名無しさん[sage]：2015/01/22(木) 11:44:29.12 ID:4WNaJbbR - なるほど(・ω・)
|
- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
122 ：デフォルトの名無しさん[sage]：2015/01/22(木) 14:09:02.53 ID:4WNaJbbR - ある列に↓のようにリストがあって
生産課 山田太郎 様
技術開発課 田中次郎 様
総務課 鈴木 様
...
フォームのテキストボックスに苗字を入力して、ボタンを押したら
別のテキストボックスに一致するセルの中身を出すようにしたいんだけど
同じ苗字が二人以上いる時に、まとめて抽出するにはどうしたらいい？
findで範囲内で一致するもの全てを同時に返すとかできますか？
|