いつもお世話になります
mythism様に教えていただいた下記マクロについて
もう1つ教えていただきたいのですが
t = 3
While Cells(t, 3).Value <> ""
t = t + 1
Wend
If 1 < t Then
Range("c3:n" & Trim(Str(t - 1))).Locked = True
End If
Range("c" & Trim(Str(t)) & ":n" & Trim(Str(t + 99))).Locked = False
Range("c" & Trim(Str(t)) & ":n" & Trim(Str(t))).Interior.ColorIndex = 36
最後の行に黄色の塗りつぶしをしてうまくいきました
塗りつぶしの次の行のE列に
Range("E19").Select 19行になったとして
VLOOKUPをいれたいのですが
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],漁師名!R2C3:R31C4,2,FALSE)"
Range("E19").Selectの部分は
どうしたらいいでしょうか
よろしくお願いいたします
No.1ベストアンサー
- 回答日時:
ご質問の内容は、
Range("c" & Trim(Str(t)) & ":n" & Trim(Str(t))).Interior.ColorIndex = 36
の処理により、例えば19行目を塗りつぶした場合、
19行目のE列に"=VLOOKUP(RC[-4],漁師名!R2C3:R31C4,2,FALSE)"という関数を入力したい、ということでよろしいでしょうか?
もしそのような意味でしたら、
Range("c" & Trim(Str(t)) & ":n" & Trim(Str(t))).Interior.ColorIndex = 36
に続けて、
Cells(t, 5).FormulaR1C1 = "=VLOOKUP(RC[-4],漁師名!R2C3:R31C4,2,FALSE)"
とすると上手くいくと思います。
範囲ではなく特定のセルの場合には、Cells(行, 列)で指定した方が簡単です。行と列の指定はR1C1系的に考えましょう。
次の行のE列目でしたらCells(t, 5)をCells(t + 1, 5)に変更してください。
頑張ってくださいね。
追伸。質問者さんがおこなった先の質問の内容が、それに関わっていなかった回答者さんにはさっぱりわからなくなっておりますよね。先の質問の質問Noか、質問のURLを質問中に書いておいたほうが、参加できる回答者さんの数も増えて、質問者さんご自身の利益になってよろしいかと思います。
いつもありがとうございます
>それに関わっていなかった回答者さんにはさっぱりわからなくなっておりますよ
あせって完全に忘れていました
とりあえず他の回答者様に迷惑なので
一旦閉じます
ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) エラー処理 3 2022/04/11 14:58
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) vba 15 2023/04/07 12:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字列の結合を空白行まで実行
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
【VBA】2つのシートの値を比較...
-
B列の最終行までA列をオート...
-
Changeイベントでの複数セルの...
-
VBAを使って検索したセルをコピ...
-
エクセルでフォームのチェック...
-
VBA 値と一致した行の一部の列...
-
VBAで、特定の文字より後を削除...
-
VBAで10行おきにセルの下に罫線...
-
VBAコンボボックスで選択した値...
-
データグリッドビューの一番最...
-
マクロ 最終列をコピーして最終...
-
VBAのFind関数で結合セルを検索...
-
rowsとcolsの意味
-
空白セルをとばして転記
-
追記する列を増やしたい 2つの...
-
【VBA】複数行あるカンマ区切り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
VBAのコードを教えてください
-
VBAを使って検索したセルをコピ...
-
B列の最終行までA列をオート...
-
エクセルvbaについて
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
VBA UserFormからの転記で
-
VBAのFind関数で結合セルを検索...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
エクセルVBAにて =A1=B1とすれ...
-
【VBA】2つのシートの値を比較...
-
データグリッドビューの一番最...
-
VBマクロ 色の付いたセルを...
-
VBAで指定範囲内の空白セルを左...
おすすめ情報