|
|
@@ -0,0 +1,435 @@
|
|
|
1
|
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
|
|
|
2
|
+Imports Microsoft.Office.Interop.Excel.Constants
|
|
|
3
|
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
|
|
|
4
|
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
|
|
|
5
|
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
|
|
|
6
|
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
|
|
|
7
|
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
|
|
|
8
|
+Imports Microsoft.Office.Interop.Excel.XlWindowState
|
|
|
9
|
+Imports Microsoft.Office.Interop.Excel
|
|
|
10
|
+Public Class OVERAGEREPORT
|
|
|
11
|
+ Dim 目前選擇項, N1 As Integer
|
|
|
12
|
+ Dim xlApp As Microsoft.Office.Interop.Excel.Application
|
|
|
13
|
+ Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
|
|
|
14
|
+ Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
|
|
|
15
|
+ Private Sub Set_銷帳清單()
|
|
|
16
|
+ Dim ds, ds1 As New DataSet
|
|
|
17
|
+ 銷帳_dgv.DataSource = Nothing : ds.Clear() : currentRowIndex1 = -1
|
|
|
18
|
+ 銷帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
19
|
+ 銷帳_dgv.ColumnHeadersHeight = 55 : 銷帳_dgv.AllowUserToAddRows = False
|
|
|
20
|
+
|
|
|
21
|
+ PA25 = 年份_cb.Text : If INV排序_cb.Checked = True Then : PA30 = "貨款銷帳明細表.INV DESC" : Else : PA30 = "貨款銷帳明細表.訂單號 DESC" : End If
|
|
|
22
|
+ SQL_銷帳清單2()
|
|
|
23
|
+ da.Fill(ds) : 銷帳_dgv.DataSource = ds.Tables(0)
|
|
|
24
|
+ Set_銷帳清單_格式()
|
|
|
25
|
+ End Sub
|
|
|
26
|
+ Private Sub Set_銷帳清單_格式()
|
|
|
27
|
+ If 銷帳_dgv.Columns.Count > 0 Then
|
|
|
28
|
+ 銷帳_dgv.Columns(0).Visible = False : 銷帳_dgv.Columns(1).Visible = False : 銷帳_dgv.Columns(11).Visible = False : 銷帳_dgv.Columns(15).Visible = False
|
|
|
29
|
+ 銷帳_dgv.Columns(16).Visible = False : 銷帳_dgv.Columns(17).Visible = False : 銷帳_dgv.Columns(18).Visible = False : 銷帳_dgv.Columns(19).Visible = False
|
|
|
30
|
+ 銷帳_dgv.Columns(20).Visible = False : 銷帳_dgv.Columns(21).Visible = False : 銷帳_dgv.Columns(23).Visible = False : 銷帳_dgv.Columns(24).Visible = False
|
|
|
31
|
+ 銷帳_dgv.Columns(25).Visible = False : 銷帳_dgv.Columns(26).Visible = False : 銷帳_dgv.Columns(27).Visible = False : 銷帳_dgv.Columns(32).Visible = False
|
|
|
32
|
+ 銷帳_dgv.Columns(33).Visible = False : 銷帳_dgv.Columns(34).Visible = False : 銷帳_dgv.Columns(35).Visible = False : 銷帳_dgv.Columns(36).Visible = False
|
|
|
33
|
+ 銷帳_dgv.Columns(38).Visible = False : 銷帳_dgv.Columns(39).Visible = False : 銷帳_dgv.Columns(40).Visible = False
|
|
|
34
|
+
|
|
|
35
|
+ 銷帳_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 銷帳_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
|
|
|
36
|
+ 銷帳_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
37
|
+ 銷帳_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
38
|
+ 銷帳_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
39
|
+ 銷帳_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
40
|
+ 銷帳_dgv.Columns(6).FillWeight = 60 : 銷帳_dgv.Columns(7).FillWeight = 60 : 銷帳_dgv.Columns(8).FillWeight = 40
|
|
|
41
|
+ 銷帳_dgv.Columns(9).FillWeight = 40 : 銷帳_dgv.Columns(10).FillWeight = 40 : 銷帳_dgv.Columns(11).FillWeight = 40 : 銷帳_dgv.Columns(12).FillWeight = 40
|
|
|
42
|
+ 銷帳_dgv.Columns(37).FillWeight = 150 : 銷帳_dgv.Columns(5).FillWeight = 85
|
|
|
43
|
+ 銷帳_dgv.Columns(39).FillWeight = 40 : 銷帳_dgv.Columns(40).FillWeight = 40 : 銷帳_dgv.Columns(2).FillWeight = 70 : 銷帳_dgv.Columns(3).FillWeight = 40
|
|
|
44
|
+ 銷帳_dgv.Columns(29).FillWeight = 80 : 銷帳_dgv.Columns(30).FillWeight = 80 : 銷帳_dgv.Columns(31).FillWeight = 80 : 銷帳_dgv.Columns("選擇").FillWeight = 40
|
|
|
45
|
+ For I As Integer = 13 To 28
|
|
|
46
|
+ 銷帳_dgv.Columns(I).DefaultCellStyle.Format = "#,##0.00" : 銷帳_dgv.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
47
|
+ 銷帳_dgv.Columns(I).FillWeight = 60
|
|
|
48
|
+ Next : 銷帳_dgv.Columns(21).FillWeight = 70 : 銷帳_dgv.Columns(23).FillWeight = 70 : 銷帳_dgv.Columns(27).FillWeight = 70
|
|
|
49
|
+ For I As Integer = 32 To 36
|
|
|
50
|
+ 銷帳_dgv.Columns(I).DefaultCellStyle.Format = "#,##0.00" : 銷帳_dgv.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
51
|
+ 銷帳_dgv.Columns(I).FillWeight = 70
|
|
|
52
|
+ Next
|
|
|
53
|
+
|
|
|
54
|
+ For I As Integer = 0 To 42 : 銷帳_dgv.Columns(I).ReadOnly = True : Next
|
|
|
55
|
+ 銷帳_dgv.Columns(13).ReadOnly = False : 銷帳_dgv.Columns(14).ReadOnly = False : 銷帳_dgv.Columns(22).ReadOnly = False : 銷帳_dgv.Columns(29).ReadOnly = False
|
|
|
56
|
+ 銷帳_dgv.Columns(30).ReadOnly = False : 銷帳_dgv.Columns(31).ReadOnly = False : 銷帳_dgv.Columns(37).ReadOnly = False
|
|
|
57
|
+
|
|
|
58
|
+ For I As Integer = 0 To 銷帳_dgv.Rows.Count - 1
|
|
|
59
|
+ If IsDBNull(銷帳_dgv("選擇", I).Value) = True Then : 銷帳_dgv("選擇", I).Value = False : End If
|
|
|
60
|
+ If 銷帳_dgv(11, I).Value = False Then
|
|
|
61
|
+ If 銷帳_dgv.Rows(I).Cells("FTY Price 實際廠價").Value <> 0 And 銷帳_dgv.Rows(I).Cells("Tendenza Price").Value <> 0 And
|
|
|
62
|
+ 銷帳_dgv.Rows(I).Cells("Selling Price").Value <> 0 And 銷帳_dgv.Rows(I).Cells("Payment Received").Value.ToString <> "" Then
|
|
|
63
|
+ If 銷帳_dgv.Rows(I).Cells("選擇").Value = False Then
|
|
|
64
|
+ For II As Integer = 2 To 10 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.White : Next
|
|
|
65
|
+ For II As Integer = 13 To 21 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.White : Next
|
|
|
66
|
+ For II As Integer = 22 To 28 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.White : Next
|
|
|
67
|
+ For II As Integer = 29 To 37 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.White : Next
|
|
|
68
|
+ 銷帳_dgv.Rows(I).DefaultCellStyle.BackColor = Color.White
|
|
|
69
|
+ Else
|
|
|
70
|
+ For II As Integer = 2 To 10 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Nothing : Next
|
|
|
71
|
+ For II As Integer = 13 To 21 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Nothing : Next
|
|
|
72
|
+ For II As Integer = 22 To 28 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Nothing : Next
|
|
|
73
|
+ For II As Integer = 29 To 37 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Nothing : Next
|
|
|
74
|
+ 銷帳_dgv.Rows(I).DefaultCellStyle.BackColor = Color.LightGreen
|
|
|
75
|
+ End If
|
|
|
76
|
+ End If
|
|
|
77
|
+ Else
|
|
|
78
|
+ If 銷帳_dgv.Rows(I).Cells("FTY Price 實際廠價").Value <> 0 And 銷帳_dgv.Rows(I).Cells("Tendenza Price").Value <> 0 And
|
|
|
79
|
+ 銷帳_dgv.Rows(I).Cells("Selling Price").Value <> 0 And 銷帳_dgv.Rows(I).Cells("Payment Received").Value.ToString <> "" Then
|
|
|
80
|
+ If 銷帳_dgv.Rows(I).Cells("選擇").Value = False Then
|
|
|
81
|
+ For II As Integer = 2 To 10 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.LightCyan : Next
|
|
|
82
|
+ For II As Integer = 13 To 21 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.Cornsilk : Next
|
|
|
83
|
+ For II As Integer = 22 To 28 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.LavenderBlush : Next
|
|
|
84
|
+ For II As Integer = 29 To 37 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.Beige : Next
|
|
|
85
|
+ 銷帳_dgv.Rows(I).DefaultCellStyle.BackColor = Color.White
|
|
|
86
|
+ Else
|
|
|
87
|
+ For II As Integer = 2 To 10 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Nothing : Next
|
|
|
88
|
+ For II As Integer = 13 To 21 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Nothing : Next
|
|
|
89
|
+ For II As Integer = 22 To 28 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Nothing : Next
|
|
|
90
|
+ For II As Integer = 29 To 37 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Nothing : Next
|
|
|
91
|
+ 銷帳_dgv.Rows(I).DefaultCellStyle.BackColor = Color.LightGreen
|
|
|
92
|
+ End If
|
|
|
93
|
+ End If
|
|
|
94
|
+ End If
|
|
|
95
|
+
|
|
|
96
|
+ If 銷帳_dgv(11, I).Value = True Then
|
|
|
97
|
+ If 銷帳_dgv(14, I).Value = 0 Then
|
|
|
98
|
+ 銷帳_dgv(15, I).Value = 銷帳_dgv(10, I).Value * 銷帳_dgv(13, I).Value
|
|
|
99
|
+ Else
|
|
|
100
|
+ 銷帳_dgv(15, I).Value = 銷帳_dgv(10, I).Value * 銷帳_dgv(14, I).Value
|
|
|
101
|
+ End If
|
|
|
102
|
+ 銷帳_dgv(21, I).Value = 銷帳_dgv(15, I).Value - 銷帳_dgv(16, I).Value - 銷帳_dgv(17, I).Value - 銷帳_dgv(18, I).Value - 銷帳_dgv(19, I).Value + 銷帳_dgv(20, I).Value
|
|
|
103
|
+ 銷帳_dgv(23, I).Value = 銷帳_dgv(10, I).Value * 銷帳_dgv(22, I).Value
|
|
|
104
|
+ 銷帳_dgv(27, I).Value = 銷帳_dgv(23, I).Value - 銷帳_dgv(24, I).Value - 銷帳_dgv(25, I).Value - 銷帳_dgv(26, I).Value
|
|
|
105
|
+ 銷帳_dgv(32, I).Value = 銷帳_dgv(28, I).Value - 銷帳_dgv(21, I).Value
|
|
|
106
|
+ 銷帳_dgv(36, I).Value = 銷帳_dgv(32, I).Value - 銷帳_dgv(33, I).Value - 銷帳_dgv(34, I).Value - 銷帳_dgv(35, I).Value
|
|
|
107
|
+ End If
|
|
|
108
|
+ For II As Integer = 0 To 38 : 銷帳_dgv(II, I).ReadOnly = True : Next
|
|
|
109
|
+ Next
|
|
|
110
|
+ 銷帳_dgv.Columns("已比對").Visible = False : 銷帳_dgv.Columns("已確認").Visible = False
|
|
|
111
|
+ 銷帳_dgv.Columns("扣關稅or後廠價").Visible = False : 銷帳_dgv.Columns("選擇").Visible = True
|
|
|
112
|
+ End If
|
|
|
113
|
+ End Sub
|
|
|
114
|
+ Private Sub Set_銷帳清單2()
|
|
|
115
|
+ Dim ds, ds1 As New DataSet
|
|
|
116
|
+ OV_dgv.DataSource = Nothing : ds.Clear() : currentRowIndex1 = -1
|
|
|
117
|
+ OV_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
118
|
+ OV_dgv.ColumnHeadersHeight = 55 : OV_dgv.AllowUserToAddRows = False
|
|
|
119
|
+ OV1_dgv.DataSource = Nothing : ds1.Clear() : currentRowIndex1 = -1
|
|
|
120
|
+ OV1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
121
|
+ OV1_dgv.ColumnHeadersHeight = 55 : OV1_dgv.AllowUserToAddRows = False
|
|
|
122
|
+
|
|
|
123
|
+ SQL_傭金表()
|
|
|
124
|
+ da.Fill(ds) : OV_dgv.DataSource = ds.Tables(0) : da.Fill(ds1) : OV1_dgv.DataSource = ds1.Tables(0)
|
|
|
125
|
+ For I As Integer = 0 To OV_dgv.Rows.Count - 1
|
|
|
126
|
+ OV_dgv("Tendenzat AMOUNT", I).Value = OV_dgv("Shipped QTY", I).Value * OV_dgv("Tendenzat Price", I).Value
|
|
|
127
|
+ OV_dgv("SELLING AMOUNT", I).Value = OV_dgv("Shipped QTY", I).Value * OV_dgv("Selling Price", I).Value
|
|
|
128
|
+ OV_dgv("OVERAGE PRICE", I).Value = OV_dgv("Selling Price", I).Value - OV_dgv("Tendenzat Price", I).Value
|
|
|
129
|
+ OV_dgv("OVERAGE AMOUNT", I).Value = OV_dgv("Shipped QTY", I).Value * OV_dgv("OVERAGE PRICE", I).Value
|
|
|
130
|
+ If I = 0 Then
|
|
|
131
|
+ OV_dgv("OVERAGE BALANCE", I).Value = OV_dgv("OVERAGE AMOUNT", I).Value - OV_dgv("Overage Deduct AMT", I).Value
|
|
|
132
|
+ Else
|
|
|
133
|
+ OV_dgv("OVERAGE BALANCE", I).Value = OV_dgv("OVERAGE BALANCE", I - 1).Value + OV_dgv("OVERAGE AMOUNT", I).Value - OV_dgv("Overage Deduct AMT", I).Value
|
|
|
134
|
+ End If
|
|
|
135
|
+ Next
|
|
|
136
|
+ Set_銷帳清單2_格式()
|
|
|
137
|
+ End Sub
|
|
|
138
|
+ Private Sub Set_銷帳清單2_格式()
|
|
|
139
|
+ If OV_dgv.Columns.Count > 0 Then
|
|
|
140
|
+ OV_dgv.Columns(0).Visible = False : OV_dgv.Columns(2).FillWeight = 50 : OV_dgv.Columns(5).FillWeight = 70 : OV_dgv.Columns(6).FillWeight = 70
|
|
|
141
|
+ OV_dgv.Columns(8).FillWeight = 70 : OV_dgv.Columns(10).FillWeight = 75 : OV_dgv.Columns(12).FillWeight = 85 : OV_dgv.Columns(13).FillWeight = 85
|
|
|
142
|
+ OV_dgv.Columns(14).FillWeight = 85 : OV_dgv.Columns(15).FillWeight = 85 : OV_dgv.Columns("需存檔").Visible = False
|
|
|
143
|
+ If 大小調整_nup.Value >= 1 And 大小調整_nup.Value <= 25 Then : OV_dgv.Columns(17).FillWeight = 500
|
|
|
144
|
+ ElseIf 大小調整_nup.Value > 25 And 大小調整_nup.Value <= 50 Then : OV_dgv.Columns(17).FillWeight = 250
|
|
|
145
|
+ ElseIf 大小調整_nup.Value > 50 And 大小調整_nup.Value <= 75 Then : OV_dgv.Columns(17).FillWeight = 200
|
|
|
146
|
+ ElseIf 大小調整_nup.Value > 75 And 大小調整_nup.Value <= 100 Then : OV_dgv.Columns(17).FillWeight = 150
|
|
|
147
|
+ End If
|
|
|
148
|
+ OV_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
|
149
|
+ For I As Integer = 0 To 13 : OV_dgv.Columns(I).ReadOnly = True : Next : OV_dgv.Columns(16).ReadOnly = True
|
|
|
150
|
+ OV_dgv.Columns("Shipped QTY").DefaultCellStyle.Format = "#,##0"
|
|
|
151
|
+ OV_dgv.Columns("Shipped QTY").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
152
|
+ OV_dgv.Columns("Shipped QTY").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
153
|
+ OV_dgv.Columns("Tendenzat Price").DefaultCellStyle.Format = "#,##0.00"
|
|
|
154
|
+ OV_dgv.Columns("Tendenzat Price").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
155
|
+ OV_dgv.Columns("Tendenzat Price").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
156
|
+ OV_dgv.Columns("Tendenzat AMOUNT").DefaultCellStyle.Format = "#,##0.00"
|
|
|
157
|
+ OV_dgv.Columns("Tendenzat AMOUNT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
158
|
+ OV_dgv.Columns("Tendenzat AMOUNT").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
159
|
+ OV_dgv.Columns("Selling Price").DefaultCellStyle.Format = "#,##0.00"
|
|
|
160
|
+ OV_dgv.Columns("Selling Price").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
161
|
+ OV_dgv.Columns("Selling Price").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
162
|
+ OV_dgv.Columns("SELLING AMOUNT").DefaultCellStyle.Format = "#,##0.00"
|
|
|
163
|
+ OV_dgv.Columns("SELLING AMOUNT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
164
|
+ OV_dgv.Columns("SELLING AMOUNT").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
165
|
+ OV_dgv.Columns("OVERAGE PRICE").DefaultCellStyle.Format = "#,##0.00"
|
|
|
166
|
+ OV_dgv.Columns("OVERAGE PRICE").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
167
|
+ OV_dgv.Columns("OVERAGE PRICE").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
168
|
+ OV_dgv.Columns("OVERAGE AMOUNT").DefaultCellStyle.Format = "#,##0.00"
|
|
|
169
|
+ OV_dgv.Columns("OVERAGE AMOUNT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
170
|
+ OV_dgv.Columns("OVERAGE AMOUNT").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
171
|
+ OV_dgv.Columns("Overage Deduct AMT").DefaultCellStyle.Format = "#,##0.00"
|
|
|
172
|
+ OV_dgv.Columns("Overage Deduct AMT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
173
|
+ OV_dgv.Columns("Overage Deduct AMT").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
174
|
+ OV_dgv.Columns("OVERAGE BALANCE").DefaultCellStyle.Format = "#,##0.00"
|
|
|
175
|
+ OV_dgv.Columns("OVERAGE BALANCE").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
176
|
+ OV_dgv.Columns("OVERAGE BALANCE").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
177
|
+ End If
|
|
|
178
|
+ End Sub
|
|
|
179
|
+ Private Sub OVERAGEREPORT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
180
|
+ TENDEN_MES_SYS.WindowState = 2 : Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True : 首次開啟 = True
|
|
|
181
|
+ 年份_cb.Text = Year(Today)
|
|
|
182
|
+ 銷帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
|
|
|
183
|
+ End Sub
|
|
|
184
|
+ Private Sub OVERAGEREPORT_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
|
|
|
185
|
+ SplitContainer1.SplitterWidth = 1 ' 分隔條的寬度，根據需要調整
|
|
|
186
|
+ 大小調整() : SQL_銷帳清單_預設() : Set_銷帳清單() : Set_銷帳清單2() : 首次開啟 = False
|
|
|
187
|
+ End Sub
|
|
|
188
|
+ Private Sub OVERAGEREPORT_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
|
|
|
189
|
+ Dim panel1Width As Integer = Panel1.Width ' 計算 Panel1 的 X 軸位置
|
|
|
190
|
+ Dim totalWidth As Integer = Me.Width
|
|
|
191
|
+ Dim panel1X As Integer = (totalWidth - panel1Width) \ 2 ' 計算 Panel1 的 X 軸位置
|
|
|
192
|
+ Panel1.Location = New System.Drawing.Point(panel1X, Panel1.Location.Y) ' 設定 Panel1 的位置
|
|
|
193
|
+ End Sub
|
|
|
194
|
+ Private Sub OV_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles OV_dgv.RowPostPaint
|
|
|
195
|
+ Dim linePen As New Pen(Color.Blue, 1.5)
|
|
|
196
|
+ If e.RowIndex = OV_dgv.Rows.Count - 1 Then
|
|
|
197
|
+ Exit Sub
|
|
|
198
|
+ Else
|
|
|
199
|
+ If OV_dgv("INVOICE#", e.RowIndex).Value.ToString <> OV_dgv("INVOICE#", e.RowIndex + 1).Value.ToString Then
|
|
|
200
|
+ Dim startX As Integer = IIf(OV_dgv.RowHeadersVisible, OV_dgv.RowHeadersWidth, 0)
|
|
|
201
|
+ Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
|
|
|
202
|
+ Dim endX As Integer = startX + OV_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - OV_dgv.HorizontalScrollingOffset
|
|
|
203
|
+ e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
|
|
|
204
|
+ Exit Sub
|
|
|
205
|
+ End If
|
|
|
206
|
+ End If
|
|
|
207
|
+ End Sub
|
|
|
208
|
+ Private Sub OV_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles OV_dgv.CellEndEdit
|
|
|
209
|
+ Try
|
|
|
210
|
+ Dim EU As String = OV_dgv("Overage Deduct Date", e.RowIndex).Value.ToString
|
|
|
211
|
+ If EU = "" Then : Else : 日期1_dtp.Text = EU : OV_dgv.Rows(e.RowIndex).Cells("Overage Deduct Date").Value = Strings.Format(日期1_dtp.Value, "yyyy/MM/dd") : End If
|
|
|
212
|
+ Catch ex As Exception : MsgBox("時間格式有誤") : OV_dgv("Overage Deduct Date", e.RowIndex).Value = "" : End Try
|
|
|
213
|
+ For I As Integer = 0 To OV_dgv.Rows.Count - 1
|
|
|
214
|
+ If I = 0 Then
|
|
|
215
|
+ OV_dgv("OVERAGE BALANCE", I).Value = OV_dgv("OVERAGE AMOUNT", I).Value - OV_dgv("Overage Deduct AMT", I).Value
|
|
|
216
|
+ Else
|
|
|
217
|
+ OV_dgv("OVERAGE BALANCE", I).Value = OV_dgv("OVERAGE BALANCE", I - 1).Value + OV_dgv("OVERAGE AMOUNT", I).Value - OV_dgv("Overage Deduct AMT", I).Value
|
|
|
218
|
+ End If
|
|
|
219
|
+ Next
|
|
|
220
|
+ End Sub
|
|
|
221
|
+ Private Sub 銷帳_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 銷帳_dgv.RowPostPaint
|
|
|
222
|
+ Dim linePen As New Pen(Color.Blue, 1.5)
|
|
|
223
|
+ If e.RowIndex = 銷帳_dgv.Rows.Count - 1 Then
|
|
|
224
|
+ Exit Sub
|
|
|
225
|
+ Else
|
|
|
226
|
+ If INV排序_cb.Checked = True Then
|
|
|
227
|
+ If 銷帳_dgv(4, e.RowIndex).Value.ToString <> 銷帳_dgv(4, e.RowIndex + 1).Value.ToString Then
|
|
|
228
|
+ Dim startX As Integer = IIf(銷帳_dgv.RowHeadersVisible, 銷帳_dgv.RowHeadersWidth, 0)
|
|
|
229
|
+ Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
|
|
|
230
|
+ Dim endX As Integer = startX + 銷帳_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 銷帳_dgv.HorizontalScrollingOffset
|
|
|
231
|
+ e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
|
|
|
232
|
+ Exit Sub
|
|
|
233
|
+ End If
|
|
|
234
|
+ Else
|
|
|
235
|
+ If 銷帳_dgv(5, e.RowIndex).Value.ToString <> 銷帳_dgv(5, e.RowIndex + 1).Value.ToString Then
|
|
|
236
|
+ Dim startX As Integer = IIf(銷帳_dgv.RowHeadersVisible, 銷帳_dgv.RowHeadersWidth, 0)
|
|
|
237
|
+ Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
|
|
|
238
|
+ Dim endX As Integer = startX + 銷帳_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 銷帳_dgv.HorizontalScrollingOffset
|
|
|
239
|
+ e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
|
|
|
240
|
+ Exit Sub
|
|
|
241
|
+ End If
|
|
|
242
|
+ End If
|
|
|
243
|
+ End If
|
|
|
244
|
+ End Sub
|
|
|
245
|
+ Private Sub 銷帳_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷帳_dgv.CellClick
|
|
|
246
|
+ If e.RowIndex = -1 Then : Else : 目前選擇項 = e.RowIndex : currentRowIndex1 = e.RowIndex
|
|
|
247
|
+ 流水號_tb.Text = 銷帳_dgv.Rows(e.RowIndex).Cells(0).Value.ToString
|
|
|
248
|
+ If 銷帳_dgv.Rows(e.RowIndex).Cells("FTY Price 實際廠價").Value <> 0 And 銷帳_dgv.Rows(e.RowIndex).Cells("Tendenza Price").Value <> 0 And
|
|
|
249
|
+ 銷帳_dgv.Rows(e.RowIndex).Cells("Selling Price").Value <> 0 And 銷帳_dgv.Rows(e.RowIndex).Cells("Payment Received").Value.ToString <> "" Then
|
|
|
250
|
+ If 銷帳_dgv.Rows(e.RowIndex).Cells("選擇").Value = True Then
|
|
|
251
|
+ 銷帳_dgv.Rows(e.RowIndex).Cells("選擇").Value = False
|
|
|
252
|
+ For II As Integer = 2 To 10 : 銷帳_dgv.Rows(e.RowIndex).Cells(II).Style.BackColor = Color.LightCyan : Next
|
|
|
253
|
+ For II As Integer = 13 To 21 : 銷帳_dgv.Rows(e.RowIndex).Cells(II).Style.BackColor = Color.Cornsilk : Next
|
|
|
254
|
+ For II As Integer = 22 To 28 : 銷帳_dgv.Rows(e.RowIndex).Cells(II).Style.BackColor = Color.LavenderBlush : Next
|
|
|
255
|
+ For II As Integer = 29 To 37 : 銷帳_dgv.Rows(e.RowIndex).Cells(II).Style.BackColor = Color.Beige : Next
|
|
|
256
|
+ 銷帳_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
|
|
|
257
|
+ Else
|
|
|
258
|
+ 銷帳_dgv.Rows(e.RowIndex).Cells("選擇").Value = True
|
|
|
259
|
+ For II As Integer = 2 To 10 : 銷帳_dgv.Rows(e.RowIndex).Cells(II).Style.BackColor = Nothing : Next
|
|
|
260
|
+ For II As Integer = 13 To 21 : 銷帳_dgv.Rows(e.RowIndex).Cells(II).Style.BackColor = Nothing : Next
|
|
|
261
|
+ For II As Integer = 22 To 28 : 銷帳_dgv.Rows(e.RowIndex).Cells(II).Style.BackColor = Nothing : Next
|
|
|
262
|
+ For II As Integer = 29 To 37 : 銷帳_dgv.Rows(e.RowIndex).Cells(II).Style.BackColor = Nothing : Next
|
|
|
263
|
+ 銷帳_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.LightGreen
|
|
|
264
|
+ End If
|
|
|
265
|
+ End If
|
|
|
266
|
+ End If
|
|
|
267
|
+ End Sub
|
|
|
268
|
+ Private Sub 大小調整_nup_ValueChanged(sender As Object, e As EventArgs) Handles 大小調整_nup.ValueChanged
|
|
|
269
|
+ 大小調整() : Set_銷帳清單_格式() : Set_銷帳清單2_格式()
|
|
|
270
|
+ End Sub
|
|
|
271
|
+ Private Sub 大小調整() ' 計算 SplitterDistance，使得 Panel1 佔 30%，Panel2 佔 70%
|
|
|
272
|
+ Dim totalWidth As Integer = SplitContainer1.Width - SplitContainer1.SplitterWidth
|
|
|
273
|
+ Dim panel1Width As Integer = CInt(totalWidth * 大小調整_nup.Value / 100)
|
|
|
274
|
+ SplitContainer1.SplitterDistance = panel1Width
|
|
|
275
|
+ End Sub
|
|
|
276
|
+ Private Sub P1_bt_Click(sender As Object, e As EventArgs) Handles P1_bt.Click
|
|
|
277
|
+ 大小調整_nup.Value = 1 : OV_dgv.Columns(17).FillWeight = 500
|
|
|
278
|
+ End Sub
|
|
|
279
|
+ Private Sub P25_bt_Click(sender As Object, e As EventArgs) Handles P25_bt.Click
|
|
|
280
|
+ 大小調整_nup.Value = 25 : OV_dgv.Columns(17).FillWeight = 250
|
|
|
281
|
+ End Sub
|
|
|
282
|
+ Private Sub P50_bt_Click(sender As Object, e As EventArgs) Handles P50_bt.Click
|
|
|
283
|
+ 大小調整_nup.Value = 50 : OV_dgv.Columns(17).FillWeight = 200
|
|
|
284
|
+ End Sub
|
|
|
285
|
+ Private Sub P75_bt_Click(sender As Object, e As EventArgs) Handles P75_bt.Click
|
|
|
286
|
+ 大小調整_nup.Value = 75 : OV_dgv.Columns(17).FillWeight = 150
|
|
|
287
|
+ End Sub
|
|
|
288
|
+ Private Sub P100_bt_Click(sender As Object, e As EventArgs) Handles P100_bt.Click
|
|
|
289
|
+ 大小調整_nup.Value = 100 : OV_dgv.Columns(17).FillWeight = 100
|
|
|
290
|
+ End Sub
|
|
|
291
|
+ Private Sub 重新讀取1()
|
|
|
292
|
+ PA25 = 年份_cb.Text : Set_銷帳清單() : Set_銷帳清單2()
|
|
|
293
|
+ End Sub
|
|
|
294
|
+ Private Sub 年份_cb_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
|
|
|
295
|
+ If 首次開啟 = False Then : 重新讀取1() : End If
|
|
|
296
|
+ End Sub
|
|
|
297
|
+ Private Sub INV排序_cb_Click(sender As Object, e As EventArgs) Handles INV排序_cb.Click
|
|
|
298
|
+ INV排序_cb.Checked = True : PO排序_cb.Checked = False : If 首次開啟 = False Then : 重新讀取1() : End If
|
|
|
299
|
+ End Sub
|
|
|
300
|
+ Private Sub PO排序_cb_Click(sender As Object, e As EventArgs) Handles PO排序_cb.Click
|
|
|
301
|
+ INV排序_cb.Checked = False : PO排序_cb.Checked = True : If 首次開啟 = False Then : 重新讀取1() : End If
|
|
|
302
|
+ End Sub
|
|
|
303
|
+ Private currentRowIndex1 As Integer = -1 ' 用于跟踪当前选定的行索引
|
|
|
304
|
+ Private Sub 比對關鍵字_bt_Click(sender As Object, e As EventArgs) Handles 比對關鍵字_bt.Click
|
|
|
305
|
+ 查詢DGV中的關鍵字(銷帳_dgv, PO號_tb)
|
|
|
306
|
+ End Sub
|
|
|
307
|
+ Private Sub PO號_tb_TextChanged(sender As Object, e As EventArgs) Handles PO號_tb.TextChanged
|
|
|
308
|
+ lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(銷帳_dgv, PO號_tb)
|
|
|
309
|
+ End Sub
|
|
|
310
|
+ Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click
|
|
|
311
|
+ 重新讀取1()
|
|
|
312
|
+ End Sub
|
|
|
313
|
+ Private Sub 移到最後_bt_Click(sender As Object, e As EventArgs) Handles 移到最後_bt.Click
|
|
|
314
|
+ If OV_dgv.Rows.Count > 0 Then : OV_dgv.CurrentCell = OV_dgv.Rows(OV_dgv.Rows.Count - 1).Cells(1) : End If
|
|
|
315
|
+ End Sub
|
|
|
316
|
+ Private Sub 轉移_bt_Click(sender As Object, e As EventArgs) Handles 轉移_bt.Click
|
|
|
317
|
+ 存檔() : Dim 轉移, 排序 As Integer
|
|
|
318
|
+ SQL_傭金表排序()
|
|
|
319
|
+ If dr.Read Then : 排序 = dr("排序編號").ToString : Else : 排序 = 0 : End If
|
|
|
320
|
+ For i As Integer = 0 To 銷帳_dgv.Rows.Count - 1
|
|
|
321
|
+ If 銷帳_dgv.Rows(i).Cells("選擇").Value = True Then : 排序 += 1
|
|
|
322
|
+ PA3 = 銷帳_dgv.Rows(i).Cells("流水號").Value.ToString : SQL_銷帳清單_存檔已轉OV()
|
|
|
323
|
+
|
|
|
324
|
+ PA3 = 銷帳_dgv.Rows(i).Cells("流水號").Value.ToString : PA4 = 銷帳_dgv.Rows(i).Cells("品牌").Value.ToString : PA5 = 銷帳_dgv.Rows(i).Cells("工廠").Value.ToString
|
|
|
325
|
+ PA6 = 銷帳_dgv.Rows(i).Cells("INV").Value.ToString : PA7 = 銷帳_dgv.Rows(i).Cells("訂單號").Value.ToString : PA8 = 銷帳_dgv.Rows(i).Cells("出貨數量").Value.ToString
|
|
|
326
|
+ PA9 = 銷帳_dgv.Rows(i).Cells("Tendenza Price").Value.ToString : PA10 = 銷帳_dgv.Rows(i).Cells("Selling Price").Value.ToString : PA16 = 排序
|
|
|
327
|
+ PA11 = 銷帳_dgv.Rows(i).Cells("EX FTY DATE").Value.ToString : PA12 = 銷帳_dgv.Rows(i).Cells("Payment Received").Value.ToString : PA13 = "" : PA14 = "" : PA15 = ""
|
|
|
328
|
+ SQL_傭金表新增() : 轉移 += 1
|
|
|
329
|
+ End If
|
|
|
330
|
+ Next : MsgBox("運算完成，共轉移 " & 轉移 & " 筆資料到 OVERAGE REPORT !!") : 重新讀取1()
|
|
|
331
|
+ End Sub
|
|
|
332
|
+ Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
|
|
|
333
|
+ 存檔() : MsgBox("存檔完成!!")
|
|
|
334
|
+ End Sub
|
|
|
335
|
+ Private Sub 存檔()
|
|
|
336
|
+ For I As Integer = 0 To OV_dgv.Rows.Count - 1
|
|
|
337
|
+ If OV_dgv("Overage Deduct Date", I).Value.ToString <> OV1_dgv("Overage Deduct Date", I).Value.ToString Or
|
|
|
338
|
+ OV_dgv("Overage Deduct AMT", I).Value <> OV1_dgv("Overage Deduct AMT", I).Value Or
|
|
|
339
|
+ OV_dgv("Remark", I).Value.ToString <> OV1_dgv("Remark", I).Value.ToString Then
|
|
|
340
|
+ OV_dgv("需存檔", I).Value = True
|
|
|
341
|
+ Else
|
|
|
342
|
+ OV_dgv("需存檔", I).Value = False
|
|
|
343
|
+ End If
|
|
|
344
|
+ Next : 資料數 = OV_dgv.Rows.Count
|
|
|
345
|
+ For i As Integer = 0 To OV_dgv.Rows.Count - 1 : MyModule1.進度條()
|
|
|
346
|
+ If OV_dgv.Rows(i).Cells("需存檔").Value = True Then : PA3 = OV_dgv.Rows(i).Cells("流水號").Value.ToString
|
|
|
347
|
+ PA4 = OV_dgv.Rows(i).Cells("Overage Deduct Date").Value.ToString : PA5 = OV_dgv.Rows(i).Cells("Overage Deduct AMT").Value.ToString
|
|
|
348
|
+ PA6 = OV_dgv.Rows(i).Cells("Remark").Value.ToString
|
|
|
349
|
+ SQL_傭金表_存檔1() : OV_dgv.Rows(i).Cells("需存檔").Value = False
|
|
|
350
|
+ End If
|
|
|
351
|
+ Next : TENDEN_MES_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
|
|
|
352
|
+ End Sub
|
|
|
353
|
+ Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
|
|
|
354
|
+ xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
|
|
|
355
|
+ xlBook = xlApp.Workbooks.Add : xlApp.DisplayAlerts = True : xlBook.Activate() : xlSheet = NewMethod(xlBook)
|
|
|
356
|
+ xlSheet.Activate() : xlApp.Visible = True : xlApp.Application.WindowState = xlMaximized
|
|
|
357
|
+
|
|
|
358
|
+ xlSheet.Cells(1, 1) = "BRAND" : xlSheet.Cells(1, 2) = "FTY" : xlSheet.Cells(1, 3) = "INVOICE#" : xlSheet.Cells(1, 4) = "PO#" : xlSheet.Cells(1, 5) = "Shipped QTY"
|
|
|
359
|
+ xlSheet.Cells(1, 6) = "Tendenzat PRICE" : xlSheet.Cells(1, 7) = "Tendenzat AMOUNT" : xlSheet.Cells(1, 8) = "SELLING PRICE (INVOICE PRICE)"
|
|
|
360
|
+ xlSheet.Cells(1, 9) = "SELLING AMOUNT" : xlSheet.Cells(1, 10) = "OVERAGE PRICE" : xlSheet.Cells(1, 11) = "OVERAGE AMOUNT" : xlSheet.Cells(1, 12) = "XF DATE"
|
|
|
361
|
+ xlSheet.Cells(1, 13) = "Payment Received" : xlSheet.Cells(1, 14) = "OVERAGE DEDUCT DATE/AMT" : xlSheet.Cells(1, 16) = "OVERAGE BALANCE" : xlSheet.Cells(1, 17) = "Remark"
|
|
|
362
|
+ AA(xlApp, xlSheet) : N1 = 0
|
|
|
363
|
+ For i As Integer = 0 To OV_dgv.Rows.Count - 1
|
|
|
364
|
+ xlSheet.Cells(i + 2, 1) = OV_dgv.Rows(i).Cells("BRAND").Value.ToString
|
|
|
365
|
+ xlSheet.Cells(i + 2, 2) = OV_dgv.Rows(i).Cells("FTY").Value.ToString
|
|
|
366
|
+ xlSheet.Cells(i + 2, 3) = OV_dgv.Rows(i).Cells("INVOICE#").Value.ToString
|
|
|
367
|
+ xlSheet.Cells(i + 2, 4) = OV_dgv.Rows(i).Cells("PO#").Value.ToString
|
|
|
368
|
+ xlSheet.Cells(i + 2, 5) = OV_dgv.Rows(i).Cells("Shipped QTY").Value.ToString
|
|
|
369
|
+ xlSheet.Cells(i + 2, 6) = OV_dgv.Rows(i).Cells("Tendenzat Price").Value.ToString
|
|
|
370
|
+ xlSheet.Cells(i + 2, 7) = "=F" & i + 2 & "*E" & i + 2
|
|
|
371
|
+ xlSheet.Cells(i + 2, 8) = OV_dgv.Rows(i).Cells("Selling Price").Value.ToString
|
|
|
372
|
+ xlSheet.Cells(i + 2, 9) = "=H" & i + 2 & "*E" & i + 2
|
|
|
373
|
+ xlSheet.Cells(i + 2, 10) = "=H" & i + 2 & "-F" & i + 2
|
|
|
374
|
+ xlSheet.Cells(i + 2, 11) = "=J" & i + 2 & "*E" & i + 2
|
|
|
375
|
+ xlSheet.Cells(i + 2, 12) = OV_dgv.Rows(i).Cells("XF Date").Value.ToString
|
|
|
376
|
+ xlSheet.Cells(i + 2, 13) = OV_dgv.Rows(i).Cells("Payment Received").Value.ToString
|
|
|
377
|
+ xlSheet.Cells(i + 2, 14) = OV_dgv.Rows(i).Cells("Overage Deduct Date").Value.ToString
|
|
|
378
|
+ xlSheet.Cells(i + 2, 15) = OV_dgv.Rows(i).Cells("Overage Deduct AMT").Value.ToString
|
|
|
379
|
+ If i = 0 Then
|
|
|
380
|
+ xlSheet.Cells(i + 2, 16) = "=K" & i + 2 & "-O" & i + 2
|
|
|
381
|
+ Else
|
|
|
382
|
+ xlSheet.Cells(i + 2, 16) = "=K" & i + 2 & "-O" & i + 2 & "+P" & i + 1
|
|
|
383
|
+ End If
|
|
|
384
|
+ xlSheet.Cells(i + 2, 17) = OV_dgv.Rows(i).Cells("Remark").Value.ToString : N1 = i
|
|
|
385
|
+ Next : BB(xlApp, xlSheet)
|
|
|
386
|
+ xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select() : xlSheet.Range("B1").Select()
|
|
|
387
|
+ xlApp.Application.WindowState = xlMinimized : MsgBox("列印完成")
|
|
|
388
|
+ End Sub
|
|
|
389
|
+ Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
|
|
|
390
|
+ Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
|
|
|
391
|
+ End Function
|
|
|
392
|
+ Private Sub AA(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
|
|
|
393
|
+ xlSheet.Columns("C:C").Select : myExcel.Selection.NumberFormatLocal = "@"
|
|
|
394
|
+ xlSheet.Columns("D:D").Select : myExcel.Selection.NumberFormatLocal = "@"
|
|
|
395
|
+ xlSheet.Columns("Q:Q").Select : myExcel.Selection.NumberFormatLocal = "@"
|
|
|
396
|
+ End Sub
|
|
|
397
|
+ Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
|
|
|
398
|
+ xlSheet.Columns("A:D").Select : xlSheet.Columns("A:D").EntireColumn.AutoFit
|
|
|
399
|
+ xlSheet.Columns("E:E").Select : myExcel.Selection.Style = "Comma" : myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
|
|
|
400
|
+ xlSheet.Columns("F:K").Select : myExcel.Selection.Style = "Comma"
|
|
|
401
|
+ xlSheet.Columns("L:N").Select : myExcel.Selection.ColumnWidth = 9
|
|
|
402
|
+ xlSheet.Columns("O:P").Select : myExcel.Selection.Style = "Comma" : myExcel.Selection.ColumnWidth = 12
|
|
|
403
|
+ xlSheet.Columns("Q:Q").Select : myExcel.Selection.ColumnWidth = 50
|
|
|
404
|
+ xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 65
|
|
|
405
|
+ With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False
|
|
|
406
|
+ .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
|
|
|
407
|
+
|
|
|
408
|
+ xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 10
|
|
|
409
|
+ xlSheet.Range("A1:Q1").Select()
|
|
|
410
|
+ With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorDark1 : .TintAndShade = -0.149998474074526
|
|
|
411
|
+ .PatternTintAndShade = 0 : End With : myExcel.Selection.AutoFilter
|
|
|
412
|
+
|
|
|
413
|
+ xlSheet.Range("A2:Q" & N1 + 3).Select()
|
|
|
414
|
+ myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
|
|
|
415
|
+ With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
|
|
|
416
|
+ With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
|
|
|
417
|
+ With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
|
|
|
418
|
+ With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
|
|
|
419
|
+ With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
|
|
|
420
|
+ With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
|
|
|
421
|
+
|
|
|
422
|
+ xlSheet.Range("A1:Q1").Select()
|
|
|
423
|
+ myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
|
|
|
424
|
+ myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
|
|
|
425
|
+ With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
|
|
|
426
|
+ With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With
|
|
|
427
|
+ myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
|
|
|
428
|
+ myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
|
|
|
429
|
+ xlSheet.Rows("2:2").Select : myExcel.ActiveWindow.FreezePanes = True : myExcel.ActiveWindow.DisplayGridlines = False
|
|
|
430
|
+ xlSheet.Cells.Select()
|
|
|
431
|
+ With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
|
|
|
432
|
+ .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
|
|
|
433
|
+ End With
|
|
|
434
|
+ End Sub
|
|
|
435
|
+End Class
|
