java制作微信小程序教程，VBA常用语法

//for循环 + Replace

For i = 0 To UBound(arr)

arr(i) = Replace(Trim(arr(i)), “,”, “”)

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

自我介绍一下，小编13年上海交大毕业，曾经在小公司待过，也去过华为、OPPO等大厂，18年进入阿里一直到现在。

深知大多数Java工程师，想要提升技能，往往是自己摸索成长或者是报班学习，但对于培训机构动则几千的学费，着实压力不小。自己不成体系的自学效果低效又漫长，而且极易碰到天花板技术停滞不前！

因此收集整理了一份《2024年Java开发全套学习资料》，初衷也很简单，就是希望能够帮助到想自学提升又不知道该从何学起的朋友，同时减轻大家的负担。

既有适合小白学习的零基础资料，也有适合3年以上经验的小伙伴深入学习提升的进阶课程，基本涵盖了95%以上Java开发知识点，真正体系化！

由于文件比较大，这里只是将部分目录截图出来，每个节点里面都包含大厂面经、学习笔记、源码讲义、实战项目、讲解视频，并且会持续更新！

如果你觉得这些内容对你有帮助，可以扫码获取！！（备注Java获取）

文末

我将这三次阿里面试的题目全部分专题整理出来，并附带上详细的答案解析，生成了一份PDF文档

• 第一个要分享给大家的就是算法和数据结构

• 第二个就是数据库的高频知识点与性能优化

• 第三个则是并发编程（72个知识点学习）

• 最后一个是各大JAVA架构专题的面试点+解析+我的一些学习的书籍资料

还有更多的Redis、MySQL、JVM、Kafka、微服务、Spring全家桶等学习笔记这里就不一一列举出来

《互联网大厂面试真题解析、进阶开发核心学习笔记、全套讲解视频、实战项目源码讲义》点击传送门即可获取！
识点与性能优化**

[外链图片转存中…(img-cH5UTDrX-1713291209963)]

• 第三个则是并发编程（72个知识点学习）

[外链图片转存中…(img-o96b8jlR-1713291209963)]

• 最后一个是各大JAVA架构专题的面试点+解析+我的一些学习的书籍资料

[外链图片转存中…(img-EFdGB0mV-1713291209964)]

还有更多的Redis、MySQL、JVM、Kafka、微服务、Spring全家桶等学习笔记这里就不一一列举出来

《互联网大厂面试真题解析、进阶开发核心学习笔记、全套讲解视频、实战项目源码讲义》点击传送门即可获取！