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

單元格連接不能實現你另外的要求?？捎靡恍┌粹o打開其他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語句的用法