【正文】 b DatePart(q, zdrq)zdrq = InputBox(請輸入一個日期:)Dim MsgDim zdrq As Date二、代碼：Sub日的星期為第一周。月如果未予指定，則以包含可選。firstweekofyear如果未予指定，則以星期日為第一天?？蛇x。它具有好多設(shè)定值，與DateAdd函數(shù)相同；此例中的d，表示天數(shù)；必要。intervalDateDiff來計算兩個日期之間相隔幾日，或計算從今天起到年底還有多少個星期。例如，可以使用DateDiff：利用MsgBox函數(shù)顯示Msg的值。：用DateDiff函數(shù)計算得到的結(jié)果和字符串“離開今天的天數(shù)：Msg = 離開今天的天數(shù): amp。：用InputBox函數(shù)來讓用戶輸入一個日期，并把用戶輸入的日期賦給變量zdrq。Dim zdrq As Date宏名為示例_1_07。Sub DateDiff(d, Now, zdrq)zdrq = InputBox(請輸入一個日期：)示例_1_07()DateDiff函數(shù)一、題目：　　要求編寫一段代碼，運用DateDiff函數(shù)返回某個指定日期距離今天的天數(shù)。MsgMsgBox表示日期的文字?！　ate數(shù)值表達式，是要加上的時間間隔的數(shù)目。字符串表達式，是所要加上去的時間間隔。函數(shù)語法中有下列命名參數(shù)：DateAdd(interval, number, date)：用DateAdd函數(shù)計算得到的新的日期和字符串“新日期：Msg = 新日期: amp。：用InputBox函數(shù)來讓用戶輸入間隔月的數(shù)目，并把用戶輸入的值賦給變量n。dyrq = InputBox(請輸入一個日期)：用字符m來指定以“月份”作為間隔。：變量dyrq聲明為日期對象型數(shù)據(jù)類型。示例_1_06()：宏程序的開始語句。MsgBox MsgEnd Sub三、代碼詳解Msg = 新日期: amp。dyrq = InputBox(請輸入一個日期)Dim MsgDim jglx As StringDim dyrq As Date二、代碼：Sub：利用MsgBox函數(shù)顯示系統(tǒng)日期的值。amp?！跋到y(tǒng)日期為MsgBoxDate函數(shù)返回系統(tǒng)當前的日期。：把系統(tǒng)日期的值賦給變量myDate。Dim myDate宏名為示例_1_05。Subamp?！跋到y(tǒng)日期為myDate = DateMsgBox示例_1_05()Date函數(shù)一、題目：　　要求編寫一段代碼，運用Date函數(shù)顯示系統(tǒng)日期的值。amp?！暗恼畹闹担?jiaodu amp。”Cos函數(shù)返回一個角的余弦值。：利用1/余弦算得正割（sec()）的值，賦給變量zenge。jiaodu = Variant數(shù)據(jù)類型的變量可以為字符串、日期、時間、Boolean或數(shù)值。數(shù)據(jù)類型。當聲明常數(shù)、變量或參數(shù)時，若無指定數(shù)據(jù)類型則會自動的指定成Dim jiaodu, zenge宏名為示例_1_04。Subamp?！暗恼畹闹担?jiaodu amp?！盋os(jiaodu)Dim jiaodu, zenge二、代碼：SubindexNull?；虼笥诹谐龅倪x擇項數(shù)目時，Chooseindex小于和可選擇的項目數(shù)之間。Index是必要參數(shù)，數(shù)值表達式或字段，它的運算結(jié)果是一個數(shù)值，且界于個選擇項，以此類推。2，則會返回列表中的第index個選擇項。Choose會返回列表中的第是如果indexChoose語法Choose函數(shù)從參數(shù)列表中選擇并返回一個值。Choose(Num, 一月, 二月, 三月)MsgBox：把2賦給變量Num。Dim Num%宏名為示例_1_03。SubNum=2示例_1_03()Choose函數(shù)一、題目：　　要求編寫一段代碼，運用Choose函數(shù)根據(jù)指定數(shù)字選擇對應(yīng)的字符串。函數(shù)的值賦給變量myChar2。charcode（字符代碼）Chr(charcode)myChar1 = Chr(69)：把Chr(69)的值賦給變量myChar1。的類型聲明字符為美元號255）則代表特殊字符，例如國際字符，重音符號，貨幣符號及分數(shù)。個字符（128后個字符與這前.到128255。0Dim myChar1 As StringSube。E。二、代碼：SubEnd Sub：程序的結(jié)束語句，和“Sub示例_1_01（）”相對應(yīng)?！百x給A2單元格，把變量myNum2的值賦給B2單元格。[a2] = myNum2= : [b2] = myNum2：把字符串“myNum2=“賦給A1單元格，把變量myNum1的值賦給B1單元格。[a1] = myNum1= : [b1] = myNum1：把字符串“myNum1=這里返回小寫字母e的ASCII代碼101。string參數(shù)可以是任何有效的字符串表達式。必要的語法Integer，代表字符串中首字母的字符的ASCII代碼。的類型聲明字符是百分比符號之間。到個字節(jié)）的數(shù)值形式，其范圍為變量存儲為Dim myNum1 As IntegerDim myNum1%, myNum2%：變量myNum1和myNum2聲明為整型變量。示例_1_01()：宏程序的開始語句。三、代碼詳解[a2] = myNum2= : [b2] = myNum2End Sub[a1] = myNum1= : [b1] = myNum1返回10139。myNum1 = Asc(Excel)Dim myNum1%, myNum2%示例_1_01()ASC函數(shù)一、題目：　　要求編寫一段代碼，運行后得到字符串”Excel”的首字母和”e”的ASCII值。. . . .前言我們平時在工作表單元格的公式中常常使用函數(shù)，Excel自帶的常用的函數(shù)多達300多個，功能強大，豐富多彩，但是在VBA中不能直接應(yīng)用，必須在函數(shù)名前面加上對象，比如：(arg1,arg2,arg3)。而能在VBA中直接應(yīng)用的函數(shù)也有幾十個，下面將逐一詳細介紹常用的40個VBA函數(shù)，以供大家學(xué)習參考。二、代碼：Sub返回69myNum2 = Asc(e)39。Sub也可以寫為Integer16位（232,76832,767Integer(%)。myNum1 = Asc(Excel)：把Asc函數(shù)的值賦給變量myNum1。Asc函數(shù)返回一個Asc(string)string（字符串）如果中沒有包含任何字符，則會產(chǎn)生運行時錯誤。myNum2 = Asc(e)：把Asc函數(shù)的值賦給變量myNum2。Chr函數(shù)一、題目：　　要求編寫一段代碼，運用Chr函數(shù)將ASCII值轉(zhuǎn)換為對應(yīng)的字符。示例_1_02()Dim myChar1$, myChar2$myChar1 = Chr(69)39。返回myChar2 = Chr(101)39。返回[a1] = myChar1= : [b1] = myChar1[a2] = myChar2= : [b2] = myChar2End Sub三、代碼詳解示例_1_02()：宏程序的開始語句。Dim myChar1$, myChar2$：變量myChar1和myChar2聲明為字符串變量。也可以寫為String之字符碼的范圍是到字符集的前個字符（0127）對應(yīng)于標準的鍵盤上的字符與符號。128ASCII字符集中所定義的相同。128到String($)。這里返回大寫字母E。Chr函數(shù)根據(jù)字符代碼返回一個字符。語法必要的參數(shù)是用來識別某字符的。myChar2 = Chr(101)：把Chr這里返回小寫字母e。[a1] = myChar1= : [b1] = myChar1：把字符串“myChar1=“賦給A1單元格，把變量myChar1的值賦給B1單元格。[a2] = myChar2= : [b2] = myChar2：把字符串“myChar2=“賦給A2單元格，把變量myChar2的值賦給B2單元格。End Sub：程序的結(jié)束語句，和“Sub示例_1_02（）”相對應(yīng)。二、代碼：SubDim Num%MsgBoxChoose(Num, 一月, 二月, 三月)End Sub三、代碼詳解示例_1_03()：宏程序的開始語句。：變量Num聲明為整型變量。Num=2：Choose(index, choice1[, choice2, ... [, choicen]])會根據(jù)的值來返回選擇項列表中的某個值。index1，則1如果是21當1函數(shù)返回如果不是整數(shù)，則會先四舍五入為與其最接近的整數(shù)。Cos函數(shù)一、題目：　　要求編寫一段代碼，運用Cos函數(shù)根據(jù)指定角度的余弦計算其正割的值。示例_1_04()jiaodu = zenge = 1 /MsgBox“角度為amp。” zengeEnd Sub三、代碼詳解示例_1_04()：宏程序的開始語句。：兩個變量都被指定為可變型數(shù)據(jù)類型。Variant（可變型）聲明成：把以“弧度”。zenge = 1 / Cos(jiaodu)其參數(shù)是表示一個以弧度為單位的角。MsgBox“角度為amp。” zenge：利用MsgBox函數(shù)顯示算得的正割（sec()）的值。二、代碼：SubDim myDate” myDateEnd Sub三、代碼詳解示例_1_05()：宏程序的開始語句。：變量myDate被指定為可變型數(shù)據(jù)類型。myDate = Date” myDateDateAdd函數(shù)一、題目：　　要求編寫一段代碼，運用DateAdd函數(shù)顯示返回一定間隔后的日期。示例_1_06()Dim n As Integerjglx = mn = InputBox(輸入增加月的數(shù)目：) DateAdd(jglx, n, dyrq)Sub宏名為示例_1_06。Dim dyrq As Date其余幾個變量分別是字符串型、整型和可變型變量。jglx = m：用InputBox函數(shù)來讓用戶輸入一個日期，并把用戶輸入的日期賦給變量dyrq。n = InputBox(輸入增加月的數(shù)目：) DateAdd(jglx, n, dyrq)”連接起來賦給變量Msg。DateAdd函數(shù)返回一個日期，這一日期加上了一個時間間隔。語法DateAddinterval必要。它具有好多設(shè)定值，比如”m”為月；”d”為日；”yyyy”為年等等。number必要。其數(shù)值可以為正數(shù)（得到未來的日期），也可以為負數(shù)（得到過去的日期）。必要。：利用MsgBox函數(shù)顯示Msg的值。二、代碼：SubDim zdrq As DateDim MsgMsg = 離開今天的天數(shù): amp。MsgBox MsgEnd Sub三、代碼詳解示例_1_07()：宏程序的開始語句。：變量zdrq聲明為日期對象型數(shù)據(jù)類型。zdrq = InputBox(請輸入一個日期) DateDiff(d, Now, zdrq)”連接起來賦給變量Msg。MsgBoxMsg函數(shù)可用來決定兩個日期之間所指定的時間間隔數(shù)目。DateDiff　　DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])函數(shù)語法中有下列命名參數(shù)：字符串表達式，是所要加上去的時間間隔。Date1，date2必要；計算中要用到的兩個日期。Firstdayofweek指定一個星期的第一天的常數(shù)。指定一年的第一周的常數(shù)。11DatePart函數(shù)一、題目：　　要求編寫一段代碼，運用DatePart函數(shù)返回某個指定日期是在一年的哪一個季度。示例_1_08()Msg = 季度: amp。