
題目三:
公司的資訊部門依據業務部門的需求,在表單中顯示「成交量」工作表的圖表內容,在
「選單」資料表內新增一按鈕「在表單中顯示圖表」,執行此按鈕後即在表單視窗中顯示成
交量圖表。以下為此程序部分程式碼,請完成之。【25 分】
Option Explicit
Private Sub UserForm_Initialize()
Dim Charts As Chart
Dim cName As String
Set Charts = Sheets("成交量").ChartObjects(1).Chart
cName = ThisWorkbook.Path & "Temp.gif"
Charts.Export Filename:=cName, FilterName:="GIF"
Image1.Picture = LoadPicture(cName)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Kill ThisWorkbook.Path & "Temp.gif"
End Sub
題目四:
某公司內部各單位有許多其他公司的人力派遣,資訊部門想合併下列左圖 A欄中單位相
同的連續儲存格,執行MergeSameCells程序後的結果如下列右圖。下列為MergeSameCells
部分程式內容,請完成 VBA 程式碼。【25 分】
Sub MergeSameCells()
Dim lRow As Integer
Application.DisplayAlerts = False
With ActiveSheet
lRow = .Range("A1048576").End(xlUp).Row 'A 欄最後一個有資料列
For i = lRow To 2 Step -1
If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then
.Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge
End If
Next
End With
Application.DisplayAlerts = True
End Sub