質問編集履歴
5
文言修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
```
|
|
18
18
|
|
|
19
|
-
が気になるので出来ればFindは使用したくない……
|
|
19
|
+
が気になるので出来ればFindは使用したくない……）
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
4
文言修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,7 +8,15 @@
|
|
|
8
8
|
|
|
9
9
|
[【Excel VBA入門】Findメソッドで条件に一致するセルを検索する方法 – Valmore ](https://valmore.work/find-cell-by-find/)
|
|
10
10
|
|
|
11
|
-
に記載してあるように
|
|
11
|
+
に記載してあるように（
|
|
12
|
+
|
|
13
|
+
```
|
|
14
|
+
|
|
15
|
+
findの基本的な使い方を解説してきました。注意点でも書きましたが、Excelファイル固有の検索設定に影響を受ける点に要注意。これを知らないと意図しない検索条件になってしまいます。
|
|
16
|
+
|
|
17
|
+
```
|
|
18
|
+
|
|
19
|
+
が気になるので出来ればFindは使用したくない……（
|
|
12
20
|
|
|
13
21
|
|
|
14
22
|
|
3
文言修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
Dim searchKi As Range
|
|
26
26
|
|
|
27
|
-
With
|
|
27
|
+
With Worksheets("利益").Range("B2:B79")
|
|
28
28
|
|
|
29
29
|
Set searchKi = .Find("year-1964" & "期")
|
|
30
30
|
|
2
文言修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
Set wb = Workbooks.Open(fname)
|
|
18
18
|
|
|
19
|
-
With Worksheets("
|
|
19
|
+
With Worksheets("利益")
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
1
文言修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -14,6 +14,12 @@
|
|
|
14
14
|
|
|
15
15
|
```VBA
|
|
16
16
|
|
|
17
|
+
Set wb = Workbooks.Open(fname)
|
|
18
|
+
|
|
19
|
+
With Worksheets("全社支社利益")
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
17
23
|
Dim jinendoGyou() As Integer 'の＊＊期を探す
|
|
18
24
|
|
|
19
25
|
Dim searchKi As Range
|
|
@@ -23,6 +29,8 @@
|
|
|
23
29
|
Set searchKi = .Find("year-1964" & "期")
|
|
24
30
|
|
|
25
31
|
End With
|
|
32
|
+
|
|
33
|
+
End With
|
|
26
34
|
|
|
27
35
|
```
|
|
28
36
|
|