GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Следить 4
В избранное 0
Форкнуть 0
Код Задачи 0 Pull Request'ы 0 Релизы 0 Вики Активность
Нет описания
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
18 коммитов
1 ветка
Дерево: 6481fae9c7
веток Теги
${ item.name }
Создать ветку ${ searchTerm }
из '6481fae9c7'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/06-業務管理系統/合約請款單.vb

合約請款單.vb 162KB
История Исходник

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603 
  1. Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle

  2. Imports Microsoft.Office.Interop.Excel.Constants

  3. Imports Microsoft.Office.Interop.Excel.XlBordersIndex

  4. Imports Microsoft.Office.Interop.Excel.XlLineStyle

  5. Imports Microsoft.Office.Interop.Excel.XlBorderWeight

  6. Imports Microsoft.Office.Interop.Excel.XlThemeFont

  7. Imports Microsoft.Office.Interop.Excel.XlThemeColor

  8. Imports Microsoft.Office.Interop.Excel.XlWindowState

  9. Imports Microsoft.Office.Interop.Excel

  10. Public Class 合約請款單

  11.     ReadOnly ds1, ds2, ds6, ds7, ds8, ds9, ds10, ds11, ds15 As New DataSet

  12.     Dim ESTR As String

  13.     Dim EDR As Integer = 0

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

  15.     Dim OldX, OldY As Long

  16.     Dim drag, 放大 As Boolean

  17.     Private Sub Set_合約清單()

  18.         合約_dgv.DataSource = Nothing : ds6.Clear()

  19.         合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  20.         合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False

  21.         PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text

  22.         SQL_合約清單_請款用()

  23.         da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()

  24.         合約_dgv.Columns(0).FillWeight = 160 : 合約_dgv.Columns(1).Visible = False : 合約_dgv.Columns(2).Visible = False : 合約_dgv.Columns(3).Visible = False

  25.         合約_dgv.Columns(4).Visible = False : 合約_dgv.Columns(5).Visible = False : 合約_dgv.Columns(6).Visible = False : 合約_dgv.Columns(7).Visible = False

  26.         合約_dgv.Columns(8).Visible = False : 合約_dgv.Columns(9).Visible = False : 合約_dgv.Columns(10).Visible = False : 合約_dgv.Columns(11).Visible = False

  27.         合約_dgv.Columns(12).Visible = False : 合約_dgv.Columns(13).Visible = False : 合約_dgv.Columns(14).Visible = False : 合約_dgv.Columns(15).Visible = False

  28.         合約_dgv.Columns(16).Visible = False : 合約_dgv.Columns(17).Visible = False : 合約_dgv.Columns(18).Visible = False : 合約_dgv.Columns(19).Visible = False

  29.         合約_dgv.Columns(20).Visible = False : 合約_dgv.Columns(21).Visible = False : 合約_dgv.Columns(22).Visible = False : 合約_dgv.Columns(23).Visible = False

  30.         合約_dgv.Columns(24).FillWeight = 100 : 合約_dgv.Columns(25).Visible = False : 合約_dgv.Columns(26).Visible = False : 合約_dgv.Columns(27).Visible = False

  31.         合約_dgv.Columns(28).Visible = False : 合約_dgv.Columns(29).Visible = False : 合約_dgv.Columns(30).Visible = False : 合約_dgv.Columns("工程名稱_中").FillWeight = 300

  32.         If 放大 = True Then

  33.             合約_dgv.Columns("工程名稱_中").Visible = True

  34.         Else

  35.             合約_dgv.Columns("工程名稱_中").Visible = False

  36.         End If

  37.     End Sub

  38.     Private Sub Set_附錄清單()

  39.         合約附錄_dgv.DataSource = Nothing : ds1.Clear()

  40.         合約附錄_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  41.         合約附錄_dgv.ColumnHeadersHeight = 25 : 合約附錄_dgv.AllowUserToAddRows = False

  42.         SQL_附錄合約_清單查詢1()

  43.         da.Fill(ds1) : 合約附錄_dgv.DataSource = ds1.Tables(0) : conn.Close()

  44.         合約附錄_dgv.Columns(0).Visible = False : 合約附錄_dgv.Columns(1).FillWeight = 160 : 合約附錄_dgv.Columns(2).Visible = False : 合約附錄_dgv.Columns(3).Visible = False

  45.         合約附錄_dgv.Columns(4).Visible = False : 合約附錄_dgv.Columns(5).Visible = False : 合約附錄_dgv.Columns(6).Visible = False : 合約附錄_dgv.Columns(7).FillWeight = 70

  46.     End Sub

  47.     Private Sub Set_合約報價總表()

  48.         幣別 = " (RP)"

  49.         報價總表_dgv.DataSource = Nothing : ds15.Clear()

  50.         報價總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  51.         報價總表_dgv.ColumnHeadersHeight = 40 : 報價總表_dgv.AllowUserToAddRows = False : 報價總表_dgv.RowTemplate.Height = 45

  52.         報價總表_dgv.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True

  53.         SQL_合約報價總表()

  54.         da.Fill(ds15) : 報價總表_dgv.DataSource = ds15.Tables(0) : conn.Close()

  55.         報價總表_dgv.Columns(0).Visible = False : 報價總表_dgv.Columns(8).Visible = False : 報價總表_dgv.Columns(9).Visible = False

  56.         報價總表_dgv.Columns(0).FillWeight = 50 : 報價總表_dgv.Columns(1).FillWeight = 50 : 報價總表_dgv.Columns(2).FillWeight = 210

  57.         報價總表_dgv.Columns(3).FillWeight = 50 : 報價總表_dgv.Columns(4).FillWeight = 50 : 報價總表_dgv.Columns(5).FillWeight = 80

  58.         報價總表_dgv.Columns(6).FillWeight = 80 : 報價總表_dgv.Columns(7).FillWeight = 90

  59. 

  60.         For i As Integer = 4 To 6 : 報價總表_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : Next

  61.         For i As Integer = 4 To 6 : 報價總表_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Next

  62.         For i As Integer = 0 To 7 : 報價總表_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Next

  63.         報價總表_dgv.Columns(1).ReadOnly = True : 報價總表_dgv.Columns(2).ReadOnly = True : 報價總表_dgv.Columns(6).ReadOnly = True

  64.         報價總表_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  65.     End Sub

  66.     Private Sub Set_請款清單()

  67.         請款單_dgv.DataSource = Nothing : ds2.Clear()

  68.         請款單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  69.         請款單_dgv.ColumnHeadersHeight = 25 : 請款單_dgv.AllowUserToAddRows = False

  70.         SQL_請款單_清單查詢()

  71.         da.Fill(ds2) : 請款單_dgv.DataSource = ds2.Tables(0) : conn.Close()

  72.         請款單_dgv.Columns(0).Visible = False : 請款單_dgv.Columns(1).FillWeight = 50 : 請款單_dgv.Columns(2).Visible = False : 請款單_dgv.Columns(3).FillWeight = 50

  73.         請款單_dgv.Columns(4).FillWeight = 100 : 請款單_dgv.Columns(5).FillWeight = 50 : 請款單_dgv.Columns(6).Visible = False : 請款單_dgv.Columns(7).Visible = False

  74.         請款單_dgv.Columns(8).FillWeight = 100 : 請款單_dgv.Columns(9).FillWeight = 80

  75.         請款單_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 請款單_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"

  76.         請款單_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 請款單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"

  77.         請款單_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  78.         請款單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  79.         請款單_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  80.         請款單_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  81.     End Sub

  82.     Private Sub Set_合約明細1()

  83.         第1期_dgv.DataSource = Nothing : ds7.Clear()

  84.         第1期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  85.         第1期_dgv.ColumnHeadersHeight = 25 : 第1期_dgv.AllowUserToAddRows = False

  86.         SQL_合約明細讀取()

  87.         da.Fill(ds7) : 第1期_dgv.DataSource = ds7.Tables(0) : conn.Close()

  88.         第1期_dgv.Columns(0).Visible = False : 第1期_dgv.Columns(1).Visible = False : 第1期_dgv.Columns(2).FillWeight = 20 : 第1期_dgv.Columns(3).FillWeight = 140

  89.         第1期_dgv.Columns(4).FillWeight = 20 : 第1期_dgv.Columns(5).FillWeight = 50

  90.         第1期_dgv.Columns(2).ReadOnly = True : 第1期_dgv.Columns(5).ReadOnly = True

  91.         第1期_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  92.         第1期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第1期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第1期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"

  93.         第1期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第1期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  94.     End Sub

  95.     Private Sub Set_合約明細2()

  96.         第2期_dgv.DataSource = Nothing : ds8.Clear()

  97.         第2期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  98.         第2期_dgv.ColumnHeadersHeight = 25 : 第2期_dgv.AllowUserToAddRows = False

  99.         SQL_合約明細讀取()

  100.         da.Fill(ds8) : 第2期_dgv.DataSource = ds8.Tables(0) : conn.Close()

  101.         第2期_dgv.Columns(0).Visible = False : 第2期_dgv.Columns(1).Visible = False : 第2期_dgv.Columns(2).FillWeight = 20 : 第2期_dgv.Columns(3).FillWeight = 140

  102.         第2期_dgv.Columns(4).FillWeight = 20 : 第2期_dgv.Columns(5).FillWeight = 50

  103.         第2期_dgv.Columns(2).ReadOnly = True : 第2期_dgv.Columns(5).ReadOnly = True

  104.         第2期_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  105.         第2期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第2期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第2期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"

  106.         第2期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第2期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  107.     End Sub

  108.     Private Sub Set_合約明細3()

  109.         第3期_dgv.DataSource = Nothing : ds9.Clear()

  110.         第3期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  111.         第3期_dgv.ColumnHeadersHeight = 25

  112.         第3期_dgv.AllowUserToAddRows = False

  113.         SQL_合約明細讀取()

  114.         da.Fill(ds9) : 第3期_dgv.DataSource = ds9.Tables(0) : conn.Close()

  115.         第3期_dgv.Columns(0).Visible = False : 第3期_dgv.Columns(1).Visible = False : 第3期_dgv.Columns(2).FillWeight = 20 : 第3期_dgv.Columns(3).FillWeight = 140

  116.         第3期_dgv.Columns(4).FillWeight = 20 : 第3期_dgv.Columns(5).FillWeight = 50

  117.         第3期_dgv.Columns(2).ReadOnly = True : 第3期_dgv.Columns(5).ReadOnly = True

  118.         第3期_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  119.         第3期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第3期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第3期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"

  120.         第3期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第3期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  121.     End Sub

  122.     Private Sub Set_合約明細4()

  123.         第4期_dgv.DataSource = Nothing : ds10.Clear()

  124.         第4期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  125.         第4期_dgv.ColumnHeadersHeight = 25 : 第4期_dgv.AllowUserToAddRows = False

  126.         SQL_合約明細讀取()

  127.         da.Fill(ds10) : 第4期_dgv.DataSource = ds10.Tables(0) : conn.Close()

  128.         第4期_dgv.Columns(0).Visible = False : 第4期_dgv.Columns(1).Visible = False : 第4期_dgv.Columns(2).FillWeight = 20 : 第4期_dgv.Columns(3).FillWeight = 140

  129.         第4期_dgv.Columns(4).FillWeight = 20 : 第4期_dgv.Columns(5).FillWeight = 50

  130.         第4期_dgv.Columns(2).ReadOnly = True : 第4期_dgv.Columns(5).ReadOnly = True

  131.         第4期_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  132.         第4期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第4期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第4期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"

  133.         第4期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第4期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  134.     End Sub

  135.     Private Sub Set_合約明細5()

  136.         第5期_dgv.DataSource = Nothing : ds11.Clear()

  137.         第5期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  138.         第5期_dgv.ColumnHeadersHeight = 25 : 第5期_dgv.AllowUserToAddRows = False

  139.         SQL_合約明細讀取()

  140.         da.Fill(ds11) : 第5期_dgv.DataSource = ds11.Tables(0) : conn.Close()

  141.         第5期_dgv.Columns(0).Visible = False : 第5期_dgv.Columns(1).Visible = False : 第5期_dgv.Columns(2).FillWeight = 20 : 第5期_dgv.Columns(3).FillWeight = 140

  142.         第5期_dgv.Columns(4).FillWeight = 20 : 第5期_dgv.Columns(5).FillWeight = 50

  143.         第5期_dgv.Columns(2).ReadOnly = True : 第5期_dgv.Columns(5).ReadOnly = True

  144.         第5期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第5期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第5期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"

  145.         第5期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 第5期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  146.     End Sub

  147.     Private Sub 甲方條件下拉清單讀取()

  148.         SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()

  149.     End Sub

  150.     Private Sub 合約請款單_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  151.         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  152.         工程款1_nud.Value = 30 : 工程款2_nud.Value = 40 : 工程款3_nud.Value = 20 : 工程款4_nud.Value = 5 : 工程款5_nud.Value = 5 : 視窗2_pl.Visible = False : 報告移交單_ch.Enabled = False

  153.         SOP3_P.Image = My.Resources._1_124 : SOP4_P.Image = My.Resources._1_124 : SOP5_P.Image = My.Resources._1_124 : SOP6_P.Image = My.Resources._1_124 : SOP7_P.Image = My.Resources._1_124

  154.         SOP3_P.SizeMode = 4 : SOP4_P.SizeMode = 4 : SOP5_P.SizeMode = 4 : SOP6_P.SizeMode = 4 : SOP7_P.SizeMode = 4

  155.         甲方條件下拉清單讀取() : Set_合約清單() : 合約報價單_Siz()

  156.         報告移交_bt.Visible = False

  157.     End Sub

  158.     Private Sub 合約請款單_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed

  159. 

  160.     End Sub

  161.     Private Sub 合約報價單_Siz()

  162.         MyModule1.清單字體大小調整()

  163.         合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  164.         合約附錄_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)

  165.         請款單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)

  166.         第1期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)

  167.         第2期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)

  168.         第3期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)

  169.         第4期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)

  170.         第5期_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)

  171.     End Sub

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

  173.         timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True

  174.     End Sub

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

  176.         timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True

  177.     End Sub

  178.     Private Sub 請款計算()

  179.         BNUD1.Value = 金額1_und.Value : BNUD2.Value = 金額2_und.Value : BNUD3.Value = 金額3_und.Value : BNUD4.Value = 金額4_und.Value : BNUD5.Value = 金額5_und.Value

  180.         ANUD4.Value = 0 : For i As Integer = 0 To 請款單_dgv.Rows.Count - 1 : ANUD4.Value += 請款單_dgv("請款總額", i).Value.ToString : Next

  181.         ANUD1.Value = NUD3.Value : ANUD3.Value = NUD5.Value : ANUD2.Value = ANUD1.Value + ANUD3.Value : ANUD5.Value = ANUD2.Value - ANUD4.Value

  182.         '----收款累加---------------

  183.         Dim 已收款 As Long = 0

  184.         For DD As Integer = 0 To 1

  185.             For i As Integer = 0 To 請款單_dgv.Rows.Count - 1 : 已收款 += 請款單_dgv("請款總額", i).Value : Next

  186.             If 已收款 = 0 Then : Else

  187.                 If 已收款 = BNUD1.Value Then : BNUD1.Value = 0 : Exit For : ElseIf 已收款 < BNUD1.Value Then : BNUD1.Value = BNUD1.Value - 已收款 : Exit For

  188.                 ElseIf 已收款 > BNUD1.Value Then : 已收款 -= BNUD1.Value : BNUD1.Value = 0 : End If

  189.                 If 已收款 = BNUD2.Value Then : BNUD2.Value = 0 : Exit For : ElseIf 已收款 < BNUD2.Value Then : BNUD2.Value = BNUD2.Value - 已收款 : Exit For

  190.                 ElseIf 已收款 > BNUD2.Value Then : 已收款 -= BNUD2.Value : BNUD2.Value = 0 : End If

  191.                 If 已收款 = BNUD3.Value Then : BNUD3.Value = 0 : Exit For : ElseIf 已收款 < BNUD3.Value Then : BNUD3.Value = BNUD3.Value - 已收款 : Exit For

  192.                 ElseIf 已收款 > BNUD3.Value Then : 已收款 -= BNUD3.Value : BNUD3.Value = 0 : End If

  193.                 If 已收款 = BNUD4.Value Then : BNUD4.Value = 0 : Exit For : ElseIf 已收款 < BNUD4.Value Then : BNUD4.Value = BNUD4.Value - 已收款 : Exit For

  194.                 ElseIf 已收款 > BNUD4.Value Then : 已收款 -= BNUD4.Value : BNUD4.Value = 0 : End If

  195.                 If 已收款 = BNUD5.Value Then : BNUD5.Value = 0 : Exit For : ElseIf 已收款 < BNUD5.Value Then : BNUD5.Value = BNUD5.Value - 已收款 : Exit For

  196.                 ElseIf 已收款 > BNUD5.Value Then : BNUD5.Value = 0 : End If

  197.             End If

  198.         Next

  199.         'My.Resources._1_123 綠色  My.Resources._1_124 紅色  My.Resources._1_125 橘色

  200.         If 工程款1_nud.Value > 0 And BNUD1.Value > 0 Then : SOP3_P.Image = My.Resources._1_125 : ElseIf 工程款1_nud.Value > 0 And BNUD1.Value = 0 Then : SOP3_P.Image = My.Resources._1_123

  201.         ElseIf 工程款1_nud.Value = 0 And BNUD1.Value = 0 Then : SOP3_P.Image = My.Resources._1_124 : End If : SOP3_P.SizeMode = 4

  202.         If 工程款2_nud.Value > 0 And BNUD2.Value > 0 Then : SOP4_P.Image = My.Resources._1_125 : ElseIf 工程款2_nud.Value > 0 And BNUD2.Value = 0 Then : SOP4_P.Image = My.Resources._1_123

  203.         ElseIf 工程款2_nud.Value = 0 And BNUD2.Value = 0 Then : SOP4_P.Image = My.Resources._1_124 : End If : SOP4_P.SizeMode = 4

  204.         If 工程款3_nud.Value > 0 And BNUD3.Value > 0 Then : SOP5_P.Image = My.Resources._1_125 : ElseIf 工程款3_nud.Value > 0 And BNUD3.Value = 0 Then : SOP5_P.Image = My.Resources._1_123

  205.         ElseIf 工程款3_nud.Value = 0 And BNUD3.Value = 0 Then : SOP5_P.Image = My.Resources._1_124 : End If : SOP5_P.SizeMode = 4

  206.         If 工程款4_nud.Value > 0 And BNUD4.Value > 0 Then : SOP6_P.Image = My.Resources._1_125 : ElseIf 工程款4_nud.Value > 0 And BNUD4.Value = 0 Then : SOP6_P.Image = My.Resources._1_123

  207.         ElseIf 工程款4_nud.Value = 0 And BNUD4.Value = 0 Then : SOP6_P.Image = My.Resources._1_124 : End If : SOP6_P.SizeMode = 4

  208.         If 工程款5_nud.Value > 0 And BNUD5.Value > 0 Then : SOP7_P.Image = My.Resources._1_125 : ElseIf 工程款5_nud.Value > 0 And BNUD5.Value = 0 Then : SOP7_P.Image = My.Resources._1_123

  209.         ElseIf 工程款5_nud.Value = 0 And BNUD5.Value = 0 Then : SOP7_P.Image = My.Resources._1_124 : End If : SOP7_P.SizeMode = 4

  210. 

  211.         PA = 合約編號_tb.Text : PA1 = ANUD3.Value : PA2 = ANUD2.Value : PA3 = ANUD4.Value : PA4 = ANUD5.Value : PA5 = BNUD1.Value : PA6 = BNUD2.Value

  212.         PA7 = BNUD3.Value : PA8 = BNUD4.Value : PA9 = BNUD5.Value : SQL_控制表_請款修改()

  213.     End Sub

  214.     Private Sub 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick

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

  216.             請款單號_tb.Text = "" : 請款期數_cb.Text = "" : 比例_nud.Value = 0 : 稅金_nud.Value = 0 : 請款金額_nud.Value = 0 : 請款總額_nud.Value = 0 : 付款期限_cb.Text = ""

  217.             報告移交計算()

  218. 

  219.             If 放大 = True Then : 縮放2_bt.PerformClick() : End If : 合約編號_tb.Text = 合約_dgv("合約編號", e.RowIndex).Value.ToString : PA = 合約編號_tb.Text : Set_合約報價總表()

  220.             If 報價總表_dgv.Rows.Count > 0 Then

  221.                 For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1

  222.                     If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 10% Tax" Then : 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. "

  223.                     ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 11% Tax" Then : 稅額顯示_lb.Text = "PPN 11%稅額 = Rp. "

  224.                     ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 5% Tax" Then : 稅額顯示_lb.Text = "PPN 5%稅額 = Rp. "

  225.                     ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 0% Tax" Then : 稅額顯示_lb.Text = "PPN 0%稅額 = Rp. "

  226.                     End If

  227.                     If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "總計 Grand Total" Then : NUD3.Value = 報價總表_dgv.Rows(i).Cells("AMOUNT (RP)").Value : End If

  228.                 Next

  229.             Else : 稅額顯示_lb.Text = "PPN 5%稅額 = Rp. " : End If

  230. 

  231.             B09_tb.Text = 合約_dgv("客戶地址", e.RowIndex).Value.ToString() : B24_tb.Text = "" : B25_tb.Text = "" : B26_tb.Text = ""

  232.             If 合約_dgv("驗收完成日期", e.RowIndex).Value.ToString() <> "" Then

  233.                 DTP1.Value = 合約_dgv("驗收完成日期", e.RowIndex).Value.ToString() : B44_tb.Text = 合約_dgv.Rows(e.RowIndex).Cells("保固期限").Value.ToString

  234.                 Dim 保固日 As String = Strings.Format(DTP1.Value.AddMonths(CInt(合約_dgv.Rows(e.RowIndex).Cells("保固期限").Value.ToString)))

  235.                 B24_tb.Text = Strings.Right(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 2)

  236.                 B26_tb.Text = Strings.Left(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 4)

  237.                 If Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "01" Then : B25_tb.Text = "Jan"

  238.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "02" Then : B25_tb.Text = "Feb"

  239.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "03" Then : B25_tb.Text = "Ber"

  240.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "04" Then : B25_tb.Text = "Apr"

  241.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "05" Then : B25_tb.Text = "Mun"

  242.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "06" Then : B25_tb.Text = "Jun"

  243.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "07" Then : B25_tb.Text = "Jul"

  244.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "08" Then : B25_tb.Text = "Agu"

  245.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "09" Then : B25_tb.Text = "Sep"

  246.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "10" Then : B25_tb.Text = "Okt"

  247.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "11" Then : B25_tb.Text = "Nov"

  248.                 ElseIf Strings.Mid(Strings.Format(合約_dgv("驗收完成日期", e.RowIndex).Value.ToString()), 6, 2) = "12" Then : B25_tb.Text = "Des" : End If

  249.                 B27_tb.Text = Strings.Right(保固日, 2) : B29_tb.Text = Strings.Left(保固日, 4)

  250.                 If Strings.Mid(保固日, 6, 2) = "01" Then : B28_tb.Text = "Jan" : ElseIf Strings.Mid(保固日, 6, 2) = "02" Then : B28_tb.Text = "Feb"

  251.                 ElseIf Strings.Mid(保固日, 6, 2) = "03" Then : B28_tb.Text = "Ber" : ElseIf Strings.Mid(保固日, 6, 2) = "04" Then : B28_tb.Text = "Apr"

  252.                 ElseIf Strings.Mid(保固日, 6, 2) = "05" Then : B28_tb.Text = "Mun" : ElseIf Strings.Mid(保固日, 6, 2) = "06" Then : B28_tb.Text = "Jun"

  253.                 ElseIf Strings.Mid(保固日, 6, 2) = "07" Then : B28_tb.Text = "Jul" : ElseIf Strings.Mid(保固日, 6, 2) = "08" Then : B28_tb.Text = "Agu"

  254.                 ElseIf Strings.Mid(保固日, 6, 2) = "09" Then : B28_tb.Text = "Sep" : ElseIf Strings.Mid(保固日, 6, 2) = "10" Then : B28_tb.Text = "Okt"

  255.                 ElseIf Strings.Mid(保固日, 6, 2) = "11" Then : B28_tb.Text = "Nov" : ElseIf Strings.Mid(保固日, 6, 2) = "12" Then : B28_tb.Text = "Des" : End If

  256.             End If

  257.             甲方_tb.Text = 合約_dgv("約號甲方", e.RowIndex).Value.ToString

  258.             客戶名稱_tb.Text = 合約_dgv("客戶名稱", e.RowIndex).Value.ToString : 工程名稱_英_tb.Text = 合約_dgv("工程名稱_英", e.RowIndex).Value.ToString

  259.             工程名稱_中_tb.Text = 合約_dgv("工程名稱_中", e.RowIndex).Value.ToString : 工程款1_nud.Value = 合約_dgv("第一期比例", e.RowIndex).Value

  260.             工程款2_nud.Value = 合約_dgv("第二期比例", e.RowIndex).Value : 工程款3_nud.Value = 合約_dgv("第三期比例", e.RowIndex).Value

  261.             工程款4_nud.Value = 合約_dgv("第四期比例", e.RowIndex).Value : 工程款5_nud.Value = 合約_dgv("第五期比例", e.RowIndex).Value

  262.             CH2.Checked = True : NUD3.Value = 合約_dgv("工程總價", e.RowIndex).Value

  263.             NUD3.Value = 合約_dgv("工程總價", e.RowIndex).Value : NUD6.Value = 0

  264.             PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()

  265. 

  266.             Set_附錄清單()

  267.             If 合約附錄_dgv.Rows.Count > 0 Then

  268.                 NUD4.Value = 合約附錄_dgv("原金額", 0).Value : NUD5.Value = 合約附錄_dgv("追加減", 0).Value : 附錄編號_tb.Text = 合約附錄_dgv("附錄編號", 0).Value.ToString

  269.             Else : NUD4.Value = 0 : NUD5.Value = 0 : 附錄編號_tb.Text = "" : End If

  270.             Set_請款清單() : 請款計算() : NUD3.Value += 1 : NUD3.Value -= 1

  271.         End If

  272.     End Sub

  273.     Private Sub 合約附錄_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約附錄_dgv.CellClick

  274.         NUD4.Value = 合約附錄_dgv("原金額", e.RowIndex).Value : NUD5.Value = 合約附錄_dgv("追加減", e.RowIndex).Value

  275.         附錄編號_tb.Text = 合約附錄_dgv("附錄編號", e.RowIndex).Value.ToString : 請款計算()

  276.     End Sub

  277.     Private Sub 請款單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請款單_dgv.CellClick

  278.         請款單號_tb.Text = 請款單_dgv("請款編號", e.RowIndex).Value.ToString : 請款期數_cb.Text = 請款單_dgv("期數", e.RowIndex).Value.ToString

  279.         請款內容_tb.Text = 請款單_dgv("請款內容", e.RowIndex).Value.ToString : 比例_nud.Value = 請款單_dgv("比例", e.RowIndex).Value

  280.         請款金額_nud.Value = 請款單_dgv("請款金額", e.RowIndex).Value : 稅金_nud.Value = 請款單_dgv("稅金", e.RowIndex).Value

  281.         付款期限_cb.Text = 請款單_dgv("付款期限", e.RowIndex).Value.ToString : 申請日期_dtp.Value = 請款單_dgv("申請時間", e.RowIndex).Value

  282.         其他意見_tb.Text = 請款單_dgv("審批意見", e.RowIndex).Value.ToString : 請款總額_nud.Value = 請款單_dgv("請款總額", e.RowIndex).Value

  283.         報告移交計算()

  284.     End Sub

  285.     Private Sub 第1期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第1期_dgv.CellEnter

  286.         If Not IsNumeric(第1期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then

  287.             If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Field input must be numeric!!") : End If

  288.             第1期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第1期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  289.         Else

  290.             Dim nn As Integer

  291.             For i As Integer = 0 To 第1期_dgv.Rows.Count - 1 : nn += 第1期_dgv.Rows(i).Cells("比例").Value : Next

  292.             If nn > 工程款1_nud.Value Then

  293.                 Dim SS As String

  294.                 If 系統語言 = "繁體中文" Then : SS = "第一期的細項比例不可大於 " : Else : SS = "The proportion of the details of the first phase cannot be greater than " : End If

  295.                 MsgBox(SS & Strings.Format(工程款1_nud.Value, "#,##0.00") & " % !!")

  296.                 第1期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第1期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  297.             Else

  298.                 For i As Integer = 0 To 第1期_dgv.Rows.Count - 1

  299.                     第1期_dgv.Rows(i).Cells("金額").Value = 第1期_dgv.Rows(i).Cells("比例").Value * 金額1_und.Value / 工程款1_nud.Value

  300.                 Next i

  301.             End If

  302.         End If

  303.     End Sub

  304.     Private Sub 第2期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第2期_dgv.CellEnter

  305.         If Not IsNumeric(第2期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then

  306.             If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Field input must be numeric!!") : End If

  307.             第2期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第2期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  308.         Else

  309.             Dim nn As Integer

  310.             For i As Integer = 0 To 第2期_dgv.Rows.Count - 1 : nn += 第2期_dgv.Rows(i).Cells("比例").Value : Next

  311.             If nn > 工程款2_nud.Value Then

  312.                 Dim SS As String

  313.                 If 系統語言 = "繁體中文" Then : SS = "第二期的細項比例不可大於 " : Else : SS = "The proportion of the details of the second phase cannot be greater than " : End If

  314.                 MsgBox(SS & Strings.Format(工程款2_nud.Value, "#,##0.00") & " % !!")

  315.                 第2期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第2期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  316.             Else

  317.                 For i As Integer = 0 To 第2期_dgv.Rows.Count - 1

  318.                     第2期_dgv.Rows(i).Cells("金額").Value = 第2期_dgv.Rows(i).Cells("比例").Value * 金額2_und.Value / 工程款2_nud.Value

  319.                 Next i

  320.             End If

  321.         End If

  322.     End Sub

  323.     Private Sub 第3期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第3期_dgv.CellEnter

  324.         If Not IsNumeric(第3期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then

  325.             If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Field input must be numeric!!") : End If

  326.             第3期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第3期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  327.         Else

  328.             Dim nn As Integer

  329.             For i As Integer = 0 To 第3期_dgv.Rows.Count - 1 : nn += 第3期_dgv.Rows(i).Cells("比例").Value : Next

  330.             If nn > 工程款3_nud.Value Then

  331.                 Dim SS As String

  332.                 If 系統語言 = "繁體中文" Then : SS = "第三期的細項比例不可大於 " : Else : SS = "The proportion of the details of the third period cannot be greater than " : End If

  333.                 MsgBox(SS & Strings.Format(工程款3_nud.Value, "#,##0.00") & " % !!")

  334.                 第3期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第3期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  335.             Else

  336.                 For i As Integer = 0 To 第3期_dgv.Rows.Count - 1

  337.                     第3期_dgv.Rows(i).Cells("金額").Value = 第3期_dgv.Rows(i).Cells("比例").Value * 金額3_und.Value / 工程款3_nud.Value

  338.                 Next i

  339.             End If

  340.         End If

  341.     End Sub

  342.     Private Sub 第4期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第4期_dgv.CellEnter

  343.         If Not IsNumeric(第4期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then

  344.             If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Field input must be numeric!!") : End If

  345.             第4期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第4期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  346.         Else

  347.             Dim nn As Integer

  348.             For i As Integer = 0 To 第4期_dgv.Rows.Count - 1 : nn += 第4期_dgv.Rows(i).Cells("比例").Value : Next

  349.             If nn > 工程款4_nud.Value Then

  350.                 Dim SS As String

  351.                 If 系統語言 = "繁體中文" Then : SS = "第四期的細項比例不可大於 " : Else : SS = "The proportion of the details of the fourth phase cannot be greater than " : End If

  352.                 MsgBox(SS & Strings.Format(工程款4_nud.Value, "#,##0.00") & " % !!")

  353.                 第4期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第4期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  354.             Else

  355.                 For i As Integer = 0 To 第4期_dgv.Rows.Count - 1

  356.                     第4期_dgv.Rows(i).Cells("金額").Value = 第4期_dgv.Rows(i).Cells("比例").Value * 金額4_und.Value / 工程款4_nud.Value

  357.                 Next i

  358.             End If

  359.         End If

  360.     End Sub

  361.     Private Sub 第5期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第5期_dgv.CellEnter

  362.         If Not IsNumeric(第5期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then

  363.             If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Field input must be numeric!!") : End If

  364.             第5期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第5期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  365.         Else

  366.             Dim nn As Integer

  367.             For i As Integer = 0 To 第5期_dgv.Rows.Count - 1 : nn += 第5期_dgv.Rows(i).Cells("比例").Value : Next

  368.             If nn > 工程款5_nud.Value Then

  369.                 Dim SS As String

  370.                 If 系統語言 = "繁體中文" Then : SS = "第五期的細項比例不可大於 " : Else : SS = "The proportion of the details of the fifth period cannot be greater than " : End If

  371.                 MsgBox(SS & Strings.Format(工程款5_nud.Value, "#,##0.00") & " % !!")

  372.                 第5期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第5期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"

  373.             Else

  374.                 For i As Integer = 0 To 第5期_dgv.Rows.Count - 1

  375.                     第5期_dgv.Rows(i).Cells("金額").Value = 第5期_dgv.Rows(i).Cells("比例").Value * 金額5_und.Value / 工程款5_nud.Value

  376.                 Next i

  377.             End If

  378.         End If

  379.     End Sub

  380.     Private Sub 第1期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第1期_dgv.CellClick

  381.         If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第1期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If

  382.     End Sub

  383.     Private Sub 第2期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第2期_dgv.CellClick

  384.         If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第2期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If

  385.     End Sub

  386.     Private Sub 第3期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第3期_dgv.CellClick

  387.         If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第3期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If

  388.     End Sub

  389.     Private Sub 第4期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第4期_dgv.CellClick

  390.         If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第4期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If

  391.     End Sub

  392.     Private Sub 第5期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第5期_dgv.CellClick

  393.         If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第5期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Strings.Format(Val(明細選項_bt.Text), "#,##0") : End If

  394.     End Sub

  395.     Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged

  396.         Set_合約清單()

  397.     End Sub

  398.     Private Sub 工程期1_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程期1_ch.SelectedIndexChanged

  399.         Set_合約清單()

  400.     End Sub

  401.     Private Sub NUD3_ValueChanged(sender As Object, e As EventArgs) Handles NUD3.ValueChanged

  402.         If CH2.Checked = True Then

  403.             If 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 110 * 10

  404.             ElseIf 稅額顯示_lb.Text = "PPN 11%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 111 * 11

  405.             ElseIf 稅額顯示_lb.Text = "PPN 5%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 105 * 5

  406.             ElseIf 稅額顯示_lb.Text = "PPN 0%稅額 = Rp. " Then : NUD2.Value = 0

  407.             End If

  408.             NUD1.Value = NUD3.Value - NUD2.Value

  409.             金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value

  410.             金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value

  411.             金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value

  412.             金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

  413.         End If

  414.     End Sub

  415.     Private Sub NUD1_ValueChanged(sender As Object, e As EventArgs) Handles NUD1.ValueChanged

  416.         If CH1.Checked = True Then

  417.             NUD2.Value = NUD1.Value / 100 * 10 : NUD3.Value = NUD1.Value + NUD2.Value

  418. 

  419.             金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value

  420.             金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value

  421.             金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value

  422.             金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

  423.         End If

  424.     End Sub

  425.     Private Sub CH1_CheckedChanged(sender As Object, e As EventArgs) Handles CH1.Click

  426.         CH1.Checked = True : CH2.Checked = False : NUD1.Enabled = True : NUD3.Enabled = False

  427.     End Sub

  428.     Private Sub CH2_CheckedChanged(sender As Object, e As EventArgs) Handles CH2.Click

  429.         CH1.Checked = False : CH2.Checked = True : NUD1.Enabled = False : NUD3.Enabled = True

  430.     End Sub

  431.     Private Sub 工程款1_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款1_nud.ValueChanged

  432.         工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value

  433.         金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

  434.     End Sub

  435.     Private Sub 工程款2_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款2_nud.ValueChanged

  436.         工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value

  437.         金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

  438.     End Sub

  439.     Private Sub 工程款3_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款3_nud.ValueChanged

  440.         工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value

  441.         金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

  442.     End Sub

  443.     Private Sub 工程款4_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款4_nud.ValueChanged

  444.         工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value

  445.         金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

  446.     End Sub

  447.     Private Sub 工程款5_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款5_nud.ValueChanged

  448.         工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value

  449.         金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value : 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

  450.     End Sub

  451.     Private Sub NUD4_ValueChanged(sender As Object, e As EventArgs) Handles NUD4.ValueChanged

  452.         NUD6.Value = NUD4.Value + NUD5.Value

  453.     End Sub

  454.     Private Sub NUD5_ValueChanged(sender As Object, e As EventArgs) Handles NUD5.ValueChanged

  455.         NUD6.Value = NUD4.Value + NUD5.Value

  456.     End Sub

  457.     Private Sub 比例_nud_ValueChanged(sender As Object, e As EventArgs) Handles 比例_nud.ValueChanged

  458.         請款金額_nud.Value = NUD1.Value / 100 * 比例_nud.Value

  459.     End Sub

  460.     Private Sub 稅金_nud_ValueChanged(sender As Object, e As EventArgs) Handles 稅金_nud.ValueChanged

  461.         請款總額_nud.Value = 請款金額_nud.Value / 100 * 稅金_nud.Value + 請款金額_nud.Value

  462.     End Sub

  463.     Private Sub 請款金額_nud_ValueChanged(sender As Object, e As EventArgs) Handles 請款金額_nud.ValueChanged

  464.         If 請款金額_nud.Value / NUD1.Value * 100 > 100 Then : 比例_nud.Value = 100 : Else : 比例_nud.Value = 請款金額_nud.Value / NUD1.Value * 100 : End If

  465.         請款總額_nud.Value = 請款金額_nud.Value / 100 * 稅金_nud.Value + 請款金額_nud.Value

  466.     End Sub

  467.     Private Sub 請款總額_nud_ValueChanged(sender As Object, e As EventArgs) Handles 請款總額_nud.ValueChanged

  468.         請款金額_nud.Value = 請款總額_nud.Value / (100 + 稅金_nud.Value) * 100

  469.     End Sub

  470.     Private Sub 請款期數_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 請款期數_cb.SelectedIndexChanged

  471.         If 請款期數_cb.Text = "" Then : 比例_nud.Value = 0

  472.         ElseIf 請款期數_cb.Text = "一" Then

  473.             比例_nud.Value = 工程款1_nud.Value : 請款內容_tb.Text = "Prepayments  預付款" : 主頁明細_ch.Checked = False : 報告移交單_ch.Checked = False

  474.         ElseIf 請款期數_cb.Text = "二" Then

  475.             比例_nud.Value = 工程款2_nud.Value : 請款內容_tb.Text = "Material Cost Application  材料到貨款" : 主頁明細_ch.Checked = False : 報告移交單_ch.Checked = False

  476.         ElseIf 請款期數_cb.Text = "三" Then

  477.             比例_nud.Value = 工程款3_nud.Value : 請款內容_tb.Text = "Installation Fee Application  施工請款 " : 主頁明細_ch.Checked = False : 報告移交單_ch.Checked = False

  478.         ElseIf 請款期數_cb.Text = "四" Then

  479.             比例_nud.Value = 工程款4_nud.Value : 請款內容_tb.Text = "Final Acceptance  驗收款 " : 主頁明細_ch.Checked = True : 報告移交單_ch.Checked = True

  480.         ElseIf 請款期數_cb.Text = "五" Then

  481.             比例_nud.Value = 工程款5_nud.Value : 請款內容_tb.Text = "Assure  保留款 " : 主頁明細_ch.Checked = False : 報告移交單_ch.Checked = True

  482.         End If

  483.     End Sub

  484.     Private Sub 新增資料_bt_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click

  485.         If 合約編號_tb.Text = "" Then

  486.             If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成明細!!") : Else : MsgBox("Not enough information to generate details!!") : End If : Else

  487.             If 工程款6_nud.Value <> 100 Then

  488.                 If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Project appraisal is not equal to 100%!!!") : End If : Else

  489.                 PA = 合約編號_tb.Text : 合約明細存檔()

  490.                 Dim SS As String

  491.                 If 系統語言 = "繁體中文" Then : SS = "合約工期款項細分不可大於10筆!!" : Else : SS = "The subdivision of the contract duration payment cannot be greater than 10!!" : End If

  492.                 If TabControl2.SelectedIndex = 0 Then

  493.                     If 第1期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "1" : PA2 = 第1期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If

  494.                 ElseIf TabControl2.SelectedIndex = 1 Then

  495.                     If 第2期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "2" : PA2 = 第2期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If

  496.                 ElseIf TabControl2.SelectedIndex = 2 Then

  497.                     If 第3期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "3" : PA2 = 第3期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If

  498.                 ElseIf TabControl2.SelectedIndex = 3 Then

  499.                     If 第4期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "4" : PA2 = 第4期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If

  500.                 ElseIf TabControl2.SelectedIndex = 4 Then

  501.                     If 第5期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "5" : PA2 = 第5期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If

  502.                 End If

  503.                 PA = 合約編號_tb.Text

  504.                 PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5() : MsgBox("新增完成!!")

  505.             End If

  506.         End If

  507.     End Sub

  508.     Private Sub 刪除資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除資料_bt.Click

  509.         If 合約編號_tb.Text = "" Or 明細選項_bt.Text = "" Then

  510.             If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成明細!!") : Else : MsgBox("Not enough information to generate details!!") : End If : Else

  511.             If 工程款6_nud.Value <> 100 Then

  512.                 If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Project appraisal is not equal to 100%!!!") : End If : Else

  513.                 PA = 合約編號_tb.Text

  514.                 If TabControl2.SelectedIndex = 0 Then : PA1 = "1" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()

  515.                 ElseIf TabControl2.SelectedIndex = 1 Then : PA1 = "2" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()

  516.                 ElseIf TabControl2.SelectedIndex = 2 Then : PA1 = "3" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()

  517.                 ElseIf TabControl2.SelectedIndex = 3 Then : PA1 = "4" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()

  518.                 ElseIf TabControl2.SelectedIndex = 4 Then : PA1 = "5" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()

  519.                 End If

  520.                 PA = 合約編號_tb.Text

  521.                 PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()

  522.                 If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Delete complete!!") : End If

  523.             End If

  524.         End If

  525.     End Sub

  526.     Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click

  527.         合約明細存檔() : If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Arsip selesai!!") : End If

  528.     End Sub

  529.     Private Sub 合約明細存檔()

  530.         For i As Integer = 0 To 第1期_dgv.Rows.Count - 1

  531.             PA1 = "1" : PA2 = 第1期_dgv.Rows(i).Cells("細項").Value : PA3 = 第1期_dgv.Rows(i).Cells("內容").Value

  532.             NU1 = 第1期_dgv.Rows(i).Cells("比例").Value : NU2 = 第1期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()

  533.         Next

  534.         For i As Integer = 0 To 第2期_dgv.Rows.Count - 1

  535.             PA1 = "2" : PA2 = 第2期_dgv.Rows(i).Cells("細項").Value : PA3 = 第2期_dgv.Rows(i).Cells("內容").Value

  536.             NU1 = 第2期_dgv.Rows(i).Cells("比例").Value : NU2 = 第2期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()

  537.         Next

  538.         For i As Integer = 0 To 第3期_dgv.Rows.Count - 1

  539.             PA1 = "3" : PA2 = 第3期_dgv.Rows(i).Cells("細項").Value : PA3 = 第3期_dgv.Rows(i).Cells("內容").Value

  540.             NU1 = 第3期_dgv.Rows(i).Cells("比例").Value : NU2 = 第3期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()

  541.         Next

  542.         For i As Integer = 0 To 第4期_dgv.Rows.Count - 1

  543.             PA1 = "4" : PA2 = 第4期_dgv.Rows(i).Cells("細項").Value : PA3 = 第4期_dgv.Rows(i).Cells("內容").Value

  544.             NU1 = 第4期_dgv.Rows(i).Cells("比例").Value : NU2 = 第4期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()

  545.         Next

  546.         For i As Integer = 0 To 第5期_dgv.Rows.Count - 1

  547.             PA1 = "5" : PA2 = 第5期_dgv.Rows(i).Cells("細項").Value : PA3 = 第5期_dgv.Rows(i).Cells("內容").Value

  548.             NU1 = 第5期_dgv.Rows(i).Cells("比例").Value : NU2 = 第5期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()

  549.         Next

  550.     End Sub

  551.     Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click

  552.         PA = 關鍵字搜尋_tb.Text : Set_合約清單()

  553.     End Sub

  554.     Private Sub 開新的請款單_bt_Click(sender As Object, e As EventArgs) Handles 開新的請款單_bt.Click

  555.         If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇合約!!") : Else : MsgBox("Please select a contract first!!") : End If : Else

  556.             SQL_請款單_最後一筆資料()

  557.             If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("請款編號").ToString, 9)) : Else : EDR = 0 : End If

  558.             conn.Close() : EDR += 1

  559.             If EDR < 10 Then : ESTR = "HP" & "00000000" & EDR

  560.             ElseIf EDR > 9 And EDR < 100 Then : ESTR = "HP" & "0000000" & EDR

  561.             ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "HP" & "000000" & EDR

  562.             ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "HP" & "00000" & EDR

  563.             ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "HP" & "0000" & EDR

  564.             ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "HP" & "000" & EDR

  565.             ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "HP" & "00" & EDR

  566.             ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "HP" & "0" & EDR

  567.             ElseIf EDR > 99999999 Then : ESTR = "HP" & EDR : End If

  568.             請款單號_tb.Text = ESTR : 請款期數_cb.Text = "" : 比例_nud.Value = 0 : 稅金_nud.Value = 11

  569.             付款期限_cb.Text = "" : 申請日期_dtp.Value = Today()

  570.         End If

  571.     End Sub

  572.     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click

  573.         If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇合約!!") : Else : MsgBox("Please select a contract first!!") : End If : Else

  574.             If 請款單號_tb.Text = "" Then

  575.                 If 系統語言 = "繁體中文" Then : MsgBox("請先按開新請款單或是選擇舊請款單!!") : Else : MsgBox("Please click to open a new invoice or select an old one!!") : End If : Else

  576.                 If 請款期數_cb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇請款期數!!") : Else : MsgBox("Please select the payment period first!!") : End If : Else

  577.                     If 請款金額_nud.Value = 0 Then : If 系統語言 = "繁體中文" Then : MsgBox("請款金額不可為零!!") : Else : MsgBox("The amount requested cannot be zero!!") : End If : Else

  578.                         If 付款期限_cb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有指定付款期限!!") : Else : MsgBox("No payment deadline specified!!") : End If : Else

  579.                             PA = 合約編號_tb.Text : PA1 = 請款單號_tb.Text : PA2 = 請款期數_cb.Text : PA3 = 請款內容_tb.Text : PA4 = 請款金額_nud.Value : PA5 = 稅金_nud.Value

  580.                             PA6 = 付款期限_cb.Text : PA7 = Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd") : PA8 = 其他意見_tb.Text : PA9 = 請款總額_nud.Value : PA10 = 比例_nud.Value

  581.                             SQL_請款單_最後一筆資料1()

  582.                             If dr.Read() Then : SQL_請款單_修改()

  583.                             Else

  584.                                 If 請款金額_nud.Value > ANUD5.Value Then

  585.                                     If 系統語言 = "繁體中文" Then : MsgBox("請款單大於剩餘款，無法新增請款單!!")

  586.                                     Else : MsgBox("The payment request is larger than the remaining amount, and the payment request cannot be added!!") : End If : Else

  587.                                     SQL_請款單_新增()

  588.                                 End If

  589.                             End If : Set_請款清單() : 請款計算() : If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Archive complete!!") : End If

  590.                         End If

  591.                     End If

  592.                 End If

  593.             End If

  594.         End If

  595.     End Sub

  596.     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click

  597.         If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇合約!!") : Else : MsgBox("Please select a contract first!!") : End If : Else

  598.             If 請款單號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇請款單!!") : Else : MsgBox("Please select the invoice first!!") : End If : Else

  599.                 PA1 = 請款單號_tb.Text : SQL_請款單_刪除() : Set_請款清單() : 請款計算()

  600.                 If 系統語言 = "繁體中文" Then : MsgBox("合約請款單刪除完成!!") : Else : MsgBox("Contract Requisition Deletion Completed!!") : End If

  601.             End If

  602.         End If

  603.     End Sub

  604.     Private Sub 報告移交()

  605.         B02_tb.Text = Strings.Right(Strings.Format(Today(), "yyyy/MM/dd"), 2) : B04_tb.Text = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 4)

  606.         If Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "01" Then : B03_tb.Text = "Jan"

  607.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "02" Then : B03_tb.Text = "Feb"

  608.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "03" Then : B03_tb.Text = "Ber"

  609.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "04" Then : B03_tb.Text = "Apr"

  610.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "05" Then : B03_tb.Text = "Mun"

  611.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "06" Then : B03_tb.Text = "Jun"

  612.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "07" Then : B03_tb.Text = "Jul"

  613.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "08" Then : B03_tb.Text = "Agu"

  614.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "09" Then : B03_tb.Text = "Sep"

  615.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "10" Then : B03_tb.Text = "Okt"

  616.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "11" Then : B03_tb.Text = "Nov"

  617.         ElseIf Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) = "12" Then : B03_tb.Text = "Des" : End If

  618.         B36_tb.Text = B02_tb.Text : B37_tb.Text = B03_tb.Text : B38_tb.Text = B04_tb.Text

  619.         B07_tb.Text = 客戶名稱_tb.Text : B30_tb.Text = 客戶名稱_tb.Text : B42_tb.Text = 客戶名稱_tb.Text : B22_tb.Text = 合約編號_tb.Text : B23_tb.Text = 工程名稱_英_tb.Text

  620.         If Strings.Left(合約編號_tb.Text, 2) = "HX" Then : B12_tb.Text = "PT HONG XHE INDUSTRIAL" : B43_tb.Text = "PT HONG XHE INDUSTRIAL"

  621.         Else : B12_tb.Text = "PT PUNCAK GEMILANG SEMESTA" : B43_tb.Text = "PT PUNCAK GEMILANG SEMESTA" : End If

  622.     End Sub

  623.     Private Sub 報告移交計算()

  624.         If 請款期數_cb.Text = "四" Then

  625.             Dim SS As Integer = 0

  626.             For i As Integer = 0 To 請款單_dgv.Rows.Count - 1 : If 請款單_dgv("期數", i).Value.ToString() <> "五" Then : SS += 請款單_dgv("比例", i).Value : End If : Next

  627.             B32_tb.Text = "Pihak kesatu (I) telah memeriksa hasil pekerjaan Pihak kedua (II)  yang telah selesai dikerjakan sesuai dengan kontrak."

  628.             A01_lb.Text = "BERITA ACARA SERAH TERIMA PERTAMA" : B31_tb.Text = "Penagihan Invoice Pelunasan " & SS & "%" : 報告移交()

  629.             B19_tb.Visible = True : B27_tb.Visible = True : B28_tb.Visible = True : B29_tb.Visible = True : B33_tb.Visible = True

  630.             B44_tb.Visible = True : B45_tb.Visible = True : B46_tb.Visible = True : 報告移交單_ch.Enabled = True

  631.         ElseIf 請款期數_cb.Text = "五" Then

  632.             B32_tb.Text = "Pihak kesatu (I) telah memeriksa hasil pekerjaan Pihak kedua (II)  yang telah selesai dikerjakan dan dinyatakan 100% selesai dalam masa garansi."

  633.             A01_lb.Text = "BERITA ACARA SERAH TERIMA KEDUA" : B31_tb.Text = "Penagihan Invoice Pelunasan 100%" : 報告移交()

  634.             B19_tb.Visible = False : B27_tb.Visible = False : B28_tb.Visible = False : B29_tb.Visible = False : B33_tb.Visible = False

  635.             B44_tb.Visible = False : B45_tb.Visible = False : B46_tb.Visible = False : 報告移交單_ch.Enabled = True

  636.         Else

  637.             視窗2_pl.Visible = False : 報告移交單_ch.Enabled = False : 報告移交單_ch.Checked = False

  638.         End If

  639.     End Sub

  640.     Private Sub 報告移交_bt_Click(sender As Object, e As EventArgs) Handles 報告移交_bt.Click

  641.         If 視窗2_pl.Visible = False Then : 視窗2_pl.BringToFront()

  642.             If 請款期數_cb.Text = "四" Then : 視窗2_pl.Location = New System.Drawing.Point(261, 19) : 視窗2_pl.Visible = True : 報告移交計算()

  643.             ElseIf 請款期數_cb.Text = "五" Then : 視窗2_pl.Location = New System.Drawing.Point(261, 19) : 視窗2_pl.Visible = True : 報告移交計算()

  644.             Else : 視窗2_pl.Visible = False : 報告移交單_ch.Checked = False

  645.                 If 系統語言 = "繁體中文" Then : MsgBox("所選請款期數，無法列印報告移交單!!")

  646.                 Else : MsgBox("The selected collection period cannot print the report handover slip!!") : End If : End If

  647.         Else : 視窗2_pl.Visible = False : End If

  648.     End Sub

  649.     Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click

  650.         If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else

  651.             視窗2_pl.Visible = False : End If

  652.     End Sub

  653.     Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown

  654.         If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If

  655.     End Sub

  656.     Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove

  657.         If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If

  658.     End Sub

  659.     Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click

  660.         Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height

  661.         If 放大 = True Then

  662.             合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False : 合約_dgv.Columns("工程名稱_中").Visible = False

  663.         Else

  664.             合約_dgv.Size = New System.Drawing.Point(NX + 400, NY) : 放大 = True : 合約_dgv.Columns("工程名稱_中").Visible = True

  665.         End If

  666.     End Sub

  667.     Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp

  668.         drag = False

  669.     End Sub

  670.     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click

  671.         If 合約編號_tb.Text = "" Then

  672.             If 系統語言 = "繁體中文" Then : MsgBox("請先選擇合約!!") : Else : MsgBox("Please select a contract first!!") : End If : Else

  673.             If 請款單號_tb.Text = "" Then

  674.                 If 系統語言 = "繁體中文" Then : MsgBox("請先選擇請款單!!") : Else : MsgBox("Please select the invoice first!!") : End If : Else

  675.                 If 請款期數_cb.Text = "" Then

  676.                     If 系統語言 = "繁體中文" Then : MsgBox("沒有請款期數，無法列印!!") : Else : MsgBox("There is no demand period and cannot be printed!!") : End If : Else

  677.                     If 請款金額_nud.Value = 0 Then

  678.                         If 系統語言 = "繁體中文" Then : MsgBox("請款金額為零，無法列印!!") : Else : MsgBox("The amount requested is zero and cannot be printed!!") : End If : Else

  679.                         If 付款期限_cb.Text = "" Then

  680.                             If 系統語言 = "繁體中文" Then : MsgBox("沒有指定付款期限，無法列印!!") : Else : MsgBox("No payment deadline specified, cannot print!!") : End If : Else

  681.                             Try

  682.                                 xlApp = CType(CreateObject("Excel.Application"), Application)

  683.                                 xlApp.Visible = True

  684.                                 xlApp.DisplayAlerts = True

  685.                                 xlApp.Application.WindowState = xlMaximized

  686.                                 xlBook = xlApp.Workbooks.Add

  687.                                 '----------------------------------------------------------------------------------------------------------------------

  688.                                 If 報告移交_bt.Visible = True Then

  689.                                     If 報告移交單_ch.Checked = True Then

  690.                                         xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "報告移交單"

  691.                                         xlBook.Activate() : xlSheet.Activate()

  692. 

  693.                                         xlSheet.Cells(2, 1) = A01_lb.Text : xlSheet.Cells(4, 1) = B01_tb.Text & " " & B02_tb.Text & " " & B03_tb.Text & " " & B04_tb.Text & " " & B05_tb.Text

  694.                                         xlSheet.Cells(6, 1) = B06_tb.Text : xlSheet.Cells(6, 3) = B07_tb.Text : xlSheet.Cells(7, 1) = B08_tb.Text : xlSheet.Cells(7, 3) = B09_tb.Text

  695.                                         xlSheet.Cells(9, 1) = B10_tb.Text : xlSheet.Cells(11, 1) = B11_tb.Text : xlSheet.Cells(11, 3) = B12_tb.Text : xlSheet.Cells(12, 1) = B13_tb.Text

  696.                                         xlSheet.Cells(12, 3) = B14_tb.Text : xlSheet.Cells(14, 1) = B15_tb.Text

  697.                                         xlSheet.Cells(16, 2) = B16_tb.Text : xlSheet.Cells(16, 3) = "':" : xlSheet.Cells(16, 4) = B22_tb.Text

  698.                                         xlSheet.Cells(17, 2) = B17_tb.Text : xlSheet.Cells(17, 3) = "':" : xlSheet.Cells(17, 4) = B23_tb.Text

  699.                                         xlSheet.Cells(18, 2) = B18_tb.Text : xlSheet.Cells(18, 3) = "':" : xlSheet.Cells(18, 4) = B24_tb.Text & " " & B25_tb.Text & " " & B26_tb.Text

  700.                                         Dim NX As Integer = 19

  701.                                         If 請款期數_cb.Text = "四" Then

  702.                                             xlSheet.Cells(NX, 2) = B19_tb.Text : xlSheet.Cells(NX, 3) = "':" : xlSheet.Cells(NX, 4) = B27_tb.Text & " " & B28_tb.Text & " " & B29_tb.Text : NX += 1

  703.                                             xlSheet.Cells(NX, 2) = B20_tb.Text : xlSheet.Cells(NX, 3) = "':" : xlSheet.Cells(NX, 4) = B30_tb.Text : NX += 1

  704.                                             xlSheet.Cells(NX, 2) = B21_tb.Text : xlSheet.Cells(NX, 3) = "':" : xlSheet.Cells(NX, 4) = B31_tb.Text : NX += 2

  705.                                             xlSheet.Cells(NX, 1) = B32_tb.Text : NX += 1

  706.                                             xlSheet.Cells(NX, 1) = B33_tb.Text + " " + B44_tb.Text + " " + B45_tb.Text + " " & B46_tb.Text : NX += 1

  707.                                             xlSheet.Cells(NX, 1) = B34_tb.Text : NX += 2

  708.                                             xlSheet.Cells(NX, 4) = B35_tb.Text : xlSheet.Cells(NX, 5) = B36_tb.Text & " " & B37_tb.Text & " " & B38_tb.Text : NX += 2

  709.                                             xlSheet.Cells(NX, 5) = B39_tb.Text : NX += 1

  710.                                             xlSheet.Cells(NX, 2) = B40_tb.Text : xlSheet.Cells(NX, 5) = B41_tb.Text : NX += 1

  711.                                             xlSheet.Cells(NX, 2) = B42_tb.Text : xlSheet.Cells(NX, 5) = B43_tb.Text

  712.                                         Else

  713.                                             xlSheet.Cells(NX, 2) = B20_tb.Text : xlSheet.Cells(NX, 3) = "':" : xlSheet.Cells(NX, 4) = B30_tb.Text : NX += 1

  714.                                             xlSheet.Cells(NX, 2) = B21_tb.Text : xlSheet.Cells(NX, 3) = "':" : xlSheet.Cells(NX, 4) = B31_tb.Text : NX += 2

  715.                                             xlSheet.Cells(NX, 1) = B32_tb.Text : NX += 1 : xlSheet.Cells(NX, 1) = B34_tb.Text : NX += 2

  716.                                             xlSheet.Cells(NX, 4) = B35_tb.Text : xlSheet.Cells(NX, 5) = B36_tb.Text & " " & B37_tb.Text & " " & B38_tb.Text : NX += 2

  717.                                             xlSheet.Cells(NX, 5) = B39_tb.Text : NX += 1

  718.                                             xlSheet.Cells(NX, 2) = B40_tb.Text : xlSheet.Cells(NX, 5) = B41_tb.Text : NX += 1

  719.                                             xlSheet.Cells(NX, 2) = B42_tb.Text : xlSheet.Cells(NX, 5) = B43_tb.Text

  720.                                         End If

  721.                                         AB(xlApp, xlSheet)

  722.                                         If Strings.Left(合約編號_tb.Text, 2) = "GCM" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If : FF(xlApp, xlSheet)

  723.                                     End If

  724.                                 End If

  725. 

  726.                                 '----------------------------------------------------------------------------------------------------------------------

  727.                                 If 請款單_ch.Checked = True Then

  728.                                     xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "請款單"

  729.                                     xlBook.Activate() : xlSheet.Activate()

  730. 

  731.                                     xlSheet.Cells(2, 1) = "請款明細表  Rincian Tagihan" : xlSheet.Cells(3, 1) = "TO : " & 客戶名稱_tb.Text

  732.                                     xlSheet.Cells(3, 9) = "日期 : " & Strings.Format(Today(), "yyyy/MM/dd")

  733.                                     xlSheet.Cells(4, 1) = "工程項目 : " & 工程名稱_中_tb.Text & vbCrLf & 工程名稱_英_tb.Text : xlSheet.Cells(4, 9) = "期別 : 第" & 請款期數_cb.Text & "期"

  734.                                     xlSheet.Cells(5, 1) = "(未稅)本合約工程款 Total Kontrak Sebelum Ppn Rp : "

  735.                                     If 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then : xlSheet.Cells(5, 5) = 金額6_und.Value / 110 * 100

  736.                                     ElseIf 稅額顯示_lb.Text = "PPN 11%稅額 = Rp. " Then : xlSheet.Cells(5, 5) = 金額6_und.Value / 111 * 100

  737.                                     ElseIf 稅額顯示_lb.Text = "PPN 5%稅額 = Rp. " Then : xlSheet.Cells(5, 5) = 金額6_und.Value / 105 * 100

  738.                                     ElseIf 稅額顯示_lb.Text = "PPN 0%稅額 = Rp. " Then : xlSheet.Cells(5, 5) = 金額6_und.Value

  739.                                     End If

  740.                                     xlSheet.Cells(7, 1) = "No." : xlSheet.Cells(7, 2) = "Description" : xlSheet.Cells(7, 3) = "Rate" : xlSheet.Cells(7, 4) = "Total Amount" & vbCrLf & "總金額"

  741.                                     xlSheet.Cells(7, 5) = "This Period" & vbCrLf & "本期請款" : xlSheet.Cells(7, 7) = "Accumulation" & vbCrLf & "累計請款" : xlSheet.Cells(7, 9) = "Remarks"

  742. 

  743.                                     If 新版_ch.Checked = False Then

  744.                                         xlSheet.Cells(8, 1) = "1" : xlSheet.Cells(8, 2) = "Prepayments" & vbCrLf & "(預付款)" : xlSheet.Cells(8, 3) = 工程款1_nud.Value / 100

  745.                                         If 請款期數_cb.Text = "一" Then : xlSheet.Cells(8, 5) = "=C8" : Else : xlSheet.Cells(8, 5) = "0" : End If

  746.                                         xlSheet.Cells(9, 1) = "2" : xlSheet.Cells(9, 2) = "Material Cost Application" & vbCrLf & "(材料到貨款)" : xlSheet.Cells(9, 3) = 工程款2_nud.Value / 100

  747.                                         If 請款期數_cb.Text = "二" Then : xlSheet.Cells(9, 5) = "=C9" : Else : xlSheet.Cells(9, 5) = "0" : End If

  748.                                         xlSheet.Cells(10, 1) = "3" : xlSheet.Cells(10, 2) = "Installation Fee Application" & vbCrLf & "(施工請款)" : xlSheet.Cells(10, 3) = 工程款3_nud.Value / 100

  749.                                         If 請款期數_cb.Text = "三" Then : xlSheet.Cells(10, 5) = "=C10" : Else : xlSheet.Cells(10, 5) = "0" : End If

  750.                                         xlSheet.Cells(11, 1) = "4" : xlSheet.Cells(11, 2) = "Final Acceptance" & vbCrLf & "(驗收款)" : xlSheet.Cells(11, 3) = 工程款4_nud.Value / 100

  751.                                         If 請款期數_cb.Text = "四" Then : xlSheet.Cells(11, 5) = "=C11" : Else : xlSheet.Cells(11, 5) = "0" : End If

  752.                                         xlSheet.Cells(12, 1) = "5" : xlSheet.Cells(12, 2) = "Assure" & vbCrLf & "(保留款)" : xlSheet.Cells(12, 3) = 工程款5_nud.Value / 100

  753.                                         If 請款期數_cb.Text = "五" Then : xlSheet.Cells(12, 5) = "=C12" : Else : xlSheet.Cells(12, 5) = "0" : End If

  754. 

  755.                                         For i As Integer = 8 To 12

  756.                                             If i = 11 Then : xlSheet.Cells(i, 4) = "=C" & i & "*$E$5 + " & ANUD3.Value : Else : xlSheet.Cells(i, 4) = "=C" & i & "*$E$5" : End If

  757.                                             xlSheet.Cells(i, 6) = "=IF(E" & i & "=0,0,D" & i & ")" : If i = 8 Then : xlSheet.Cells(i, 7) = "=IF(E" & i & "=0,C" & i & ",0)"

  758.                                             Else : xlSheet.Cells(i, 7) = "=IF(G" & i - 1 & "=0,0,IF(E" & i & "=0,C" & i & ",0))" : End If

  759.                                             xlSheet.Cells(i, 8) = "=G" & i & "*$E$5"

  760.                                         Next

  761. 

  762.                                         xlSheet.Cells(13, 1) = "Total" : xlSheet.Cells(13, 4) = "=D12+D11+D10+D9+D8" : xlSheet.Cells(13, 5) = "=E8+E9+E10+E11+E12"

  763.                                         xlSheet.Cells(13, 6) = "=F8+F9+F10+F11+F12" : xlSheet.Cells(13, 7) = "=G8+G9+G10+G11+G12" : xlSheet.Cells(13, 8) = "=H8+H9+H10+H11+H12"

  764.                                         xlSheet.Cells(15, 2) = "本期估驗 Nominal Tagihan" & vbCrLf & "(未稅Belum Termasuk Pajak)" : xlSheet.Cells(15, 3) = "' : "

  765.                                         xlSheet.Cells(15, 4) = "=F13" : xlSheet.Cells(16, 2) = "PPN " & 稅金_nud.Value & "%" : xlSheet.Cells(16, 3) = "' : "

  766.                                         xlSheet.Cells(16, 4) = 請款總額_nud.Value - 請款金額_nud.Value : xlSheet.Cells(17, 4) = "=D15+D16"

  767.                                         xlSheet.Cells(18, 1) = "本期請款金額  Total Tagihan : Rp" : xlSheet.Cells(18, 3) = "' : " : xlSheet.Cells(18, 4) = "=D17"

  768.                                         xlSheet.Cells(18, 7) = "元整" : xlSheet.Cells(18, 8) = "(含稅) Termasuk Ppn" : xlSheet.Cells(21, 2) = 客戶名稱_tb.Text : xlSheet.Cells(22, 2) = "驗收代表人"

  769.                                         BB(xlApp, xlSheet)

  770.                                     Else

  771.                                         xlSheet.Cells(8, 1) = "1" : xlSheet.Cells(8, 2) = "Prepayments" & vbCrLf & "(預付款)" : xlSheet.Cells(8, 3) = 工程款1_nud.Value / 100

  772.                                         If 請款期數_cb.Text = "一" Then : xlSheet.Cells(8, 5) = "=C8" : Else : xlSheet.Cells(8, 5) = "0" : End If

  773.                                         xlSheet.Cells(9, 1) = "2" : xlSheet.Cells(9, 2) = "Material Cost Application" & vbCrLf & "(材料到貨款)" : xlSheet.Cells(9, 3) = 工程款2_nud.Value / 100

  774.                                         If 請款期數_cb.Text = "二" Then : xlSheet.Cells(9, 5) = "=C9" : Else : xlSheet.Cells(9, 5) = "0" : End If

  775.                                         xlSheet.Cells(10, 1) = "3" : xlSheet.Cells(10, 2) = "Installation Fee & Final Application" & vbCrLf & "(施工.驗收款)"

  776.                                         xlSheet.Cells(10, 3) = 工程款4_nud.Value / 100 + 工程款3_nud.Value / 100

  777.                                         If 請款期數_cb.Text = "三" Or 請款期數_cb.Text = "四" Then : xlSheet.Cells(10, 5) = "=C10" : Else : xlSheet.Cells(10, 5) = "0" : End If

  778.                                         xlSheet.Cells(11, 1) = "4" : xlSheet.Cells(11, 2) = "Assure" & vbCrLf & "(保留款)" : xlSheet.Cells(11, 3) = 工程款5_nud.Value / 100

  779.                                         If 請款期數_cb.Text = "五" Then : xlSheet.Cells(11, 5) = "=C11" : Else : xlSheet.Cells(11, 5) = "0" : End If

  780. 

  781.                                         For i As Integer = 8 To 11

  782.                                             If i = 10 Then : xlSheet.Cells(i, 4) = "=C" & i & "*$E$5 + " & ANUD3.Value : Else : xlSheet.Cells(i, 4) = "=C" & i & "*$E$5" : End If

  783.                                             xlSheet.Cells(i, 6) = "=IF(E" & i & "=0,0,D" & i & ")" : If i = 8 Then : xlSheet.Cells(i, 7) = "=IF(E" & i & "=0,C" & i & ",0)"

  784.                                             Else : xlSheet.Cells(i, 7) = "=IF(G" & i - 1 & "=0,0,IF(E" & i & "=0,C" & i & ",0))" : End If

  785.                                             xlSheet.Cells(i, 8) = "=G" & i & "*$E$5"

  786.                                         Next

  787. 

  788.                                         xlSheet.Cells(12, 1) = "Total" : xlSheet.Cells(12, 4) = "=D11+D10+D9+D8" : xlSheet.Cells(12, 5) = "=E8+E9+E10+E11"

  789.                                         xlSheet.Cells(12, 6) = "=F8+F9+F10+F11" : xlSheet.Cells(12, 7) = "=G8+G9+G10+G11" : xlSheet.Cells(12, 8) = "=H8+H9+H10+H11"

  790.                                         xlSheet.Cells(14, 2) = "本期估驗 Nominal Tagihan" & vbCrLf & "(未稅Belum Termasuk Pajak)" : xlSheet.Cells(14, 3) = "' : "

  791.                                         xlSheet.Cells(14, 4) = "=F12" : xlSheet.Cells(16, 2) = "PPN " & 稅金_nud.Value & "%" : xlSheet.Cells(15, 3) = "' : "

  792.                                         xlSheet.Cells(15, 4) = 請款總額_nud.Value - 請款金額_nud.Value : xlSheet.Cells(16, 4) = "=D14+D15"

  793.                                         xlSheet.Cells(17, 1) = "本期請款金額  Total Tagihan : Rp" : xlSheet.Cells(17, 3) = "' : " : xlSheet.Cells(17, 4) = "=D16"

  794.                                         xlSheet.Cells(17, 7) = "元整" : xlSheet.Cells(17, 8) = "(含稅) Termasuk Ppn" : xlSheet.Cells(20, 2) = 客戶名稱_tb.Text : xlSheet.Cells(21, 2) = "驗收代表人"

  795.                                         BB2(xlApp, xlSheet)

  796.                                     End If

  797.                                     If Strings.Left(合約編號_tb.Text, 2) = "GCM" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If : FF(xlApp, xlSheet)

  798.                                 End If

  799. 

  800.                                 '----------------------------------------------------------------------------------------------------------------------

  801.                                 If 主頁_ch.Checked = True Then

  802.                                     xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "主頁"

  803.                                     xlBook.Activate() : xlSheet.Activate()

  804. 

  805.                                     Dim BF As String

  806.                                     If Strings.Left(合約編號_tb.Text, 2) = "GCM" Then : BF = "G.C.M. Smart Enterprise LTD." & vbCrLf & "(工巧明智能企業有限公司)"

  807.                                     Else : BF = "PT.Indonesia Cemerlang System" & vbCrLf & "(輝煌系統有限公司)" : End If

  808.                                     Dim CF As String = ""

  809.                                     If 請款期數_cb.Text = "一" Then : CF = "第一次請款" & vbCrLf & "The First Installment of The Project Funds"

  810.                                     ElseIf 請款期數_cb.Text = "二" Then : CF = "第二次請款" & vbCrLf & "The Second Installment of The Project Funds"

  811.                                     ElseIf 請款期數_cb.Text = "三" Then : CF = "第三次請款" & vbCrLf & "The Third Installment of The Project Funds"

  812.                                     ElseIf 請款期數_cb.Text = "四" Then : CF = "第四次請款" & vbCrLf & "The Fourth Installment of The Project Funds"

  813.                                     ElseIf 請款期數_cb.Text = "五" Then : CF = "第五次請款" & vbCrLf & "The Fifth Installment of The Project Funds"

  814.                                     End If

  815.                                     xlSheet.Cells(2, 1) = "工程款撥付申請表"

  816.                                     xlSheet.Cells(3, 1) = "Form Request Pembayaran Proyek Pembangunan"

  817.                                     xlSheet.Cells(4, 1) = "客戶名稱 : " & vbCrLf & "Client's Name" : xlSheet.Cells(4, 2) = 客戶名稱_tb.Text

  818.                                     xlSheet.Cells(5, 1) = "工程名稱：" & vbCrLf & "Nama Proyek" : xlSheet.Cells(5, 2) = 工程名稱_中_tb.Text & vbCrLf & 工程名稱_英_tb.Text

  819.                                     xlSheet.Cells(6, 1) = "施工合同號：" & vbCrLf & "No. Kontrak Konstruksi" : xlSheet.Cells(6, 2) = 合約編號_tb.Text

  820.                                     xlSheet.Cells(7, 1) = "施工單位：" & vbCrLf & "Perusahaan Konstruksi" : xlSheet.Cells(7, 2) = BF

  821.                                     xlSheet.Cells(8, 1) = "付款專案：" & vbCrLf & "Proyek Pembayaran" : xlSheet.Cells(8, 2) = CF

  822.                                     xlSheet.Cells(8, 5) = "合同總額 (未稅)：" & vbCrLf & "Jumlah Total Kontrak"

  823.                                     If 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then

  824.                                         xlSheet.Cells(8, 6) = Strings.Format(ANUD2.Value / 1.1, "#,##0")

  825.                                     Else

  826.                                         xlSheet.Cells(8, 6) = Strings.Format(ANUD2.Value / 1.11, "#,##0")

  827.                                     End If

  828.                                     xlSheet.Cells(9, 1) = "請款單位：" & vbCrLf & "Departemen Pemohon" : xlSheet.Cells(9, 2) = BF

  829.                                     xlSheet.Cells(9, 5) = "要求付款日期：" & vbCrLf & "Permintaan Tanggal Pembayaran" : xlSheet.Cells(9, 6) = 付款期限_cb.Text

  830.                                     xlSheet.Cells(10, 1) = "本次請款金額 (未稅)：" & vbCrLf & "Total Tagihan" : xlSheet.Cells(10, 2) = Strings.Format(請款金額_nud.Value, "#,##0")

  831.                                     xlSheet.Cells(10, 5) = "累計已收金額 (未稅)：" & vbCrLf & "Akumulasi Biaya yang Diterima"

  832.                                     Dim 已請 As Long

  833.                                     For I As Integer = 0 To 請款單_dgv.Rows.Count - 1

  834.                                         If 請款期數_cb.Text = "一" Then

  835.                                             已請 = 0

  836.                                         ElseIf 請款期數_cb.Text = "二" Then

  837.                                             If 請款單_dgv.Rows(I).Cells("期數").Value.ToString = "一" Then

  838.                                                 已請 = 已請 + 請款單_dgv.Rows(I).Cells("請款金額").Value

  839.                                             End If

  840.                                         ElseIf 請款期數_cb.Text = "三" Then

  841.                                             If 請款單_dgv.Rows(I).Cells("期數").Value.ToString = "一" Or 請款單_dgv.Rows(I).Cells("期數").Value.ToString = "二" Then

  842.                                                 已請 = 已請 + 請款單_dgv.Rows(I).Cells("請款金額").Value

  843.                                             End If

  844.                                         ElseIf 請款期數_cb.Text = "四" Then

  845.                                             If 請款單_dgv.Rows(I).Cells("期數").Value.ToString = "一" Or 請款單_dgv.Rows(I).Cells("期數").Value.ToString = "二" Or

  846.                                            請款單_dgv.Rows(I).Cells("期數").Value.ToString = "三" Then

  847.                                                 已請 = 已請 + 請款單_dgv.Rows(I).Cells("請款金額").Value

  848.                                             End If

  849.                                         ElseIf 請款期數_cb.Text = "五" Then

  850.                                             If 請款單_dgv.Rows(I).Cells("期數").Value.ToString = "一" Or 請款單_dgv.Rows(I).Cells("期數").Value.ToString = "二" Or

  851.                                            請款單_dgv.Rows(I).Cells("期數").Value.ToString = "三" Or 請款單_dgv.Rows(I).Cells("期數").Value.ToString = "四" Then

  852.                                                 已請 = 已請 + 請款單_dgv.Rows(I).Cells("請款金額").Value

  853.                                             End If

  854.                                         End If

  855.                                     Next

  856.                                     xlSheet.Cells(10, 6) = Strings.Format(已請, "#,##0")

  857. 

  858.                                     xlSheet.Cells(11, 1) = "本次請款內容：" & vbCrLf & "Deskripsi Tagihan" : xlSheet.Cells(11, 2) = 請款內容_tb.Text

  859.                                     If 主頁明細_ch.Checked = True Then

  860.                                         xlSheet.Cells(14, 2) = "合約金額(Contract Amount) : "

  861.                                         If 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then

  862.                                             xlSheet.Cells(14, 4) = Strings.Format(ANUD1.Value / 1.1, "#,##0")

  863.                                         Else

  864.                                             xlSheet.Cells(14, 4) = Strings.Format(ANUD1.Value / 1.11, "#,##0")

  865.                                         End If : xlSheet.Cells(14, 5) = " RP (未稅)"

  866.                                         xlSheet.Cells(15, 2) = "結算金額(Settlement Amount) : "

  867.                                         If 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then

  868.                                             xlSheet.Cells(15, 4) = Strings.Format(ANUD2.Value / 1.1, "#,##0")

  869.                                         Else

  870.                                             xlSheet.Cells(15, 4) = Strings.Format(ANUD2.Value / 1.11, "#,##0")

  871.                                         End If : xlSheet.Cells(15, 5) = " RP (未稅)"

  872.                                         xlSheet.Cells(16, 2) = "實際追加減(Add To) : "

  873.                                         If 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then

  874.                                             xlSheet.Cells(16, 4) = Strings.Format(ANUD3.Value / 1.1, "#,##0")

  875.                                         Else

  876.                                             xlSheet.Cells(16, 4) = Strings.Format(ANUD3.Value / 1.11, "#,##0")

  877.                                         End If : xlSheet.Cells(16, 5) = " RP (未稅)"

  878.                                         xlSheet.Cells(17, 2) = "已請款(Requested) : " : xlSheet.Cells(17, 4) = Strings.Format(已請, "#,##0") : xlSheet.Cells(17, 5) = " RP (未稅)"

  879.                                         xlSheet.Cells(18, 2) = "剩餘款(Remaining) : " : xlSheet.Cells(18, 4) = "=D15-D17" : xlSheet.Cells(18, 5) = " RP (未稅)"

  880.                                         xlSheet.Cells(19, 2) = "其中："

  881.                                         If 請款期數_cb.Text = "四" Then : xlSheet.Cells(20, 2) = "驗收款(Final acceptance) : " : Else : xlSheet.Cells(20, 2) = "未收款(Unpaid) : " : End If

  882.                                         xlSheet.Cells(20, 4) = "=D15-D17-D21" : xlSheet.Cells(20, 5) = " RP (未稅)"

  883.                                         xlSheet.Cells(21, 2) = "保留款(Assure) : " : xlSheet.Cells(21, 4) = "= D15 * " & 工程款5_nud.Value & "/ 100" : xlSheet.Cells(21, 5) = " RP (未稅)"

  884.                                     End If

  885.                                     xlSheet.Cells(23, 3) = "申請人 Pemohon：" : xlSheet.Cells(23, 4) = BF

  886.                                     xlSheet.Cells(25, 3) = "申請時間 Waktu：" : xlSheet.Cells(25, 4) = Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd")

  887.                                     xlSheet.Cells(26, 1) = "籌建辦審批意見：" & vbCrLf & "Komentar Penyetuju Kantor Konstruksi Umum" : xlSheet.Cells(26, 2) = 其他意見_tb.Text

  888.                                     xlSheet.Cells(36, 3) = "審核人 Disetujui oleh：" : xlSheet.Cells(37, 3) = "審核時間 Waktu："

  889.                                     xlSheet.Cells(39, 1) = "本表一式三份：施工單位、籌建辦、財務單位各一份。"

  890.                                     xlSheet.Cells(40, 1) = "Form ini dirangkap 3 lembar: Perusahaan konstruksi, kantor konstruksi umum, departemen finance"

  891.                                     AA(xlApp, xlSheet)

  892.                                     If 甲方_tb.Text = "JCS" Then : JCS(xlApp, xlSheet) : ElseIf 甲方_tb.Text = "J2" Then : J2(xlApp, xlSheet) : Else

  893.                                         If Strings.Left(合約編號_tb.Text, 2) = "GCM" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If : FF(xlApp, xlSheet)

  894.                                     End If

  895.                                 End If

  896.                                 If 報告移交_bt.Visible = True Then

  897.                                     If 報告移交單_ch.Checked = True And 請款單_ch.Checked = True And 主頁_ch.Checked = True Then : xlApp.Sheets(4).Delete

  898.                                     ElseIf 報告移交單_ch.Checked = True And 請款單_ch.Checked = True And 主頁_ch.Checked = False Then : xlApp.Sheets(3).Delete

  899.                                     ElseIf 報告移交單_ch.Checked = True And 請款單_ch.Checked = False And 主頁_ch.Checked = True Then : xlApp.Sheets(3).Delete

  900.                                     ElseIf 報告移交單_ch.Checked = False And 請款單_ch.Checked = True And 主頁_ch.Checked = True Then : xlApp.Sheets(3).Delete

  901.                                     ElseIf 報告移交單_ch.Checked = True And 請款單_ch.Checked = False And 主頁_ch.Checked = False Then : xlApp.Sheets(2).Delete

  902.                                     ElseIf 報告移交單_ch.Checked = False And 請款單_ch.Checked = True And 主頁_ch.Checked = False Then : xlApp.Sheets(2).Delete

  903.                                     ElseIf 報告移交單_ch.Checked = False And 請款單_ch.Checked = False And 主頁_ch.Checked = True Then : xlApp.Sheets(2).Delete

  904.                                     End If

  905.                                 Else

  906.                                     If 報告移交單_ch.Checked = True And 請款單_ch.Checked = True And 主頁_ch.Checked = True Then : xlApp.Sheets(3).Delete

  907.                                     ElseIf 報告移交單_ch.Checked = True And 請款單_ch.Checked = True And 主頁_ch.Checked = False Then : xlApp.Sheets(2).Delete

  908.                                     ElseIf 報告移交單_ch.Checked = True And 請款單_ch.Checked = False And 主頁_ch.Checked = True Then : xlApp.Sheets(2).Delete

  909.                                     ElseIf 報告移交單_ch.Checked = False And 請款單_ch.Checked = True And 主頁_ch.Checked = True Then : xlApp.Sheets(2).Delete

  910.                                     ElseIf 報告移交單_ch.Checked = True And 請款單_ch.Checked = False And 主頁_ch.Checked = False Then : xlApp.Sheets(1).Delete

  911.                                     ElseIf 報告移交單_ch.Checked = False And 請款單_ch.Checked = True And 主頁_ch.Checked = False Then : xlApp.Sheets(1).Delete

  912.                                     ElseIf 報告移交單_ch.Checked = False And 請款單_ch.Checked = False And 主頁_ch.Checked = True Then : xlApp.Sheets(1).Delete

  913.                                     End If

  914.                                 End If

  915. 

  916.                                 xlSheet.PageSetup.PrintArea = ""

  917.                                 xlApp.Cells.Select()

  918.                                 xlApp.Application.WindowState = xlMinimized

  919.                                 If 系統語言 = "繁體中文" Then : MsgBox("列印完成!!") : Else : MsgBox("Printing is complete!!") : End If

  920.                             Catch ex As Exception

  921.                                 MsgBox(ex.Message)

  922.                             End Try

  923.                         End If

  924.                     End If

  925.                 End If

  926.             End If

  927.         End If

  928.     End Sub

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

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

  931.     End Function

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

  933.         xlSheet.Cells.Select()

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

  935.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  936.         xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95

  937.         xlSheet.Rows("2:3").Select

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

  939.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  940.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 30 : xlSheet.Columns("B:D").Select : myExcel.Selection.ColumnWidth = 15

  941.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 30 : xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 15

  942. 

  943.         xlSheet.Rows("4:7").Select : myExcel.Selection.RowHeight = 40

  944.         xlSheet.Range("B4:F4").Select()

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

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

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

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

  949.         xlSheet.Range("B5:F5").Select() : With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False

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

  951.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  953.         xlSheet.Range("B6:F6").Select()

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

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

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

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

  958.         xlSheet.Range("B7:F7").Select()

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

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

  961.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  963.         xlSheet.Range("A2:F2").Select()

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

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

  966.         xlSheet.Range("A3:F3").Select()

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

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

  969.         xlSheet.Rows("8:10").Select : myExcel.Selection.RowHeight = 40

  970.         xlSheet.Range("B8:D8").Select()

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

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

  973.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  975.         xlSheet.Range("B9:D9").Select()

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

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

  978.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  980.         xlSheet.Range("B10:D10").Select()

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

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

  983.         xlSheet.Range("F8:F10").Select()

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

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

  986.         xlSheet.Range("B11:F12").Select()

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

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

  989.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False

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

  991.         xlSheet.Range("A11:A25").Select()

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

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

  994.         xlSheet.Range("D24:F24").Select()

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

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

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

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

  999.         xlSheet.Rows("24:24").Select : myExcel.Selection.RowHeight = 13.5

  1000.         xlSheet.Range("C24").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.         xlSheet.Range("C25").Select()

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

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

  1006.         xlSheet.Range("D25").Select()

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

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

  1009.         xlSheet.Rows("26:26").Select : myExcel.Selection.RowHeight = 13.5

  1010.         xlSheet.Range("A26:A37").Select()

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

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

  1013.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  1015.         xlSheet.Range("A11:A25").Select()

  1016.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  1018.         xlSheet.Range("B26:F35").Select()

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

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

  1021.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

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

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

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

  1026.         xlSheet.Range("C37").Select()

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

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

  1029. 

  1030.         xlSheet.Range("A4:F10").Select()

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

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

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

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

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

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

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

  1038.         xlSheet.Range("B11:F25").Select()

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

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

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

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

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

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

  1045.         xlSheet.Range("A11:A25").Select()

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

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

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

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

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

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

  1052.         xlSheet.Range("A26:A37").Select()

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

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

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

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

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

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

  1059.         xlSheet.Range("B26:F37").Select()

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

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

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

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

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

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

  1066.         xlSheet.Range("A4:F37").Select()

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

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

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

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

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

  1072.         xlSheet.Range("A38:F41").Select()

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

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

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

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

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

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

  1079.         myExcel.ActiveWindow.DisplayGridlines = False

  1080.         xlSheet.Range("D23:F24").Select()

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

  1082.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.UnMerge

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

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

  1085.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  1087.         xlSheet.Range("D21").Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  1088.         xlSheet.Range("I6").Select()

  1089.     End Sub

  1090.     Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1091.         xlSheet.Cells.Select()

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

  1093.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1094.         xlSheet.Range("D15:F18").Select()

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

  1096.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1097.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 5 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 40

  1098.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 17

  1099.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 17

  1100.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 17

  1101.         xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 10

  1102.         xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95 : xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 30

  1103.         xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 50 : xlSheet.Rows("5:5").Select : myExcel.Selection.RowHeight = 25

  1104.         xlSheet.Rows("7:7").Select : myExcel.Selection.RowHeight = 40 : xlSheet.Rows("8:12").Select : myExcel.Selection.RowHeight = 30

  1105.         xlSheet.Rows("13:13").Select : myExcel.Selection.RowHeight = 30 : xlSheet.Rows("14:21").Select : myExcel.Selection.RowHeight = 30

  1106.         xlSheet.Rows("23:23").Select : myExcel.Selection.RowHeight = 120

  1107. 

  1108.         xlSheet.Range("A2:I2").Select()

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

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

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

  1112.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1113.         myExcel.Selection.Font.Underline = xlUnderlineStyleSingle

  1114.         xlSheet.Range("A3:G3").Select()

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

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

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

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

  1119.         xlSheet.Range("H3:I3").Select()

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

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

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

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

  1124.         xlSheet.Range("A4:G4").Select()

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

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

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

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

  1129.         With myExcel.Selection : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1130.             .ReadingOrder = xlContext : End With

  1131.         xlSheet.Range("H4:I4").Select()

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

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

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

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

  1136.         xlSheet.Range("A5:D5").Select()

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

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

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

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

  1141.         xlSheet.Range("E5:I5").Select()

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

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

  1144.         myExcel.Selection.NumberFormatLocal = "#,##0"

  1145.         xlSheet.Range("E7:F7").Select()

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

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

  1148.         xlSheet.Range("G7:H7").Select()

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

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

  1151.         xlSheet.Range("A7:I7").Select()

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

  1153.             .ShrinkToFit = False : .ReadingOrder = xlContext : End With

  1154.         xlSheet.Range("A8:A12").Select()

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

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

  1157.         xlSheet.Range("A8:B12").Select()

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

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

  1160.         xlSheet.Range("C8:C12").Select() : myExcel.Selection.Style = "Percent"

  1161.         xlSheet.Range("E8:E13").Select() : myExcel.Selection.Style = "Percent"

  1162.         xlSheet.Range("G8:G13").Select() : myExcel.Selection.Style = "Percent"

  1163.         xlSheet.Range("D8:D18").Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  1164.         xlSheet.Range("F8:F13").Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  1165.         xlSheet.Range("H8:H13").Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  1166.         xlSheet.Range("A13:C13").Select()

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

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

  1169.         xlSheet.Range("B15:B16").Select()

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

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

  1172.         xlSheet.Range("D15:E15").Select()

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

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

  1175.         xlSheet.Range("D16:E16").Select()

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

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

  1178.         xlSheet.Range("D17:E17").Select()

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

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

  1181.         xlSheet.Range("D18:F18").Select()

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

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

  1184.         xlSheet.Range("B21:D21").Select()

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

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

  1187.         xlSheet.Range("B22:D22").Select()

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

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

  1190. 

  1191.         xlSheet.Range("A3:I4").Select()

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

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

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

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

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

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

  1198.         xlSheet.Range("A5:I5").Select()

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

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

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

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

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

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

  1205.         xlSheet.Range("A7:I7").Select()

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

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

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

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

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

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

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

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

  1214.         xlSheet.Range("A8:I12").Select()

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

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

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

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

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

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

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

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

  1223.         xlSheet.Range("A13:I13").Select()

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

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

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

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

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

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

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

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

  1232.         xlSheet.Range("B16:E16").Select()

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

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

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

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

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

  1238.         xlSheet.Range("D18:F18").Select()

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

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

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

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

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

  1244. 

  1245.         xlSheet.Range("A14:I23").Select()

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

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

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

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

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

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

  1252.         xlSheet.Range("J16").Select() : myExcel.ActiveWindow.DisplayGridlines = False

  1253.         xlSheet.Range("C7:D12").Select() : With myExcel.Selection.Font : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : End With

  1254.         xlSheet.Range("D13").Select() : With myExcel.Selection.Font : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : End With

  1255.         xlSheet.Range("E7:F13").Select() : With myExcel.Selection.Font : .Color = -16776961 : .TintAndShade = 0 : End With

  1256.         xlSheet.Range("G7:H13").Select() : With myExcel.Selection.Font : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0 : End With

  1257.         xlSheet.Range("A7:I13").Select() : myExcel.Selection.Font.Bold = True

  1258.     End Sub

  1259.     Private Sub BB2(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1260.         xlSheet.Cells.Select()

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

  1262.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1263.         xlSheet.Range("D14:F17").Select()

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

  1265.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1266.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 5 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 40

  1267.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 17

  1268.         xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 17

  1269.         xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 6 : xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 17

  1270.         xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 10

  1271.         xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95 : xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 30

  1272.         xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 50 : xlSheet.Rows("5:5").Select : myExcel.Selection.RowHeight = 25

  1273.         xlSheet.Rows("7:7").Select : myExcel.Selection.RowHeight = 40 : xlSheet.Rows("8:11").Select : myExcel.Selection.RowHeight = 30

  1274.         xlSheet.Rows("12:12").Select : myExcel.Selection.RowHeight = 30 : xlSheet.Rows("13:20").Select : myExcel.Selection.RowHeight = 30

  1275.         xlSheet.Rows("22:22").Select : myExcel.Selection.RowHeight = 120

  1276. 

  1277.         xlSheet.Range("A2:I2").Select()

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

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

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

  1281.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1282.         myExcel.Selection.Font.Underline = xlUnderlineStyleSingle

  1283.         xlSheet.Range("A3:G3").Select()

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

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

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

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

  1288.         xlSheet.Range("H3:I3").Select()

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

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

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

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

  1293.         xlSheet.Range("A4:G4").Select()

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

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

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

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

  1298.         With myExcel.Selection : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False

  1299.             .ReadingOrder = xlContext : End With

  1300.         xlSheet.Range("H4:I4").Select()

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

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

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

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

  1305.         xlSheet.Range("A5:D5").Select()

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

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

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

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

  1310.         xlSheet.Range("E5:I5").Select()

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

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

  1313.         myExcel.Selection.NumberFormatLocal = "#,##0"

  1314.         xlSheet.Range("E7:F7").Select()

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

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

  1317.         xlSheet.Range("G7:H7").Select()

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

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

  1320.         xlSheet.Range("A7:I7").Select()

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

  1322.             .ShrinkToFit = False : .ReadingOrder = xlContext : End With

  1323.         xlSheet.Range("A8:A11").Select()

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

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

  1326.         xlSheet.Range("A8:B11").Select()

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

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

  1329.         xlSheet.Range("C8:C11").Select() : myExcel.Selection.Style = "Percent"

  1330.         xlSheet.Range("E8:E12").Select() : myExcel.Selection.Style = "Percent"

  1331.         xlSheet.Range("G8:G12").Select() : myExcel.Selection.Style = "Percent"

  1332.         xlSheet.Range("D8:D17").Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  1333.         xlSheet.Range("F8:F12").Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  1334.         xlSheet.Range("H8:H12").Select() : myExcel.Selection.NumberFormatLocal = "#,##0"

  1335.         xlSheet.Range("A12:C12").Select()

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

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

  1338.         xlSheet.Range("B14:B15").Select()

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

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

  1341.         xlSheet.Range("D14:E14").Select()

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

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

  1344.         xlSheet.Range("D15:E15").Select()

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

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

  1347.         xlSheet.Range("D16:E16").Select()

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

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

  1350.         xlSheet.Range("D17:F17").Select()

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

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

  1353.         xlSheet.Range("B20:D20").Select()

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

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

  1356.         xlSheet.Range("B21:D21").Select()

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

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

  1359. 

  1360.         xlSheet.Range("A3:I4").Select()

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

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

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

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

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

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

  1367.         xlSheet.Range("A5:I5").Select()

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

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

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

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

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

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

  1374.         xlSheet.Range("A7:I7").Select()

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

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

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

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

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

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

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

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

  1383.         xlSheet.Range("A8:I11").Select()

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

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

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

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

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

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

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

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

  1392.         xlSheet.Range("A12:I12").Select()

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

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

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

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

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

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

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

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

  1401.         xlSheet.Range("B15:E15").Select()

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

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

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

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

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

  1407.         xlSheet.Range("D17:F17").Select()

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

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

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

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

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

  1413. 

  1414.         xlSheet.Range("A13:I22").Select()

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

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

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

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

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

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

  1421.         xlSheet.Range("J16").Select() : myExcel.ActiveWindow.DisplayGridlines = False

  1422.         xlSheet.Range("C7:D11").Select() : With myExcel.Selection.Font : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : End With

  1423.         xlSheet.Range("D12").Select() : With myExcel.Selection.Font : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : End With

  1424.         xlSheet.Range("E7:F12").Select() : With myExcel.Selection.Font : .Color = -16776961 : .TintAndShade = 0 : End With

  1425.         xlSheet.Range("G7:H12").Select() : With myExcel.Selection.Font : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0 : End With

  1426.         xlSheet.Range("A7:I12").Select() : myExcel.Selection.Font.Bold = True

  1427.     End Sub

  1428.     Private Sub AB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1429.         Dim 位置 As String

  1430.         xlSheet.Cells.Select()

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

  1432.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1433.         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 5 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 30

  1434.         xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 3 : xlSheet.Columns("D:E").Select : myExcel.Selection.ColumnWidth = 40

  1435.         xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95

  1436.         xlSheet.Range("A2:E2").Select()

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

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

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

  1440.             .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

  1441.         myExcel.Selection.Font.Underline = xlUnderlineStyleSingle

  1442.         xlSheet.Range("A4:E4").Select()

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

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

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

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

  1447.         xlSheet.Range("A6:B6").Select()

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

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

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

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

  1452.         xlSheet.Range("C6:E6").Select()

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

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

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

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

  1457.         xlSheet.Range("A7:B7").Select()

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

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

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

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

  1462.         xlSheet.Rows("7:7").Select : myExcel.Selection.RowHeight = 30

  1463.         xlSheet.Range("C7:E7").Select()

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

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

  1466.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  1468.         xlSheet.Range("A9:E9").Select()

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

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

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

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

  1473.         xlSheet.Range("A6:B7").Select()

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

  1475.             .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : End With

  1476.         xlSheet.Range("A11:B11").Select()

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

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

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

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

  1481.         xlSheet.Range("A12:B12").Select()

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

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

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

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

  1486.         xlSheet.Range("C11:E11").Select()

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

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

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

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

  1491.         xlSheet.Rows("12:12").Select : myExcel.Selection.RowHeight = 30

  1492.         xlSheet.Range("C12:E12").Select()

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

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

  1495.         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  1497.         xlSheet.Range("A14:E14").Select()

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

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

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

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

  1502. 

  1503.         If 請款期數_cb.Text = "四" Then : 位置 = "D16:D21" : Else : 位置 = "D16:D20" : End If : xlSheet.Range(位置).Select()

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

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

  1506.         If 請款期數_cb.Text = "四" Then : 位置 = "C16:C21" : Else : 位置 = "C16:C20" : End If : xlSheet.Range(位置).Select()

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

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

  1509.         If 請款期數_cb.Text = "四" Then

  1510.             xlSheet.Rows("23:23").Select : myExcel.Selection.RowHeight = 30

  1511.             xlSheet.Range("A23:E23").Select()

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

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

  1514.             With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  1516.         Else : End If

  1517.         If 請款期數_cb.Text = "四" Then

  1518.             xlSheet.Rows("24:24").Select : myExcel.Selection.RowHeight = 30 : 位置 = "A24:E24" : xlSheet.Range(位置).Select()

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

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

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

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

  1523.         Else

  1524.             xlSheet.Rows("22:22").Select : myExcel.Selection.RowHeight = 30 : 位置 = "A22:E22" : xlSheet.Range(位置).Select()

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

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

  1527.             With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False

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

  1529.         End If

  1530.         If 請款期數_cb.Text = "四" Then : 位置 = "A25:E25" : Else : 位置 = "A23:E23" : End If : xlSheet.Range(位置).Select()

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

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

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

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

  1535. 

  1536.         If 請款期數_cb.Text = "四" Then : xlSheet.Range("D27").Select() : Else : xlSheet.Range("D25").Select() : End If

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

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

  1539.         If 請款期數_cb.Text = "四" Then : xlSheet.Range("E27").Select() : Else : xlSheet.Range("E25").Select() : End If

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

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

  1542.         If 請款期數_cb.Text = "四" Then : xlSheet.Range("E29:E31").Select() : Else : xlSheet.Range("E27:E29").Select() : End If

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

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

  1545.         If 請款期數_cb.Text = "四" Then : xlSheet.Range("B31:D31").Select() : Else : xlSheet.Range("B29:D29").Select() : End If

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

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

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

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

  1550.         If 請款期數_cb.Text = "四" Then : xlSheet.Range("B30").Select() : Else : xlSheet.Range("B28").Select() : End If

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

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

  1553.         If 請款期數_cb.Text = "四" Then : xlSheet.Rows("32:32").Select : Else : xlSheet.Rows("30:30").Select : End If : myExcel.Selection.RowHeight = 100

  1554.         myExcel.ActiveWindow.DisplayGridlines = False

  1555.     End Sub

  1556.     Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1557.         Clipboard.SetDataObject(PictureBox1.Image)

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

  1559.         myExcel.ActiveSheet.Pictures.Paste.Select

  1560.         myExcel.Selection.ShapeRange.Height = 93

  1561.         myExcel.Selection.ShapeRange.IncrementLeft(0)

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

  1563.     End Sub

  1564.     Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1565.         Clipboard.SetDataObject(PictureBox2.Image)

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

  1567.         myExcel.ActiveSheet.Pictures.Paste.Select

  1568.         myExcel.Selection.ShapeRange.Height = 93

  1569.         myExcel.Selection.ShapeRange.IncrementLeft(0)

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

  1571.     End Sub

  1572.     Private Sub JCS(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1573.         Clipboard.SetDataObject(JCS_PB.Image)

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

  1575.         myExcel.ActiveSheet.Pictures.Paste.Select

  1576.         myExcel.Selection.ShapeRange.Height = 93

  1577.         myExcel.Selection.ShapeRange.IncrementLeft(0)

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

  1579.     End Sub

  1580.     Private Sub J2(ByVal myExcel As Application, ByVal xlSheet As Worksheet)

  1581.         Clipboard.SetDataObject(J2_PB.Image)

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

  1583.         myExcel.ActiveSheet.Pictures.Paste.Select

  1584.         myExcel.Selection.ShapeRange.Height = 93

  1585.         myExcel.Selection.ShapeRange.IncrementLeft(0)

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

  1587.     End Sub

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

  1589.         myExcel.Application.PrintCommunication = False : With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "" : .PrintTitleColumns = "" : End With

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

  1591.         With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" : .CenterHeader = "" : .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""

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

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

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

  1595.             .PrintHeadings = False : .PrintGridlines = False : .CenterHorizontally = True : .CenterVertically = False : .Draft = False

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

  1597.             .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True

  1598.             .EvenPage.LeftHeader.Text = "" : .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = ""

  1599.             .EvenPage.CenterFooter.Text = "" : .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = ""

  1600.             .FirstPage.RightHeader.Text = "" : .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""

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

  1602.     End Sub

  1603. End Class