excel vba 实例(Excel vba 实例(3)

excel vba实例

sheet1建以下代码，使sheet1活动时其余表不可见。
Private Sub Worksheet_Activate()
For i = 2 To Sheets.Count
Sheets(i).Visible = 0
Next
End Sub

单元格连接不能实现你另外的要求。可用一些按钮打开其他sheet 。例：
Private Sub CommandButton1_Click()
Sheets(2).Visible = 1
Sheets(2).Select
End Sub

5.5.3 Excel VBA的单选按钮和复选框举例

该实例主要用来区分单选按钮与复选框的不同。(1)首先在窗体中添加2个单选按钮和2个复选框，再添加1个文本框和I个命令按钮。当用户选择了某几项后，单击命令按钮，则在文本框中显示当前选定了嘟些项。将命令按钮的Caption属性设N为“确定”，分别将4个选择控件的Caption属性设置为“选项I"、“选项2-、“选项3"、“选项4-。添加好控件的窗体如图5.24所示.图5.24创建好的窗体效果(2)双击“确定”按钮，在Command 1一lick事件中添加如下的代码:Private Sub Commandl Click()Textl.Text一，您选择7"，如果选择了单选按钮1If Optionl.Value一True ThenTextl.Text一Textl.Text+End If，如果选择了单选按钮2If Option2.Value一True ThenTextl.Text一Textl.Text+End If，如果选择了复选框1If Checkl.Value一1 ThenTextl.Text一Textl.Text+End If，如果选择了复选框2If Check2.Value一1 ThenTextl.Text .Textl.Text+End IfEnd Sub，清空文本框一选项1".选项2"一选项3".选硕9"(3)运行这一段程序，选择选项，单击按钮，即可看到在文本框中列出了当前选择的选项。图5.25所示是选择了单选按钮2及复选框1和2后的结果.由此可见，单选按钮只能且必须选一项，而复选框可以选择不定数目的选顶。说明:单选按妞在同一个容器中只能选择其中的一个选项，如果共实现几组单选按粗，且其中每一组都可以选择一个选项的功能，可以将每一组单选按妞放I在一个容器内，如Frame控件。

Excel VBA中RefEdit的具体用法及实例

建一个窗体，窗体上建一个refedit控件、一个按钮，将下面代码粘贴到按钮的单击事件中：
Private
Sub
CommandButton1_Click()
str1
=
RefEdit1.Text
'鼠标选取单元格范围，获取引用字串
myrng
=
Right(str1,
Len(str1)
-
InStr(str1,
"!"))
Unload
Me
MsgBox
"选定范围"
&
Right(str1,
Len(str1)
-
InStr(str1,
"!"))
&
"数据总和为：
"
&
Application.WorksheetFunction.Sum(Range(myrng))
End
Sub
在表格中输入一些数字，此示例，通过refedit控件用鼠标在表格中选取范围，然后将选取范围的单元格引用字串传递给sum函数进行加总该范围的数据。

excel中怎么使用vba

Excel中的VBA代码需要在VBE窗口是使用（具体请看下面详细分析）

Excel版本参考：2010

1、ALT+F11，进入VBE对话框

2、右击-插入-模块

3、输入代码(使用已有代码，直接复制粘贴进入即可）

4、按F5运行或者点击三角按钮运行代码

5、查看效果

Excel2007如何通过VBA实现自定义选项卡

在CommandBars(1)上添加，然后就跑会到加载项选项卡上。以下是我的一些实例

1）在sheet1的A:G列我放了一些按钮的基础信息，以便调用

2）添加按钮的过程如下

Sub egAddButtons()

On Error Resume Next

Dim I As Integer, bar As CommandBar, sht As Worksheet

Set sht = ThisWorkbook.Sheets(1)

Set bar = Application.CommandBars(1)

For I = 1 To 17

With bar.Controls.Add(msoControlButton, , , , True)

.OnAction = sht.Range("A1").Offt(I, 3).Value

.Style = msoButtonIconAndCaption

.FaceId = sht.Range("A1").Offt(I, 4).Value

.Caption = sht.Range("A1").Offt(I, 1).Value

.Tag = "NewButton"

End With

Next

Set sht = Nothing

Set bar = Nothing

End Sub

3）删除按钮的过程

Sub egDeleteButtons()

On Error Resume Next

Dim bar As CommandBar, ctl As CommandBarControl

Set bar = Application.CommandBars(1)

With bar

For Each ctl In bar.Controls

If ctl.Tag = "NewButton" Then

ctl.Visible = Fal

ctl.Delete

End If

Next

End With

Set bar = Nothing

Set ctl = Nothing

End Sub

Excel 关于VBA中IF多条件语句的用法，虚心求教

1、if语句的含义：if语句字面意思就是如果的意思，如果条件为真，那么就执行if语句里面的程序，这个程序，一般指then后面的，一个if语句可以没有end if，但绝对不能没有then，这一点是要注意的。

2、if……then……结构

该结构一般用于比较简单的判断语句执行，下面以一段实例程序来讲解。

实例：如果第一个单元格不为空，那么就弹出一个提示框“单元格不为空”。

程序：

Sub 判断语句()

If Cells(1, 1) <> "" Then MsgBox "单元格不为空"

End Sub

3、if……then……end if结构

该结构用于单选择判断语句执行，具体用法看下面实例。

实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出“VBA教研室”。

程序：

Sub 判断语句()

Dim i As Integer

For i = 1 To 100

If Cells(i, 1) = "" Then

Cells(i, 2) = "VBA教研室"

Exit For

End If

Next

End Sub

4、if ……then……el……end if结构

该结构用于事件只有两个可能的情况先选择的判断语句，具体见下面实例分析。

实例：对于第一列的第1,2行两个单元格做判断，如果单元格值为空，则在相应的第二列单元格输出fal，否则输出Ture。

程序：

Sub 判断语句()

Dim i As Integer

For i = 1 To 2

If Cells(i, 1) = "" Then

Cells(i, 2) = "fal"

El

Cells(i, 2) = "True"

End If

Next

End Sub

5、if ……then……elif……then……el……end if结构

该结构用于多条件判断语句执行，具体见下面实例分析

实例：对三名同学的成绩作出判断，大于等于80分的为优秀；60到80之间的为及格；0到60分之间的为不及格；0分为考试无效。

程序：

Sub 判断语句()

Dim i As Integer

For i = 2 To 7

If Cells(i, 2) >= 80 Then

Cells(i, 3) = "优秀"

ElIf Cells(i, 2) < 80 And Cells(i, 2) >= 60 Then

Cells(i, 3) = "及格"

ElIf Cells(i, 2) < 60 And Cells(i, 2) > 0 Then

Cells(i, 3) = "不及格"

El

Cells(i, 3) = "考试无效"

End If

Next

End Sub

6、if语句嵌套使用

if语句可以灵活的嵌套使用的，如下面这套程序

Sub 判断语句()

Sub 判断语句()

If Cells(1, 1) <> "" Then

If Cells(1, 1) = "VBA教研室" Then

MsgBox "OK！"

El

MsgBox "NO！"

End If

End If

End Sub

参考资料：百度经验-Excel VBA中if语句的用法