Sub 微笑() ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 250, 20, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 350, 250, 20, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) End Sub
期中考巢狀比較 非巢狀 if (r) present("#FF0000"); if (g) present("#00FF00"); if (b) present("#0000FF"); 巢狀 if (r) present("#FF0000"); else if (g) present("#00FF00"); else if (b) present("#0000FF"); else alert("輸入的顏色條件，不滿足r, g, b，其他的！"); 期中考 喜愛 沒意見 討厭 \ 紅色 綠色 藍色 粗體 輸出 招柏揚期中報告 把之前學的東西濃縮一次始使用，感覺相當有趣.讚啦
留言
張貼留言