HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-LEEHSIEHJUI
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.
7 Commits
1 Branch
Tree: ffdb5b9c73
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'ffdb5b9c73'
${ noResults }
HX-PGS-ERP-SYS-LEEHSIEHJUI/02、採購管理系統/物料請採購/採購單編輯.vb

採購單編輯.vb 102KB
History Raw

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

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

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

  180. 

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

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

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

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

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

  186.             Else

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

  188.             End If

  189.         Next

  190.     End Sub

  191.     Private Sub Set_清單3()

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

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

  194.         最新單價_dgv.ColumnHeadersHeight = 25

  195.         最新單價_dgv.AllowUserToAddRows = False

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

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

  198. 

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

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

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

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

  203.                 End If

  204.             Next

  205.         Next

  206.     End Sub

  207.     Private Sub 總金額計算()

  208.         Dim FFGG As Long = 0

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

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

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

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

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

  214.             Else

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

  216.             End If

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

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

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

  220.             Else

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

  222.             End If

  223.         Next i

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

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

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

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

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

  229.             Else

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

  231.             End If

  232.         Else

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

  234.         End If

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

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

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

  238.     End Sub

  239.     Private Sub Set_單價()

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

  241.         價錢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  242.         價錢_dgv.ColumnHeadersHeight = 25

  243.         價錢_dgv.AllowUserToAddRows = False

  244. 

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

  246.             SQL_加權平均()

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

  248.             SQL_最近日期()

  249.         End If

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

  251.     End Sub

  252.     Private Sub Set_料號比價()

  253.         Dim ds1 As New DataSet

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

  255.         料號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  256.         料號_dgv.ColumnHeadersHeight = 25

  257.         料號_dgv.AllowUserToAddRows = False

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

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

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

  261.     End Sub

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

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

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

  265.         全部取消_bt.Text = 系統語言字典("H205-103-" & 語言) : 全部選擇_bt.Text = 系統語言字典("H205-104-" & 語言) : 重新整理_tsm.Text = 系統語言字典("H205-105-" & 語言)

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

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

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

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

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

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

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

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

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

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

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

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

  278.     End Sub

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

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

  281.     End Sub

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

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

  284.     End Sub

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

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

  287.     End Sub

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

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

  290.     End Sub

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

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

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

  294.     End Sub

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

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

  297.     End Sub

  298.     Private Sub 廠商清空()

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

  300.     End Sub

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

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

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

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

  305. 

  306.         SQL_清單欄位查詢()

  307.         If Acdr.Read() Then

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

  309.         End If : Access1.Close()

  310. 

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

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

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

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

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

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

  317.     End Sub

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

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

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

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

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

  323.     End Sub

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

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

  326.     End Sub

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

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

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

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

  331.     End Sub

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

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

  334.     End Sub

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

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

  337.     End Sub

  338.     Private Sub 價格()

  339.         Dim 差異, 比對 As Double

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  354.                 If 深色風格 = False Then

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

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

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

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

  359.                 Else

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

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

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

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

  364.                 End If

  365.             End If

  366.         Next

  367.     End Sub

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

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

  370.     End Sub

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

  372.         Set_明細清單()

  373.     End Sub

  374.     Dim 已超出 As Boolean

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

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

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

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

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

  380.                 If 已超出 = False Then

  381.                     Dim x As Double = 0

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

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

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

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

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

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

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

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

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

  391.         End If

  392.     End Sub

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

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

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

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

  397.             While dr.Read() = True

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

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

  400.                 Dim oStream As New MemoryStream(bytes)

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

  402.             End While

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

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

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

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

  407.         End If

  408.         價格()

  409.     End Sub

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

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

  412.     End Sub

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

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

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

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

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

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

  419.             End If

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

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

  422.     End Sub

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

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

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

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

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

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

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

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

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

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

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

  434. 

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

  436.             SQL_建築物料採購單生成_供應商資料一()

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

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

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

  440.         End If

  441.     End Sub

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

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

  444.     End Sub

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

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

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

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

  449.     End Sub

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

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

  452.         If dr.Read() Then

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

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

  455.         End If : conn.Close()

  456.     End Sub

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

  458.         Set_清單3()

  459.     End Sub

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

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

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

  463.         End If

  464.     End Sub

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

  466.         總金額計算()

  467.     End Sub

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

  469.         總金額計算()

  470.     End Sub

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

  472.         總金額計算()

  473.     End Sub

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

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

  476.     End Sub

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

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

  479.     End Sub

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

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

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

  483.         End If

  484.     End Sub

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

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

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

  488.             For i As Integer = 1 To 999

  489.                 NUM1 = 0 + i

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

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

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

  493.                 End If

  494.                 PA1 = 採購單號_tb.Text

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

  496.             Next

  497.             確定新增()

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

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

  500.             For i As Integer = 1 To 999

  501.                 NUM1 = 0 + i

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

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

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

  505.                 End If

  506.                 PA1 = 採購單號_tb.Text

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

  508.             Next

  509.             確定新增()

  510.         End If

  511.     End Sub

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

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

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

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

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

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

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

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

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

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

  522.             Next

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

  524.         End If

  525.     End Sub

  526.     Private Sub 確定新增()

  527.         Set_日期格式轉換()

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

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

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

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

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

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

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

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

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

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

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

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

  540.                 End If

  541.             Next

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

  543.         End If

  544.     End Sub

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

  546.         Set_料號比價()

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

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

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

  550.         End If

  551.     End Sub

  552.     Private Sub 繪圖()

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

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

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

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

  557.             End If

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

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

  560.             End If

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

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

  563.             Next

  564.         End If

  565.     End Sub

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

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

  568.     End Sub

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

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

  571.     End Sub

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

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

  574.     End Sub

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

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

  577.     End Sub

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

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

  580.     End Sub

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

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

  583.     End Sub

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

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

  586.     End Sub

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

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

  589.     End Sub

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

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

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

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

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

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

  596. 

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

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

  599. 

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

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

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

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

  604.             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"

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

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

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

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

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

  610.             Dim GGHH As Long = 0

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

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

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

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

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

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

  617.             Next i

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

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

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

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

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

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

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

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

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

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

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

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

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

  631.                 Else

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

  633.                 End If

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

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

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

  637.             '-------------轉換成PDF---------------------------------------------------------------------

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

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

  640.             '-------------關閉EXCEL---------------------------------------------------------------------

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

  642.             xlApp.Application.WindowState = xlMinimized

  643.             xlBook.Close(False)

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

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

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

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

  648.             '-------------開啟PDF---------------------------------------------------------------------

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

  650.             If IsChromeInstalled() Then

  651.                 Try

  652.                     Dim chromeProcess As New Process()

  653.                     chromeProcess.StartInfo.FileName = "chrome"

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

  655.                     chromeProcess.Start()

  656.                 Catch ex As Exception

  657.                 End Try

  658.             Else

  659.                 Try

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

  661.                 Catch ex As Exception

  662.                 End Try

  663.             End If

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

  665.         End If

  666.     End Sub

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

  668.     Private Function IsChromeInstalled() As Boolean

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

  670.         If key IsNot Nothing Then

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

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

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

  674. 

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

  676.                     Return True

  677.                 End If

  678.             Next

  679.         End If

  680.         Return False

  681.     End Function

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

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

  684.     End Function

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

  686.         xlSheet.Cells.Select()

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

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

  689. 

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

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

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

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

  694. 

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

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

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

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

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

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

  701. 

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

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

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

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

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

  707. 

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

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

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

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

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

  713. 

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

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

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

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

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

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

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

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

  722. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  744.         xlSheet.Range("A" & N1 + 5 & ":H" & N1 + 5).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.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

  751. 

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

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

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

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

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

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

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

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

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

  761. 

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

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

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

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

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

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

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

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

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

  771. 

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

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

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

  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("F" & N1 + 6 & ":G" & 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("H" & N1 + 6).Select()

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

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

  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("A" & N1 + 7 & ":B" & N1 + 9).Select()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  832.         xlSheet.Range("H" & N1 + 7 & ":H" & 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.         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0

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

  841. 

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

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

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

  845. 

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

  847.         With myExcel.Selection

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

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

  850. 

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

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

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

  854. 

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

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

  857. 

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

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

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

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

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

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

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

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

  866. 

  867.         myExcel.ActiveWindow.DisplayGridlines = False

  868. 

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

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

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

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

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

  874. 

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

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

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

  878. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  929. 

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

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

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

  933. 

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

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

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

  937. 

  938.         xlSheet.Range("A10:H10").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.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With

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

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

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

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

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

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

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

  952.         xlSheet.Range("A11:H" & N1).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.         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlHairline : End With

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

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

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

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

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

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

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

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

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

  968.         xlSheet.Range("F11:F" & N1).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.         myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  999. 

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

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

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

  1003. 

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

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

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

  1007. 

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

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

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

  1011. 

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

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

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

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

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

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

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

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

  1020.     End Sub

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

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

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

  1024.         myExcel.ActiveSheet.Pictures.Paste.Select

  1025.         myExcel.Selection.ShapeRange.Height = 93

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

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

  1028.     End Sub

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

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

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

  1032.         myExcel.ActiveSheet.Pictures.Paste.Select

  1033.         myExcel.Selection.ShapeRange.Height = 93

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

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

  1036.     End Sub

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

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

  1039.             myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =

  1040.             Str01 & "\HXBWLOG.png"

  1041.         Else

  1042.             myExcel.ActiveSheet.PageSetup.CenterHeaderPicture.Filename =

  1043.             Str01 & "\PGSBWLOG.png"

  1044.         End If

  1045.         myExcel.Application.PrintCommunication = False

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1061.     End Sub

  1062.     '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------

  1063.     Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click

  1064.         Set_清單1() : Set_清單2()

  1065.     End Sub

  1066. 

  1067.     Private Sub 風格()

  1068.         If 深色風格 = False Then

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

  1070. 

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

  1072. 

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

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

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

  1076.             Label4.ForeColor = Color.Black : 小間距_ch.ForeColor = Color.Black : 中間距_ch.ForeColor = Color.Black : 大間距_ch.ForeColor = Color.Black

  1077.             詳細資料2_ch.ForeColor = Color.Black : 稅金計算_ch.ForeColor = Color.Black : 單價_rb.ForeColor = Color.Black : 日期_rb.ForeColor = Color.Black

  1078.             長條圖_ch.ForeColor = Color.Black : 折線圖_ch.ForeColor = Color.Black : Label9.ForeColor = Color.Black

  1079. 

  1080.             全部選擇_bt.BackColor = Color.White : 全部選擇_bt.ForeColor = Color.Olive : 全部取消_bt.BackColor = Color.White : 全部取消_bt.ForeColor = Color.Olive

  1081.             語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black

  1082. 

  1083.             供應商簡稱_tb.BackColor = Color.White : 供應商簡稱_tb.ForeColor = Color.Black : 地址_tb.BackColor = Color.White : 地址_tb.ForeColor = Color.Black

  1084.             電話_tb.BackColor = Color.White : 電話_tb.ForeColor = Color.Black : 採購單號_tb.BackColor = Color.White : 採購單號_tb.ForeColor = Color.Black

  1085.             折扣比_tb.BackColor = Color.White : 折扣比_tb.ForeColor = Color.Black : 折扣金額_tb.BackColor = Color.White : 折扣金額_tb.ForeColor = Color.Black

  1086.             傳真_tb.BackColor = Color.White : 傳真_tb.ForeColor = Color.Black : 稅金比_tb.BackColor = Color.White : 稅金比_tb.ForeColor = Color.Black

  1087.             稅金金額_tb.BackColor = Color.White : 稅金金額_tb.ForeColor = Color.Black : 郵件_tb.BackColor = Color.White : 郵件_tb.ForeColor = Color.Black

  1088.             使用地點_tb.BackColor = Color.White : 使用地點_tb.ForeColor = Color.Black : 總金額_tb.BackColor = Color.White : 總金額_tb.ForeColor = Color.Black

  1089. 

  1090.             選擇公司_cb.BackColor = Color.White : 選擇公司_cb.ForeColor = Color.Black : 類別管理_cb.BackColor = Color.White : 類別管理_cb.ForeColor = Color.Black

  1091.             廠商_cb.BackColor = Color.White : 廠商_cb.ForeColor = Color.Black : 手動號碼_tb.BackColor = Color.White : 手動號碼_tb.ForeColor = Color.Black

  1092. 

  1093.             清空供應商_bt.BackColor = Color.White : 生成採購單_bt.BackColor = Color.White : 列印成詢價單_bt.BackColor = Color.White : 分析工具_bt.BackColor = Color.White

  1094. 

  1095.             採購單_dgv.EnableHeadersVisualStyles = True : 採購單_dgv.BackgroundColor = Color.White : 採購單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1096.             採購單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink

  1097.             採購單_dgv.DefaultCellStyle.BackColor = Color.White : 採購單_dgv.DefaultCellStyle.ForeColor = Color.Black

  1098.             明細_dgv.EnableHeadersVisualStyles = True : 明細_dgv.BackgroundColor = Color.White : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1099.             明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue

  1100.             明細_dgv.DefaultCellStyle.BackColor = Color.White : 明細_dgv.DefaultCellStyle.ForeColor = Color.Black

  1101.             料號_dgv.EnableHeadersVisualStyles = True : 料號_dgv.BackgroundColor = Color.White : 料號_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black

  1102.             料號_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray

  1103.             料號_dgv.DefaultCellStyle.BackColor = Color.White : 料號_dgv.DefaultCellStyle.ForeColor = Color.Black

  1104.         Else

  1105.             Me.BackColor = Color.Black : SplitContainer1.BackColor = Color.Black

  1106. 

  1107.             選擇公司_lb.ForeColor = Color.LightBlue : 文字_lb.ForeColor = Color.Violet

  1108. 

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

  1110.             Label3.ForeColor = Color.White : Label6.ForeColor = Color.White : Label12.ForeColor = Color.White : Label11.ForeColor = Color.White

  1111.             Label8.ForeColor = Color.White : Label5.ForeColor = Color.White : Label7.ForeColor = Color.White : 總金額_lb.ForeColor = Color.White

  1112.             Label4.ForeColor = Color.White : 小間距_ch.ForeColor = Color.White : 中間距_ch.ForeColor = Color.White : 大間距_ch.ForeColor = Color.White

  1113.             詳細資料2_ch.ForeColor = Color.White : 稅金計算_ch.ForeColor = Color.White : 單價_rb.ForeColor = Color.White : 日期_rb.ForeColor = Color.White

  1114.             長條圖_ch.ForeColor = Color.White : 折線圖_ch.ForeColor = Color.White : Label9.ForeColor = Color.Black

  1115. 

  1116.             全部選擇_bt.BackColor = Color.DimGray : 全部選擇_bt.ForeColor = Color.Yellow : 全部取消_bt.BackColor = Color.DimGray : 全部取消_bt.ForeColor = Color.Yellow

  1117.             語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White

  1118. 

  1119.             供應商簡稱_tb.BackColor = Color.DimGray : 供應商簡稱_tb.ForeColor = Color.White : 地址_tb.BackColor = Color.DimGray : 地址_tb.ForeColor = Color.White

  1120.             電話_tb.BackColor = Color.DimGray : 電話_tb.ForeColor = Color.White : 採購單號_tb.BackColor = Color.DimGray : 採購單號_tb.ForeColor = Color.White

  1121.             折扣比_tb.BackColor = Color.DimGray : 折扣比_tb.ForeColor = Color.White : 折扣金額_tb.BackColor = Color.DimGray : 折扣金額_tb.ForeColor = Color.White

  1122.             傳真_tb.BackColor = Color.DimGray : 傳真_tb.ForeColor = Color.White : 稅金比_tb.BackColor = Color.DimGray : 稅金比_tb.ForeColor = Color.White

  1123.             稅金金額_tb.BackColor = Color.DimGray : 稅金金額_tb.ForeColor = Color.White : 郵件_tb.BackColor = Color.DimGray : 郵件_tb.ForeColor = Color.White

  1124.             使用地點_tb.BackColor = Color.DimGray : 使用地點_tb.ForeColor = Color.White : 總金額_tb.BackColor = Color.DimGray : 總金額_tb.ForeColor = Color.White

  1125. 

  1126.             選擇公司_cb.BackColor = Color.DimGray : 選擇公司_cb.ForeColor = Color.White : 類別管理_cb.BackColor = Color.DimGray : 類別管理_cb.ForeColor = Color.White

  1127.             廠商_cb.BackColor = Color.DimGray : 廠商_cb.ForeColor = Color.White : 手動號碼_tb.BackColor = Color.DimGray : 手動號碼_tb.ForeColor = Color.White

  1128. 

  1129.             清空供應商_bt.BackColor = Color.DimGray : 生成採購單_bt.BackColor = Color.DimGray : 列印成詢價單_bt.BackColor = Color.DimGray : 分析工具_bt.BackColor = Color.DimGray

  1130. 

  1131.             採購單_dgv.EnableHeadersVisualStyles = False : 採購單_dgv.BackgroundColor = Color.DimGray : 採購單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1132.             採購單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 採購單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1133.             採購單_dgv.DefaultCellStyle.BackColor = Color.Black : 採購單_dgv.DefaultCellStyle.ForeColor = Color.White

  1134.             明細_dgv.EnableHeadersVisualStyles = False : 明細_dgv.BackgroundColor = Color.DimGray : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1135.             明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 明細_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1136.             明細_dgv.DefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.ForeColor = Color.White

  1137.             料號_dgv.EnableHeadersVisualStyles = False : 料號_dgv.BackgroundColor = Color.DimGray : 料號_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White

  1138.             料號_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 料號_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray

  1139.             料號_dgv.DefaultCellStyle.BackColor = Color.Black : 料號_dgv.DefaultCellStyle.ForeColor = Color.White

  1140.         End If

  1141.     End Sub

  1142. End Class