小鸿叔的博客_CSDN博客-VB,C#,OFFICE-EXCEL领域博主

原创 C#：程序只打开一次，再打开自动激活之前打开的

C#：程序只打开一次，再打开自动激活之前打开的。

2022-10-23 21:10:47 132 1

原创 C#：EXCEL退出会，进程/线程残留问题

应该是微软的一个BUG吧，操作完EXCEL并退出后，仍然会有一个EXCEL的进程留存。用API，将进程杀掉。

2022-09-07 11:24:14 511

原创 EXCEL-VBA：延迟几秒不卡顿Sleep变通方法

方法是使用Sleep。然后每过百毫秒Doevents一次

2022-07-05 18:33:56 1249 1

原创 Word-VBA：打开的文档避免阅读模式

Word不知道从哪个版本开始，有个阅读模式。代码控制很简单：

2022-07-03 20:12:17 127

原创 C#：SubString 中文当两个字符处理的方法

SubString使用中，通常将中文当作1个来处理。如果需要将中文当2个字符来取值，可以用下面的方法：

2022-07-03 19:11:53 326

原创 C#：JSON数据LINQ分组(group by)求和(sum)

解析JSON数据，本例中选用的是Newtonsoft.Json（可以下载安装，本文不再赘述）using Newtonsoft.Json;using Newtonsoft.Json.Linq;string jsonText = "{\"data\":[{\"Name\":\"Rose\",\"Score\":\"66\"},{\"Name\":\"Jack\",\"Score\":\"77\"},{\"Name\":\"Jack\",\"Score\":\"88\"},{\"Name\":\

2022-02-25 18:22:48 1089

原创 Excel-VBA：UsedRange.Rows.Count取不到最后一行的行号（行标）

Sheet1.UsedRange.Rows.Count'一般是用此种方式能取到最后一行的行标，但是如果Excel表的第一行是空的，就会导致只取Used Range（使用区域）的总行数。'举个栗子，如果一个表,只有A2单元格里有内容，那上一条的返回值就是1，因为使用区域只有一行的。'取到最后一行的行标方法如下：Sheet1.UsedRange.Cells(sht3.UsedRange.Rows.Count,1).row'Cells(使用区域的最后一行,第一列).行标...

2021-11-06 00:02:01 7627

原创 EXCEL-VBA:单元格粘贴成数值（2种方法）

Copy + Paste大法，其实自己个录个宏就行的Range("C18").SelectSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False代码自己手工改改，如下：Sheet1.Range("C18").CopySheet1.Range("C18").PasteSpecial Paste:=xlPaste

2021-11-05 21:27:32 11925

原创 SQL SERVER：数字循环

--数字循环declare @i as intset @i=1While @i<=10 Begin print @i set @i=@i+1End

2021-11-03 18:56:37 160

原创 MSSQL T-SQL：字符串按分隔符循环处理

想了半天不知道，怎么描述合适，反正就是字符串，根据分隔符，逐一输出，可以对应SQL SERVER中没有数组的一些问题。Declare @str as varchar(1000) --被分隔的字符串Declare @split_str as varchar(2) --分隔符Set @str='0,12,345,678'Set @split_str=','While (CHARINDEX(@split_str,@str)<>0)Begin Print(SUBSTRING

2021-11-03 18:53:34 400

原创 EXCEL-VBA：定位滚动到图表位置

Application.GoTo Reference:=SheetData.Range("A" & SheetData.ChartObjects(1).TopLeftCell.Column), Scroll:=True Application.GoTo Reference:=sheetdata.Range("A1"), Scroll:=True With ActiveSheet.Shapes(1).TopLeftCell R = .Row ...

2021-10-20 22:29:08 557

原创 Selenium处理弹出对话框的方法

//以C#的代码为例，Python也是差不多的。//IE //获取Alert IAlert alert=IEdriver.SwitchTo().Alert();//拿到提示框的信息alert.Text; //点击是按钮alert.Accept();//点击否按钮alert.Dismiss();//有时的框还没有出来的情况，考虑这种情况，需要等待private IAlert WaitForAlert(){ try { return IEdriver.Switch.

2021-07-30 16:52:45 344

原创 C#：EXCEL Quit后，EXCEL.EXE进程未退出的情况

using EXCEL=Microsoft.Office.Interop.Excel;private void Form1_Load(object sender, EventArgs e){ EXCEL.Application app = new EXCEL.Application(); EXCEL.Workbooks wbs = app.Workbooks; EXCEL.Workbook wb = wbs.Add(); wb.Close(false); app.Quit(); Sys.

2021-07-22 13:10:54 613

原创批处理BAT：隐藏执行批处理

@echo off if "%1"=="h" goto begin start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit :beginrem 这里写正式的批处理代码，注意不要用pause之类的，否则一直关不掉的说明：mshta 是Microsoft HTML Application，可以用于执行.HTA文件，也可以直接执行vbs,js代码.

2021-07-15 12:09:15 1243

原创 CAD：旋转视图的方法（利用UCS和PLAN命令旋转视图）

利用UCS和PLAN命令旋转视图输入命令：UCS 【回车】输入命令：Z 【回车】输入角度：30【回车】（30只是举例，也可以是负数）此时坐标系施转完成了，再将整个模型与坐标系一致输入命令：PLAN【回车】输入命令：C【回车】...

2021-05-06 17:26:06 10488

原创 Python：等待用户输入(input)，带有超时功能（Windows可用）

from threading import Timerimport osinput_msg = "啥也没输入"def work(msg=input_msg): print("\n你输入信息为：", msg) os._exit(0) # 执行完成，退出程序def input_with_timeout(timeout=5): t = Timer(timeout, work) t.start() msg = input("请输入信息：") i.

2021-03-17 12:49:13 8057 5

原创 C#：通过URL地址获取HTML内容

//方法1 WebClientpublic static string GetHTMLByURL(string URL){ try { string pageHtml = ""; WebClient MyWebClient = new WebClient(); MyWebClient.Credentials = CredentialCache.DefaultCredentials;//获取或设置用于向Internet资源的请求进行身份验证的网络凭据 Byte[] pageData .

2021-02-27 13:19:53 1511

原创 C#：比较数组中的内容是否一致

string[] a = new string[] { "AAA", "B" };string[] b = new string[] { "AAA", "B" };if (Enumerable.SequenceEqual(a,b)){ //内容一样}

2021-01-06 21:32:04 687

原创 C#：比较两个数组内容是否一致

string[] a = new string[] { "AAA", "B" };string[] b = new string[] { "AAA", "B" };if (Enumerable.SequenceEqual(a,b)){ //内容一样}

2020-12-21 21:09:32 1135

原创 C#：程序带参数启动

//每个C#的程序都会有一个Program.cs，这个是程序的入口，是自动生成的，正常情况不用动//自动生成的源码[STAThread]static void Main(){ Application.EnableVisualStyles(); Application.SetCompatibleTextRenderingDefault(false); UserClass.AppStartPath = Application.StartupPath; Application.Run(new .

2020-12-08 21:13:37 1239

原创 EXCEL-VBA：选中单元格后，聚光灯效果

1、选择适用的单元格范围；2、新建条件格式-->使用公式确定要设置格式的单元格：输入公式 =OR(CELL("row")=ROW(),CELL("col")=COLUMN())3、选择一种背景色4、Alt+F11，代码如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Application.ScreenUpdating =...

2020-11-21 19:04:41 1185

原创 C#：获取网络上的日期、时间

public static string GetNetDateTime(){ WebRequest request = null; WebResponse response = null; WebHeaderCollection headerCollection = null; string datetime = string.Empty; try.

2020-11-21 18:59:08 874 1

原创 VBA-Excel：Excel导出Shape成图片

Sheet1.Shapes("PIC").CopyPicture ‘对图形命名为PIC，也可以用序号调用Shapes(1) With Sheet1.ChartObjects.Add(0, 0, Sheet1.Shapes("PIC").Width, Sheet1.Shapes("PIC").Height).Chart .Paste .Export ThisWorkbook.Path & "\a.png" .Parent.Delete...

2020-10-30 18:51:52 1984

原创 EXCEL-VBA：图形保存为图片

SheetChat.ChartObjects(1).chart.Export "c:\a.gif"SheetChat.ChartObjects("Chart1").chart.Export "c:\a.jpg"

2020-10-10 21:25:08 2117

原创 Word-VBA：替换文字

'工具-引用Microsoft Word 16.0 Object Library (16会因为机器安装的版本不一)WordApp.Selection.Find.ClearFormattingWordDoc.Range.Find.Execute findtext:="被替换掉啥", ReplaceWith:="替换成啥", MatchWildcards:=True, Forward:=True, Replace:=wdReplaceAll, Wrap:=wdFindContinue如果不引用，.

2020-09-09 12:11:13 4184

原创 Word-VBA：删除选择区域的项目符号

Selection.Range.ListFormat.RemoveNumbers

2020-09-06 14:41:48 468

原创 VBA-EXCEL：控制WORD指定位置，插入图片并调整在大小，高低，环绕

Dim WordApp As ObjectSet WordApp = CreateObject("Word.Application")WordApp.Visible = TrueDim WordDoc As ObjectSet WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\TEST.docx")PicPath="图片地址"WordApp.ActiveDocument.Bookmarks("BM1_1").Range.Se.

2020-08-09 20:39:59 6177 4

原创 C#：DataGridView不自动生成列

DataGridView1.AutoGenerateColumns = false;

2020-06-24 21:54:54 601

原创 EXCEL-VBA：读取UTF-8格式的文本文件

Function ReadUTF8File(ByVal FileName As String) As String With CreateObject("ADODB.Stream") .Type = 2 '读取 .Mode = 3 '读写模式 .Open .LoadFromFile FileName .Charset = "UTF-8" '编码格式 .Position = 2 .

2020-06-10 22:38:53 2911

原创 Excel-VBA：根据正则表达式提取文本（字符串、内容）

'测试：将“abc@@eee”中的@@提取出来Sub test() MsgBox GetValueByRegex("abc@@eee", "abc(.*?)eee")End SubFunction GetValueByRegex(ByVal OrgStr As String, ByVal PatternStr As String) Set re = CreateObjec...

2020-04-13 22:56:03 5806

原创 Javascript：比较两个日期大小

2020-04-13 22:52:39 167

原创 C#：Excel条件格式－公式

Worksheet sheet = Application.ActiveSheet;Range rng = sheet.Range[sheet.Cells[1, 1], sheet.Cells[100, 100]];FC_SpotLight = rng.FormatConditions.Add( XlFormatConditionType.xlExpression, XlFormatC...

2020-04-08 21:38:29 421

原创 c#：Excel-VSTO开发：关联Excel事件

一、新建一个VSTO项目二、添加新项，Office/SharePoint中“功能区(可视化设计器)“三、添加一个ToggleButton下面的代码是：当按照按下去后，可以自动绑定Excel中的SheetSelectionChange事件，在选中单元格中写入时间；当按钮按回来后取消绑定事件。 private void tbtn_Click(object sender, Ribbon...

2020-04-08 21:36:50 1501

原创 Excel-VBA：列号与列名（字母）间的互换

'列号转字母（列名）Function Num2Name(ByVal ColumnNum As Long) As String On Error Resume Next Num2Name = "" '超出范围返回空，如调用Num2Name(100000) Num2Name = Replace(Cells(1, ColumnNum).Address(0, 0), "1", ...

2020-03-28 21:42:47 968

原创 EXCEL-VBA：打开word文件转换为PDF保存

Sub a() Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = New Word.Application Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\HAHA1.docx"...

2020-02-27 21:34:37 3581 1

原创 EXCEL-VBA函数：农历转公历，格式YYYY-MM-DD

VBA调用：MsgBox Lunar2Gong("1981-07-27")公式调用：Lunar2Gong("1981-07-27")Public Function Lunar2Gong(Optional Lunar As Date) Dim LunarYear, LunarMonth, LunarDay Dim NongliData(100) '农历数据 ...

2020-02-27 21:30:04 2282 2

原创 EXCEL-VBA函数：公历转农历，返回格式YYYY-MM-DD

VBA调用：MsgBox Gong2Lunar("2020-02-27")公式调用＝Gong2Lunar("2020-02-27")Public Function Gong2Lunar(Optional Gong As Date) As String Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang...

2020-02-27 21:26:29 3164

原创 EXCEL排名一样大的不重复

A1到A4中有要排序的数字，在B1中输入如下第1个公式，然后下拉=RANK(A1,$A$1:$A$4)+COUNTIF(A1:A$4,A1)-1=RANK(A2,$A$1:$A$4)+COUNTIF(A2:A$4,A2)-1=RANK(A3,$A$1:$A$4)+COUNTIF(A3:A$4,A3)-1=RANK(A4,$A$1:$A$4)+COUNTIF(A4:A$4,A4)-1...

2020-02-13 13:11:20 5507

原创 Python：字典转元组

dict = {"Name": "JYH", "Age": 18}print(dict)print(tuple(dict))print(tuple(dict.values()))# 输出：# {'Name': 'JYH', 'Age': 18}# ('Name', 'Age')# ('JYH', 18)

2020-02-13 12:55:12 7392

原创 Python：打包后获取EXE文件所在目录

import sysimport osprint(os.path.dirname(os.path.realpath(sys.executable)))print(os.path.dirname(os.path.realpath(sys.argv[0])))

2020-02-13 12:48:52 3230

VBExplorer（VB反编译工具，详看软件介绍）

VBExplorer 前身为VBEditor，本程序是一个反编译VB程序的应用程序，具有以下特性： 1、目前已可以解析VB自身所有控件的属性，并进行编辑(包括字体的修改，背景颜色的修改，图片的保存和替换等)和导出(包括工程文件和图片文件); 2、可以对P-Code编译的程序进行代码解析，此功能正在不断完善； 3、搜索函数使用的Unicode字符串，并进行编辑。

2008-04-30