黃子亮

Posts

Showing posts from November, 2021

November 28, 2021

德明財務金融金一丙黃子亮 Option Explicit Const topleft As String = "C5" ' anchor cell Const diam As Integer = 180 ' points Dim Shp As Shape '宣告dim 變數Shp是圖形Shape global Sub xlfAddCircle1() Dim TLCleft As Double 'local variables區域變數 Dim TLCtop As Double TLCleft = Range(topleft).Left TLCtop = Range(topleft).Top 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 End Sub Sub 劉任昌超級臭屁() Dim x As Double '宣告 x 是倍精度double Dim y As Double '宣告 y 是倍精度double Dim i As Integer '選告整數i For i = 1 To 20 x = 20 y = 20 * i Set Shp = ActiveSheet.Shapes.AddShape(Typ...

黃子亮EXCEL VBA 雙迴圈JavaScript迴

November 21, 2021

輸出 EXCEL學習 '變數variables應該要宣告 pre=preserve保留 'Dimension 宣告指令 Option Explicit Dim i, j As Integer Public Sub 豬八戒() For i = 2 To 7 For j = 1 To 6 Cells(i, j).Value = i * j Cells(i, j).Font.Color = RGB(0, 0, 255) Cells(i, j).Font.Bold = True Next Next End Sub 相當於JavaScript指令}代表結束VBA不用{ } 代表開始與結束，sub end sub JavaScript迴圈 <head> <style> h1{padding: 20px; background-color: green; color: white;} </style> <script> function year() { var tmp ="<font size=5 color=#0000FF>"; //輸出HTML指令preserve格式 for (var i=0 ; i<= 5; i++) { tmp = tmp + (i+2020) +"年"; for (var j=1; j<13; j++) { tmp=tmp + j +"月"; } tmp = tmp +"<br/>"; }//tmp 是一個字串變數+進行字串的串接加上<br/>html換列命令 tmp = tmp + "</font>"; document.getElementById("out").innerHTML = tmp; }...