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

編集履歴

質問編集履歴

2

編集

2021/07/13 04:40

投稿

sumeragihatiman
sumeragihatiman

スコア4

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

1

関数例

2021/07/13 04:40

投稿

sumeragihatiman
sumeragihatiman

スコア4

title CHANGED
File without changes
body CHANGED
@@ -36,6 +36,10 @@
36
36
  ```
37
37
 
38
38
  ### 試したこと
39
+ 下記関数の使用を想定していますが、盛り込めますか？
40
+ ・変数（データ型）
41
+ ・IF～の条件分岐　例）投資額が０やデータがない場合は、0と転記
42
+ ・For～Next 繰り返し処理
39
43
 
40
44
  お力添えいただけますと幸いです。
41
45
  よろしくお願いいたします。