国产宅男网站在线|亚洲A级性爱免费视频|亚洲中精品级在线|午夜福利AA毛

  • <dd id="gf5jf"><th id="gf5jf"></th></dd>

    <cite id="gf5jf"><label id="gf5jf"></label></cite>
  • <div id="gf5jf"><listing id="gf5jf"></listing></div>
    學(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,依次單擊“插入,模塊”,即可打開(kāi)代碼輸入框:

      vba使用步驟2:在打開(kāi)的代碼編輯框里面粘貼如下方的代碼,然后直接單擊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:依次單擊“開(kāi)發(fā)工具,插入,按鈕”:

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

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

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

    734623