教學第91題-Visual Basic巨集模組程式初階研習6

tony0938

學習題目： Visual Basic巨集模組程式研習

研習題目

10 讀取輸入資訊InputBox

本程式可為目前作用的工作表重新命名

InputBox函數與MsgBox函數一樣可用於供程式和使用者間做溝通的橋梁，所不同的是MsgBox主要是輸出訊息，InputBox則是讀取訊息。InputBox函數的使用格式如下：

ResultText=InputBox（prompt [,title] [, default] [.xpos] [,ypos][,helpfile,context]）

prompt是列出供使用者看的訊息。

Title是輸入對話方塊的標題名稱。

Default是指預設的輸入訊息，若省略則輸入欄是空白。

Xpos和Ypos值指出輸入對話方塊的位置，若省略則輸入對話方塊將放在螢幕的中央。

Helpfile和Context的意義可參考前一節的MsgBox函數。

ResultText是儲存使用者所輸入的字串。  

Public SubReSheetName()

Dim prompt AsString, title As String

Dim resultText AsString

prompt = "請為工作表命名?"

title = "實例ch18_10"

resultText =InputBox(prompt, title)

ActiveSheet.Name =resultText

End Sub

…………………………………………………

11 範圍物件

設定B6的儲存格內容是B1:B5的總和

Range物件在VBA碼中，可用於指定某區間或某個儲存格，例如，下列代表A2儲存格。

Range（"A2"）

下列代表A2:B4儲存格區間。

Range（"A2:B4"）

Public SubAddRange()

Range("B6").Formula= "=SUM(B1:B5)"

End Sub

………………………………………………..

12 範圍物件

設定C4:E8儲存格的內容，如果小於60則以紅色顯示，如果介於60和79之間（含）則以藍色顯示。

Public SubColorCell()

Dim CellObj AsObject

For Each CellObjIn Range("C4:E8")

     If CellObj.Value < 60 Then

          CellObj.Font.Color = RGB(255, 0, 0)

     ElseIf CellObj.Value < 80 Then

          CellObj.Font.Color = RGB(0, 0, 255)

     End If

Next CellObj

     

End Sub

範例檔案： (歡迎下載)

應用題研習-6做完的同學請把檔案回傳給我，以方便老師幫你們做檢查喔！

同樣歡迎其他班別學員一起學習喔！

若是還有不了解之處學員們可利用回覆視窗與我聯絡喔！

新加入學員可以將已經上線的學習作業檔、線上教育訓練檔、作品呈現檔、原創檔下載下來

聯成電腦  版主位置：職訓多媒體&網頁設計班  tony黃正升老師

1030906