MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/財務系統管理/財務收支單一覽表.vb

Option Strict Off
Imports System.IO
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Public Class 財務收支單一覽表
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
    Dim N1 As Integer : Dim N2 As Integer
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Private Sub Set_清單1()
        DataGridView4.DataSource = Nothing : ds1.Clear()
        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView4.ColumnHeadersHeight = 25
        DataGridView4.AllowUserToAddRows = False
        SQL_營運成本收支單一覽表清單()
        da.Fill(ds1) : DataGridView4.DataSource = ds1.Tables(0) : conn.Close()

        DataGridView4.Columns(0).FillWeight = 160 : DataGridView4.Columns(1).Visible = False : DataGridView4.Columns(2).FillWeight = 100 : DataGridView4.Columns(3).Visible = False
        DataGridView4.Columns(4).FillWeight = 100 : DataGridView4.Columns(5).Visible = False : DataGridView4.Columns(6).Visible = False
    End Sub
    Private Sub Set_清單2()
        DataGridView2.DataSource = Nothing : ds2.Clear()
        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView2.ColumnHeadersHeight = 25
        DataGridView2.AllowUserToAddRows = False
        SQL_營運成本收支單一覽表彙總()
        da.Fill(ds2) : DataGridView2.DataSource = ds2.Tables(0) : conn.Close()

        DataGridView2.Columns(0).FillWeight = 100 : DataGridView2.Columns(1).FillWeight = 140 : DataGridView2.Columns(2).FillWeight = 140 : DataGridView2.Columns(3).FillWeight = 140
        DataGridView2.Columns(4).FillWeight = 100 : DataGridView2.Columns(5).FillWeight = 100 : DataGridView2.Columns(6).FillWeight = 100 : DataGridView2.Columns(7).FillWeight = 100
        DataGridView2.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(7).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(4).DefaultCellStyle.Format = "#,##0"
        DataGridView2.Columns(5).DefaultCellStyle.Format = "#,##0"
        DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView2.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView2.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        DataGridView2.Columns(0).ReadOnly = True : DataGridView2.Columns(1).ReadOnly = True : DataGridView2.Columns(2).ReadOnly = True : DataGridView2.Columns(3).ReadOnly = True
        DataGridView2.Columns(4).ReadOnly = True : DataGridView2.Columns(5).ReadOnly = True : DataGridView2.Columns(6).ReadOnly = True : DataGridView2.Columns(7).ReadOnly = True
    End Sub
    Private Sub Set_費用清單()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.RowTemplate.Height = 35
        SQL_營運成本收支單一覽表費用清單()
        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()

        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 300 : DataGridView1.Columns(3).FillWeight = 500
        DataGridView1.Columns(4).FillWeight = 140 : DataGridView1.Columns(5).FillWeight = 140 : DataGridView1.Columns(6).FillWeight = 140 : DataGridView1.Columns(7).FillWeight = 140
        DataGridView1.Columns(8).FillWeight = 140

        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(3).ReadOnly = True : DataGridView1.Columns(4).ReadOnly = True
        DataGridView1.Columns(5).ReadOnly = True : DataGridView1.Columns(6).ReadOnly = True

        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter

        TextBox5.Text = "0" : TextBox7.Text = "0" : TextBox6.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0"
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("現金").Value : TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("支出").Value
            TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("開票").Value : TextBox11.Text = Val(TextBox11.Text) + DataGridView1.Rows(i).Cells("收票").Value
        Next i
        TextBox6.Text = Val(TextBox10.Text) + Val(TextBox5.Text) - Val(TextBox7.Text)
        If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
        TextBox5.Text = Strings.Format(Val(TextBox5.Text), "#,##0") : TextBox7.Text = Strings.Format(Val(TextBox7.Text), "#,##0") : TextBox6.Text = Strings.Format(Val(TextBox6.Text), "#,##0")
        TextBox10.Text = Strings.Format(Val(TextBox10.Text), "#,##0") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0")
    End Sub
    Private Sub 日期格式()
        If 會計月.Checked = True Then
            '-------------日期一----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(DateTimePicker4.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker4.Value = DTP
            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
            DTP = Strings.Left(Strings.Format(DateTimePicker4.Value, "yyyy/MM/dd"), 8) & "26" : DateTimePicker4.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd"), 8) & "25" : DateTimePicker3.Value = DTP
        Else
            '-------------日期一----------------------------------------------------------------------------------------
            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
            DTP = Strings.Left(Strings.Format(DateTimePicker4.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker4.Value = DTP
            '-------------日期二----------------------------------------------------------------------------------------
            DTP = Strings.Left(Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker3.Value = DTP
            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(1) : DateTimePicker3.Value = DateTimePicker3.Value.AddDays(-1)
        End If
    End Sub
    Private Sub 營運費用支付單一覽表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        日期格式() : DataGridView2.Visible = False : RadioButton1.Checked = True : DateTimePicker5.Visible = False
    End Sub
    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView4.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox1.Text = DataGridView4(0, e.RowIndex).Value.ToString : TextBox13.Text = DataGridView4(6, e.RowIndex).Value.ToString
            TextBox3.Text = DataGridView4(1, e.RowIndex).Value.ToString : DateTimePicker1.Value = DataGridView4(2, e.RowIndex).Value.ToString
            TextBox4.Text = DataGridView4(3, e.RowIndex).Value.ToString : DateTimePicker2.Value = DataGridView4(4, e.RowIndex).Value.ToString
            TextBox14.Text = DataGridView4(5, e.RowIndex).Value.ToString
            Set_費用清單()
        End If
    End Sub
    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
        If e.RowIndex = DataGridView2.Rows.Count - 1 Then
            Exit Sub
        Else
            If DataGridView2(0, e.RowIndex).Value.ToString <> DataGridView2(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
            If DataGridView2(1, e.RowIndex).Value.ToString <> DataGridView2(1, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If 會計月.Checked = True Then
            DateTimePicker5.Value = DateTimePicker5.Value.AddMonths(-1)
            DateTimePicker4.Value = DateTimePicker5.Value
            DateTimePicker3.Value = DateTimePicker5.Value
        Else
            DateTimePicker5.Value = DateTimePicker5.Value.AddMonths(-1)
            DateTimePicker4.Value = DateTimePicker5.Value.AddMonths(-1)
            DateTimePicker3.Value = DateTimePicker5.Value
        End If
        日期格式()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If 會計月.Checked = True Then
            DateTimePicker5.Value = DateTimePicker5.Value.AddMonths(1)
            DateTimePicker4.Value = DateTimePicker5.Value
            DateTimePicker3.Value = DateTimePicker5.Value
        Else
            DateTimePicker5.Value = DateTimePicker5.Value.AddMonths(1)
            DateTimePicker4.Value = DateTimePicker5.Value.AddMonths(-1)
            DateTimePicker3.Value = DateTimePicker5.Value
        End If
        日期格式()
    End Sub
    Private Sub 彙總計算()
        If RadioButton1.Checked = False And RadioButton2.Checked = True Then
            TextBox5.Text = "0" : TextBox7.Text = "0" : TextBox6.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0"
            For i As Integer = 0 To DataGridView2.Rows.Count - 1
                TextBox5.Text = Val(TextBox5.Text) + DataGridView2.Rows(i).Cells("現金").Value : TextBox7.Text = Val(TextBox7.Text) + DataGridView2.Rows(i).Cells("支出").Value
                TextBox10.Text = Val(TextBox10.Text) + DataGridView2.Rows(i).Cells("開票").Value : TextBox11.Text = Val(TextBox11.Text) + DataGridView2.Rows(i).Cells("收票").Value
            Next i
            TextBox6.Text = Val(TextBox10.Text) + Val(TextBox5.Text) - Val(TextBox7.Text)
            If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
            TextBox5.Text = Strings.Format(Val(TextBox5.Text), "#,##0") : TextBox7.Text = Strings.Format(Val(TextBox7.Text), "#,##0") : TextBox6.Text = Strings.Format(Val(TextBox6.Text), "#,##0")
            TextBox10.Text = Strings.Format(Val(TextBox10.Text), "#,##0") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0")
        End If
    End Sub
    Private Sub DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker4.ValueChanged
        Set_清單1() : Set_清單2() : 彙總計算()
    End Sub
    Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker3.ValueChanged
        Set_清單1() : Set_清單2() : 彙總計算()
    End Sub
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
        DataGridView1.Visible = True : DataGridView2.Visible = False : RadioButton1.Checked = True : RadioButton2.Checked = False
        TextBox5.Text = "0" : TextBox7.Text = "0" : TextBox6.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0" : DataGridView4.Enabled = True
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.Click
        DataGridView1.Visible = False : DataGridView2.Visible = True : RadioButton1.Checked = False : RadioButton2.Checked = True
        TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView4.Enabled = False
        彙總計算()
    End Sub
    Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles TextBox14.TextChanged
        PA = TextBox14.Text : SQL_使用者權限圖片顯示()
        While dr.Read() = True
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            PictureBox1.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close() : PictureBox1.SizeMode = 4
    End Sub
    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
        會計月.Checked = True : 一般月.Checked = False : 日期格式()
    End Sub
    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
        會計月.Checked = False : 一般月.Checked = True : 日期格式()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        xlApp = CType(CreateObject("Excel.Application"), Application)
        xlBook = xlApp.Workbooks.Add
        xlApp.DisplayAlerts = True
        xlBook.Activate()
        xlSheet = NewMethod(xlBook)
        xlSheet.Activate()
        xlApp.Visible = True
        xlApp.Application.WindowState = xlMaximized

        xlSheet.Cells(1, 1) = "年度" : xlSheet.Cells(1, 2) = Year(Today) - 1911
        If RadioButton1.Checked = True And RadioButton2.Checked = False Then
            xlSheet.Cells(1, 3) = MAOJI_ERP_SYS.ComboBox2.Text & "-營運費用收支明細表"
            xlSheet.Cells(2, 1) = "收款日期" : xlSheet.Cells(2, 2) = "會計科目" : xlSheet.Cells(2, 3) = "客戶或用途"
            xlSheet.Cells(2, 4) = "開票" : xlSheet.Cells(2, 5) = "收票" : xlSheet.Cells(2, 6) = "現金" : xlSheet.Cells(2, 7) = "支出" : xlSheet.Cells(2, 8) = "現金餘額" : xlSheet.Cells(2, 9) = "票期"

            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                xlSheet.Cells(i + 3, 1) = DateTimePicker1.Value : xlSheet.Cells(i + 3, 2) = DataGridView1.Rows(i).Cells("會計科目").Value
                xlSheet.Cells(i + 3, 3) = DataGridView1.Rows(i).Cells("用途").Value : xlSheet.Cells(i + 3, 4) = DataGridView1.Rows(i).Cells("開票").Value
                xlSheet.Cells(i + 3, 5) = DataGridView1.Rows(i).Cells("收票").Value : xlSheet.Cells(i + 3, 6) = DataGridView1.Rows(i).Cells("現金").Value
                xlSheet.Cells(i + 3, 7) = DataGridView1.Rows(i).Cells("支出").Value : xlSheet.Cells(i + 3, 9) = DataGridView1.Rows(i).Cells("票期").Value
                If i = 0 Then
                    xlSheet.Cells(i + 3, 8) = "=D3+F3-G3"
                Else
                    xlSheet.Cells(i + 3, 8) = "=H" & i + 2 & "+D" & i + 3 & "+F" & i + 3 & "-G" & i + 3 & ""
                End If
                With xlApp.Selection
                    .Font.Bold = True
                End With
                N1 = i + 3 : N2 = i + 3
            Next i
            xlSheet.Cells(N1 + 1, 3) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核(點交)" : xlSheet.Cells(N1 + 3, 7) = "製表 : " & TextBox3.Text & " - " & DateTimePicker1.Value
            xlSheet.Cells(N1 + 2, 4) = "=SUM(D3:D" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 5) = "=SUM(E3:E" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 6) = "=SUM(F3:F" & N1 + 1 & ")"
            xlSheet.Cells(N1 + 2, 7) = "=SUM(G3:G" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 8) = "=H" & N1 : xlSheet.Cells(N1 + 2, 1) = "合計"

            AA(xlApp, xlSheet) : BB(xlApp, xlSheet)
        ElseIf RadioButton1.Checked = False And RadioButton2.Checked = True Then
            xlSheet.Cells(1, 3) = MAOJI_ERP_SYS.ComboBox2.Text & "-營運費用收支彙總簡表"
            xlSheet.Cells(2, 1) = "日期" : xlSheet.Cells(2, 2) = "主項" : xlSheet.Cells(2, 3) = "子項" : xlSheet.Cells(2, 4) = "子細項" : xlSheet.Cells(2, 5) = "開票"
            xlSheet.Cells(2, 6) = "收票" : xlSheet.Cells(2, 7) = "現金" : xlSheet.Cells(2, 8) = "支出" : xlSheet.Cells(2, 9) = "現金餘額"

            For i As Integer = 0 To DataGridView2.Rows.Count - 1
                xlSheet.Cells(i + 3, 1) = DataGridView2.Rows(i).Cells("日期").Value
                xlSheet.Cells(i + 3, 2) = DataGridView2.Rows(i).Cells("主項").Value
                xlSheet.Cells(i + 3, 3) = DataGridView2.Rows(i).Cells("子項").Value
                xlSheet.Cells(i + 3, 4) = DataGridView2.Rows(i).Cells("子細項").Value
                xlSheet.Cells(i + 3, 5) = DataGridView2.Rows(i).Cells("開票").Value
                xlSheet.Cells(i + 3, 6) = DataGridView2.Rows(i).Cells("收票").Value
                xlSheet.Cells(i + 3, 7) = DataGridView2.Rows(i).Cells("現金").Value
                xlSheet.Cells(i + 3, 8) = DataGridView2.Rows(i).Cells("支出").Value
                If i = 0 Then
                    xlSheet.Cells(i + 3, 9) = "=E3+G3-H3"
                Else
                    xlSheet.Cells(i + 3, 9) = "=I" & i + 2 & "+E" & i + 3 & "+G" & i + 3 & "-H" & i + 3 & ""
                End If
                With xlApp.Selection
                    .Font.Bold = True
                End With
                N1 = i + 3 : N2 = i + 3
            Next i
            xlSheet.Cells(N1 + 1, 2) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核" : xlSheet.Cells(N1 + 3, 5) = "製表 : " & gUserName & " - " & Today()
            xlSheet.Cells(N1 + 2, 5) = "=SUM(E3:E" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 6) = "=SUM(F3:F" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 7) = "=SUM(G3:G" & N1 + 1 & ")"
            xlSheet.Cells(N1 + 2, 8) = "=SUM(H3:H" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 9) = "=I" & N1 : xlSheet.Cells(N1 + 2, 1) = "合計"

            CC(xlApp, xlSheet)
        End If

        xlSheet.PageSetup.PrintArea = ""
        xlApp.Cells.Select()
        xlSheet.Range("B1").Select()
        xlApp.Application.WindowState = xlMinimized
        xlSheet.Cells.Select()
        xlApp.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0911274990")
        xlApp.ActiveSheet.EnableSelection = 1
        MsgBox("列印完成。")
    End Sub
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
        End With

        xlSheet.Columns("A:A").Select : myExcel.Selection.NumberFormatLocal = "m/d;@"
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With

        xlSheet.Range("B1").Select()
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With

        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 25
        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 30
        xlSheet.Columns("D:H").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
        xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "[$-zh-TW]e/m/d;@"
        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25

        xlSheet.Range("A2:I2").Select()
        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With

        xlSheet.Range("A2:I" & N1 + 2).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        myExcel.ActiveWindow.DisplayGridlines = False

        xlSheet.Rows("3:" & N1 + 2).Select : myExcel.Selection.RowHeight = 20
        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40

        xlSheet.Columns("I:I").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With

        xlSheet.Range("A" & N1 + 2 & ":C" & N1 + 2).Select() : myExcel.Selection.Merge
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True
        End With

        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 25
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
        End With
    End Sub
    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox1.Image)
        xlSheet.Range("B" & N2 + 3).Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 43
        myExcel.Selection.ShapeRange.IncrementTop(3)
    End Sub
    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
        End With

        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 8
        xlSheet.Columns("B:C").Select : myExcel.Selection.ColumnWidth = 15
        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 20
        xlSheet.Columns("E:I").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 25
        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25
        xlSheet.Rows("3:" & N1 + 2).Select : myExcel.Selection.RowHeight = 20
        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40

        xlSheet.Rows("2:2").Select
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With

        xlSheet.Range("A1").Select()
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With

        xlSheet.Range("B1").Select()
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With

        xlSheet.Rows("1:1").Select
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
        End With

        xlSheet.Range("A2:I" & N1 + 2).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

        xlSheet.Range("A" & N1 + 2 & ":D" & N1 + 2).Select() : myExcel.Selection.Merge
        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True
        End With

        xlSheet.Columns("E:I").Select : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
        myExcel.ActiveWindow.DisplayGridlines = False
    End Sub
    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
        Set_清單1() : Set_清單2() : 彙總計算()
    End Sub
End Class