發表文章

目前顯示的是 11月, 2021的文章

劉任昌VBA雙迴圈Loop與JavaScript迴圈

圖片
VBA繪圖 VBA繪圖程式碼 '拷貝自https://excelatfinance.com/xlf19/xlf-... 'Dr Ian O'Connor, CPA. - located in Victoria, Australia. Option Explicit Const topleft As String = "C5" ' anchor cell Const diam As Integer = 100 ' points Dim Shp As Shape '全域變數global variables 每一個副程式都可以用 Sub 劉任昌() Dim TLCleft As Double '區域local variables只能用在這裡 Dim TLCtop As Double Dim i As Integer For i = 1 To 30 TLCleft = 20 * i TLCtop = 20 * i 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 Next With Cells(1, 1) '物件.字物件 屬性 方法 .Value = "劉任昌大帥哥" ...
37 則留言
閱讀完整內容

劉任昌EXCEL與JavaScript迴圈

圖片
輸出 EXCEL學習 '變數variables應該要宣告 pre=preserve保留 Option Explicit '要求所有變數必須宣告才能使用 Dim i, j As Integer 'Dimension 宣告指令 Public Sub 劉任昌() Cells(1, 1).Value = 12345 Cells(1, 1).Font.Color = RGB(0, 0, 256) Cells(1, 1).Font.Bold = True End Sub Public Sub 豬八戒() For i = 1 To 7 For j = 1 To 5 Cells(i, j).Value = i * j Next Next End Sub 劉任昌的JavaScript指令 <script> function year()   { var tmp ="<font size=5 color=#0000FF>"; //輸出HTML指令preserve格式    for (var i=0 ; i<= 10; i++)    {  tmp = tmp + (i+2010) +"年<br/>"    }    tmp = tmp + "</font>"    document.getElementById("out").innerHTML = tmp;   } </script> <body> <input onclick="year()" type="button" value="劉任昌年" /> <p id="out">輸出</p>   </body>
15 則留言
閱讀完整內容

EXCEL and VBA, 基本功能與VBA程式設計

圖片
老師的程式碼programming code Public Sub 劉任昌第一個城市() '練習寫迴圈 VBA=Visual Basic Application 'Dim i, j As Integer j = 7 For i = 1 To 15 Cells(i, j).Value = i * i Next 'VBA迴圈的結束Next, C或Javascript {}定義迴圈範圍 'VBA程式語言寫Microsoft Office 巨集 Macro小程式 End Sub preserve:保留pre事前主動保留。 reserve:保留re事後被動保留。 serve:服務。 video 108劉任昌影片 打開EXCEL開發人員developer工具 File檔案->options選項 1 1 德明財經科技大學劉任昌 大帥哥 4 8 left 德明財 相對位置 9 27 mid 經科 加上$絕對位置 16 64 right 劉任昌 =RIGHT(C$1,3) 25 125 len 11 =LEN(C$1) 36 216 count 30 =COUNT($A$1:$B$15) 49 343 min 德明財 64 512 max 德明財 81 729 average 德明財 100 1000 sum 德明財 121 1331 indirect 德明財 144 1728 劉任昌大帥哥 =CONCAT(RIGHT(C1,3),F1) 169 2197 單引號'註解強迫文字模式 196 2744 225 3375
張貼留言
閱讀完整內容

EXCEL基本功能與VBA

圖片
EXCEL基本功能 preserve保持樣子 我會永遠等著你 劉任昌超級大帥哥 1 我 =LEFT(海角天涯,A2) 哥 =RIGHT($D$1,$A2) 2 我會 帥哥 3 我會永 大帥哥 4 我會永遠 級大帥哥 5 我會永遠等 超級大帥哥 26 =POWER(2,20) 1048576 24 X 16224 6 F 156 4 D 4 欄26進位 16384 16384 count 12 測試 sum 426 #NUM! =MEDIAN(D12) average 35.5 30.5 =MEDIAN(indirect(D12)) min 1 中位數 max 80 VBA巨集Macro程式設計 Public Sub 陳時中第一個城市() '練習寫迴圈 VBA=Visual Basic Application 'Dim i, j As Integer j = 7 For i = 1 To 15 Cells(i, j).Value = i * i Next 'VBA迴圈的結束Next, C或Javascript {}定義迴圈範圍 'VBA程式語言寫Microsoft Office 巨集 Macro小程式 End Sub 劉任昌108影片
20 則留言
閱讀完整內容