金一乙許程程

VBA迴圈畫圖 VBA迴圈畫圖程式碼 Dim Shp As Shape '宣告變數Shp是 圖形 全域變數global 非區域變數local Sub 許程程刪除() For Each Shp In ActiveSheet.Shapes Shp.Delete '刪除使用中試算表ActiveSheet的所有圖形Shapes Next End Sub ' =========================== Sub 許程程() Dim Shp As Shape '宣告變數Shp是 圖形 Dim x As Double '宣告變數x是倍數經度實數Double Dim y As Double '宣告變數y是倍數經度實數Double Dim i As Integer '宣告變數i是整數Double For i = 1 To 20 '寫迴圈 x = 20 * i y = 20 * i Set Shp = ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, 30, 60 ) With Shp .Fill.Visible = msoFalse .Line.Weight = 10 .Line.ForeColor.Brightness = 0.4 .ThreeD.BevelTopType = msoBevelCircle End With Next With Cells(1, 1) .Value = "許程程" '在儲存格1,1放入字串string .Interior.Color = RGB(0, 0, 255) 'interior desing室內設計 With .Font .Size = 24 .Bold = True .Color = RGB(255, 255, 255) End With End With End Sub JavaScript雙迴圈 輸出 EXCEL VBA雙迴圈 ...

preserve保持樣子 我會永遠等著你 許程程 1 我 RIGHT($D$1，$A2) 2 我會 3 我會永 16384 4 我會永遠 5 我會永遠等 26 =POWER(2,20) 1048576 24 X 16224 6 F 156 4 D 4 欄26進位 16384 16384 COUNT 12 測試 SUM 426 #NUM! =MEDIAN(D12) AVERAGE 35.5 30.5 =MEDIAN(indirect(D12)) MIN 1 中位數 MAX 80 VBA巨集Macro程式設計 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