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)
-
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
5
vba:特定のセルに入力したと同時に隣のセルの値を特定のセルの下の行に自動入力したい_No.2
Excel(エクセル)
-
6
(Excel)あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには?
Excel(エクセル)
-
7
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
8
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
9
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
10
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
13
EXCEL:特定の文字が入力された日付を表示する方法
Excel(エクセル)
-
14
2つ以上の変数を比較して最大数を求めたい
Word(ワード)
-
15
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
16
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
-
17
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
18
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
19
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
20
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
VB.net
-
エクセルで空白行を削除する ...
-
【至急】Excel 同一人物の情報...
-
VBAで入力の結果を他のセルに反...
-
Excel VBA オートフィルタの結...
-
VBAでの重複データに色付け
-
数値に見えるものはすべて数値...
-
エクセル住所録でフラッグの個...
-
【VBA】条件に一致しない行を削...
-
Access2003レポート:最終ペー...
-
VBAで特定の行と一つ上の行を削...
-
vbaエクセルマクロについて she...
-
マクロにて指定の文字間の文字...
-
空白を複数行一気に挿入するには?
-
エクセルのデータがない行には...
-
Excelで、マウスで範囲を選択し...
-
Excel 別ブックから該当データ...
-
Excel マクロ 検索結果を別シ...
-
エクセルのVBAで指定した行数の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
列から特定の文字列検索→該当以...
-
Excel97 指定した行だけマク...
-
エクセルで階層図を作る方法
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
マクロにて指定の文字間の文字...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
-
VBAで特定の行と一つ上の行を削...
-
各個体に対する平均値の自動計...
-
Excel マクロ 検索結果を別シ...
おすすめ情報