VBA记录
来源:互联网 发布:查找数组最大值最小值 编辑:程序博客网 时间:2024/06/05 11:02
下拉 并其它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
--------******************-------------------
- VBA记录
- VBA使用记录
- 学习VBA的记录
- VBA中的Combox选择第一条记录
- Excel.VBA 快速删除重复记录
- vba
- vba
- vba
- vba
- VBA
- vba
- VBA
- VBA
- VBA
- VBA
- VBA
- vba
- vba
- 聚类(clustering)与分类(Classification)的区别
- Julia: save 与 @save
- Hibernate实体类注解
- wxPython笔记(Getting started with wxPython 2)
- pAdTy_-6 用片段(fragment)构建动态的用户界面(UI)
- VBA记录
- (NO.00003)iOS游戏简单的机器人投射游戏成形记(十三)
- android解析xml和json数据(获取本地服务器数据)
- vi的.vimrc配置文件
- 1.1 基础编程模型
- 【NOIP2015】【BZOJ4326】运输计划
- JS中数组的操作
- linux ssh without passwd
- jquery运动