質問編集履歴
2
追記記載
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,6 +2,20 @@
|
|
|
2
2
|
どのように変えればよいか方法はあるでしょうか。
|
|
3
3
|
プログラミング初心者のためお力お貸し頂ければ幸いです。
|
|
4
4
|
|
|
5
|
+
追記
|
|
6
|
+
年度は4/1始まり3/31に終わりです。
|
|
7
|
+
例）
|
|
8
|
+
C列 F列
|
|
9
|
+
2007/1/18 → 2006
|
|
10
|
+
2008/6/2 → 2008
|
|
11
|
+
2009/6/8 → 2009
|
|
12
|
+
2009/6/22 → 2009
|
|
13
|
+
2012/3/19 → 2011
|
|
14
|
+
2004/6/23 → 2004
|
|
15
|
+
2013/3/6 → 2012
|
|
16
|
+
|
|
17
|
+
と表示されるようにしたいです。
|
|
18
|
+
|
|
5
19
|
↓ネットにあるものを参考に作成したものです。
|
|
6
20
|
```
|
|
7
21
|
|
1
誤字があったので更新しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
|
|
11
11
|
i = Cells(Rows.Count, "C").End(xlUp).Row
|
|
12
12
|
n = Cells(i, 3)
|
|
13
|
-
Cells(i,
|
|
13
|
+
Cells(i, 6) = nendo(n, 3)
|
|
14
14
|
|
|
15
15
|
End Sub
|
|
16
16
|
|