?? frmzcsy.frm
字號:
Caption = "單位:元"
Height = 180
Left = 9150
TabIndex = 1
Top = 450
Width = 630
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "工會01表"
Height = 180
Left = 9150
TabIndex = 0
Top = 210
Width = 720
End
End
Attribute VB_Name = "frmzcsy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const ASC_ENTER = 13 '回車
Dim gRow As Integer
Dim gCol As Integer
Dim gRow1 As Integer
Dim gCol1 As Integer
Dim zsbexcel As Excel.Application
Private Sub cmdprint_Click()
Dim t As Integer
Dim j As Integer
Set zsbexcel = New Excel.Application
zsbexcel.Visible = True
' Set zsbexcel = Nothing
zsbexcel.SheetsInNewWorkbook = 1
Set zsbworkbook = zsbexcel.Workbooks.Open(App.Path + "\" + "sheet\shang01.xlt")
With zsbexcel.ActiveSheet
.Range("C5").Value = Text2
.Range("J6").Value = DTPicker1.Year 'Format(DTPicker1.Value) 'Year + "-" + DTPicker1.Month + "-" + DTPicker1.Day
.Range("L6").Value = DTPicker1.Month
.Range("N6").Value = DTPicker1.Day
.Range("H47").Value = Text3
.Range("H48").Value = Text4
.Range("H49").Value = Text5
.Range("H50").Value = Text6
'.Range("G6").Value = DTPicker1.Month
'.Range("J6").Value = DTPicker1.Day
For t = 9 To 45
'If t = 6 Or t = 20 Or t = 22 Or t = 23 Then
't = t + 1
'Else
'End If
Grid1.Row = t - 8
Grid2.Row = t - 8
'For j = 2 To 3
Grid1.Col = 2
Grid2.Col = 2
a = "E" + CStr(t)
a1 = "O" + CStr(t)
'If IsNull(Grid1.Text) = False Then
.Range(a) = Grid1.Text
.Range(a1) = Grid2.Text
'End If
'Next j
Next t
For j = 10 To 45
Grid1.Row = j - 8
Grid2.Row = j - 8
'For j = 2 To 3
Grid1.Col = 3
Grid2.Col = 3
b = "G" + CStr(j)
b1 = "Q" + CStr(j)
.Range(b) = Grid1.Text
.Range(b1) = Grid2.Text
'If IsNull(Grid1.Text) = False Or Grid1.Text = "×" Then
'.Range(b) = ""
'.Range(a) = ""
'End If
'Next j
Next j
End With
'dd = MsgBox("yes or no", vbYesNo + vbSystemModal)
'If dd = vbNo Then Exit Sub
' zsbexcel.ActiveSheet.PageSetup.Orientation = xlPortrait 'xlLandscape
'zsbexcel.ActiveSheet.PageSetup.PaperSize = xlPaperA4
zsbexcel.Caption = "打印預覽"
zsbexcel.ActiveWindow.SelectedSheets.PrintPreview
'zsbexcel.ActiveSheet.PrintOut
zsbexcel.DisplayAlerts = False
zsbexcel.Quit
zsbexcel.DisplayAlerts = True
Set zsbexcel = Nothing
Exit Sub
'errorhandler:
'MsgBox "請正確安裝EXCEL！", vbOKOnly + vbCritical
'Exit Sub
End Sub
Private Sub Command1_Click()
SaveYearStar
End Sub
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
SSTab1.Tab = 0
Text2 = frmqy.qymc
DTPicker1 = Date
Grid1.ColWidth(0) = (Grid1.Width / 4) + 1150
Grid1.ColWidth(1) = (Grid1.Width / 4) - 1200
Grid1.ColWidth(2) = (Grid1.Width / 4) - 170
Grid1.ColWidth(3) = (Grid1.Width / 4) - 170
Grid2.ColWidth(0) = (Grid2.Width / 4) + 1150
Grid2.ColWidth(1) = (Grid2.Width / 4) - 1200
Grid2.ColWidth(2) = (Grid2.Width / 4) - 170
Grid2.ColWidth(3) = (Grid2.Width / 4) - 170
Grid1.TextMatrix(0, 0) = " 資 產"
Grid1.TextMatrix(0, 1) = " 行次"
Grid1.TextMatrix(0, 2) = " 年初數"
Grid1.TextMatrix(0, 3) = " 期末數"
Grid1.TextMatrix(1, 0) = "流動資產"
Grid1.TextMatrix(2, 0) = " 貨幣資金"
Grid1.TextMatrix(2, 1) = " 1"
Grid1.TextMatrix(3, 0) = " 短期投資"
Grid1.TextMatrix(3, 1) = " 2"
Grid1.TextMatrix(4, 0) = " 應收票據"
Grid1.TextMatrix(4, 1) = " 3"
Grid1.TextMatrix(5, 0) = " 應收帳款"
Grid1.TextMatrix(5, 1) = " 4"
Grid1.TextMatrix(6, 0) = " 減:壞帳準備"
Grid1.TextMatrix(6, 1) = " 5"
Grid1.TextMatrix(7, 0) = " 應收帳款凈額"
Grid1.TextMatrix(7, 1) = " 6"
Grid1.TextMatrix(8, 0) = " 預付帳款"
Grid1.TextMatrix(8, 1) = " 7"
Grid1.TextMatrix(9, 0) = " 應收出口退稅"
Grid1.TextMatrix(9, 1) = " 8"
Grid1.TextMatrix(10, 0) = " 應收補貼款"
Grid1.TextMatrix(10, 1) = " 9"
Grid1.TextMatrix(11, 0) = " 其他應收款"
Grid1.TextMatrix(11, 1) = " 10"
Grid1.TextMatrix(12, 0) = " 存貨"
Grid1.TextMatrix(12, 1) = " 11"
Grid1.TextMatrix(13, 0) = " 待轉其它業務支出"
Grid1.TextMatrix(13, 1) = " 12"
Grid1.TextMatrix(14, 0) = " 待攤費用"
Grid1.TextMatrix(14, 1) = " 13"
Grid1.TextMatrix(15, 0) = " 待處理流動資產凈損失"
Grid1.TextMatrix(15, 1) = " 14"
Grid1.TextMatrix(16, 0) = " 一年內到期的長期債券投資"
Grid1.TextMatrix(16, 1) = " 15"
Grid1.TextMatrix(17, 0) = " 其他流動資產"
Grid1.TextMatrix(17, 1) = " 16"
Grid1.TextMatrix(18, 0) = " 流動資產合計"
Grid1.TextMatrix(18, 1) = " 20"
Grid1.TextMatrix(19, 0) = "長期投資:"
Grid1.TextMatrix(20, 0) = " 長期投資"
Grid1.TextMatrix(20, 1) = " 21"
Grid1.TextMatrix(21, 0) = "固定投資:"
Grid1.TextMatrix(22, 0) = " 固定資產原價"
Grid1.TextMatrix(22, 1) = " 24"
Grid1.TextMatrix(23, 0) = " 減:累計折舊"
Grid1.TextMatrix(23, 1) = " 25"
Grid1.TextMatrix(24, 0) = " 固定資產凈值"
Grid1.TextMatrix(24, 1) = " 26"
Grid1.TextMatrix(25, 0) = " 固定資產清理"
Grid1.TextMatrix(25, 1) = " 27"
Grid1.TextMatrix(26, 0) = " 在建工程"
Grid1.TextMatrix(26, 1) = " 28"
Grid1.TextMatrix(27, 0) = " 待處理固定資產凈損失"
Grid1.TextMatrix(27, 1) = " 29"
Grid1.TextMatrix(28, 0) = " 固定資產合計"
Grid1.TextMatrix(28, 1) = " 35"
Grid1.TextMatrix(29, 0) = "無形及遞延資產:"
Grid1.TextMatrix(30, 0) = " 無形資產"
Grid1.TextMatrix(30, 1) = " 36"
Grid1.TextMatrix(31, 0) = " 遞延資產"
Grid1.TextMatrix(31, 1) = " 37"
Grid1.TextMatrix(32, 0) = " 無形及遞延資產合計"
Grid1.TextMatrix(32, 1) = " 40"
Grid1.TextMatrix(33, 0) = "其他長期資產:"
Grid1.TextMatrix(34, 0) = " 其他長期資產"
Grid1.TextMatrix(34, 1) = " 41"
Grid1.TextMatrix(35, 0) = "遞延稅項:"
Grid1.TextMatrix(36, 0) = " 遞延稅款借項"
Grid1.TextMatrix(36, 1) = " 42"
Grid1.TextMatrix(37, 0) = " 資產總計"
Grid1.TextMatrix(37, 1) = " 45"
For X = 1 To 37
Grid1.TextMatrix(X, 2) = Format(0, "###0.00")
Grid1.TextMatrix(X, 3) = Format(0, "###0.00")
If X = 1 Or X = 19 Or X = 21 Or X = 29 Or X = 33 Or X = 35 Then
Grid1.TextMatrix(X, 2) = ""
Grid1.TextMatrix(X, 3) = ""
Else
End If
Next X
loadyearstar
Grid1.Row = 7
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 7
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 18
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 18
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 24
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 24
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 28
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 28
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 32
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 32
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 37
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 37
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid2.TextMatrix(0, 0) = " 負債及所有者權益"
Grid2.TextMatrix(0, 1) = " 行次"
Grid2.TextMatrix(0, 2) = " 年初數"
Grid2.TextMatrix(0, 3) = " 期末數"
Grid2.TextMatrix(1, 0) = "流動負債"
Grid2.TextMatrix(2, 0) = " 短期借款"
Grid2.TextMatrix(2, 1) = " 46"
Grid2.TextMatrix(3, 0) = " 應付票據"
Grid2.TextMatrix(3, 1) = " 47"
Grid2.TextMatrix(4, 0) = " 應付帳款"
Grid2.TextMatrix(4, 1) = " 48"
Grid2.TextMatrix(5, 0) = " 預收帳款"
Grid2.TextMatrix(5, 1) = " 49"
Grid2.TextMatrix(6, 0) = " 其他應付款"
Grid2.TextMatrix(6, 1) = " 50"
Grid2.TextMatrix(7, 0) = " 應付工資"
Grid2.TextMatrix(7, 1) = " 51"
Grid2.TextMatrix(8, 0) = " 應付福利款"
Grid2.TextMatrix(8, 1) = " 52"
Grid2.TextMatrix(9, 0) = " 未交稅金"
Grid2.TextMatrix(9, 1) = " 53"
Grid2.TextMatrix(10, 0) = " 未付利潤"
Grid2.TextMatrix(10, 1) = " 54"
Grid2.TextMatrix(11, 0) = " 其他未交款"
Grid2.TextMatrix(11, 1) = " 55"
Grid2.TextMatrix(12, 0) = " 預提費用"
Grid2.TextMatrix(12, 1) = " 56"
Grid2.TextMatrix(13, 0) = " 一年內到期的長期負債"
Grid2.TextMatrix(13, 1) = " 57"
Grid2.TextMatrix(14, 0) = " 其他流動負債"
Grid2.TextMatrix(14, 1) = " 58"
Grid2.TextMatrix(16, 0) = " 流動負債合計"
Grid2.TextMatrix(16, 1) = " 65"
Grid2.TextMatrix(18, 0) = "長期負債:"
Grid2.TextMatrix(19, 0) = " 長期借款"
Grid2.TextMatrix(19, 1) = " 66"
Grid2.TextMatrix(20, 0) = " 應付債券"
Grid2.TextMatrix(20, 1) = " 67"
Grid2.TextMatrix(21, 0) = " 長期應付款"
Grid2.TextMatrix(21, 1) = " 68"
Grid2.TextMatrix(22, 0) = " 其他長期負債"
Grid2.TextMatrix(22, 1) = " 69"
Grid2.TextMatrix(23, 0) = " 其中:住房周轉金"
Grid2.TextMatrix(23, 1) = " 70"
Grid2.TextMatrix(24, 0) = " 長期負債合計"
Grid2.TextMatrix(24, 1) = " 76"
Grid2.TextMatrix(25, 0) = "遞延稅項:"
Grid2.TextMatrix(26, 0) = " 遞延稅款貸項"
Grid2.TextMatrix(26, 1) = " 77"
Grid2.TextMatrix(27, 0) = " 負債合計"
Grid2.TextMatrix(27, 1) = " 80"
Grid2.TextMatrix(30, 0) = "所有者權益:"
Grid2.TextMatrix(31, 0) = " 實收資本"
Grid2.TextMatrix(31, 1) = " 81"
Grid2.TextMatrix(32, 0) = " 資本公積"
Grid2.TextMatrix(32, 1) = " 82"
Grid2.TextMatrix(33, 0) = " 盈余公積"
Grid2.TextMatrix(33, 1) = " 83"
Grid2.TextMatrix(34, 0) = " 其中:公益金"
Grid2.TextMatrix(34, 1) = " 84"
Grid2.TextMatrix(35, 0) = " 未分配利潤"
Grid2.TextMatrix(35, 1) = " 85"
Grid2.TextMatrix(36, 0) = " 所有者權益合計"
Grid2.TextMatrix(36, 1) = " 88"
Grid2.TextMatrix(37, 0) = " 負債及所有者權益總計"
Grid2.TextMatrix(37, 1) = " 90"
Grid2.Row = 16
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 16
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 24
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 24
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 27
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 27
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 36
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 36
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 37
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 37
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
For Y = 1 To 37
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -