请问如何用for生成满足条件的多个变量?

请问如何用for生成满足条件的多个变量?
我有两个日期字段,first 、last,比如first是2020-07-01 12:15:12 ,last 是2020-07-01 15:23:15.我想要首先提取小时字段,first是12点,last是15点,我想要生成两个时间点之间的变量,这里生成12、13、14、15这几个字段,取值为1.在这里插入代码片for i in range(18,22):
dk[i]=0
if i>= dk[“first”].dt.hour and i<=dk[“last”].dt.hour:
dk[i]=1
else:
dk[i]=0

显示结构错误,请问怎么写呢?谢谢

根据您的要求,在VBA中,您可以使用以下方法在不同的文件夹下生成多个指定名称的Excel文件: 1. 首先,您需要确定要创建的文件夹路径和文件名。 2. 然后,使用VBA中的MkDir函数创建文件夹(如果您还没有创建文件夹)。 3. 使用Workbooks.Add方法添加一个新的工作簿。 4. 然后,使用ActiveWorkbook属性将工作簿另存为指定的文件名和路径。 5. 最后,使用ActiveWorkbook.Close方法关闭工作簿。 以下是一个简单的VBA代码示例,可根据条件在不同的文件夹下生成多个指定名称的Excel文件: ``` Sub CreateExcelFiles() '定义变量 Dim folderPath As String Dim fileName As String Dim fileLocation As String Dim condition As String Dim numFiles As Integer '设置变量值 folderPath = "C:\MyFolder\" '文件夹路径 fileName = "MyFile" '文件名 condition = "Yes" '条件 numFiles = 3 '要创建的文件数 '生成文件 For i = 1 To numFiles '如果条件满足 If condition = "Yes" Then '创建文件夹(如果尚未创建) If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If fileLocation = folderPath & fileName & i & ".xlsx" '文件路径和名称 Workbooks.Add '添加新工作簿 ActiveWorkbook.SaveAs fileLocation '另存为指定文件名和路径 ActiveWorkbook.Close '关闭工作簿 End If Next i End Sub ``` 请注意,在使用此代码之前,您需要更改变量folderPath, fileName,condition和numFiles以适合您的应用程序和需求。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值