詹惠如excel基本功能,vba巨集程式設計

畫圖畫面

畫圖程式碼

'拷貝自https://excelatfinance.com/xlf19/xlf-...

'Dr Ian O'Connor, CPA. - located in Victoria, Australia.

'2021/11/29劉任昌指導我從

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

劉任昌107影片

我的EXCEL試算表

詹惠如	Shift+Tab		Shift	變速檔	shift gear	preserve=保留
左Shift+Tab		右邊Tab			gear齒輪	
	Enter	計算	註解		shift 改變	
shift	連續	16384	=COLUMN(天涯海角)		Alt	
Ctrl	多重選擇	1048576	=ROW(天涯海角)		Alternative	另外一個選擇
control		16384	=POWER(2,14)			
	ctrl 往上	1048576	=POWER(2,20)			
ctrol往左	ctrl往右	X24	16224			
	ctrl 往下	F6	156			
劉	=LEFT(天涯海角,1)	D4	4			
劉任	=LEFT(天涯海角,2)		16384	=SUM(D8:D10)		
任昌	=RIGHT(天涯海角,2)					
重選	=MID(B5,2,2)					
超級帥哥	詹惠如	=INDIRECT(A14)		間接定址		
天涯海角		direct				
		indirect				

劉任昌108影片

VBA程式碼

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