Question

求助vba中countif方法的变量引用

dim i as byte
For i = 30 to 90
'用宏录制的代码：
ActiveCell.FormulaR1C1 = "=COUNTIF(bsc30.asc!C1,""CREATE PCMG*"")"
'我自己引用变量后的代码：(我想把30替换成i，然后用来做循环）
ActiveCell.FormulaR1C1 = "=COUNTIF(""bsc" & i & ".asc""!C1,""CREATE PCMG*"")"
'改完后，返回就是空值。想问下我写的变量代码格式哪里有问题?
顺路问一句代码vba中可有取消关闭已修改过文件时提示是否保存的警告窗口的代码！
谢谢大家。

Answer 1

在VBA中使用COUNTIF函数只需要直接用就行了
如计算A1：A15区域1的个数
range("B1")=application.countif(range("A1:A15"),1)
用变量就把变量带到代码中即可
要不弹出警告窗口用如下代码
application.displayalerts=false

Answer 2

1、
Public Sub ds()
Dim i
For i = 30 To 32
ActiveCell.Offset(i - 30, 0).FormulaR1C1 = "=COUNTIF(bsc" & i & ".asc!C1,""CREATE PCMG*"")"
Next
End Sub

2、
用ActiveWorkbook.Saved 的值（true、false）判断是否保存过，本示例检查活动工作簿是否有未保存的更改，如果有，则显示一条信息。
If Not ActiveWorkbook.Saved Then
MsgBox "本文已保存过。"
End If

3、
用Application.DisplayAlerts包含可能显示警告窗口的代码，以关闭警告窗口
Application.DisplayAlerts = False '关闭警告窗口
ActiveWorkbook.Save '可能显示警告窗口的操作
Application.DisplayAlerts = True '恢复警告窗口