'變數variables應該要宣告 pre=preserve保留
Option Explicit '要求所有變數必須宣告才能使用
Dim i, j As Integer
'Dimension 宣告指令
Public Sub 劉任昌()
Cells(1, 1).Value = 12345
Cells(1, 1).Font.Color = RGB(0, 0, 256)
Cells(1, 1).Font.Bold = True
End Sub
Public Sub 豬八戒()
For i = 1 To 7
For j = 1 To 5
Cells(i, j).Value = i * j
Next
Next
End Sub
畫圖畫面
畫圖VBA程式碼
Option Explicit
Const topleft As String = "C5" ' anchor cell
Const diam As Integer = 180 ' points
Dim Shp As Shape '宣告dim 變數Shp是圖形Shape global
Sub xlfAddCircle1()
Dim TLCleft As Double 'local variables區域變數
Dim TLCtop As Double
TLCleft = Range(topleft).Left
TLCtop = Range(topleft).Top
Set Shp = ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _
Left:=TLCleft, Top:=TLCtop, _
Width:=diam, Height:=diam)
With Shp
.Fill.Visible = msoFalse
.Line.Weight = 10
.Line.ForeColor.Brightness = 0.4
.ThreeD.BevelTopType = msoBevelCircle
End With
End Sub
Sub 藍云妡()
Dim x As Double '宣告 x 是倍精度double
Dim y As Double '宣告 y 是倍精度double
Dim i As Integer '選告整數i
For i = 1 To 20
x = 20
y = 20 * i
Set Shp = ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, Left:=x, Top:=y, Width:=diam, Height:=diam)
With Shp
.Fill.Visible = msoFalse
.Line.Weight = 10
.Line.ForeColor.Brightness = 0.4
.ThreeD.BevelTopType = msoBevelCircle
End With
Next
With Cells(1, 1) 'with 固定前面的物件end with
.Value = "藍云妡"
.Interior.Color = RGB(0, 0, 255)
With .Font
.Size = 16
.Bold = True
.Color = RGB(255, 255, 255)
End With
End With
End Sub
Sub 刪除()
For Each Shp In ActiveSheet.Shapes 'Shp 共用的物件宣告成全域變數
Shp.Delete
Next
End Sub
留言
張貼留言