1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957 |
- Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
- Imports Microsoft.Office.Interop.Excel.Constants
- Imports Microsoft.Office.Interop.Excel.XlBordersIndex
- Imports Microsoft.Office.Interop.Excel.XlLineStyle
- Imports Microsoft.Office.Interop.Excel.XlBorderWeight
- Imports Microsoft.Office.Interop.Excel.XlThemeFont
- Imports Microsoft.Office.Interop.Excel.XlThemeColor
- Imports Microsoft.Office.Interop.Excel.XlWindowState
- Imports Microsoft.Office.Interop.Excel.XlPageOrientation
- Imports Microsoft.Office.Interop.Excel
- Public Class 排班資料
- Dim 星期 As String : Dim 天數, 總時數, 列高, 列高1, 欄寬1, 欄寬2 As Integer
- Dim 首次開啟 As Boolean : Dim 位置, 位置1, 位置2, 位置3, 位置4, 位置5, 位置6 As Integer
- Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
- Private Sub 年份_下拉表單資料載入()
- SQL_考勤明細表_年份_下拉()
- 年份_cb.Items.Clear()
- While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While
- conn.Close()
- End Sub
- Private Sub 讀取排班()
- Dim ds43 As New DataSet : 人員彙總_dgv.DataSource = Nothing : ds43.Clear()
- 人員彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 人員彙總_dgv.ColumnHeadersHeight = 45 : 人員彙總_dgv.AllowUserToAddRows = False : 人員彙總_dgv.RowTemplate.Height = 30
- SQL_排班系統_人員排班()
- da.Fill(ds43) : 人員彙總_dgv.DataSource = ds43.Tables(0) : conn.Close()
- 人員彙總_dgv.Columns(0).ReadOnly = True : 人員彙總_dgv.Columns(1).ReadOnly = True : 人員彙總_dgv.Columns(2).ReadOnly = True
- 人員彙總_dgv.Columns(3).ReadOnly = True : 人員彙總_dgv.Columns(4).ReadOnly = True : 人員彙總_dgv.Columns(5).ReadOnly = True
- 人員彙總_dgv.Columns(1).FillWeight = 80 : 人員彙總_dgv.Columns(5).FillWeight = 80
-
- 人員彙總_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 人員彙總_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- 人員彙總_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 人員彙總_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- 人員彙總_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.0" : 人員彙總_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- 人員彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.0" : 人員彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- 人員彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" : 人員彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- End Sub
- Private Sub 讀取日期()
- Dim ds As New DataSet : 日期_dgv.DataSource = Nothing : ds.Clear()
- 日期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 日期_dgv.ColumnHeadersHeight = 25 : 日期_dgv.AllowUserToAddRows = False
- SQL_排班系統_月份()
- da.Fill(ds) : 日期_dgv.DataSource = ds.Tables(0) : conn.Close()
- End Sub
- Private Sub 讀取班別1()
- Dim ds1 As New DataSet : DataGridView1.DataSource = Nothing : ds1.Clear()
- DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView1.ColumnHeadersHeight = 列高1 : DataGridView1.AllowUserToAddRows = False : DataGridView1.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds1) : DataGridView1.DataSource = ds1.Tables(0) : conn.Close()
- DataGridView1.Columns(0).FillWeight = 欄寬1 : DataGridView1.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView1.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView1(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView1(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別2()
- Dim ds2 As New DataSet : DataGridView2.DataSource = Nothing : ds2.Clear()
- DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView2.ColumnHeadersHeight = 列高1 : DataGridView2.AllowUserToAddRows = False : DataGridView2.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds2) : DataGridView2.DataSource = ds2.Tables(0) : conn.Close()
- DataGridView2.Columns(0).FillWeight = 欄寬1 : DataGridView2.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView2.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView2(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView2(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別3()
- Dim ds3 As New DataSet : DataGridView3.DataSource = Nothing : ds3.Clear()
- DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView3.ColumnHeadersHeight = 列高1 : DataGridView3.AllowUserToAddRows = False : DataGridView3.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds3) : DataGridView3.DataSource = ds3.Tables(0) : conn.Close()
- DataGridView3.Columns(0).FillWeight = 欄寬1 : DataGridView3.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView3_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView3.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView3.Rows.Count - 1 Then : Exit Sub : Else
- PA = Strings.Mid(DataGridView3(0, e.RowIndex).Value.ToString, 4, 1)
- If Strings.Mid(DataGridView3(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView3(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView3.RowHeadersVisible, DataGridView3.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView3.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView3.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別4()
- Dim ds4 As New DataSet : DataGridView4.DataSource = Nothing : ds4.Clear()
- DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView4.ColumnHeadersHeight = 列高1 : DataGridView4.AllowUserToAddRows = False : DataGridView4.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds4) : DataGridView4.DataSource = ds4.Tables(0) : conn.Close()
- DataGridView4.Columns(0).FillWeight = 欄寬1 : DataGridView4.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView4_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView4.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView4.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView4(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView4(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView4.RowHeadersVisible, DataGridView4.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView4.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView4.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別5()
- Dim ds5 As New DataSet : DataGridView5.DataSource = Nothing : ds5.Clear()
- DataGridView5.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView5.ColumnHeadersHeight = 列高1 : DataGridView5.AllowUserToAddRows = False : DataGridView5.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds5) : DataGridView5.DataSource = ds5.Tables(0) : conn.Close()
- DataGridView5.Columns(0).FillWeight = 欄寬1 : DataGridView5.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView5_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView5.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView5.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView5(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView5(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView5.RowHeadersVisible, DataGridView5.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView5.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView5.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別6()
- Dim ds6 As New DataSet : DataGridView6.DataSource = Nothing : ds6.Clear()
- DataGridView6.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView6.ColumnHeadersHeight = 列高1 : DataGridView6.AllowUserToAddRows = False : DataGridView6.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds6) : DataGridView6.DataSource = ds6.Tables(0) : conn.Close()
- DataGridView6.Columns(0).FillWeight = 欄寬1 : DataGridView6.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView6_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView6.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView6.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView6(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView6(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView6.RowHeadersVisible, DataGridView6.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView6.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView6.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別7()
- Dim ds7 As New DataSet : DataGridView7.DataSource = Nothing : ds7.Clear()
- DataGridView7.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView7.ColumnHeadersHeight = 列高1 : DataGridView7.AllowUserToAddRows = False : DataGridView7.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds7) : DataGridView7.DataSource = ds7.Tables(0) : conn.Close()
- DataGridView7.Columns(0).FillWeight = 欄寬1 : DataGridView7.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView7_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView7.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView7.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView7(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView7(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView7.RowHeadersVisible, DataGridView7.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView7.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView7.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別8()
- Dim ds8 As New DataSet : DataGridView8.DataSource = Nothing : ds8.Clear()
- DataGridView8.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView8.ColumnHeadersHeight = 列高1 : DataGridView8.AllowUserToAddRows = False : DataGridView8.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds8) : DataGridView8.DataSource = ds8.Tables(0) : conn.Close()
- DataGridView8.Columns(0).FillWeight = 欄寬1 : DataGridView8.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView8_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView8.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView8.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView8(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView8(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView8.RowHeadersVisible, DataGridView8.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView8.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView8.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別9()
- Dim ds9 As New DataSet : DataGridView9.DataSource = Nothing : ds9.Clear()
- DataGridView9.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView9.ColumnHeadersHeight = 列高1 : DataGridView9.AllowUserToAddRows = False : DataGridView9.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds9) : DataGridView9.DataSource = ds9.Tables(0) : conn.Close()
- DataGridView9.Columns(0).FillWeight = 欄寬1 : DataGridView9.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView9_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView9.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView9.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView9(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView9(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView9.RowHeadersVisible, DataGridView9.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView9.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView9.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別10()
- Dim ds10 As New DataSet : DataGridView10.DataSource = Nothing : ds10.Clear()
- DataGridView10.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView10.ColumnHeadersHeight = 列高1 : DataGridView10.AllowUserToAddRows = False : DataGridView10.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds10) : DataGridView10.DataSource = ds10.Tables(0) : conn.Close()
- DataGridView10.Columns(0).FillWeight = 欄寬1 : DataGridView10.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView10_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView10.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView10.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView10(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView10(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView10.RowHeadersVisible, DataGridView10.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView10.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView10.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別11()
- Dim ds11 As New DataSet : DataGridView11.DataSource = Nothing : ds11.Clear()
- DataGridView11.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView11.ColumnHeadersHeight = 列高1 : DataGridView11.AllowUserToAddRows = False : DataGridView11.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds11) : DataGridView11.DataSource = ds11.Tables(0) : conn.Close()
- DataGridView11.Columns(0).FillWeight = 欄寬1 : DataGridView11.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView11_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView11.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView11.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView11(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView11(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView11.RowHeadersVisible, DataGridView11.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView11.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView11.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別12()
- Dim ds12 As New DataSet : DataGridView12.DataSource = Nothing : ds12.Clear()
- DataGridView12.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView12.ColumnHeadersHeight = 列高1 : DataGridView12.AllowUserToAddRows = False : DataGridView12.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds12) : DataGridView12.DataSource = ds12.Tables(0) : conn.Close()
- DataGridView12.Columns(0).FillWeight = 欄寬1 : DataGridView12.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView12_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView12.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView12.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView12(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView12(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView12.RowHeadersVisible, DataGridView12.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView12.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView12.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別13()
- Dim ds13 As New DataSet : DataGridView13.DataSource = Nothing : ds13.Clear()
- DataGridView13.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView13.ColumnHeadersHeight = 列高1 : DataGridView13.AllowUserToAddRows = False : DataGridView13.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds13) : DataGridView13.DataSource = ds13.Tables(0) : conn.Close()
- DataGridView13.Columns(0).FillWeight = 欄寬1 : DataGridView13.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView13_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView13.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView13.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView13(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView13(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView13.RowHeadersVisible, DataGridView13.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView13.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView13.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別14()
- Dim ds14 As New DataSet : DataGridView14.DataSource = Nothing : ds14.Clear()
- DataGridView14.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView14.ColumnHeadersHeight = 列高1 : DataGridView14.AllowUserToAddRows = False : DataGridView14.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds14) : DataGridView14.DataSource = ds14.Tables(0) : conn.Close()
- DataGridView14.Columns(0).FillWeight = 欄寬1 : DataGridView14.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView14_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView14.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView14.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView14(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView14(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView14.RowHeadersVisible, DataGridView14.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView14.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView14.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別15()
- Dim ds15 As New DataSet : DataGridView15.DataSource = Nothing : ds15.Clear()
- DataGridView15.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView15.ColumnHeadersHeight = 列高1 : DataGridView15.AllowUserToAddRows = False : DataGridView15.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds15) : DataGridView15.DataSource = ds15.Tables(0) : conn.Close()
- DataGridView15.Columns(0).FillWeight = 欄寬1 : DataGridView15.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView15_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView15.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView15.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView15(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView15(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView15.RowHeadersVisible, DataGridView15.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView15.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView15.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別16()
- Dim ds16 As New DataSet : DataGridView16.DataSource = Nothing : ds16.Clear()
- DataGridView16.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView16.ColumnHeadersHeight = 列高1 : DataGridView16.AllowUserToAddRows = False : DataGridView16.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds16) : DataGridView16.DataSource = ds16.Tables(0) : conn.Close()
- DataGridView16.Columns(0).FillWeight = 欄寬1 : DataGridView16.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView16_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView16.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView16.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView16(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView16(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView16.RowHeadersVisible, DataGridView16.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView16.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView16.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別17()
- Dim ds17 As New DataSet : DataGridView17.DataSource = Nothing : ds17.Clear()
- DataGridView17.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView17.ColumnHeadersHeight = 列高1 : DataGridView17.AllowUserToAddRows = False : DataGridView17.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds17) : DataGridView17.DataSource = ds17.Tables(0) : conn.Close()
- DataGridView17.Columns(0).FillWeight = 欄寬1 : DataGridView17.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView17_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView17.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView17.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView17(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView17(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView17.RowHeadersVisible, DataGridView17.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView17.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView17.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別18()
- Dim ds18 As New DataSet : DataGridView18.DataSource = Nothing : ds18.Clear()
- DataGridView18.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView18.ColumnHeadersHeight = 列高1 : DataGridView18.AllowUserToAddRows = False : DataGridView18.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds18) : DataGridView18.DataSource = ds18.Tables(0) : conn.Close()
- DataGridView18.Columns(0).FillWeight = 欄寬1 : DataGridView18.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView18_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView18.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView18.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView18(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView18(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView18.RowHeadersVisible, DataGridView18.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView18.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView18.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別19()
- Dim ds19 As New DataSet : DataGridView19.DataSource = Nothing : ds19.Clear()
- DataGridView19.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView19.ColumnHeadersHeight = 列高1 : DataGridView19.AllowUserToAddRows = False : DataGridView19.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds19) : DataGridView19.DataSource = ds19.Tables(0) : conn.Close()
- DataGridView19.Columns(0).FillWeight = 欄寬1 : DataGridView19.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView19_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView19.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView19.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView19(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView19(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView19.RowHeadersVisible, DataGridView19.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView19.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView19.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別20()
- Dim ds20 As New DataSet : DataGridView20.DataSource = Nothing : ds20.Clear()
- DataGridView20.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView20.ColumnHeadersHeight = 列高1 : DataGridView20.AllowUserToAddRows = False : DataGridView20.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds20) : DataGridView20.DataSource = ds20.Tables(0) : conn.Close()
- DataGridView20.Columns(0).FillWeight = 欄寬1 : DataGridView20.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView20_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView20.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView20.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView20(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView20(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView20.RowHeadersVisible, DataGridView20.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView20.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView20.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別21()
- Dim ds21 As New DataSet : DataGridView21.DataSource = Nothing : ds21.Clear()
- DataGridView21.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView21.ColumnHeadersHeight = 列高1 : DataGridView21.AllowUserToAddRows = False : DataGridView21.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds21) : DataGridView21.DataSource = ds21.Tables(0) : conn.Close()
- DataGridView21.Columns(0).FillWeight = 欄寬1 : DataGridView21.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView21_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView21.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView21.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView21(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView21(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView21.RowHeadersVisible, DataGridView21.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView21.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView21.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別22()
- Dim ds22 As New DataSet : DataGridView22.DataSource = Nothing : ds22.Clear()
- DataGridView22.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView22.ColumnHeadersHeight = 列高1 : DataGridView22.AllowUserToAddRows = False : DataGridView22.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds22) : DataGridView22.DataSource = ds22.Tables(0) : conn.Close()
- DataGridView22.Columns(0).FillWeight = 欄寬1 : DataGridView22.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView22_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView22.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView22.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView22(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView22(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView22.RowHeadersVisible, DataGridView22.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView22.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView22.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別23()
- Dim ds23 As New DataSet : DataGridView23.DataSource = Nothing : ds23.Clear()
- DataGridView23.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView23.ColumnHeadersHeight = 列高1 : DataGridView23.AllowUserToAddRows = False : DataGridView23.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds23) : DataGridView23.DataSource = ds23.Tables(0) : conn.Close()
- DataGridView23.Columns(0).FillWeight = 欄寬1 : DataGridView23.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView23_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView23.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView23.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView23(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView23(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView23.RowHeadersVisible, DataGridView23.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView23.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView23.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別24()
- Dim ds24 As New DataSet : DataGridView24.DataSource = Nothing : ds24.Clear()
- DataGridView24.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView24.ColumnHeadersHeight = 列高1 : DataGridView24.AllowUserToAddRows = False : DataGridView24.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds24) : DataGridView24.DataSource = ds24.Tables(0) : conn.Close()
- DataGridView24.Columns(0).FillWeight = 欄寬1 : DataGridView24.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView24_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView24.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView24.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView24(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView24(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView24.RowHeadersVisible, DataGridView24.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView24.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView24.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別25()
- Dim ds25 As New DataSet : DataGridView25.DataSource = Nothing : ds25.Clear()
- DataGridView25.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView25.ColumnHeadersHeight = 列高1 : DataGridView25.AllowUserToAddRows = False : DataGridView25.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds25) : DataGridView25.DataSource = ds25.Tables(0) : conn.Close()
- DataGridView25.Columns(0).FillWeight = 欄寬1 : DataGridView25.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView25_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView25.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView25.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView25(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView25(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView25.RowHeadersVisible, DataGridView25.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView25.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView25.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別26()
- Dim ds26 As New DataSet : DataGridView26.DataSource = Nothing : ds26.Clear()
- DataGridView26.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView26.ColumnHeadersHeight = 列高1 : DataGridView26.AllowUserToAddRows = False : DataGridView26.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds26) : DataGridView26.DataSource = ds26.Tables(0) : conn.Close()
- DataGridView26.Columns(0).FillWeight = 欄寬1 : DataGridView26.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView26_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView26.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView26.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView26(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView26(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView26.RowHeadersVisible, DataGridView26.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView26.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView26.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別27()
- Dim ds27 As New DataSet : DataGridView27.DataSource = Nothing : ds27.Clear()
- DataGridView27.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView27.ColumnHeadersHeight = 列高1 : DataGridView27.AllowUserToAddRows = False : DataGridView27.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds27) : DataGridView27.DataSource = ds27.Tables(0) : conn.Close()
- DataGridView27.Columns(0).FillWeight = 欄寬1 : DataGridView27.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView27_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView27.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView27.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView27(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView27(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView27.RowHeadersVisible, DataGridView27.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView27.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView27.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別28()
- Dim ds28 As New DataSet : DataGridView28.DataSource = Nothing : ds28.Clear()
- DataGridView28.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView28.ColumnHeadersHeight = 列高1 : DataGridView28.AllowUserToAddRows = False : DataGridView28.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds28) : DataGridView28.DataSource = ds28.Tables(0) : conn.Close()
- DataGridView28.Columns(0).FillWeight = 欄寬1 : DataGridView28.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView28_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView28.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView28.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView28(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView28(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView28.RowHeadersVisible, DataGridView28.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView28.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView28.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別29()
- Dim ds29 As New DataSet : DataGridView29.DataSource = Nothing : ds29.Clear()
- DataGridView29.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView29.ColumnHeadersHeight = 列高1 : DataGridView29.AllowUserToAddRows = False : DataGridView29.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds29) : DataGridView29.DataSource = ds29.Tables(0) : conn.Close()
- DataGridView29.Columns(0).FillWeight = 欄寬1 : DataGridView29.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView29_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView29.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView29.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView29(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView29(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView29.RowHeadersVisible, DataGridView29.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView29.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView29.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別30()
- Dim ds30 As New DataSet : DataGridView30.DataSource = Nothing : ds30.Clear()
- DataGridView30.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView30.ColumnHeadersHeight = 列高1 : DataGridView30.AllowUserToAddRows = False : DataGridView30.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds30) : DataGridView30.DataSource = ds30.Tables(0) : conn.Close()
- DataGridView30.Columns(0).FillWeight = 欄寬1 : DataGridView30.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView30_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView30.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView30.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView30(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView30(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView30.RowHeadersVisible, DataGridView30.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView30.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView30.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別31()
- Dim ds31 As New DataSet : DataGridView31.DataSource = Nothing : ds31.Clear()
- DataGridView31.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView31.ColumnHeadersHeight = 列高1 : DataGridView31.AllowUserToAddRows = False : DataGridView31.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds31) : DataGridView31.DataSource = ds31.Tables(0) : conn.Close()
- DataGridView31.Columns(0).FillWeight = 欄寬1 : DataGridView31.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView31_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView31.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView31.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView31(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView31(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView31.RowHeadersVisible, DataGridView31.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView31.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView31.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別32()
- Dim ds32 As New DataSet : DataGridView32.DataSource = Nothing : ds32.Clear()
- DataGridView32.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView32.ColumnHeadersHeight = 列高1 : DataGridView32.AllowUserToAddRows = False : DataGridView32.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds32) : DataGridView32.DataSource = ds32.Tables(0) : conn.Close()
- DataGridView32.Columns(0).FillWeight = 欄寬1 : DataGridView32.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView32_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView32.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView32.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView32(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView32(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView32.RowHeadersVisible, DataGridView32.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView32.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView32.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別33()
- Dim ds33 As New DataSet : DataGridView33.DataSource = Nothing : ds33.Clear()
- DataGridView33.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView33.ColumnHeadersHeight = 列高1 : DataGridView33.AllowUserToAddRows = False : DataGridView33.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds33) : DataGridView33.DataSource = ds33.Tables(0) : conn.Close()
- DataGridView33.Columns(0).FillWeight = 欄寬1 : DataGridView33.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView33_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView33.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView33.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView33(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView33(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView33.RowHeadersVisible, DataGridView33.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView33.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView33.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別34()
- Dim ds34 As New DataSet : DataGridView34.DataSource = Nothing : ds34.Clear()
- DataGridView34.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView34.ColumnHeadersHeight = 列高1 : DataGridView34.AllowUserToAddRows = False : DataGridView34.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds34) : DataGridView34.DataSource = ds34.Tables(0) : conn.Close()
- DataGridView34.Columns(0).FillWeight = 欄寬1 : DataGridView34.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView34_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView34.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView34.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView34(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView34(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView34.RowHeadersVisible, DataGridView34.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView34.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView34.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別35()
- Dim ds35 As New DataSet : DataGridView35.DataSource = Nothing : ds35.Clear()
- DataGridView35.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView35.ColumnHeadersHeight = 列高1 : DataGridView35.AllowUserToAddRows = False : DataGridView35.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds35) : DataGridView35.DataSource = ds35.Tables(0) : conn.Close()
- DataGridView35.Columns(0).FillWeight = 欄寬1 : DataGridView35.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView35_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView35.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView35.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView35(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView35(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView35.RowHeadersVisible, DataGridView35.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView35.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView35.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別36()
- Dim ds36 As New DataSet : DataGridView36.DataSource = Nothing : ds36.Clear()
- DataGridView36.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView36.ColumnHeadersHeight = 列高1 : DataGridView36.AllowUserToAddRows = False : DataGridView36.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds36) : DataGridView36.DataSource = ds36.Tables(0) : conn.Close()
- DataGridView36.Columns(0).FillWeight = 欄寬1 : DataGridView36.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView36_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView36.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView36.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView36(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView36(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView36.RowHeadersVisible, DataGridView36.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView36.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView36.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別37()
- Dim ds37 As New DataSet : DataGridView37.DataSource = Nothing : ds37.Clear()
- DataGridView37.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView37.ColumnHeadersHeight = 列高1 : DataGridView37.AllowUserToAddRows = False : DataGridView37.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds37) : DataGridView37.DataSource = ds37.Tables(0) : conn.Close()
- DataGridView37.Columns(0).FillWeight = 欄寬1 : DataGridView37.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView37_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView37.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView37.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView37(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView37(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView37.RowHeadersVisible, DataGridView37.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView37.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView37.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別38()
- Dim ds38 As New DataSet : DataGridView38.DataSource = Nothing : ds38.Clear()
- DataGridView38.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView38.ColumnHeadersHeight = 列高1 : DataGridView38.AllowUserToAddRows = False : DataGridView38.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds38) : DataGridView38.DataSource = ds38.Tables(0) : conn.Close()
- DataGridView38.Columns(0).FillWeight = 欄寬1 : DataGridView38.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView38_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView38.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView38.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView38(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView38(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView38.RowHeadersVisible, DataGridView38.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView38.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView38.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別39()
- Dim ds39 As New DataSet : DataGridView39.DataSource = Nothing : ds39.Clear()
- DataGridView39.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView39.ColumnHeadersHeight = 列高1 : DataGridView39.AllowUserToAddRows = False : DataGridView39.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds39) : DataGridView39.DataSource = ds39.Tables(0) : conn.Close()
- DataGridView39.Columns(0).FillWeight = 欄寬1 : DataGridView39.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView39_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView39.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView39.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView39(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView39(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView39.RowHeadersVisible, DataGridView39.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView39.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView39.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別40()
- Dim ds40 As New DataSet : DataGridView40.DataSource = Nothing : ds40.Clear()
- DataGridView40.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView40.ColumnHeadersHeight = 列高1 : DataGridView40.AllowUserToAddRows = False : DataGridView40.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds40) : DataGridView40.DataSource = ds40.Tables(0) : conn.Close()
- DataGridView40.Columns(0).FillWeight = 欄寬1 : DataGridView40.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView40_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView40.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView40.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView40(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView40(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView40.RowHeadersVisible, DataGridView40.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView40.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView40.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別41()
- Dim ds41 As New DataSet : DataGridView41.DataSource = Nothing : ds41.Clear()
- DataGridView41.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView41.ColumnHeadersHeight = 列高1 : DataGridView41.AllowUserToAddRows = False : DataGridView41.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds41) : DataGridView41.DataSource = ds41.Tables(0) : conn.Close()
- DataGridView41.Columns(0).FillWeight = 欄寬1 : DataGridView41.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView41_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView41.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView41.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView41(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView41(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView41.RowHeadersVisible, DataGridView41.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView41.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView41.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 讀取班別42()
- Dim ds42 As New DataSet : DataGridView42.DataSource = Nothing : ds42.Clear()
- DataGridView42.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- DataGridView42.ColumnHeadersHeight = 列高1 : DataGridView42.AllowUserToAddRows = False : DataGridView42.RowTemplate.Height = 列高
- SQL_排班系統_當天排班()
- da.Fill(ds42) : DataGridView42.DataSource = ds42.Tables(0) : conn.Close()
- DataGridView42.Columns(0).FillWeight = 欄寬1 : DataGridView42.Columns(1).FillWeight = 欄寬2
- End Sub
- Private Sub DataGridView42_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView42.RowPostPaint
- If 醫生_ch.Checked = True Then
- Dim linePen As New Pen(Color.Red, 2)
- If e.RowIndex = DataGridView42.Rows.Count - 1 Then : Exit Sub : Else
- If Strings.Mid(DataGridView42(0, e.RowIndex).Value.ToString, 4, 1) <> Strings.Mid(DataGridView42(0, e.RowIndex + 1).Value.ToString, 4, 1) Then
- Dim startX As Integer = IIf(DataGridView42.RowHeadersVisible, DataGridView42.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + DataGridView42.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView42.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
- End If
- End If
- End If
- End Sub
- Private Sub 日曆變動()
- If 日期_dgv.Rows.Count > 0 Then
- 總時數 = 0
- For no As Integer = 1 To 42
- Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = True
- Dim Labels As System.Windows.Forms.Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), System.Windows.Forms.Label) : Labels.Text = "XX"
- Dim DataGridViewS As DataGridView = CType(Me.Controls.Find("DataGridView" + no.ToString(), True)(0), DataGridView) : DataGridViewS.DataSource = Nothing
- Next
- Dim Q As Integer = 0
- 星期 = 日期_dgv.Rows(0).Cells("星期").Value.ToString : 天數 = 日期_dgv.Rows.Count
- If 星期 = "星期日" Then
- For no As Integer = 1 To 42
- If no > 天數 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- Dim 日期_lb As System.Windows.Forms.Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), System.Windows.Forms.Label) : 日期_lb.Text = no
- If IsNumeric(Val(日期_lb.Text)) = True Then
- If no < 10 Then : PA = "0" & no : Else : PA = no : End If : PA = 年份_cb.Text & "/" & 月份_cb.Text & "/" & PA
- If no = 1 Then : 讀取班別1() : ElseIf no = 2 Then : 讀取班別2() : ElseIf no = 3 Then : 讀取班別3() : ElseIf no = 4 Then : 讀取班別4()
- ElseIf no = 5 Then : 讀取班別5() : ElseIf no = 6 Then : 讀取班別6() : ElseIf no = 7 Then : 讀取班別7() : ElseIf no = 8 Then : 讀取班別8()
- ElseIf no = 9 Then : 讀取班別9() : ElseIf no = 10 Then : 讀取班別10() : ElseIf no = 11 Then : 讀取班別11() : ElseIf no = 12 Then : 讀取班別12()
- ElseIf no = 13 Then : 讀取班別13() : ElseIf no = 14 Then : 讀取班別14() : ElseIf no = 15 Then : 讀取班別15() : ElseIf no = 16 Then : 讀取班別16()
- ElseIf no = 17 Then : 讀取班別17() : ElseIf no = 18 Then : 讀取班別18() : ElseIf no = 19 Then : 讀取班別19() : ElseIf no = 20 Then : 讀取班別20()
- ElseIf no = 21 Then : 讀取班別21() : ElseIf no = 22 Then : 讀取班別22() : ElseIf no = 23 Then : 讀取班別23() : ElseIf no = 24 Then : 讀取班別24()
- ElseIf no = 25 Then : 讀取班別25() : ElseIf no = 26 Then : 讀取班別26() : ElseIf no = 27 Then : 讀取班別27() : ElseIf no = 28 Then : 讀取班別28()
- ElseIf no = 29 Then : 讀取班別29() : ElseIf no = 30 Then : 讀取班別30() : ElseIf no = 31 Then : 讀取班別31() : ElseIf no = 32 Then : 讀取班別32()
- ElseIf no = 33 Then : 讀取班別33() : ElseIf no = 34 Then : 讀取班別34() : ElseIf no = 35 Then : 讀取班別35() : ElseIf no = 36 Then : 讀取班別36()
- ElseIf no = 37 Then : 讀取班別37() : ElseIf no = 38 Then : 讀取班別38() : ElseIf no = 39 Then : 讀取班別39() : ElseIf no = 40 Then : 讀取班別40()
- ElseIf no = 41 Then : 讀取班別41() : ElseIf no = 42 Then : 讀取班別42() : End If
- End If
- If no >= 1 And no <= 天數 Then
- Dim Labels As System.Windows.Forms.Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), System.Windows.Forms.Label)
- Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
- If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
- 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
- 總時數 += 8
- End If : Q += 1
- End If
- Next
- End If
- If 星期 = "星期一" Then
- For no As Integer = 1 To 42
- If no = 1 Then
- Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- If no > 天數 + 1 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- Dim 日期_lb As System.Windows.Forms.Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), System.Windows.Forms.Label) : 日期_lb.Text = no - 1
- If IsNumeric(Val(日期_lb.Text)) = True Then
- If no - 1 < 10 Then : PA = "0" & no - 1 : Else : PA = no - 1 : End If : PA = 年份_cb.Text & "/" & 月份_cb.Text & "/" & PA
- If no = 1 Then : 讀取班別1() : ElseIf no = 2 Then : 讀取班別2() : ElseIf no = 3 Then : 讀取班別3() : ElseIf no = 4 Then : 讀取班別4()
- ElseIf no = 5 Then : 讀取班別5() : ElseIf no = 6 Then : 讀取班別6() : ElseIf no = 7 Then : 讀取班別7() : ElseIf no = 8 Then : 讀取班別8()
- ElseIf no = 9 Then : 讀取班別9() : ElseIf no = 10 Then : 讀取班別10() : ElseIf no = 11 Then : 讀取班別11() : ElseIf no = 12 Then : 讀取班別12()
- ElseIf no = 13 Then : 讀取班別13() : ElseIf no = 14 Then : 讀取班別14() : ElseIf no = 15 Then : 讀取班別15() : ElseIf no = 16 Then : 讀取班別16()
- ElseIf no = 17 Then : 讀取班別17() : ElseIf no = 18 Then : 讀取班別18() : ElseIf no = 19 Then : 讀取班別19() : ElseIf no = 20 Then : 讀取班別20()
- ElseIf no = 21 Then : 讀取班別21() : ElseIf no = 22 Then : 讀取班別22() : ElseIf no = 23 Then : 讀取班別23() : ElseIf no = 24 Then : 讀取班別24()
- ElseIf no = 25 Then : 讀取班別25() : ElseIf no = 26 Then : 讀取班別26() : ElseIf no = 27 Then : 讀取班別27() : ElseIf no = 28 Then : 讀取班別28()
- ElseIf no = 29 Then : 讀取班別29() : ElseIf no = 30 Then : 讀取班別30() : ElseIf no = 31 Then : 讀取班別31() : ElseIf no = 32 Then : 讀取班別32()
- ElseIf no = 33 Then : 讀取班別33() : ElseIf no = 34 Then : 讀取班別34() : ElseIf no = 35 Then : 讀取班別35() : ElseIf no = 36 Then : 讀取班別36()
- ElseIf no = 37 Then : 讀取班別37() : ElseIf no = 38 Then : 讀取班別38() : ElseIf no = 39 Then : 讀取班別39() : ElseIf no = 40 Then : 讀取班別40()
- ElseIf no = 41 Then : 讀取班別41() : ElseIf no = 42 Then : 讀取班別42() : End If
- End If
- If no >= 2 And no <= 天數 + 1 Then
- Dim Labels As System.Windows.Forms.Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), System.Windows.Forms.Label)
- Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
- If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
- 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
- 總時數 += 8
- End If : Q += 1
- End If
- Next
- End If
- If 星期 = "星期二" Then
- For no As Integer = 1 To 42
- If no = 1 Or no = 2 Then
- Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- If no > 天數 + 2 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- Dim 日期_lb As System.Windows.Forms.Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), System.Windows.Forms.Label) : 日期_lb.Text = no - 2
- If IsNumeric(Val(日期_lb.Text)) = True Then
- If no - 2 < 10 Then : PA = "0" & no - 2 : Else : PA = no - 2 : End If : PA = 年份_cb.Text & "/" & 月份_cb.Text & "/" & PA
- If no = 1 Then : 讀取班別1() : ElseIf no = 2 Then : 讀取班別2() : ElseIf no = 3 Then : 讀取班別3() : ElseIf no = 4 Then : 讀取班別4()
- ElseIf no = 5 Then : 讀取班別5() : ElseIf no = 6 Then : 讀取班別6() : ElseIf no = 7 Then : 讀取班別7() : ElseIf no = 8 Then : 讀取班別8()
- ElseIf no = 9 Then : 讀取班別9() : ElseIf no = 10 Then : 讀取班別10() : ElseIf no = 11 Then : 讀取班別11() : ElseIf no = 12 Then : 讀取班別12()
- ElseIf no = 13 Then : 讀取班別13() : ElseIf no = 14 Then : 讀取班別14() : ElseIf no = 15 Then : 讀取班別15() : ElseIf no = 16 Then : 讀取班別16()
- ElseIf no = 17 Then : 讀取班別17() : ElseIf no = 18 Then : 讀取班別18() : ElseIf no = 19 Then : 讀取班別19() : ElseIf no = 20 Then : 讀取班別20()
- ElseIf no = 21 Then : 讀取班別21() : ElseIf no = 22 Then : 讀取班別22() : ElseIf no = 23 Then : 讀取班別23() : ElseIf no = 24 Then : 讀取班別24()
- ElseIf no = 25 Then : 讀取班別25() : ElseIf no = 26 Then : 讀取班別26() : ElseIf no = 27 Then : 讀取班別27() : ElseIf no = 28 Then : 讀取班別28()
- ElseIf no = 29 Then : 讀取班別29() : ElseIf no = 30 Then : 讀取班別30() : ElseIf no = 31 Then : 讀取班別31() : ElseIf no = 32 Then : 讀取班別32()
- ElseIf no = 33 Then : 讀取班別33() : ElseIf no = 34 Then : 讀取班別34() : ElseIf no = 35 Then : 讀取班別35() : ElseIf no = 36 Then : 讀取班別36()
- ElseIf no = 37 Then : 讀取班別37() : ElseIf no = 38 Then : 讀取班別38() : ElseIf no = 39 Then : 讀取班別39() : ElseIf no = 40 Then : 讀取班別40()
- ElseIf no = 41 Then : 讀取班別41() : ElseIf no = 42 Then : 讀取班別42() : End If
- End If
- If no >= 3 And no <= 天數 + 2 Then
- Dim Labels As System.Windows.Forms.Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), System.Windows.Forms.Label)
- Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
- If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
- 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
- 總時數 += 8
- End If : Q += 1
- End If
- Next
- End If
- If 星期 = "星期三" Then
- For no As Integer = 1 To 42
- If no = 1 Or no = 2 Or no = 3 Then
- Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- If no > 天數 + 3 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- Dim 日期_lb As System.Windows.Forms.Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), System.Windows.Forms.Label) : 日期_lb.Text = no - 3
- If IsNumeric(Val(日期_lb.Text)) = True Then
- If no - 3 < 10 Then : PA = "0" & no - 3 : Else : PA = no - 3 : End If : PA = 年份_cb.Text & "/" & 月份_cb.Text & "/" & PA
- If no = 1 Then : 讀取班別1() : ElseIf no = 2 Then : 讀取班別2() : ElseIf no = 3 Then : 讀取班別3() : ElseIf no = 4 Then : 讀取班別4()
- ElseIf no = 5 Then : 讀取班別5() : ElseIf no = 6 Then : 讀取班別6() : ElseIf no = 7 Then : 讀取班別7() : ElseIf no = 8 Then : 讀取班別8()
- ElseIf no = 9 Then : 讀取班別9() : ElseIf no = 10 Then : 讀取班別10() : ElseIf no = 11 Then : 讀取班別11() : ElseIf no = 12 Then : 讀取班別12()
- ElseIf no = 13 Then : 讀取班別13() : ElseIf no = 14 Then : 讀取班別14() : ElseIf no = 15 Then : 讀取班別15() : ElseIf no = 16 Then : 讀取班別16()
- ElseIf no = 17 Then : 讀取班別17() : ElseIf no = 18 Then : 讀取班別18() : ElseIf no = 19 Then : 讀取班別19() : ElseIf no = 20 Then : 讀取班別20()
- ElseIf no = 21 Then : 讀取班別21() : ElseIf no = 22 Then : 讀取班別22() : ElseIf no = 23 Then : 讀取班別23() : ElseIf no = 24 Then : 讀取班別24()
- ElseIf no = 25 Then : 讀取班別25() : ElseIf no = 26 Then : 讀取班別26() : ElseIf no = 27 Then : 讀取班別27() : ElseIf no = 28 Then : 讀取班別28()
- ElseIf no = 29 Then : 讀取班別29() : ElseIf no = 30 Then : 讀取班別30() : ElseIf no = 31 Then : 讀取班別31() : ElseIf no = 32 Then : 讀取班別32()
- ElseIf no = 33 Then : 讀取班別33() : ElseIf no = 34 Then : 讀取班別34() : ElseIf no = 35 Then : 讀取班別35() : ElseIf no = 36 Then : 讀取班別36()
- ElseIf no = 37 Then : 讀取班別37() : ElseIf no = 38 Then : 讀取班別38() : ElseIf no = 39 Then : 讀取班別39() : ElseIf no = 40 Then : 讀取班別40()
- ElseIf no = 41 Then : 讀取班別41() : ElseIf no = 42 Then : 讀取班別42() : End If
- End If
- If no >= 4 And no <= 天數 + 3 Then
- Dim Labels As System.Windows.Forms.Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), System.Windows.Forms.Label)
- Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
- If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
- 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
- 總時數 += 8
- End If : Q += 1
- End If
- Next
- End If
- If 星期 = "星期四" Then
- For no As Integer = 1 To 42
- If no = 1 Or no = 2 Or no = 3 Or no = 4 Then
- Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- If no > 天數 + 4 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- Dim 日期_lb As System.Windows.Forms.Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), System.Windows.Forms.Label) : 日期_lb.Text = no - 4
- If IsNumeric(Val(日期_lb.Text)) = True Then
- If no - 4 < 10 Then : PA = "0" & no - 4 : Else : PA = no - 4 : End If : PA = 年份_cb.Text & "/" & 月份_cb.Text & "/" & PA
- If no = 1 Then : 讀取班別1() : ElseIf no = 2 Then : 讀取班別2() : ElseIf no = 3 Then : 讀取班別3() : ElseIf no = 4 Then : 讀取班別4()
- ElseIf no = 5 Then : 讀取班別5() : ElseIf no = 6 Then : 讀取班別6() : ElseIf no = 7 Then : 讀取班別7() : ElseIf no = 8 Then : 讀取班別8()
- ElseIf no = 9 Then : 讀取班別9() : ElseIf no = 10 Then : 讀取班別10() : ElseIf no = 11 Then : 讀取班別11() : ElseIf no = 12 Then : 讀取班別12()
- ElseIf no = 13 Then : 讀取班別13() : ElseIf no = 14 Then : 讀取班別14() : ElseIf no = 15 Then : 讀取班別15() : ElseIf no = 16 Then : 讀取班別16()
- ElseIf no = 17 Then : 讀取班別17() : ElseIf no = 18 Then : 讀取班別18() : ElseIf no = 19 Then : 讀取班別19() : ElseIf no = 20 Then : 讀取班別20()
- ElseIf no = 21 Then : 讀取班別21() : ElseIf no = 22 Then : 讀取班別22() : ElseIf no = 23 Then : 讀取班別23() : ElseIf no = 24 Then : 讀取班別24()
- ElseIf no = 25 Then : 讀取班別25() : ElseIf no = 26 Then : 讀取班別26() : ElseIf no = 27 Then : 讀取班別27() : ElseIf no = 28 Then : 讀取班別28()
- ElseIf no = 29 Then : 讀取班別29() : ElseIf no = 30 Then : 讀取班別30() : ElseIf no = 31 Then : 讀取班別31() : ElseIf no = 32 Then : 讀取班別32()
- ElseIf no = 33 Then : 讀取班別33() : ElseIf no = 34 Then : 讀取班別34() : ElseIf no = 35 Then : 讀取班別35() : ElseIf no = 36 Then : 讀取班別36()
- ElseIf no = 37 Then : 讀取班別37() : ElseIf no = 38 Then : 讀取班別38() : ElseIf no = 39 Then : 讀取班別39() : ElseIf no = 40 Then : 讀取班別40()
- ElseIf no = 41 Then : 讀取班別41() : ElseIf no = 42 Then : 讀取班別42() : End If
- End If
- If no >= 5 And no <= 天數 + 4 Then
- Dim Labels As System.Windows.Forms.Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), System.Windows.Forms.Label)
- Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
- If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
- 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
- 總時數 += 8
- End If : Q += 1
- End If
- Next
- End If
- If 星期 = "星期五" Then
- For no As Integer = 1 To 42
- If no = 1 Or no = 2 Or no = 3 Or no = 4 Or no = 5 Then
- Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- If no > 天數 + 5 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- Dim 日期_lb As System.Windows.Forms.Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), System.Windows.Forms.Label) : 日期_lb.Text = no - 5
- If IsNumeric(Val(日期_lb.Text)) = True Then
- If no - 5 < 10 Then : PA = "0" & Math.Abs(no - 5) : Else : PA = Math.Abs(no - 5) : End If : PA = 年份_cb.Text & "/" & 月份_cb.Text & "/" & PA
- If no = 1 Then : 讀取班別1() : ElseIf no = 2 Then : 讀取班別2() : ElseIf no = 3 Then : 讀取班別3() : ElseIf no = 4 Then : 讀取班別4()
- ElseIf no = 5 Then : 讀取班別5() : ElseIf no = 6 Then : 讀取班別6() : ElseIf no = 7 Then : 讀取班別7() : ElseIf no = 8 Then : 讀取班別8()
- ElseIf no = 9 Then : 讀取班別9() : ElseIf no = 10 Then : 讀取班別10() : ElseIf no = 11 Then : 讀取班別11() : ElseIf no = 12 Then : 讀取班別12()
- ElseIf no = 13 Then : 讀取班別13() : ElseIf no = 14 Then : 讀取班別14() : ElseIf no = 15 Then : 讀取班別15() : ElseIf no = 16 Then : 讀取班別16()
- ElseIf no = 17 Then : 讀取班別17() : ElseIf no = 18 Then : 讀取班別18() : ElseIf no = 19 Then : 讀取班別19() : ElseIf no = 20 Then : 讀取班別20()
- ElseIf no = 21 Then : 讀取班別21() : ElseIf no = 22 Then : 讀取班別22() : ElseIf no = 23 Then : 讀取班別23() : ElseIf no = 24 Then : 讀取班別24()
- ElseIf no = 25 Then : 讀取班別25() : ElseIf no = 26 Then : 讀取班別26() : ElseIf no = 27 Then : 讀取班別27() : ElseIf no = 28 Then : 讀取班別28()
- ElseIf no = 29 Then : 讀取班別29() : ElseIf no = 30 Then : 讀取班別30() : ElseIf no = 31 Then : 讀取班別31() : ElseIf no = 32 Then : 讀取班別32()
- ElseIf no = 33 Then : 讀取班別33() : ElseIf no = 34 Then : 讀取班別34() : ElseIf no = 35 Then : 讀取班別35() : ElseIf no = 36 Then : 讀取班別36()
- ElseIf no = 37 Then : 讀取班別37() : ElseIf no = 38 Then : 讀取班別38() : ElseIf no = 39 Then : 讀取班別39() : ElseIf no = 40 Then : 讀取班別40()
- ElseIf no = 41 Then : 讀取班別41() : ElseIf no = 42 Then : 讀取班別42() : End If
- End If
- If no >= 6 And no <= 天數 + 5 Then
- Dim Labels As System.Windows.Forms.Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), System.Windows.Forms.Label)
- Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
- If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
- 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
- 總時數 += 8
- End If : Q += 1
- End If
- Next
- End If
- If 星期 = "星期六" Then
- For no As Integer = 1 To 42
- If no = 1 Or no = 2 Or no = 3 Or no = 4 Or no = 5 Or no = 6 Then
- Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- If no > 天數 + 6 Then : Dim Panels As Panel = CType(Me.Controls.Find("Panel" + no.ToString(), True)(0), Panel) : Panels.Visible = False : End If
- Dim 日期_lb As System.Windows.Forms.Label = CType(Me.Controls.Find("日期_lb" + no.ToString(), True)(0), System.Windows.Forms.Label) : 日期_lb.Text = no - 6
- If IsNumeric(Val(日期_lb.Text)) = True Then
- If no - 6 < 10 Then : PA = "0" & no - 6 : Else : PA = no - 6 : End If : PA = 年份_cb.Text & "/" & 月份_cb.Text & "/" & PA
- If no = 1 Then : 讀取班別1() : ElseIf no = 2 Then : 讀取班別2() : ElseIf no = 3 Then : 讀取班別3() : ElseIf no = 4 Then : 讀取班別4()
- ElseIf no = 5 Then : 讀取班別5() : ElseIf no = 6 Then : 讀取班別6() : ElseIf no = 7 Then : 讀取班別7() : ElseIf no = 8 Then : 讀取班別8()
- ElseIf no = 9 Then : 讀取班別9() : ElseIf no = 10 Then : 讀取班別10() : ElseIf no = 11 Then : 讀取班別11() : ElseIf no = 12 Then : 讀取班別12()
- ElseIf no = 13 Then : 讀取班別13() : ElseIf no = 14 Then : 讀取班別14() : ElseIf no = 15 Then : 讀取班別15() : ElseIf no = 16 Then : 讀取班別16()
- ElseIf no = 17 Then : 讀取班別17() : ElseIf no = 18 Then : 讀取班別18() : ElseIf no = 19 Then : 讀取班別19() : ElseIf no = 20 Then : 讀取班別20()
- ElseIf no = 21 Then : 讀取班別21() : ElseIf no = 22 Then : 讀取班別22() : ElseIf no = 23 Then : 讀取班別23() : ElseIf no = 24 Then : 讀取班別24()
- ElseIf no = 25 Then : 讀取班別25() : ElseIf no = 26 Then : 讀取班別26() : ElseIf no = 27 Then : 讀取班別27() : ElseIf no = 28 Then : 讀取班別28()
- ElseIf no = 29 Then : 讀取班別29() : ElseIf no = 30 Then : 讀取班別30() : ElseIf no = 31 Then : 讀取班別31() : ElseIf no = 32 Then : 讀取班別32()
- ElseIf no = 33 Then : 讀取班別33() : ElseIf no = 34 Then : 讀取班別34() : ElseIf no = 35 Then : 讀取班別35() : ElseIf no = 36 Then : 讀取班別36()
- ElseIf no = 37 Then : 讀取班別37() : ElseIf no = 38 Then : 讀取班別38() : ElseIf no = 39 Then : 讀取班別39() : ElseIf no = 40 Then : 讀取班別40()
- ElseIf no = 41 Then : 讀取班別41() : ElseIf no = 42 Then : 讀取班別42() : End If
- End If
- If no >= 7 And no <= 天數 + 6 Then
- Dim Labels As System.Windows.Forms.Label = CType(Me.Controls.Find("Label" + no.ToString(), True)(0), System.Windows.Forms.Label)
- Labels.Text = 日期_dgv.Rows(Q).Cells("休假").Value.ToString
- If 日期_dgv.Rows(Q).Cells("休假").Value.ToString <> "國定假日" And 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期日" And
- 日期_dgv.Rows(Q).Cells("星期").Value.ToString <> "星期六" Then
- 總時數 += 8
- End If : Q += 1
- End If
- Next
- End If
- End If
- End Sub
- Private Sub 排班資料_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Me.MdiParent = GRAMS_SYS : Me.WindowState = 2 : Me.AutoScroll = True
- 列高 = 17 : 列高1 = 22 : 欄寬1 = 80 : 欄寬2 = 200
- 年份_下拉表單資料載入() : 日期_dgv.Visible = False
-
- 首次開啟 = False
- 年份_cb.Text = Year(Today) : 月份_cb.SelectedIndex = Month(Today) - 1
- PA1 = 年份_cb.Text : PA2 = 月份_cb.Text
- 首次開啟 = True
-
- 讀取日期() : 日曆變動()
- PA = 年份_cb.Text & "/" & 月份_cb.Text
- 讀取排班()
- For i As Integer = 0 To 人員彙總_dgv.Rows.Count - 1
- 人員彙總_dgv.Rows(i).Cells("本月應上時數").Value = 總時數
- 人員彙總_dgv.Rows(i).Cells("未排班時數").Value = 人員彙總_dgv.Rows(i).Cells("本月應上時數").Value - 人員彙總_dgv.Rows(i).Cells("已排班時數").Value
- Next
- End Sub
- Private Sub 人員彙總_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員彙總_dgv.CellClick
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 人員彙總_dgv.Rows(e.RowIndex).Cells("姓名").Value : 個人班表.Close() : 個人班表.Show() : 個人班表.BringToFront()
- End Sub
- Private Sub 月份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged
- If 首次開啟 = True Then
- PA1 = 年份_cb.Text : PA2 = 月份_cb.Text : 讀取日期() : 日曆變動()
- PA = 年份_cb.Text & "/" & 月份_cb.Text : 讀取排班()
- For i As Integer = 0 To 人員彙總_dgv.Rows.Count - 1
- 人員彙總_dgv.Rows(i).Cells("本月應上時數").Value = 總時數
- 人員彙總_dgv.Rows(i).Cells("未排班時數").Value = 人員彙總_dgv.Rows(i).Cells("本月應上時數").Value - 人員彙總_dgv.Rows(i).Cells("已排班時數").Value
- Next
- End If
- End Sub
- Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
- PA1 = 年份_cb.Text : PA2 = 月份_cb.Text : 讀取日期() : 日曆變動()
- PA = 年份_cb.Text & "/" & 月份_cb.Text : 讀取排班()
- For i As Integer = 0 To 人員彙總_dgv.Rows.Count - 1
- 人員彙總_dgv.Rows(i).Cells("本月應上時數").Value = 總時數
- 人員彙總_dgv.Rows(i).Cells("未排班時數").Value = 人員彙總_dgv.Rows(i).Cells("本月應上時數").Value - 人員彙總_dgv.Rows(i).Cells("已排班時數").Value
- Next
- End Sub
- Private Sub 醫生_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 醫生_ch.Click
- 醫生_ch.Checked = True : 職員_ch.Checked = False : 請休假_ch.Checked = False : 日曆變動()
- End Sub
- Private Sub 職員_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 職員_ch.Click
- 醫生_ch.Checked = False : 職員_ch.Checked = True : 請休假_ch.Checked = False : 日曆變動()
- End Sub
- Private Sub 請休假_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請休假_ch.Click
- 醫生_ch.Checked = False : 職員_ch.Checked = False : 請休假_ch.Checked = True : 日曆變動()
- End Sub
- Private Sub B01_tb_Click(sender As Object, e As EventArgs) Handles B01_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb1.Text : 排班明細.Show()
- End Sub
- Private Sub B02_tb_Click(sender As Object, e As EventArgs) Handles B02_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb2.Text : 排班明細.Show()
- End Sub
- Private Sub B03_tb_Click(sender As Object, e As EventArgs) Handles B03_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb3.Text : 排班明細.Show()
- End Sub
- Private Sub B04_tb_Click(sender As Object, e As EventArgs) Handles B04_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb4.Text : 排班明細.Show()
- End Sub
- Private Sub B05_tb_Click(sender As Object, e As EventArgs) Handles B05_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb5.Text : 排班明細.Show()
- End Sub
- Private Sub B06_tb_Click(sender As Object, e As EventArgs) Handles B06_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb6.Text : 排班明細.Show()
- End Sub
- Private Sub B07_tb_Click(sender As Object, e As EventArgs) Handles B07_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb7.Text : 排班明細.Show()
- End Sub
- Private Sub B08_tb_Click(sender As Object, e As EventArgs) Handles B08_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb8.Text : 排班明細.Show()
- End Sub
- Private Sub B09_tb_Click(sender As Object, e As EventArgs) Handles B09_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb9.Text : 排班明細.Show()
- End Sub
- Private Sub B10_tb_Click(sender As Object, e As EventArgs) Handles B10_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb10.Text : 排班明細.Show()
- End Sub
- Private Sub B11_tb_Click(sender As Object, e As EventArgs) Handles B11_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb11.Text : 排班明細.Show()
- End Sub
- Private Sub B12_tb_Click(sender As Object, e As EventArgs) Handles B12_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb12.Text : 排班明細.Show()
- End Sub
- Private Sub B13_tb_Click(sender As Object, e As EventArgs) Handles B13_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb13.Text : 排班明細.Show()
- End Sub
- Private Sub B14_tb_Click(sender As Object, e As EventArgs) Handles B14_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb14.Text : 排班明細.Show()
- End Sub
- Private Sub B15_tb_Click(sender As Object, e As EventArgs) Handles B15_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb15.Text : 排班明細.Show()
- End Sub
- Private Sub B16_tb_Click(sender As Object, e As EventArgs) Handles B16_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb16.Text : 排班明細.Show()
- End Sub
- Private Sub B17_tb_Click(sender As Object, e As EventArgs) Handles B17_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb17.Text : 排班明細.Show()
- End Sub
- Private Sub B18_tb_Click(sender As Object, e As EventArgs) Handles B18_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb18.Text : 排班明細.Show()
- End Sub
- Private Sub B19_tb_Click(sender As Object, e As EventArgs) Handles B19_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb19.Text : 排班明細.Show()
- End Sub
- Private Sub B20_tb_Click(sender As Object, e As EventArgs) Handles B20_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb20.Text : 排班明細.Show()
- End Sub
- Private Sub B21_tb_Click(sender As Object, e As EventArgs) Handles B21_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb21.Text : 排班明細.Show()
- End Sub
- Private Sub B22_tb_Click(sender As Object, e As EventArgs) Handles B22_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb22.Text : 排班明細.Show()
- End Sub
- Private Sub B23_tb_Click(sender As Object, e As EventArgs) Handles B23_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb23.Text : 排班明細.Show()
- End Sub
- Private Sub B24_tb_Click(sender As Object, e As EventArgs) Handles B24_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb24.Text : 排班明細.Show()
- End Sub
- Private Sub B25_tb_Click(sender As Object, e As EventArgs) Handles B25_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb25.Text : 排班明細.Show()
- End Sub
- Private Sub B26_tb_Click(sender As Object, e As EventArgs) Handles B26_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb26.Text : 排班明細.Show()
- End Sub
- Private Sub B27_tb_Click(sender As Object, e As EventArgs) Handles B27_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb27.Text : 排班明細.Show()
- End Sub
- Private Sub B28_tb_Click(sender As Object, e As EventArgs) Handles B28_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb28.Text : 排班明細.Show()
- End Sub
- Private Sub B29_tb_Click(sender As Object, e As EventArgs) Handles B29_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb29.Text : 排班明細.Show()
- End Sub
- Private Sub B30_tb_Click(sender As Object, e As EventArgs) Handles B30_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb30.Text : 排班明細.Show()
- End Sub
- Private Sub B31_tb_Click(sender As Object, e As EventArgs) Handles B31_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb31.Text : 排班明細.Show()
- End Sub
- Private Sub B32_tb_Click(sender As Object, e As EventArgs) Handles B32_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb32.Text : 排班明細.Show()
- End Sub
- Private Sub B33_tb_Click(sender As Object, e As EventArgs) Handles B33_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb33.Text : 排班明細.Show()
- End Sub
- Private Sub B34_tb_Click(sender As Object, e As EventArgs) Handles B34_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb34.Text : 排班明細.Show()
- End Sub
- Private Sub B35_tb_Click(sender As Object, e As EventArgs) Handles B35_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb35.Text : 排班明細.Show()
- End Sub
- Private Sub B36_tb_Click(sender As Object, e As EventArgs) Handles B36_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb36.Text : 排班明細.Show()
- End Sub
- Private Sub B37_tb_Click(sender As Object, e As EventArgs) Handles B37_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb37.Text : 排班明細.Show()
- End Sub
- Private Sub B38_tb_Click(sender As Object, e As EventArgs) Handles B38_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb38.Text : 排班明細.Show()
- End Sub
- Private Sub B39_tb_Click(sender As Object, e As EventArgs) Handles B39_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb39.Text : 排班明細.Show()
- End Sub
- Private Sub B40_tb_Click(sender As Object, e As EventArgs) Handles B40_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb40.Text : 排班明細.Show()
- End Sub
- Private Sub B41_tb_Click(sender As Object, e As EventArgs) Handles B41_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb41.Text : 排班明細.Show()
- End Sub
- Private Sub B42_tb_Click(sender As Object, e As EventArgs) Handles B42_tb.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb42.Text : 排班明細.Show()
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb1.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb2.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb3.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb4.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb5.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb6.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb7.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb8.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb9.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb10.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb11.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb12.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb13.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb14.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb15.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb16.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb17.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb18.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb19.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb20.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb21.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb22.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb23.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb24.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb25.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb26.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb27.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb28.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb29.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb30.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb31.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb32.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb33.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb34.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb35.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb36.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb37.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb38.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb39.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb40.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb41.Text : 排班明細_參考.Show()
- End Sub
- Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click
- PA = 年份_cb.Text : PA1 = 月份_cb.Text : PA2 = 日期_lb42.Text : 排班明細_參考.Show()
- End Sub
- Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
- 排班資料列印選擇.ShowDialog()
- xlApp = CType(CreateObject("Excel.Application"), Application)
- xlBook = xlApp.Workbooks.Add
- xlApp.DisplayAlerts = True
- xlApp.Visible = True
- xlApp.Application.WindowState = xlMaximized
-
- If PA = "統計" Then
- xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select
- xlApp.Sheets(1).Name = "排班資料統計" : xlBook.Activate() : xlSheet.Activate()
- xlSheet.Cells(1, 1) = "黃柏翰皮膚科診所-排班資料統計" : xlSheet.Cells(2, 1) = CInt(年份_cb.Text) - 1911 & "年" & 月份_cb.Text & "月 - 全月"
- xlSheet.Cells(3, 1) = "項" : xlSheet.Cells(3, 2) = "姓名" : xlSheet.Cells(3, 3) = "天數" : xlSheet.Cells(3, 4) = "本月應上時數"
- xlSheet.Cells(3, 5) = "已排班時數" : xlSheet.Cells(3, 6) = "未排班時數" : xlSheet.Cells(3, 7) = "假日出勤"
- For i As Integer = 0 To 人員彙總_dgv.Rows.Count - 1
- xlSheet.Cells(4 + i, 1) = i + 1 : xlSheet.Cells(4 + i, 2) = 人員彙總_dgv("姓名", i).Value.ToString
- xlSheet.Cells(4 + i, 3) = 人員彙總_dgv("天數", i).Value.ToString
- xlSheet.Cells(4 + i, 4) = 人員彙總_dgv("本月應上時數", i).Value.ToString
- xlSheet.Cells(4 + i, 5) = 人員彙總_dgv("已排班時數", i).Value.ToString
- xlSheet.Cells(4 + i, 6) = 人員彙總_dgv("未排班時數", i).Value.ToString
- xlSheet.Cells(4 + i, 7) = 人員彙總_dgv("假日出勤", i).Value.ToString
- Next : 位置1 = 4 + 人員彙總_dgv.Rows.Count - 1 : AA(xlApp, xlSheet)
- xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select() : xlSheet.Range("B1").Select() : xlApp.Application.WindowState = xlMinimized : MsgBox("排班資料統計列印完成!!")
- Else
- xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select
- xlApp.Sheets(1).Name = "排班月曆" : xlBook.Activate() : xlSheet.Activate()
- xlSheet.Cells(1, 1) = "黃柏翰皮膚科診所-排班月曆" : xlSheet.Cells(2, 1) = CInt(年份_cb.Text) - 1911 & "年" & 月份_cb.Text & "月 - 全月"
- xlSheet.Cells(3, 1) = "星期日" : xlSheet.Cells(3, 3) = "星期一" : xlSheet.Cells(3, 5) = "星期二" : xlSheet.Cells(3, 7) = "星期三"
- xlSheet.Cells(3, 9) = "星期四" : xlSheet.Cells(3, 11) = "星期五" : xlSheet.Cells(3, 13) = "星期六" : 位置 = 0
- '-----第一排-----------
- If Label1.Text <> "XX" And CInt(日期_lb1.Text) > 0 Then : xlSheet.Cells(4, 1) = 日期_lb1.Text : xlSheet.Cells(4, 2) = Label1.Text
- For i As Integer = 0 To DataGridView1.Rows.Count - 1
- xlSheet.Cells(5 + i, 1) = Strings.Left(DataGridView1(0, i).Value.ToString, 5) : xlSheet.Cells(5 + i, 2) = DataGridView1(1, i).Value.ToString
- Next
- End If : 位置1 = DataGridView1.Rows.Count
- If Label2.Text <> "XX" And CInt(日期_lb2.Text) > 0 Then : xlSheet.Cells(4, 3) = 日期_lb2.Text : xlSheet.Cells(4, 4) = Label2.Text
- For i As Integer = 0 To DataGridView2.Rows.Count - 1
- xlSheet.Cells(5 + i, 3) = Strings.Left(DataGridView2(0, i).Value.ToString, 5) : xlSheet.Cells(5 + i, 4) = DataGridView2(1, i).Value.ToString
- Next
- End If : If 位置1 < DataGridView2.Rows.Count Then : 位置1 = DataGridView2.Rows.Count : End If
- If Label3.Text <> "XX" And CInt(日期_lb3.Text) > 0 Then : xlSheet.Cells(4, 5) = 日期_lb3.Text : xlSheet.Cells(4, 6) = Label3.Text
- For i As Integer = 0 To DataGridView3.Rows.Count - 1
- xlSheet.Cells(5 + i, 5) = Strings.Left(DataGridView3(0, i).Value.ToString, 5) : xlSheet.Cells(5 + i, 6) = DataGridView3(1, i).Value.ToString
- Next
- End If : If 位置1 < DataGridView3.Rows.Count Then : 位置1 = DataGridView3.Rows.Count : End If
- If Label4.Text <> "XX" And CInt(日期_lb4.Text) > 0 Then : xlSheet.Cells(4, 7) = 日期_lb4.Text : xlSheet.Cells(4, 8) = Label4.Text
- For i As Integer = 0 To DataGridView4.Rows.Count - 1
- xlSheet.Cells(5 + i, 7) = Strings.Left(DataGridView4(0, i).Value.ToString, 5) : xlSheet.Cells(5 + i, 8) = DataGridView4(1, i).Value.ToString
- Next
- End If : If 位置1 < DataGridView4.Rows.Count Then : 位置1 = DataGridView4.Rows.Count : End If
- If Label5.Text <> "XX" And CInt(日期_lb5.Text) > 0 Then : xlSheet.Cells(4, 9) = 日期_lb5.Text : xlSheet.Cells(4, 10) = Label5.Text
- For i As Integer = 0 To DataGridView5.Rows.Count - 1
- xlSheet.Cells(5 + i, 9) = Strings.Left(DataGridView5(0, i).Value.ToString, 5) : xlSheet.Cells(5 + i, 10) = DataGridView5(1, i).Value.ToString
- Next
- End If : If 位置1 < DataGridView5.Rows.Count Then : 位置1 = DataGridView5.Rows.Count : End If
- If Label6.Text <> "XX" And CInt(日期_lb6.Text) > 0 Then : xlSheet.Cells(4, 11) = 日期_lb6.Text : xlSheet.Cells(4, 12) = Label6.Text
- For i As Integer = 0 To DataGridView6.Rows.Count - 1
- xlSheet.Cells(5 + i, 11) = Strings.Left(DataGridView6(0, i).Value.ToString, 5) : xlSheet.Cells(5 + i, 12) = DataGridView6(1, i).Value.ToString
- Next
- End If : If 位置1 < DataGridView6.Rows.Count Then : 位置1 = DataGridView6.Rows.Count : End If
- If Label7.Text <> "XX" And CInt(日期_lb7.Text) > 0 Then : xlSheet.Cells(4, 13) = 日期_lb7.Text : xlSheet.Cells(4, 14) = Label7.Text
- For i As Integer = 0 To DataGridView7.Rows.Count - 1
- xlSheet.Cells(5 + i, 13) = Strings.Left(DataGridView7(0, i).Value.ToString, 5) : xlSheet.Cells(5 + i, 14) = DataGridView7(1, i).Value.ToString
- Next
- End If : If 位置1 < DataGridView7.Rows.Count Then : 位置1 = DataGridView7.Rows.Count : End If : 位置 += 位置1
- '-----第二排-----------
- If Label8.Text <> "XX" And CInt(日期_lb8.Text) > 0 Then : xlSheet.Cells(4 + 1 + 位置, 1) = 日期_lb8.Text : xlSheet.Cells(4 + 1 + 位置, 2) = Label8.Text
- For i As Integer = 0 To DataGridView8.Rows.Count - 1
- xlSheet.Cells(5 + 1 + 位置 + i, 1) = Strings.Left(DataGridView8(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 1 + 位置 + i, 2) = DataGridView8(1, i).Value.ToString
- Next
- End If : 位置2 = DataGridView8.Rows.Count
- If Label9.Text <> "XX" And CInt(日期_lb9.Text) > 0 Then : xlSheet.Cells(4 + 1 + 位置, 3) = 日期_lb9.Text : xlSheet.Cells(4 + 1 + 位置, 4) = Label9.Text
- For i As Integer = 0 To DataGridView9.Rows.Count - 1
- xlSheet.Cells(5 + 1 + 位置 + i, 3) = Strings.Left(DataGridView9(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 1 + 位置 + i, 4) = DataGridView9(1, i).Value.ToString
- Next
- End If : If 位置2 < DataGridView9.Rows.Count Then : 位置2 = DataGridView9.Rows.Count : End If
- If Label10.Text <> "XX" And CInt(日期_lb10.Text) > 0 Then : xlSheet.Cells(4 + 1 + 位置, 5) = 日期_lb10.Text : xlSheet.Cells(4 + 1 + 位置, 6) = Label10.Text
- For i As Integer = 0 To DataGridView10.Rows.Count - 1
- xlSheet.Cells(5 + 1 + 位置 + i, 5) = Strings.Left(DataGridView10(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 1 + 位置 + i, 6) = DataGridView10(1, i).Value.ToString
- Next
- End If : If 位置2 < DataGridView10.Rows.Count Then : 位置2 = DataGridView10.Rows.Count : End If
- If Label11.Text <> "XX" And CInt(日期_lb11.Text) > 0 Then : xlSheet.Cells(4 + 1 + 位置, 7) = 日期_lb11.Text : xlSheet.Cells(4 + 1 + 位置, 8) = Label11.Text
- For i As Integer = 0 To DataGridView11.Rows.Count - 1
- xlSheet.Cells(5 + 1 + 位置 + i, 7) = Strings.Left(DataGridView11(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 1 + 位置 + i, 8) = DataGridView11(1, i).Value.ToString
- Next
- End If : If 位置2 < DataGridView11.Rows.Count Then : 位置2 = DataGridView11.Rows.Count : End If
- If Label12.Text <> "XX" And CInt(日期_lb12.Text) > 0 Then : xlSheet.Cells(4 + 1 + 位置, 9) = 日期_lb12.Text : xlSheet.Cells(4 + 1 + 位置, 10) = Label12.Text
- For i As Integer = 0 To DataGridView12.Rows.Count - 1
- xlSheet.Cells(5 + 1 + 位置 + i, 9) = Strings.Left(DataGridView12(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 1 + 位置 + i, 10) = DataGridView12(1, i).Value.ToString
- Next
- End If : If 位置2 < DataGridView12.Rows.Count Then : 位置2 = DataGridView12.Rows.Count : End If
- If Label13.Text <> "XX" And CInt(日期_lb13.Text) > 0 Then : xlSheet.Cells(4 + 1 + 位置, 11) = 日期_lb13.Text : xlSheet.Cells(4 + 1 + 位置, 12) = Label13.Text
- For i As Integer = 0 To DataGridView13.Rows.Count - 1
- xlSheet.Cells(5 + 1 + 位置 + i, 11) = Strings.Left(DataGridView13(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 1 + 位置 + i, 12) = DataGridView13(1, i).Value.ToString
- Next
- End If : If 位置2 < DataGridView13.Rows.Count Then : 位置2 = DataGridView13.Rows.Count : End If
- If Label14.Text <> "XX" And CInt(日期_lb14.Text) > 0 Then : xlSheet.Cells(4 + 1 + 位置, 13) = 日期_lb14.Text : xlSheet.Cells(4 + 1 + 位置, 14) = Label14.Text
- For i As Integer = 0 To DataGridView14.Rows.Count - 1
- xlSheet.Cells(5 + 1 + 位置 + i, 13) = Strings.Left(DataGridView14(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 1 + 位置 + i, 14) = DataGridView14(1, i).Value.ToString
- Next
- End If : If 位置2 < DataGridView14.Rows.Count Then : 位置2 = DataGridView14.Rows.Count : End If : 位置 += 位置2
- '-----第三排-----------
- If Label15.Text <> "XX" And CInt(日期_lb15.Text) > 0 Then : xlSheet.Cells(4 + 2 + 位置, 1) = 日期_lb15.Text : xlSheet.Cells(4 + 2 + 位置, 2) = Label15.Text
- For i As Integer = 0 To DataGridView15.Rows.Count - 1
- xlSheet.Cells(5 + 2 + 位置 + i, 1) = Strings.Left(DataGridView15(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 2 + 位置 + i, 2) = DataGridView15(1, i).Value.ToString
- Next
- End If : 位置3 = DataGridView15.Rows.Count
- If Label16.Text <> "XX" And CInt(日期_lb16.Text) > 0 Then : xlSheet.Cells(4 + 2 + 位置, 3) = 日期_lb16.Text : xlSheet.Cells(4 + 2 + 位置, 4) = Label16.Text
- For i As Integer = 0 To DataGridView16.Rows.Count - 1
- xlSheet.Cells(5 + 2 + 位置 + i, 3) = Strings.Left(DataGridView16(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 2 + 位置 + i, 4) = DataGridView16(1, i).Value.ToString
- Next
- End If : If 位置3 < DataGridView16.Rows.Count Then : 位置3 = DataGridView16.Rows.Count : End If
- If Label17.Text <> "XX" And CInt(日期_lb17.Text) > 0 Then : xlSheet.Cells(4 + 2 + 位置, 5) = 日期_lb17.Text : xlSheet.Cells(4 + 2 + 位置, 6) = Label17.Text
- For i As Integer = 0 To DataGridView17.Rows.Count - 1
- xlSheet.Cells(5 + 2 + 位置 + i, 5) = Strings.Left(DataGridView17(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 2 + 位置 + i, 6) = DataGridView17(1, i).Value.ToString
- Next
- End If : If 位置3 < DataGridView17.Rows.Count Then : 位置3 = DataGridView17.Rows.Count : End If
- If Label18.Text <> "XX" And CInt(日期_lb18.Text) > 0 Then : xlSheet.Cells(4 + 2 + 位置, 7) = 日期_lb18.Text : xlSheet.Cells(4 + 2 + 位置, 8) = Label18.Text
- For i As Integer = 0 To DataGridView18.Rows.Count - 1
- xlSheet.Cells(5 + 2 + 位置 + i, 7) = Strings.Left(DataGridView18(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 2 + 位置 + i, 8) = DataGridView18(1, i).Value.ToString
- Next
- End If : If 位置3 < DataGridView18.Rows.Count Then : 位置3 = DataGridView18.Rows.Count : End If
- If Label19.Text <> "XX" And CInt(日期_lb19.Text) > 0 Then : xlSheet.Cells(4 + 2 + 位置, 9) = 日期_lb19.Text : xlSheet.Cells(4 + 2 + 位置, 10) = Label19.Text
- For i As Integer = 0 To DataGridView19.Rows.Count - 1
- xlSheet.Cells(5 + 2 + 位置 + i, 9) = Strings.Left(DataGridView19(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 2 + 位置 + i, 10) = DataGridView19(1, i).Value.ToString
- Next
- End If : If 位置3 < DataGridView19.Rows.Count Then : 位置3 = DataGridView19.Rows.Count : End If
- If Label20.Text <> "XX" And CInt(日期_lb20.Text) > 0 Then : xlSheet.Cells(4 + 2 + 位置, 11) = 日期_lb20.Text : xlSheet.Cells(4 + 2 + 位置, 12) = Label20.Text
- For i As Integer = 0 To DataGridView20.Rows.Count - 1
- xlSheet.Cells(5 + 2 + 位置 + i, 11) = Strings.Left(DataGridView20(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 2 + 位置 + i, 12) = DataGridView20(1, i).Value.ToString
- Next
- End If : If 位置3 < DataGridView20.Rows.Count Then : 位置3 = DataGridView20.Rows.Count : End If
- If Label21.Text <> "XX" And CInt(日期_lb21.Text) > 0 Then : xlSheet.Cells(4 + 2 + 位置, 13) = 日期_lb21.Text : xlSheet.Cells(4 + 2 + 位置, 14) = Label21.Text
- For i As Integer = 0 To DataGridView21.Rows.Count - 1
- xlSheet.Cells(5 + 2 + 位置 + i, 13) = Strings.Left(DataGridView21(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 2 + 位置 + i, 14) = DataGridView21(1, i).Value.ToString
- Next
- End If : If 位置3 < DataGridView21.Rows.Count Then : 位置3 = DataGridView21.Rows.Count : End If : 位置 += 位置3
- '-----第四排-----------
- If Label22.Text <> "XX" And CInt(日期_lb22.Text) > 0 Then : xlSheet.Cells(4 + 3 + 位置, 1) = 日期_lb22.Text : xlSheet.Cells(4 + 3 + 位置, 2) = Label22.Text
- For i As Integer = 0 To DataGridView22.Rows.Count - 1
- xlSheet.Cells(5 + 3 + 位置 + i, 1) = Strings.Left(DataGridView22(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 3 + 位置 + i, 2) = DataGridView22(1, i).Value.ToString
- Next
- End If : 位置4 = DataGridView22.Rows.Count
- If Label23.Text <> "XX" And CInt(日期_lb23.Text) > 0 Then : xlSheet.Cells(4 + 3 + 位置, 3) = 日期_lb23.Text : xlSheet.Cells(4 + 3 + 位置, 4) = Label23.Text
- For i As Integer = 0 To DataGridView23.Rows.Count - 1
- xlSheet.Cells(5 + 3 + 位置 + i, 3) = Strings.Left(DataGridView23(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 3 + 位置 + i, 4) = DataGridView23(1, i).Value.ToString
- Next
- End If : If 位置4 < DataGridView23.Rows.Count Then : 位置4 = DataGridView23.Rows.Count : End If
- If Label24.Text <> "XX" And CInt(日期_lb24.Text) > 0 Then : xlSheet.Cells(4 + 3 + 位置, 5) = 日期_lb24.Text : xlSheet.Cells(4 + 3 + 位置, 6) = Label24.Text
- For i As Integer = 0 To DataGridView24.Rows.Count - 1
- xlSheet.Cells(5 + 3 + 位置 + i, 5) = Strings.Left(DataGridView24(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 3 + 位置 + i, 6) = DataGridView24(1, i).Value.ToString
- Next
- End If : If 位置4 < DataGridView24.Rows.Count Then : 位置4 = DataGridView24.Rows.Count : End If
- If Label25.Text <> "XX" And CInt(日期_lb25.Text) > 0 Then : xlSheet.Cells(4 + 3 + 位置, 7) = 日期_lb25.Text : xlSheet.Cells(4 + 3 + 位置, 8) = Label25.Text
- For i As Integer = 0 To DataGridView25.Rows.Count - 1
- xlSheet.Cells(5 + 3 + 位置 + i, 7) = Strings.Left(DataGridView25(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 3 + 位置 + i, 8) = DataGridView25(1, i).Value.ToString
- Next
- End If : If 位置4 < DataGridView25.Rows.Count Then : 位置4 = DataGridView25.Rows.Count : End If
- If Label26.Text <> "XX" And CInt(日期_lb26.Text) > 0 Then : xlSheet.Cells(4 + 3 + 位置, 9) = 日期_lb26.Text : xlSheet.Cells(4 + 3 + 位置, 10) = Label26.Text
- For i As Integer = 0 To DataGridView26.Rows.Count - 1
- xlSheet.Cells(5 + 3 + 位置 + i, 9) = Strings.Left(DataGridView26(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 3 + 位置 + i, 10) = DataGridView26(1, i).Value.ToString
- Next
- End If : If 位置4 < DataGridView26.Rows.Count Then : 位置4 = DataGridView26.Rows.Count : End If
- If Label27.Text <> "XX" And CInt(日期_lb27.Text) > 0 Then : xlSheet.Cells(4 + 3 + 位置, 11) = 日期_lb27.Text : xlSheet.Cells(4 + 3 + 位置, 12) = Label27.Text
- For i As Integer = 0 To DataGridView27.Rows.Count - 1
- xlSheet.Cells(5 + 3 + 位置 + i, 11) = Strings.Left(DataGridView27(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 3 + 位置 + i, 12) = DataGridView27(1, i).Value.ToString
- Next
- End If : If 位置4 < DataGridView27.Rows.Count Then : 位置4 = DataGridView27.Rows.Count : End If
- If Label28.Text <> "XX" And CInt(日期_lb28.Text) > 0 Then : xlSheet.Cells(4 + 3 + 位置, 13) = 日期_lb28.Text : xlSheet.Cells(4 + 3 + 位置, 14) = Label28.Text
- For i As Integer = 0 To DataGridView28.Rows.Count - 1
- xlSheet.Cells(5 + 3 + 位置 + i, 13) = Strings.Left(DataGridView28(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 3 + 位置 + i, 14) = DataGridView28(1, i).Value.ToString
- Next
- End If : If 位置4 < DataGridView28.Rows.Count Then : 位置4 = DataGridView28.Rows.Count : End If : 位置 += 位置4
- '-----第五排-----------
- If Label29.Text <> "XX" And CInt(日期_lb29.Text) > 0 Then : xlSheet.Cells(4 + 4 + 位置, 1) = 日期_lb29.Text : xlSheet.Cells(4 + 4 + 位置, 2) = Label29.Text
- For i As Integer = 0 To DataGridView29.Rows.Count - 1
- xlSheet.Cells(5 + 4 + 位置 + i, 1) = Strings.Left(DataGridView29(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 4 + 位置 + i, 2) = DataGridView29(1, i).Value.ToString
- Next
- End If : 位置5 = DataGridView29.Rows.Count
- If Label30.Text <> "XX" And CInt(日期_lb30.Text) > 0 Then : xlSheet.Cells(4 + 4 + 位置, 3) = 日期_lb30.Text : xlSheet.Cells(4 + 4 + 位置, 4) = Label30.Text
- For i As Integer = 0 To DataGridView30.Rows.Count - 1
- xlSheet.Cells(5 + 4 + 位置 + i, 3) = Strings.Left(DataGridView30(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 4 + 位置 + i, 4) = DataGridView30(1, i).Value.ToString
- Next
- End If : If 位置5 < DataGridView30.Rows.Count Then : 位置5 = DataGridView30.Rows.Count : End If
- If Label31.Text <> "XX" And CInt(日期_lb31.Text) > 0 Then : xlSheet.Cells(4 + 4 + 位置, 5) = 日期_lb31.Text : xlSheet.Cells(4 + 4 + 位置, 6) = Label31.Text
- For i As Integer = 0 To DataGridView31.Rows.Count - 1
- xlSheet.Cells(5 + 4 + 位置 + i, 5) = Strings.Left(DataGridView31(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 4 + 位置 + i, 6) = DataGridView31(1, i).Value.ToString
- Next
- End If : If 位置5 < DataGridView31.Rows.Count Then : 位置5 = DataGridView31.Rows.Count : End If
- If Label32.Text <> "XX" And CInt(日期_lb32.Text) > 0 Then : xlSheet.Cells(4 + 4 + 位置, 7) = 日期_lb32.Text : xlSheet.Cells(4 + 4 + 位置, 8) = Label32.Text
- For i As Integer = 0 To DataGridView32.Rows.Count - 1
- xlSheet.Cells(5 + 4 + 位置 + i, 7) = Strings.Left(DataGridView32(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 4 + 位置 + i, 8) = DataGridView32(1, i).Value.ToString
- Next
- End If : If 位置5 < DataGridView32.Rows.Count Then : 位置5 = DataGridView32.Rows.Count : End If
- If Label33.Text <> "XX" And CInt(日期_lb33.Text) > 0 Then : xlSheet.Cells(4 + 4 + 位置, 9) = 日期_lb33.Text : xlSheet.Cells(4 + 4 + 位置, 10) = Label33.Text
- For i As Integer = 0 To DataGridView33.Rows.Count - 1
- xlSheet.Cells(5 + 4 + 位置 + i, 9) = Strings.Left(DataGridView33(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 4 + 位置 + i, 10) = DataGridView33(1, i).Value.ToString
- Next
- End If : If 位置5 < DataGridView33.Rows.Count Then : 位置5 = DataGridView33.Rows.Count : End If
- If Label34.Text <> "XX" And CInt(日期_lb34.Text) > 0 Then : xlSheet.Cells(4 + 4 + 位置, 11) = 日期_lb34.Text : xlSheet.Cells(4 + 4 + 位置, 12) = Label34.Text
- For i As Integer = 0 To DataGridView34.Rows.Count - 1
- xlSheet.Cells(5 + 4 + 位置 + i, 11) = Strings.Left(DataGridView34(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 4 + 位置 + i, 12) = DataGridView34(1, i).Value.ToString
- Next
- End If : If 位置5 < DataGridView34.Rows.Count Then : 位置5 = DataGridView34.Rows.Count : End If
- If Label35.Text <> "XX" And CInt(日期_lb35.Text) > 0 Then : xlSheet.Cells(4 + 4 + 位置, 13) = 日期_lb35.Text : xlSheet.Cells(4 + 4 + 位置, 14) = Label35.Text
- For i As Integer = 0 To DataGridView35.Rows.Count - 1
- xlSheet.Cells(5 + 4 + 位置 + i, 13) = Strings.Left(DataGridView35(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 4 + 位置 + i, 14) = DataGridView35(1, i).Value.ToString
- Next
- End If : If 位置5 < DataGridView35.Rows.Count Then : 位置5 = DataGridView35.Rows.Count : End If : 位置 += 位置5
- '-----第六排-----------
- If Label36.Text <> "XX" And CInt(日期_lb36.Text) > 0 Then : xlSheet.Cells(4 + 5 + 位置, 1) = 日期_lb36.Text : xlSheet.Cells(4 + 5 + 位置, 2) = Label36.Text
- For i As Integer = 0 To DataGridView36.Rows.Count - 1
- xlSheet.Cells(5 + 5 + 位置 + i, 1) = Strings.Left(DataGridView36(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 5 + 位置 + i, 2) = DataGridView36(1, i).Value.ToString
- Next
- End If : 位置6 = DataGridView36.Rows.Count
- If Label37.Text <> "XX" And CInt(日期_lb37.Text) > 0 Then : xlSheet.Cells(4 + 5 + 位置, 3) = 日期_lb37.Text : xlSheet.Cells(4 + 5 + 位置, 4) = Label37.Text
- For i As Integer = 0 To DataGridView37.Rows.Count - 1
- xlSheet.Cells(5 + 5 + 位置 + i, 3) = Strings.Left(DataGridView37(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 5 + 位置 + i, 4) = DataGridView37(1, i).Value.ToString
- Next
- End If : If 位置6 < DataGridView37.Rows.Count Then : 位置6 = DataGridView37.Rows.Count : End If
- If Label38.Text <> "XX" And CInt(日期_lb38.Text) > 0 Then : xlSheet.Cells(4 + 5 + 位置, 5) = 日期_lb38.Text : xlSheet.Cells(4 + 5 + 位置, 6) = Label38.Text
- For i As Integer = 0 To DataGridView38.Rows.Count - 1
- xlSheet.Cells(5 + 5 + 位置 + i, 5) = Strings.Left(DataGridView38(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 5 + 位置 + i, 6) = DataGridView38(1, i).Value.ToString
- Next
- End If : If 位置6 < DataGridView38.Rows.Count Then : 位置6 = DataGridView38.Rows.Count : End If
- If Label39.Text <> "XX" And CInt(日期_lb39.Text) > 0 Then : xlSheet.Cells(4 + 5 + 位置, 7) = 日期_lb39.Text : xlSheet.Cells(4 + 5 + 位置, 8) = Label39.Text
- For i As Integer = 0 To DataGridView39.Rows.Count - 1
- xlSheet.Cells(5 + 5 + 位置 + i, 7) = Strings.Left(DataGridView39(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 5 + 位置 + i, 8) = DataGridView39(1, i).Value.ToString
- Next
- End If : If 位置6 < DataGridView39.Rows.Count Then : 位置6 = DataGridView39.Rows.Count : End If
- If Label40.Text <> "XX" And CInt(日期_lb40.Text) > 0 Then : xlSheet.Cells(4 + 5 + 位置, 9) = 日期_lb40.Text : xlSheet.Cells(4 + 5 + 位置, 10) = Label40.Text
- For i As Integer = 0 To DataGridView40.Rows.Count - 1
- xlSheet.Cells(5 + 5 + 位置 + i, 9) = Strings.Left(DataGridView40(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 5 + 位置 + i, 10) = DataGridView40(1, i).Value.ToString
- Next
- End If : If 位置6 < DataGridView40.Rows.Count Then : 位置6 = DataGridView40.Rows.Count : End If
- If Label41.Text <> "XX" And CInt(日期_lb41.Text) > 0 Then : xlSheet.Cells(4 + 5 + 位置, 11) = 日期_lb41.Text : xlSheet.Cells(4 + 5 + 位置, 12) = Label41.Text
- For i As Integer = 0 To DataGridView41.Rows.Count - 1
- xlSheet.Cells(5 + 5 + 位置 + i, 11) = Strings.Left(DataGridView41(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 5 + 位置 + i, 12) = DataGridView41(1, i).Value.ToString
- Next
- End If : If 位置6 < DataGridView41.Rows.Count Then : 位置6 = DataGridView41.Rows.Count : End If
- If Label42.Text <> "XX" And CInt(日期_lb42.Text) > 0 Then : xlSheet.Cells(4 + 5 + 位置, 13) = 日期_lb42.Text : xlSheet.Cells(4 + 5 + 位置, 14) = Label42.Text
- For i As Integer = 0 To DataGridView42.Rows.Count - 1
- xlSheet.Cells(5 + 5 + 位置 + i, 13) = Strings.Left(DataGridView42(0, i).Value.ToString, 5) : xlSheet.Cells(5 + 5 + 位置 + i, 14) = DataGridView42(1, i).Value.ToString
- Next
- End If : If 位置6 < DataGridView42.Rows.Count Then : 位置6 = DataGridView42.Rows.Count : End If : 位置 += 位置6 : BB(xlApp, xlSheet)
- xlSheet.PageSetup.PrintArea = "" : xlApp.Cells.Select() : xlSheet.Range("B1").Select() : xlApp.Application.WindowState = xlMinimized : MsgBox("排班月曆列印完成!!")
- End If : PA = ""
- End Sub
- Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
- Return CType(xlBook.Worksheets.Add, Worksheet)
- End Function
- Private Sub AA(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
- xlSheet.Cells.Select()
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 11 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 4
- xlSheet.Range("A3:G" & 位置1).Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
-
- xlSheet.Range("C4:G" & 位置1).Select()
- With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
- myExcel.Selection.Style = "Comma"
- myExcel.Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
- xlSheet.Range("C4:D" & 位置1).Select()
- myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
- xlSheet.Range("G4:G" & 位置1).Select()
- myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
- xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 35
- With myExcel.Selection : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
- .ReadingOrder = xlContext : .MergeCells = False : End With
- xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 6
- xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 6
- xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 7
- xlSheet.Columns("E:F").Select : myExcel.Selection.ColumnWidth = 8
- xlSheet.Range("A3:G" & 位置1).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- xlSheet.Range("A3:G3").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314
- .PatternTintAndShade = 0 : End With
- xlSheet.Range("A2:G2").Select()
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
- .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Range("A1:G1").Select()
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
- .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Range("I5").Select() : myExcel.ActiveWindow.DisplayGridlines = False
- End Sub
- Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
- xlSheet.Cells.Select()
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 9 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
- xlSheet.Range("A:A,C:C,E:E,G:G,I:I,K:K,M:M").Select() : myExcel.Selection.ColumnWidth = 6 : myExcel.ActiveWindow.DisplayGridlines = False
- xlSheet.Rows("3:3").Select
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Rows("4:4").Select
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Rows(4 + 1 + 位置1 & ":" & 4 + 1 + 位置1).Select
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Rows(4 + 2 + 位置1 + 位置2 & ":" & 4 + 2 + 位置1 + 位置2).Select
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Rows(4 + 3 + 位置1 + 位置2 + 位置3 & ":" & 4 + 3 + 位置1 + 位置2 + 位置3).Select
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Rows(4 + 4 + 位置1 + 位置2 + 位置3 + 位置4 & ":" & 4 + 4 + 位置1 + 位置2 + 位置3 + 位置4).Select
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Rows(4 + 5 + 位置1 + 位置2 + 位置3 + 位置4 + 位置5 & ":" & 4 + 5 + 位置1 + 位置2 + 位置3 + 位置4 + 位置5).Select
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Range("B:B,D:D,F:F,H:H,J:J,L:L,N:N").Select() : myExcel.Selection.ColumnWidth = 24
- xlSheet.Range("A3:B3").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Range("C3:D3").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Range("E3:F3").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Range("G3:H3").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Range("I3:J3").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Range("K3:L3").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Range("M3:N3").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- xlSheet.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = True
- Dim 第一, 第二 As String : 第一 = "" : 第二 = ""
- For i As Integer = 1 To 7
- If i = 1 Then : 第一 = "A" : 第二 = "B" : ElseIf i = 2 Then : 第一 = "C" : 第二 = "D" : ElseIf i = 3 Then : 第一 = "E" : 第二 = "F"
- ElseIf i = 4 Then : 第一 = "G" : 第二 = "H" : ElseIf i = 5 Then : 第一 = "I" : 第二 = "J" : ElseIf i = 6 Then : 第一 = "K" : 第二 = "L"
- ElseIf i = 7 Then : 第一 = "M" : 第二 = "N" : End If
- xlSheet.Range(第一 & "4:" & 第二 & 4 + 位置1).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range(第一 & "4:" & 第二 & "4").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- Next
- For i As Integer = 1 To 7
- If i = 1 Then : 第一 = "A" : 第二 = "B" : ElseIf i = 2 Then : 第一 = "C" : 第二 = "D" : ElseIf i = 3 Then : 第一 = "E" : 第二 = "F"
- ElseIf i = 4 Then : 第一 = "G" : 第二 = "H" : ElseIf i = 5 Then : 第一 = "I" : 第二 = "J" : ElseIf i = 6 Then : 第一 = "K" : 第二 = "L"
- ElseIf i = 7 Then : 第一 = "M" : 第二 = "N" : End If
- xlSheet.Range(第一 & 5 + 位置1 & ":" & 第二 & 5 + 位置1 + 位置2).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range(第一 & 5 + 位置1 & ":" & 第二 & 5 + 位置1).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- Next
- For i As Integer = 1 To 7
- If i = 1 Then : 第一 = "A" : 第二 = "B" : ElseIf i = 2 Then : 第一 = "C" : 第二 = "D" : ElseIf i = 3 Then : 第一 = "E" : 第二 = "F"
- ElseIf i = 4 Then : 第一 = "G" : 第二 = "H" : ElseIf i = 5 Then : 第一 = "I" : 第二 = "J" : ElseIf i = 6 Then : 第一 = "K" : 第二 = "L"
- ElseIf i = 7 Then : 第一 = "M" : 第二 = "N" : End If
- xlSheet.Range(第一 & 5 + 1 + 位置1 + 位置2 & ":" & 第二 & 5 + 1 + 位置1 + 位置2 + 位置3).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range(第一 & 5 + 1 + 位置1 + 位置2 & ":" & 第二 & 5 + 1 + 位置1 + 位置2).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- Next
- For i As Integer = 1 To 7
- If i = 1 Then : 第一 = "A" : 第二 = "B" : ElseIf i = 2 Then : 第一 = "C" : 第二 = "D" : ElseIf i = 3 Then : 第一 = "E" : 第二 = "F"
- ElseIf i = 4 Then : 第一 = "G" : 第二 = "H" : ElseIf i = 5 Then : 第一 = "I" : 第二 = "J" : ElseIf i = 6 Then : 第一 = "K" : 第二 = "L"
- ElseIf i = 7 Then : 第一 = "M" : 第二 = "N" : End If
- xlSheet.Range(第一 & 5 + 2 + 位置1 + 位置2 + 位置3 & ":" & 第二 & 5 + 2 + 位置1 + 位置2 + 位置3 + 位置4).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range(第一 & 5 + 2 + 位置1 + 位置2 + 位置3 & ":" & 第二 & 5 + 2 + 位置1 + 位置2 + 位置3).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- Next
- If 位置5 > 0 Then
- For i As Integer = 1 To 7
- If i = 1 Then : 第一 = "A" : 第二 = "B" : ElseIf i = 2 Then : 第一 = "C" : 第二 = "D" : ElseIf i = 3 Then : 第一 = "E" : 第二 = "F"
- ElseIf i = 4 Then : 第一 = "G" : 第二 = "H" : ElseIf i = 5 Then : 第一 = "I" : 第二 = "J" : ElseIf i = 6 Then : 第一 = "K" : 第二 = "L"
- ElseIf i = 7 Then : 第一 = "M" : 第二 = "N" : End If
- xlSheet.Range(第一 & 5 + 3 + 位置1 + 位置2 + 位置3 + 位置4 & ":" & 第二 & 5 + 3 + 位置1 + 位置2 + 位置3 + 位置4 + 位置5).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range(第一 & 5 + 3 + 位置1 + 位置2 + 位置3 + 位置4 & ":" & 第二 & 5 + 3 + 位置1 + 位置2 + 位置3 + 位置4).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- Next
- End If
- If 位置6 > 0 Then
- For i As Integer = 1 To 7
- If i = 1 Then : 第一 = "A" : 第二 = "B" : ElseIf i = 2 Then : 第一 = "C" : 第二 = "D" : ElseIf i = 3 Then : 第一 = "E" : 第二 = "F"
- ElseIf i = 4 Then : 第一 = "G" : 第二 = "H" : ElseIf i = 5 Then : 第一 = "I" : 第二 = "J" : ElseIf i = 6 Then : 第一 = "K" : 第二 = "L"
- ElseIf i = 7 Then : 第一 = "M" : 第二 = "N" : End If
- xlSheet.Range(第一 & 5 + 4 + 位置1 + 位置2 + 位置3 + 位置4 + 位置5 & ":" & 第二 & 5 + 4 + 位置1 + 位置2 + 位置3 + 位置4 + 位置5 + 位置6).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range(第一 & 5 + 4 + 位置1 + 位置2 + 位置3 + 位置4 + 位置5 & ":" & 第二 & 5 + 4 + 位置1 + 位置2 + 位置3 + 位置4 + 位置5).Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- Next
- End If
- xlSheet.Range("A3:B3").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range("C3:D3").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range("E3:F3").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range("G3:H3").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range("I3:J3").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range("K3:L3").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range("M3:N3").Select()
- myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
- myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
- xlSheet.Range("A3:B3").Select()
- With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 13421823 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
- xlSheet.Range("C3:L3").Select()
- With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314
- .PatternTintAndShade = 0 : End With
- xlSheet.Range("M3:N3").Select()
- With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 5296274 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
- xlSheet.Columns("A:B").Select : With myExcel.Selection.Font : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = -0.249977111117893 : End With
- xlSheet.Columns("M:N").Select : With myExcel.Selection.Font : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = -0.249977111117893 : End With
- xlSheet.Range("A1:N1").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Range("A2:N2").Select()
- With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
- .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
- With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
- .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
- xlSheet.Rows("1:2").Select : With myExcel.Selection.Font : .ColorIndex = xlAutomatic : .TintAndShade = 0 : End With
- End Sub
- End Class
|