王芷榆EXCEL基本功能，VBA巨集程式設計

畫圖畫面

畫圖畫面程式

'拷貝自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 '宣告 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

劉任昌107影片

我的EXCEL試算表

王芷榆	Shift+Tab		Shift	變速檔	gear齒輪		
左Shift+Tab		右邊Tab			shift改變		
	Enter	計算	註解		Alt		
shift	連續	16384	=COLUMN(天涯海角)		Alternative	另外一個選擇	
Ctrl	多重選擇	1048576	=ROW(天涯海角)				
control		16384	=POWER(2,14)				
	ctrl往上	1048576	=POWER(2,20)				
ctrol往左	ctrl往右	X24	16224				
	ctrl往下	F6	156				
王		D4	4				
王芷			16384	=SUM(D8:D10)			
芷榆							
重選							

程式碼

Public Sub 劉任昌第一個城市()
'練習寫迴圈 VBA=Visual Basic Application
'Dim i, j As Integer
j = 7
For i = 1 To 15
  Cells(i, j).Value = i * i
Next
'VBA迴圈的結束Next, C或Javascript {}定義迴圈範圍
'VBA程式語言寫Microsoft Office 巨集 Macro小程式
End Sub