原创 自定義類創建屬性
一般屬性定義： Public m屬性名 As String = "" Public Property 屬性名() As String Get Return m屬性名 End Get Set(ByVal
2020-06-19 11:08:01
原创 Python3.7+setuptools對自己常用代碼進行封裝
前言 最近在做一些綜合點的項目，涉及到的重複調用的模塊有點多，放在一個項目裏通過函數調用的話，附屬的文件有點太多了，看着不舒服。而且有些其他項目也會用到的這些模塊，個人將其稱爲通用模塊，對於這種模塊每次新建項目的時候都要複製過來有點麻煩，
2020-06-19 11:08:00
2
原创 多行內容合併到同一個單元格
Sub Test() With Sheet1 '準備階段 .Range("C:C").Clear '清除C列中數據即格式 '定義數據類型 Dim k() As
2020-06-19 11:08:00
1
原创 自定義控件傳遞事件
Public Class Form1 WithEvents TextBoxPluss As TextBox 'WithEvent一個TextBox控件，因爲自定義控件中需要傳遞的事件爲TextBox的事件 Private
2020-06-19 11:08:00
2
原创 爬蟲獲取天氣歷史按月份存爲txt文件
#\usr\bin\python #-*coding:UTF-8-*- def ModSearchWeather(City,Date): #定義一個對象:獲取天氣歷史信息 import re,requests,sys #引用re,
2020-06-19 11:08:00
原创 VB.NET相關代碼整理
窗口雙緩衝 Public Sub New() ' 此調用是 Windows 窗體設計器所必需的。 InitializeComponent() ' 在 InitializeCom
2019-01-06 19:02:56
原创 VBA一對多模糊查詢簡單代碼
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$2" Then Call LikeSearch '當變更單元格爲F2時，執
2018-11-20 03:46:54
192
原创 Python3+Requests庫帶驗證碼登陸學校教務系統的嘗試。
畢業快兩年了，上班空閒摸魚的時候無意中打開了學校的教務系統。發現瀏覽器還記着我的學號和登陸密碼(果然是很多東西你自己都忘了，瀏覽器的雲端都幫你記着)，輸入驗證碼之後居然登陸進去了。學校的教務系統還是一如既往地難看。 可能是兼容性的問題，
2018-11-08 04:21:53
原创 按條件拆分Excel內容並另存爲單獨的工作簿
Option Explicit Sub SplitInfomation() Application.ScreenUpdating = False With ThisWorkbook.Worksheets(1)
2018-11-04 03:54:36
1
原创 RichTextbox遍歷法提取圖片
Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click For i = 0 To RichTextBox1.TextL
2018-10-27 03:38:34
原创 數組排序——VBA工作簿排序
Sub OrderBy() Dim SheetCount As Long SheetCount = ThisWorkbook.Worksheets.Count - 1 ReDim SheetNameArray(S
2018-10-20 03:45:25
3
原创 VBA自動獲取二級文件夾目錄
Sub FindFileName() ThisWorkbook.Worksheets(1).UsedRange.Delete '打開文件時清空所有單元格內容 Dim DirectPath As String '定義父文件
2018-10-13 03:20:40
24
原创 Python獲取[2016年統計用區劃代碼和城鄉劃分代碼(截止2016年07月31日)]
#!usr/bin/env python #-*- coding:utf-8 -*- import requests import re import time ##系統初始化 urlHeader="http://www.stats.g
2018-09-21 04:38:40
2
原创 VB.NET截圖方法
Dim pointLeftSoure As New Point(Me.Left, Me.Top) Dim pointLeftDestination As New Point(-1, -30) Dim sizeBackImage As N
2018-09-18 02:59:16
71
原创 VB.NET僞透明效果
Dim pointLeftSoure As New Point(Me.Left, Me.Top) Dim pointLeftDestination As New Point(-1, -30) Dim sizeBackImage As N
2018-09-18 02:59:16
3