vba滚动条事件怎么写

vba回车事件怎么写

1.excel vba中的按回车激发事件的代码怎么写

其实工作表中的selectchange和change事件是要付出代价的。

我觉得对好不要用VBA编写，还不如用自定义格式 1000我想你那个应该是个编号吧，A1为1001,A2为1002……如果是这样一定要用代码的话，那么就把飞雨飘的代码改一下为：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then Target.Value = 1000 + Target.RowEnd Sub。

2.vba 回车触发事件

用textbox的exit事件

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

MsgBox "enter OK"

End Sub

这个可以很好的按你的要求回车触发的。前提是，你的窗体中至少有二个控件，否则无法实现。

Private Sub TextBox1_AfterUpdate()

MsgBox "TextBox1_AfterUpdate OK"

End Sub

用TextBox1_AfterUpdate事件也可实现你想要的功能的。

用确定按键可以下面的事件中加代码

Private Sub CommandButton1_Click()

MsgBox "CommandButton1_Click OK"

End Sub

要想真正实现enter回车功能的话，我在VBA中没有做过，但是在VB中做过，这个就有点和难了，VBA不一定有这个功能的。

编程不一定一定要用想用的事件，能实现相当的功能就行了。如是是想真那个功能则另当别论了

有机会到我主页看看，那上面有程序介绍的，不可以下载使用。

3.excel VBA代码,自动回车怎么写

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

Application.EnableEvents = False

If Len(Range("G8")) = 9 Then

Range("G9").Select

End If

Application.EnableEvents = True

End Sub

4.Excel VBA 怎样判断一个输入框控件内的按下Enter的事件

确定按钮肯定需要做的

然后把确定按钮赋值给enter

SendKeys "{ENTER}"

或者你在textbox1 中做一个change事件应该也可以

例如：

Private Sub TextBox1_Change()

n = Sheet3.[a65535].End(3).Row + 1

If Len(TextBox1.Value) = 6 Then

Sheet3.Range("a" & n) = TextBox1.Value

TextBox1.Value = ""

End If

End Sub

vba回车事件怎么写

excelvba怎么写

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

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怎么写

Vbaifand怎么写

1. vba中and函数怎么用,怎样写多条件代码

Function zhekou(zhanyoulv As Double, t As Integer) If zhanyoulv < 0.035 Then If t <= 15 Then zhekou = 0 Else If t <= 30 And t > 15 Then zhekou = 0 Else If t > 30 Then zhekou = 0 End If End If End If Else If zhanyoulv >= 0.035 And zhanyoulv <= 0.04 Then If t <= 15 Then zhekou = 0.8 Else If t <= 30 And t > 15 Then zhekou = 1.2 Else If t > 30 Then zhekou = 1.5 End If End If End If Else If zhanyoulv > 0.04 And zhanyoulv <= 0.045 Then If t <= 15 Then zhekou = 1 Else If t <= 30 And t > 15 Then zhekou = 1.5 Else If t > 30 Then zhekou = 2 End If End If End If End If End If End If End Function。

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中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函数.

4. Excel的AND和IF怎么用

先了解 AND 和 IF 函数的定义： ADN：所有参数的逻辑值为真时，返回 TRUE；只要一个参数的逻辑值为假，即返回 FALSE。

IF：根据对指定的条件计算结果为 TRUE 或 FALSE，返回不同的结果。先给你一个 AND的参考实例：如下 A B 1 公式说明（结果） 2 TRUE 所有参数的逻辑值为真（TRUE） 3 FALSE 一个参数的逻辑值为假（FALSE） 4 TRUE 所有参数的计算结果为真（TRUE） 1）将上面的实例复制到新建EXCEL表的A1里面； 2）若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在 “公式” 选项卡的 “公式审核” 组中，单击 “显示公式” 按钮。

---------------------------------------------------------------------------------------------- 下面是 IF的实例： 1 2 A 数据 50 公式说明（结果） =IF(A2。