利用Ｅｘｃｅｌ建立人體生物節(jié)律表

聶清林

文章編號(hào)：1672-5913(2009)08-0133-03

摘要：Microsoft Excel是一款功能強(qiáng)大、使用方便的數(shù)據(jù)處理軟件。它具有直觀的操作界面、出色的計(jì)算功能和圖表工具，可完成數(shù)據(jù)的計(jì)算、統(tǒng)計(jì)、分析等工作，并可生成精美直觀的圖表。本文介紹利用Microsoft Excel建立人體生物節(jié)律表的操作。

關(guān)鍵詞：Microsoft Excel；人體生物節(jié)律；VBA；體力；情緒；智力

中圖分類號(hào)：G642

文獻(xiàn)標(biāo)識(shí)碼：B

1人體生物節(jié)律介紹

人體生物節(jié)律理論起源于19世紀(jì)末20世紀(jì)初，由奧地利心理學(xué)家赫爾曼·斯瓦波達(dá)(Hermann Swoboda)、德國(guó)內(nèi)科醫(yī)生威爾赫母·弗里斯(Wilhelm Fliess)、澳大利亞機(jī)械工程學(xué)教授阿爾弗雷德·特爾茨謝爾(Alfred Teltscher)等人，通過(guò)對(duì)大量人群的統(tǒng)計(jì)發(fā)現(xiàn)，人自出生日起，體力、情緒、智力狀態(tài)會(huì)隨著時(shí)間的推移呈周期性波動(dòng)變化。這種變化可以用正弦函數(shù)來(lái)描述。人出生時(shí)的初始狀態(tài)值為0，隨后按照固有周期在-1與1之間波動(dòng)。該值為正時(shí)表示體力、情緒、智力飽滿，等于或接近1時(shí)最強(qiáng)；該值為負(fù)時(shí)表示體力、情緒、智力疲軟，等于或接近-1時(shí)最弱。這幾位科學(xué)家經(jīng)過(guò)統(tǒng)計(jì)分析得出人體生物節(jié)律的體力波動(dòng)周期為23天、情緒波動(dòng)周期為28天、智力波動(dòng)周期為33天。

2制作人體生物節(jié)律表及圖表

Microsoft Excel具有操作簡(jiǎn)單而功能強(qiáng)大的統(tǒng)計(jì)計(jì)算功能，通過(guò)它可以十分方便地計(jì)算出各種統(tǒng)計(jì)數(shù)據(jù)并制作出相應(yīng)的圖表。下面介紹利用Microsoft Excel建立人體生物節(jié)律表及圖表的操作過(guò)程，其制作過(guò)程及運(yùn)行結(jié)果參考圖1。

圖1 利用Excel制作人體生物節(jié)律表及圖表

1) 打開Microsoft Excel并建立空白文檔

2) 輸入個(gè)人信息

●在單元格A1、C1、E1中分別輸入文本“姓名”、“出生日期”、“當(dāng)前日期”；

●在單元格B1、D1、F1中分別輸入讀者姓名、出生日期、公式“=today()”，注意日期的格式為“年-月-日”，公式內(nèi)的括號(hào)必須是半角括號(hào)；

●在單元格A2中輸入文本“當(dāng)前日期距出生日期的天數(shù)：”，單元格D2中輸入公式“=F1-D1”，更改D2單元格的顯示格式為“常規(guī)”格式(單擊“格式”→“單元格”菜單命令，選擇“數(shù)字”選項(xiàng)卡下的“常規(guī)”)；

●在單元格A3、C3、E3中分別輸入文本“體力周期”、“情緒周期”、“智力周期”，單元格B3、D3、F3中分別輸入數(shù)值“23”、“28”、“33”。

3) 建立人體生物節(jié)律表

●在單元格A5、B5、C5、D5、E5內(nèi)分別輸入文本“日期”、“相對(duì)日期”、“體力”、“情緒”、“智力”；

●在單元格B6至B36內(nèi)輸入數(shù)值0、1、2、…、30，單元格A6內(nèi)輸入公式“=today()+B6”，單元格C6、D6、E6內(nèi)分別輸入公式：

C6：“=SIN(MOD(($D$2+B6),$B$3)/$B$3*2*3.1415926)”

D6：“=SIN(MOD(($D$2+B6),$D$3)/$D$3*2*3.1415926)”

E6：“=SIN(MOD(($D$2+B6),$F$3)/$F$3*2*3.1415926)”

注意公式內(nèi)所有符號(hào)都必須是半角符號(hào)；

●將單元格A6、C6、D6、E6內(nèi)的公式向下復(fù)制到區(qū)域A7~A36、C7~C36、D7~D36、E7~E36中。

4) 制作人體生物節(jié)律圖表

●選擇區(qū)域B5:E36；

●單擊常用工具欄的“圖表向?qū)А卑粹o 打開“圖表向?qū)А睂?duì)話框；

●選擇“XY 散點(diǎn)圖”圖表類型的“無(wú)數(shù)據(jù)點(diǎn)平滑線散點(diǎn)圖”子類型，單擊“完成”按鈕完成圖表的建立。

對(duì)建立好圖表的顯示格式進(jìn)行適當(dāng)修改，如增加圖表寬度、添加圖表標(biāo)題、調(diào)整X軸與Y軸的刻度及字號(hào)屬性等，參考圖1所示的“人體生物節(jié)律圖表”。

圖表的橫軸表示日期，最左端的0表示當(dāng)前日期，數(shù)值每加1表示日期增加一天。圖表的豎軸表示人體生物節(jié)律值，取值范圍從-1到1，數(shù)值的大小表示人體生物水平的高低，1表示最佳狀態(tài)，-1表示低谷狀態(tài)，0為臨界點(diǎn)，也是波動(dòng)最大的狀態(tài)。圖表內(nèi)的三條正弦曲線表示人體生物節(jié)律隨時(shí)間的變化，其中藍(lán)色曲線表示體力、紫色表示情緒、黃色表示智力。

3利用Microsoft VBA自動(dòng)生成人體生物節(jié)律表及圖表

上面介紹了利用Microsoft Excel的基本操作與圖表功能建立人體生物節(jié)律表及圖表的過(guò)程。下面介紹應(yīng)用VBA程序設(shè)計(jì)在Excel內(nèi)自動(dòng)制作人體生物節(jié)律表及圖表的操作。

1) 建立工作簿，并輸入讀者姓名與出生日期

●打開Microsoft Excel并建立空白工作簿；

●選擇“sheet1”工作表，并將工作表名稱更改為“Biorhythm”；

注意：由于在程序代碼中需要引用工作表的名稱，所以本操作必須按要求正確完成。

●在下列單元格內(nèi)輸入要求的內(nèi)容：

■A1單元格內(nèi)輸入文本“姓名：”；

■B1單元格內(nèi)輸入讀者的名字；

■C1單元格內(nèi)輸入文本“出生日期：”；

■D1單元格內(nèi)輸入讀者的生日，要求按照“年- 月-日”的格式輸入；

2)在工作表內(nèi)添加命令按鈕

●單擊“視圖”→“工具欄”→“控件工具箱”菜單命令顯示出“控件工具箱”工具欄；

●單擊“控件工具箱”工具欄上的“命令按鈕”圖標(biāo) ；

●在工作表下側(cè)偏右位置用鼠標(biāo)拖動(dòng)出一個(gè)命令按鈕；

●單擊“控件工具箱”上的“屬性”按鈕 打開命令按鈕的屬性窗口；

●在屬性窗口內(nèi)更改命令按鈕的名稱屬性為“cmd計(jì)算”，更改Caption屬性為“計(jì)算節(jié)律值”；

●利用同樣方法制作第二個(gè)命令按鈕，更改其名稱為“cmd制表”、Caption屬性為“制做圖表”

3) 為命令按鈕添加程序代碼

●選擇工作表內(nèi)的“cmd計(jì)算”命令按鈕，然后單擊“控件工具箱”上的“查看代碼”按鈕 打開Microsoft Visual Basic集成開發(fā)環(huán)境并進(jìn)入“cmd計(jì)算”命令按鈕的“單擊事件”代碼窗口；

●為工作表聲明模塊級(jí)變量、常量及輸入“cmd計(jì)算”命令按鈕的單擊事件程序代碼；

Option Explicit

Const PI = 3.1415926 '定義常量π值

'下面定義的常量分別表示體力、情緒、智力節(jié)律周期

Const PHYSICAL_CYCLE = 23, EMOTIONAL_CYCLE = 28, INTELLECTUAL_CYCLE = 33

Dim userName As String '聲明用戶姓名變量

Dim birthDate As Date, currentDate As Date '聲明用戶生日、當(dāng)前日期變量

Dim dateDiff As Long '變量dateDiff表示當(dāng)前日期與用戶出生日期之間相差的天數(shù)

'下面定義的變量分別表示dateDiff除以體力、情緒、智力節(jié)律周期所剩的余數(shù)

Dim physical As Integer, emotional As Integer, intellectual As Integer

Private Sub cmd計(jì)算_Click()

'將工作表中的用戶姓名、出生日期等信息讀入程序，并

求physical、emotional、intellectual變量值

userName = ActiveSheet.Range("b1").Value

birthDate = ActiveSheet.Range("d1").Value

currentDate = Date

dateDiff = currentDate - birthDate

physical = dateDiff Mod PHYSICAL_CYCLE

emotional = dateDiff Mod EMOTIONAL_CYCLE

intellectual = dateDiff Mod INTELLECTUAL_CYCLE

'計(jì)算用戶的體力、情緒、智力節(jié)律數(shù)值，并顯示到工作

表的單元格內(nèi)

Range("a2").Value = "體力": Range("b2").Value

= "情緒": Range("c2").Value = "智力"

Range("a3").Value = Sin(physical/ PHYSICAL_

CYCLE * 2 * PI)

Range("b3").Value = Sin(emotional/ EMOTIONAL

_CYCLE * 2 * PI)

Range("c3").Value=Sin(intellectual/ INTELLECTUAL

_CYCLE * 2 * PI)

Range("a2:c3").Font.Bold = True

End Sub

●與命令按鈕“cmd計(jì)算”的操作一樣，為命令按鈕“cmd制表”添加單擊事件過(guò)程。

Private Sub cmd制表_Click()

Dim i As Integer '定義循環(huán)變量

'為人體生物節(jié)律表添加標(biāo)題行

Range("a5").Value = "相對(duì)日期"

Range("b5").Value = "體力"

Range("c5").Value = "情緒"

Range("d5").Value = "智力"

'建立人體生物節(jié)律表

For i = -5 To 30

Range("a" + CStr(i + 11)).Value = CStr(i)

Range("b" + CStr(i + 11)).Value = Sin

((physical + i) / PHYSICAL_CYCLE * 2 * PI)

Range("c" + CStr(i + 11)).Value = Sin

((emotional + i) / EMOTIONAL_CYCLE * 2 * PI)

Range("d" + CStr(i + 11)).Value = Sin

((intellectual + i) / INTELLECTUAL_CYCLE * 2 * PI)

Next i

'依據(jù)人體生物節(jié)律表數(shù)據(jù)建立圖標(biāo)

Charts.Add

ActiveChart.ChartType =

xlXYScatterSmoothNoMarkers

ActiveChart.SetSourceData Source:=Sheets

("Biorhythm").Range("A5:D41"), PlotBy:=

xlColumns

ActiveChart.Location Where:=

xlLocationAsObject, name:="Biorhythm"

'設(shè)置圖標(biāo)格式

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = userName

+ "的人體生物節(jié)律圖"

.ChartTitle.Font.name = "楷體_GB2312"

.ChartTitle.Font.Size = 16

.Axes(xlValue).MinimumScale = -1

.Axes(xlValue).MaximumScale = 1

.Axes(xlValue).CrossesAt = -1

.Axes(xlValue).TickLabels.Font.Size = 10

.Axes(xlCategory).MinimumScale = -5

.Axes(xlCategory).MaximumScale = 30

.Axes(xlCategory).CrossesAt = -5

.Axes(xlCategory).TickLabels.Font.Size=10

.Axes(xlCategory).MajorTickMark= lCross

.Axes(xlCategory).MinorTickMark = xlInside

End With

ActiveChart.PlotArea.Select

Selection.Border.LineStyle = xlNone

Selection.Interior.ColorIndex = xlNone

ActiveChart.Legend.Select

Selection.AutoScaleFont = True

Selection.Font.Size = 10

Selection.Border.LineStyle = xlNone

Selection.Interior.ColorIndex = xlNone

End Sub

代碼輸入完畢后，關(guān)閉VBA環(huán)境回到Microsoft Excel工作表界面，單擊“控件工具箱”上的“退出設(shè)計(jì)模式”按鈕 退出設(shè)計(jì)模式。至此，工作表的建立與代碼編輯全部完畢。

4) 建立人體生物節(jié)律表及圖表

工作表的建立及代碼編輯完成后，在工作表B1單元格內(nèi)輸入被測(cè)試者的姓名，D1單元格內(nèi)輸入出生日期，然后單擊“計(jì)算節(jié)律值”按鈕將顯示出被測(cè)試者當(dāng)日的體力、情緒、智力節(jié)律值；單擊“制作圖表”按鈕將在工作表內(nèi)自動(dòng)制作被測(cè)試著從當(dāng)日到后30日的體力、情緒、智力節(jié)律值表，同時(shí)自動(dòng)制作出顯示這些信息的人體生物節(jié)律圖。

在B2與D2單元格中重新輸入其他的名字與出生日期，然后依次按下“計(jì)算節(jié)律值”按鈕與“制作圖表”按鈕，系統(tǒng)將計(jì)算出他人的體力、情緒與智力節(jié)律值，并重新生成人體生物節(jié)律表及圖表。

注意：當(dāng)Excel文件存盤并退出后，重新打開Excel文件時(shí)，由于文件中包含了程序代碼，系統(tǒng)會(huì)提示安全警告。用戶需要選擇“啟用宏”按鈕方可執(zhí)行電子表格中命令按鈕包含的程序代碼。如果打開Excel文件時(shí)系統(tǒng)沒(méi)有安全警告，文件打開后也不執(zhí)行命令按鈕的程序代碼，則需要在Microsoft Excel選項(xiàng)內(nèi)的“安全性”選項(xiàng)卡中，打開“宏安全性”對(duì)話框，將安全級(jí)設(shè)置為“中”，然后重新打開Excel文件即可。

4結(jié)束語(yǔ)

Microsoft Excel是一個(gè)功能強(qiáng)大、使用方便的電子表格軟件。它可完成信息統(tǒng)計(jì)、分析等多項(xiàng)工作，生成精美直觀的表格、圖表。Microsoft Excel為我們?cè)谌粘Ｉ钆c工作中處理各式各樣的表格及計(jì)算統(tǒng)計(jì)操作提供了一個(gè)良好的工具。

參考文獻(xiàn)：

[1] Duane Birnbaum．Microsoft Excel VBA Programming for the Absolute Beginner[M]．美國(guó)：Thomson Course Technology，2005．

[2] 恒盛杰資訊．Excel VBA高效辦公經(jīng)典108例[M]．北京:中國(guó)青年出版社,2007.

[3] 維基百科．Biorhythm[EB/OL]．http://en.wikipedia.org/wiki/Biorhythm,2008-11.

The Use of Microsoft Excel to Set Up Human Biological Rhythm Table

Nie Qing-lin

(College of Arts and Science of Beijing Union University, Beijing 100083,China)

Abstract: Microsoft Excel is a powerful, easy-to-use data-analyzing software. It has a convenient user interface, powerful calculating and statistical functions, and graphics tool. Microsoft Excel is usually used in data statistics, data analysis and in generating attractive and intuitive charts. This paper describes the steps of setting up human biological rhythm table by Microsoft Excel.

Key words: Microsoft Excel; human biological rhythm; VBA, physical; emotional; intellectual