WorkSeet Chengeで
If Target.Range("E20:E100") Then
If Target.Offset(0,1)<>"" Then
Target=Target.Offset(-1,0)
End If
End If
E20からE100の間でもし右隣のセルに何か入力されたら上のセルと同じ値を表示する、ということをやりたいのですが、一行目でエラーになってしまいます。
選択範囲の指定の仕方が間違っているのでしょうか?
教えて下さい。
初歩的な質問で恐縮ですが、よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こうしたいってことでしょか?
If Target.Row >= 20 And Target.Row <= 100 And Target.Column = 5 Then
If Target.Offset(0, 1) <> "" Then
Target = Target.Offset(-1, 0)
End If
End If
難しいですが、
Target.Range("E20:E100")
これだと、「変更したtargetがRange("E20:E100")かどうか」ではなく「変更したtargetの中にはRange("E20:E100")が存在するかどうか」
という意味になってしまいます。でも、targetはひとつのセルでしかないので、その中にセル列が存在することはないのでエラーとなってしまいます。
なので、「変更したtargetは20行以降であり、100行以内であり、5列目であるかどうか」という質問で無いと意味が成り立たなくなります。
- - - - - -
ただ、このソースだと望みの結果になってないような……
「E列の内容を変更した際、右隣にデータがあったら上のものを同じにする」でしたらいいのですが、
「E列の右隣のセルの内容を変更した際、その変更したセルにデータがあったら上のものを同じにする」
という場合、Target.Column = 5ではなくTarget.Column = 6となります。
いろいろ難しいところはありますが、この勉強はどの局面でも役立ちますからがんばってくださいませ。
やはり範囲の指定の仕方が間違っていたんですね。
大変分り易く説明して頂き助かります。
おっしゃる通りに直して無事解決しました。
回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
エクセル マクロで セルの範囲を指定する方法
Visual Basic(VBA)
-
targetをA列のセルに限定するには?
Visual Basic(VBA)
-
-
4
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
5
セルの値が変ると自動でマクロが実行される。
その他(Microsoft Office)
-
6
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
同じシート内にイベントプロシージャが二つある時
Excel(エクセル)
-
9
エクセルのVBA 特定のセルでエンターキーでマクロ実行
Excel(エクセル)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
12
EXCEL:特定の文字が入力された日付を表示する方法
Excel(エクセル)
-
13
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
14
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
15
VBA Constの指定シートのセルを指定する方法
Visual Basic(VBA)
-
16
Worksheet.Change イベントを他のシートにも反映させる方法?
Visual Basic(VBA)
-
17
VBA target.offset セル結合
Excel(エクセル)
-
18
【Excel VBA】 B列に特定の文字列があった場合にA列の値を変更する
Visual Basic(VBA)
-
19
エクセルVBAのエディターが上書きモード?に・・・・。
Excel(エクセル)
-
20
Excelマクロ、フォーム入力での矢印移動禁止
Excel(エクセル)
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
他シートのある列を検索して一...
-
エクセルで0.0と表示したい
-
excelで小数点0を表示させる方法
-
vlookupで返された値が空白だっ...
-
【EXCEL】関数で計算された数字...
-
エクセル 絶対値の合計
-
Excelマクロに詳しい方教えてく...
-
Excelで合計の金額を違うセルに...
-
セルの数式を計算させないで文...
-
Googleスプレッドシートで合計...
-
エクセルで運賃計算
-
Excel条件付で偶数・奇数を判断...
-
Excelでの関数数式は分かるので...
-
エクセル 背景色のついたセル位...
-
numbersで累計を計算するには
-
IF関数について
-
EXCELで上位10個のデータを平均...
-
マクロ クリックしたら色変わる
-
エクセルのIF関数について
-
エクセル 小数点第2位 切捨て...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで小数点0を表示させる方法
-
エクセルで0.0と表示したい
-
エクセル 絶対値の合計
-
他シートのある列を検索して一...
-
【EXCEL】関数で計算された数字...
-
vlookupで返された値が空白だっ...
-
エクセルで
-
指定した範囲内のセルが全て入...
-
セルの数式を計算させないで文...
-
Excelで合計の金額を違うセルに...
-
EXCELで上位10個のデータを平均...
-
エクセル .50以下で切り捨て、...
-
エクセルで網掛けをしたセルを...
-
エクセルの文字列を結合しても...
-
Googleスプレッドシートで合計...
-
Excel VBAにてUserFormのTextBo...
-
エクセル 背景色のついたセル位...
-
エクセルでコピー。結合もセル...
-
numbersで累計を計算するには
-
エクセルで運賃計算
おすすめ情報