回答編集履歴
1
追記
answer
CHANGED
|
@@ -9,4 +9,17 @@
|
|
|
9
9
|
|
|
10
10
|
```vba
|
|
11
11
|
Set searchKi = .Find((Year(Date)-1964) & "期")
|
|
12
|
+
```
|
|
13
|
+
|
|
14
|
+
追記
|
|
15
|
+
---
|
|
16
|
+
> その期の行数のカウント方法もご教授頂けないでしょうか？
|
|
17
|
+
|
|
18
|
+
Findメソッドを使うなら、検索セルが最初のセルに戻るまでループするという方法になります。
|
|
19
|
+
（WEB検索すればサンプルコードは見つかるでしょう。）
|
|
20
|
+
ただ、行数を取得するだけなら、CountIfを使えばいいでしょう。
|
|
21
|
+
|
|
22
|
+
```vba
|
|
23
|
+
Dim Gyousu As Long
|
|
24
|
+
Gyousu = WorksheetFunction.CountIf(Range("A1:A6"),(Year-1964) & "期")
|
|
12
25
|
```
|