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 ds12 As New DataSet : Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet Dim KKKK As String : Dim 物料規格 As String : Dim 比例 As Integer : ReadOnly 對話框(3) As String : Dim N1 As Integer Private Sub Set_清單() Dim ds As New DataSet : 控制表_dgv.DataSource = Nothing : ds.Clear() 控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 控制表_dgv.ColumnHeadersHeight = 25 控制表_dgv.AllowUserToAddRows = False If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then 控制表_dgv.RowTemplate.Height = 75 ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then 控制表_dgv.RowTemplate.Height = 45 ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then 控制表_dgv.RowTemplate.Height = 25 End If SQL_倉儲控制表_控制表() da.Fill(ds) : 控制表_dgv.DataSource = ds.Tables(0) : conn.Close() 控制表_dgv.Columns(0).FillWeight = 90 : 控制表_dgv.Columns(1).FillWeight = 85 : 控制表_dgv.Columns(2).FillWeight = 160 : 控制表_dgv.Columns(3).FillWeight = 170 控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).Visible = False : 控制表_dgv.Columns(6).Visible = False : 控制表_dgv.Columns(7).Visible = False 控制表_dgv.Columns(8).Visible = False : 控制表_dgv.Columns(9).Visible = False : 控制表_dgv.Columns(10).Visible = False : 控制表_dgv.Columns(11).Visible = False 控制表_dgv.Columns(12).FillWeight = 100 : 控制表_dgv.Columns(13).FillWeight = 60 : 控制表_dgv.Columns(14).Visible = False : 控制表_dgv.Columns(15).Visible = False 控制表_dgv.Columns(16).Visible = False : 控制表_dgv.Columns(17).FillWeight = 60 : 控制表_dgv.Columns(18).FillWeight = 60 : 控制表_dgv.Columns(19).FillWeight = 60 控制表_dgv.Columns(20).Visible = False : 控制表_dgv.Columns(21).FillWeight = 45 : 控制表_dgv.Columns(22).FillWeight = 60 : 控制表_dgv.Columns(23).Visible = False 控制表_dgv.Columns(24).Visible = False 控制表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0" 控制表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" 控制表_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 控制表_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 控制表_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 控制表_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 控制表_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 控制表_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 跑馬燈_tb.Text = "" For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 資料數 = 控制表_dgv.Rows.Count : MyModule1.進度條() '-------------------------庫存狀態數字計算---------------------------------------------------------------------------------------------------------------------------------------- If 控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value.ToString = "" Then 控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value = "0" End If If 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value.ToString = "" Then 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value = "0" End If 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value - 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value '-------------------------跑馬燈---------------------------------------------------------------------------------------------------------------------------------------- If 控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value <= 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value / 100 * 70 Then 跑馬燈_tb.Text = 跑馬燈_tb.Text & " " & 表頭(77) & " : " & 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value & "_" & 表頭(81) & " : " & String.Format(控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value, "#,##0") & "_" & 對話框(0) & " ---" End If Timer1.Interval = 250 : Timer1.Enabled = True '-------------------------規格合併呈現---------------------------------------------------------------------------------------------------------------------------------------- If i = 0 Then PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value SQL_規格庫抬頭讀取() If dr.Read() Then AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") End If conn.Close() Else If 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 控制表_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value SQL_規格庫抬頭讀取() If dr.Read() Then AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") End If conn.Close() End If End If Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = "" If 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB03" Then If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB04" Then If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB05" Then If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB06" Then If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB07" Then If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If If 控制表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then ZA7 = AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + " - " + ZA7 : End If : End If ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB08" Then If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If If 控制表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then ZA7 = AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + " - " + ZA7 : End If : End If If 控制表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then ZA8 = AAA8 & "=" & 控制表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + " - " + ZA8 : End If : End If End If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value = 物料規格 '-------------------------視覺百分比進度條---------------------------------------------------------------------------------------------------------------------------------------- If 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value = 0 Then 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / 400 * 100 Else 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / (控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value * 10) * 100 End If If 控制表_dgv.Rows(i).Cells(表頭(81)).Value > 100 Then : 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 100 : End If Next i : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Set_進度條顯示() Dim myco2 As DataGridViewImageColumn = 控制表_dgv.Columns(25) myco2.ImageLayout = DataGridViewImageCellLayout.Zoom If 低網速模式 = False Then 控制表_dgv.Columns(26).Width = 60 : 控制表_dgv.Columns(26).Visible = True Dim mycol As DataGridViewImageColumn = 控制表_dgv.Columns("Image") mycol.ImageLayout = DataGridViewImageCellLayout.Zoom Else If 控制表_dgv.Columns.Count = 27 Then 控制表_dgv.Columns(26).Visible = False End If End If End Sub Private Sub Set_進度條顯示() Dim Col As New DataGridViewProgressColumn With { .Width = 30, .DataPropertyName = 表頭(82) } Col.HeaderText = 表頭(82) : Col.Name = "容量" : Col.DataPropertyName = 表頭(81) 控制表_dgv.Columns.Insert(25, Col) End Sub Private Sub 指定倉庫_cb_下拉表單資料載入() SQL_指定倉庫_下拉表單() : 指定倉庫_cb.Items.Clear() : While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close() End Sub Private Sub 格式控制1() If Label2.Text = "A1" Then : Label2.Enabled = False : A1_tb.Enabled = False : Else : Label2.Enabled = True : A1_tb.Enabled = True : End If If Label3.Text = "A2" Then : Label3.Enabled = False : A2_tb.Enabled = False : Else : Label3.Enabled = True : A2_tb.Enabled = True : End If If Label4.Text = "A3" Then : Label4.Enabled = False : A3_tb.Enabled = False : Else : Label4.Enabled = True : A3_tb.Enabled = True : End If If Label5.Text = "A4" Then : Label5.Enabled = False : A4_tb.Enabled = False : Else : Label5.Enabled = True : A4_tb.Enabled = True : End If If Label6.Text = "A5" Then : Label6.Enabled = False : A5_tb.Enabled = False : Else : Label6.Enabled = True : A5_tb.Enabled = True : End If If Label7.Text = "A6" Then : Label7.Enabled = False : A6_tb.Enabled = False : Else : Label7.Enabled = True : A6_tb.Enabled = True : End If If Label8.Text = "A7" Then : Label8.Enabled = False : A7_tb.Enabled = False : Else : Label8.Enabled = True : A7_tb.Enabled = True : End If If Label9.Text = "A8" Then : Label9.Enabled = False : A8_tb.Enabled = False : Else : Label9.Enabled = True : A8_tb.Enabled = True : End If End Sub Private Sub Set_語言() 語言_dgv.DataSource = Nothing : ds12.Clear() 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 語言_dgv.ColumnHeadersHeight = 25 語言_dgv.AllowUserToAddRows = False SQL_系統語言導入() da.Fill(ds12) : 語言_dgv.DataSource = ds12.Tables(0) : conn.Close() End Sub Private Sub 語言轉換讀取() Set_語言() : conn.Close() For i As Integer = 0 To 語言_dgv.Rows.Count - 1 If 語言_dgv("控件", i).Value.ToString = "倉儲控制表" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "同級別全資料_ch" Then : 同級別全資料_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "指定倉庫_lb" Then : 指定倉庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "無庫存全資料_ch" Then : 無庫存全資料_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "規格_lb" Then : 規格_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "重新整理_tsm" Then : 重新整理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "列印_bt" Then : 列印_bt.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_品名" Then : 表頭(12) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_規格" Then : 表頭(13) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_備註" Then : 表頭(14) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_單位" Then : 表頭(16) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請人" Then : 表頭(19) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_核准人" Then : 表頭(21) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_核准日期" Then : 表頭(22) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_採購單號" Then : 表頭(24) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_選擇" Then : 表頭(44) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_入庫" Then : 表頭(45) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_出庫" Then : 表頭(46) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉儲單號" Then : 表頭(47) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_指定倉庫" Then : 表頭(48) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_最低庫存" Then : 表頭(65) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_狀態" Then : 表頭(71) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉庫作業" Then : 表頭(72) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_作業日期" Then : 表頭(73) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_類別" Then : 表頭(76) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_料號" Then : 表頭(77) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_庫存" Then : 表頭(78) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_未入庫" Then : 表頭(79) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_未出庫" Then : 表頭(80) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_可領用" Then : 表頭(81) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "清單_dgv_進度條" Then : 表頭(82) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If Next End Sub Private Sub 倉儲控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load 分母 = 100 : 分段1 = 0.1 : 分段2 = 0.09 : 分段3 = 0.3 : 分段4 = 0.29 : 進度條後墜 = " %" Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True H(501) = True : 介面 = "H501" : 語言轉換讀取() SQL_清單欄位查詢() If Acdr.Read() Then 小間距1_ch.Checked = Acdr("L_1_1") : 中間距1_ch.Checked = Acdr("L_2_1") : 大間距1_ch.Checked = Acdr("L_3_1") End If : Access1.Close() KKKK = "HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)" : PA10 = KKKK 指定倉庫_cb_下拉表單資料載入() If 倉儲倉級2 = "1" Then : 指定倉庫_cb.SelectedIndex = 0 : End If 格式控制1() MyModule1.清單字體大小調整() 控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) End Sub Private Sub 倉儲控制表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged MyModule1.清單字體大小調整() 控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) 明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value) End Sub Private Sub 採購單詢價_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed H(501) = False : MyModule1.虛擬桌面開啟() End Sub Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click 介面 = "H501" : 語言轉換讀取() Set_清單() End Sub Function 文字旋轉(ByVal s As String, ByVal v As Integer) As String '--- S=目標字串， V=捲動次數（ +v 右捲, -v 左捲）--- 文字旋轉 = Mid(s & s & s, Len(s) - (v Mod Len(s)) + 1, Len(s)) End Function Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If 跑馬燈_tb.Text = "" Then Timer1.Enabled = False Else 跑馬燈_tb.Text = 文字旋轉(跑馬燈_tb.Text, -1) End If End Sub Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 控制表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 控制表_dgv.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = 控制表_dgv.Rows.Count - 1 Then Exit Sub Else If 控制表_dgv(2, e.RowIndex).Value.ToString <> 控制表_dgv(2, e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(控制表_dgv.RowHeadersVisible, 控制表_dgv.RowHeadersWidth, 0) Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + 控制表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 控制表_dgv.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) Exit Sub End If End If End Sub Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick If e.RowIndex = -1 Then : Else 圖片檔1_pb.Image = Nothing : 圖片檔2_pb.Image = Nothing PA2 = 控制表_dgv.Rows(e.RowIndex).Cells("料號原則").Value : 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) 圖片檔1_pb.Image = Bitmap.FromStream(oStream) End While conn.Close() : 圖片檔1_pb.SizeMode = 4 PA3 = 控制表_dgv.Rows(e.RowIndex).Cells("圖檔編號").Value : SQL_物料圖庫_圖檔讀取二() While dr.Read() = True Dim unused1 As Byte() = New Byte(-1) {} Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte()) Dim oStream As New MemoryStream(bytes) 圖片檔2_pb.Image = Bitmap.FromStream(oStream) End While conn.Close() : 圖片檔2_pb.SizeMode = 4 AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = "" PA3 = 控制表_dgv.Rows(e.RowIndex).Cells("規格庫抬頭指定").Value SQL_規格庫抬頭讀取() If dr.Read() Then AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8") End If conn.Close() If AAA1 = "" Then : Label2.Text = "A1" : Else : Label2.Text = AAA1 : End If : If AAA2 = "" Then : Label3.Text = "A2" : Else : Label3.Text = AAA2 : End If If AAA3 = "" Then : Label4.Text = "A3" : Else : Label4.Text = AAA3 : End If : If AAA4 = "" Then : Label5.Text = "A4" : Else : Label5.Text = AAA4 : End If If AAA5 = "" Then : Label6.Text = "A5" : Else : Label6.Text = AAA5 : End If : If AAA6 = "" Then : Label7.Text = "A6" : Else : Label7.Text = AAA6 : End If If AAA7 = "" Then : Label8.Text = "A7" : Else : Label8.Text = AAA7 : End If : If AAA8 = "" Then : Label9.Text = "A8" : Else : Label9.Text = AAA8 : End If A1_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A1").Value : A2_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A2").Value A3_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A3").Value : A4_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A4").Value A5_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A5").Value : A6_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A6").Value A7_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A7").Value : A8_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A8").Value 品名_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("" & 表頭(12) & "").Value 格式控制1() Dim ds1 As New DataSet : 明細表_dgv.DataSource = Nothing : ds1.Clear() 明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 明細表_dgv.ColumnHeadersHeight = 40 明細表_dgv.AllowUserToAddRows = False 明細表_dgv.RowTemplate.Height = 35 PA11 = 控制表_dgv.Rows(e.RowIndex).Cells("" & 表頭(77) & "").Value : SQL_倉儲控制表_明細() da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close() 明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 140 : 明細表_dgv.Columns(2).FillWeight = 120 : 明細表_dgv.Columns(3).Visible = False 明細表_dgv.Columns(4).FillWeight = 80 : 明細表_dgv.Columns(5).FillWeight = 80 : 明細表_dgv.Columns(6).FillWeight = 200 : 明細表_dgv.Columns(7).FillWeight = 80 明細表_dgv.Columns(8).FillWeight = 150 : 明細表_dgv.Columns(9).FillWeight = 120 : 明細表_dgv.Columns(10).FillWeight = 100 : 明細表_dgv.Columns(11).FillWeight = 120 明細表_dgv.Columns(12).FillWeight = 100 : 明細表_dgv.Columns(13).FillWeight = 120 : 明細表_dgv.Columns(14).FillWeight = 100 明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" 明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 明細表_dgv.Columns(0).Frozen = True : 明細表_dgv.Columns(1).Frozen = True : 明細表_dgv.Columns(2).Frozen = True : 明細表_dgv.Columns(3).Frozen = True 明細表_dgv.Columns(4).Frozen = True : 明細表_dgv.Columns(5).Frozen = True End If End Sub Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged Set_清單() End Sub Private Sub 同級別全資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 同級別全資料_ch.CheckedChanged Set_清單() End Sub Private Sub 無庫存全資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 無庫存全資料_ch.CheckedChanged If 無庫存全資料_ch.Checked = True Then : KKKK = "" : Else : KKKK = "HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)" : End If : PA10 = KKKK Set_清單() End Sub Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click 小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyModule1.間距設定存檔_1() : Set_清單() End Sub Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click 小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyModule1.間距設定存檔_2() : Set_清單() End Sub Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click 小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyModule1.間距設定存檔_3() : Set_清單() End Sub Private Sub 圖片檔1_pb_Click(sender As Object, e As EventArgs) Handles 圖片檔1_pb.Click If IsNothing(圖片檔1_pb.Image) = False Then 圖片傳遞 = 圖片檔1_pb.Image : 圖片放大視窗.ShowDialog() End If End Sub Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.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 If 同級別全資料_ch.Checked = False Then xlSheet.Cells(2, 1) = 指定倉庫_cb.Text & " - " & 對話框(1) Else xlSheet.Cells(2, 1) = 倉儲倉級2 & " - " & 對話框(2) End If xlSheet.Cells(3, 1) = 表頭(48) : xlSheet.Cells(3, 2) = 表頭(76) : xlSheet.Cells(3, 3) = 表頭(12) : xlSheet.Cells(3, 4) = 表頭(13) xlSheet.Cells(3, 5) = 表頭(77) : xlSheet.Cells(3, 6) = 表頭(78) : xlSheet.Cells(3, 7) = 表頭(16) For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 xlSheet.Cells(i + 4, 1) = 控制表_dgv.Rows(i).Cells("" & 表頭(48) & "").Value : xlSheet.Cells(i + 4, 2) = 控制表_dgv.Rows(i).Cells("" & 表頭(76) & "").Value xlSheet.Cells(i + 4, 3) = 控制表_dgv.Rows(i).Cells("" & 表頭(12) & "").Value : xlSheet.Cells(i + 4, 4) = 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value xlSheet.Cells(i + 4, 5) = 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value : xlSheet.Cells(i + 4, 6) = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value xlSheet.Cells(i + 4, 7) = 控制表_dgv.Rows(i).Cells("" & 表頭(16) & "").Value N1 = i + 4 Next AA(xlApp, xlSheet) xlSheet.PageSetup.PrintArea = "" xlApp.Cells.Select() xlSheet.Range("B1").Select() xlApp.Application.WindowState = xlMinimized xlSheet.Cells.Select() MsgBox(對話框(3)) 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 = 12 : .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 = 30 xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 30 xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 40 xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 60 xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 25 xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12 xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 12 xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 30 xlSheet.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = True xlSheet.Rows("3:3").Select : myExcel.Selection.AutoFilter xlSheet.Rows("4:" & N1).Select : myExcel.Selection.RowHeight = 35 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 With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Columns("B:B").Select With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Columns("E:G").Select With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("A2").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:G2").Select() With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge xlSheet.Range("A3:G" & N1).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.Range("A3:G3").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 = xlMedium : End With With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone xlSheet.Range("A3:G3").Select() With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent5 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With End Sub '-----------------------------滑鼠右鍵-------------------------------------------------------------------------------------------------------------------------------------- Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click Set_清單() End Sub End Class