最新Java面试题及答案，VBA常用语法_vba面试，含小米、腾讯、阿里

最后

小编精心为大家准备了一手资料

以上Java高级架构资料、源码、笔记、视频。Dubbo、Redis、设计模式、Netty、zookeeper、Spring cloud、分布式、高并发等架构技术

【附】架构书籍

1. BAT面试的20道高频数据库问题解析
2. Java面试宝典
3. Netty实战
4. 算法

BATJ面试要点及Java架构师进阶资料

本文已被CODING开源项目：【一线大厂Java面试题解析+核心总结学习笔记+最新讲解视频+实战项目源码】收录

需要这份系统化的资料的朋友，可以点击这里获取

Function deleteArrayByIndex(list) As String

Dim item

For Each item In list

    MsgBox item

Next item

End Function

//获取当前sheet的名称和位置

sheetIndex = ActiveSheet.index

sheetName = ActiveSheet.Name

//获取最后一行

Dim sheetIndex As Integer

lastRow = Sheets(sheetName).UsedRange.Rows.Count

//删除多行

Rows(“7:12”).Delete

Range(“A12:Q12”).Clear

Range(“A12:Q12”).ClearContents

//插入一行

Sheets(sheetName).Rows(10).Insert

//为某单元格赋值

Range(“B” & 1).Select

Selection.formula = “D”

//contains,包含

If InStr(str, “zhangsan”) <> 0 Then

Else

End If

//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))

//代码换行

最近我根据上述的技术体系图搜集了几十套腾讯、头条、阿里、美团等公司21年的面试题，把技术点整理成了视频（实际上比预期多花了不少精力），包含知识脉络 + 诸多细节，由于篇幅有限，这里以图片的形式给大家展示一部分

本文已被CODING开源项目：【一线大厂Java面试题解析+核心总结学习笔记+最新讲解视频+实战项目源码】收录

需要这份系统化的资料的朋友，可以点击这里获取

，包含知识脉络 + 诸多细节，由于篇幅有限，这里以图片的形式给大家展示一部分

[外链图片转存中…(img-VRa6warG-1715641611580)]

本文已被CODING开源项目：【一线大厂Java面试题解析+核心总结学习笔记+最新讲解视频+实战项目源码】收录

需要这份系统化的资料的朋友，可以点击这里获取