質問編集履歴
1
ソースを変更してみました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -55,20 +55,35 @@
|
|
|
55
55
|
|
|
56
56
|
```VBA
|
|
57
57
|
Sub Workbook_Open()
|
|
58
|
+
Dim searchValue As String
|
|
58
|
-
|
|
59
|
+
Dim currentSheet As Worksheet
|
|
59
|
-
|
|
60
|
+
Dim cell As Range
|
|
61
|
+
Dim hitCount As Integer
|
|
60
|
-
|
|
62
|
+
Dim found As Boolean
|
|
61
|
-
|
|
63
|
+
|
|
62
|
-
|
|
64
|
+
' ユーザーフォームで検索語を入力する
|
|
63
|
-
Set FoundCell = sh.Cells.Find(What:="2025/3/23 0:00:00", LookAt:=xlWhole)
|
|
64
|
-
If Not FoundCell Is Nothing Then
|
|
65
|
-
|
|
65
|
+
searchValue = InputBox("2025/3/23 0:00:00")
|
|
66
|
+
|
|
67
|
+
' 全てのワークシートを検索する
|
|
68
|
+
For Each currentSheet In ActiveWorkbook.Worksheets
|
|
69
|
+
' C8からC1800の範囲を検索する
|
|
70
|
+
For Each cell In currentSheet.Range("A2:C8")
|
|
71
|
+
' セルの値に検索語が含まれているかチェックする
|
|
72
|
+
If InStr(1, cell.Value, searchValue, vbTextCompare) > 0 Then
|
|
73
|
+
hitCount = hitCount + 1
|
|
74
|
+
' ヒットした場合はセルをアクティブにする
|
|
75
|
+
currentSheet.Activate
|
|
76
|
+
cell.Activate
|
|
66
|
-
|
|
77
|
+
found = True
|
|
67
|
-
End If
|
|
78
|
+
End If
|
|
68
|
-
Next
|
|
79
|
+
Next cell
|
|
69
|
-
|
|
80
|
+
Next currentSheet
|
|
81
|
+
|
|
70
|
-
|
|
82
|
+
If found = False Then
|
|
83
|
+
MsgBox "検索語が見つかりませんでした。"
|
|
71
|
-
|
|
84
|
+
ElseIf hitCount >= 2 Then
|
|
85
|
+
MsgBox hitCount & "件のヒットがありました。"
|
|
86
|
+
End If
|
|
72
87
|
End Sub
|
|
73
88
|
```
|
|
74
89
|
|