Нет описания
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

倉儲控制表.vb 43KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500
  1. Option Strict Off
  2. Imports System.IO
  3. Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
  4. Imports Microsoft.Office.Interop.Excel.Constants
  5. Imports Microsoft.Office.Interop.Excel.XlBordersIndex
  6. Imports Microsoft.Office.Interop.Excel.XlLineStyle
  7. Imports Microsoft.Office.Interop.Excel.XlBorderWeight
  8. Imports Microsoft.Office.Interop.Excel.XlThemeFont
  9. Imports Microsoft.Office.Interop.Excel.XlThemeColor
  10. Imports Microsoft.Office.Interop.Excel.XlWindowState
  11. Imports Microsoft.Office.Interop.Excel
  12. Public Class 倉儲控制表
  13. ReadOnly ds12 As New DataSet : Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
  14. Dim KKKK As String : Dim 物料規格 As String : Dim 比例 As Integer : ReadOnly 對話框(3) As String : Dim N1 As Integer
  15. Private Sub Set_清單()
  16. Dim ds As New DataSet : 控制表_dgv.DataSource = Nothing : ds.Clear()
  17. 控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  18. 控制表_dgv.ColumnHeadersHeight = 25
  19. 控制表_dgv.AllowUserToAddRows = False
  20. If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then
  21. 控制表_dgv.RowTemplate.Height = 75
  22. ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then
  23. 控制表_dgv.RowTemplate.Height = 45
  24. ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then
  25. 控制表_dgv.RowTemplate.Height = 25
  26. End If
  27. SQL_倉儲控制表_控制表()
  28. da.Fill(ds) : 控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
  29. 控制表_dgv.Columns(0).FillWeight = 90 : 控制表_dgv.Columns(1).FillWeight = 85 : 控制表_dgv.Columns(2).FillWeight = 160 : 控制表_dgv.Columns(3).FillWeight = 170
  30. 控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).Visible = False : 控制表_dgv.Columns(6).Visible = False : 控制表_dgv.Columns(7).Visible = False
  31. 控制表_dgv.Columns(8).Visible = False : 控制表_dgv.Columns(9).Visible = False : 控制表_dgv.Columns(10).Visible = False : 控制表_dgv.Columns(11).Visible = False
  32. 控制表_dgv.Columns(12).FillWeight = 100 : 控制表_dgv.Columns(13).FillWeight = 60 : 控制表_dgv.Columns(14).Visible = False : 控制表_dgv.Columns(15).Visible = False
  33. 控制表_dgv.Columns(16).Visible = False : 控制表_dgv.Columns(17).FillWeight = 60 : 控制表_dgv.Columns(18).FillWeight = 60 : 控制表_dgv.Columns(19).FillWeight = 60
  34. 控制表_dgv.Columns(20).Visible = False : 控制表_dgv.Columns(21).FillWeight = 45 : 控制表_dgv.Columns(22).FillWeight = 60 : 控制表_dgv.Columns(23).Visible = False
  35. 控制表_dgv.Columns(24).Visible = False
  36. 控制表_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
  37. 控制表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0"
  38. 控制表_dgv.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
  39. 控制表_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
  40. 控制表_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
  41. 控制表_dgv.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  42. 控制表_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 控制表_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  43. 控制表_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  44. 跑馬燈_tb.Text = ""
  45. For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
  46. 資料數 = 控制表_dgv.Rows.Count : MyModule1.進度條()
  47. '-------------------------庫存狀態數字計算----------------------------------------------------------------------------------------------------------------------------------------
  48. If 控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value.ToString = "" Then
  49. 控制表_dgv.Rows(i).Cells("" & 表頭(79) & "").Value = "0"
  50. End If
  51. If 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value.ToString = "" Then
  52. 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value = "0"
  53. End If
  54. 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value - 控制表_dgv.Rows(i).Cells("" & 表頭(80) & "").Value
  55. '-------------------------跑馬燈----------------------------------------------------------------------------------------------------------------------------------------
  56. If 控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value <= 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value / 100 * 70 Then
  57. 跑馬燈_tb.Text = 跑馬燈_tb.Text & " " & 表頭(77) & " : " & 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value &
  58. "_" & 表頭(81) & " : " & String.Format(控制表_dgv.Rows(i).Cells("" & 表頭(81) & "").Value, "#,##0") & "_" & 對話框(0) & " ---"
  59. End If
  60. Timer1.Interval = 250 : Timer1.Enabled = True
  61. '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
  62. If i = 0 Then
  63. PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value
  64. SQL_規格庫抬頭讀取()
  65. If dr.Read() Then
  66. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  67. End If
  68. conn.Close()
  69. Else
  70. If 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 控制表_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
  71. PA3 = 控制表_dgv.Rows(i).Cells("規格庫抬頭指定").Value
  72. SQL_規格庫抬頭讀取()
  73. If dr.Read() Then
  74. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  75. End If
  76. conn.Close()
  77. End If
  78. End If
  79. Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
  80. If 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB03" Then
  81. If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
  82. ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
  83. If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  84. ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  85. If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  86. ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  87. ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB04" Then
  88. If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
  89. ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
  90. If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  91. ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  92. If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  93. ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  94. If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
  95. ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  96. ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB05" Then
  97. If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
  98. ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
  99. If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  100. ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  101. If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  102. ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  103. If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
  104. ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  105. If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
  106. ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
  107. ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB06" Then
  108. If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
  109. ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
  110. If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  111. ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  112. If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  113. ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  114. If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
  115. ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  116. If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
  117. ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
  118. If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
  119. ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
  120. ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB07" Then
  121. If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
  122. ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
  123. If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  124. ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  125. If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  126. ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  127. If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
  128. ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  129. If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
  130. ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
  131. If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
  132. ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
  133. If 控制表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
  134. ZA7 = AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + " - " + ZA7 : End If : End If
  135. ElseIf 控制表_dgv.Rows(i).Cells("規格庫編號").Value = "SQLB08" Then
  136. If 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString <> "" Then
  137. ZA1 = AAA1 & "=" & 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value.ToString : 物料規格 = ZA1 : End If
  138. If 控制表_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
  139. ZA2 = AAA2 & "=" & 控制表_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + " - " + ZA2 : End If : End If
  140. If 控制表_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
  141. ZA3 = AAA3 & "=" & 控制表_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + " - " + ZA3 : End If : End If
  142. If 控制表_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
  143. ZA4 = AAA4 & "=" & 控制表_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + " - " + ZA4 : End If : End If
  144. If 控制表_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
  145. ZA5 = AAA5 & "=" & 控制表_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + " - " + ZA5 : End If : End If
  146. If 控制表_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
  147. ZA6 = AAA6 & "=" & 控制表_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + " - " + ZA6 : End If : End If
  148. If 控制表_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
  149. ZA7 = AAA7 & "=" & 控制表_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + " - " + ZA7 : End If : End If
  150. If 控制表_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
  151. ZA8 = AAA8 & "=" & 控制表_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + " - " + ZA8 : End If : End If
  152. End If
  153. 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value = 物料規格
  154. '-------------------------視覺百分比進度條----------------------------------------------------------------------------------------------------------------------------------------
  155. If 控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value = 0 Then
  156. 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / 400 * 100
  157. Else
  158. 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 控制表_dgv.Rows(i).Cells(表頭(81)).Value / (控制表_dgv.Rows(i).Cells("" & 表頭(65) & "").Value * 10) * 100
  159. End If
  160. If 控制表_dgv.Rows(i).Cells(表頭(81)).Value > 100 Then : 控制表_dgv.Rows(i).Cells(表頭(81)).Value = 100 : End If
  161. Next i : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
  162. Set_進度條顯示()
  163. Dim myco2 As DataGridViewImageColumn = 控制表_dgv.Columns(25)
  164. myco2.ImageLayout = DataGridViewImageCellLayout.Zoom
  165. If 低網速模式 = False Then
  166. 控制表_dgv.Columns(26).Width = 60 : 控制表_dgv.Columns(26).Visible = True
  167. Dim mycol As DataGridViewImageColumn = 控制表_dgv.Columns("Image")
  168. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  169. Else
  170. If 控制表_dgv.Columns.Count = 27 Then
  171. 控制表_dgv.Columns(26).Visible = False
  172. End If
  173. End If
  174. End Sub
  175. Private Sub Set_進度條顯示()
  176. Dim Col As New DataGridViewProgressColumn With {
  177. .Width = 30,
  178. .DataPropertyName = 表頭(82)
  179. }
  180. Col.HeaderText = 表頭(82) : Col.Name = "容量" : Col.DataPropertyName = 表頭(81)
  181. 控制表_dgv.Columns.Insert(25, Col)
  182. End Sub
  183. Private Sub 指定倉庫_cb_下拉表單資料載入()
  184. SQL_指定倉庫_下拉表單() : 指定倉庫_cb.Items.Clear() : While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
  185. End Sub
  186. Private Sub 格式控制1()
  187. If Label2.Text = "A1" Then : Label2.Enabled = False : A1_tb.Enabled = False : Else : Label2.Enabled = True : A1_tb.Enabled = True : End If
  188. If Label3.Text = "A2" Then : Label3.Enabled = False : A2_tb.Enabled = False : Else : Label3.Enabled = True : A2_tb.Enabled = True : End If
  189. If Label4.Text = "A3" Then : Label4.Enabled = False : A3_tb.Enabled = False : Else : Label4.Enabled = True : A3_tb.Enabled = True : End If
  190. If Label5.Text = "A4" Then : Label5.Enabled = False : A4_tb.Enabled = False : Else : Label5.Enabled = True : A4_tb.Enabled = True : End If
  191. If Label6.Text = "A5" Then : Label6.Enabled = False : A5_tb.Enabled = False : Else : Label6.Enabled = True : A5_tb.Enabled = True : End If
  192. If Label7.Text = "A6" Then : Label7.Enabled = False : A6_tb.Enabled = False : Else : Label7.Enabled = True : A6_tb.Enabled = True : End If
  193. If Label8.Text = "A7" Then : Label8.Enabled = False : A7_tb.Enabled = False : Else : Label8.Enabled = True : A7_tb.Enabled = True : End If
  194. If Label9.Text = "A8" Then : Label9.Enabled = False : A8_tb.Enabled = False : Else : Label9.Enabled = True : A8_tb.Enabled = True : End If
  195. End Sub
  196. Private Sub Set_語言()
  197. 語言_dgv.DataSource = Nothing : ds12.Clear()
  198. 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  199. 語言_dgv.ColumnHeadersHeight = 25
  200. 語言_dgv.AllowUserToAddRows = False
  201. SQL_系統語言導入()
  202. da.Fill(ds12) : 語言_dgv.DataSource = ds12.Tables(0) : conn.Close()
  203. End Sub
  204. Private Sub 語言轉換讀取()
  205. Set_語言() : conn.Close()
  206. For i As Integer = 0 To 語言_dgv.Rows.Count - 1
  207. If 語言_dgv("控件", i).Value.ToString = "倉儲控制表" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
  208. If 語言_dgv("控件", i).Value.ToString = "同級別全資料_ch" Then : 同級別全資料_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
  209. If 語言_dgv("控件", i).Value.ToString = "指定倉庫_lb" Then : 指定倉庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  210. If 語言_dgv("控件", i).Value.ToString = "無庫存全資料_ch" Then : 無庫存全資料_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
  211. If 語言_dgv("控件", i).Value.ToString = "品名_lb" Then : 品名_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  212. If 語言_dgv("控件", i).Value.ToString = "規格_lb" Then : 規格_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  213. If 語言_dgv("控件", i).Value.ToString = "重新整理_tsm" Then : 重新整理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
  214. If 語言_dgv("控件", i).Value.ToString = "列印_bt" Then : 列印_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  215. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_品名" Then : 表頭(12) = 語言_dgv("內容", i).Value.ToString : End If
  216. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_規格" Then : 表頭(13) = 語言_dgv("內容", i).Value.ToString : End If
  217. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_備註" Then : 表頭(14) = 語言_dgv("內容", i).Value.ToString : End If
  218. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_單位" Then : 表頭(16) = 語言_dgv("內容", i).Value.ToString : End If
  219. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請人" Then : 表頭(19) = 語言_dgv("內容", i).Value.ToString : End If
  220. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If
  221. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_核准人" Then : 表頭(21) = 語言_dgv("內容", i).Value.ToString : End If
  222. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_核准日期" Then : 表頭(22) = 語言_dgv("內容", i).Value.ToString : End If
  223. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_採購單號" Then : 表頭(24) = 語言_dgv("內容", i).Value.ToString : End If
  224. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_選擇" Then : 表頭(44) = 語言_dgv("內容", i).Value.ToString : End If
  225. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_入庫" Then : 表頭(45) = 語言_dgv("內容", i).Value.ToString : End If
  226. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_出庫" Then : 表頭(46) = 語言_dgv("內容", i).Value.ToString : End If
  227. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉儲單號" Then : 表頭(47) = 語言_dgv("內容", i).Value.ToString : End If
  228. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_指定倉庫" Then : 表頭(48) = 語言_dgv("內容", i).Value.ToString : End If
  229. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_最低庫存" Then : 表頭(65) = 語言_dgv("內容", i).Value.ToString : End If
  230. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_狀態" Then : 表頭(71) = 語言_dgv("內容", i).Value.ToString : End If
  231. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_倉庫作業" Then : 表頭(72) = 語言_dgv("內容", i).Value.ToString : End If
  232. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_作業日期" Then : 表頭(73) = 語言_dgv("內容", i).Value.ToString : End If
  233. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_類別" Then : 表頭(76) = 語言_dgv("內容", i).Value.ToString : End If
  234. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_料號" Then : 表頭(77) = 語言_dgv("內容", i).Value.ToString : End If
  235. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_庫存" Then : 表頭(78) = 語言_dgv("內容", i).Value.ToString : End If
  236. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_未入庫" Then : 表頭(79) = 語言_dgv("內容", i).Value.ToString : End If
  237. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_未出庫" Then : 表頭(80) = 語言_dgv("內容", i).Value.ToString : End If
  238. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_可領用" Then : 表頭(81) = 語言_dgv("內容", i).Value.ToString : End If
  239. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_進度條" Then : 表頭(82) = 語言_dgv("內容", i).Value.ToString : End If
  240. If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
  241. If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
  242. If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
  243. If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
  244. Next
  245. End Sub
  246. Private Sub 倉儲控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  247. 分母 = 100 : 分段1 = 0.1 : 分段2 = 0.09 : 分段3 = 0.3 : 分段4 = 0.29 : 進度條後墜 = " %"
  248. Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  249. H(501) = True : 介面 = "H501" : 語言轉換讀取()
  250. SQL_清單欄位查詢()
  251. If Acdr.Read() Then
  252. 小間距1_ch.Checked = Acdr("L_1_1") : 中間距1_ch.Checked = Acdr("L_2_1") : 大間距1_ch.Checked = Acdr("L_3_1")
  253. End If : Access1.Close()
  254. KKKK = "HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)" : PA10 = KKKK
  255. 指定倉庫_cb_下拉表單資料載入()
  256. If 倉儲倉級2 = "1" Then : 指定倉庫_cb.SelectedIndex = 0 : End If
  257. 格式控制1()
  258. MyModule1.清單字體大小調整()
  259. 控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  260. 明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  261. End Sub
  262. Private Sub 倉儲控制表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  263. MyModule1.清單字體大小調整()
  264. 控制表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  265. 明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  266. End Sub
  267. Private Sub 採購單詢價_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
  268. H(501) = False : MyModule1.虛擬桌面開啟()
  269. End Sub
  270. Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
  271. 介面 = "H501" : 語言轉換讀取()
  272. Set_清單()
  273. End Sub
  274. Function 文字旋轉(ByVal s As String, ByVal v As Integer) As String
  275. '--- S=目標字串, V=捲動次數( +v 右捲, -v 左捲)---
  276. 文字旋轉 = Mid(s & s & s, Len(s) - (v Mod Len(s)) + 1, Len(s))
  277. End Function
  278. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  279. If 跑馬燈_tb.Text = "" Then
  280. Timer1.Enabled = False
  281. Else
  282. 跑馬燈_tb.Text = 文字旋轉(跑馬燈_tb.Text, -1)
  283. End If
  284. End Sub
  285. Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
  286. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  287. End Sub
  288. Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
  289. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  290. End Sub
  291. Private Sub 控制表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 控制表_dgv.RowPostPaint
  292. Dim linePen As New Pen(Color.Blue, 2)
  293. If e.RowIndex = 控制表_dgv.Rows.Count - 1 Then
  294. Exit Sub
  295. Else
  296. If 控制表_dgv(2, e.RowIndex).Value.ToString <> 控制表_dgv(2, e.RowIndex + 1).Value.ToString Then
  297. Dim startX As Integer = IIf(控制表_dgv.RowHeadersVisible, 控制表_dgv.RowHeadersWidth, 0)
  298. Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
  299. Dim endX As Integer = startX + 控制表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 控制表_dgv.HorizontalScrollingOffset
  300. e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
  301. Exit Sub
  302. End If
  303. End If
  304. End Sub
  305. Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
  306. If e.RowIndex = -1 Then : Else
  307. 圖片檔1_pb.Image = Nothing : 圖片檔2_pb.Image = Nothing
  308. PA2 = 控制表_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取一()
  309. While dr.Read() = True
  310. Dim unused As Byte() = New Byte(-1) {}
  311. Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
  312. Dim oStream As New MemoryStream(bytes)
  313. 圖片檔1_pb.Image = Bitmap.FromStream(oStream)
  314. End While
  315. conn.Close() : 圖片檔1_pb.SizeMode = 4
  316. PA3 = 控制表_dgv.Rows(e.RowIndex).Cells("圖檔編號").Value : SQL_物料圖庫_圖檔讀取二()
  317. While dr.Read() = True
  318. Dim unused1 As Byte() = New Byte(-1) {}
  319. Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
  320. Dim oStream As New MemoryStream(bytes)
  321. 圖片檔2_pb.Image = Bitmap.FromStream(oStream)
  322. End While
  323. conn.Close() : 圖片檔2_pb.SizeMode = 4
  324. AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
  325. PA3 = 控制表_dgv.Rows(e.RowIndex).Cells("規格庫抬頭指定").Value
  326. SQL_規格庫抬頭讀取()
  327. If dr.Read() Then
  328. AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
  329. End If
  330. conn.Close()
  331. If AAA1 = "" Then : Label2.Text = "A1" : Else : Label2.Text = AAA1 : End If : If AAA2 = "" Then : Label3.Text = "A2" : Else : Label3.Text = AAA2 : End If
  332. If AAA3 = "" Then : Label4.Text = "A3" : Else : Label4.Text = AAA3 : End If : If AAA4 = "" Then : Label5.Text = "A4" : Else : Label5.Text = AAA4 : End If
  333. If AAA5 = "" Then : Label6.Text = "A5" : Else : Label6.Text = AAA5 : End If : If AAA6 = "" Then : Label7.Text = "A6" : Else : Label7.Text = AAA6 : End If
  334. If AAA7 = "" Then : Label8.Text = "A7" : Else : Label8.Text = AAA7 : End If : If AAA8 = "" Then : Label9.Text = "A8" : Else : Label9.Text = AAA8 : End If
  335. A1_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A1").Value : A2_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A2").Value
  336. A3_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A3").Value : A4_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A4").Value
  337. A5_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A5").Value : A6_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A6").Value
  338. A7_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A7").Value : A8_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("A8").Value
  339. 品名_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("" & 表頭(12) & "").Value
  340. 格式控制1()
  341. Dim ds1 As New DataSet : 明細表_dgv.DataSource = Nothing : ds1.Clear()
  342. 明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  343. 明細表_dgv.ColumnHeadersHeight = 40
  344. 明細表_dgv.AllowUserToAddRows = False
  345. 明細表_dgv.RowTemplate.Height = 35
  346. PA11 = 控制表_dgv.Rows(e.RowIndex).Cells("" & 表頭(77) & "").Value : SQL_倉儲控制表_明細()
  347. da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()
  348. 明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 140 : 明細表_dgv.Columns(2).FillWeight = 120 : 明細表_dgv.Columns(3).Visible = False
  349. 明細表_dgv.Columns(4).FillWeight = 80 : 明細表_dgv.Columns(5).FillWeight = 80 : 明細表_dgv.Columns(6).FillWeight = 200 : 明細表_dgv.Columns(7).FillWeight = 80
  350. 明細表_dgv.Columns(8).FillWeight = 150 : 明細表_dgv.Columns(9).FillWeight = 120 : 明細表_dgv.Columns(10).FillWeight = 100 : 明細表_dgv.Columns(11).FillWeight = 120
  351. 明細表_dgv.Columns(12).FillWeight = 100 : 明細表_dgv.Columns(13).FillWeight = 120 : 明細表_dgv.Columns(14).FillWeight = 100
  352. 明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
  353. 明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
  354. 明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
  355. 明細表_dgv.Columns(0).Frozen = True : 明細表_dgv.Columns(1).Frozen = True : 明細表_dgv.Columns(2).Frozen = True : 明細表_dgv.Columns(3).Frozen = True
  356. 明細表_dgv.Columns(4).Frozen = True : 明細表_dgv.Columns(5).Frozen = True
  357. End If
  358. End Sub
  359. Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
  360. Set_清單()
  361. End Sub
  362. Private Sub 同級別全資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 同級別全資料_ch.CheckedChanged
  363. Set_清單()
  364. End Sub
  365. Private Sub 無庫存全資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 無庫存全資料_ch.CheckedChanged
  366. If 無庫存全資料_ch.Checked = True Then : KKKK = "" : Else : KKKK = "HAVING (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) <> 0)" : End If : PA10 = KKKK
  367. Set_清單()
  368. End Sub
  369. Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click
  370. 小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyModule1.間距設定存檔_1() : Set_清單()
  371. End Sub
  372. Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click
  373. 小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyModule1.間距設定存檔_2() : Set_清單()
  374. End Sub
  375. Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click
  376. 小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyModule1.間距設定存檔_3() : Set_清單()
  377. End Sub
  378. Private Sub 圖片檔1_pb_Click(sender As Object, e As EventArgs) Handles 圖片檔1_pb.Click
  379. If IsNothing(圖片檔1_pb.Image) = False Then
  380. 圖片傳遞 = 圖片檔1_pb.Image : 圖片放大視窗.ShowDialog()
  381. End If
  382. End Sub
  383. Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
  384. xlApp = CType(CreateObject("Excel.Application"), Application)
  385. xlBook = xlApp.Workbooks.Add
  386. xlApp.DisplayAlerts = True
  387. xlBook.Activate()
  388. xlSheet = NewMethod(xlBook)
  389. xlSheet.Activate()
  390. xlApp.Visible = True
  391. xlApp.Application.WindowState = xlMaximized
  392. If 同級別全資料_ch.Checked = False Then
  393. xlSheet.Cells(2, 1) = 指定倉庫_cb.Text & " - " & 對話框(1)
  394. Else
  395. xlSheet.Cells(2, 1) = 倉儲倉級2 & " - " & 對話框(2)
  396. End If
  397. xlSheet.Cells(3, 1) = 表頭(48) : xlSheet.Cells(3, 2) = 表頭(76) : xlSheet.Cells(3, 3) = 表頭(12) : xlSheet.Cells(3, 4) = 表頭(13)
  398. xlSheet.Cells(3, 5) = 表頭(77) : xlSheet.Cells(3, 6) = 表頭(78) : xlSheet.Cells(3, 7) = 表頭(16)
  399. For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
  400. xlSheet.Cells(i + 4, 1) = 控制表_dgv.Rows(i).Cells("" & 表頭(48) & "").Value : xlSheet.Cells(i + 4, 2) = 控制表_dgv.Rows(i).Cells("" & 表頭(76) & "").Value
  401. xlSheet.Cells(i + 4, 3) = 控制表_dgv.Rows(i).Cells("" & 表頭(12) & "").Value : xlSheet.Cells(i + 4, 4) = 控制表_dgv.Rows(i).Cells("" & 表頭(13) & "").Value
  402. xlSheet.Cells(i + 4, 5) = 控制表_dgv.Rows(i).Cells("" & 表頭(77) & "").Value : xlSheet.Cells(i + 4, 6) = 控制表_dgv.Rows(i).Cells("" & 表頭(78) & "").Value
  403. xlSheet.Cells(i + 4, 7) = 控制表_dgv.Rows(i).Cells("" & 表頭(16) & "").Value
  404. N1 = i + 4
  405. Next
  406. AA(xlApp, xlSheet)
  407. xlSheet.PageSetup.PrintArea = ""
  408. xlApp.Cells.Select()
  409. xlSheet.Range("B1").Select()
  410. xlApp.Application.WindowState = xlMinimized
  411. xlSheet.Cells.Select()
  412. MsgBox(對話框(3))
  413. End Sub
  414. Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
  415. Return CType(xlBook.Worksheets.Add, Worksheet)
  416. End Function
  417. Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
  418. xlSheet.Cells.Select()
  419. With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
  420. .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
  421. xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 30
  422. xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 30
  423. xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 40
  424. xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 60
  425. xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 25
  426. xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 12
  427. xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 12
  428. xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 30
  429. xlSheet.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = True
  430. xlSheet.Rows("3:3").Select : myExcel.Selection.AutoFilter
  431. xlSheet.Rows("4:" & N1).Select : myExcel.Selection.RowHeight = 35
  432. With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
  433. .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
  434. With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
  435. .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
  436. xlSheet.Columns("B:B").Select
  437. With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
  438. .ReadingOrder = xlContext : .MergeCells = False : End With
  439. xlSheet.Columns("E:G").Select
  440. With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
  441. .ReadingOrder = xlContext : .MergeCells = False : End With
  442. xlSheet.Range("A2").Select()
  443. With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
  444. .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
  445. xlSheet.Range("A2:G2").Select()
  446. With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
  447. .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
  448. xlSheet.Range("A3:G" & N1).Select()
  449. myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  450. With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  451. With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  452. With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  453. With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  454. With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  455. With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  456. myExcel.ActiveWindow.DisplayGridlines = False
  457. xlSheet.Range("A3:G3").Select()
  458. myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  459. With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
  460. With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
  461. With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
  462. With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
  463. With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
  464. myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
  465. xlSheet.Range("A3:G3").Select()
  466. With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic
  467. .ThemeColor = xlThemeColorAccent5 : .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
  468. End Sub
  469. '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
  470. Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
  471. Set_清單()
  472. End Sub
  473. End Class