原创 VB.NET移動控件或者窗體思路

控件或窗體移動後坐標=控件實時座標+內部鼠標座標-移動前鼠標座標 Dim pointStart As Point = Nothing Private Sub 控件名(窗體名)_MouseDown(ByVal sender As Obj

2018-09-13 06:35:18 4

原创 VBA工作簿內合併所有工作表

Sub MergeSheets() '工作簿內合併所有工作表 Dim sheetsCount As Long '定義 工作簿內工作表數量 賦值爲 sheetCount 數據類型爲 Long(長整型) Dim rowCou

2018-09-07 18:30:31

原创 VBA自動拆分地址

Function SplitAddress(split_value As String, address_array As Range, type_num As Integer) Dim startCol As Long '起始

2018-08-25 04:52:12 6

原创 <Python 2.7>爬蟲獲取天氣歷史按月份存爲txt文件

#\usr\bin\python #-*coding:UTF-8-*- def ModSearchWeather(City,Date): #定義一個對象:獲取天氣歷史信息 import re,requests,sys #引用re,

2018-08-25 04:52:12

原创 VBA多級聯動更新代碼

Option Explicit Sub updateList() Application.ScreenUpdating = False '取消屏幕閃爍 Dim i As Integer '循環index Dim

2018-08-25 04:52:12

原创 <ExcelVBA>多行內容合併到同一個單元格

Sub Test()     With Sheet1         '準備階段         .Range("C:C").Clear  '清除C列中數據即格式         '定義數據類型         Dim k() As

2018-08-25 04:52:11 9

原创 VBTEST

Sub InputText() On Error Resume Next Dim FileAddress As String Dim FileNames As String

2018-08-25 04:52:10 1

原创 [Python2.7]爬58同城職位信息存入txt文件中

#!/usr/bin/python #-*-coding:UTF-8-*- def SearchJob(City,Jobs): import urllib,re,os,time,sys #搜索主網址 UrlMai

2018-08-25 04:52:10

原创 <VB.NET>自定義控件傳遞事件

Public Class Form1     WithEvents TextBoxPluss As TextBox 'WithEvent一個TextBox控件，因爲自定義控件中需要傳遞的事件爲TextBox的事件     Private

2018-08-25 04:52:09 3

原创 <VB.NET>自定義類創建屬性

一般屬性定義： Public m屬性名 As String = "" Public Property 屬性名() As String Get Return m屬性名 End Get Set(ByVal

2018-08-25 04:52:07