田庭聿EXCEL基本功能,VBA巨集程式設計

 


畫圖VBA程式碼

'Dr Ian O'Connor, CPA. - located in Victoria, Australia.

'2021/11/29劉任昌指導我從 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(Type:=msoShapeOval, Left:=x, Top:=y, 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) 'with 固定前面的物件end with .Value = "劉任昌" .Interior.Color = RGB(0, 0, 255) With .Font .Size = 16 .Bold = True .Color = RGB(255, 255, 255) End With End With End Sub Sub 刪除() For Each Shp In ActiveSheet.Shapes 'Shp 共用的物件宣告成全域變數 Shp.Delete Next End Sub
只顯示部分資訊

留言

張貼留言

這個網誌中的熱門文章

SVG

圖片
EXCEL VBA 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
閱讀完整內容

田庭聿time套件

圖片
from tkinter import * #下載程式碼,從tkinter輸入所有函式 import time x = ['\U0001F644','\U0001F602','\U0001F608','屎','尿']#定義一個串列 y = [] #追蹤特定視窗用途,尚未使用 for i in range(5): window = Tk() #建構視窗,名為window建構一個房子 window.title('田庭聿python第%d視窗' % (i+1)) window.geometry('300x300+%d+%d' % (300*i,50*i)) b1=Label(window,text=x[i],font='Arial 250 bold').pack() time.sleep(1) window.update() y.append(window)#追蹤特定視窗用途,尚未使用 window.mainloop()
閱讀完整內容

田庭聿vs code期中考

圖片
import csv #輸入csv套件comma separated value file = open('SPY.CSV','r') #打開下載的檔案SPY.CSV,模式是r讀取, csvreader = csv.reader(file) #將檔案讀入變數csvreader header, rows = [], [] #宣告空白串列(陣列,清單) header = next(csvreader) #串列header儲存檔案第一列 for row in csvreader: #檔案接續逐列附加append於rows串列 rows.append(row) file.close() #關閉檔案 header.append('MA20') #appendix附錄,為header串列list新曾元素 header.append('部位') #print('印出前十列') #print(header) for i in range(20): rows[i].append(rows[i][5]) for i in range(21,len(rows)): sum20 = 0.0 #實數=浮點數 for j in range(i-20, i): sum20 += float(rows[j][5]) rows[i].append(sum20/20) for i in range(len(rows)-3,len(rows)): #length的命令len(rows) print('第',i+1,'列',rows[i]) file = open('SPYW.CSV','w',newline='') w = csv.writer(file) #寫入檔案 VScode是IDE(程式)整合開發環境 w.writerow(header) #第5列將檔案欄位名稱列header w.writerows(rows) #第7列將檔案內...
閱讀完整內容