GitHub标星8k！VBA常用语法(1)

arr(i) = Replace(valueArr(i), ";", "")

Next i

//Split

list = “1,2,3,4”

arr = VBA.Split(list, “,”)

//获取某单元格公式

Range(“A12”).formula

//return

exit function(函数)

exit sub(事件过程)

//截取字符串

Mid(a, 2, 3) '提取第二个字符开始之后的3个字符

//获取字符串的首字符

Left(month, 1)

//获取其它sheet单元格数据（第6行第21列）

Sheet1.Cells(6, 21).value

//获取单元格背景色

Range(“A1”).Interior.ColorIndex

//设置单元格背景颜色

For Each item In Range(Range(“A1”), Range(“H10”))

If item.value = 0 Then

   item.Interior.ColorIndex = 10

ElseIf item.value = 1 Then

   item.Interior.ColorIndex = 11

End If

Next

//赋值

Dim a As range

Set a = Sheets(sheetName).range(“A1:C6”)

a.Borders.LineStyle = 1//表格线宽度

a.Font.ColorIndex = 1//颜色

a.Font.Name = “Arial”//字体

a.HorizontalAlignment = xlCenter//居中

//计算方法耗时

Dim t As Single

t = Timer

Timer - t

//do循环

Sub ClassNamer()

Dim MyClasses As New Collection    ' 建立一个集合对象（Collection）。

Dim Num    ' 计数用变量，用来对对象的个数计数。

Dim Msg As String    ' 提示信息用变量。

Dim TheName, MyObject, NameList    ' 对象信息用变体。

Do

    Dim Inst As New Class1    ' 建立 Class1 的新实例。

    Num = Num + 1    ' 把计数变量 Num 加一，然后要求输入新对象个体的名称。

    Msg = "Please enter a name for this object." & Chr(13) _

     & "Press Cancel to see names in collection."

    TheName = InputBox(Msg, "Name the Collection Items")

    Inst.InstanceName = TheName    ' 将名称送入对象实例。

    ' 若用户输入了名称，将它加入集合。

    If Inst.InstanceName <> "" Then

        ' 将命名的对象加入集合。

        MyClasses.Add item := Inst, key := CStr(Num)

    End If

    ' 清除当前的引用，为对下一个对象做准备。

    Set Inst = Nothing

Loop Until TheName = ""

For Each MyObject In MyClasses    ' 建立名称列表。

    NameList = NameList & MyObject.InstanceName & Chr(13)

Next MyObject

' 将名称列表在消息框中显示出来。

MsgBox NameList, , "Instance Names In MyClasses Collection"



For Num = 1 To MyClasses.Count    ' 从集合中删除名字。

    MyClasses.Remove 1    ' 因为每删除一个对象后，集合

            ' 会自动重排顺序，故每次迭代时只需删除第一个

Next        ' 对象即可。

End Sub

//debug输出

Debug.Print

//字符串长度

Len(str)

//switch

Select Case myVal

Case 1

Case 2

Case 3

Case Else

End Select

//获取当月最后一天

day(DateSerial(year(Date), month(Date) + 1, 0))

//代码换行

_

//判断是否是数字

IsNumeric

//退出循环

Exit For

2、 excel vba快速填充公式（也就是往下拉）

--------------------------

//excel vba快速填充公式（也就是往下拉）

Sheet1.range(“A1:K1”).AutoFill Destination:=range(“A1:K10”), Type:=xlFillDefault

//解决乱码问题*

//（注意：使用[ADODB.Stream]，需要在[VBA代码界面 -> 工具 -> 引用]中添加[microsoft activex data object 2.5 library]以上版本）

Dim ts As ADODB.Stream

Set ts = New ADODB.Stream

ts.Type = adTypeText

ts.Charset = “UTF-8”

'改行code根据文件而定

ts.LineSeparator = adLF

ts.Open

'文件装载

ts.LoadFromFile (filePath)

Do While Not (ts.EOS)

'行读取：ReadText(adReadLine)

'全文件读取：ReadText(adReadAll)

lineBuffer = ts.ReadText(adReadLine)

…

Loop

3、 自定义MsgBox

------------

//自定义MsgBox

//空 ->默认一个确认按钮

//1 ->一个确认，一个取消

//2 ->表示三个按钮（中止、再试行、忽略）

/*msgBoxRet返回值含义如下：

1 OK

2 Cancel

3 Abort

4 Retry

5 Ignore

6 Yes

7 No

*/

msgBoxRet = (MsgBox(“I am the most beautiful”, 2))

4、文件更改名字

--------

//文件更改名字

Sub renameFile()

Dim f1 As String

Dim f2 As String

On Error Resume Next

f1 = “C:\Users\data\a.html”

f2 = “C:\Users\data\b.html”

Name f1 As f2

End Sub

5、form窗口程序批量更改文本框 

------------------

//form窗口程序批量更改文本框

Private Sub WideToNarrow()

Dim item



For Each item In UserForm1.Controls

    If TypeName(item) = "TextBox" Then

Spring全套教学资料

Spring是Java程序员的《葵花宝典》，其中提供的各种大招，能简化我们的开发，大大提升开发效率！目前99%的公司使用了Spring，大家可以去各大招聘网站看一下，Spring算是必备技能，所以一定要掌握。

资料领取方式：点击这里前往蓝色传送门

目录：

部分内容：

Spring源码

• 第一部分 Spring 概述
• 第二部分 核心思想
• 第三部分 手写实现 IoC 和 AOP（自定义Spring框架）
• 第四部分 Spring IOC 高级应用
  基础特性
  高级特性
• 第五部分 Spring IOC源码深度剖析
  设计优雅
  设计模式
  注意：原则、方法和技巧
• 第六部分 Spring AOP 应用
  声明事务控制
• 第七部分 Spring AOP源码深度剖析
  必要的笔记、必要的图、通俗易懂的语言化解知识难点

脚手框架：SpringBoot技术

它的目标是简化Spring应用和服务的创建、开发与部署，简化了配置文件，使用嵌入式web服务器，含有诸多开箱即用的微服务功能，可以和spring cloud联合部署。

Spring Boot的核心思想是约定大于配置，应用只需要很少的配置即可，简化了应用开发模式。

• SpringBoot入门
• 配置文件
• 日志
• Web开发
• Docker
• SpringBoot与数据访问
• 启动配置原理
• 自定义starter

微服务架构：Spring Cloud Alibaba

同 Spring Cloud 一样，Spring Cloud Alibaba 也是一套微服务解决方案，包含开发分布式应用微服务的必需组件，方便开发者通过 Spring Cloud 编程模型轻松使用这些组件来开发分布式应用服务。

• 微服务架构介绍
• Spring Cloud Alibaba介绍
• 微服务环境搭建
• 服务治理
• 服务容错
• 服务网关
• 链路追踪
• ZipKin集成及数据持久化
• 消息驱动
• 短信服务
• Nacos Confifig—服务配置
• Seata—分布式事务
• Dubbo—rpc通信

Spring MVC

目录：

部分内容：

错

• 服务网关
• 链路追踪
• ZipKin集成及数据持久化
• 消息驱动
• 短信服务
• Nacos Confifig—服务配置
• Seata—分布式事务
• Dubbo—rpc通信

[外链图片转存中…(img-QE9QKL8w-1628131248687)]

[外链图片转存中…(img-kV5YInXF-1628131248688)]

Spring MVC

目录：

[外链图片转存中…(img-SpUsNGYQ-1628131248689)]

[外链图片转存中…(img-dyDZ2zLU-1628131248690)]

[外链图片转存中…(img-u7DAkP7v-1628131248691)]

部分内容：

[外链图片转存中…(img-jEbj3nmv-1628131248691)]

[外链图片转存中…(img-RvE6ektc-1628131248692)]