Class06. 数组
定义
下面是几种常见定义数组的方法。 定义一个一维数组,数据类型为Variant,长度从0到5,实际控件有六个,长度为5
Dim arr(5) as String定义一个一维数组,数据类型为Variant,长度从1到5&…
Sub 百度搜索()
Excel VBA 打开百度网页输入关键字并搜索
Dim KW, Su
With CreateObject("InternetExplorer.Application")
.Navigate "http://www.baidu.com/"
.Visible True
Do Until .readyState 4
DoEvents
Loop
Set KW .document.getElementsByNam…
本实例是通过ABAP程序调用Macro合并A列相同内容的单元 Sub Macro1(a As Integer, b As Integer)macro1a start row b end lowApplication.DisplayAlerts FalseDim i As IntegerDim first As IntegerDim last As Integerfirst aFor i a To b Step 1If Worksheets("Sheet…
excel_vba可实现弹窗进行人机交互,本案例实现弹窗选择需要打开的excel文件,选择文件后打开该文件,然后弹窗提示该文件另存为路径及目录,代码如下:
Sub 打开文件对话框()
On Error Resume Next
With Application.FileD…
看到一个帖子《CSDN-求助一道推理题》,与之前《python穷举暴力破解《2018年刑侦推理题》用python穷举的推理题很类似
那么是否可以使用《ExcelVBA二维数组组合函数、组合求和》combin_arr2d函数,生成结果进行穷举呢?
Sub 穷举推理题()Dim …
在vba读取报表配置文件以后,我设想把vba的错误信息再通过vba写入到xml中。然后把vba操作excel得到的error后者bug信息
代码如下:
Dim xmldoc Dim rootNode Dim Header Dim attr Dim dbNode Dim etag_lstNode Dim tspch_lstNode Dim strOutputPath…
1.Sub 遍历工作表() For Each sh In Worksheets 数组 sh.Select Call 设置A1格式 Next End Sub -------------------------------------- 2.Sub 遍历工作表() For Each sh In Worksheets 数组 if sh.name <> 表名1 and sh.name <>表名 2 then …
vba中熟练使用字典可以帮我们解决很多问题,以下为字典的应用方法及案例:
Sub dictionary()
Dim d As New dictionary 定义字典
Dim mykey As Variant
Dim myitems
d.Add "1100000", "身份证" 字典录入key关键字和item条目
d.Add &q…
A 解密
答案提交
这是一道结果填空题,你只需要算出结果后提交即可。本题的结果为一个只包含 30 3030 个大小写英文字母的字符串,在提交答案时只填写这个字符串,填写多余的内容将无法得分。
代码
public class Main {static String s1 &q…
A 解密
本题总分:5 分
问题描述
小明设计了一种文章加密的方法:对于每个字母 c cc,将它变成某个另外的字符 Tc
。下表给出了字符变换的规则: 例如,将字符串 YeRi 加密可得字符串 EaFn。小明有一个随机的字符串&…
基本语法
GetPrivateProfileSection 是一个 Windows API 函数,用于检索指定 INI 文件中特定节的所有键值对。它可以读取INI文件中指定节所有的键值对并将结果存储在指定的缓冲区中。
以下是 GetPrivateProfileSection 函数的基本语法:
DWORD GetPriva…
标准日期转换
Function 标准日期(ByVal str$) As DateDim pat$, result$arr Array("(\d{4}).*?(\d{1,2}).*?(\d{1,2})", "(\d{4}).*?(\d{1}).*?(\d{1,2})")If Len(str) < 8 Then pat arr(1) Else pat arr(0)With CreateObject("vbscript.r…
删除第一、二、三列位空的所有行(8000)行范围以内
代码如下:
Sub Macro1()Dim hang As Integer
For hang 8000 To 1 Step -1If Sheet1.Cells(hang, 1) "" And Sheet1.Cells(hang, 2) "" And Sheet1.Cells(hang, 3) "&quo…
检查word中的字体情况
Sub ListAllFontsInDocument()Dim doc As DocumentDim rng As RangeDim char As RangeDim fontName As StringDim uniqueFonts As Collection 初始化集合用于存储唯一字体名称Set uniqueFonts New Collection 获取当前活动文档Set doc ActiveDocument …
问题描述
win10系统安装了一个Viso2019,无法安装Excel 64位版本。弹窗报错
解决办法1 SaRACmd
https://winitpro.ru/index.php/2017/12/11/office-all-versions-removal-scripts/用于完全删除任何版本的 MS Office 的脚本 使用 Microsoft SaRa 实用程序自动卸载…
VBA的分支结构中,最常用的就是IF…Then…Else结构,其语法为 (单行形式) If condition Then [statements] [Else elsestatements] 或(换行的话,需要在末尾添加END IF) If condition [statements]…
Convert.ToInt32()方法 (Convert.ToInt32() Method) Convert.ToInt32() is a predefined method in C#, which returns an integer value (in 32 bits) from given various types of values. Convert.ToInt32()是C#中的预定义方法,它从给定的各种类型的值…
文章目录1. Do while ...Loop | Do Until ... Loop2.Do ...Loop while | Do while 条件...Loop3. 变体类型的初始值Empty/IsEmpty4.对象变量Nothing/ Is Nothing5. Null/IsNull6. 函数传递IsMissing()7. 总结 变量的默认初始值;1. Do while …Loop | Do Until … Loop Do while…
以下代码实现高考倒计时:
Sub 高考倒计时()
高考日期 CDate("06,07," & Year(Date))
If Date > 高考日期 Then高考日期 CDate("06-07-" & Year(Date) 1)
End If
年月日 Year(Date) & "年" & Month(Date) &am…
ATL development in Chart in Excel 利 用Excel提供的类型库, 对Excel文档进行操作, 图表的开发是一项痛苦的工作, 一个图表是由多个series(系列)组成, 每个系列可以赋值不同的公式(formular). 本文对系列上显示的标记文本和背景的颜色改变作一点探讨, 由于是基于COM组件的Acti…
这个是针对逻辑分析仪采集的数据后倒入CSV文件后的数据进行处理
记录一下VBA提取位数据的方式
下面的程序提取了BIT0-BIT15中的bit11,bit6 和 bit5
Sub subtohex()Dim i As Long转化hex数据For i 2 To 50000If Sheet1.Cells(i, 2) <> "" ThenSh…
Interior 对象 代表一个对象的内部 针对interior对象,我们用得最多的是它的颜色,下面就来讨论一下。 1.ColorIndex 索引颜色值 Sub 索引颜色值()For i 1 To 56Cells(i, 1).Interior.ColorIndex iCells(i, 2) iNext iFor i 1 To 56Cells(i, 3).Interi…
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long) Public Declare PtrSafe Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal…
转自:http://blog.163.com/yysfire126/blog/static/1831747201181852059467/ Vim 能成为一款优秀的编辑器,是离不开各种功能的插件的。默认情况下,Vim 的插件都是散落安装在 $VIM/vimfiles/(~/.vim/ on Linux) 目录下。然而&#…
import java.util.Scanner; public class Test { public static void main(String[] args){ System.out.println(“请输入一个三位数”); Scanner sc new Scanner(System.in); int num sc.nextInt(); int ge num % 10; int shi num / 10 % 10; int bai num /100 ; System.…
当我们有一张表里面有很多sheet 具有相同的表结构,如果需要汇总到一张表中,那么我们可以借助VBA 去实现汇总自动化
Sub 复制所有工作表内容()Dim ws As WorksheetDim targetSheet As WorksheetDim lastRow As Long 设置目标表格,即要将所有…
Private Function isBlankLine(s1 As String) As Boolean ‘判断是否为空白行 ‘9 TAB 32 空格 13 换行 l1 Len(s1)
For i 1 To l1
ch Asc(Mid(s1, i, 1))If (ch <> 9 And ch <> 32 And ch <> 13) ThenisBlankLine FalseGoTo exit1End If
Next iisBla…
工作中遇到按月份批量导出EXCEL工作表任务,网上找了VBA代码,可以提高效率
VBA分拆SHEET
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.S…