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

excel2007vba基本使用教程

時(shí)間: 業(yè)華773 分享

excel2007vba基本使用教程

  Excel中的VBA功能具體該如何使用呢?下面是學(xué)習(xí)啦小編帶來(lái)的關(guān)于excel2007vba基本使用教程,希望閱讀過(guò)后對(duì)你有所啟發(fā)!

  excel2007vba基本使用教程:

  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,依次單擊“插入,模塊”,即可打開代碼輸入框:

  vba使用步驟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

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

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

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

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

734623 主站蜘蛛池模板: 秋霞A级毛片在线看| 五月天中文字幕mv在线| 午夜福利国产一区二区三区| 精品三级在线| 欧美国产成人精品二区芒果视频 | 99久久99久久精品免费看蜜桃| 少妇性bbb搡bbb爽爽爽欧美| 最近中文字幕免费手机版 | 激情综合网激情激情五月天| 久久综合国产色美利坚| 欧美人与动人物牲交免费观看| 在线 欧美 中文 亚洲 精品| 亚洲综合久久精品国产高清| 国产精品成人久久电影| 欧美日本国产va高清cabal| 色噜噜狠狠成人综合| 天堂va蜜桃一区二区三区| 色偷偷中文在线天堂中文| 色天天天综合网色天天| 免青青草免费观看视频在线| 开心婷婷五月激情综合社区| 国产三级黄色的在线观看| 无码高潮爽到爆的喷水视频app| 国产成人AV大片大片在线播放 | 亚洲高潮喷水无码AV电影| 国产精品v欧美精品∨日韩 | 国产精品免费AⅤ片在线观看 | 国产午夜精品理论大片| 国产精品亚洲а∨天堂2021| 精品国产欧美一区二区五十路| 久久亚洲国产精品久久| 国产精品免费AⅤ片在线观看| 亚洲av成人精品日韩一区| 国产精品人成视频免| 伊人久久大香线蕉网av| 亚洲一区二区三区四区三级视频 | 久久精品波多野结衣| 国产成年码av片在线观看| 伊人无码精品久久一区二区| 亚洲AV永久天堂在线观看| 精品国产一区二区三区大|