陳佑愷EXCEL函數if, and, or股票圖
AND TRUE =AND(3>2, 5>-1) OR TRUE =OR(3>2, -3>-1) 56 當掉 =IF(A239>=60,"及格","當掉") 82 及格 74 及格 54 當掉 80 及格 45 當掉
發表文章
SVG網頁scalable vector graph, EXCEL addshapre, Word addshape
Excel練習 Sub 微笑() ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 240, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 332.5, 250, 15, 20).Fill.ForeColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes.AddShape(msoShapeOval, 252.5, 250, 15, 20).Fill.ForeColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes.AddShape(msoShapeRectangle, 290, 270, 20, 40).Fill.ForeColor.RGB = RGB(255, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 325, 100, 40).Fill.ForeColor.RGB = RGB(255, 100, 50) ActiveSheet.Shapes.AddShape(msoShapeOval, 225, 200, 150, 30).Fill.ForeColor.RGB = RGB(100, 200, 225) '使用中式算....msoShapeOval,左,上,寬,高) End Sub