9久久伊人精品综合,亚洲一区精品视频在线,成 人免费va视频,国产一区二区三区黄网,99国产精品永久免费视频,亚洲毛片多多影院,精品久久久无码人妻中文字幕,无码国产欧美一区二区三区不卡
學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>Excel教程>Excel2007教程>

excel2007與vba編程怎樣使用

時(shí)間: 宇能938 分享

  Excel中的VBA功能具體該如何使用呢?對(duì)于VBA這個(gè)功能相信沒有多少人繪,接下來學(xué)習(xí)啦小編舉例簡(jiǎn)單的例子告訴大家excel2007與vba編程的使用方法,歡迎大家來到學(xué)習(xí)啦學(xué)習(xí)。

  excel2007與vba編程的使用方法

  1:右擊需要插入代碼的表,如,本文要達(dá)成的目標(biāo)是單擊一個(gè)按鈕,然后實(shí)現(xiàn)對(duì)B列3-11單元格的成績(jī)進(jìn)行等級(jí)評(píng)定。假設(shè)要實(shí)現(xiàn)目標(biāo)的數(shù)據(jù)位置在Sheet1上,則右擊Sheet1,依次單擊“插入,模塊”,即可打開代碼輸入框:

  2:在打開的代碼編輯框里面粘貼如下方的代碼,然后直接單擊VBA編輯器右上角的關(guān)閉按鈕:

  Sub 評(píng)定等級(jí)()

  Dim i As Integer

  For i = 3 To 11

  t = Sheets(1).Cells(i, 2).Value '取得成績(jī)

  If t >= 90 Then

  j = "A"

  ElseIf t >= 80 Then

  j = "B"

  ElseIf t >= 70 Then

  j = "C"

  ElseIf t >= 60 Then

  j = "D"

  Else

  j = "E"

  End If

  Sheets(1).Cells(i, 3) = j

  Next

  End Sub

  3:依次單擊“開發(fā)工具,插入,按鈕”:

  4:在合適的位置直接左鍵拖出一個(gè)按鈕,在彈出的“指定宏”對(duì)話框里面選擇“評(píng)定等級(jí)”,然后單擊“確定”:

  5:?jiǎn)螕魟偺砑拥陌粹o“按鈕1”:

  6:按下按鈕之后,即可在C列對(duì)應(yīng)的表格里面顯示成績(jī)等級(jí),如下:


猜你感興趣:

1.excel2007vba基本使用教程

2.Excel2007中創(chuàng)建并使用VBA代碼的操作

3.Excel2007中VBA編程入門的操作方法

4.excel中使用vba功能的方法

5.excel2007 vba如何加按鈕的教程

2573437 主站蜘蛛池模板: 91人妻无码成人精品一区91| 99久久99这里只有免费费精品 | 最近2019免费中文字幕8| 天天看片视频免费观看| 少妇久久久被弄到高潮| 综合色一色综合久久网| 久久精品夜色噜噜亚洲av| 久久婷婷五月综合97色直播| 亚洲欧美中文日韩V日本| caoporn免费视频公开| 精品无码国产一区二区三区av| 亚洲禁精品一区二区三区| 国产片AV国语在线观看手机版| av 日韩 人妻 黑人 综合 无码| 99久久久无码国产精品免费 | 精品亚洲国产成人av在线| 不卡一区二区国产精品| 综合偷自拍亚洲乱中文字幕 | 国产精品美女AV免费观看| 综合色天天久久| 国产一区二区三区色视频| 在线a级毛片无码免费真人| 国产高潮刺激叫喊视频| 无套内谢少妇毛片aaaa片免费| 国产人妻精品午夜福利免费 | 97久久精品人人澡人人爽| 国产成年码av片在线观看| 人妻出轨av中文字幕| 青青国产揄拍视频| 色综合久久网| 成人网站免费观看永久视频下载| 精品午夜福利短视频一区| 精品国产中文字幕av| 国产一区二区a毛片色欲| 99热国产成人最新精品| 国产精品午夜福利在线观看 | 久久精品国产亚洲av忘忧草18| 中文字幕在线视频不卡一区二区| 熟妇人妻久久精品一区二区| 99热精品毛片全部国产无缓冲| 国产精品久久久久孕妇|