BEARBEAR

VBA繪圖 VBA繪圖程式碼 Option Explicit Const topleft As String = "C5" ' anchor cell Const diam As Integer = 100 ' points diameter直徑 Dim Shp As Shape ' =========================== Sub 張琍婷() Dim TLCleft As Double Dim TLCtop As Double Dim i As Integer '宣告整數integer For i = 1 To 30 TLCleft = 20 * i TLCtop = 20 * i 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 Next With Cells(1, 1) .Value = "張琍婷" .Interior.Color = RGB(255, 192, 103) With .Font .Size = 20 ...

EXCEL基本功能 107影片 108影片 preserve 保留以下EXCEL VBA模組畫面 Public Sub 金一丙() Cells(1, 1).Value = "金一丙張琍婷" End Sub Public Sub 張琍婷迴圈() For j = 1 To 20 Cells(j, 6).Value = j * j Next End Sub