装运箱VBAVisual Basic for Applications或VBA是简单而强大的编程语言。创建自动化MS Office套件中的常规任务的宏是有价值的。VBA包含一系列函数来操纵字符串和数字。这些对于创建简单的和复杂程序非常有用,可以重用。字符串只是一系列字符。CSTR()函数是VBA的一个非常有价值的功能。它允许您将任何类型的表达式转换为字符串格式。在这个中间级别教程中,我们通过CSTR VBA函数走。我们假设您熟悉Excel和VBA的基础知识。但是,如果您想刷新您对MS Excel VBA的知识,我们建议您通过这个入门课程Excel VBA宏

字符串是什么?

字符串基本上是文本。它们被存储并视为字符阵列。您可以对字符串执行多个操作,例如计算字符串长度,反转字符串,比较字符串,字符串连接,在字符串中找到和替换字符。大多数编程语言都具有有用和必要的字符串函数。如果您想了解有关字符串的更多信息,您应该占用此基本C编程课程。由于C是最流行的编程语言之一,也是许多较新的编程语言的先驱,所以在大多数C教程和课程中都详细解释了字符串。

什么是Cstr()函数?

函数的作用是:将表达式转换为字符串。其语法如下:

cstr(表达)

下面的例子演示了CStr()函数是如何工作的:

子的例子()
昏暗的日期为日期
DateHired = # 1/4/2014 #
ActiveCell =装运箱(DateHired)
终止子

函数将接受任何数据类型的表达式。这里,它将日期值转换为字符串值。

事实上,某些程序员不会声明它们的变量,直到在代码流程期间需要它们。它是一个很好的编程实践,在程序开头声明所有程序变量。

例1:在数组中搜索字符串的程序

{"green", "blue", "yellow"}
Dim search_str As String = "blue"
昏暗指数如长
对于index = LBound(Str_Array)到UBound(Str_Array)
如果(String.Compare (Str_Array(指数),searchItem) = 0)
MsgBox(“找到:”+ search_str +“在索引:”+ Cstr(索引))
下一个

在此程序中,我们声明一个变量为数据类型字符串。LBOUND()函数确定阵列的开头,而Ubound()函数确定数组的末尾。我们从头到尾循环遍历数组。在每次迭代中,我们将数组元素与搜索项进行比较。如果它评估为TRUE,则消息框将显示该项目以及数组中的索引值。

您可以在这个优秀的VBA课程中查找更多VBA宏编程示例

示例2:要在数组中搜索整数的程序

int array () As Integer = {10,28,12}
Dim Int_Item as Integer = 12
昏暗指数如长
For index = LBound(Int_Array) To UBound(Int_Array)
If (index = Int_Item) Then
MsgBox(“找到:”+ CSTR(INT_ITEM)+“AT索引:”+ CSTR(索引))
下一个

上面的程序在数组中搜索一个Integer。如果成功,它将使用CStr()将整数值作为字符串返回。

示例3程序计数字符串中的元音

昏暗的New_letters(RichTextBox1.Text.Length)作为Char
New_letters = RichTextBox1.Text.ToUpper.ToCharArray ()
点心= 0
For Each letter In New_letters
选择案例的信
案例“a”,“e”,“我”,“o”,“u”
count + = 1
结束选择
下一个
label1.text =“元音计数:”+ Cstr(count)

在这个程序中,函数创建了一个由字符名字母组成的数组。然后它从Richtextbox复制文本并将其转换为大写。在For循环中,我们检查每个字母是否为元音。如果它们是,那么我们将count变量增加1。最后,计数变量将包含元音出现的次数。

例4:程序转换十进制数到二进制数

子Conv2bin()
昏暗的New_str作为字符串
Dim int1 As Long
Int1 =应用程序。输入框(提示:="输入你想转换的数字,然后点击确定",_
Title:="转换为二进制",Type:=1)
New_str =装运箱(int1)
b = CBin (int1)
msgbox“您输入了”&new_str&“。”&chr(13)&chr(13)_
& "它的二进制值是" & Chr(13) & b
终止子
功能cbin(number1只有)作为字符串
暗淡的NewTemp作为变量
NewTemp = 1
直到NewTemp > Number1
NewTemp = NewTemp * 2
循环
直到NewTemp < 1
如果Number1 >= NewTemp那么
cbin = cbin +“1”
Number1 = Number1 - NewTemp
别的
CBIN = CBIN +“0”
万一
NewTemp = NewTemp / 2
循环
CBin =装运箱(Val (CBin))
结束函数

在此程序中,我们接受整数值。我们创建一个函数cbin()并将十进制数作为参数传递。该函数将十进制数转换为二进制数。最后,我们显示了二进制数。我们将newtemp初始化为1.然后检查它是否大于传递的整数参数。如果不在循环中,我们将其乘以2,直到它变得大于cbin中传递的小数(0函数。然后,我们使用newtemp变量来将二进制数字“1”和“0”附加到CBIN。我们通过CBIN字符串到VBA val函数,返回字符串中找到的数字。最后,我们得到了十进制数的二进制等同物。

如果您想了解有关VBA阵列的更多信息,我们建议您通过这个专门的VBA课程。

例5:程序删除重复的数组行

子remove_Duplicates ()
暗淡纽阵列(5)作为字符串
昏暗的myCol收集
只要
设置myCol =新集合
newArray (0) = " bbb "
newArray (1) = " bbb "
newArray (2) = " ccc "
NewArray(3)=“DDD”
NewArray(4)=“DDD”
在错误恢复下一个
对于i = lbound(newArray)到Ubound(NewArray)
myCol。添加0,装运箱(strArray(我))
如果犯错,那么
纽阵列(i)=空
Dup = Dup + 1
err.clear.
ElseIf dup然后
newArray(i - dup) = newArray(i)
纽阵列(i)=空
万一
下一个
对于i = lbound(newArray)到Ubound(NewArray)
debug.print newarray(i)
下一个

首先我们声明变量。然后将重复的数据添加到数组中。接下来,我们确定数组的开始和结束。循环遍历数组中的每个元素以删除任何重复项。

与任何其他主要编程语言一样,字符串函数是VBA的重要组成部分。浏览这些示例并创建您自己的惟一代码。熟能生巧,掌握编程语言也是如此。希望这个关于VBA CStr的基本教程是有用的和有益的。为了提高你在VBA程序中使用字符串的知识,我们建议你参加这个终极VBA课程

Excel VBA顶级课程

解锁Excel VBA和Excel宏
莱拉Gharani
4.7 (26898)
畅销书
Microsoft Excel Macros和Excel VBA硕士
凯尔·佩
4.5 (11703)
畅销书
Excel宏和VBA初学者
Bluelime学习解决方案
4.3 (19)
热&新
使用Excel VBA完成Web自动化
丹尼尔强
4.8 (738)
畅销书
Excel VBA宏:超消歧Excel VBA编程
格兰特赌博
4.4 (989)
畅销书
最终Excel VBA
马克Talbert
4.7 (3208)
Excel VBA编程-完整指南
Boris Paskhaver.
4.7 (3,738)
Microsoft Excel VBA简介
凯尔·佩
4.6 (1,161)
Excel宏和Excel VBA编程初学者
andreas exadaktylos.
4.5 (856)
收视率最高
Excel与Microsoft Excel VBA用户表单
凯尔·佩
4.5 (1,187)

更多Excel VBA课程

Excel VBA学生还学习

让你的团队。领导行业。

通过Udemy为Business获取组织的在线课程和数字学习工具库的订阅。

请求演示