teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問VBAマクロ　初めての投資管理について

編集履歴

質問編集履歴

2

編集

2021/07/13 04:40

投稿

sumeragihatiman
sumeragihatiman

スコア4

test CHANGED
File without changes
test CHANGED
@@ -1,97 +1,111 @@
1
1
  ### 前提・実現したいこと
2
2
 
3
+ ### 前提・実現したいこと
3
4
 
5
+ ### 前提・実現したいこと
4
6
 
5
- 設備投資管理を毎月始めることになり、マクロ化を検討しています。
7
+ ### 前提・実現したいこと
6
8
 
7
- 業務手順
9
+ ### 前提・実現したいこと
8
10
 
9
- ①システムから元データをダウンロードし、ピボットテーブル更新
11
+ ### 前提・実現したいこと
10
12
 
11
- ②ピボットテーブルを【予算単位マクロ】シートに値コピペ
13
+ ### 前提・実現したいこと
12
14
 
13
- ③【予算単位マクロ】シートから【固定資産】シートへ、予算単位別／有形・無形別に投資額を転記
15
+ ### 前提・実現したいこと
14
16
 
15
- 今回③のマクロを考えております。
17
+ ### 前提・実現したいこと
16
18
 
17
- できたら②もマクロ化したいです。
19
+ ### 前提・実現したいこと
18
20
 
21
+ ### 前提・実現したいこと
19
22
 
23
+ ### 前提・実現したいこと
20
24
 
21
- ※下記表は【予算単位マクロ】シートのイメージ（添付ができず申し訳ありません。）
25
+ ### 前提・実現したいこと
22
26
 
23
- ※スクショは【固定資産】シート
27
+ ### 前提・実現したいこと
24
28
 
25
- 予算単位コード 予算単位名 区分 固定資産勘定科目 2021年6月 2021年7月
29
+ ### 前提・実現したいこと
26
30
 
27
- 0001 　　　　１課 　　　　有形 有形（４年） 　　　　　10,400
31
+ ### 前提・実現したいこと
28
32
 
29
- 0002 　　　　２課 　　　　有形 有形（４年） 　8,411 　　　　　13,466
33
+ ### 前提・実現したいこと
30
34
 
31
- 0003 　　　　３課 　　　　無形 ソフトウエア（3年） 950
35
+ ### 前提・実現したいこと
32
36
 
33
- 0004 ３課 無形 ソフトウエア（2年）9,300
37
+ ### 前提・実現したいこと
34
38
 
39
+ ### 前提・実現したいこと
35
40
 
41
+ ### 前提・実現したいこと
36
42
 
37
- ![イメージ説明](4b2f18a926abccca94d074b5307a5e0e.jpeg)
43
+ ### 前提・実現したいこと
38
44
 
45
+ ### 前提・実現したいこと
39
46
 
47
+ ### 前提・実現したいこと
40
48
 
41
- ### 発生している問題・エラーメッセージ
49
+ ### 前提・実現したいこと
42
50
 
51
+ ### 前提・実現したいこと
43
52
 
53
+ ### 前提・実現したいこと
44
54
 
45
- 問題点
55
+ ### 前提・実現したいこと
46
56
 
47
- A：②のピボットテーブルから【予算単位マクロ】シート値コピペの際に、予算単位コードがブランクの行があります。
57
+ ### 前提・実現したいこと
48
58
 
49
- 　ブランク行は1行上を参照するようにしたいのですが、マクロ化できますか？【予算単位マクロ】シートは全体で約30行、20列です。
59
+ ### 前提・実現したいこと
50
60
 
51
- B：③で【固定資産】シートに投資額を転記する際に、【固定資産】シートの月切りは連続していなく、添付のように別れています。
61
+ ### 前提・実現したいこと
52
62
 
53
- 　例えば2課の有形6月投資額はM列、7月投資額はW列のようになっていますが、マクロで設定可能でしょうか？
63
+ ### 前提・実現したいこと
54
64
 
55
- C:3課のように同じ無形でも内容が異なるものが複数ある場合があります。
65
+ ### 前提・実現したいこと
56
66
 
57
- 合計して、M列の11行目に転記可能でしょうか？
67
+ ### 前提・実現したいこと
58
68
 
69
+ ### 前提・実現したいこと
59
70
 
71
+ ### 前提・実現したいこと
60
72
 
73
+ ### 前提・実現したいこと
61
74
 
75
+ ### 前提・実現したいこと
62
76
 
63
- ### 該当のソースコード
77
+ ### 前提・実現したいこと
64
78
 
79
+ ### 前提・実現したいこと
65
80
 
81
+ ### 前提・実現したいこと
66
82
 
67
- ```ここに言語名を入力
83
+ ### 前提・実現したいこと
68
84
 
69
- VBA
85
+ ### 前提・実現したいこと
70
86
 
71
- ```
87
+ ### 前提・実現したいこと
72
88
 
89
+ ### 前提・実現したいこと
73
90
 
91
+ ### 前提・実現したいこと
74
92
 
75
- ### 試したこと
93
+ ### 前提・実現したいこと
76
94
 
77
- 下記関数の使用を想定していますが、盛り込めますか？
95
+ ### 前提・実現したいこと
78
96
 
79
- ・変数（データ型）
97
+ ### 前提・実現したいこと
80
98
 
81
- ・IF～の条件分岐　例）投資額が０やデータがない場合は、0と転記
99
+ ### 前提・実現したいこと
82
100
 
83
- ・For～Next 繰り返し処理
101
+ ### 前提・実現したいこと
84
102
 
103
+ ### 前提・実現したいこと
85
104
 
105
+ ### 前提・実現したいこと
86
106
 
87
- お力添えいただけますと幸いです。
107
+ ### 前提・実現したいこと
88
108
 
89
- よろしくお願いいたします。
109
+ ### 前提・実現したいこと
90
110
 
91
-
92
-
93
- ### 補足情報（FW/ツールのバージョンなど）
94
-
95
-
96
-
97
- ここにより詳細な情報を記載してください。
111
+ ### 前提・実現したいこと

1

関数例

2021/07/13 04:40

投稿

sumeragihatiman
sumeragihatiman

スコア4

test CHANGED
File without changes
test CHANGED
@@ -74,6 +74,14 @@
74
74
 
75
75
  ### 試したこと
76
76
 
77
+ 下記関数の使用を想定していますが、盛り込めますか？
78
+
79
+ ・変数（データ型）
80
+
81
+ ・IF～の条件分岐　例）投資額が０やデータがない場合は、0と転記
82
+
83
+ ・For～Next 繰り返し処理
84
+
77
85
 
78
86
 
79
87
  お力添えいただけますと幸いです。