VBA字符串数组赋值2动态数组

【2】VBA字符串数组赋值动态数组  

6/Office 365函数新世界—动态数组  https://www.toutiao.com/i6899619452564947460/?timestamp=1606452847&app=news_article_lite&group_id=6899619452564947460&use_new_style=1&req_id=202011271254060102040260313C1E4397

5/VBA中动态数组的定义及创建/今日头条极速版

4）excel vba真正的动态数组实例-按需定义数组大小

https://blog.csdn.net/lijil168/article/details/12201241

3）Excel 二维动态数组怎么定义

https://zhidao.baidu.com/question/1770277973840189660.html

2）Excel ba 中的动态数组 怎么定义

https://zhidao.baidu.com/question/205166834564921565.html

1）vb怎么定义字符串数组，怎么赋值

https://zhidao.baidu.com/question/207100427.html

定义字符串数组和负值有两种方式：

方式1：

Dim StrArray()

StrArray = Array("星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日")

方式2：

Dim StrArray(6) As String

StrArray(0) = "星期一"

StrArray(1) = "星期二"

StrArray(2) = "星期三"

StrArray(3) = "星期四"

StrArray(4) = "星期五"

StrArray(5) = "星期六"

StrArray(6) = "星期日"

调用数组值

Dim Str As String

Str = StrArray(2) '取数组第三个值

Str = StrArray(6) '取数组最后一个值

Str = StrArray(0) '取数组第一个值

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

定义以及赋值一般写在程序的前面。如果是公共数组，放在代码最前面；如果是子程序数组，则放在子程序定义的后一行，比如：

'公用数组

Dim StrArray0(6) As String

Private Sub Command2_Click()

'子程序数组定义赋值方式1

Dim StrArray()

Dim Str As String

StrArray = Array("星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日")

Str = StrArray(2) '子程序数组取值

Str = StrArray0(2) '公共数组取值

End Sub

Private Sub Command3_Click()

'子程序数组定义赋值方式2

Dim StrArray(6) As String

Dim Str As String

StrArray(0) = "星期一"

StrArray(1) = "星期二"

StrArray(2) = "星期三"

StrArray(3) = "星期四"

StrArray(4) = "星期五"

StrArray(5) = "星期六"

StrArray(6) = "星期日"

Str = StrArray(2) '子程序数组取值

Str = StrArray0(2) '公共数组取值

End Sub

Private Sub Form_Load()

'公用数字赋初始值

StrArray0(0) = "星期一"

StrArray0(1) = "星期二"

StrArray0(2) = "星期三"

StrArray0(3) = "星期四"

StrArray0(4) = "星期五"

StrArray0(5) = "星期六"

StrArray0(6) = "星期日"

End Sub

----------

BBS：dim arr() as string

arr(i) = "abcd"

调用 比如 想获得数组的上标 t = ubound(arr)

写在你的过程里 比如：

sub test()

dim arr() as string

arr(0) = "abcd" '数组第一个为 abcd

arr(ubound(arr))="dfasudfhuashuiof" '数组最后一个

end sub

还有这个是定义静态的数组

-----------

2）VB 如何定义字符串数组，动态数组

https://zhidao.baidu.com/question/62441285.html?qbl=relate_question_1&word=vb%D4%F5%C3%B4%B6%A8%D2%E5%D7%D6%B7%FB%B4%AE%CA%FD%D7%E9%2C%D4%F5%C3%B4%B8%B3%D6%B5

　如何定义一个String类型的动态数组？可以用dim A() as string，之后在程序根据需要redim A(100)重新定义就可以。

　注意:使用Preserve参数时数组下界不可以更改,上界可以更改，比如：

Dim tStrings() As String

ReDim tStrings(0 To 100)

ReDim Preserve tStrings(0 To 49)　'Preserve参数保留数组原有内容。但如缩小了数组的上界，则后面的元素会丢失。这时49到100的以后的元素就丢失了。