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