王芷榆

輸出 EXCEL學習 '變數variables應該要宣告 Option Explicit '要求所有變數必須宣告才能使用 Dim i, j As Integer 'Dimension 宣告指令 Public Sub 王芷榆() Cells(1, 6).Value = "王芷榆" Cells(1, 6).Font.Color = RGB(0, 0, 256) Cells(1, 6).Font.Bold = True End Sub Public Sub 豬八戒() For i = 1 To 7 For j = 1 To 5 Cells(i, j).Value = i * j Next

畫圖畫面 畫圖畫面程式 '拷貝自https://excelatfinance.com/xlf19/xlf-... 'Dr Ian O'Connor, CPA. - located in Victoria, Australia. 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 Shp As Shape Dim TLCleft As Double 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 Shp As Shape '宣告dim 變數Shp是圖形Shape Dim x As Double...