EXCEL VBA雙迴圈 JAVASCRIP雙迴圈

輸出

Public Sub 寶薇安率() Cells(1, 1) = "耶" Cells(1, 1).Font.Color = RGB(0, 0, 255) Cells(1, 1).Font.Size = 20 For i = 2 To 25 For j = 1 To 4 Cells(i, j) = (2010 + i) & "年" & j & "月" Next Next End Sub 心得

留言

張貼留言

這個網誌中的熱門文章

SVG與EXCEL繪圖WORD繪

程式碼 Sub 鮑薇安() ActiveSheet.Shapes.AddShape(msoShapeOval, 0, 0, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 50, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 120, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeRectangle, 90, 80, 20, 50).Fill.ForeColor.RGB = RGB(0, 0, 255) ActiveSheet.Shapes.AddShape(msoShapeRectangle, 70, 150, 60, 15).Fill.ForeColor.RGB = RGB(255, 0, 0) End Sub
閱讀完整內容