	識別碼	程式碼
編輯選取刪除	1	Range("a3:c10").Select
編輯選取刪除	2	Selection.FormulaR1C1 = "abcd"
編輯選取刪除	3
編輯選取刪除	4	Sub MyFirstMacro()
編輯選取刪除	5	Range("C4:F10").Select
編輯選取刪除	6	With Selection.Interior
編輯選取刪除	7	.ColorIndex = 3
編輯選取刪除	8	.Pattern = xlSolid
編輯選取刪除	9	.PatternColorIndex = xlAutomatic
編輯選取刪除	10	End With
編輯選取刪除	11	Range("A1").Select
編輯選取刪除	12	ActiveCell.FormulaR1C1 = "Excel VBA ，簡單易學。"
編輯選取刪除	13	End Sub
編輯選取刪除	14	以目前調色盤索引傳回或設定內部圖樣的色彩，也可設定為下列 XlColorIndex
編輯選取刪除	15	常數之一： xlColorIndexAutomatic 或 xlColorIndexNone。Long 型態，可讀寫。
編輯選取刪除	16	請注意
編輯選取刪除	17	將該屬性設定為 xlColorIndexAutomatic 可指定儲存格自動圖樣，或指定圖形物件自動選用填滿樣式。將該屬性設定為 xlColorIndexNone 則可設定不使用圖樣（這樣設定與將 Interior 物件的 Pattern 屬性設為 xlPatternNone 是一樣的
編輯選取刪除	18
編輯選取刪除	19	ActiveCell.Offset(-3, -1).Range("A1").Select
編輯選取刪除	20	rc =>向左一欄,向上三列且左上角 b2=>往右移一,往下移二
編輯選取刪除	21
編輯選取刪除	22	本範例會建立並顯示一個有標題、文字和三條選項的汽球。
編輯選取刪除	23	With Assistant.NewBalloon
編輯選取刪除	24	.Button = msoButtonSetOK
編輯選取刪除	25	.Heading = "Regional Sales Data"
編輯選取刪除	26	.Text = "Select a region"
編輯選取刪除	27	For i = 1 To 3
編輯選取刪除	28	.CheckBoxes(i).Text = "Region " & i
編輯選取刪除	29	Next
編輯選取刪除	30	.Show
編輯選取刪除	31	End With
編輯選取刪除	32
編輯選取刪除	33	Sub Office小幫手()
編輯選取刪除	34	Set bin = Assistant.NewBalloon
編輯選取刪除	35	With bin
編輯選取刪除	36	.Mode = msoModeModeless
編輯選取刪除	37	.Callback = "SelectStock"
編輯選取刪除	38	.BalloonType = msoBalloonTypeButtons
編輯選取刪除	39	.Icon = msoIconAlert
編輯選取刪除	40	.Heading = "洪氏定律："
編輯選取刪除	41	.Text = "忍著跌中跌,方為股市人!" & Chr(13) & "股海淘金原是夢!"
編輯選取刪除	42	.Button = msoButtonSetNone
編輯選取刪除	43
編輯選取刪除	44	.Labels(1).Text = "無怨無悔"
編輯選取刪除	45	.Labels(2).Text = "痛不欲生"
編輯選取刪除	46	.Labels(3).Text = "麻木不仁"
編輯選取刪除	47	.Show
編輯選取刪除	48	End With
編輯選取刪除	49	End Sub
編輯選取刪除	50
編輯選取刪除	51	Sub SelectStock(bin As Balloon, btn As Long, priv As Long)
編輯選取刪除	52	Select Case btn
編輯選取刪除	53	Case 1
編輯選取刪除	54	MsgBox "我不入地獄，誰入地獄!"
編輯選取刪除	55	Case 2
編輯選取刪除	56	MsgBox "早知如此，何必當初"
編輯選取刪除	57	Case 3
編輯選取刪除	58	MsgBox "富貴於我如浮雲!"
編輯選取刪除	59	End Select
編輯選取刪除	60	bin.Close
編輯選取刪除	61	End Sub
編輯選取刪除	62
編輯選取刪除	63	Sub aaa()
編輯選取刪除	64	With Assistant.NewBalloon
編輯選取刪除	65	.Button = msoButtonSetOK
編輯選取刪除	66	.Heading = "Regional Sales Data"
編輯選取刪除	67	.Text = "Select a region"
編輯選取刪除	68	For i = 1 To 3
編輯選取刪除	69	.CheckBoxes(i).Text = "Region " & i
編輯選取刪除	70	Next
編輯選取刪除	71	.Show
編輯選取刪除	72	End With
編輯選取刪除	73	End Sub
編輯選取刪除	74
編輯選取刪除	75
編輯選取刪除	76	傳回或設定顯示的汽球型態。該屬性值可以是下列 MsoModeType 常數之一：
編輯選取刪除	77	msoModeAutoDown、msoModeModal 或 msoModeModeless。當您使用 NewBalloon 方法建立一個新汽球時，該屬性的初值設定為 msoModeModal 。Long型態，可讀寫。
編輯選取刪除	78
編輯選取刪除	79	請注意
編輯選取刪除	80
編輯選取刪除	81	如果一個汽球的 Mode 屬性設定為 msoModeModeless，那麼在顯示該汽球的同時，使用者可在應用程式中工作。如果屬性設定為 msoModeModal，使用者必須先清除該汽球，才能回到應用程式進行工作。如果屬性設定為 msoModeAutoDown，使用者只需按一下螢幕上的任何位置，汽球就會立刻自行消除。
編輯選取刪除	82	如果一個汽球的 Mode 屬性設定為 msoModeModeless，那麼就需要設定 Callback 屬性的值。只有在屬性值設定成 msoModeModeless 時，才可使用 Close 方法。
編輯選取刪除	83
編輯選取刪除	84	Sub aaa()
編輯選取刪除	85	With Assistant.NewBalloon
編輯選取刪除	86	.BalloonType = msoBalloonTypeBullets
編輯選取刪除	87	.Icon = msoIconTip
編輯選取刪除	88	.Button = msoButtonSetOkCancel
編輯選取刪除	89	.Heading = "Tips for Saving Information."
編輯選取刪除	90	.Labels(1).Text = "Save your work often."
編輯選取刪除	91	.Labels(2).Text = "Install a surge protector."
編輯選取刪除	92	.Labels(3).Text = "Exit your application properly."
編輯選取刪除	93	.Show
編輯選取刪除	94	End With
編輯選取刪除	95	End Sub
編輯選取刪除	96
編輯選取刪除	97	傳回或設定 [Office 小幫手] 汽球底部的按鈕型態。當您使用 NewBalloon 方法建立新汽球時，該屬性初值設定為 msoButtonSetOK 。Long 型態，可讀寫。
編輯選取刪除	98	其值可以是下列 MsoButtonSetType 常數之一：
編輯選取刪除	99
編輯選取刪除	100	msoButtonSetAbortRetryIgnore