;)
業務員最兩個公司的賬，被公司發現會怎么樣
K14614456398914
于2019-12-02 17:23 發布 ??871次瀏覽
- 送心意
汪晨老師
職稱： 中級會計師,初級會計師
2019-12-02 17:23
你好，那根據企業的規定，嚴重開除。
相關問題討論
您好，您可以使用if函數
2022-03-15 21:30:36
你好，嗯嗯，有這種操作的呢，是的
2020-04-23 16:40:45
你好，如果是在職職工，簽訂勞動合同的，可以作為工資薪金直接發放。如果不是在職職工，不參加社會保險的，或者說是兼職的，那就要作為勞務報酬，需要開發票
2020-04-26 06:36:07
點擊【開發工具】-【Visual Basic】或者Alt+F11的快捷鍵進入VBE編輯界面。
插入一個新的模塊
粘貼下列代碼在模塊中：
Sub CFGZB()
Dim myRange As Variant
Dim myArray
Dim titleRange As Range
Dim title As String
Dim columnNum As Integer
myRange = Application.InputBox(prompt:=請選擇標題行：, Type:=8)
myArray = WorksheetFunction.Transpose(myRange)
Set titleRange = Application.InputBox(prompt:=請選擇拆分的表頭，必須是第一行，且為一個單元格，如：“姓名”, Type:=8)
title = titleRange.Value
columnNum = titleRange.Column
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i&, Myr&, Arr, num&
Dim d, k
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> 數據源 Then
Sheets(i).Delete
End If
Next i
Set d = CreateObject(Scripting.Dictionary)
Myr = Worksheets(數據源).UsedRange.Rows.Count
Arr = Worksheets(數據源).Range(Cells(2, columnNum), Cells(Myr, columnNum))
For i = 1 To UBound(Arr)
d(Arr(i, 1)) =
Next
k = d.keys
For i = 0 To UBound(k)
Set conn = CreateObject(adodb.connection)
conn.Open provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= & ThisWorkbook.FullName
Sql = select * from [數據源$] where & title & = & k(i) &
Worksheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = k(i)
For num = 1 To UBound(myArray)
.Cells(1, num) = myArray(num, 1)
Next num
.Range(A2).CopyFromRecordset conn.Execute(Sql)
End With
Sheets(1).Select
Sheets(1).Cells.Select
Selection.Copy
Worksheets(Sheets.Count).Activate
ActiveSheet.Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next i
conn.Close
Set conn = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
插入一個控件按鈕，并指定宏到剛才插入的模塊代碼。
點擊插入的按鈕控件，根據提示選擇標題行和要拆分的列字段
2019-12-04 21:37:38
這種情況，通過財務人員與業務的稽核關系管理，仔細審核資金的進出，完全可以避免。
2019-07-13 10:52:37
還沒有符合您的答案？立即在線咨詢老師 免費咨詢老師
精選問題
獲取全部相關問題信息
知識產權認證證書
粵公網安備 44030502000945號
加載中...
K14614456398914 追問
2019-12-02 17:25
汪晨老師 解答
2019-12-02 17:26