原创 vba字典(dictionary)示例
option explicit sub test() dim dict,arr,i set dict = CreateObject("Scripting.Dictionary") '一組數據放到字典 a
2020-07-05 23:58:08
41
原创 vba操作工作表單元格
Sub CreateSheets() Dim i For i = 1 To 30 Step 1 Sheets.Add(after:=Sheets(Sheets.Count)).Name = "4月" &
2020-07-05 23:58:08
12
原创 vba選擇文件（正則、字典等綜合應用）
Option Explicit Sub test() Dim path, dict, item, sht, i, yjh, dir path = GetFolder() If path = "" Then E
2020-07-05 23:58:08
10
原创 vba項目實戰（類模塊、字典、集合、正則等）
class UserForm1 Option Explicit Private Sub btnBillDir_Click() Me.txtBillDir.Text = GetFolder() E
2020-07-05 23:58:08
11
原创 echarts之gauge
<!DOCTYPE html> <html lang="zh-CN"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=devic
2020-06-25 23:43:11
2
原创 vba正則拆分字符串
Option Explicit Sub test() Dim i As Long For i = 2 To Sheet1.Range("A1000000").End(xlUp).Row Sh
2020-06-15 03:20:27
1
原创 sqlserver刪除重複項
1.找出含有重複項的id 2.保留各組第一條記錄 DELETE FROM dbo.CJB WHERE OBJECT_ID IN ( SELECT t.OBJECT_ID oid FROM ( SELECT OBJ
2020-06-15 03:20:27
原创 面向對象思維拆分工資條
測試代碼 Sub Add() Dim st As New SalaryTableCalss st.Create ActiveSheet st.AddTitle End Sub Sub Delete()
2020-06-15 03:20:27
原创 Sqlserver各個表記錄數
SELECT object_name(i.id) TableName, rowCount as RowCnt FROM sysindexes i INNER JOIN sysObjects o ON (o.id = i
2020-06-15 03:20:27
原创 C#內存表數據透視表生成
using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Data; namespace GT
2020-06-15 03:20:27
原创 openxml讀取xlsx內容
var doc = new ExcelUntil().Open(filename, false); var shtContentDict = doc.GetSheetsContent(
2020-06-15 03:20:27
原创 vba利用自動篩選按任意列拆分成多工作表
Option Explicit Sub main() Dim colNo As Integer, sht As Worksheet, lastRow As Long, i As Long, flag As Boolean
2020-06-15 03:20:27
原创 c#正則提取括號中的字符
using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Text.RegularExpress
2020-06-15 03:20:17
原创 vba隱藏不要的行
如，當前單元格的內容是 5,6,7，則僅顯示5，6，7行，其餘行隱藏 Sub HIDE() Dim v As String, lines, i, firstLine, isFirstLine As Boolean
2020-06-15 03:20:17