1. 在excel中 ,应当怎样写VBA函数呢【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
2. 怎么写一段excel vba 输入代码 1. 从Excel工具栏中插入一个VBA的控件-编辑框 。
2. 双击这个编辑框 ， 进入VBA编程窗口 。
3. 删除原来的所有内容 ， 输入以下内容：
Private Sub TextBox1_LostFocus()
Range("A1").Value = http://www.xuexi88.com/zhishi/TextBox1.Text
End Sub
4. 关闭编程窗口 ， 回到Excel界面 。
5. 在编辑框中输入一个字串 。
6. 用鼠标点击编辑框之外的其它地方 ， 看看所输入的字串是不是出现在A1
3. excel vba代码要怎么写 用如何代码可实现 ， 假设原数据在A、B列
Sub main()
Set dic = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion
For i = 1 To UBound(arr)
If dic.exists(arr(i, 2)) = False Then
dic(arr(i, 2)) = arr(i, 1)
Else
If dic(arr(i, 2)) dic.Remove arr(i, 2)
dic(arr(i, 2)) = arr(i, 1)
End If
End If
Next i
[E1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
[D1].Resize(dic.Count, 1) = Application.Transpose(dic.items)
End Sub
详细步骤如下：
1. 原数据
2. Alt+F11 ， 选择sheet1 ， 复制上述代码
3. 关闭返回工作表 ， alt+F8 ， 掉出宏界面
4. 点击执行 ， 即得到想要的结果：
4. 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语句代替 。
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函数.
文章插图