EXCEL,VBA代码问题

SUMIFS(K:K,G:G,"二月",H:H,"工资")如何把这个公式转化为VBA代码，弹出消息框显示

推荐答案 2016-06-17

Sub GZ()
    s = 0
    For r = 1 To Range("K65536").End(xlUp).Row
        If Range("G" & r) = "二月" And Range("H" & r) = "工资" Then s = s + Range("K" & r)
    Next
    MsgBox "二月工资为:" & s
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/eBOOvBXtO7eB7eOtOB.html

相似回答

Excel VBA错误怎么解决?答：重新创建宏：如果宏已被删除，你需要重新创建它。如果你有原始的宏代码，可以按照先前的步骤将其粘贴到VBA编辑器中。如果没有原始代码，你可能需要从头开始编写宏。使用其他电脑或版本的Excel：如果你有其他电脑或Excel版本可用，尝试在不同的环境中打开工作簿，看看是否仍然显示错误消息。这可以帮助确定问题...

VBA代码为什么在中文Excel中显示乱码?答：如果我的猜测没有错的话，这是由于写 VBA 代码的人使用的是繁体中文操作系统，它在编辑 VBA 代码时使用了 Big5 码或 CJK 码。所以，当你使用简体中文操作系统时，对于 VBA 来说就显示成乱码，无法正确执行。对于开发者来说，应该极力避免出现这种情况，尽量不要在 VBA 代码中使用非英文的字...

EXCEL VBA的代码问题?答：我建议你按照以下的步骤来解决你的问题：定义变量。你需要定义一些变量来存储你需要操作的数据和范围，比如行数、列数、单元格值等。这样做是为了让你的代码更清晰和易懂，也方便后续的修改和调试。循环遍历。你需要使用For循环或者Do While循环来遍历每一行的数据，判断每一行是否满足删除或清除的条件。

excel vba中写代码,录入中文全显示问号,这是怎么回事,该怎么解决? win...答：可能原因：语言语言代码问题 系统字体问题解决方法：①在控制面板把语言区域调成中文 ②开始菜单--所有程序--Office 2013--Office 2013工具--语言首选项--添加设置中文为首选项 ③使用中文版Win10 ④对Excel使用转码工具(如AppLocale等)在无问题的WIN10电脑上拷贝一套字体到C;\windows\fonts\下，覆盖...

EXCEL VBA的问题?答：Dim lastRow As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行的行号 Dim i As Long For i = lastRow To 2 Step -1 '从最后一行向第二行循环 If WorksheetFunction.CountIf(Range("B" & i & ":Q" & i), Cells(i, "B")) > 1 _Or WorksheetFunction....

EXCEL VBA的代码问题?答：End(xlDown).Row效果如下，你会看到它的结果是6,xlDown是从1往下找，遇到的第一个空单元格就返回。xlDown效果如下，它是A列最后一行开始往上找，遇到第一个非空单元格返回，此刻即使A6单元格为空，照样返回11：如果要实现统计非空个数，可以调用内置函数：a=Application.WorksheetFunction.CountA (Sheet...

EXCEL VBA 的代码问题?答：8、设置Q2公式=IFERROR(VLOOKUP(M2,代码!A:B,2,0),"")，并向下填充 9、设置R2公式=COUNTIF(注册!$B:$B,L2)，并向下填充语句：1、Range("R65536").End(xlUp).Row 表示R列最后有数据的行 2、Set d = CreateObject("Scripting.Dictionary") 字典对象，这里主要是应用其key的唯一行来去重 ...

excel vba代码问题,总是报语法错误,请问是什么原因?答：报错的那句修改如下：ActiveWorkbook.Names.Add Name:=Cells(i, 1), RefersToR1C1:="=Sheet1!R" & i & "C2:R" & i & "C" & j 存在的问题：一是可能多行语句处理缺少空格，二是&不要和变量连接，三是字符串应当使用双引号。

excel VBA遇到难点,求大佬指点答：公式法 VBA方法：Sub 填入日期对应列()With Sheet1 For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row findword = .Cells(i, 2)For j = 6 To .Cells(1, Columns.Count).End(xlToLeft).Column If .Cells(1, j) = findword Then Cells(i, j) = Cells(i, 4)Next j Next i ...

大家正在搜

EXCEL表格VBA代码解释器 EXCEL用VBA增加行 VBA代码 accessVBA代码 VBA 表格的隐藏代码 Excel代码 EXCEL EXCEL 宏 vba编程代码