シート名「青紙表」にVBAコード
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$18" And IsNumeric(Cells(18, "R").Value) And Len(Cells(18, "R")) = 8 Then
Application.EnableEvents = False
Worksheets("青紙表").Range("AX3").Value = Worksheets("受付").Range("J2").Value
Application.EnableEvents = True
ActiveWorkbook.Save
End If
On Error Resume Next
If Range("J53").Value = "■" Then
Call 構造
End If
If Range("CI27").Value = "■" Then
Call 電子完了
End If
If Target.Address <> "$C$20" Then Exit Sub
If Target.Value <> "" Then
If InStr(1, "一郎,次郎,三郎,四郎,五郎", Target.Value) > 0 Then
On Error Resume Next
Worksheets("受付").Visible = False
Worksheets("管理表").Visible = False
Worksheets("地方照会").Visible = False
Worksheets("札幌道路").Visible = False
Worksheets("札幌宅地").Visible = False
Worksheets("札幌開発").Visible = False
Worksheets("300").Visible = False
Worksheets("500").Visible = False
On Error Resume Next
Application.DisplayAlerts = False
Sheets("F審査").Delete
Sheets("F設計INDX").Delete
Application.DisplayAlerts = True
End If
Else
On Error Resume Next
Worksheets("受付").Visible = True
Worksheets("管理表").Visible = True
End If
On Error Resume Next
If Range("CI20").Value = "■" Then
Call 日付
End If
End Sub
があります。
各セル値によってVBAが実行されますが、
If Target.Address <> "$C$20" Then Exit Sub
If Target.Value <> "" Then
If InStr(1, "一郎,次郎,三郎,四郎,五郎", Target.Value) > 0 Then
の部分を
セルCE32に設定している数式「=IF( C20="", "□", "■" )」を利用して
C20に各自の名前ではなく、C20に「■」表示されたときにコードが実行されるようにできる方法を教えてください。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Vba SelStart、SelLen教えてく...
-
【VBA】マクロの入ったファイル...
-
A列に記載されているフォルダ...
-
VBA listBoxから
-
ExcelVBA シート名を複数セルか...
-
現在のブックを閉じないで、マ...
-
Outlookの「受信日時」「送信者...
-
ユーザーフォームに別シートか...
-
VBAコンボボックスで選択した値...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Outlookの「受信日時」「件名」...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Excelのマクロでワードのテキス...
-
【ExcelVBA】インデックスが有...
-
VBA 別ブックからコピペしたい...
-
VBA実行後に元のセルに戻りたい
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのコードを教えてください
-
【ExcelVBA】インデックスが有...
-
ExcelVBA シート名を複数セルか...
-
エクセルvbaについて
-
エクセルのマクロについて教え...
-
【VBA】マクロの入ったファイル...
-
VBA UserFormからの転記で
-
エクセルVBAの配列について
-
Excelで「Ctrl+c」、「Ctrl+v...
-
VBAコードについて教えてくださ...
-
ExcelのVBAコードについて教え...
-
Excel マクロについての相談
-
VBAで質問があります
-
VBAコードについて
-
【ExcelVBA】VBA実行でダイアロ...
-
Excel関数またはVBAでの質問に...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
Outlookの「受信日時」「件名」...
おすすめ情報
回答ありがとうございます。
どのようにコードを変更すればよいのでしょうか?
詳しく教えていただけますでしょうか。
宜しくお願い致します。