01 2022 档案
摘要:取消visual studio Analydzer 复选框
阅读全文
摘要:Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A1048576").End
阅读全文
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) La
阅读全文
摘要:Flag := (i>=1) and (i<100) //将逻辑表达式的结果赋值为1个变量 Hue1:=[Blue , red, Green] //将1个集合赋给1个变量 i:=Sqr(J) - I*K; //将1个表达式的结果赋给1个变量 Shorting(MyChar) :=122; //给类型
阅读全文
摘要:delphi 是object Pascal 的一种语言 真正的程序员用C++,聪明的程序员用delphi 但我只会java, C# 皮毛欸 Delphi是一个集成开发环境(IDE),使用的是由传统Pascal语言发展而来的Object Pascal语言。它在本质上是一个代码编辑器而不是一种语言,但是
阅读全文
摘要:Sub data_() Dim i As Single For i = 1 To Worksheets.Count Cells(i, 2) = Worksheets(i).Cells(6, 2) Next End Sub循环遍历数据
阅读全文
摘要:可以看到需求是工作簿合内容并到一个工作簿 新建一个工作簿,然后右键查看代码Alt+F11 Sub hebing() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveShee
阅读全文