第三週

網頁表單Text, Number, Seclect, Button

我的表達

劉任昌老師093教學影片

劉任昌老師094教學影片

留言

張貼留言

這個網誌中的熱門文章

Microsoft VBA AddShape 網頁SVG=Scalable Vector Graph

圖片
EXCEL VBA繪圖 Sub 許程程() ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeRectangle, 290, 290, 20, 40).Fill.ForeColor.RGB = RGB(0, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 280, 340, 40, 20).Fill.ForeColor.RGB = RGB(255, 0, 0) '使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb End Sub WORD VBA繪圖 網頁 SVG繪圖 維基百科SVG
閱讀完整內容

許程程EXCEL函數IF,AND,CR股票

圖片
已經學的EXCEL函數 85 及格 TRUE =AND(3>1,5 1,5 1,5 =60,"及格","當掉") Rank PercentRank Min Max Median Match Index Count AND(條件一,條件二) OR(條件一,條件二) IF(條件, 成立執行, 不成立執行) 資料表Data Table 以及過去學的Left, Mid, Right, Len。 資料表Table是連續範圍的儲存格資料。將格標放在資料表任何地方，Ctrl往上箭、Ctrl往下箭、Ctrl往右箭，格標跑到資料表的邊緣。 =IF(AND(I21 J22),"買入",IF(AND(I21>J21,I22
閱讀完整內容

許程程VBA雙迴圈Loop與JavaScript迴圈 VBA AddShape

圖片
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雙迴圈 ...
閱讀完整內容