No.3ベストアンサー
- 回答日時:
No.2です。
>一括削除してもエラーの出ない方法・・・
とありましたので↓のコードに変更してみてください。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1:C100")) Is Nothing Then Exit Sub
Dim i As Long
If Selection.Count = 1 Then
If Target <> "" Then
Target.Offset(, -2) = "完了"
Else
Target.Offset(, -2) = ""
End If
Else
For i = 1 To 100
If Cells(i, 3) = "" Then
Cells(i, 1) = ""
End If
Next i
End If
End Sub
※ 1~100行目までのデータとしています。
※ ちゃんと検証していませんので、ご希望通りの動きにならなかったらごめんなさいね。m(_ _)m
No.2
- 回答日時:
こんばんは!
VBAがご希望だということなので・・・
一例です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてC列にデータを入れてみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("C1:C10")) Is Nothing Or Selection.Count <> 1 Then Exit Sub
If Target <> "" Then
Target.Offset(, -2) = "完了"
Else
Target.Offset(, -2) = ""
End If
End Sub 'この行まで
※ 不特定の数字でなく、空白以外ならというコトにしています。
※ 1セルずつの操作でないとA列データは変化しません。
(複数セルを選択 → Delete ではA列はそのままです)
こんなんで参考になりますかね?m(_ _)m
この回答への補足
こんばんは
ありがとうございました。
早速試してみました。
すばらしいですね。
本当は( C1:C100 )なので、
Range("C1:C100").ClearContents で試してみました。
tom04さんのおっしゃるとおり、エラーになりました。
たぶん、一括削除してもエラーの出ない方法があるのだと思いますが、
複雑なのでしょうか。
できたら教えてください。
一度に質問しておけばよかったのに申し訳ございません。
よろしくお願いします。
No.1
- 回答日時:
マクロじゃなくても、A1に
=IF(ISBLANK(C1),"","完了")
として、A10までフィルドラッグでいいようだが、これとは違うことでしょうかね。
この回答への補足
再質問なのですが、どこに書いたらいいのか分からなくて。
違っているかもしれませんがここに書きます。
早速のご回答、ありがとうございます。
こちらの説明が不足していました。
A行には関数が入れられないのです。
そこにはツールボックスからの入力もあるので関数が消えてしまいます。
うまく説明ができないのですが。
VBA出いれる方法を教えていただけませんか。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelのマクロで、特定のセルから順番に値を取得したい 5 2022/12/06 15:34
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- その他(Microsoft Office) IF関数について教えてください 2 2022/05/10 13:31
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) Excel 関数 数式 について 2 2022/09/02 21:45
- Excel(エクセル) 日本語向きの“ダブルクオーテーション”の入力 1 2022/10/16 11:33
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) Excel 数式を教えてください 2 2022/06/02 12:24
- Excel(エクセル) エクセルで教えて下さい。 2 2022/05/18 13:00
- Excel(エクセル) エクセル関数教えてください 3 2022/06/21 10:22
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excelマクロでセルの値を他のセルに表示する方法
その他(Microsoft Office)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
vba:特定のセルに入力したと同時に隣のセルの値を特定のセルの下の行に自動入力したい_No.2
Excel(エクセル)
-
-
4
(Excel)あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには?
Excel(エクセル)
-
5
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
6
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
7
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
8
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
9
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
10
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
11
エクセルで片方のセルに入力したら、もう片方を空白にしたい。
Excel(エクセル)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
14
EXCEL:特定の文字が入力された日付を表示する方法
Excel(エクセル)
-
15
2つ以上の変数を比較して最大数を求めたい
Word(ワード)
-
16
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
17
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
18
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
19
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
20
VBAの「for i=1 to cells(…」と「i=cells(…」の違いを教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
Excel VBAでオートフィルタで抽...
-
【VBA】条件に一致しない行を削...
-
EXCEL VBAでA列にある空白行よ...
-
Excel 別ブックから該当データ...
-
エクセルのVBAで指定した行数の...
-
【VBA】条件に一致しない行を削...
-
列から特定の文字列検索→該当以...
-
VBAで特定の行と一つ上の行を削...
-
エクセル マクロ セルを一気...
-
VBA 複数列コンボボックス 値の...
-
数値に見えるものはすべて数値...
-
エクセルマクロ行削除
-
エクセルで特定の文字が入って...
-
VB.net
-
オートフィルターの複数条件検...
-
マクロで最終行を取得してコピ...
-
エクセルのデータがない行には...
-
エクセル vab ある列に転記した...
-
VBAで保存しないで閉じると空の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
数値に見えるものはすべて数値...
-
【VBA】条件に一致しない行を削...
-
エクセルのデータがない行には...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
マクロにて指定の文字間の文字...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
【至急】Excel 同一人物の情報...
-
Excel マクロ 検索結果を別シ...
-
Excel VBA オートフィルタの結...
-
Excel97 指定した行だけマク...
-
列から特定の文字列検索→該当以...
-
VBAで入力の結果を他のセルに反...
-
excel2021で実行できないマクロ...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
おすすめ情報