创建一个VBA代码,让当前excel表格的sheet3中对满足条件1:报销月份是2020年5月1日,2:所在部门是sales,对满足这两个条件的报销合计进行求和,求和结果显示在N7单元格 补充,报销月份位于E列,所在部门是D列
时间: 2023-06-07 11:08:46 浏览: 44
好的,我理解了您的问题。以下是对应的VBA代码:
Sub SumSalesMay2020()
Dim salesMay2020 As Double
Dim lastRow As Long
Dim i As Long
lastRow = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To lastRow
If Cells(i, "D").Value = "sales" And Month(Cells(i, "E")) = 5 And Year(Cells(i, "E")) = 2020 Then
salesMay2020 = salesMay2020 + Cells(i, "N")
End If
Next i
Range("N7").Value = salesMay2020
End Sub
请将上述代码复制粘贴到VBA编辑器中,然后按F5运行即可。注意,为了确保代码可用,请确保所在部门列为D列,报销月份列为E列,求和结果会显示在N7单元格。
相关问题
把我写一个vba代码,读取sheet1中C2:C10的数据,在sheet1中的B2中绘制sparkline折线图
以下是VBA代码实现:
```vb
Sub DrawSparkline()
Dim rngData As Range
Dim sparklineLocation As Range
'设置数据范围
Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("C2:C10")
'设置Sparkline绘制位置
Set sparklineLocation = ThisWorkbook.Worksheets("Sheet1").Range("B2")
'绘制Sparkline
sparklineLocation.SparklineGroups.Add Type:=xlSparkLine, SourceData:=rngData
End Sub
```
将此代码复制到VBA编辑器中,然后运行即可。运行后,将在Sheet1的B2单元格中绘制Sparkline折线图,该图显示Sheet1的C2:C10单元格范围内的数据。
帮我写一个vba在excel中绘制sparkline的代码,读取sheet2中B2:B100的数据,随后在sheet1中的B2单元格进行绘制
以下是一个简单的 VBA 代码示例,可以在 Excel 中绘制 Sparkline:
```
Sub DrawSparkline()
Dim sparkRange As Range
Dim sparkLocation As Range
' 设置范围和位置
Set sparkRange = Worksheets("Sheet2").Range("B2:B100")
Set sparkLocation = Worksheets("Sheet1").Range("B2")
' 绘制 Sparkline
sparkLocation.SparklineGroups.Add Type:=xlSparkLine, SourceData:=sparkRange
End Sub
```
这个代码会在 Sheet1 的 B2 单元格中绘制一个 Sparkline,它的数据来自 Sheet2 的 B2:B100 范围。你可以将这段代码复制到 VBA 编辑器中,并将其保存到你的工作簿中。在需要绘制 Sparkline 的时候,只需运行这个宏即可。
相关推荐
![txt](https://img-home.csdnimg.cn/images/20210720083642.png)
![bas](https://img-home.csdnimg.cn/images/20210720083646.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)