原创 VBA 第12課 插入排序
'插入排序,從小到大 Sub 插入排序() Dim arr, i, temp, y arr = Range("a1:a18") For i = 2 To UBound(arr) temp = Cells(i, 1)
2020-06-16 06:54:40
1
原创 Python3 ctypes簡單使用
>>> from ctypes import * >>> c_int() c_long(0) >>> c_char_p(b'hello') c_char_p(b'hello')>>> c_ushort(-5) c_ushort(65531
2020-06-16 06:54:40
原创 PyQt5 來寫一個評論框
import sys from PyQt5.QtWidgets import QWidget, QLabel, QApplication, QLineEdit, QTextEdit, QGridLayout class Example(Q
2020-02-23 12:24:28
原创 VBA第5課 select多條件判斷
Sub select多條件判斷() Select Case Sheet1.[b1].Value Case Is > 0 MsgBox "大於0" Case Else MsgBox "小於或等於0" End Select End Sub
2020-02-23 12:24:28
1
原创 VB 連接AutoCad 模塊代碼
<span style="font-family: Arial, Helvetica, sans-serif;"> </span><span style="font-family: Arial, Helvetica, sans-serif
2020-02-23 12:24:28
原创 VB CAD插件二次開發
<pre name="code" class="vb">Dim acadapp As AcadApplication '在窗體代碼聲明段定義acadapp Private Sub Command1_Click() acadapp.Do
2020-02-23 12:24:28
原创 Python3.4 語音控制電腦（基於win10語音識別）
import speech import win32api import os import sys import time import win32con command1 = {'關機': 'shutdown -s -t 1',
2020-02-23 12:24:28
原创 Python 遠程(郵件)控制電腦升級版
由於前邊http://blog.csdn.net/u013511642/article/details/44259557寫的遠程操控電腦,使用的PO
2020-02-23 12:24:28
原创 VBA 第8課 Excel單元格的顏色,格式的設置
Sub 顏色() Dim x As Integer Range("a1:b60").Clear For x = 1 To 56 Step 1 Range("a" & x) = x Range("b" & x).Interior.Color
2020-02-23 12:24:28
原创 VBA第6課 循環判斷數據
Sub do_loop循環判斷() Dim cj% cj = 1 Do cj = cj + 1 If cj > 10 Then Exit Do '退出循環 Else
2020-02-23 12:24:28
1
原创 VBA 第9課 合併單元格
'單元格合併 Sub b1() Range("a1:g2").Merge End Sub'合併H列相同單元格 Sub b2() Dim x As Integer Dim rg As range Set rg = range("h1")
2020-02-23 12:24:28
原创 PyQt5 寫一個計算器框架
import sys from PyQt5.QtWidgets import QWidget, QLabel, QApplication, QPushButton, QHBoxLayout, QVBoxLayout, QGridLayou
2020-02-23 12:24:28
原创 VBA 第14課 自動生成年曆
Sub 生成年曆() y = InputBox("請指定一個年份:") '清除原有內容 Range("1:1, 4:11,14:21,24:31,34:41").ClearContents '設置標題 Cells(1, 1) = y &
2020-02-23 12:24:28
1
原创 VBA 第11課 數組,取特定行數據
Sub d1() Dim arr, arr1(1 To 1000, 4) arr = Range("a1:d10") Dim x, k For x = 1 To UBound(arr) If arr(x, 1) = "B" Th
2020-02-23 12:24:28
1
原创 VBA 第13課 字典dictionary
'加入數據 Sub 字典() Dim d, x, arr Set d = CreateObject("scripting.dictionary") For x = 2 To 4 d.Add Cells(x, 1).Value, Cell
2020-02-23 12:24:28
1