質問編集履歴

3

修正

2021/12/03 05:46

投稿

mnbwqz
mnbwqz

スコア74

test CHANGED
File without changes
test CHANGED
@@ -39,91 +39,3 @@
39
39
 
40
40
 
41
41
  ![印刷プレビュー](607085fdf4b9e9994070afeb56a1af41.jpeg)
42
-
43
-
44
-
45
- ---
46
-
47
- (追記)
48
-
49
- 回答ありがとうございます。
50
-
51
- 無事に条件指定が出来ました。
52
-
53
-
54
-
55
- セクションを追加し販売日を月別でまとめた合計も出したいと思っています。
56
-
57
- 販売日の月別でまとめるグループフッター(販売日フッター)を作成し、下に太めの線を引きたいと思います。(赤線部分)
58
-
59
- 残高フッター部分と販売日フッター部分で線を引く処理が共通なので、関数を作成します。残高フッターと販売日フッターでは、下に線を引く場合の線の太さが違うところは条件分岐します(コードの下部、If セクション情報 = 販売日月別フッター の部分)。その条件にどのフッターから関数が呼ばれたかを(Me.Section(Me.Section).name)のような形で指定できればと思ったのですが、可能でしょうか。
60
-
61
-
62
-
63
- ![イメージ説明](e901ccfed657901f1c0ed93d28b36ad4.jpeg)
64
-
65
-
66
-
67
- ![イメージ説明](953e7ca44dd1759c6c350f159b747acd.jpeg)
68
-
69
- ```VBA
70
-
71
- Private Sub 残高フッター_Format(Cancel As Integer, FormatCount As Integer)
72
-
73
- If FormatCount = 1 Then Me.DataList = Mid(Me.DataList, 3)
74
-
75
- DrawLine (Me.Section(Me.Section).name)
76
-
77
- End Sub
78
-
79
-
80
-
81
- Private Sub 販売日月別フッター_Format(Cancel As Integer, FormatCount As Integer)
82
-
83
- DrawLine (Me.Section(Me.Section).name)
84
-
85
- End Sub
86
-
87
-
88
-
89
- Private Sub DrawLine(セクション情報)
90
-
91
- '線を引く
92
-
93
- '左に線
94
-
95
- Dim ctrl As Control
96
-
97
- For Each ctrl In Controls
98
-
99
- If Me.Section(ctrl.Section).Name = "残高フッター" And TypeName(ctrl) = "TextBox" Then
100
-
101
- ' If ctrl.Section = 18 And TypeName(ctrl) = "TextBox" Then
102
-
103
- Me.Line (ctrl.Left, ctrl.Top)-(ctrl.Left, ctrl.Top + 340), RGB(0, 0, 0)
104
-
105
- End If
106
-
107
- Next
108
-
109
- '右端に線
110
-
111
- Me.Line (残高.Left + 残高.Width, 残高.Top)-(残高.Left + 残高.Width, 残高.Top + 340), RGB(0, 0, 0)
112
-
113
- '下端に線
114
-
115
- If セクション情報 = 販売日月別フッター Then Me.DrawWidth = 20 Else Me.DrawWidth = 1
116
-
117
- Me.Line (販売経路.Left, 販売経路.Top + 340)-(残高.Left + 残高.Width, 残高.Top + 340), RGB(0, 0, 0)
118
-
119
- End Sub
120
-
121
- ```
122
-
123
-
124
-
125
- また、月別の合計を出す場合の、月の部分(印刷プレビューのオレンジで囲った部分)は、コントロールソースを「販売日」に指定して表示しています。販売日の月別でグループ化している設定を利用して、月の部分を表示するようにすることはできますでしょうか。
126
-
127
-
128
-
129
- ![イメージ説明](88437fb86e87bf2aa2b2e9538d3e4f94.jpeg)

2

修正

2021/12/03 05:46

投稿

mnbwqz
mnbwqz

スコア74

test CHANGED
File without changes
test CHANGED
@@ -56,7 +56,7 @@
56
56
 
57
57
  販売日の月別でまとめるグループフッター(販売日フッター)を作成し、下に太めの線を引きたいと思います。(赤線部分)
58
58
 
59
- 残高フッター部分と販売日フッター部分で線を引く処理が共通なので、関数を作成します。残高フッターと販売日フッターでは、下に線を引く場合の線の太さが違うところは条件分岐します(コードの下部、If セクション情報 = 販売日月フッター の部分)。その条件にどのフッターから関数が呼ばれたかを(Me.Section(Me.Section).name)のような形で指定できればと思ったのですが、可能でしょうか。
59
+ 残高フッター部分と販売日フッター部分で線を引く処理が共通なので、関数を作成します。残高フッターと販売日フッターでは、下に線を引く場合の線の太さが違うところは条件分岐します(コードの下部、If セクション情報 = 販売日月フッター の部分)。その条件にどのフッターから関数が呼ばれたかを(Me.Section(Me.Section).name)のような形で指定できればと思ったのですが、可能でしょうか。
60
60
 
61
61
 
62
62
 
@@ -112,7 +112,7 @@
112
112
 
113
113
  '下端に線
114
114
 
115
- If セクション情報 = 販売日月フッター Then Me.DrawWidth = 20 Else Me.DrawWidth = 1
115
+ If セクション情報 = 販売日月フッター Then Me.DrawWidth = 20 Else Me.DrawWidth = 1
116
116
 
117
117
  Me.Line (販売経路.Left, 販売経路.Top + 340)-(残高.Left + 残高.Width, 残高.Top + 340), RGB(0, 0, 0)
118
118
 

1

追記

2021/12/03 04:17

投稿

mnbwqz
mnbwqz

スコア74

test CHANGED
File without changes
test CHANGED
@@ -39,3 +39,91 @@
39
39
 
40
40
 
41
41
  ![印刷プレビュー](607085fdf4b9e9994070afeb56a1af41.jpeg)
42
+
43
+
44
+
45
+ ---
46
+
47
+ (追記)
48
+
49
+ 回答ありがとうございます。
50
+
51
+ 無事に条件指定が出来ました。
52
+
53
+
54
+
55
+ セクションを追加し販売日を月別でまとめた合計も出したいと思っています。
56
+
57
+ 販売日の月別でまとめるグループフッター(販売日フッター)を作成し、下に太めの線を引きたいと思います。(赤線部分)
58
+
59
+ 残高フッター部分と販売日フッター部分で線を引く処理が共通なので、関数を作成します。残高フッターと販売日フッターでは、下に線を引く場合の線の太さが違うところは条件分岐します(コードの下部、If セクション情報 = 販売日月フッター の部分)。その条件にどのフッターから関数が呼ばれたかを(Me.Section(Me.Section).name)のような形で指定できればと思ったのですが、可能でしょうか。
60
+
61
+
62
+
63
+ ![イメージ説明](e901ccfed657901f1c0ed93d28b36ad4.jpeg)
64
+
65
+
66
+
67
+ ![イメージ説明](953e7ca44dd1759c6c350f159b747acd.jpeg)
68
+
69
+ ```VBA
70
+
71
+ Private Sub 残高フッター_Format(Cancel As Integer, FormatCount As Integer)
72
+
73
+ If FormatCount = 1 Then Me.DataList = Mid(Me.DataList, 3)
74
+
75
+ DrawLine (Me.Section(Me.Section).name)
76
+
77
+ End Sub
78
+
79
+
80
+
81
+ Private Sub 販売日月別フッター_Format(Cancel As Integer, FormatCount As Integer)
82
+
83
+ DrawLine (Me.Section(Me.Section).name)
84
+
85
+ End Sub
86
+
87
+
88
+
89
+ Private Sub DrawLine(セクション情報)
90
+
91
+ '線を引く
92
+
93
+ '左に線
94
+
95
+ Dim ctrl As Control
96
+
97
+ For Each ctrl In Controls
98
+
99
+ If Me.Section(ctrl.Section).Name = "残高フッター" And TypeName(ctrl) = "TextBox" Then
100
+
101
+ ' If ctrl.Section = 18 And TypeName(ctrl) = "TextBox" Then
102
+
103
+ Me.Line (ctrl.Left, ctrl.Top)-(ctrl.Left, ctrl.Top + 340), RGB(0, 0, 0)
104
+
105
+ End If
106
+
107
+ Next
108
+
109
+ '右端に線
110
+
111
+ Me.Line (残高.Left + 残高.Width, 残高.Top)-(残高.Left + 残高.Width, 残高.Top + 340), RGB(0, 0, 0)
112
+
113
+ '下端に線
114
+
115
+ If セクション情報 = 販売日月フッター Then Me.DrawWidth = 20 Else Me.DrawWidth = 1
116
+
117
+ Me.Line (販売経路.Left, 販売経路.Top + 340)-(残高.Left + 残高.Width, 残高.Top + 340), RGB(0, 0, 0)
118
+
119
+ End Sub
120
+
121
+ ```
122
+
123
+
124
+
125
+ また、月別の合計を出す場合の、月の部分(印刷プレビューのオレンジで囲った部分)は、コントロールソースを「販売日」に指定して表示しています。販売日の月別でグループ化している設定を利用して、月の部分を表示するようにすることはできますでしょうか。
126
+
127
+
128
+
129
+ ![イメージ説明](88437fb86e87bf2aa2b2e9538d3e4f94.jpeg)