GF-ERP-SYS
/
GF00-ERP-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
8 Commits
1 Branch
Tree: c8b3d0a8a3
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'c8b3d0a8a3'
${ noResults }
GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/04.財務管理系統/財務_收支單一覽表.vb

財務_收支單一覽表.vb 120KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657 
  1. Option Strict Off

  2. Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle

  3. Imports Microsoft.Office.Interop.Excel.Constants

  4. Imports Microsoft.Office.Interop.Excel.XlBordersIndex

  5. Imports Microsoft.Office.Interop.Excel.XlLineStyle

  6. Imports Microsoft.Office.Interop.Excel.XlBorderWeight

  7. Imports Microsoft.Office.Interop.Excel.XlThemeFont

  8. Imports Microsoft.Office.Interop.Excel.XlThemeColor

  9. Imports Microsoft.Office.Interop.Excel.XlWindowState

  10. Imports Microsoft.Office.Interop.Excel

  11. Imports System.IO

  12. 

  13. Public Class 財務_收支單一覽表

  14.     ReadOnly ds, ds1, ds2, ds3, ds4, ds5 As New DataSet

  15.     Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer

  16.     Dim xlApp As Application

  17.     Dim xlBook As Workbook

  18.     Dim xlSheet As Worksheet

  19.     Dim boo As Boolean

  20.     Dim boo1 As Boolean

  21.     Private Sub Set_清單()

  22.         日期彙總_dgv.DataSource = Nothing : ds3.Clear()

  23.         日期彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  24.         日期彙總_dgv.ColumnHeadersHeight = 25

  25.         日期彙總_dgv.AllowUserToAddRows = False

  26.         日期彙總_dgv.RowTemplate.Height = 25

  27.         If 公司編號_cb.Text = "全部" Or 公司編號_cb.Text = "" Then : PA51 = "" : Else : PA51 = " AND (公司編號 LIKE N'" & 公司編號_cb.Text & "')" : End If

  28.         SQL_營運成本收支單一覽表_查詢清單純日期() : da.Fill(ds3) : 日期彙總_dgv.DataSource = ds3.Tables(0) : conn.Close()

  29.         單據彙總_dgv.Columns(0).FillWeight = 100

  30.     End Sub

  31.     Private Sub Set_清單1()

  32.         單據彙總_dgv.DataSource = Nothing : ds1.Clear()

  33.         單據彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  34.         單據彙總_dgv.ColumnHeadersHeight = 25

  35.         單據彙總_dgv.AllowUserToAddRows = False

  36.         If 公司編號_cb.Text = "全部" Or 公司編號_cb.Text = "" Then : PA51 = "" : Else : PA51 = " AND (公司編號 LIKE N'" & 公司編號_cb.Text & "')" : End If

  37.         SQL_營運成本收支單一覽表_查詢清單() : da.Fill(ds1) : 單據彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()

  38.         單據彙總_dgv.RowTemplate.Height = 25

  39.         單據彙總_dgv.Columns(0).FillWeight = 160 : 單據彙總_dgv.Columns(1).Visible = False : 單據彙總_dgv.Columns(2).FillWeight = 100 : 單據彙總_dgv.Columns(3).Visible = False

  40.         單據彙總_dgv.Columns(4).FillWeight = 100 : 單據彙總_dgv.Columns(5).Visible = False : 單據彙總_dgv.Columns(6).Visible = False

  41.     End Sub

  42.     Private Sub Set_清單2()

  43.         財務彙總_dgv.DataSource = Nothing : ds2.Clear()

  44.         財務彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  45.         財務彙總_dgv.ColumnHeadersHeight = 25

  46.         財務彙總_dgv.AllowUserToAddRows = False

  47.         財務彙總_dgv.RowTemplate.Height = 30

  48.         If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then

  49.             SQL2 = ""

  50.         ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then

  51.             SQL2 = " AND (公帳流水帳.含稅 = 1)"

  52.         ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then

  53.             SQL2 = " AND (公帳流水帳.含稅 = 0 OR 公帳流水帳.含稅 IS NULL)"

  54.         End If

  55.         If 公司編號_cb.Text = "全部" Or 公司編號_cb.Text = "" Then : PA51 = "" : Else : PA51 = " AND (公帳控制表.公司編號 LIKE N'" & 公司編號_cb.Text & "')" : End If

  56.         SQL_營運成本收支單一覽表_查詢清單2() : da.Fill(ds2) : 財務彙總_dgv.DataSource = ds2.Tables(0) : conn.Close()

  57.         財務彙總_dgv.Columns(0).Visible = False : 財務彙總_dgv.Columns(1).FillWeight = 140 : 財務彙總_dgv.Columns(2).FillWeight = 140 : 財務彙總_dgv.Columns(3).FillWeight = 140

  58.         財務彙總_dgv.Columns(4).FillWeight = 100 : 財務彙總_dgv.Columns(5).FillWeight = 100 : 財務彙總_dgv.Columns(6).FillWeight = 100 : 財務彙總_dgv.Columns(7).FillWeight = 100

  59.         財務彙總_dgv.Columns(8).FillWeight = 100 : 財務彙總_dgv.Columns(9).FillWeight = 100

  60.         財務彙總_dgv.Columns(4).Visible = False : 財務彙總_dgv.Columns(5).Visible = False

  61.         If 彙總匯率_ch.Checked = False Then

  62.             財務彙總_dgv.Columns(8).Visible = False : 財務彙總_dgv.Columns(9).Visible = False

  63.         Else

  64.             財務彙總_dgv.Columns(8).Visible = False : 財務彙總_dgv.Columns(9).Visible = False

  65.         End If

  66.         財務彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 財務彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 財務彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"

  67.         財務彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"

  68.         財務彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  69.         財務彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  70.         財務彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  71.         財務彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  72.         財務彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  73.         財務彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  74.         財務彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  75.         財務彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  76.         財務彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  77.         財務彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  78.         財務彙總_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  79.         財務彙總_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  80. 

  81.         財務彙總_dgv.Columns(0).ReadOnly = True : 財務彙總_dgv.Columns(1).ReadOnly = True : 財務彙總_dgv.Columns(2).ReadOnly = True : 財務彙總_dgv.Columns(3).ReadOnly = True

  82.         財務彙總_dgv.Columns(4).ReadOnly = True : 財務彙總_dgv.Columns(5).ReadOnly = True : 財務彙總_dgv.Columns(6).ReadOnly = True : 財務彙總_dgv.Columns(7).ReadOnly = True

  83.     End Sub

  84.     Private Sub Set_清單3()

  85.         財務彙總_天_dgv.DataSource = Nothing : ds4.Clear()

  86.         財務彙總_天_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  87.         財務彙總_天_dgv.ColumnHeadersHeight = 25

  88.         財務彙總_天_dgv.AllowUserToAddRows = False

  89.         財務彙總_天_dgv.RowTemplate.Height = 30

  90. 

  91.         If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then

  92.             SQL2 = ""

  93.         ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then

  94.             SQL2 = " AND (公帳流水帳.含稅 = 1)"

  95.         ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then

  96.             SQL2 = " AND (公帳流水帳.含稅 = 0 OR 公帳流水帳.含稅 IS NULL)"

  97.         End If

  98.         If 公司編號_cb.Text = "全部" Or 公司編號_cb.Text = "" Then : PA51 = "" : Else : PA51 = " AND (公帳控制表.公司編號 LIKE N'" & 公司編號_cb.Text & "')" : End If

  99.         SQL_營運成本收支單一覽表_查詢清單3() : da.Fill(ds4) : 財務彙總_天_dgv.DataSource = ds4.Tables(0) : conn.Close()

  100.         財務彙總_天_dgv.Columns(0).Visible = False : 財務彙總_天_dgv.Columns(1).FillWeight = 140 : 財務彙總_天_dgv.Columns(2).FillWeight = 140 : 財務彙總_天_dgv.Columns(3).FillWeight = 140

  101.         財務彙總_天_dgv.Columns(4).FillWeight = 100 : 財務彙總_天_dgv.Columns(5).FillWeight = 100 : 財務彙總_天_dgv.Columns(6).FillWeight = 100 : 財務彙總_天_dgv.Columns(7).FillWeight = 100

  102.         財務彙總_天_dgv.Columns(8).FillWeight = 100 : 財務彙總_天_dgv.Columns(9).FillWeight = 100

  103.         財務彙總_天_dgv.Columns(4).Visible = False : 財務彙總_天_dgv.Columns(5).Visible = False

  104.         If 彙總匯率_ch.Checked = False Then

  105.             財務彙總_天_dgv.Columns(8).Visible = False : 財務彙總_天_dgv.Columns(9).Visible = False

  106.         Else

  107.             財務彙總_天_dgv.Columns(8).Visible = False : 財務彙總_天_dgv.Columns(9).Visible = False

  108.         End If

  109.         財務彙總_天_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 財務彙總_天_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 財務彙總_天_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"

  110.         財務彙總_天_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"

  111.         財務彙總_天_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  112.         財務彙總_天_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  113.         財務彙總_天_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  114.         財務彙總_天_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  115.         財務彙總_天_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  116.         財務彙總_天_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  117.         財務彙總_天_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  118.         財務彙總_天_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  119.         財務彙總_天_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  120.         財務彙總_天_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  121.         財務彙總_天_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  122.         財務彙總_天_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  123.         財務彙總_天_dgv.Columns(0).ReadOnly = True : 財務彙總_天_dgv.Columns(1).ReadOnly = True : 財務彙總_天_dgv.Columns(2).ReadOnly = True : 財務彙總_天_dgv.Columns(3).ReadOnly = True

  124.         財務彙總_天_dgv.Columns(4).ReadOnly = True : 財務彙總_天_dgv.Columns(5).ReadOnly = True : 財務彙總_天_dgv.Columns(6).ReadOnly = True : 財務彙總_天_dgv.Columns(7).ReadOnly = True

  125.     End Sub

  126.     Private Sub Set_費用清單()

  127.         明細_dgv.DataSource = Nothing : ds.Clear()

  128.         明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  129.         明細_dgv.ColumnHeadersHeight = 40

  130.         明細_dgv.AllowUserToAddRows = False

  131.         明細_dgv.RowTemplate.Height = 35

  132.         If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then

  133.             SQL2 = ""

  134.         ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then

  135.             SQL2 = " AND (公帳流水帳.含稅 = 1)"

  136.         ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then

  137.             SQL2 = " AND (公帳流水帳.含稅 = 0 OR 公帳流水帳.含稅 IS NULL)"

  138.         End If

  139.         If 公司編號_cb.Text = "全部" Or 公司編號_cb.Text = "" Then : PA51 = "" : Else : PA51 = " AND (公帳控制表.公司編號 LIKE N'" & 公司編號_cb.Text & "')" : End If

  140. 

  141.         If boo = True Then : PA55 = 申請日期_dtp.Text : Else : PA55 = "" : End If

  142.         If boo1 = True Then

  143.             SQL_營運成本收支單一覽表_查詢費用清單()

  144.         Else

  145.             SQL_營運成本收支單一覽表_查詢清單4()

  146.         End If

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

  148.         明細_dgv.Columns(0).FillWeight = 50 : 明細_dgv.Columns(1).FillWeight = 250 : 明細_dgv.Columns(2).FillWeight = 250 : 明細_dgv.Columns(3).FillWeight = 380

  149.         明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140

  150.         明細_dgv.Columns(9).Visible = False : 明細_dgv.Columns(10).Visible = False : 明細_dgv.Columns(11).Visible = False

  151.         明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).Visible = False : 明細_dgv.Columns(8).Visible = False

  152.         If 彙總匯率_ch.Checked = False Then

  153.             明細_dgv.Columns(9).Visible = False : 明細_dgv.Columns(10).Visible = False

  154.         Else

  155.             明細_dgv.Columns(9).Visible = False : 明細_dgv.Columns(10).Visible = False

  156.         End If

  157.         明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True

  158.         明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"

  159.         明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"

  160.         明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  161.         明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  162.         明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  163.         明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

  164.         明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  165.         明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  166.         明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  167.         台幣現金_tb.Text = "0" : 台幣支出_tb.Text = "0" : 台幣現金餘額_tb.Text = "0" : 台幣零用金_tb.Text = "0" : 台幣支票_tb.Text = "0"

  168.         人民幣零用金_tb.Text = "0" : 人民幣支票_tb.Text = "0" : 人民幣現金_tb.Text = "0" : 人民幣支出_tb.Text = "0" : 人民幣現金餘額_tb.Text = "0"

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

  170.             明細_dgv.Rows(i).Cells("項次").Value = i + 1

  171.             If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then

  172.                 台幣現金_tb.Text = Val(台幣現金_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value

  173.                 台幣支出_tb.Text = Val(台幣支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value

  174.                 台幣零用金_tb.Text = Val(台幣零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value

  175.                 台幣支票_tb.Text = Val(台幣支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value

  176.             End If

  177.             If 明細_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then

  178.                 人民幣現金_tb.Text = Val(人民幣現金_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value

  179.                 人民幣支出_tb.Text = Val(人民幣支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value

  180. 

  181.                 人民幣零用金_tb.Text = Val(人民幣零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value

  182.                 人民幣支票_tb.Text = Val(人民幣支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value

  183.             End If

  184.         Next i

  185.         台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text)

  186.         人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)

  187.         台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0")

  188.         台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0")

  189.         台幣零用金_tb.Text = Strings.Format(Val(台幣零用金_tb.Text), "#,##0") : 台幣支票_tb.Text = Strings.Format(Val(台幣支票_tb.Text), "#,##0")

  190.         人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0")

  191.         人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0")

  192.         人民幣支出_tb.Text = Strings.Format(Val(人民幣支出_tb.Text), "#,##0") : 人民幣現金餘額_tb.Text = Strings.Format(Val(人民幣現金餘額_tb.Text), "#,##0")

  193.     End Sub

  194.     Private Sub 日期格式()

  195.         If 會計月_ch.Checked = True Then

  196.             '-------------日期一----------------------------------------------------------------------------------------

  197.             DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP

  198.             開始日期_dtp.Value = 結束日期_dtp.Value.AddMonths(-1)

  199.             DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP

  200.             '-------------日期二----------------------------------------------------------------------------------------

  201.             DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP

  202.         Else

  203.             開始日期_dtp.Value = 結束日期_dtp.Value

  204.             '-------------日期一----------------------------------------------------------------------------------------

  205.             DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP

  206.             '-------------日期二----------------------------------------------------------------------------------------

  207.             DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP

  208.             結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)

  209.         End If

  210.     End Sub

  211.     Private Sub 載入公司編號cb()

  212.         SQL_公司編號_下拉清單() : 公司編號_cb.Items.Clear() : 公司編號_cb.Items.Add("全部")

  213.         While (dr.Read()) : 公司編號_cb.Items.Add(dr("公司編號")) : End While : conn.Close()

  214.     End Sub

  215. 

  216.     Private Sub 營運成本收支單一覽表_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  217.         Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  218.         載入公司編號cb()

  219.         DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"

  220.         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today() : 支付單列印成EXCEL.Enabled = False

  221.         日期格式() : 明細_rb.Checked = True : 財務彙總_天_dgv.Visible = False

  222.         If 公司 = True Then

  223.         Else

  224.             公司編號_lb.Visible = False : 公司編號_cb.Visible = False

  225.         End If

  226.         SQL_讀取公司名稱()

  227.         If dr.Read() Then

  228.             公司名稱.Text = dr("公司名稱")

  229.         End If

  230.         conn.Close()

  231.     End Sub

  232.     Dim 已超出 As Boolean

  233.     Private Sub 財務彙總_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 財務彙總_dgv.MouseUp

  234.         'If 財務彙總_dgv.SelectedCells.Count = 1 Then : MsgBox(財務彙總_dgv.SelectedCells(0).ColumnIndex & "  " & 財務彙總_dgv.SelectedCells(0).RowIndex) : End If

  235.         If 財務彙總_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If

  236.         If 財務彙總_dgv.SelectedCells.Count > 0 Then

  237.             If 財務彙總_dgv.SelectedCells(0).ColumnIndex >= 4 And 財務彙總_dgv.SelectedCells(0).ColumnIndex <= 7 Then

  238.                 If 已超出 = False Then

  239.                     Dim x As Double = 0

  240.                     For i As Integer = 0 To 財務彙總_dgv.SelectedCells.Count - 1

  241.                         x += Val(財務彙總_dgv.Rows(財務彙總_dgv.SelectedCells.Item(i).RowIndex).Cells(財務彙總_dgv.SelectedCells.Item(i).ColumnIndex).Value)

  242.                     Next i : ICS_ASMS_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")

  243.                 Else : ICS_ASMS_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If

  244.             Else : 已超出 = True : ICS_ASMS_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")

  245.             End If

  246.         End If

  247.     End Sub

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

  249.         'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If

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

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

  252.             If 明細_dgv.SelectedCells(0).ColumnIndex >= 4 And 明細_dgv.SelectedCells(0).ColumnIndex <= 7 Then

  253.                 If 已超出 = False Then

  254.                     Dim x As Double = 0

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

  256.                         x += Val(明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)

  257.                     Next i : ICS_ASMS_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")

  258.                 Else : ICS_ASMS_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If

  259.             Else : 已超出 = True : ICS_ASMS_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")

  260.             End If

  261.         End If

  262.     End Sub

  263.     Private Sub 財務彙總_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 財務彙總_dgv.CellClick

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

  265.             PA56 = 財務彙總_dgv(3, e.RowIndex).Value.ToString

  266.             boo1 = False

  267.             支付單列印成EXCEL.Enabled = True

  268.             Set_費用清單()

  269.         End If

  270.     End Sub

  271.     Private Sub 單據彙總_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 單據彙總_dgv.CellClick

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

  273. 

  274.             收支單號_tb.Text = 單據彙總_dgv(0, e.RowIndex).Value.ToString : 驗證碼_tb.Text = 單據彙總_dgv(6, e.RowIndex).Value.ToString

  275.             申請人_tb.Text = 單據彙總_dgv(1, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 單據彙總_dgv(2, e.RowIndex).Value.ToString

  276.             審核人_tb.Text = 單據彙總_dgv(3, e.RowIndex).Value.ToString : 圖片編碼_tb.Text = 單據彙總_dgv(5, e.RowIndex).Value.ToString

  277.             If 單據彙總_dgv(4, e.RowIndex).Value.ToString = "" Then

  278.                 審核日期_dtp.Value = 單據彙總_dgv(2, e.RowIndex).Value.ToString

  279.             Else

  280.                 審核日期_dtp.Value = 單據彙總_dgv(4, e.RowIndex).Value.ToString

  281.             End If

  282.             Set_費用清單()

  283.         End If

  284.     End Sub

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

  286.         'If e.RowIndex = -1 Then : Else

  287.         '    Dim NV1 As Integer

  288.         '    收支單號_tb.Text = 明細_dgv(0, e.RowIndex).Value.ToString

  289.         '    For i As Integer = 0 To 單據彙總_dgv.Rows.Count - 1

  290.         '        If 收支單號_tb.Text = 單據彙總_dgv(0, i).Value.ToString Then : NV1 = i : Exit For : End If

  291.         '    Next

  292.         '    收支單號_tb.Text = 單據彙總_dgv(0, NV1).Value.ToString : 驗證碼_tb.Text = 單據彙總_dgv(6, NV1).Value.ToString

  293.         '    申請人_tb.Text = 單據彙總_dgv(1, NV1).Value.ToString : 申請日期_dtp.Value = 單據彙總_dgv(2, NV1).Value.ToString

  294.         '    審核人_tb.Text = 單據彙總_dgv(3, NV1).Value.ToString : 圖片編碼_tb.Text = 單據彙總_dgv(5, NV1).Value.ToString

  295.         '    If 單據彙總_dgv(4, NV1).Value.ToString = "" Then

  296.         '        審核日期_dtp.Value = 單據彙總_dgv(2, NV1).Value.ToString

  297.         '    Else

  298.         '        審核日期_dtp.Value = 單據彙總_dgv(4, NV1).Value.ToString

  299.         '    End If

  300.         '    Set_費用清單()

  301.         'End If

  302.     End Sub

  303.     Private Sub 日期彙總_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 日期彙總_dgv.CellClick

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

  305.             boo1 = True

  306.             boo = True : 支付單列印成EXCEL.Enabled = True

  307.             If 日期浮動_cb.Checked = True Then

  308.                 結束日期_dtp.Value = 日期彙總_dgv(0, e.RowIndex).Value.ToString

  309.             End If

  310.             申請日期_dtp.Value = 日期彙總_dgv(0, e.RowIndex).Value.ToString : Set_費用清單() : Set_清單3() : Set_清單2()

  311.             If 單據彙總_dgv.Rows.Count > 0 Then

  312.                 圖片編碼_tb.Text = 單據彙總_dgv(5, 0).Value.ToString

  313.             End If

  314.             憑證張數_tb.Text = ""

  315. 

  316.         End If

  317.     End Sub

  318.     Private Sub 單據彙總_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 單據彙總_dgv.RowPostPaint

  319.         Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2) : Dim linePen2 As New Pen(Color.Green, 2)

  320.         If e.RowIndex = 單據彙總_dgv.Rows.Count - 1 Then

  321.             Exit Sub

  322.         Else

  323.             If 單據彙總_dgv(2, e.RowIndex).Value.ToString <> 單據彙總_dgv(2, e.RowIndex + 1).Value.ToString Then

  324.                 Dim startX As Integer = IIf(單據彙總_dgv.RowHeadersVisible, 單據彙總_dgv.RowHeadersWidth, 0)

  325.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  326.                 Dim endX As Integer = startX + 單據彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 單據彙總_dgv.HorizontalScrollingOffset

  327.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  328.                 Exit Sub

  329.             End If

  330.         End If

  331.     End Sub

  332.     Private Sub 財務彙總_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 財務彙總_dgv.RowPostPaint

  333.         Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2) : Dim linePen2 As New Pen(Color.Green, 2)

  334.         If e.RowIndex = 財務彙總_dgv.Rows.Count - 1 Then

  335.             Exit Sub

  336.         Else

  337.             If 財務彙總_dgv(0, e.RowIndex).Value.ToString <> 財務彙總_dgv(0, e.RowIndex + 1).Value.ToString Then

  338.                 Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)

  339.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  340.                 Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset

  341.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  342.                 Exit Sub

  343.             End If

  344.             If 財務彙總_dgv(8, e.RowIndex).Value.ToString <> 財務彙總_dgv(8, e.RowIndex + 1).Value.ToString Then

  345.                 Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)

  346.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  347.                 Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset

  348.                 e.Graphics.DrawLine(linePen2, startX, startY, endX, startY)

  349.                 Exit Sub

  350.             End If

  351.             If 財務彙總_dgv(1, e.RowIndex).Value.ToString <> 財務彙總_dgv(1, e.RowIndex + 1).Value.ToString Then

  352.                 Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)

  353.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  354.                 Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset

  355.                 e.Graphics.DrawLine(linePen1, startX, startY, endX, startY)

  356.                 Exit Sub

  357.             End If

  358.         End If

  359.     End Sub

  360.     Private Sub 日期浮動_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 日期浮動_cb.Click

  361.         If 日期浮動_cb.Checked = False Then

  362.             日期浮動_cb.Checked = False : 當月_bt.PerformClick()

  363.         End If

  364.     End Sub

  365.     Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click

  366.         全部_ch.Checked = True : 含稅_ch.Checked = False : 非稅_ch.Checked = False : Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  367.     End Sub

  368.     Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click

  369.         全部_ch.Checked = False : 含稅_ch.Checked = True : 非稅_ch.Checked = False : Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  370.     End Sub

  371.     Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click

  372.         全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  373.     End Sub

  374.     Private Sub 當日_bt_Click(sender As Object, e As EventArgs) Handles 當日_bt.Click

  375.         中間日期_dtp.Value = Today

  376.         日期浮動_cb.Checked = False : DTP = Strings.Format(Today(), "yyyy/MM/dd")

  377.         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP

  378.         boo = False

  379.         Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  380.     End Sub

  381.     Private Sub 當月_bt_Click(sender As Object, e As EventArgs) Handles 當月_bt.Click

  382.         中間日期_dtp.Value = Today

  383.         日期浮動_cb.Checked = False : DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"

  384.         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()

  385.         boo = False

  386.         Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  387.     End Sub

  388.     Private Sub 彙總計算()

  389.         If 明細_rb.Checked = False And 彙總_rb.Checked = True Then

  390.             支付單列印成EXCEL.Enabled = False

  391.             台幣現金_tb.Text = "0" : 台幣支出_tb.Text = "0" : 台幣現金餘額_tb.Text = "0" : 台幣零用金_tb.Text = "0" : 台幣支票_tb.Text = "0"

  392.             人民幣零用金_tb.Text = "0" : 人民幣支票_tb.Text = "0" : 人民幣現金_tb.Text = "0" : 人民幣支出_tb.Text = "0" : 人民幣現金餘額_tb.Text = "0"

  393.             For i As Integer = 0 To 財務彙總_dgv.Rows.Count - 1

  394.                 If 財務彙總_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then

  395.                     台幣現金_tb.Text = Val(台幣現金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("收入").Value

  396.                     台幣支出_tb.Text = Val(台幣支出_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支出").Value

  397.                     台幣零用金_tb.Text = Val(台幣零用金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("零用金").Value

  398.                     台幣支票_tb.Text = Val(台幣支票_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支票").Value

  399.                 End If

  400.                 If 財務彙總_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then

  401.                     If 財務彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then

  402.                         人民幣現金_tb.Text = Val(人民幣現金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("收入").Value

  403.                         人民幣支出_tb.Text = Val(人民幣支出_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支出").Value

  404.                         人民幣零用金_tb.Text = Val(人民幣零用金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("零用金").Value

  405.                         人民幣支票_tb.Text = Val(人民幣支票_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支票").Value

  406.                     End If

  407.                 End If

  408.             Next i

  409.             台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text)

  410.             人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)

  411.             台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0")

  412.             台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0")

  413.             台幣零用金_tb.Text = Strings.Format(Val(台幣零用金_tb.Text), "#,##0") : 台幣支票_tb.Text = Strings.Format(Val(台幣支票_tb.Text), "#,##0")

  414.             人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0")

  415.             人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0")

  416.             人民幣支出_tb.Text = Strings.Format(Val(人民幣支出_tb.Text), "#,##0") : 人民幣現金餘額_tb.Text = Strings.Format(Val(人民幣現金餘額_tb.Text), "#,##0")

  417.         End If

  418.     End Sub

  419.     Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click

  420.         日期浮動_cb.Checked = False

  421.         If 會計月_ch.Checked = True Then

  422.             中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)

  423.             開始日期_dtp.Value = 中間日期_dtp.Value

  424.             結束日期_dtp.Value = 中間日期_dtp.Value

  425.         Else

  426.             中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)

  427.             開始日期_dtp.Value = 中間日期_dtp.Value

  428.             結束日期_dtp.Value = 中間日期_dtp.Value

  429.         End If

  430.         boo = False

  431.         日期格式() : Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  432.     End Sub

  433.     Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click

  434.         日期浮動_cb.Checked = False

  435.         If 會計月_ch.Checked = True Then

  436.             中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)

  437.             開始日期_dtp.Value = 中間日期_dtp.Value

  438.             結束日期_dtp.Value = 中間日期_dtp.Value

  439.         Else

  440.             中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)

  441.             開始日期_dtp.Value = 中間日期_dtp.Value

  442.             結束日期_dtp.Value = 中間日期_dtp.Value

  443.         End If : boo = False : 日期格式() : Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  444.     End Sub

  445.     Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged

  446.         If 日期浮動_cb.Checked = True Then

  447.             Set_清單1() : Set_清單2() : 彙總計算()

  448.         Else

  449.             Set_清單1() : Set_清單() : Set_清單2() : 彙總計算()

  450.         End If

  451.     End Sub

  452.     Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged

  453.         If 日期浮動_cb.Checked = True Then

  454.             Set_清單1() : Set_清單2() : 彙總計算()

  455.         Else

  456.             Set_清單1() : Set_清單() : Set_清單2() : 彙總計算()

  457.         End If

  458.     End Sub

  459.     Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click

  460.         會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式() : Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  461.     End Sub

  462.     Private Sub 一般月_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click

  463.         會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式() : Set_費用清單() : Set_清單() : Set_清單2() : 彙總計算()

  464.     End Sub

  465.     Private Sub 明細_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 明細_rb.Click

  466.         明細_dgv.Visible = True : 財務彙總_天_dgv.Visible = False

  467.         明細_rb.Checked = True : 彙總_rb.Checked = False

  468.         台幣現金_tb.Text = "0" : 台幣支出_tb.Text = "0" : 台幣現金餘額_tb.Text = "0" : 台幣零用金_tb.Text = "0" : 台幣支票_tb.Text = "0" ': 單據彙總_dgv.Enabled = True

  469.     End Sub

  470.     Private Sub 彙總_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 彙總_rb.Click

  471.         明細_dgv.Visible = False : 財務彙總_天_dgv.Visible = True

  472.         明細_rb.Checked = False : 彙總_rb.Checked = True

  473.         收支單號_tb.Text = "" : 申請人_tb.Text = "" : 審核人_tb.Text = "" : 明細_dgv.DataSource = Nothing : ds.Clear() ': 單據彙總_dgv.Enabled = False

  474.         彙總計算()

  475.     End Sub

  476.     Private Sub 圖片編碼_tb_TextChanged(sender As Object, e As EventArgs) Handles 圖片編碼_tb.TextChanged

  477.         SQL_營運成本收支單一覽表_查詢簽名檔圖片()

  478.         While dr.Read() = True

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

  480.             Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())

  481.             Dim oStream As New MemoryStream(bytes)

  482.             簽名圖_pb.Image = Bitmap.FromStream(oStream)

  483.         End While

  484.         conn.Close()

  485.         簽名圖_pb.SizeMode = 4

  486.     End Sub

  487.     Private Sub 彙總匯率_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 彙總匯率_ch.Click

  488.         Set_清單() : Set_清單2()

  489.     End Sub

  490.     Private Sub 支付單列印成EXCEL_Click(sender As Object, e As EventArgs) Handles 支付單列印成EXCEL.Click

  491. 

  492.         If 明細_rb.Checked = False And 彙總_rb.Checked = True Then

  493.             MsgBox("請點選明細才能列印")

  494.         ElseIf 明細_rb.Checked = True And 彙總_rb.Checked = False Then

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

  496.             xlBook = xlApp.Workbooks.Add

  497.             xlApp.DisplayAlerts = True

  498.             xlBook.Activate()

  499.             xlSheet = NewMethod(xlBook)

  500.             xlSheet.Activate()

  501.             xlApp.Visible = True

  502.             xlApp.Application.WindowState = xlMaximized

  503.             Dim dat As String = 明細_dgv.Rows(0).Cells("支付單號").Value.ToString

  504.             Dim startIndex As Integer = dat.IndexOf("-") + 1

  505.             Dim datePart As String

  506.             Dim dateValue As DateTime

  507.             Dim dat1 As String

  508.             If boo1 = True Then

  509.                 datePart = dat.Substring(startIndex, 8)

  510.                 If DateTime.TryParseExact(datePart, "yyyyMMdd", Nothing, System.Globalization.DateTimeStyles.None, dateValue) Then

  511.                     Dim formattedDate As String = dateValue.ToString("yyyy/MM/dd")

  512.                     dat1 = formattedDate

  513.                 Else

  514.                     dat1 = "無效日期"

  515.                 End If

  516.             Else

  517.                 datePart = DateTime.Now.ToString("yyyyMM")

  518.                 dat1 = DateTime.Now.ToString("yyyy/MM")

  519.             End If

  520.             Dim firstCellValue As Object = 明細_dgv.Rows(0).Cells("會計科目").Value

  521.             Dim allSame As Boolean = True

  522. 

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

  524.                 If Not Object.Equals(明細_dgv.Rows(i).Cells("會計科目").Value, firstCellValue) Then

  525.                     allSame = False

  526.                     Exit For

  527.                 End If

  528.             Next

  529.             If allSame Then

  530.                 xlSheet.Cells(2, 3) = 明細_dgv.Rows(0).Cells("會計科目").Value & "-用途說明"

  531.             Else

  532.                 xlSheet.Cells(2, 3) = "用途說明"

  533.             End If

  534. 

  535.             xlSheet.Cells(1, 1) = 公司名稱.Text & "收支粘貼憑證用紙-" & dat1

  536.             xlSheet.Cells(2, 1) = "憑證編號" : xlSheet.Cells(2, 2) = "編號" : xlSheet.Cells(2, 9) = "金額"

  537.             xlSheet.Cells(2, 10) = "附件" : xlSheet.Cells(3, 10) = "憑證" : xlSheet.Cells(2, 8) = "收" & vbLf & "支"

  538.             xlSheet.Cells(4, 10) = 憑證張數_tb.Text & vbCrLf & "張"

  539.             If 顯示單據_cb.Checked = True Then

  540.                 xlSheet.Cells(2, 7) = "單據" & vbLf & "編號"

  541.             End If

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

  543.                 xlSheet.Cells(i + 4, 2) = i + 1

  544.                 If allSame Then

  545.                     xlSheet.Cells(i + 4, 3) = 明細_dgv.Rows(i).Cells("用途").Value

  546.                     If 顯示單據_cb.Checked = True Then

  547.                         xlSheet.Cells(i + 4, 7) = "'" + 明細_dgv.Rows(i).Cells("票期").Value

  548.                     End If

  549.                 Else

  550.                     xlSheet.Cells(i + 4, 3) = 明細_dgv.Rows(i).Cells("會計科目").Value

  551.                     xlSheet.Cells(i + 4, 4) = 明細_dgv.Rows(i).Cells("用途").Value

  552.                     If 顯示單據_cb.Checked = True Then

  553.                         xlSheet.Cells(i + 4, 7) = "'" + 明細_dgv.Rows(i).Cells("票期").Value

  554.                     End If

  555.                 End If

  556.                 xlSheet.Cells(i + 4, 11) = 明細_dgv.Rows(i).Cells("用途").Value

  557.                 If 明細_dgv.Rows(i).Cells("收入").Value = 0 And 明細_dgv.Rows(i).Cells("支出").Value <> 0 Then

  558.                     xlSheet.Cells(i + 4, 8) = "支"

  559.                     Dim value1 As Double = Convert.ToDouble(明細_dgv.Rows(i).Cells("支出").Value)

  560.                     Dim formattedValue1 As String = value1.ToString("#,##0")

  561.                     xlSheet.Cells(i + 4, 9) = formattedValue1

  562.                     'Dim str As String = 大寫轉換(明細_dgv.Rows(i).Cells("支出").Value)

  563.                     'xlSheet.Cells(i + 4, 9) = str & " 元整"

  564.                 ElseIf 明細_dgv.Rows(i).Cells("收入").Value <> 0 And 明細_dgv.Rows(i).Cells("支出").Value = 0 Then

  565.                     xlSheet.Cells(i + 4, 8) = "收"

  566.                     Dim value2 As Double = Convert.ToDouble(明細_dgv.Rows(i).Cells("收入").Value)

  567.                     Dim formattedValue2 As String = value2.ToString("#,##0")

  568.                     xlSheet.Cells(i + 4, 9) = formattedValue2

  569.                     'Dim str As String = 大寫轉換(明細_dgv.Rows(i).Cells("收入").Value)

  570.                     'xlSheet.Cells(i + 4, 9) = str & " 元整"

  571.                 End If

  572.                 N2 = i + 4

  573.             Next i

  574. 

  575. 

  576.             Dim 台幣現金餘額 As Decimal

  577.             If Decimal.TryParse(台幣現金餘額_tb.Text, 台幣現金餘額) Then

  578.                 If 台幣現金餘額 > 0 Then

  579.                     xlSheet.Cells(N2 + 1, 2) = "合計收入 : "

  580.                 Else

  581.                     xlSheet.Cells(N2 + 1, 2) = "合計支出 : "

  582.                 End If

  583.                 If 台幣現金餘額 < 0 Then

  584.                     台幣現金餘額 = Math.Abs(台幣現金餘額)

  585.                 End If

  586.                 Dim value As Double = 台幣現金餘額

  587.                 Dim formattedValue As String = value.ToString("#,##0")

  588.                 xlSheet.Cells(N2 + 1, 9) = formattedValue

  589.                 'Dim str1 As String = 大寫轉換(台幣現金餘額.ToString())

  590.                 'xlSheet.Cells(N2 + 1, 9) = str1 & " 元整"

  591.             End If

  592. 

  593.             SQL_公司稱謂()

  594.             If dr.Read() Then

  595.                 xlSheet.Cells(N2 + 2, 7) = If(Not IsDBNull(dr("編號一")), dr("編號一").ToString(), "")

  596.                 xlSheet.Cells(N2 + 2, 6) = If(Not IsDBNull(dr("編號二")), dr("編號二").ToString(), "")

  597.                 xlSheet.Cells(N2 + 2, 5) = If(Not IsDBNull(dr("編號三")), dr("編號三").ToString(), "")

  598.                 xlSheet.Cells(N2 + 2, 4) = If(Not IsDBNull(dr("編號四")), dr("編號四").ToString(), "")

  599.                 xlSheet.Cells(N2 + 2, 3) = If(Not IsDBNull(dr("編號五")), dr("編號五").ToString(), "")

  600.                 xlSheet.Cells(N2 + 2, 1) = If(Not IsDBNull(dr("編號六")), dr("編號六").ToString(), "")

  601.                 xlSheet.Cells(N2 + 2, 9) = If(Not IsDBNull(dr("編號七")), dr("編號七").ToString(), "")

  602.             End If

  603.             AA(xlApp, xlSheet, allSame)

  604.             xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""

  605.             '----轉成PDF-----

  606.             Dim pdfFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "pdf")

  607.             If Not Directory.Exists(pdfFolderPath) Then

  608.                 Directory.CreateDirectory(pdfFolderPath)

  609.             End If

  610.             Dim pdfFilePath As String = Path.Combine(pdfFolderPath, datePart & "-傳票.pdf")

  611.             xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, pdfFilePath, XlFixedFormatQuality.xlQualityStandard, True)

  612.             '--------

  613.             xlApp.Cells.Select() : xlApp.Application.WindowState = xlMinimized : xlBook.Close(False)

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

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

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

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

  618.             Try

  619.                 Dim chromePath As String = "C:\Program Files\Google\Chrome\Application\chrome.exe"

  620.                 If System.IO.File.Exists(chromePath) Then

  621.                     Dim process As New Process()

  622.                     process.StartInfo.FileName = "chrome"

  623.                     process.StartInfo.Arguments = """" & pdfFilePath & """"

  624.                     process.Start()

  625.                 Else : Dim edgePath As String = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"

  626.                     If System.IO.File.Exists(edgePath) Then

  627.                         Dim process As New Process()

  628.                         process.StartInfo.FileName = "msedge"

  629.                         process.StartInfo.Arguments = """" & pdfFilePath & """"

  630.                         process.Start()

  631.                     Else

  632.                         Process.Start(pdfFilePath)

  633.                     End If

  634.                 End If

  635.             Catch ex As Exception

  636.                 MsgBox("以存檔至桌面 。" & vbCrLf & "檔案名稱：" & datePart & "-結帳單.pdf")

  637.             End Try

  638.         End If

  639. 

  640.     End Sub

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

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

  643.     End Function

  644.     Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet, ByVal allSame As Boolean)

  645.         xlSheet.Activate() ' 激活工作表

  646.         xlSheet.Parent.Windows(1).View = XlWindowView.xlPageLayoutView

  647.         xlSheet.Cells.Select()

  648.         With myExcel.Selection.Font

  649.             .Name = "標楷體"

  650.             .Size = 12

  651.             .Strikethrough = False

  652.             .Superscript = False

  653.             .Subscript = False

  654.             .OutlineFont = False

  655.             .Shadow = False

  656.             .Underline = xlUnderlineStyleNone

  657.             .ThemeColor = xlThemeColorLight1

  658.             .TintAndShade = 0

  659.             .ThemeFont = xlThemeFontNone

  660.         End With

  661.         xlSheet.Range("A2:J" & N2 + 3).Select()

  662.         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone

  663.         myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

  664.         With myExcel.Selection.Borders(xlEdgeLeft)

  665.             .LineStyle = xlContinuous

  666.             .ColorIndex = 0

  667.             .TintAndShade = 0

  668.             .Weight = xlThin

  669.         End With

  670.         With myExcel.Selection.Borders(xlEdgeTop)

  671.             .LineStyle = xlContinuous

  672.             .ColorIndex = 0

  673.             .TintAndShade = 0

  674.             .Weight = xlThin

  675.         End With

  676.         With myExcel.Selection.Borders(xlEdgeBottom)

  677.             .LineStyle = xlContinuous

  678.             .ColorIndex = 0

  679.             .TintAndShade = 0

  680.             .Weight = xlThin

  681.         End With

  682.         With myExcel.Selection.Borders(xlEdgeRight)

  683.             .LineStyle = xlContinuous

  684.             .ColorIndex = 0

  685.             .TintAndShade = 0

  686.             .Weight = xlThin

  687.         End With

  688.         With myExcel.Selection.Borders(xlInsideVertical)

  689.             .LineStyle = xlContinuous

  690.             .ColorIndex = 0

  691.             .TintAndShade = 0

  692.             .Weight = xlThin

  693.         End With

  694.         With myExcel.Selection.Borders(xlInsideHorizontal)

  695.             .LineStyle = xlContinuous

  696.             .ColorIndex = 0

  697.             .TintAndShade = 0

  698.             .Weight = xlThin

  699.         End With

  700. 

  701.         myExcel.Application.PrintCommunication = False

  702.         With myExcel.ActiveSheet.PageSetup

  703.             .PrintTitleRows = ""

  704.             .PrintTitleColumns = ""

  705.         End With

  706.         myExcel.Application.PrintCommunication = True

  707.         myExcel.ActiveSheet.PageSetup.PrintArea = ""

  708.         myExcel.Application.PrintCommunication = False

  709.         With myExcel.ActiveSheet.PageSetup

  710.             .LeftHeader = ""

  711.             .CenterHeader = ""

  712.             .RightHeader = ""

  713.             .LeftFooter = ""

  714.             .CenterFooter = ""

  715.             .RightFooter = ""

  716.             .LeftMargin = myExcel.Application.InchesToPoints(0.25)

  717.             .RightMargin = myExcel.Application.InchesToPoints(0.25)

  718.             .TopMargin = myExcel.Application.InchesToPoints(0.75)

  719.             .BottomMargin = myExcel.Application.InchesToPoints(0.75)

  720.             .HeaderMargin = myExcel.Application.InchesToPoints(0.3)

  721.             .FooterMargin = myExcel.Application.InchesToPoints(0.3)

  722.             .PrintHeadings = False

  723.             .PrintGridlines = False

  724.             .CenterHorizontally = False

  725.             .CenterVertically = False

  726.             .Draft = False

  727.             .FirstPageNumber = xlAutomatic

  728.             .BlackAndWhite = False

  729.             .Zoom = False

  730.             .FitToPagesWide = 1

  731.             .FitToPagesTall = 0

  732.             .OddAndEvenPagesHeaderFooter = False

  733.             .DifferentFirstPageHeaderFooter = False

  734.             .ScaleWithDocHeaderFooter = True

  735.             .AlignMarginsHeaderFooter = True

  736.             .EvenPage.LeftHeader.Text = ""

  737.             .EvenPage.CenterHeader.Text = ""

  738.             .EvenPage.RightHeader.Text = ""

  739.             .EvenPage.LeftFooter.Text = ""

  740.             .EvenPage.CenterFooter.Text = ""

  741.             .EvenPage.RightFooter.Text = ""

  742.             .FirstPage.LeftHeader.Text = ""

  743.             .FirstPage.CenterHeader.Text = ""

  744.             .FirstPage.RightHeader.Text = ""

  745.             .FirstPage.LeftFooter.Text = ""

  746.             .FirstPage.CenterFooter.Text = ""

  747.             .FirstPage.RightFooter.Text = ""

  748.         End With

  749.         myExcel.Application.PrintCommunication = True

  750. 

  751. 

  752. 

  753. 

  754. 

  755.         xlSheet.Columns("A:A").ColumnWidth = 5

  756.         xlSheet.Columns("B:B").ColumnWidth = 3

  757.         xlSheet.Columns("C:C").ColumnWidth = 16

  758.         xlSheet.Columns("D:D").ColumnWidth = 13

  759.         xlSheet.Columns("E:E").ColumnWidth = 13

  760.         xlSheet.Columns("F:F").ColumnWidth = 13

  761.         xlSheet.Columns("G:G").ColumnWidth = 9

  762.         xlSheet.Columns("H:H").ColumnWidth = 4

  763.         xlSheet.Columns("I:I").ColumnWidth = 11

  764.         xlSheet.Columns("J:J").ColumnWidth = 5

  765.         xlSheet.Columns("K:K").WrapText = True

  766.         If allSame Then

  767.             If 顯示單據_cb.Checked = True Then

  768.                 xlSheet.Columns("K:K").ColumnWidth = 56.88

  769.             Else

  770.                 xlSheet.Columns("K:K").ColumnWidth = 66.5

  771.             End If

  772. 

  773.         Else

  774.             If 顯示單據_cb.Checked = True Then

  775.                 xlSheet.Columns("K:K").ColumnWidth = 40.25

  776.             Else

  777.                 xlSheet.Columns("K:K").ColumnWidth = 49.88

  778.             End If

  779.         End If

  780.         xlSheet.Rows(N2 + 3 & ":" & N2 + 3).RowHeight = 100

  781. 

  782.         xlSheet.Range("A1:J1").Select()

  783.         With myExcel.Selection.Font

  784.             .Name = "標楷體"

  785.             .Size = 16

  786.             .Strikethrough = False

  787.             .Superscript = False

  788.             .Subscript = False

  789.             .OutlineFont = False

  790.             .Shadow = False

  791.             .Underline = xlUnderlineStyleNone

  792.             .ThemeColor = xlThemeColorLight1

  793.             .TintAndShade = 0

  794.             .ThemeFont = xlThemeFontNone

  795.         End With

  796. 

  797.         xlSheet.Range("A1:J1").Select()

  798. 

  799.         With myExcel.Selection

  800.             .HorizontalAlignment = xlCenter

  801.             .VerticalAlignment = xlCenter

  802.             .WrapText = False

  803.             .Orientation = 0

  804.             .AddIndent = False

  805.             .IndentLevel = 0

  806.             .ShrinkToFit = False

  807.             .ReadingOrder = xlContext

  808.             .MergeCells = False

  809.         End With

  810.         myExcel.Selection.Merge

  811. 

  812.         xlSheet.Range("A2:A3").Select()

  813. 

  814.         With myExcel.Selection

  815.             .HorizontalAlignment = xlCenter

  816.             .VerticalAlignment = xlCenter

  817.             .WrapText = True

  818.             .Orientation = 0

  819.             .AddIndent = False

  820.             .IndentLevel = 0

  821.             .ShrinkToFit = False

  822.             .ReadingOrder = xlContext

  823.             .MergeCells = False

  824.         End With

  825.         myExcel.Selection.Merge

  826.         xlSheet.Range("B2:B3").Select()

  827. 

  828.         With myExcel.Selection

  829.             .HorizontalAlignment = xlCenter

  830.             .VerticalAlignment = xlCenter

  831.             .WrapText = True

  832.             .Orientation = 0

  833.             .AddIndent = False

  834.             .IndentLevel = 0

  835.             .ShrinkToFit = False

  836.             .ReadingOrder = xlContext

  837.             .MergeCells = False

  838.         End With

  839.         myExcel.Selection.Merge

  840. 

  841.         If 顯示單據_cb.Checked = True Then

  842.             xlSheet.Range("C2:F3").Select()

  843. 

  844.             With myExcel.Selection

  845.                 .HorizontalAlignment = xlCenter

  846.                 .VerticalAlignment = xlCenter

  847.                 .WrapText = True

  848.                 .Orientation = 0

  849.                 .AddIndent = False

  850.                 .IndentLevel = 0

  851.                 .ShrinkToFit = False

  852.                 .ReadingOrder = xlContext

  853.                 .MergeCells = False

  854.             End With

  855.             myExcel.Selection.Merge

  856. 

  857.             xlSheet.Range("G2:G3").Select()

  858. 

  859.             With myExcel.Selection

  860.                 .HorizontalAlignment = xlCenter

  861.                 .VerticalAlignment = xlCenter

  862.                 .WrapText = True

  863.                 .Orientation = 0

  864.                 .AddIndent = False

  865.                 .IndentLevel = 0

  866.                 .ShrinkToFit = False

  867.                 .ReadingOrder = xlContext

  868.                 .MergeCells = False

  869.             End With

  870.             myExcel.Selection.Merge

  871. 

  872.         Else

  873.             xlSheet.Range("C2:G3").Select()

  874. 

  875.             With myExcel.Selection

  876.                 .HorizontalAlignment = xlCenter

  877.                 .VerticalAlignment = xlCenter

  878.                 .WrapText = True

  879.                 .Orientation = 0

  880.                 .AddIndent = False

  881.                 .IndentLevel = 0

  882.                 .ShrinkToFit = False

  883.                 .ReadingOrder = xlContext

  884.                 .MergeCells = False

  885.             End With

  886.             myExcel.Selection.Merge

  887.         End If

  888.         xlSheet.Range("H2:H3").Select()

  889. 

  890.         With myExcel.Selection

  891.             .HorizontalAlignment = xlCenter

  892.             .VerticalAlignment = xlCenter

  893.             .WrapText = True

  894.             .Orientation = 0

  895.             .AddIndent = False

  896.             .IndentLevel = 0

  897.             .ShrinkToFit = False

  898.             .ReadingOrder = xlContext

  899.             .MergeCells = False

  900.         End With

  901.         myExcel.Selection.Merge

  902.         xlSheet.Range("I2:I3").Select()

  903. 

  904.         With myExcel.Selection

  905.             .HorizontalAlignment = xlCenter

  906.             .VerticalAlignment = xlCenter

  907.             .WrapText = False

  908.             .Orientation = 0

  909.             .AddIndent = False

  910.             .IndentLevel = 0

  911.             .ShrinkToFit = False

  912.             .ReadingOrder = xlContext

  913.             .MergeCells = False

  914.         End With

  915.         myExcel.Selection.Merge

  916. 

  917.         xlSheet.Range("J4:J" & N2 + 1).Select()

  918. 

  919.         With myExcel.Selection

  920.             .HorizontalAlignment = xlCenter

  921.             .VerticalAlignment = xlCenter

  922.             .WrapText = True

  923.             .Orientation = 0

  924.             .AddIndent = False

  925.             .IndentLevel = 0

  926.             .ShrinkToFit = False

  927.             .ReadingOrder = xlContext

  928.             .MergeCells = False

  929.         End With

  930.         myExcel.Selection.Merge

  931. 

  932.         xlSheet.Range("A4:A" & N2 + 1).Select()

  933. 

  934.         With myExcel.Selection

  935.             .HorizontalAlignment = xlCenter

  936.             .VerticalAlignment = xlCenter

  937.             .WrapText = False

  938.             .Orientation = 0

  939.             .AddIndent = False

  940.             .IndentLevel = 0

  941.             .ShrinkToFit = False

  942.             .ReadingOrder = xlContext

  943.             .MergeCells = False

  944.         End With

  945.         myExcel.Selection.Merge

  946. 

  947.         xlSheet.Rows(2).AutoFit

  948.         xlSheet.Rows(2).RowHeight = xlSheet.Rows(2).RowHeight + 1

  949.         xlSheet.Rows(3).AutoFit

  950.         xlSheet.Rows(3).RowHeight = xlSheet.Rows(3).RowHeight + 1

  951.         For i As Integer = 4 To N2

  952.             xlSheet.Range("B" & i).Select()

  953. 

  954.             With myExcel.Selection

  955.                 .HorizontalAlignment = xlCenter

  956.                 .VerticalAlignment = xlCenter

  957.                 .WrapText = False

  958.                 .Orientation = 0

  959.                 .AddIndent = False

  960.                 .IndentLevel = 0

  961.                 .ShrinkToFit = False

  962.                 .ReadingOrder = xlContext

  963.                 .MergeCells = False

  964.             End With

  965. 

  966.             xlSheet.Range("H" & i).Select()

  967. 

  968.             With myExcel.Selection

  969.                 .HorizontalAlignment = xlCenter

  970.                 .VerticalAlignment = xlCenter

  971.                 .WrapText = False

  972.                 .Orientation = 0

  973.                 .AddIndent = False

  974.                 .IndentLevel = 0

  975.                 .ShrinkToFit = False

  976.                 .ReadingOrder = xlContext

  977.                 .MergeCells = False

  978.             End With

  979.             If allSame Then

  980.                 If 顯示單據_cb.Checked = True Then

  981.                     xlSheet.Range("C" & i & ":F" & i).Select()

  982. 

  983.                     With myExcel.Selection

  984.                         .HorizontalAlignment = xlLeft

  985.                         .VerticalAlignment = xlCenter

  986.                         .WrapText = True

  987.                         .Orientation = 0

  988.                         .AddIndent = False

  989.                         .IndentLevel = 0

  990.                         .ShrinkToFit = False

  991.                         .ReadingOrder = xlContext

  992.                         .MergeCells = False

  993.                     End With

  994.                     myExcel.Selection.Merge

  995.                     xlSheet.Range("G" & i).Select()

  996. 

  997.                     With myExcel.Selection

  998.                         .HorizontalAlignment = xlCenter

  999.                         .VerticalAlignment = xlCenter

  1000.                         .WrapText = False

  1001.                         .Orientation = 0

  1002.                         .AddIndent = False

  1003.                         .IndentLevel = 0

  1004.                         .ShrinkToFit = False

  1005.                         .ReadingOrder = xlContext

  1006.                         .MergeCells = False

  1007.                     End With

  1008.                 Else

  1009.                     xlSheet.Range("C" & i & ":G" & i).Select()

  1010. 

  1011.                     With myExcel.Selection

  1012.                         .HorizontalAlignment = xlLeft

  1013.                         .VerticalAlignment = xlCenter

  1014.                         .WrapText = True

  1015.                         .Orientation = 0

  1016.                         .AddIndent = False

  1017.                         .IndentLevel = 0

  1018.                         .ShrinkToFit = False

  1019.                         .ReadingOrder = xlContext

  1020.                         .MergeCells = False

  1021.                     End With

  1022.                     myExcel.Selection.Merge

  1023.                 End If

  1024. 

  1025.             Else

  1026.                 xlSheet.Range("C" & i).Select()

  1027. 

  1028.                 With myExcel.Selection

  1029.                     .HorizontalAlignment = xlLeft

  1030.                     .VerticalAlignment = xlCenter

  1031.                     .WrapText = True

  1032.                     .Orientation = 0

  1033.                     .AddIndent = False

  1034.                     .IndentLevel = 0

  1035.                     .ShrinkToFit = False

  1036.                     .ReadingOrder = xlContext

  1037.                     .MergeCells = False

  1038.                 End With

  1039.                 myExcel.Selection.Merge

  1040.                 If 顯示單據_cb.Checked = True Then

  1041.                     xlSheet.Range("D" & i & ":F" & i).Select()

  1042. 

  1043.                     With myExcel.Selection

  1044.                         .HorizontalAlignment = xlLeft

  1045.                         .VerticalAlignment = xlCenter

  1046.                         .WrapText = True

  1047.                         .Orientation = 0

  1048.                         .AddIndent = False

  1049.                         .IndentLevel = 0

  1050.                         .ShrinkToFit = False

  1051.                         .ReadingOrder = xlContext

  1052.                         .MergeCells = False

  1053.                     End With

  1054.                     myExcel.Selection.Merge

  1055.                     xlSheet.Range("G" & i).Select()

  1056. 

  1057.                     With myExcel.Selection

  1058.                         .HorizontalAlignment = xlCenter

  1059.                         .VerticalAlignment = xlCenter

  1060.                         .WrapText = False

  1061.                         .Orientation = 0

  1062.                         .AddIndent = False

  1063.                         .IndentLevel = 0

  1064.                         .ShrinkToFit = False

  1065.                         .ReadingOrder = xlContext

  1066.                         .MergeCells = False

  1067.                     End With

  1068.                 Else

  1069. 

  1070. 

  1071.                     xlSheet.Range("D" & i & ":G" & i).Select()

  1072. 

  1073.                     With myExcel.Selection

  1074.                         .HorizontalAlignment = xlLeft

  1075.                         .VerticalAlignment = xlCenter

  1076.                         .WrapText = True

  1077.                         .Orientation = 0

  1078.                         .AddIndent = False

  1079.                         .IndentLevel = 0

  1080.                         .ShrinkToFit = False

  1081.                         .ReadingOrder = xlContext

  1082.                         .MergeCells = False

  1083.                     End With

  1084.                     myExcel.Selection.Merge

  1085.                 End If

  1086. 

  1087.             End If

  1088. 

  1089. 

  1090.             xlSheet.Range("I" & i).Select()

  1091. 

  1092.             With myExcel.Selection

  1093.                 .HorizontalAlignment = xlRight

  1094.                 .VerticalAlignment = xlCenter

  1095.                 .WrapText = False

  1096.                 .Orientation = 0

  1097.                 .AddIndent = False

  1098.                 .IndentLevel = 0

  1099.                 .ShrinkToFit = False

  1100.                 .ReadingOrder = xlContext

  1101.                 .MergeCells = False

  1102.             End With

  1103.             myExcel.Selection.Merge

  1104.             xlSheet.Rows(i).AutoFit

  1105.             xlSheet.Rows(i).RowHeight = xlSheet.Rows(i).RowHeight + 5

  1106.             xlSheet.Range("K" & i).Value = ""

  1107. 

  1108.         Next i

  1109. 

  1110.         xlSheet.Range("B" & N2 + 1 & ":H" & N2 + 1).Select()

  1111. 

  1112.         With myExcel.Selection

  1113.             .HorizontalAlignment = xlRight

  1114.             .VerticalAlignment = xlCenter

  1115.             .WrapText = False

  1116.             .Orientation = 0

  1117.             .AddIndent = False

  1118.             .IndentLevel = 0

  1119.             .ShrinkToFit = False

  1120.             .ReadingOrder = xlContext

  1121.             .MergeCells = False

  1122.         End With

  1123.         myExcel.Selection.Merge

  1124. 

  1125.         xlSheet.Range("I" & N2 + 1).Select()

  1126. 

  1127.         With myExcel.Selection

  1128.             .HorizontalAlignment = xlRight

  1129.             .VerticalAlignment = xlCenter

  1130.             .WrapText = False

  1131.             .Orientation = 0

  1132.             .AddIndent = False

  1133.             .IndentLevel = 0

  1134.             .ShrinkToFit = False

  1135.             .ReadingOrder = xlContext

  1136.             .MergeCells = False

  1137.         End With

  1138.         'myExcel.Selection.Merge

  1139. 

  1140.         xlSheet.Rows(N2 + 1).AutoFit

  1141.         xlSheet.Rows(N2 + 1).RowHeight = xlSheet.Rows(N2 + 1).RowHeight + 3

  1142. 

  1143.         xlSheet.Range("A" & N2 + 2 & ":B" & N2 + 2).Select()

  1144. 

  1145.         With myExcel.Selection

  1146.             .HorizontalAlignment = xlCenter

  1147.             .VerticalAlignment = xlCenter

  1148.             .WrapText = False

  1149.             .Orientation = 0

  1150.             .AddIndent = False

  1151.             .IndentLevel = 0

  1152.             .ShrinkToFit = False

  1153.             .ReadingOrder = xlContext

  1154.             .MergeCells = False

  1155.         End With

  1156.         myExcel.Selection.Merge

  1157. 

  1158.         xlSheet.Range("G" & N2 + 2 & ":H" & N2 + 2).Select()

  1159. 

  1160.         With myExcel.Selection

  1161.             .HorizontalAlignment = xlCenter

  1162.             .VerticalAlignment = xlCenter

  1163.             .WrapText = False

  1164.             .Orientation = 0

  1165.             .AddIndent = False

  1166.             .IndentLevel = 0

  1167.             .ShrinkToFit = False

  1168.             .ReadingOrder = xlContext

  1169.             .MergeCells = False

  1170.         End With

  1171.         myExcel.Selection.Merge

  1172. 

  1173. 

  1174. 

  1175.         xlSheet.Range("I" & N2 + 2 & ":J" & N2 + 2).Select()

  1176. 

  1177.         With myExcel.Selection

  1178.             .HorizontalAlignment = xlCenter

  1179.             .VerticalAlignment = xlCenter

  1180.             .WrapText = False

  1181.             .Orientation = 0

  1182.             .AddIndent = False

  1183.             .IndentLevel = 0

  1184.             .ShrinkToFit = False

  1185.             .ReadingOrder = xlContext

  1186.             .MergeCells = False

  1187.         End With

  1188.         myExcel.Selection.Merge

  1189.         xlSheet.Range("A" & N2 + 3 & ":B" & N2 + 3).Select()

  1190. 

  1191.         With myExcel.Selection

  1192.             .HorizontalAlignment = xlCenter

  1193.             .VerticalAlignment = xlCenter

  1194.             .WrapText = False

  1195.             .Orientation = 0

  1196.             .AddIndent = False

  1197.             .IndentLevel = 0

  1198.             .ShrinkToFit = False

  1199.             .ReadingOrder = xlContext

  1200.             .MergeCells = False

  1201.         End With

  1202.         myExcel.Selection.Merge

  1203. 

  1204.         xlSheet.Range("G" & N2 + 3 & ":H" & N2 + 3).Select()

  1205. 

  1206.         With myExcel.Selection

  1207.             .HorizontalAlignment = xlCenter

  1208.             .VerticalAlignment = xlCenter

  1209.             .WrapText = False

  1210.             .Orientation = 0

  1211.             .AddIndent = False

  1212.             .IndentLevel = 0

  1213.             .ShrinkToFit = False

  1214.             .ReadingOrder = xlContext

  1215.             .MergeCells = False

  1216.         End With

  1217.         myExcel.Selection.Merge

  1218. 

  1219. 

  1220.         xlSheet.Range("I" & N2 + 3 & ":J" & N2 + 3).Select()

  1221. 

  1222.         With myExcel.Selection

  1223.             .HorizontalAlignment = xlCenter

  1224.             .VerticalAlignment = xlCenter

  1225.             .WrapText = False

  1226.             .Orientation = 0

  1227.             .AddIndent = False

  1228.             .IndentLevel = 0

  1229.             .ShrinkToFit = False

  1230.             .ReadingOrder = xlContext

  1231.             .MergeCells = False

  1232.         End With

  1233.         myExcel.Selection.Merge

  1234.         xlSheet.Range("J2:J3").Select()

  1235. 

  1236.         With myExcel.Selection

  1237.             .HorizontalAlignment = xlCenter

  1238.             .VerticalAlignment = xlCenter

  1239.             .WrapText = False

  1240.             .Orientation = 0

  1241.             .AddIndent = False

  1242.             .IndentLevel = 0

  1243.             .ShrinkToFit = False

  1244.             .ReadingOrder = xlContext

  1245.             .MergeCells = False

  1246.         End With

  1247. 

  1248.         xlSheet.Range("C" & N2 + 2 & ":F" & N2 + 2).Select()

  1249. 

  1250.         With myExcel.Selection

  1251.             .HorizontalAlignment = xlCenter

  1252.             .VerticalAlignment = xlCenter

  1253.             .WrapText = False

  1254.             .Orientation = 0

  1255.             .AddIndent = False

  1256.             .IndentLevel = 0

  1257.             .ShrinkToFit = False

  1258.             .ReadingOrder = xlContext

  1259.             .MergeCells = False

  1260.         End With

  1261.         'xlSheet.Columns("K:K").ColumnWidth = 0

  1262.     End Sub

  1263.     Private Sub 公司編號_cb_Click(sender As Object, e As EventArgs) Handles 公司編號_cb.Click

  1264.         CB選擇清單(公司編號_cb, 公司編號_cb.Text)

  1265.     End Sub

  1266. 

  1267. 

  1268.     Private Sub 公司編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 公司編號_cb.SelectedIndexChanged

  1269.         Set_清單1() : Set_清單() : Set_清單2() : 彙總計算() : Set_費用清單()

  1270.     End Sub

  1271. 

  1272. 

  1273.     '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------

  1274.     Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click

  1275.         Set_清單1() : Set_清單() : Set_清單2() : 彙總計算()

  1276.     End Sub

  1277.     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged

  1278.         單據彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)

  1279.         財務彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)

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

  1281.     End Sub

  1282.     Private Sub 支付單列印成EXCEL_MouseEnter(sender As Object, e As EventArgs) Handles 支付單列印成EXCEL.MouseEnter

  1283.         ToolTip1.SetToolTip(Me.支付單列印成EXCEL, "支付單列印成EXCEL")

  1284.     End Sub

  1285. 

  1286.     Private Function 大寫轉換(輸入文本 As String) As String

  1287.         Dim 個位(20), 十位(9), 百位(1), 千位(1), 百萬, 十億, 零, 拾, 百, 仟, 萬, 億, 兆, 答案 As String : Dim 數長 As Integer

  1288.         答案 = "" : 零 = "" : 拾 = "" : 百 = "" : 仟 = "" : 萬 = "" : 百萬 = "" : 億 = "" : 十億 = "" : 兆 = ""

  1289.         個位(0) = "零" : 個位(1) = "壹" : 個位(2) = "貳" : 個位(3) = "參" : 個位(4) = "肆" : 個位(5) = "伍" : 個位(6) = "陸" : 個位(7) = "柒" : 個位(8) = "捌" : 個位(9) = "玖"

  1290.         零 = "零" : 拾 = "拾" : 百 = "百" : 仟 = "仟" : 萬 = "萬" : 億 = "億" : 兆 = "兆"

  1291.         '--------------轉大寫-----------------------------------------------------------

  1292.         Dim 位數(13), 末位數 As String

  1293.         Dim NB As Long = 輸入文本 : Dim NBS As String = NB.ToString() : 數長 = NBS.Length

  1294.         位數(1) = Strings.Left(NBS, 1) : 末位數 = Strings.Right(NBS, 1)

  1295.         If 數長 >= 2 Then : 位數(2) = Strings.Mid(NBS, 2, 1) : End If : If 數長 >= 3 Then : 位數(3) = Strings.Mid(NBS, 3, 1) : End If

  1296.         If 數長 >= 4 Then : 位數(4) = Strings.Mid(NBS, 4, 1) : End If : If 數長 >= 5 Then : 位數(5) = Strings.Mid(NBS, 5, 1) : End If

  1297.         If 數長 >= 6 Then : 位數(6) = Strings.Mid(NBS, 6, 1) : End If : If 數長 >= 7 Then : 位數(7) = Strings.Mid(NBS, 7, 1) : End If

  1298.         If 數長 >= 8 Then : 位數(8) = Strings.Mid(NBS, 8, 1) : End If : If 數長 >= 9 Then : 位數(9) = Strings.Mid(NBS, 9, 1) : End If

  1299.         If 數長 >= 10 Then : 位數(10) = Strings.Mid(NBS, 10, 1) : End If : If 數長 >= 11 Then : 位數(11) = Strings.Mid(NBS, 11, 1) : End If

  1300.         If 數長 >= 12 Then : 位數(12) = Strings.Mid(NBS, 12, 1) : End If : If 數長 >= 13 Then : 位數(13) = Strings.Mid(NBS, 13, 1) : End If

  1301. 

  1302.         If 數長 = 1 Then : 答案 = 個位(輸入文本)

  1303.         ElseIf 數長 = 2 Then

  1304.             If 末位數 = "0" Then : 答案 = 個位(位數(1)) & 拾 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(末位數) : End If

  1305.         ElseIf 數長 = 3 Then : 答案 = 個位(位數(1)) & 百

  1306.             If 位數(2) = "0" And 末位數 = "0" Then

  1307.             ElseIf 位數(2) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1308.             ElseIf 位數(2) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 拾

  1309.             ElseIf 位數(2) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(末位數)

  1310.             End If

  1311.         ElseIf 數長 = 4 Then : 答案 = 個位(位數(1)) & 仟

  1312.             If 位數(2) = "0" And 位數(3) = "0" And 末位數 = "0" Then

  1313.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1314.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(末位數)

  1315.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾

  1316.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 百

  1317.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(末位數)

  1318.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾

  1319.             ElseIf 位數(2) <> "0" And 末位數 <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(末位數)

  1320.             End If

  1321.         ElseIf 數長 = 5 Then : 答案 = 個位(位數(1)) & 萬

  1322.             If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 = "0" Then

  1323.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1324.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾

  1325.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(末位數)

  1326.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百

  1327.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 零 & 個位(末位數)

  1328.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾

  1329.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(末位數)

  1330.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟

  1331.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(末位數)

  1332.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾

  1333.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 個位(末位數)

  1334.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百

  1335.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 零 & 個位(末位數)

  1336.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾

  1337.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(末位數)

  1338.             End If

  1339.         ElseIf 數長 = 6 Then

  1340.             If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 萬 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 萬 : End If

  1341.             If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 = "0" Then

  1342.             ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1343.             ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾

  1344.             ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(末位數)

  1345.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百

  1346.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 零 & 個位(末位數)

  1347.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾

  1348.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(末位數)

  1349.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟

  1350.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(末位數)

  1351.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾

  1352.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 個位(末位數)

  1353.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百

  1354.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 零 & 個位(末位數)

  1355.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾

  1356.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(末位數)

  1357.             End If

  1358.         ElseIf 數長 = 7 Then : 答案 = 個位(位數(1)) & 百

  1359.             If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= 萬

  1360.             ElseIf 位數(2) = "0" And 位數(3) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 萬

  1361.             ElseIf 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= 個位(位數(2)) & 拾 & 萬

  1362.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(位數(3)) & 萬

  1363.             End If

  1364.             If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 = "0" Then

  1365.             ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1366.             ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾

  1367.             ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 個位(末位數)

  1368.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百

  1369.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 零 & 個位(末位數)

  1370.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾

  1371.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(末位數)

  1372.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟

  1373.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(末位數)

  1374.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾

  1375.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 個位(末位數)

  1376.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百

  1377.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 零 & 個位(末位數)

  1378.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾

  1379.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(末位數)

  1380.             End If

  1381.         ElseIf 數長 = 8 Then : 答案 = 個位(位數(1)) & 仟

  1382.             If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 萬

  1383.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 萬

  1384.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 萬

  1385.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 萬

  1386.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 萬

  1387.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(位數(4)) & 萬

  1388.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 萬

  1389.             ElseIf 位數(2) <> "0" And 位數(4) <> "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 萬

  1390.             End If

  1391.             If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 = "0" Then

  1392.             ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1393.             ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾

  1394.             ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 個位(末位數)

  1395.             ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百

  1396.             ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 零 & 個位(末位數)

  1397.             ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾

  1398.             ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(末位數)

  1399.             ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟

  1400.             ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(末位數)

  1401.             ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾

  1402.             ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 個位(末位數)

  1403.             ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百

  1404.             ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 零 & 個位(末位數)

  1405.             ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾

  1406.             ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(末位數)

  1407.             End If

  1408.         ElseIf 數長 = 9 Then : 答案 = 個位(位數(1)) & 億

  1409.             If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then

  1410.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 萬

  1411.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 萬

  1412.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬

  1413.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 萬

  1414.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 萬

  1415.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 萬

  1416.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬

  1417.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 萬

  1418.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(5)) & 萬

  1419.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 萬

  1420.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬

  1421.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 萬

  1422.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 萬

  1423.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 萬

  1424.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(2)) & 仟 & 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 萬

  1425.             End If

  1426.             If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 = "0" Then

  1427.             ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1428.             ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾

  1429.             ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 個位(末位數)

  1430.             ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百

  1431.             ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 零 & 個位(末位數)

  1432.             ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾

  1433.             ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(末位數)

  1434.             ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟

  1435.             ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(末位數)

  1436.             ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾

  1437.             ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 個位(末位數)

  1438.             ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百

  1439.             ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 零 & 個位(末位數)

  1440.             ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾

  1441.             ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(末位數)

  1442.             End If

  1443.         ElseIf 數長 = 10 Then

  1444.             If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 億 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 億 : End If

  1445.             If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then

  1446.             ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 萬

  1447.             ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 萬

  1448.             ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬

  1449.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 萬

  1450.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 萬

  1451.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 萬

  1452.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬

  1453.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 萬

  1454.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(6)) & 萬

  1455.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 萬

  1456.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬

  1457.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 萬

  1458.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 萬

  1459.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 萬

  1460.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(3)) & 仟 & 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 萬

  1461.             End If

  1462.             If 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 = "0" Then

  1463.             ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1464.             ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾

  1465.             ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 個位(末位數)

  1466.             ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百

  1467.             ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 零 & 個位(末位數)

  1468.             ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾

  1469.             ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(末位數)

  1470.             ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟

  1471.             ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(末位數)

  1472.             ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾

  1473.             ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 個位(末位數)

  1474.             ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百

  1475.             ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 零 & 個位(末位數)

  1476.             ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾

  1477.             ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(末位數)

  1478.             End If

  1479.         ElseIf 數長 = 11 Then : 答案 = 個位(位數(1)) & 百

  1480.             If 位數(2) = "0" And 位數(3) = "0" Then : 答案 &= 億

  1481.             ElseIf 位數(2) = "0" And 位數(3) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 億

  1482.             ElseIf 位數(2) <> "0" And 位數(3) = "0" Then : 答案 &= 個位(位數(2)) & 拾 & 億

  1483.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" Then : 答案 &= 個位(位數(2)) & 拾 & 個位(位數(3)) & 億

  1484.             End If

  1485.             If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then

  1486.             ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 萬

  1487.             ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 萬

  1488.             ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬

  1489.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 萬

  1490.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 零 & 個位(位數(7)) & 萬

  1491.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 萬

  1492.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬

  1493.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 萬

  1494.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(7)) & 萬

  1495.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 萬

  1496.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 零 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬

  1497.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 萬

  1498.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 零 & 個位(位數(7)) & 萬

  1499.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 萬

  1500.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" Then : 答案 &= 個位(位數(4)) & 仟 & 個位(位數(5)) & 百 & 個位(位數(6)) & 拾 & 個位(位數(7)) & 萬

  1501.             End If

  1502.             If 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 = "0" Then

  1503.             ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1504.             ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 拾

  1505.             ElseIf 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 拾 & 個位(末位數)

  1506.             ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 百

  1507.             ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 零 & 個位(末位數)

  1508.             ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾

  1509.             ElseIf 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾 & 個位(末位數)

  1510.             ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟

  1511.             ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(末位數)

  1512.             ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(位數(10)) & 拾

  1513.             ElseIf 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 零 & 個位(位數(10)) & 拾 & 個位(末位數)

  1514.             ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百

  1515.             ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 零 & 個位(末位數)

  1516.             ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾

  1517.             ElseIf 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(8)) & 仟 & 個位(位數(9)) & 百 & 個位(位數(10)) & 拾 & 個位(末位數)

  1518.             End If

  1519.         ElseIf 數長 = 12 Then : 答案 = 個位(位數(1)) & 仟

  1520.             If 位數(2) = "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 億

  1521.             ElseIf 位數(2) = "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 億

  1522.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) <> "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 億

  1523.             ElseIf 位數(2) = "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 零 & 個位(位數(3)) & 拾 & 億

  1524.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 億

  1525.             ElseIf 位數(2) <> "0" And 位數(3) = "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 零 & 個位(位數(4)) & 億

  1526.             ElseIf 位數(2) <> "0" And 位數(3) <> "0" And 位數(4) = "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 億

  1527.             ElseIf 位數(2) <> "0" And 位數(4) <> "0" And 位數(4) <> "0" Then : 答案 &= 個位(位數(2)) & 百 & 個位(位數(3)) & 拾 & 個位(位數(4)) & 億

  1528.             End If

  1529.             If 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then

  1530.             ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 萬

  1531.             ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 萬

  1532.             ElseIf 位數(5) = "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬

  1533.             ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 萬

  1534.             ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 零 & 個位(位數(8)) & 萬

  1535.             ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 萬

  1536.             ElseIf 位數(5) = "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬

  1537.             ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 萬

  1538.             ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(8)) & 萬

  1539.             ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 萬

  1540.             ElseIf 位數(5) <> "0" And 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 零 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬

  1541.             ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 萬

  1542.             ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 零 & 個位(位數(8)) & 萬

  1543.             ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 萬

  1544.             ElseIf 位數(5) <> "0" And 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" Then : 答案 &= 個位(位數(5)) & 仟 & 個位(位數(6)) & 百 & 個位(位數(7)) & 拾 & 個位(位數(8)) & 萬

  1545.             End If

  1546.             If 位數(9) = "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 = "0" Then

  1547.             ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1548.             ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 拾

  1549.             ElseIf 位數(9) = "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 拾 & 個位(末位數)

  1550.             ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 百

  1551.             ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 零 & 個位(末位數)

  1552.             ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾

  1553.             ElseIf 位數(9) = "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾 & 個位(末位數)

  1554.             ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟

  1555.             ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(末位數)

  1556.             ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(位數(11)) & 拾

  1557.             ElseIf 位數(9) <> "0" And 位數(10) = "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 零 & 個位(位數(11)) & 拾 & 個位(末位數)

  1558.             ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百

  1559.             ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 零 & 個位(末位數)

  1560.             ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾

  1561.             ElseIf 位數(9) <> "0" And 位數(10) <> "0" And 位數(11) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(9)) & 仟 & 個位(位數(10)) & 百 & 個位(位數(11)) & 拾 & 個位(末位數)

  1562.             End If

  1563.         ElseIf 數長 = 13 Then : 答案 = 個位(位數(1)) & 兆 : 答案 &= 個位(位數(2)) & 仟

  1564.             If 位數(3) = "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 億

  1565.             ElseIf 位數(3) = "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 億

  1566.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) <> "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 億

  1567.             ElseIf 位數(3) = "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 零 & 個位(位數(4)) & 拾 & 億

  1568.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(3)) & 百 & 億

  1569.             ElseIf 位數(3) <> "0" And 位數(4) = "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(3)) & 百 & 零 & 個位(位數(5)) & 億

  1570.             ElseIf 位數(3) <> "0" And 位數(4) <> "0" And 位數(5) = "0" Then : 答案 &= 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 億

  1571.             ElseIf 位數(3) <> "0" And 位數(5) <> "0" And 位數(5) <> "0" Then : 答案 &= 個位(位數(3)) & 百 & 個位(位數(4)) & 拾 & 個位(位數(5)) & 億

  1572.             End If

  1573.             If 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" Then

  1574.             ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 萬

  1575.             ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 萬

  1576.             ElseIf 位數(6) = "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬

  1577.             ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 萬

  1578.             ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 零 & 個位(位數(9)) & 萬

  1579.             ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 萬

  1580.             ElseIf 位數(6) = "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 零 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬

  1581.             ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 萬

  1582.             ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(9)) & 萬

  1583.             ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 萬

  1584.             ElseIf 位數(6) <> "0" And 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 零 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬

  1585.             ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 萬

  1586.             ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 零 & 個位(位數(9)) & 萬

  1587.             ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 萬

  1588.             ElseIf 位數(6) <> "0" And 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" Then : 答案 &= 個位(位數(6)) & 仟 & 個位(位數(7)) & 百 & 個位(位數(8)) & 拾 & 個位(位數(9)) & 萬

  1589.             End If

  1590.             If 位數(10) = "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 = "0" Then

  1591.             ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1592.             ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 拾

  1593.             ElseIf 位數(10) = "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 拾 & 個位(末位數)

  1594.             ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 百

  1595.             ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 零 & 個位(末位數)

  1596.             ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾

  1597.             ElseIf 位數(10) = "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾 & 個位(末位數)

  1598.             ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟

  1599.             ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(末位數)

  1600.             ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(位數(12)) & 拾

  1601.             ElseIf 位數(10) <> "0" And 位數(11) = "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 零 & 個位(位數(12)) & 拾 & 個位(末位數)

  1602.             ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百

  1603.             ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 零 & 個位(末位數)

  1604.             ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾

  1605.             ElseIf 位數(10) <> "0" And 位數(11) <> "0" And 位數(12) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(10)) & 仟 & 個位(位數(11)) & 百 & 個位(位數(12)) & 拾 & 個位(末位數)

  1606.             End If

  1607.         ElseIf 數長 = 14 Then

  1608.             If 位數(2) = "0" Then : 答案 = 個位(位數(1)) & 拾 & 兆 : Else : 答案 = 個位(位數(1)) & 拾 & 個位(位數(2)) & 兆 : End If : 答案 &= 個位(位數(3)) & 仟

  1609.             If 位數(4) = "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 億

  1610.             ElseIf 位數(4) = "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(6)) & 億

  1611.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) <> "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 億

  1612.             ElseIf 位數(4) = "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 零 & 個位(位數(5)) & 拾 & 億

  1613.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(4)) & 百 & 億

  1614.             ElseIf 位數(4) <> "0" And 位數(5) = "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(4)) & 百 & 零 & 個位(位數(6)) & 億

  1615.             ElseIf 位數(4) <> "0" And 位數(5) <> "0" And 位數(6) = "0" Then : 答案 &= 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 億

  1616.             ElseIf 位數(4) <> "0" And 位數(6) <> "0" And 位數(6) <> "0" Then : 答案 &= 個位(位數(4)) & 百 & 個位(位數(5)) & 拾 & 個位(位數(6)) & 億

  1617.             End If

  1618.             If 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" Then

  1619.             ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(10)) & 萬

  1620.             ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 萬

  1621.             ElseIf 位數(7) = "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬

  1622.             ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 萬

  1623.             ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 零 & 個位(位數(10)) & 萬

  1624.             ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 萬

  1625.             ElseIf 位數(7) = "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 零 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬

  1626.             ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 萬

  1627.             ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(10)) & 萬

  1628.             ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 萬

  1629.             ElseIf 位數(7) <> "0" And 位數(8) = "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 零 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬

  1630.             ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 萬

  1631.             ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) = "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 零 & 個位(位數(10)) & 萬

  1632.             ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) = "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 萬

  1633.             ElseIf 位數(7) <> "0" And 位數(8) <> "0" And 位數(9) <> "0" And 位數(10) <> "0" Then : 答案 &= 個位(位數(7)) & 仟 & 個位(位數(8)) & 百 & 個位(位數(9)) & 拾 & 個位(位數(10)) & 萬

  1634.             End If

  1635.             If 位數(11) = "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 = "0" Then

  1636.             ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(末位數)

  1637.             ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(13)) & 拾

  1638.             ElseIf 位數(11) = "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(13)) & 拾 & 個位(末位數)

  1639.             ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 百

  1640.             ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 零 & 個位(末位數)

  1641.             ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾

  1642.             ElseIf 位數(11) = "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 零 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾 & 個位(末位數)

  1643.             ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟

  1644.             ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(末位數)

  1645.             ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(位數(13)) & 拾

  1646.             ElseIf 位數(11) <> "0" And 位數(12) = "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 零 & 個位(位數(13)) & 拾 & 個位(末位數)

  1647.             ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百

  1648.             ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) = "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 零 & 個位(末位數)

  1649.             ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 = "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾

  1650.             ElseIf 位數(11) <> "0" And 位數(12) <> "0" And 位數(13) <> "0" And 末位數 <> "0" Then : 答案 &= 個位(位數(11)) & 仟 & 個位(位數(12)) & 百 & 個位(位數(13)) & 拾 & 個位(末位數)

  1651.             End If

  1652.         End If

  1653. 

  1654.         Return 答案

  1655. 

  1656.     End Function

  1657. End Class