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