<acronym id="0paoi"><label id="0paoi"></label></acronym>

  1. <track id="0paoi"></track>
  2. Excel中的宏是什么意思 - 設計知識 - 騰洪琉璃

    Excel中的宏是什么意思

    Excel電子表格軟件是應用最廣泛的軟件之一,它的數據處理、圖表功能及各種函數和工具深受廣大用戶的喜愛。Excel文件是一個工作薄,一個工作薄最多可以包含255個工作表,每個工作表又可以包含大量的數據。

    Excel的強大優勢還在于它提供的宏語言VisualBasicforApplication(VBA).VisualBasic是windows環境下開發應用軟件的一種通用程序設計語言,功能強大,簡便易用。VBA是它的一個子集,可以廣泛地應用于Microsoft公司開發的各種軟件中,例如Word、Excel、Access等。

    那么,"宏"到底是什么呢?

    在Excel97中,"宏"是一個難以理解的概念,但對于一個具體的"宏"而言,卻是容易理解的,如果說"將一塊文字變為'黑體',字號為'三號'"就可以看作一個"宏"的話,那么"宏"就不難理解了,其實Excel97中的許多操作都可以是一個"宏"。

    "記錄宏"其實就是將工作的一系列操作結果錄制下來,并命名存儲(相當于VB中一個子程序)。在Excel97中,"記錄宏"僅記錄操作結果,而不記錄操作過程。

    例如,改變文字字體時,需要打開"字體"欄中的下拉列表,再選擇一種字體,這時文字即變為所選擇的字體,這是一個過程,結果是將所選擇的文字改變為所選擇的字體。而"記錄宏"則只記錄"將所選擇的文字改變為所選擇的字體"這一結果。

    Excel97中工作表是由行和列組成的二維表格,我們可以通過系統提供的語句activesheet.cells(I,j),將當前工作表中的第I行第j列所在的單元格中的數據取出(也可將它數據填入到指定的單元格中),然后反把它放入所定義的數組中,這時就可以對其進行各種操作,如求平均分、總分、分數段人數等等。

    本人就利用Excel97中所提供的宏功能來做學生成績的分析處理程序。本程序是Excel中的一個文件,其中包含以下幾個宏:分班、總分、平均分、分數段、刪除等。

    本程序是以本校高三理科班學生成績進行分析。

    有關程序中用到的幾具宏的功能說明:

    分班:針對于難以確定班級的情況下,以班為單位進行分班,本宏可以作為高一新生入學時進行分班的功能。

    總分:對原始的成績自動求總分。

    平均分:對原始的成績以班為單位進行各學科平均成績的計算及全校各學科成績的計算。

    分數段:給定一個最高分數及最低分數,然后統計出各班各個分數段的人數,各分數段人數進行累計。

    刪除:用于刪除不用的工作表。

    現將各個宏的代碼列舉如下:

    一.分班

    Sub分班()

    Conststudentno=191'學生人數

    Constzdno=12'字段數

    Dimzd$(zdno)'定義為12個字段的數組

    Dima(studentno,zdno),stu(60,zdno)

    Dimnam$(studentno),bjname$(60)'定義一個存放全校學生名字及各班學生名字的數組

    Dimbj(studentno)'定義存放班級的一個數組

    '理科班工作表

    Sheets("高三理").Select

    Fori=2Tostudentno

    bj(i)=ActiveSheet.Cells(i,1)

    nam$(i)=ActiveSheet.Cells(i,2)

    Forj=3Tozdno

    a(i,j)=ActiveSheet.Cells(i,j)

    Nextj

    Nexti

    '存放字段到數組中。

    Fori=1Tozdno

    zd$(i)=ActiveSheet.Cells(1,i)

    Nexti

    '先建立各個班級的工作表

    Sheets("高三理").Select

    Sheets("高三理").CopyAfter:=Sheets("分數段")

    Sheets("高三理(2)").Select

    Sheets("高三理(2)").Name="33"

    Fori=2Tostudentno

    Forj=1Tozdno

    ActiveSheet.Cells(i,j)=Space$(1)

    Nextj

    Nexti

    Range("a1").Select

    Fori=1Tozdno

    ActiveSheet.Cells(1,i)=zd$(i)

    Nexti

    '34到36班工作表的建立

    Fori=34To36

    x$=Mid$(Str(33),2)

    Sheets(x$).Select

    Sheets(x$).CopyAfter:=Sheets("分數段")

    Sheets(x$+"(2)").Select

    Sheets(x$+"(2)").Name=Mid$(Str(i),2)

    Nexti

    '具體分班。

    Fork=33To36

    bjrs=0

    x$=Mid$(Str(k),2)

    no=kMod10

    Sheets(x$).Select

    Fori=2Tostudentno

    Ifbj(i)=noThen

    bjrs=bjrs+1

    bjname$(bjrs)=nam$(i)

    Forj=3Tozdno

    stu(bjrs,j)=a(i,j)

    Nextj

    EndIf

    Nexti

    Fori=2Tobjrs

    ActiveSheet.Cells(i,1)=no

    ActiveSheet.Cells(i,2)=bjname$(i)

    Forj=3Tozdno

    ActiveSheet.Cells(i,j)=stu(i,j)

    Nextj

    Nexti

    Nextk

    EndSub

    二.總分

    Conststudentno=190

    Constxknum=6

    Constzdnum=12

    Sheets("高三理").Select

    Fori=2Tostudentno+1

    Sum=0

    Forj=1Toxknum

    Sum=Sum+ActiveSheet.Cells(i,j+3)

    Nextj

    ActiveSheet.Cells(i,zdnum-1)=Sum

    Nexti

    EndSub

    三.平均分VI設計

    Sub平均分()

    Conststudentno=190

    Constxknum=6

    Dimfs(studentno,xknum),pjf3(4,6),bjrs(4),qxpjf(6)

    Dimbj(studentno)

    Sheets("高三理").Select

    '以下程序段用于求全校平均分

    Fori=1Tostudentno

    bj(i)=ActiveSheet.Cells(i+1,1)

    Forj=1Toxknum

    fs(i,j)=ActiveSheet.Cells(i+1,j+3)

    Nextj

    Nexti

    Fori=1Toxknum

    Sum=0

    Forj=1Tostudentno

    um=Sum+fs(j,i)

    Nextj

    qxpjf(i)=Sum/(j-1)

    Nexti

    '以下程序段用于求各班平均分

    Forj=1To4

    Fori=1Tostudentno

    Ifbj(i)=j+2Then

    bjrs(j)=bjrs(j)+1

    Fork=1Toxknum

    pjf3(j,k)=pjf3(j,k)+fs(i,k)

    Nextk

    EndIf

    Nexti

    Nextj

    Forj=1To4

    Fori=1To6

    pjf3(j,i)=pjf3(j,i)/bjrs(j)

    Nexti

    Nextj

    '寫入各班各科平均分

    Sheets("平均分").Select

    Fori=1To4

    Forj=1To6

    ActiveSheet.Cells(i+2,j+1)=pjf3(i,j)

    Nextj

    Nexti

    '寫入全校各科平均分

    i=7

    Forj=1To6

    ActiveSheet.Cells(i,j+1)=qxpjf(j)

    Nextj

    EndSub

    国产精品综合无码久久久
      <acronym id="0paoi"><label id="0paoi"></label></acronym>

    1. <track id="0paoi"></track>