于治善-程式設計

VBA迴圈畫圓 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 Sub xlfAddCircle1() Dim shp As Shape 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.789 .ThreeD.BevelTopType = msoBevelCircle End With End Sub Sub 于治善() Dim shp As Shape '宣告dim 變數shp是圖形shpae Dim TLCleft As Double 'local varia...

Excel基本功能 于治善 我會永遠等著你 于治善超級大帥哥 1 我 =LEFT(海角天涯,A2) 哥 =RIGHT($D$1,$A3) 2 我會 帥哥 3 我會永 大帥哥 4 我會永遠 級大帥哥 5 我會永遠等 超級大帥哥 POWER(2,20) 1048576 26 24 X 16224 測試 6 F 156 count 12 #NUM! =MEDIAN(H12) 4 D 4 sum 426 30.5 =MEDIAN(INDIRECT(H12)) 16384 16384 average 35.5 中位數 min 1 max 80 VBA巨集Marco程式設計 Public Sub 于治善() Cells(I, I).Value = "于治善撰寫巨集" '迴圈在第七列放平方數Next迴圈的結束 J = 12 For I = I To II Cells(I, J).Value = I * I Next End Sub 劉任昌108影片