vba學(xué)習(xí)筆記

Option Explicit

Public Sub VBF1()

MsgBox "this is my frist programe1"

End Sub

Public Sub MBExercise()

Dim iResult As Integer

iResult = MsgBox("select button", vbYesNoCancel)

MsgBox iResult

End Sub

Sub tex1()

Dim i As Integer

i = InputBox("請輸入一個函數(shù):")

MsgBox i, vbYesNoCancel

ActiveCell.Value = i

End Sub

Sub tex2()

'inputbox函數(shù)和方法的使用

Dim iResult As Integer

iResult = Application.InputBox("please enter your favorite number:", , , , , , , 1)

'等價于

iResult = Application.InputBox("please enter your favorite number:", Type:=1)

MsgBox iResult

ActiveCell.Value = iResult

'命名參數(shù):=1的作用可以省略前面的逗號

End Sub

Sub stringstuff()

Dim sName As String

Dim slongtext As String

sName = InputBox("please enter your name:")

slongtext = "this is an example of using string"

slongtext = slongtext & "concatenation to combine long"

slongtext = slongtext & "string." & vbNewLine

slongtext = slongtext & "the vbnewline constant allows you"

slongtext = slongtext & "to add line breaks to your string."

MsgBox slongtext

End Sub

Public Sub YourInfo()

Dim Name As String

Dim Place As String

Dim Age As Integer

Dim N_P_A As String

Name = InputBox("請輸出你的名字:")

Place = InputBox("請輸出你居住的城市:")

Age = InputBox("請輸出的年齡:")

N_P_A = Name

N_P_A = N_P_A & vbNewLine

N_P_A = N_P_A & Place

N_P_A = N_P_A & vbNewLine

N_P_A = N_P_A & Age

MsgBox N_P_A

End Sub

Public Sub Commission()

Dim sngCommission As Single

If Range("b2") = "No" Then

sngCommission = 0.2

If Range("b3").Value >= 5 And Range("b3") < 10 Then

sngCommission = sngCommission + 0.01

ElseIf Range("b3").Value >= 10 Then

sngCommission = sngCommission + 0.02

End If

If Range("b1").Value = "furniture" Then

sngCommission = sngCommission + 0.01

End If

Else

sngCommission = 0.01

End Sub

Public Sub Scorechoose()

Select Case Range("B1")

Case Is >= 90

MsgBox "you got a on the test."

Case 80 To 89

MsgBox "you got b on the test."

Case 70 To 79

MsgBox "you got c on the test."

Case 60 To 69

MsgBox "you got d on the test."

Case Else

MsgBox "you failed."

End Sub

Public Sub Priceshipping()

Dim Cshipping As Currency

Select Case State

Case "new york"

Cshipping = 5#

Case "georgia", "southcarolina ", "ohnio"

Cshipping = 4#

Case "Florida", "texas"

Cshipping = 3#

Case "alabama", "wa", "ca", "llli"

Cshipping = 2#

Case Else

Cshipping = 1

End Sub

Public Sub SaveNow()

Dim iResponse As Integer

iResponse = MsgBox("Do you wish to save your work?", vbYesNo)

If iResponse = vbYes Then

Application.Dialogs(xlDialogPrint).Show

'內(nèi)置excel打印對話框

End If

End Sub

Public Sub ClickTest()

Dim i As String

Dim a As String

i = MsgBox("Do you wish to continue?", vbOKCancel)

If Range("a1") = "確定" Then

MsgBox "確定"

Else

MsgBox "取消"

End If

End Sub

'對單元中某一件時間進(jìn)行條件的判斷

Public Sub Discount()

Dim State() As Single

Select Case Range("A1")

Case "A"

Range("b1").Value = 0.05

Case "B"

Range("b1").Value = 0.1

Case "C"

Range("b1").Value = 0.15

Case "D"

Range("b1").Value = 0.2

Case Else

End Select

End Sub

Public Sub BeepMe()

Dim iCounter As Double

For iCounter = 1 To 20

Beep

Next

End Sub

'復(fù)數(shù)計算利息account profits

Public Sub HowMuchMoney()

Dim iNumberOfYears As Integer '給一個年數(shù)的自變量

'定義一個存錢金額的自變量

Dim cSaving As Currency

'定義一個從1到計iNumberOfYears As Integer數(shù)的自變量

Dim iCounter As Integer

cSaving = InputBox("Enter amount you are placing in the account:")

iNumberOfYears = InputBox("Enter number of years you are saving the money:")

For iCounter = 1 To iNumberOfYears

cSaving = cSaving * 1.1

Next

MsgBox "in" & iNumberOfYears & "years you'll have" & Format(cSaving, "0.00") & "dollars"

End Sub

Public Sub EnterName()

Dim sName As String

Dim iResponse As Integer

'變量初始化

sName = ""

' 判斷sname變量是否為空

Do While sName = ""

' 輸出一個對話框輸入函數(shù)請輸入的你的名字并且把它存入變量sname中eo

sName = InputBox("please enter your name:")

' 用一個if語句判斷

If sName = "" Then

' 用輸出給輸出一個帶是或者否對話框并且判斷結(jié)果付給變量iresponse

iResponse = MsgBox("do you wish to quit?", vbYesNo)

' 再判斷iresponse自變量是yes或者是no

If iResponse = vbYes Then

' 這時候如果irsponse判斷為真,則退出弓柱,否則繼續(xù)判斷上面的一個繼續(xù)輸出上面的一個if語句是或者否

Exit Do

End If

End If

'用結(jié)束dowhile循環(huán)

Loop

End Sub

Public Sub ListofName()

'Dowhile-Loop循環(huán)判斷

Dim icount As Integer

Dim sName() As String

Dim iResponse As Integer

Dim i As Integer

'給定義的變量附加一個初始值

iResponse = vbYes

'判斷條件是否為真

Do While iResponse = vbYes

'給自定義計數(shù)變量增加1

icount = icount + 1

'? ? 重新改變定義數(shù)組變量的值

ReDim Preserve sName(icount) As String

'? ? 輸出一個對話框輸出者祖,輸入函數(shù)提示請輸入一個名字,并把輸入的結(jié)果賦值給數(shù)組

sName(icount) = InputBox("please enter a name:")

'判斷數(shù)組變量是否為空字符

If sName(icount) = "" Then

'? ? 若為空字符輸出一個是或者否的對話框古程,并把結(jié)果傳遞給變量

iResponse = MsgBox("Do you wish to continue:", vbYesNo)

'? ? ? ? 判斷結(jié)果為是或者否

If iResponse = vbYes Then

'? ? ? ? ? ? 如果結(jié)果為是,則提示輸入一個名字,并且把名字傳遞給變量sname

sName(icount) = InputBox("please enter a name:")

Exit Do

End If

End If

Loop=

For i = 1 To icount - 1

MsgBox ("name#" & i & "is" & sName(i))

Next

End Sub

Public Sub WorkbookEXAMPLE()

Dim WB As Workbook

Set WB = Workbooks.Add

WB.Worksheets("sheet1").Range("a1").Value = 100

WB.SaveAs "hello"

WB.Close

MsgBox "this wb is closed."

End Sub

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市淀零,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌,老刑警劉巖患雏,帶你破解...
    沈念sama閱讀 216,496評論 6 501
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件瞬浓,死亡現(xiàn)場離奇詭異弊琴,居然都是意外死亡化焕,警方通過查閱死者的電腦和手機穗泵,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,407評論 3 392
  • 文/潘曉璐 我一進(jìn)店門企锌,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人,你說我怎么就攤上這事闷叉∥詹啵” “怎么了萄传?”我有些...
    開封第一講書人閱讀 162,632評論 0 353
  • 文/不壞的土叔 我叫張陵答朋,是天一觀的道長。 經(jīng)常有香客問我恰力,道長董栽,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,180評論 1 292
  • 正文 為了忘掉前任企孩,我火速辦了婚禮锭碳,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘勿璃。我一直安慰自己工禾,他們只是感情好,可當(dāng)我...
    茶點故事閱讀 67,198評論 6 388
  • 文/花漫 我一把揭開白布蝗柔。 她就那樣靜靜地躺著闻葵,像睡著了一般。 火紅的嫁衣襯著肌膚如雪癣丧。 梳的紋絲不亂的頭發(fā)上槽畔,一...
    開封第一講書人閱讀 51,165評論 1 299
  • 那天,我揣著相機與錄音胁编,去河邊找鬼厢钧。 笑死,一個胖子當(dāng)著我的面吹牛嬉橙,可吹牛的內(nèi)容都是我干的早直。 我是一名探鬼主播,決...
    沈念sama閱讀 40,052評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼市框,長吁一口氣:“原來是場噩夢啊……” “哼霞扬!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起枫振,我...
    開封第一講書人閱讀 38,910評論 0 274
  • 序言:老撾萬榮一對情侶失蹤喻圃,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后粪滤,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體斧拍,經(jīng)...
    沈念sama閱讀 45,324評論 1 310
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,542評論 2 332
  • 正文 我和宋清朗相戀三年杖小,在試婚紗的時候發(fā)現(xiàn)自己被綠了肆汹。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 39,711評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡予权,死狀恐怖昂勉,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情伟件,我是刑警寧澤硼啤,帶...
    沈念sama閱讀 35,424評論 5 343
  • 正文 年R本政府宣布,位于F島的核電站,受9級特大地震影響谴返,放射性物質(zhì)發(fā)生泄漏煞肾。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,017評論 3 326
  • 文/蒙蒙 一嗓袱、第九天 我趴在偏房一處隱蔽的房頂上張望籍救。 院中可真熱鬧,春花似錦渠抹、人聲如沸蝙昙。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,668評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽奇颠。三九已至,卻和暖如春放航,著一層夾襖步出監(jiān)牢的瞬間烈拒,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,823評論 1 269
  • 我被黑心中介騙來泰國打工广鳍, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留荆几,地道東北人。 一個月前我還...
    沈念sama閱讀 47,722評論 2 368
  • 正文 我出身青樓赊时,卻偏偏與公主長得像吨铸,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子祖秒,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 44,611評論 2 353

推薦閱讀更多精彩內(nèi)容