?? frmzcgy.frm
字號:
Height = 180
Left = 6480
TabIndex = 31
Top = 60
Width = 450
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "編制單位:"
Height = 180
Left = -72480
TabIndex = 30
Top = 60
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期:"
Height = 180
Left = -68520
TabIndex = 29
Top = 60
Width = 450
End
End
Begin VB.TextBox Text1
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 270
Left = 450
TabIndex = 2
Text = "Text1"
Top = -330
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "單位:元"
Height = 180
Left = 9195
TabIndex = 1
Top = 315
Width = 630
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "工會01表"
Height = 180
Left = 9195
TabIndex = 0
Top = 75
Width = 720
End
End
Attribute VB_Name = "frmzcgy"
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\gong01.xlt")
With zsbexcel.ActiveSheet
.Range("C7").Value = Text2
.Range("J7").Value = DTPicker1.Year 'Format(DTPicker1.Value) 'Year + "-" + DTPicker1.Month + "-" + DTPicker1.Day
.Range("L7").Value = DTPicker1.Month
.Range("N7").Value = DTPicker1.Day
.Range("F47").Value = Text3
.Range("H48").Value = Text4
.Range("D49").Value = Text5
.Range("K49").Value = Text6
.Range("D50").Value = Text7
.Range("K50").Value = Text8
'.Range("G6").Value = DTPicker1.Month
'.Range("J6").Value = DTPicker1.Day
For t = 10 To 45
'If t = 6 Or t = 20 Or t = 22 Or t = 23 Then
't = t + 1
'Else
'End If
Grid1.Row = t - 9
Grid2.Row = t - 9
'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 - 9
Grid2.Row = j - 9
'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 = "打印預(yù)覽"
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) = " 資 產(chǎn)"
Grid1.TextMatrix(0, 1) = " 行次"
Grid1.TextMatrix(0, 2) = " 年初數(shù)"
Grid1.TextMatrix(0, 3) = " 期末數(shù)"
Grid1.TextMatrix(1, 0) = "流動資產(chǎn)"
Grid1.TextMatrix(2, 0) = " 貨幣資金"
Grid1.TextMatrix(2, 1) = " 1"
Grid1.TextMatrix(3, 0) = " 短期投資"
Grid1.TextMatrix(3, 1) = " 2"
Grid1.TextMatrix(4, 0) = " 應(yīng)收票據(jù)"
Grid1.TextMatrix(4, 1) = " 3"
Grid1.TextMatrix(5, 0) = " 應(yīng)收帳款"
Grid1.TextMatrix(5, 1) = " 4"
Grid1.TextMatrix(6, 0) = " 減:壞帳準(zhǔn)備"
Grid1.TextMatrix(6, 1) = " 5"
Grid1.TextMatrix(7, 0) = " 應(yīng)收帳款凈額"
Grid1.TextMatrix(7, 1) = " 6"
Grid1.TextMatrix(8, 0) = " 預(yù)付帳款"
Grid1.TextMatrix(8, 1) = " 7"
Grid1.TextMatrix(9, 0) = " 應(yīng)收補貼款"
Grid1.TextMatrix(9, 1) = " 8"
Grid1.TextMatrix(10, 0) = " 其他應(yīng)收款"
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) = " 待處理流動資產(chǎn)凈損失"
Grid1.TextMatrix(13, 1) = " 12"
Grid1.TextMatrix(14, 0) = " 一年內(nèi)到期的長期債券投資"
Grid1.TextMatrix(14, 1) = " 13"
Grid1.TextMatrix(15, 0) = " 其他流動資產(chǎn)"
Grid1.TextMatrix(15, 1) = " 14"
Grid1.TextMatrix(16, 0) = " 流動資產(chǎn)合計"
Grid1.TextMatrix(16, 1) = " 20"
Grid1.TextMatrix(17, 0) = "長期投資:"
Grid1.TextMatrix(18, 0) = " 長期投資"
Grid1.TextMatrix(18, 1) = " 21"
Grid1.TextMatrix(19, 0) = "固定投資:"
Grid1.TextMatrix(20, 0) = " 固定資產(chǎn)原價"
Grid1.TextMatrix(20, 1) = " 24"
Grid1.TextMatrix(21, 0) = " 減:累計折舊"
Grid1.TextMatrix(21, 1) = " 25"
Grid1.TextMatrix(22, 0) = " 固定資產(chǎn)凈值"
Grid1.TextMatrix(22, 1) = " 26"
Grid1.TextMatrix(23, 0) = " 固定資產(chǎn)清理"
Grid1.TextMatrix(23, 1) = " 27"
Grid1.TextMatrix(24, 0) = " 在建工程"
Grid1.TextMatrix(24, 1) = " 28"
Grid1.TextMatrix(25, 0) = " 待處理固定資產(chǎn)凈損失"
Grid1.TextMatrix(25, 1) = " 29"
Grid1.TextMatrix(26, 0) = " 固定資產(chǎn)合計"
Grid1.TextMatrix(26, 1) = " 35"
Grid1.TextMatrix(27, 0) = "無形及遞延資產(chǎn):"
Grid1.TextMatrix(28, 0) = " 無形資產(chǎn)"
Grid1.TextMatrix(28, 1) = " 36"
Grid1.TextMatrix(29, 0) = " 遞延資產(chǎn)"
Grid1.TextMatrix(29, 1) = " 37"
Grid1.TextMatrix(31, 0) = " 無形及遞延資產(chǎn)合計"
Grid1.TextMatrix(31, 1) = " 40"
Grid1.TextMatrix(32, 0) = "其他長期資產(chǎn):"
Grid1.TextMatrix(33, 0) = " 其他長期資產(chǎn)"
Grid1.TextMatrix(33, 1) = " 41"
Grid1.TextMatrix(34, 0) = "遞延稅項:"
Grid1.TextMatrix(35, 0) = " 遞延稅款借項"
Grid1.TextMatrix(35, 1) = " 42"
Grid1.TextMatrix(36, 0) = " 資產(chǎn)總計"
Grid1.TextMatrix(36, 1) = " 50"
For X = 1 To 36
Grid1.TextMatrix(X, 2) = Format(0, "###0.00")
Grid1.TextMatrix(X, 3) = Format(0, "###0.00")
If X = 1 Or X = 17 Or X = 19 Or X = 27 Or X = 30 Or X = 32 Or X = 34 Then
Grid1.TextMatrix(X, 2) = ""
Grid1.TextMatrix(X, 3) = ""
Else
End If
Next X
Grid1.Row = 7
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 7
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 16
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 16
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 22
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 22
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 26
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 26
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 31
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 31
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 36
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
Grid1.Row = 36
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
Grid2.TextMatrix(0, 0) = " 負(fù)債及所有者權(quán)益"
Grid2.TextMatrix(0, 1) = " 行次"
Grid2.TextMatrix(0, 2) = " 年初數(shù)"
Grid2.TextMatrix(0, 3) = " 期末數(shù)"
Grid2.TextMatrix(1, 0) = "流動負(fù)債"
Grid2.TextMatrix(2, 0) = " 短期借款"
Grid2.TextMatrix(2, 1) = " 51"
Grid2.TextMatrix(3, 0) = " 應(yīng)付票據(jù)"
Grid2.TextMatrix(3, 1) = " 52"
Grid2.TextMatrix(4, 0) = " 應(yīng)付帳款"
Grid2.TextMatrix(4, 1) = " 53"
Grid2.TextMatrix(5, 0) = " 預(yù)收帳款"
Grid2.TextMatrix(5, 1) = " 54"
Grid2.TextMatrix(6, 0) = " 其他應(yīng)付款"
Grid2.TextMatrix(6, 1) = " 55"
Grid2.TextMatrix(7, 0) = " 應(yīng)付工資"
Grid2.TextMatrix(7, 1) = " 56"
Grid2.TextMatrix(8, 0) = " 應(yīng)付福利款"
Grid2.TextMatrix(8, 1) = " 57"
Grid2.TextMatrix(9, 0) = " 未交稅金"
Grid2.TextMatrix(9, 1) = " 58"
Grid2.TextMatrix(10, 0) = " 未付利潤"
Grid2.TextMatrix(10, 1) = " 59"
Grid2.TextMatrix(11, 0) = " 其他未交款"
Grid2.TextMatrix(11, 1) = " 60"
Grid2.TextMatrix(12, 0) = " 預(yù)提費用"
Grid2.TextMatrix(12, 1) = " 61"
Grid2.TextMatrix(13, 0) = " 一年內(nèi)到期的長期負(fù)債"
Grid2.TextMatrix(13, 1) = " 62"
Grid2.TextMatrix(14, 0) = " 其他流動負(fù)債"
Grid2.TextMatrix(14, 1) = " 63"
Grid2.TextMatrix(15, 0) = " 流動負(fù)債合計"
Grid2.TextMatrix(15, 1) = " 70"
Grid2.TextMatrix(16, 0) = "長期負(fù)債:"
Grid2.TextMatrix(17, 0) = " 長期借款"
Grid2.TextMatrix(17, 1) = " 71"
Grid2.TextMatrix(18, 0) = " 應(yīng)付債券"
Grid2.TextMatrix(18, 1) = " 72"
Grid2.TextMatrix(19, 0) = " 長期應(yīng)付款"
Grid2.TextMatrix(19, 1) = " 73"
Grid2.TextMatrix(20, 0) = " 其他長期負(fù)債"
Grid2.TextMatrix(20, 1) = " 80"
Grid2.TextMatrix(21, 0) = " 其中:住房周轉(zhuǎn)金"
Grid2.TextMatrix(21, 1) = " 81"
Grid2.TextMatrix(23, 0) = " 長期負(fù)債合計"
Grid2.TextMatrix(23, 1) = " 83"
Grid2.TextMatrix(24, 0) = "遞延稅項:"
Grid2.TextMatrix(25, 0) = " 遞延稅款貸項"
Grid2.TextMatrix(25, 1) = " 85"
Grid2.TextMatrix(26, 0) = " 負(fù)債合計"
Grid2.TextMatrix(26, 1) = " 90"
Grid2.TextMatrix(27, 0) = "所有者權(quán)益:"
Grid2.TextMatrix(28, 0) = " 實收資本"
Grid2.TextMatrix(28, 1) = " 91"
Grid2.TextMatrix(29, 0) = " 資本公積"
Grid2.TextMatrix(29, 1) = " 92"
Grid2.TextMatrix(30, 0) = " 盈余公積"
Grid2.TextMatrix(30, 1) = " 93"
Grid2.TextMatrix(31, 0) = " 其中公益金"
Grid2.TextMatrix(31, 1) = " 94"
Grid2.TextMatrix(32, 0) = " 未分配利潤"
Grid2.TextMatrix(32, 1) = " 95"
Grid2.TextMatrix(33, 0) = " 所有者權(quán)益合計"
Grid2.TextMatrix(33, 1) = " 96"
Grid2.TextMatrix(36, 0) = " 負(fù)債及所有者權(quán)益總計"
Grid2.TextMatrix(36, 1) = " 100"
Grid2.Row = 15
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 15
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 23
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 23
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 26
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 26
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 33
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 33
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 36
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 36
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -