回答編集履歴
3
【頁No.1】
answer
CHANGED
|
@@ -1,3 +1,4 @@
|
|
|
1
|
+
【頁No.1】
|
|
1
2
|
|
|
2
3
|
```VBA
|
|
3
4
|
'(Test_Sample_Miniature)
|
2
123
answer
CHANGED
|
@@ -95,4 +95,5 @@
|
|
|
95
95
|
Private lSortY As Long
|
|
96
96
|
Private varSortAry() As Variant
|
|
97
97
|
Private varSortWork As Variant
|
|
98
|
-
```
|
|
98
|
+
```
|
|
99
|
+
続きあり
|
1
修正
answer
CHANGED
|
@@ -14,4 +14,85 @@
|
|
|
14
14
|
|
|
15
15
|
Private Const str予算域 As String = "D2:M2"
|
|
16
16
|
Private Const str結果域 As String = "D3:M10"
|
|
17
|
+
|
|
18
|
+
'Work領域
|
|
19
|
+
Private mblnMaster As Boolean
|
|
20
|
+
Private mintArCnt As Integer
|
|
21
|
+
Private mintCount As Integer
|
|
22
|
+
Private mMyRange As Range
|
|
23
|
+
Private mlRow1 As Long
|
|
24
|
+
Private mlRow2 As Long
|
|
25
|
+
Private mlCol1 As Long
|
|
26
|
+
Private mlCol2 As Long
|
|
27
|
+
Private mvarResData As Variant
|
|
28
|
+
Private mvarRecord As Variant
|
|
29
|
+
Private mdblKingaku As Double
|
|
30
|
+
|
|
31
|
+
'WorkData領域
|
|
32
|
+
Private mlngDataCnt As Long
|
|
33
|
+
Private mlngDataHitRecord As Long
|
|
34
|
+
|
|
35
|
+
'WorkRange領域
|
|
36
|
+
Private rng商品域 As Range
|
|
37
|
+
Private rng予算域 As Range
|
|
38
|
+
Private rng結果域 As Range
|
|
39
|
+
|
|
40
|
+
'MasterType領域
|
|
41
|
+
Private Type 商品Record
|
|
42
|
+
strM名称 As String
|
|
43
|
+
dblM金額 As Double
|
|
44
|
+
intM優先 As Integer
|
|
45
|
+
intM期限 As Integer
|
|
46
|
+
lngM行番 As Long
|
|
47
|
+
int計上件数 As Integer
|
|
48
|
+
int期限区分 As Integer '1=購入期限到達品 9=購入期限未達品
|
|
49
|
+
int期限日数 As Integer
|
|
50
|
+
int順位作成 As Integer
|
|
51
|
+
End Type
|
|
52
|
+
Private M商品() As 商品Record
|
|
53
|
+
|
|
54
|
+
Private Type 予算Record
|
|
55
|
+
int日目値 As Integer
|
|
56
|
+
lng列位置 As Long
|
|
57
|
+
End Type
|
|
58
|
+
Private M予算() As 予算Record
|
|
59
|
+
|
|
60
|
+
Private Type 誤差Record
|
|
61
|
+
dblMst誤差小 As Double
|
|
62
|
+
dblMst誤差大 As Double
|
|
63
|
+
dbl合計金額 As Double
|
|
64
|
+
dbl予算金額 As Double
|
|
65
|
+
dbl下限金額 As Double
|
|
66
|
+
dbl上限金額 As Double
|
|
67
|
+
End Type
|
|
68
|
+
Private M誤差 As 誤差Record
|
|
69
|
+
|
|
70
|
+
'DataType領域
|
|
71
|
+
Private Type 明細Record
|
|
72
|
+
str商品名称 As String
|
|
73
|
+
int期限区分 As Integer
|
|
74
|
+
int計上件数 As Integer
|
|
75
|
+
int優先順位 As Integer
|
|
76
|
+
lngセル行番 As Long
|
|
77
|
+
End Type
|
|
78
|
+
Private Type DataRecord
|
|
79
|
+
strPattern As String
|
|
80
|
+
str期限Key As String
|
|
81
|
+
str件数Key As String
|
|
82
|
+
str優先Key As String
|
|
83
|
+
dbl合計金額 As Double
|
|
84
|
+
Rec明細() As 明細Record
|
|
85
|
+
End Type
|
|
86
|
+
Private RData() As DataRecord
|
|
87
|
+
|
|
88
|
+
'自己参照Work域
|
|
89
|
+
Private gintLayer As Integer
|
|
90
|
+
Private giCountMax As Integer
|
|
91
|
+
Private giLayerMax As Integer
|
|
92
|
+
|
|
93
|
+
'ソート領域
|
|
94
|
+
Private lSortX As Long
|
|
95
|
+
Private lSortY As Long
|
|
96
|
+
Private varSortAry() As Variant
|
|
97
|
+
Private varSortWork As Variant
|
|
17
98
|
```
|