育才学习网1. 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语句代替。
2. 怎么写一段excel vba 输入代码
1. 从Excel工具栏中插入一个VBA的控件-编辑框。
2. 双击这个编辑框，进入VBA编程窗口。
3. 删除原来的所有内容，输入以下内容：
Private Sub TextBox1_LostFocus()
Range("A1").Value = TextBox1.Text
End Sub
4. 关闭编程窗口，回到Excel界面。
5. 在编辑框中输入一个字串。
6. 用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1
3. 这个excel的VBA代码函数怎么写
Sub a()Dim i As Double, j As DoubleFor i = 1 To [a1048576].End(3).Row If Range("A" & i) = 1 Then For j = 1 To [c1048576].End(3).Row If InStr(1, Range("C" & j), Range("B" & i), vbTextCompare) > 0 Then Range("C" & j).ClearContents End If Next j End IfNext iEnd Sub复制上面的代码试试。
4. 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
5. 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函数.
6. excel VBA 写法
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim X As Integer
With ActiveSheet
X = Application.WorksheetFunction.CountA(.Range("a2:A120"))
If X = 0 Then
Exit Sub
Else
.cells(target.row,target.column).Resize(1, X).Copy
End If
End With
End Sub
7. 在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
8. 如何使用excel表格里VBA语言写程序啊
你既然提到VBA，就应知道SELECT CASE:
Function Locate(Number)
Select Case Number
Case 5,6,8,13
Locate = "北京"
Case Else
Locate = "错误"
End Select
End Function
两个Case之间还可以加入其它的判断，请参考：
使用 Select Case 语句
当一个表达式与几个不同的值相比较时，可以使用 Select Case 语句来交替使用在 If。Then。Else 语句中的 ElseIf。If。Then。Else 语句会计算每个 ElseIf 语句的不同的表达式，在控制结构的顶部，Select Case 语句只计算表达式一次。
在下面的示例中，Select Case 语句会计算发送给此过程的参数performance。请注意，每个 Case 语句可以包含一个以上的值，一个值的范围，或是一个值的组合以及比较运算符。如果 Select Case 语句与Case 语句的任何值相匹配，则可选的 Case Else 语句运行。
Function Bonus(performance, salary)
Select Case performance
Case 1
Bonus = salary * 0.1
Case 2, 3
Bonus = salary * 0.09
Case 4 To 6
Bonus = salary * 0.07
Case Is > 8
Bonus = 100
Case Else
Bonus = 0
End Select
End Function
在VBA内自定义了函数后，就可以在单元格中直接使用：
在B1中输入=Locate(A1)，若A1的值是5、6、8、13，就得到“北京”
转载请注明出处育才学习网 » excelvba怎么写