先日来より、ここで質問をさせて頂いておりますが、皆様の回答を頂きましたが、
解決に至っておりませんので、改めて質問をさせて頂きます。
作業ブックのシート名「審査」に下記のコードを設定しております。
このブックを使用する手順として、一番産所にセル「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ランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報

