下拉 并其它Sheet
=INDIRECT("Res!$A$4:$A$6")
条件
=IF(F12(C9-I9)>(I9*0.1),"5","8")
=SUMIF(J7:J125,"调休",I7:I125)
=IF((C9-I9)>(I9*0.1),"5","8")
=IF((C9-I9)>(I9*(INDIRECT("Res!B4")/100)),INDIRECT("Res!A4"),INDIRECT("Res!A5"))
=IF((B9-I9)/I9>=(INDIRECT("Res!B4")/100),INDIRECT("Res!A5"),INDIRECT("Res!A6"))
=IF(isblank(B9),0,IF((B9-I9)/I9>=(INDIRECT("Res!B4")/100),IF((B9-I9)/I9>=(INDIRECT("Res!B5")/100),INDIRECT("Res!A4"),INDIRECT("Res!A5")),INDIRECT("Res!A6")))
=IF(OR(ISBLANK(B9),B9=0),0,IF((B9-I9)/I9>=(INDIRECT("Res!B4")/100),IF((B9-I9)/I9>=(INDIRECT("Res!B5")/100),INDIRECT("Res!A4"),INDIRECT("Res!A5")),INDIRECT("Res!A6")))
=IF((B9-I9)/I9>=(INDIRECT("Res!B4")/100),IF((B9-I9)/I9>=(INDIRECT("Res!B5")/100),INDIRECT("Res!A4"),INDIRECT("Res!A5")),INDIRECT("Res!A6"))
IF((B9-I9)/I9>=(INDIRECT("Res!B5")/100),INDIRECT("Res!A4"),INDIRECT("Res!A5"))
四舍五入
=ROUND(B9*(1-D9/100),1)
---删除行,CSV文件导入到删除行中-----******************-------------------
Private Sub btnGetData_Click()
Dim lRetMsg
lRetMsg = MsgBox("删除数据比较慢,请稍等。。。", vbOKOnly, "SystemInfo")
ClearRows
InputCSV
End Sub
Public Function ClearRows()
Dim iIndex As Integer
Dim iCount As Integer
iCount = Sheet1.UsedRange.Rows.Count
For iIndex = iCount To 4 Step -1
Rows(iIndex).Delete
Next
End Function
Sub InputCSV()
Dim Wb As Workbook
Dim Arr
Dim rng As Range
On Error GoTo Err_Handle
Set Wb = GetObject(Application.GetOpenFilename("csv File,*.csv", , "Select csv file", , False))
If TypeName(MyFile) = "Boolean" Then Exit Sub
Wb.ActiveSheet.Activate
Arr = Wb.ActiveSheet.Range("A1").CurrentRegion
Wb.Close False
Range("A4").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
Sheet1.Activate
Rows(4).Delete
Err_Handle:
End Sub
--------******************-------------------