HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1 Commit
1 Branch
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
HX-PGS-ERP-SYS-SIU/02、採購管理系統/物料請採購/採購單編輯.vb

採購單編輯.vb 104KB
Permalink History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168 
  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. Imports System.Windows.Forms.DataVisualization.Charting

  13. Public Class 採購單編輯

  14.     ReadOnly ds8 As New DataSet

  15.     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet

  16.     Dim QQQ1, QQQ2, QQQ3, 新項次, 物料規格, 採購選擇, 對話框(15) As String

  17.     Dim NUM1, NA1, N1, N2 As Integer

  18.     Dim 可繪圖 As Boolean

  19.     Private Sub Set_明細清單()

  20.         Dim ds As New DataSet : 明細_dgv.DataSource = Nothing : ds.Clear()

  21.         明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  22.         明細_dgv.ColumnHeadersHeight = 40

  23.         明細_dgv.AllowUserToAddRows = False

  24.         If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then

  25.             明細_dgv.RowTemplate.Height = 65

  26.         ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then

  27.             明細_dgv.RowTemplate.Height = 45

  28.         ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then

  29.             明細_dgv.RowTemplate.Height = 25

  30.         End If

  31. 

  32.         PA20 = 採購選擇 : If PA20 = "" Then : PA20 = "B" : End If

  33.         PA1 = QQQ1 : PA2 = 採購單號_tb.Text : SQL_建築物料採購單生成_明細()

  34.         da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()

  35. 

  36.         明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 52 : 明細_dgv.Columns(3).FillWeight = 243 : 明細_dgv.Columns(4).FillWeight = 230

  37.         明細_dgv.Columns(5).FillWeight = 145 : 明細_dgv.Columns(6).FillWeight = 80 : 明細_dgv.Columns(7).FillWeight = 80 : 明細_dgv.Columns(8).FillWeight = 80

  38.         明細_dgv.Columns(9).FillWeight = 80 : 明細_dgv.Columns(10).Visible = False : 明細_dgv.Columns(11).Visible = False : 明細_dgv.Columns(12).Visible = False

  39.         明細_dgv.Columns(13).Visible = False : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False : 明細_dgv.Columns(16).FillWeight = 95

  40.         明細_dgv.Columns(17).Visible = False : 明細_dgv.Columns(18).Visible = False : 明細_dgv.Columns(19).Visible = False : 明細_dgv.Columns(20).Visible = False

  41.         明細_dgv.Columns(21).Visible = False : 明細_dgv.Columns(22).Visible = False : 明細_dgv.Columns(23).Visible = False : 明細_dgv.Columns(24).Visible = False

  42.         明細_dgv.Columns(25).Visible = False : 明細_dgv.Columns(26).FillWeight = 40 : 明細_dgv.Columns("KEY").Visible = False : 明細_dgv.Columns("OUP").FillWeight = 80

  43.         明細_dgv.Columns(2).FillWeight = 86 : 明細_dgv.Columns(27).FillWeight = 80 : 明細_dgv.Columns("SP%").FillWeight = 80

  44.         明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"

  45.         明細_dgv.Columns("OUP").DefaultCellStyle.Format = "#,##0"

  46.         明細_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  47.         明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns("OUP").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  48.         明細_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  49.         明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns("OUP").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  50.         明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  51.         明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(3).ReadOnly = True : 明細_dgv.Columns(4).ReadOnly = True : 明細_dgv.Columns(16).ReadOnly = True

  52.         明細_dgv.Columns(表頭(16)).ReadOnly = True : 明細_dgv.Columns(表頭(27)).ReadOnly = True : 明細_dgv.Columns("OUP").ReadOnly = True : 明細_dgv.Columns("SP%").ReadOnly = True

  53.         If 低網速模式 = False Then

  54.             明細_dgv.Columns(29).FillWeight = 80 : 明細_dgv.Columns("Image").Visible = True

  55.             Dim mycol As DataGridViewImageColumn = 明細_dgv.Columns("Image")

  56.             mycol.ImageLayout = DataGridViewImageCellLayout.Zoom

  57.         Else

  58.             If 明細_dgv.Columns.Count = 30 Then

  59.                 明細_dgv.Columns("Image").Visible = False

  60.             End If

  61.         End If

  62. 

  63.         新項次 = "00"

  64.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  65.             明細_dgv.Columns("OUP").DefaultCellStyle.Format = "#,0"

  66.             NUM1 = Double.Parse(新項次) + 1

  67.             If NUM1 < 10 Then : 新項次 = "0" & NUM1

  68.             ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1

  69.             End If

  70.             明細_dgv.Rows(i).Cells(表頭(11)).Value = 新項次

  71. 

  72.             '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------

  73.             If i = 0 Then

  74.                 AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = "" : PA3 = 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value

  75.                 SQL_規格庫抬頭讀取()

  76.                 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

  77.                 conn.Close()

  78.             Else

  79.                 If 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 明細_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then

  80.                     AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = "" : PA3 = 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value : SQL_規格庫抬頭讀取()

  81.                     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

  82.                     conn.Close()

  83.                 End If

  84.             End If

  85.             Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""

  86.             If 詳細資料2_ch.Checked = True Then

  87.                 If 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then

  88.                     ZA1 = AAA1 & "=" & 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If

  89.                 If 明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 明細_dgv.Rows(i).Cells("A2").Value

  90.                     If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  91.                 If 明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 明細_dgv.Rows(i).Cells("A3").Value

  92.                     If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  93.                 If 明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 明細_dgv.Rows(i).Cells("A4").Value

  94.                     If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  95.                 If 明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 明細_dgv.Rows(i).Cells("A5").Value

  96.                     If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  97.                 If 明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 明細_dgv.Rows(i).Cells("A6").Value

  98.                     If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  99.                 If 明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 明細_dgv.Rows(i).Cells("A7").Value

  100.                     If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  101.                 If 明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 明細_dgv.Rows(i).Cells("A8").Value

  102.                     If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  103.             Else

  104.                 If 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If

  105.                 If 明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then

  106.                     ZA2 = 明細_dgv.Rows(i).Cells("A2").Value : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If

  107.                 If 明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then

  108.                     ZA3 = 明細_dgv.Rows(i).Cells("A3").Value : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If

  109.                 If 明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then

  110.                     ZA4 = 明細_dgv.Rows(i).Cells("A4").Value : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If

  111.                 If 明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then

  112.                     ZA5 = 明細_dgv.Rows(i).Cells("A5").Value : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If

  113.                 If 明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then

  114.                     ZA6 = 明細_dgv.Rows(i).Cells("A6").Value : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If

  115.                 If 明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then

  116.                     ZA7 = 明細_dgv.Rows(i).Cells("A7").Value : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If

  117.                 If 明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then

  118.                     ZA8 = 明細_dgv.Rows(i).Cells("A8").Value : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If

  119.             End If

  120.             明細_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格

  121.             '-------------------------歷史單價----------------------------------------------------------------------------------------------------------------------------------------

  122.             PA = 明細_dgv.Rows(i).Cells("料號").Value : Set_單價()

  123.             If 價錢_dgv.Rows.Count = 0 Then : 明細_dgv.Rows(i).Cells("OUP").Value = 0 : Else : 明細_dgv.Rows(i).Cells("OUP").Value = 價錢_dgv.Rows(0).Cells("單價").Value : End If

  124.         Next i

  125. 

  126.         Dim FFGG As Long = 0

  127.         總金額_tb.Text = "0"

  128.         If 採購選擇 = "A" Then

  129.             For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  130.                 明細_dgv.Rows(i).Cells(表頭(26)).Value = "0.0"

  131.                 明細_dgv.Rows(i).Cells(表頭(27)).Value = 明細_dgv.Rows(i).Cells(表頭(26)).Value * 明細_dgv.Rows(i).Cells(表頭(15)).Value

  132.                 FFGG = CLng(FFGG) + 明細_dgv.Rows(i).Cells(表頭(27)).Value : 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = False

  133.             Next i

  134.         ElseIf 採購選擇 = "B" Then

  135.             For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  136.                 明細_dgv.Rows(i).Cells(表頭(27)).Value = 明細_dgv.Rows(i).Cells(表頭(26)).Value * 明細_dgv.Rows(i).Cells(表頭(15)).Value

  137.                 FFGG = CLng(FFGG) + 明細_dgv.Rows(i).Cells(表頭(27)).Value : 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = True

  138.             Next i

  139.         End If

  140.         折扣金額_tb.Text = CLng(折扣比_tb.Text) * FFGG / 100

  141.         If 稅金計算_ch.Checked = True Then

  142.             If 折扣比_tb.Text = "0" Then : 稅金金額_tb.Text = FFGG * CLng(稅金比_tb.Text) / 100 : Else : 稅金金額_tb.Text = (FFGG - 折扣金額_tb.Text) * CLng(稅金比_tb.Text) / 100 : End If

  143.         Else : 稅金金額_tb.Text = "0" : End If

  144.         總金額_tb.Text = FFGG - CLng(折扣金額_tb.Text) + CLng(稅金金額_tb.Text)

  145.         折扣金額_tb.Text = Strings.Format(CLng(折扣金額_tb.Text), "#,##0") : 稅金金額_tb.Text = Strings.Format(CLng(稅金金額_tb.Text), "#,##0")

  146.         總金額_tb.Text = Strings.Format(CLng(總金額_tb.Text), "#,##0")

  147. 

  148.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  149.             If 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = True Then

  150.                 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = False

  151.             End If

  152.             For II As Integer = 0 To 最新單價_dgv.Rows.Count - 1

  153.                 If 明細_dgv.Rows(i).Cells("料號").Value.ToString = 最新單價_dgv.Rows(II).Cells("料號").Value.ToString And CLng(明細_dgv.Rows(i).Cells(表頭(26)).Value.ToString) = 0 Then

  154.                     明細_dgv.Rows(i).Cells(表頭(26)).Value = 最新單價_dgv.Rows(II).Cells("單價").Value.ToString : Exit For

  155.                 End If

  156.             Next

  157.         Next : 價格()

  158.     End Sub

  159.     Private Sub Set_清單1()

  160.         Dim ds1 As New DataSet : 請購單_dgv.DataSource = Nothing : ds1.Clear()

  161.         請購單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  162.         請購單_dgv.ColumnHeadersHeight = 25

  163.         請購單_dgv.AllowUserToAddRows = False

  164. 

  165.         SQL_建築物料採購單生成_請購()

  166.         da.Fill(ds1) : 請購單_dgv.DataSource = ds1.Tables(0) : conn.Close()

  167. 

  168.         請購單_dgv.Columns(0).FillWeight = 125 : 請購單_dgv.Columns(1).Visible = False : 請購單_dgv.Columns(2).Visible = False : 請購單_dgv.Columns(3).Visible = False

  169.         請購單_dgv.Columns(4).Visible = False : 請購單_dgv.Columns(5).Visible = False : 請購單_dgv.Columns(6).Visible = False : 請購單_dgv.Columns(7).Visible = False

  170.         請購單_dgv.Columns(8).Visible = False : 請購單_dgv.Columns(9).Visible = False

  171.     End Sub

  172.     Private Sub Set_清單2()

  173.         Dim ds2 As New DataSet : 採購單_dgv.DataSource = Nothing : ds2.Clear()

  174.         採購單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  175.         採購單_dgv.ColumnHeadersHeight = 25

  176.         採購單_dgv.AllowUserToAddRows = False

  177.         If 未指定_ch.Checked = True Then

  178.             SQL2 = " AND (採購單控制表.供應商編號 LIKE '' OR 採購單控制表.供應商編號 IS NULL) "

  179.         Else

  180.             SQL2 = " AND (採購單控制表.供應商編號 NOT LIKE '') AND (採購單控制表.供應商編號 IS NOT NULL) "

  181.         End If : SQL_建築物料採購單生成_採購()

  182.         da.Fill(ds2) : 採購單_dgv.DataSource = ds2.Tables(0) : conn.Close()

  183. 

  184.         For i As Integer = 0 To 18 : 採購單_dgv.Columns(i).Visible = False : Next

  185.         採購單_dgv.Columns(17).Visible = True

  186.         For i As Integer = 0 To 採購單_dgv.Rows.Count - 1

  187.             If 採購單_dgv.Rows(i).Cells("合約號").Value.ToString <> "" Then

  188.                 採購單_dgv.Rows(i).Cells("NO.").Value = Strings.Mid(採購單_dgv.Rows(i).Cells(0).Value.ToString, 9, 6) & " _ " & 採購單_dgv.Rows(i).Cells("合約號").Value.ToString.ToUpper()

  189.             Else

  190.                 採購單_dgv.Rows(i).Cells("NO.").Value = 採購單_dgv.Rows(i).Cells(0).Value.ToString

  191.             End If

  192.         Next

  193.     End Sub

  194.     Private Sub Set_清單3()

  195.         Dim ds1 As New DataSet : 最新單價_dgv.DataSource = Nothing : ds1.Clear()

  196.         最新單價_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  197.         最新單價_dgv.ColumnHeadersHeight = 25

  198.         最新單價_dgv.AllowUserToAddRows = False

  199.         PA14 = 供應商編碼_tb.Text : SQL_物料最新單價查詢()

  200.         da.Fill(ds1) : 最新單價_dgv.DataSource = ds1.Tables(0) : conn.Close()

  201. 

  202.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  203.             For II As Integer = 0 To 最新單價_dgv.Rows.Count - 1

  204.                 If 明細_dgv.Rows(i).Cells("料號").Value.ToString = 最新單價_dgv.Rows(II).Cells("料號").Value.ToString And CLng(明細_dgv.Rows(i).Cells(表頭(26)).Value.ToString) = 0 Then

  205.                     明細_dgv.Rows(i).Cells(表頭(26)).Value = 最新單價_dgv.Rows(II).Cells("單價").Value.ToString : Exit For

  206.                 End If

  207.             Next

  208.         Next

  209.     End Sub

  210.     Private Sub 總金額計算()

  211.         Dim FFGG As Long = 0

  212.         總金額_tb.Text = "0"

  213.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  214.             明細_dgv.Rows(i).Cells(表頭(27)).Value = 明細_dgv.Rows(i).Cells(表頭(26)).Value * 明細_dgv.Rows(i).Cells(表頭(15)).Value

  215.             If 明細_dgv.Rows(i).Cells(表頭(27)).Value = "0" Then

  216.                 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = False

  217.             Else

  218.                 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = True

  219.             End If

  220.             FFGG = CLng(FFGG) + 明細_dgv.Rows(i).Cells(表頭(27)).Value

  221.             If 明細_dgv(表頭(28), i).Value = True Then

  222.                 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen

  223.             Else

  224.                 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White

  225.             End If

  226.         Next i

  227.         If 折扣比_tb.Text = "" Then : 折扣比_tb.Text = "0" : End If

  228.         折扣金額_tb.Text = CLng(折扣比_tb.Text) * FFGG / 100

  229.         If 稅金計算_ch.Checked = True Then

  230.             If 折扣比_tb.Text = "0" Then

  231.                 稅金金額_tb.Text = FFGG * CLng(稅金比_tb.Text) / 100

  232.             Else

  233.                 稅金金額_tb.Text = (FFGG - 折扣金額_tb.Text) * CLng(稅金比_tb.Text) / 100

  234.             End If

  235.         Else

  236.             稅金金額_tb.Text = "0"

  237.         End If

  238.         總金額_tb.Text = FFGG - CLng(折扣金額_tb.Text) + CLng(稅金金額_tb.Text)

  239.         折扣金額_tb.Text = Strings.Format(CLng(折扣金額_tb.Text), "#,##0") : 稅金金額_tb.Text = Strings.Format(CLng(稅金金額_tb.Text), "#,##0")

  240.         總金額_tb.Text = Strings.Format(CLng(總金額_tb.Text), "#,##0")

  241.     End Sub

  242.     Private Sub Set_單價()

  243.         Dim ds6 As New DataSet : 價錢_dgv.DataSource = Nothing : ds6.Clear()

  244.         價錢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  245.         價錢_dgv.ColumnHeadersHeight = 25

  246.         價錢_dgv.AllowUserToAddRows = False

  247. 

  248.         If 日期_rb.Checked = False And 單價_rb.Checked = True Then

  249.             SQL_加權平均()

  250.         ElseIf 日期_rb.Checked = True And 單價_rb.Checked = False Then

  251.             SQL_最近日期()

  252.         End If

  253.         da.Fill(ds6) : 價錢_dgv.DataSource = ds6.Tables(0) : conn.Close()

  254.     End Sub

  255.     Private Sub Set_料號比價()

  256.         Dim ds1 As New DataSet

  257.         料號_dgv.DataSource = Nothing : ds1.Clear()

  258.         料號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  259.         料號_dgv.ColumnHeadersHeight = 25

  260.         料號_dgv.AllowUserToAddRows = False

  261.         PA = 料號1_tb.Text : SQL_料號比對價格()

  262.         da.Fill(ds1) : 料號_dgv.DataSource = ds1.Tables(0) : conn.Close()

  263.         料號_dgv.Columns("排序").Visible = False : 料號_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.00" : 料號_dgv.Columns(3).FillWeight = 50

  264.     End Sub

  265.     Private Sub 語言轉換讀取()

  266.         If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If

  267.         核准請購未生成_lb.Text = 系統語言字典("H205-100-" & 語言) : 文字_lb.Text = 系統語言字典("H205-101-" & 語言) : 日期_rb.Text = 系統語言字典("H205-102-" & 語言)

  268.         全部取消_bt.Text = 系統語言字典("H205-103-" & 語言) : 全部選擇_bt.Text = 系統語言字典("H205-104-" & 語言) : 未指定_ch.Text = 系統語言字典("H205-138-" & 語言)

  269.         核准請購未生成_lb.Text = 系統語言字典("H205-106-" & 語言) : 表頭(28) = 系統語言字典("H205-107-" & 語言) : 表頭(19) = 系統語言字典("H205-108-" & 語言)

  270.         已指定_ch.Text = 系統語言字典("H205-139-" & 語言)

  271.         表頭(134) = 系統語言字典("H205-109-" & 語言) : 表頭(27) = 系統語言字典("H205-110-" & 語言) : 表頭(12) = 系統語言字典("H205-111-" & 語言)

  272.         表頭(24) = 系統語言字典("H205-112-" & 語言) : 表頭(13) = 系統語言字典("H205-113-" & 語言) : 表頭(14) = 系統語言字典("H205-114-" & 語言)

  273.         表頭(16) = 系統語言字典("H205-115-" & 語言) : 表頭(18) = 系統語言字典("H205-116-" & 語言) : 表頭(26) = 系統語言字典("H205-117-" & 語言)

  274.         表頭(11) = 系統語言字典("H205-118-" & 語言) : 表頭(15) = 系統語言字典("H205-119-" & 語言) : 單價_rb.Text = 系統語言字典("H205-120-" & 語言)

  275.         對話框(0) = 系統語言字典("H205-121-" & 語言) : 對話框(9) = 系統語言字典("H205-122-" & 語言) : 對話框(10) = 系統語言字典("H205-123-" & 語言)

  276.         對話框(1) = 系統語言字典("H205-124-" & 語言) : 對話框(2) = 系統語言字典("H205-125-" & 語言) : 對話框(3) = 系統語言字典("H205-126-" & 語言)

  277.         對話框(4) = 系統語言字典("H205-127-" & 語言) : 對話框(5) = 系統語言字典("H205-128-" & 語言) : 對話框(6) = 系統語言字典("H205-129-" & 語言)

  278.         對話框(7) = 系統語言字典("H205-130-" & 語言) : 對話框(8) = 系統語言字典("H205-131-" & 語言) : 選擇公司_lb.Text = 系統語言字典("H205-132-" & 語言)

  279.         總金額_lb.Text = 系統語言字典("H205-133-" & 語言) : 簡稱_lb.Text = 系統語言字典("H205-134-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)

  280.         Me.Text = 系統語言字典("H001-171-" & 語言) : 對話框(15) = 系統語言字典("H205-135-" & 語言) : 對話框(11) = 系統語言字典("H205-136-" & 語言)

  281.         對話框(12) = 系統語言字典("G000-110-" & 語言) : 對話框(13) = 系統語言字典("G000-114-" & 語言) : 對話框(14) = 系統語言字典("H205-137-" & 語言)

  282.     End Sub

  283.     Private Sub 清空供應商_bt_MouseEnter(sender As Object, e As EventArgs) Handles 清空供應商_bt.MouseEnter

  284.         ToolTip1.SetToolTip(Me.清空供應商_bt, 對話框(11))

  285.     End Sub

  286.     Private Sub 生成採購單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 生成採購單_bt.MouseEnter

  287.         ToolTip1.SetToolTip(Me.生成採購單_bt, 對話框(12))

  288.     End Sub

  289.     Private Sub 列印成詢價單_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印成詢價單_bt.MouseEnter

  290.         ToolTip1.SetToolTip(Me.列印成詢價單_bt, 對話框(13))

  291.     End Sub

  292.     Private Sub 料號_bt_MouseEnter(sender As Object, e As EventArgs) Handles 分析工具_bt.MouseEnter

  293.         ToolTip1.SetToolTip(Me.分析工具_bt, 對話框(14))

  294.     End Sub

  295.     Private Sub 類別管理_cb_下拉表單資料載入()

  296.         SQL_供應商類別_下拉清單() : 類別管理_cb.Items.Clear() : 類別管理_cb.Items.Add("")

  297.         While (dr.Read()) : 類別管理_cb.Items.Add(dr("類別")) : End While : conn.Close()

  298.     End Sub

  299.     Private Sub 廠商_cb_下拉表單資料載入()

  300.         If 公司類別_cb.Text = "PT" Then : SQL2 = " AND 公司名 LIKE N'PT%'"

  301.         ElseIf 公司類別_cb.Text = "CV" Then : SQL2 = " AND 公司名 LIKE N'CV%'"

  302.         ElseIf 公司類別_cb.Text = "UD" Then : SQL2 = " AND 公司名  LIKE N'UD%'"

  303.         ElseIf 公司類別_cb.Text = "NA" Or 公司類別_cb.Text = "" Then : SQL2 = " AND 公司名 NOT LIKE N'CV%' AND 公司名 NOT LIKE N'PT%' AND 公司名 NOT LIKE N'UD%' " : End If

  304.         SQL_供應商資料表_公司名_下拉用() : 廠商_cb.Items.Clear() : 廠商_cb.Items.Add("") : While (dr.Read()) : 廠商_cb.Items.Add(dr("公司名")) : End While : conn.Close() : SQL2 = ""

  305.     End Sub

  306.     Private Sub 公司類別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 公司類別_cb.SelectedIndexChanged

  307.         廠商_cb_下拉表單資料載入()

  308.     End Sub

  309.     Private Sub 廠商清空()

  310.         供應商編碼_tb.Text = "" : 地址_tb.Text = "" : 電話_tb.Text = "" : 郵件_tb.Text = "" : 傳真_tb.Text = "" : 類別管理_cb_下拉表單資料載入() : 廠商_cb_下拉表單資料載入()

  311.     End Sub

  312.     Private Sub 採購單編輯_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  313.         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  314.         風格() : H(205) = True : 介面 = "H205" : 語言轉換讀取() : 顯示說明(999, True)

  315.         單價_rb.Checked = True : Panel3.SendToBack()

  316. 

  317.         SQL_清單欄位查詢()

  318.         If Acdr.Read() Then

  319.             小間距_ch.Checked = Acdr("L_1_1") : 中間距_ch.Checked = Acdr("L_2_1") : 大間距_ch.Checked = Acdr("L_3_1")

  320.         End If : Access1.Close()

  321. 

  322.         MyMod.清單字體大小調整()

  323.         採購單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  324.         明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  325.         料號_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  326.     End Sub

  327.     Private Sub 採購單編輯_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  328.         計算分流01.Enabled = True

  329.     End Sub

  330.     Private Sub 計算分流01_Tick(sender As Object, e As EventArgs) Handles 計算分流01.Tick

  331.         計算分流01.Enabled = False

  332.         Label4.Text = 對話框(6) & 比例1 & 對話框(7) & 比例2 & 對話框(8) & 比例2 & 對話框(7) & 比例3 & 對話框(9) & 比例3

  333.         公司類別_cb.SelectedIndex = 0

  334.         類別管理_cb_下拉表單資料載入() : Set_清單1() : Set_清單2() : 首次開啟 = False

  335.     End Sub

  336.     Private Sub 採購單編輯_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged

  337.         MyMod.清單字體大小調整()

  338.         採購單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  339.         明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  340.         料號_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)

  341.     End Sub

  342.     Private Sub 採購單編輯_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  343.         H(205) = False : MyMod.虛擬桌面開啟()

  344.     End Sub

  345.     Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click

  346.         介面 = "H205" : 語言轉換讀取()

  347.         類別管理_cb_下拉表單資料載入() : Set_清單1() : Set_清單2() : Set_單價() : Set_明細清單() : Set_料號比價()

  348.         Label4.Text = 對話框(6) & 比例1 & 對話框(7) & 比例2 & 對話框(8) & 比例2 & 對話框(7) & 比例3 & 對話框(9) & 比例3

  349.     End Sub

  350.     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

  351.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  352.     End Sub

  353.     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress

  354.         timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True

  355.     End Sub

  356.     Private Sub 價格()

  357.         Dim 差異, 比對 As Double

  358.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  359.             If 明細_dgv.Rows(i).Cells("OUP").Value = 0 And 明細_dgv.Rows(i).Cells(表頭(26)).Value = 0 Then

  360.                 If 深色風格 = False Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Lavender

  361.                 Else : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Navy : End If

  362.                 明細_dgv.Rows(i).Cells("SP%").Value = "0 % →"

  363.             ElseIf 明細_dgv.Rows(i).Cells(表頭(26)).Value = 0 And 明細_dgv.Rows(i).Cells("OUP").Value <> 0 Then

  364.                 If 深色風格 = False Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Lavender

  365.                 Else : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Navy : End If

  366.                 明細_dgv.Rows(i).Cells("SP%").Value = "0 % →"

  367.             ElseIf 明細_dgv.Rows(i).Cells("OUP").Value <> 0 And 明細_dgv.Rows(i).Cells(表頭(26)).Value <> 0 Then

  368.                 差異 = 明細_dgv.Rows(i).Cells(表頭(26)).Value - 明細_dgv.Rows(i).Cells("OUP").Value : 比對 = 差異 / 明細_dgv.Rows(i).Cells(表頭(26)).Value * 100

  369.                 If 比對 > 0 Then : 明細_dgv.Rows(i).Cells("SP%").Value = CInt(比對) & " % ↗" : 比對 *= 1

  370.                 ElseIf 比對 < 0 Then : 明細_dgv.Rows(i).Cells("SP%").Value = CInt(比對) & " % ↘" : 比對 *= -1

  371.                 ElseIf 比對 = 0 Then : 明細_dgv.Rows(i).Cells("SP%").Value = CInt(比對) & " % →" : End If

  372.                 If 深色風格 = False Then

  373.                     If 比對 < 比例1 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White

  374.                     ElseIf 比對 > 比例1 And 比對 < 比例2 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen

  375.                     ElseIf 比對 > 比例2 And 比對 < 比例3 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue

  376.                     ElseIf 比對 >= 比例3 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If

  377.                 Else

  378.                     If 比對 < 比例1 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DimGray

  379.                     ElseIf 比對 > 比例1 And 比對 < 比例2 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen

  380.                     ElseIf 比對 > 比例2 And 比對 < 比例3 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue

  381.                     ElseIf 比對 >= 比例3 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple : End If

  382.                 End If

  383.             End If

  384.         Next

  385.     End Sub

  386.     Private Sub 單價_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 單價_rb.Click

  387.         If 首次開啟 = False Then : Set_明細清單() : End If

  388.     End Sub

  389.     Private Sub 日期_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 日期_rb.Click

  390.         Set_明細清單()

  391.     End Sub

  392.     Dim 已超出 As Boolean

  393.     Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp

  394.         'If 明細_dgv.SelectedCells.Count = 1 Then : 通知訊息 = 明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If

  395.         If 明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If

  396.         If 明細_dgv.SelectedCells.Count > 0 Then

  397.             If 明細_dgv.SelectedCells(0).ColumnIndex = 9 Then

  398.                 If 已超出 = False Then

  399.                     Dim x As Double = 0

  400.                     For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1

  401.                         Dim 變數 As String = "" : Dim 取變數 As String

  402.                         取變數 = 明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value

  403.                         For ii As Integer = 1 To Len(取變數)

  404.                             If ii = 1 Then : 變數 = Strings.Left(取變數, ii) : Else : If Strings.Mid(取變數, ii, 1) <> "," Then : 變數 &= Strings.Mid(取變數, ii, 1) : End If : End If

  405.                         Next : x += CLng(變數)

  406.                     Next i : HX_PGS_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(x, "#,##0")

  407.                 Else : HX_PGS_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(0, "#,##0") : End If

  408.             Else : 已超出 = True : HX_PGS_ERP_SYS.合計_TSSL.Text = "Total : " & Strings.Format(0, "#,##0") : End If

  409.         End If

  410.     End Sub

  411.     Private Sub 明細_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick

  412.         If e.RowIndex = -1 Then : Else

  413.             物料圖2_pb.Image = Nothing : 物料圖1_pb.Image = Nothing

  414.             PA2 = 明細_dgv.Rows(e.RowIndex).Cells("料號原則").Value : SQL_物料圖庫_圖檔讀取一()

  415.             While dr.Read() = True

  416.                 Dim unused As Byte() = New Byte(-1) {}

  417.                 Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())

  418.                 Dim oStream As New MemoryStream(bytes)

  419.                 物料圖1_pb.Image = Bitmap.FromStream(oStream)

  420.             End While

  421.             conn.Close() : 物料圖1_pb.SizeMode = 4

  422.             料號1_tb.Text = 明細_dgv("料號", e.RowIndex).Value.ToString

  423.             品名_tb.Text = 明細_dgv(表頭(12), e.RowIndex).Value.ToString

  424.             If 歷史單價_P.Visible = True Then : Set_料號比價() : 繪圖() : 料號_dgv.Sort(料號_dgv.Columns("排序"), System.ComponentModel.ListSortDirection.Descending) : End If

  425.         End If

  426.         價格()

  427.     End Sub

  428.     Private Sub 明細_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellEnter

  429.         總金額計算() : 價格()

  430.     End Sub

  431.     Private Sub 請購單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 請購單_dgv.CellClick

  432.         選擇公司_cb.Enabled = True : 採購選擇 = "A"

  433.         If e.RowIndex = -1 Then : Else

  434.             QQQ1 = 請購單_dgv(0, e.RowIndex).Value.ToString : QQQ2 = 請購單_dgv(3, e.RowIndex).Value.ToString : QQQ3 = 請購單_dgv(4, e.RowIndex).Value.ToString

  435.             If 請購單_dgv.Rows(e.RowIndex).Cells("用途").Value.ToString = "" Then : 使用地點_tb.Text = "" : Else

  436.                 使用地點_tb.Text = 請購單_dgv.Rows(e.RowIndex).Cells("用途").Value.ToString & "-" & 請購單_dgv.Rows(e.RowIndex).Cells("倉名").Value

  437.             End If

  438.             折扣比_tb.Text = "0" : 稅金計算_ch.Checked = True : 稅金比_tb.Text = "10" : 採購單號_tb.Text = ""

  439.         End If : Set_明細清單()

  440.     End Sub

  441.     Private Sub 採購單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 採購單_dgv.CellClick

  442.         PA = "" : 廠商清空()

  443.         選擇公司_cb.Enabled = False : 採購選擇 = "B"

  444.         If e.RowIndex = -1 Then : Else

  445.             採購單號_tb.Text = 採購單_dgv(0, e.RowIndex).Value.ToString : 折扣比_tb.Text = 採購單_dgv(13, e.RowIndex).Value.ToString : 稅金計算_ch.Checked = 採購單_dgv(14, e.RowIndex).Value

  446.             稅金比_tb.Text = 採購單_dgv(15, e.RowIndex).Value.ToString : 核對員_tb.Text = 採購單_dgv(4, e.RowIndex).Value.ToString : 核對日期_tb.Text = 採購單_dgv(5, e.RowIndex).Value.ToString

  447.             詢價員_tb.Text = 採購單_dgv(6, e.RowIndex).Value.ToString : 尋價日期_tb.Text = 採購單_dgv(7, e.RowIndex).Value.ToString : 手動號碼_tb.Text = 採購單_dgv(18, e.RowIndex).Value.ToString

  448.             If Strings.Left(採購單號_tb.Text, 3) = "HXI" Then

  449.                 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL"

  450.             ElseIf Strings.Left(採購單號_tb.Text, 3) = "PGS" Then

  451.                 選擇公司_cb.Text = "PT PUNCAK GEMILANG SEMESTA" : End If

  452. 

  453.             供應商編碼_tb.Text = 採購單_dgv(1, e.RowIndex).Value.ToString : conn.Close()

  454.             PA1 = 供應商編碼_tb.Text : SQL_建築物料採購單生成_供應商資料一()

  455.             If dr.Read() Then : 廠商_cb.Text = dr("公司名") : conn.Close() : Else : 廠商_cb.Text = "" : End If : conn.Close()

  456.             使用地點_tb.Text = 採購單_dgv(3, e.RowIndex).Value.ToString : 需求日期_dtp.Value = 採購單_dgv(2, e.RowIndex).Value

  457.             Set_明細清單() : 歷史單價_P.Visible = False

  458. 

  459.             PA1 = 廠商_cb.Text : SQL_建築物料採購單生成_供應商資料二()

  460.             If dr.Read() Then

  461.                 地址_tb.Text = dr("公司地址").ToString : 電話_tb.Text = dr("公司電話1").ToString : 郵件_tb.Text = dr("聯繫人1郵箱").ToString

  462.                 傳真_tb.Text = dr("公司傳真1").ToString : 供應商編碼_tb.Text = dr("供應商編碼").ToString

  463.             End If : conn.Close()

  464.         End If

  465.     End Sub

  466.     Private Sub 廠商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 廠商_cb.SelectedIndexChanged

  467.         PA1 = 廠商_cb.Text : SQL_建築物料採購單生成_供應商資料二()

  468.         If dr.Read() Then

  469.             地址_tb.Text = dr("公司地址").ToString : 電話_tb.Text = dr("公司電話1").ToString : 郵件_tb.Text = dr("聯繫人1郵箱").ToString

  470.             傳真_tb.Text = dr("公司傳真1").ToString : 供應商編碼_tb.Text = dr("供應商編碼").ToString

  471.         End If : conn.Close()

  472.     End Sub

  473.     Private Sub Set_日期格式轉換()

  474.         DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd") : DTP2 = Strings.Format(需求日期_dtp.Value, "yyyy/MM/dd")

  475.     End Sub

  476.     Private Sub 類別管理_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 類別管理_cb.SelectedIndexChanged

  477.         PA20 = 類別管理_cb.Text : SQL_供應商類別管理_查詢()

  478.         If dr.Read() Then : 供應商簡稱_tb.Text = dr("編碼").ToString : Else : 供應商簡稱_tb.Text = "" : End If

  479.         PA = 供應商簡稱_tb.Text : 廠商_cb_下拉表單資料載入()

  480.     End Sub

  481.     Private Sub 供應商編碼_tb_TextChanged(sender As Object, e As EventArgs) Handles 供應商編碼_tb.TextChanged

  482.         Set_清單3()

  483.     End Sub

  484.     Private Sub 清空供應商_bt_Click(sender As Object, e As EventArgs) Handles 清空供應商_bt.Click

  485.         If 採購單號_tb.Text = "" Then : Else

  486.             SQL_採購單供應商_清空() : 廠商_cb.Text = "" : 地址_tb.Text = "" : 電話_tb.Text = "" : 郵件_tb.Text = "" : 傳真_tb.Text = "" : 供應商編碼_tb.Text = "" : MGB(對話框(15), 1)

  487.         End If

  488.     End Sub

  489.     Private Sub 折扣比_tb_TextChanged(sender As Object, e As EventArgs) Handles 折扣比_tb.TextChanged

  490.         總金額計算()

  491.     End Sub

  492.     Private Sub 稅金計算_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 稅金計算_ch.CheckedChanged

  493.         總金額計算()

  494.     End Sub

  495.     Private Sub 稅金比_tb_TextChanged(sender As Object, e As EventArgs) Handles 稅金比_tb.TextChanged

  496.         總金額計算()

  497.     End Sub

  498.     Private Sub 全部選擇_bt_Click(sender As Object, e As EventArgs) Handles 全部選擇_bt.Click

  499.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1 : 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = True : Next i

  500.     End Sub

  501.     Private Sub 全部取消_bt_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click

  502.         For i As Integer = 0 To 明細_dgv.Rows.Count - 1 : 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = False : Next i

  503.     End Sub

  504.     Private Sub 生成採購單_bt_Click(sender As Object, e As EventArgs) Handles 生成採購單_bt.Click

  505.         If 手動號碼_tb.Text = "" Then : MGB(系統語言字典("H206-143-" & 語言), 1) : Else

  506.             If 採購選擇 = "A" Then : 生成新的採購訂單() : ElseIf 採購選擇 = "B" Then : 修改的採購單存檔() : End If : Set_清單2()

  507.         End If

  508.     End Sub

  509.     Private Sub 生成新的採購訂單()

  510.         If 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL" Then

  511.             Set_日期格式轉換() : Dim NUM1 As Integer

  512.             For i As Integer = 1 To 999

  513.                 NUM1 = 0 + i

  514.                 If NUM1 < 10 Then : 採購單號_tb.Text = "HXI-C-" & DTP1 & "-00" & NUM1

  515.                 ElseIf NUM1 > 9 And NUM1 < 100 Then : 採購單號_tb.Text = "HXI-C-" & DTP1 & "-0" & NUM1

  516.                 ElseIf NUM1 > 99 Then : 採購單號_tb.Text = "HXI-C-" & DTP1 & "-" & NUM1

  517.                 End If

  518.                 PA1 = 採購單號_tb.Text

  519.                 SQL_採購單控制表_單號最後一筆() : If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()

  520.             Next

  521.             確定新增()

  522.         ElseIf 選擇公司_cb.Text = "PT PUNCAK GEMILANG SEMESTA" Then

  523.             Set_日期格式轉換() : Dim NUM1 As Integer

  524.             For i As Integer = 1 To 999

  525.                 NUM1 = 0 + i

  526.                 If NUM1 < 10 Then : 採購單號_tb.Text = "PGS-C-" & DTP1 & "-00" & NUM1

  527.                 ElseIf NUM1 > 9 And NUM1 < 100 Then : 採購單號_tb.Text = "PGS-C-" & DTP1 & "-0" & NUM1

  528.                 ElseIf NUM1 > 99 Then : 採購單號_tb.Text = "PGS-C-" & DTP1 & "-" & NUM1

  529.                 End If

  530.                 PA1 = 採購單號_tb.Text

  531.                 SQL_採購單控制表_單號最後一筆() : If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()

  532.             Next

  533.             確定新增()

  534.         End If

  535.     End Sub

  536.     Private Sub 修改的採購單存檔()

  537.         If 廠商_cb.Text = "" Then : MGB(對話框(5), 1) : Else : Set_日期格式轉換()

  538.             PA1 = 供應商編碼_tb.Text : PA2 = 使用地點_tb.Text : PA3 = 折扣比_tb.Text : BL1 = 稅金計算_ch.Checked : PA4 = 稅金比_tb.Text : PA5 = 採購單號_tb.Text

  539.             PA39 = 手動號碼_tb.Text : SQL_採購單控制表_編輯() : conn.Close()

  540.             For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  541.                 資料數 = 明細_dgv.Rows.Count : MyMod.進度條()

  542.                 PA6 = 明細_dgv.Rows(i).Cells(表頭(14)).Value : PA7 = 明細_dgv.Rows(i).Cells(表頭(26)).Value

  543.                 PA8 = 明細_dgv.Rows(i).Cells(表頭(15)).Value : PA9 = 明細_dgv.Rows(i).Cells(表頭(16)).Value

  544.                 PA10 = 明細_dgv.Rows(i).Cells("項次").Value : PA4 = 明細_dgv.Rows(i).Cells("KEY").Value

  545.                 SQL_採購單明細表_修改() : conn.Close()

  546.             Next

  547.             Set_清單1() : Set_清單2() : MGB(對話框(4), 1) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  548.         End If

  549.     End Sub

  550.     Private Sub 確定新增()

  551.         Set_日期格式轉換()

  552.         If 採購單號_tb.Text = "" Or 供應商編碼_tb.Text = "" Or 明細_dgv.Rows.Count = 0 Then : MGB(對話框(0), 1) : Else

  553.             PA1 = 採購單號_tb.Text : PA2 = 供應商編碼_tb.Text : PA3 = 使用地點_tb.Text : PA4 = QQQ2

  554.             PA5 = QQQ3 : PA6 = QQQ1 : PA7 = 折扣比_tb.Text : BL1 = 稅金計算_ch.Checked : PA8 = 稅金比_tb.Text

  555.             SQL_採購單控制表_新增() : SQL_請購單控制表_轉採修改() : conn.Close()

  556.             For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  557.                 資料數 = 明細_dgv.Rows.Count : MyMod.進度條()

  558.                 If 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value = True Then

  559.                     PA9 = 明細_dgv.Rows(i).Cells("" & 表頭(28) & "").Value : PA2 = 明細_dgv.Rows(i).Cells(表頭(18)).Value : PA3 = 明細_dgv.Rows(i).Cells("項次").Value

  560.                     PA4 = 明細_dgv.Rows(i).Cells(表頭(12)).Value : PA5 = 明細_dgv.Rows(i).Cells(表頭(13)).Value : PA6 = 明細_dgv.Rows(i).Cells(表頭(14)).Value

  561.                     NU1 = 明細_dgv.Rows(i).Cells(表頭(15)).Value : PA8 = 明細_dgv.Rows(i).Cells(表頭(16)).Value : PA10 = 明細_dgv.Rows(i).Cells(表頭(26)).Value

  562.                     PA11 = 明細_dgv.Rows(i).Cells("群組碼").Value : PA12 = 明細_dgv.Rows(i).Cells("料號原則").Value : PA13 = 明細_dgv.Rows(i).Cells("料號").Value

  563.                     SQL_請購單明細表_轉採修改() : SQL_採購單明細表_新增() : conn.Close()

  564.                 End If

  565.             Next

  566.             Set_清單1() : Set_清單2() : MGB(對話框(1), 1) : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0

  567.         End If

  568.     End Sub

  569.     Private Sub 料號_bt_Click(sender As Object, e As EventArgs) Handles 分析工具_bt.Click

  570.         Set_料號比價()

  571.         If 料號1_tb.Text = "" Then : MGB(對話框(10), 1) : Else

  572.             If 歷史單價_P.Visible = True Then : 歷史單價_P.Visible = False

  573.             Else : 歷史單價_P.Visible = True : 繪圖() : 料號_dgv.Sort(料號_dgv.Columns("排序"), System.ComponentModel.ListSortDirection.Descending) : End If

  574.         End If

  575.     End Sub

  576.     Private Sub 繪圖()

  577.         Chart1.Series.Clear() : Chart1.ChartAreas(0).AxisX.Minimum = 0

  578.         If 品名_tb.Text <> "" Then

  579.             If 折線圖_ch.Checked = True Then

  580.                 Chart1.Series.Add(品名_tb.Text & "_1") : Chart1.Series(品名_tb.Text & "_1").ChartType = SeriesChartType.Line : Chart1.Series(品名_tb.Text & "_1").IsVisibleInLegend = False

  581.             End If

  582.             If 長條圖_ch.Checked = True Then

  583.                 Chart1.Series.Add(品名_tb.Text) : Chart1.Series(品名_tb.Text).ChartType = SeriesChartType.Column

  584.             End If

  585.             For i As Integer = 0 To 料號_dgv.Rows.Count - 1

  586.                 Chart1.Series(品名_tb.Text).Points.AddXY(料號_dgv.Rows(i).Cells(表頭(134)).Value.ToString, 料號_dgv.Rows(i).Cells(表頭(26)).Value.ToString)

  587.             Next

  588.         End If

  589.     End Sub

  590.     Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click

  591.         小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : MyMod.間距設定存檔_1() : Set_明細清單()

  592.     End Sub

  593.     Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click

  594.         小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyMod.間距設定存檔_2() : Set_明細清單()

  595.     End Sub

  596.     Private Sub 類別管理_cb_Click(sender As Object, e As EventArgs) Handles 類別管理_cb.Click

  597.         CB選擇清單(類別管理_cb, 類別管理_cb.Text)

  598.     End Sub

  599.     Private Sub 廠商_cb_Click(sender As Object, e As EventArgs) Handles 廠商_cb.Click

  600.         CB選擇清單(廠商_cb, 廠商_cb.Text)

  601.     End Sub

  602.     Private Sub 選擇公司_cb_Click(sender As Object, e As EventArgs) Handles 選擇公司_cb.Click

  603.         CB選擇清單(選擇公司_cb, 選擇公司_cb.Text)

  604.     End Sub

  605.     Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click

  606.         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyMod.間距設定存檔_3() : Set_明細清單()

  607.     End Sub

  608.     Private Sub 物料圖1_pb_Click(sender As Object, e As EventArgs) Handles 物料圖1_pb.Click

  609.         If IsNothing(物料圖1_pb.Image) = False Then : 圖片傳遞 = 物料圖1_pb.Image : 圖片放大視窗.ShowDialog() : End If

  610.     End Sub

  611.     Private Sub 未指定_ch_Click(sender As Object, e As EventArgs) Handles 未指定_ch.Click

  612.         未指定_ch.Checked = True : 已指定_ch.Checked = False : Set_清單2()

  613.     End Sub

  614.     Private Sub 已指定_ch_Click(sender As Object, e As EventArgs) Handles 已指定_ch.Click

  615.         未指定_ch.Checked = False : 已指定_ch.Checked = True : Set_清單2()

  616.     End Sub

  617.     Private Sub 詳細資料2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 詳細資料2_ch.Click

  618.         If 詳細資料2_ch.Checked = True Then : 詳細資料2_ch.Checked = True : Else : 詳細資料2_ch.Checked = False : End If : Set_明細清單()

  619.     End Sub

  620.     Private Sub 列印成詢價單_bt_Click(sender As Object, e As EventArgs) Handles 列印成詢價單_bt.Click

  621.         If 採購單號_tb.Text = "" Then : MGB(對話框(2), 1) : Else

  622.             Dim ds6 As New DataSet : 請購資料_dgv.DataSource = Nothing : ds6.Clear()

  623.             請購資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  624.             請購資料_dgv.ColumnHeadersHeight = 25 : 請購資料_dgv.AllowUserToAddRows = False

  625.             PA38 = 採購單號_tb.Text : SQL_採購資料() : da.Fill(ds6) : 請購資料_dgv.DataSource = ds6.Tables(0) : conn.Close()

  626. 

  627.             xlApp = CType(CreateObject("Excel.Application"), Application) : xlBook = xlApp.Workbooks.Add : xlApp.DisplayAlerts = True : xlBook.Activate()

  628.             xlSheet = NewMethod(xlBook) : xlSheet.Activate() : xlApp.Visible = True : xlApp.Application.WindowState = xlMaximized

  629. 

  630.             'xlSheet.Cells(2, 1) = 選擇公司_cb.Text

  631.             xlSheet.Cells(3, 1) = "MINTA PESANAN HARGA"

  632.             xlSheet.Cells(5, 1) = "ORDER TO : " & 廠商_cb.Text : xlSheet.Cells(6, 1) = "ALAMAT   : " & 地址_tb.Text : xlSheet.Cells(7, 1) = "Telp     : " & 電話_tb.Text

  633.             xlSheet.Cells(8, 1) = "Fax      : " & 傳真_tb.Text : xlSheet.Cells(9, 1) = "Email    : " & 郵件_tb.Text

  634.             xlSheet.Cells(10, 1) = "No." : xlSheet.Cells(10, 2) = "Nama produk" : xlSheet.Cells(10, 3) = "Spesifikasi" : xlSheet.Cells(10, 4) = "Komentar" : xlSheet.Cells(10, 5) = "SATUAN"

  635.             xlSheet.Cells(10, 6) = "QTY" : xlSheet.Cells(10, 7) = "UNIT PRICE" : xlSheet.Cells(10, 8) = "TOTAL PRICE"

  636.             xlSheet.Cells(5, 5) = "PO NOMOR 1      : " : xlSheet.Cells(5, 7) = 手動號碼_tb.Text

  637.             xlSheet.Cells(7, 5) = "PO NOMOR 2      : " : xlSheet.Cells(7, 7) = 採購單號_tb.Text

  638.             xlSheet.Cells(8, 5) = "TGL/BLN/THN      : " : xlSheet.Cells(8, 7) = 需求日期_dtp.Value

  639.             xlSheet.Cells(9, 5) = "TEMPAT PEMAKAIAN : " : xlSheet.Cells(9, 7) = 使用地點_tb.Text

  640.             Dim GGHH As Long = 0

  641.             For i As Integer = 0 To 明細_dgv.Rows.Count - 1

  642.                 xlSheet.Cells(i + 11, 1) = 明細_dgv.Rows(i).Cells(表頭(11)).Value : xlSheet.Cells(i + 11, 2) = 明細_dgv.Rows(i).Cells(表頭(12)).Value

  643.                 xlSheet.Cells(i + 11, 3) = 明細_dgv.Rows(i).Cells(表頭(13)).Value : xlSheet.Cells(i + 11, 4) = 明細_dgv.Rows(i).Cells(表頭(14)).Value

  644.                 xlSheet.Cells(i + 11, 5) = 明細_dgv.Rows(i).Cells(表頭(16)).Value : xlSheet.Cells(i + 11, 6) = 明細_dgv.Rows(i).Cells(表頭(15)).Value

  645.                 xlSheet.Cells(i + 11, 7) = 明細_dgv.Rows(i).Cells(表頭(26)).Value : xlSheet.Cells(i + 11, 8) = 明細_dgv.Rows(i).Cells(表頭(27)).Value

  646.                 GGHH += 明細_dgv.Rows(i).Cells(表頭(27)).Value : N1 = i + 11

  647.             Next i

  648.             xlSheet.Cells(N1 + 2, 7) = "TOTAL :" : xlSheet.Cells(N1 + 2, 8) = GGHH

  649.             xlSheet.Cells(N1 + 3, 7) = "DISC " & 折扣比_tb.Text & "% :" : xlSheet.Cells(N1 + 3, 8) = 折扣金額_tb.Text

  650.             xlSheet.Cells(N1 + 4, 7) = "PPN " & 稅金比_tb.Text & "% :" : xlSheet.Cells(N1 + 4, 8) = 稅金金額_tb.Text

  651.             xlSheet.Cells(N1 + 5, 7) = "GRAND TOTAL :" : xlSheet.Cells(N1 + 5, 8) = 總金額_tb.Text

  652.             xlSheet.Cells(N1 + 6, 1) = "Bagian Pembelian Barang"

  653.             xlSheet.Cells(N1 + 6, 3) = "Direktur Utama"

  654.             xlSheet.Cells(N1 + 6, 4) = "Bagian Pemeriksa"

  655.             xlSheet.Cells(N1 + 6, 6) = "Bagian Pengisian Harga" : xlSheet.Cells(N1 + 8, 6) = 詢價員_tb.Text : xlSheet.Cells(N1 + 9, 6) = 尋價日期_tb.Text

  656.             xlSheet.Cells(N1 + 6, 8) = "Asisten Proyek" : xlSheet.Cells(N1 + 8, 8) = 核對員_tb.Text : xlSheet.Cells(N1 + 9, 8) = 核對日期_tb.Text

  657.             For i As Integer = 0 To 請購資料_dgv.Rows.Count - 1

  658.                 xlSheet.Cells(i + N1 + 12, 1) = 請購資料_dgv.Rows(i).Cells(0).Value

  659.                 If 系統語言 = "繁體中文" Then

  660.                     xlSheet.Cells(i + N1 + 12, 3) = 請購資料_dgv.Rows(i).Cells(2).Value

  661.                 Else

  662.                     xlSheet.Cells(i + N1 + 12, 3) = 請購資料_dgv.Rows(i).Cells(1).Value

  663.                 End If

  664.                 xlSheet.Cells(i + N1 + 12, 8) = 請購資料_dgv.Rows(i).Cells(3).Value : N2 += 1

  665.             Next : AA(xlApp, xlSheet) : FF(xlApp, xlSheet)

  666.             If Strings.Left(採購單號_tb.Text, 2) = "HX" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If

  667.             '-------------轉換成PDF---------------------------------------------------------------------

  668.             Dim SERT As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

  669.             xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, SERT & "\" & 採購單號_tb.Text & "_PO(採購單).pdf", XlFixedFormatQuality.xlQualityStandard, True)

  670.             '-------------關閉EXCEL---------------------------------------------------------------------

  671.             xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select()

  672.             xlApp.Application.WindowState = xlMinimized

  673.             xlBook.Close(False)

  674.             Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)

  675.             Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)

  676.             Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

  677.             xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()

  678.             '-------------開啟PDF---------------------------------------------------------------------

  679.             Dim pdfFilePath As String = SERT & "\" & 採購單號_tb.Text & "_PO(採購單).pdf"

  680.             If IsChromeInstalled() Then

  681.                 Try

  682.                     Dim chromeProcess As New Process()

  683.                     chromeProcess.StartInfo.FileName = "chrome"

  684.                     chromeProcess.StartInfo.Arguments = """" & pdfFilePath & """"

  685.                     chromeProcess.Start()

  686.                 Catch ex As Exception

  687.                 End Try

  688.             Else

  689.                 Try

  690.                     System.Diagnostics.Process.Start("""" & pdfFilePath & """")

  691.                 Catch ex As Exception

  692.                 End Try

  693.             End If

  694.             MGB(對話框(3), 1)

  695.         End If

  696.     End Sub

  697.     ' 檢查系統是否已安裝 Google Chrome

  698.     Private Function IsChromeInstalled() As Boolean

  699.         Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")

  700.         If key IsNot Nothing Then

  701.             For Each subkeyName As String In key.GetSubKeyNames()

  702.                 Dim subkey As Microsoft.Win32.RegistryKey = key.OpenSubKey(subkeyName)

  703.                 Dim displayName As Object = subkey.GetValue("DisplayName")

  704. 

  705.                 If displayName IsNot Nothing AndAlso displayName.ToString().Contains("Google Chrome") Then

  706.                     Return True

  707.                 End If

  708.             Next

  709.         End If

  710.         Return False

  711.     End Function

  712.     Private Shared Function NewMethod(xlBook As Workbook) As Worksheet

  713.         Return CType(xlBook.Worksheets.Add, Worksheet)

  714.     End Function

  715.     Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  716.         xlSheet.Cells.Select()

  717.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  718.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  719. 

  720.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 24

  721.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 30 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 20

  722.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 10 : xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 15

  723.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 15 : xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 30

  724. 

  725.         xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 90 : xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 5

  726.         xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 25 : xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 5

  727.         xlSheet.Rows("5:9").Select : myExcel.Selection.RowHeight = 20 : xlSheet.Rows("10:10").Select : myExcel.Selection.RowHeight = 20

  728.         xlSheet.Rows("11:" & N1).Select : myExcel.Selection.RowHeight = 65 : xlSheet.Rows(N1 + 1 & ":" & N1 + 1).Select : myExcel.Selection.RowHeight = 5

  729.         xlSheet.Rows(N1 + 2 & ":" & N1 + 5).Select : myExcel.Selection.RowHeight = 17 : xlSheet.Rows(N1 + 6 & ":" & N1 + 6).Select : myExcel.Selection.RowHeight = 35

  730.         xlSheet.Rows(N1 + 7 & ":" & N1 + 9).Select : myExcel.Selection.RowHeight = 35

  731. 

  732.         xlSheet.Range("A2:H2").Select()

  733.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  734.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  735.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 26 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  736.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  737. 

  738.         xlSheet.Range("A3:H3").Select()

  739.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  740.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  741.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  742.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  743. 

  744.         xlSheet.Range("A10:H" & N1).Select()

  745.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  746.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  747.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  748.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  749.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  750.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  751.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  752. 

  753.         xlSheet.Range("A" & N1 + 2 & ":H" & N1 + 2).Select()

  754.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  755.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  756.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  757.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  758.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  759.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  760.         xlSheet.Range("A" & N1 + 3 & ":H" & N1 + 3).Select()

  761.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  762.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  763.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  764.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  765.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  766.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  767.         xlSheet.Range("A" & N1 + 4 & ":H" & N1 + 4).Select()

  768.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  769.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  770.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  771.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  772.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  773.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  774.         xlSheet.Range("A" & N1 + 5 & ":H" & N1 + 5).Select()

  775.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  776.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  777.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  778.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  779.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  780.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  781. 

  782.         xlSheet.Range("A" & N1 + 6 & ":B" & N1 + 6).Select()

  783.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  784.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  785.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  786.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  787.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  788.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  789.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  790.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  791. 

  792.         xlSheet.Range("C" & N1 + 6 & ":C" & N1 + 6).Select()

  793.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  794.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  795.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  796.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  797.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  798.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  799.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  800.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  801. 

  802.         xlSheet.Range("D" & N1 + 6 & ":E" & N1 + 6).Select()

  803.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  804.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  805.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  806.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  807.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  808.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  809.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  810.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  811. 

  812.         xlSheet.Range("F" & N1 + 6 & ":G" & N1 + 6).Select()

  813.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  814.             .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  815.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  816.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  817.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  818.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  819.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  820.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  821. 

  822.         xlSheet.Range("H" & N1 + 6).Select()

  823.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  824.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  825.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  826.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  827.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  828.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  829.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  830.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  831. 

  832.         xlSheet.Range("A" & N1 + 7 & ":B" & N1 + 9).Select()

  833.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  834.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  835.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  836.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  837.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  838.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  839.         xlSheet.Range("C" & N1 + 7 & ":C" & N1 + 9).Select()

  840.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  841.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  842.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  843.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  844.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  845.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  846.         xlSheet.Range("D" & N1 + 7 & ":E" & N1 + 9).Select()

  847.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  848.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  849.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  850.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  851.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  852.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  853.         xlSheet.Range("F" & N1 + 7 & ":G" & N1 + 9).Select()

  854.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  855.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  856.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  857.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  858.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  859.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  860.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  861.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  862.         xlSheet.Range("H" & N1 + 7 & ":H" & N1 + 9).Select()

  863.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  864.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  865.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  866.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  867.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  868.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  869.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  870.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  871. 

  872.         xlSheet.Range("A10:A" & N1).Select()

  873.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  874.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  875. 

  876.         xlSheet.Range("B11:D" & N1).Select()

  877.         With myExcel.Selection

  878.             .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  879.             .ReadingOrder = xlContext : .MergeCells = False : End With

  880. 

  881.         xlSheet.Range("E11:F" & N1).Select()

  882.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

  883.             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  884. 

  885.         xlSheet.Range("G11:H" & N1).Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  886.         xlSheet.Range("H" & N1 + 2).Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  887. 

  888.         xlSheet.Range("H" & N1 + 2 & ":H" & N1 + 5).Select()

  889.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  890.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  891.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  892.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  893.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  894.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  895.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  896. 

  897.         myExcel.ActiveWindow.DisplayGridlines = False

  898. 

  899.         xlSheet.Range("A3:H3").Select()

  900.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  901.         myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone

  902.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  903.         myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  904. 

  905.         xlSheet.Range("G7:G9").Select()

  906.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  907.             .ReadingOrder = xlContext : .MergeCells = False : End With

  908. 

  909.         xlSheet.Range("A10:H" & N1).Select()

  910.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  911.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  912.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  913.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  914.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  915.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  916.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  917.         xlSheet.Range("A" & N1 + 2 & ":H" & N1 + 5).Select()

  918.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  919.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  920.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  921.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  922.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  923.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  924.         xlSheet.Range("A" & N1 + 6 & ":B" & N1 + 9).Select()

  925.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  926.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  927.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  928.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  929.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  930.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  931.         xlSheet.Range("C" & N1 + 6 & ":C" & N1 + 9).Select()

  932.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  933.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  934.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  935.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  936.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  937.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  938.         xlSheet.Range("D" & N1 + 6 & ":E" & N1 + 9).Select()

  939.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  940.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  941.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  942.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  943.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  944.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  945.         xlSheet.Range("F" & N1 + 6 & ":G" & N1 + 9).Select()

  946.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  947.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  948.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  949.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  950.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  951.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  952.         xlSheet.Range("H" & N1 + 6 & ":H" & N1 + 9).Select()

  953.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  954.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  955.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  956.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  957.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  958.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  959. 

  960.         xlSheet.Rows("5:9").Select

  961.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  962.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  963. 

  964.         xlSheet.Rows("11:" & N1).Select

  965.         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False

  966.             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  967. 

  968.         xlSheet.Range("A10:H10").Select()

  969.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  970.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  971.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  972.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  973.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  974.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  975.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  976.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  977.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  978.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  979.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  980.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  981.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  982.         xlSheet.Range("A11:H" & N1).Select()

  983.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  984.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  985.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  986.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  987.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  988.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  989.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  990.         xlSheet.Range("B11:D" & N1).Select()

  991.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  992.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  993.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  994.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  995.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  996.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  997.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  998.         xlSheet.Range("F11:F" & N1).Select()

  999.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1000.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1001.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1002.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1003.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1004.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1005.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  1006.         xlSheet.Range("H11:H" & N1).Select()

  1007.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1008.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1009.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1010.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1011.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1012.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1013.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  1014.         xlSheet.Range("A" & N1 + 2 & ":H" & N1 + 5).Select()

  1015.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1016.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1017.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1018.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1019.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1020.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  1021.         xlSheet.Range("H" & N1 + 2 & ":H" & N1 + 5).Select()

  1022.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1023.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1024.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1025.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1026.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With

  1027.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1028.         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

  1029. 

  1030.         xlSheet.Range("G" & N1 + 2 & ":G" & N1 + 5).Select()

  1031.         With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1032.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With

  1033. 

  1034.         xlSheet.Range("F" & N1 + 8 & ":G" & N1 + 8).Select()

  1035.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1036.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1037. 

  1038.         xlSheet.Range("F" & N1 + 9 & ":G" & N1 + 9).Select()

  1039.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False

  1040.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge

  1041. 

  1042.         xlSheet.Range("A" & N1 + 11 & ":H" & N1 + N2 + 11).Select()

  1043.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  1044.         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1045.         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1046.         With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1047.         With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

  1048.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

  1049.         myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  1050.     End Sub

  1051.     Private Sub CC(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Worksheet)

  1052.         Clipboard.SetDataObject(合約報價單.PictureBox1.Image)

  1053.         xlSheet.Range("A1").Select()

  1054.         myExcel.ActiveSheet.Pictures.Paste.Select

  1055.         myExcel.Selection.ShapeRange.Height = 93

  1056.         myExcel.Selection.ShapeRange.IncrementLeft(50)

  1057.         myExcel.Selection.ShapeRange.IncrementTop(0)

  1058.     End Sub

  1059.     Private Sub DD(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Worksheet)

  1060.         Clipboard.SetDataObject(合約報價單.PictureBox2.Image)

  1061.         xlSheet.Range("A1").Select()

  1062.         myExcel.ActiveSheet.Pictures.Paste.Select

  1063.         myExcel.Selection.ShapeRange.Height = 93

  1064.         myExcel.Selection.ShapeRange.IncrementLeft(50)

  1065.         myExcel.Selection.ShapeRange.IncrementTop(0)

  1066.     End Sub

  1067.     Private Sub FF(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1068.         If 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL" Then

  1069.             myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =

  1070.             Str01 & "\HXBWLOG.png"

  1071.         Else

  1072.             myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =

  1073.             Str01 & "\PGSBWLOG.png"

  1074.         End If

  1075.         myExcel.Application.PrintCommunication = False

  1076.         With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "$1:$10" : .PrintTitleColumns = "" : End With

  1077.         myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False

  1078.         With myExcel.ActiveSheet.PageSetup : .LeftHeader = ""

  1079.             .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&G"

  1080.             .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""

  1081.             .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)

  1082.             .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)

  1083.             .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)

  1084.             .PrintHeadings = False : .PrintGridlines = False : .CenterHorizontally = False : .CenterVertically = False : .Draft = False

  1085.             .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False

  1086.             .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True : .EvenPage.LeftHeader.Text = ""

  1087.             .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = "" : .EvenPage.CenterFooter.Text = ""

  1088.             .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = "" : .FirstPage.RightHeader.Text = ""

  1089.             .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""

  1090.         End With : myExcel.Application.PrintCommunication = True

  1091.     End Sub

  1092. 

  1093.     Private Sub 風格()

  1094.         If 深色風格 = False Then

  1095.             Me.BackColor = SystemColors.Control : SplitContainer1.BackColor = SystemColors.Control

  1096. 

  1097.             選擇公司_lb.ForeColor = Color.Blue : 文字_lb.ForeColor = Color.Purple

  1098. 

  1099.             已生未核准的採購單_lb.ForeColor = Color.Black : 簡稱_lb.ForeColor = Color.Black : Label1.ForeColor = Color.Black : Label2.ForeColor = Color.Black

  1100.             Label3.ForeColor = Color.Black : Label6.ForeColor = Color.Black : Label12.ForeColor = Color.Black : Label11.ForeColor = Color.Black

  1101.             Label8.ForeColor = Color.Black : Label5.ForeColor = Color.Black : Label7.ForeColor = Color.Black : 總金額_lb.ForeColor = Color.Black

  1102.             Label4.ForeColor = Color.Black : 小間距_ch.ForeColor = Color.Black : 中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black

  1103.             詳細資料2_ch.ForeColor = Color.Black : 稅金計算_ch.ForeColor = Color.Black : 單價_rb.ForeColor = Color.Black : 日期_rb.ForeColor = Color.Black

  1104.             長條圖_ch.ForeColor = Color.Black : 折線圖_ch.ForeColor = Color.Black : Label9.ForeColor = Color.Black

  1105. 

  1106.             全部選擇_bt.BackColor = Color.White : 全部選擇_bt.ForeColor = Color.Olive : 全部取消_bt.BackColor = Color.White : 全部取消_bt.ForeColor = Color.Olive

  1107.             語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black

  1108. 

  1109.             供應商簡稱_tb.BackColor = Color.White : 供應商簡稱_tb.ForeColor = Color.Black : 地址_tb.BackColor = Color.White : 地址_tb.ForeColor = Color.Black

  1110.             電話_tb.BackColor = Color.White : 電話_tb.ForeColor = Color.Black : 採購單號_tb.BackColor = Color.White : 採購單號_tb.ForeColor = Color.Black

  1111.             折扣比_tb.BackColor = Color.White : 折扣比_tb.ForeColor = Color.Black : 折扣金額_tb.BackColor = Color.White : 折扣金額_tb.ForeColor = Color.Black

  1112.             傳真_tb.BackColor = Color.White : 傳真_tb.ForeColor = Color.Black : 稅金比_tb.BackColor = Color.White : 稅金比_tb.ForeColor = Color.Black

  1113.             稅金金額_tb.BackColor = Color.White : 稅金金額_tb.ForeColor = Color.Black : 郵件_tb.BackColor = Color.White : 郵件_tb.ForeColor = Color.Black

  1114.             使用地點_tb.BackColor = Color.White : 使用地點_tb.ForeColor = Color.Black : 總金額_tb.BackColor = Color.White : 總金額_tb.ForeColor = Color.Black

  1115. 

  1116.             選擇公司_cb.BackColor = Color.White : 選擇公司_cb.ForeColor = Color.Black : 類別管理_cb.BackColor = Color.White : 類別管理_cb.ForeColor = Color.Black

  1117.             廠商_cb.BackColor = Color.White : 廠商_cb.ForeColor = Color.Black : 手動號碼_tb.BackColor = Color.White : 手動號碼_tb.ForeColor = Color.Black

  1118. 

  1119.             清空供應商_bt.BackColor = Color.White : 生成採購單_bt.BackColor = Color.White : 列印成詢價單_bt.BackColor = Color.White : 分析工具_bt.BackColor = Color.White

  1120. 

  1121.             採購單_dgv.EnableHeadersVisualStyles = True : 採購單_dgv.BackgroundColor = Color.White : 採購單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1122.             採購單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1123.             採購單_dgv.DefaultCellStyle.BackColor = Color.White : 採購單_dgv.DefaultCellStyle.ForeColor = Color.Black

  1124.             明細_dgv.EnableHeadersVisualStyles = True : 明細_dgv.BackgroundColor = Color.White : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1125.             明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1126.             明細_dgv.DefaultCellStyle.BackColor = Color.White : 明細_dgv.DefaultCellStyle.ForeColor = Color.Black

  1127.             料號_dgv.EnableHeadersVisualStyles = True : 料號_dgv.BackgroundColor = Color.White : 料號_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1128.             料號_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray

  1129.             料號_dgv.DefaultCellStyle.BackColor = Color.White : 料號_dgv.DefaultCellStyle.ForeColor = Color.Black

  1130.         Else

  1131.             Me.BackColor = Color.Black : SplitContainer1.BackColor = Color.Black

  1132. 

  1133.             選擇公司_lb.ForeColor = Color.LightBlue : 文字_lb.ForeColor = Color.Violet

  1134. 

  1135.             已生未核准的採購單_lb.ForeColor = Color.White : 簡稱_lb.ForeColor = Color.White : Label1.ForeColor = Color.White : Label2.ForeColor = Color.White

  1136.             Label3.ForeColor = Color.White : Label6.ForeColor = Color.White : Label12.ForeColor = Color.White : Label11.ForeColor = Color.White

  1137.             Label8.ForeColor = Color.White : Label5.ForeColor = Color.White : Label7.ForeColor = Color.White : 總金額_lb.ForeColor = Color.White

  1138.             Label4.ForeColor = Color.White : 小間距_ch.ForeColor = Color.White : 中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White

  1139.             詳細資料2_ch.ForeColor = Color.White : 稅金計算_ch.ForeColor = Color.White : 單價_rb.ForeColor = Color.White : 日期_rb.ForeColor = Color.White

  1140.             長條圖_ch.ForeColor = Color.White : 折線圖_ch.ForeColor = Color.White : Label9.ForeColor = Color.Black

  1141. 

  1142.             全部選擇_bt.BackColor = Color.DimGray : 全部選擇_bt.ForeColor = Color.Yellow : 全部取消_bt.BackColor = Color.DimGray : 全部取消_bt.ForeColor = Color.Yellow

  1143.             語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White

  1144. 

  1145.             供應商簡稱_tb.BackColor = Color.DimGray : 供應商簡稱_tb.ForeColor = Color.White : 地址_tb.BackColor = Color.DimGray : 地址_tb.ForeColor = Color.White

  1146.             電話_tb.BackColor = Color.DimGray : 電話_tb.ForeColor = Color.White : 採購單號_tb.BackColor = Color.DimGray : 採購單號_tb.ForeColor = Color.White

  1147.             折扣比_tb.BackColor = Color.DimGray : 折扣比_tb.ForeColor = Color.White : 折扣金額_tb.BackColor = Color.DimGray : 折扣金額_tb.ForeColor = Color.White

  1148.             傳真_tb.BackColor = Color.DimGray : 傳真_tb.ForeColor = Color.White : 稅金比_tb.BackColor = Color.DimGray : 稅金比_tb.ForeColor = Color.White

  1149.             稅金金額_tb.BackColor = Color.DimGray : 稅金金額_tb.ForeColor = Color.White : 郵件_tb.BackColor = Color.DimGray : 郵件_tb.ForeColor = Color.White

  1150.             使用地點_tb.BackColor = Color.DimGray : 使用地點_tb.ForeColor = Color.White : 總金額_tb.BackColor = Color.DimGray : 總金額_tb.ForeColor = Color.White

  1151. 

  1152.             選擇公司_cb.BackColor = Color.DimGray : 選擇公司_cb.ForeColor = Color.White : 類別管理_cb.BackColor = Color.DimGray : 類別管理_cb.ForeColor = Color.White

  1153.             廠商_cb.BackColor = Color.DimGray : 廠商_cb.ForeColor = Color.White : 手動號碼_tb.BackColor = Color.DimGray : 手動號碼_tb.ForeColor = Color.White

  1154. 

  1155.             清空供應商_bt.BackColor = Color.DimGray : 生成採購單_bt.BackColor = Color.DimGray : 列印成詢價單_bt.BackColor = Color.DimGray : 分析工具_bt.BackColor = Color.DimGray

  1156. 

  1157.             採購單_dgv.EnableHeadersVisualStyles = False : 採購單_dgv.BackgroundColor = Color.DimGray : 採購單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1158.             採購單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 採購單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1159.             採購單_dgv.DefaultCellStyle.BackColor = Color.Black : 採購單_dgv.DefaultCellStyle.ForeColor = Color.White

  1160.             明細_dgv.EnableHeadersVisualStyles = False : 明細_dgv.BackgroundColor = Color.DimGray : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1161.             明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1162.             明細_dgv.DefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.ForeColor = Color.White

  1163.             料號_dgv.EnableHeadersVisualStyles = False : 料號_dgv.BackgroundColor = Color.DimGray : 料號_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1164.             料號_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 料號_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1165.             料號_dgv.DefaultCellStyle.BackColor = Color.Black : 料號_dgv.DefaultCellStyle.ForeColor = Color.White

  1166.         End If

  1167.     End Sub

  1168. End Class