先日来より、ここで質問をさせて頂いておりますが、皆様の回答を頂きましたが、
解決に至っておりませんので、改めて質問をさせて頂きます。
作業ブックのシート名「審査」に下記のコードを設定しております。
このブックを使用する手順として、一番産所にセル「F18」をプルダウン選択し、文字を表示させて、作業を進めておりますが、「F18」に「確認申請」を選択するとその後、コードの内、下記のコードが実行できません。
If Target.Address = "$F$15" Then
Call 担当者情報総合
End If
If Target.Address = "$D$18" Then
Call 審査保存1
End If
「F18」に「確認申請」以外を選択するとシートに設定しているすべてのコードが順調に実行できます。
「F18」に「確認申請」を選択すると
If Range("$F$18").Value = "確認申請" Then
Call 確認シートコピー
End If
が実行されますが、このコードに問題があるのでしょうか。
マクロ「確認シートコピー」は
Sub 確認シートコピー()
Call 確認用シート表示
Dim i As Integer
i = 1
Do While i > 0
i = i + 1
If i > 1 Then
Exit Do
End If
Debug.Print i
Loop
Sheets("確認申請シート").Select
Range("B1:I52").Select
Selection.Copy
Sheets("質疑").Select
Range("B1:I52").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=0
Sheets("確認申請シート").Select
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 20
Range("AC24:AC52").Select
Selection.Copy
Sheets("質疑").Select
ActiveWindow.SmallScroll ToRight:=21
Range("AC24:AC52").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 1
Call 確認用シート非表示
Call F行調整
Range("F15").Select
End Sub
です。
シート名「審査」の全体のコードは
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("$F$18").Value = "フラット設計審査_標準計算" Then
Call フラットシート表示
End If
If Range("$F$18").Value = "フラット設計審査_仕様基準" Then
Call フラットシート表示
End If
If Target.Address = "$F$18" Then
Call 担当者メッセージ
End If
If Target.Address = "$F$15" Then
Call 担当者情報総合
End If
If Range("$F$18").Value = "確認申請" Then
Call 確認申請関係シート表示
End If
If Range("$F$18").Value = "確認申請" Then
Call 確認シートコピー
End If
If Range("$F$18").Value = "確認申請" Then
Call 電子行政選択表示
End If
If Range("$F$18").Value = "確認申請" Then
Call 行政メッセージ
End If
If Target.Address = "$D$18" Then
Call 審査保存1
End If
End Sub
以上となります。
「F18」に「確認審査」を表示させても全てのコードが上手く行くように解決できる方法を教えてください。宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 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コードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/03/01 17:04
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) ExcelのVBAコードについて教えて下さい。 2 2022/06/25 14:04
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
for 文の 繰り返し処理に使えるのかどうかについて
Visual Basic(VBA)
-
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
Excel 大なり小なりを表すとき、 例えば「10以上」なら、>=10 と表せますが、 この10の部
Excel(エクセル)
-
-
4
エクセルVBAの配列について
Visual Basic(VBA)
-
5
VBAのコードを教えてください
Visual Basic(VBA)
-
6
VBのWPFとはなんでしょうか?
Visual Basic(VBA)
-
7
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
8
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
9
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
10
Cellsのコードが打てません
Visual Basic(VBA)
-
11
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
12
近似した文字列を置換するエクセル関数またはVBAについて
Visual Basic(VBA)
-
13
Excel VBA マクロ あるフォルダー内の複数のファイルを統合したいです
Visual Basic(VBA)
-
14
エクセルで2桁から5桁の数字があります。その数字のダブリを解消する方法を教えてください。
Excel(エクセル)
-
15
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
16
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
17
VBAコードについて
Visual Basic(VBA)
-
18
エクセルvbaについて
Visual Basic(VBA)
-
19
VBAコードについて教えてください、 下記のコードを一つにまとめる方法を教えてください セルF18に
Visual Basic(VBA)
-
20
マクロVBAについてご教授いただけましたらと存じます。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
Vba 実数および実数タイプの変...
-
ユーザーフォームに別シートか...
-
VBA レジストリの値の読み方に...
-
エクセルVBAについて
-
VBA listBoxから
-
ExcelのVBAコードについて教え...
-
VBA 複数条件の分岐処理の上手...
-
ExcelのVBAです。フォルダ内の...
-
VBAの計算で@が出てしまう件
-
VB.net(VB)で、フォームにExcel...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBAの質問になります Userform内で
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
Vba SelStart、SelLen教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報