育才学习网1. excel中if语句用vba怎么写
Public Function dj(A As Integer)
Dim Rst As String
Rst = ""
Select Case A
Case Is >= 80
Rst = "A"
Case Is >= 60
Rst = "B"
Case Else
Rst = "C"
End Select
dj = Rst
End Function
这是自定义函数，带一个参数，返回等级.使用方法请参考Excel函数.
2. excel中if语句用vba怎么写
1. 函数中的if语句=if（条件，符合条件结果，不符合条件结果）。
2. VBA中也有一个同样的函数，为了跟函数的if区分，vba中的名称为iif，使用方法与函数完全一致，iif（条件，符合条件结果，不符合条件结果）。
3. VBA中另外一种if表达方式更为常用，格式为
if 条件 then 执行结果或者
if 条件 then
结果一
结果二
else if 条件
结果
end if4. VBA中的if语句常用来与for..next循环搭配使用，亦可用do while。Loop语句代替。
3. 怎么写一段excel vba 输入代码
1. 从Excel工具栏中插入一个VBA的控件-编辑框。
2. 双击这个编辑框，进入VBA编程窗口。
3. 删除原来的所有内容，输入以下内容：
Private Sub TextBox1_LostFocus()
Range("A1").Value = TextBox1.Text
End Sub
4. 关闭编程窗口，回到Excel界面。
5. 在编辑框中输入一个字串。
6. 用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1
4. 在excel中 ,应当怎样写VBA函数呢
亲，是下图这个意思吧？
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。
Public flag As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 And Target.Address = "$B$1" Then
Application.EnableEvents = False
If flag = 0 Then
Range("B1").Interior.Color = RGB(255, 0, 0)
Range("R1") = 2
flag = 1
Else
Range("B1").Interior.Color = RGB(125, 125, 125)
Range("R1") = ""
flag = 0
End If
Range("B2").Select
Application.EnableEvents = True
End If
End Sub
5. EXCEL中VBA的写法
条件格式就可以了
实在要VBA代码，我以A列为例，且从第2个数字开始（第1个肯定不重复）
Sub a()
For i% = 2 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i)) > 1 Then Rows(i).Interior.ColorIndex = 3
Next
End Sub
6. VBA代码中怎么写连加
可以借用EXCEL的求和公式：
如：
[c1] = Application.WorksheetFunction.Sum(Range("a1:b5"))
可以对单元格区域a1:b5求和，并把结果写在C1单元格
如果直接写的话，别忘了在单元格两边加上中括号：
如：
A=[A1]+[A3]+[A5]
可以把A1,A3,A5的和赋值给变量A
补充回答：
下面代码可以把A1到A100的和赋值给变量A
dim i ,a as long
a=0
for i=1 to 100
a=a+cells(i,1)
next i
对于VBA，一般尽量避免用循环的方法：它的效率是比较低的！
楼主什么意思？这有什么区别么？CELLS函数行和列用的都是数字，直接用就行了
最简单的方法：用循环嵌套
dim i,j,a as long
a=0
for j=1 to 10
for i=1 to 100
a=a+cells(i,j)
next i
next j
连续区域也可以用for each循环：
Dim cell1, a As Long
a = 0
For Each cell1 In Range("a1:c100")
a = a + cell1
Next
7. 求VBA代码写法
Sub abc()
Dim C As Range, rng1 As Range, rng2 As Range, Arr
With Workbooks("A.xls")
Arr = .Sheets("sheet1").Range("A1:A3")
With .Sheets("B")
Set rng1 = Application.Intersect(.Range("B:B"), .UsedRange)
End With
For Each C In rng1
tmp = C.Value
If InStr(1, tmp, Arr(1, 1)) Or InStr(1, tmp, Arr(2, 1)) Or InStr(1, tmp, Arr(3, 1)) Then
'如果这个单元格含有（ a 或 b 或 c ），执行的动作写这里
End If
Next
End With
End Sub
