blocks|key|222196|text|CStr(45)就是您所需要的(转换字符串函数)|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|222197|entityMap^0|0|8|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

<code>CStr(45)</code> is all you need (the Convert String function)

blocks|key|2869046|text|尝试使用CStr()函数|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2869047|Dim+myVal+as+String;
Dim+myNum+as+Integer;

myVal+=+"My+number+is:"
myVal+=+myVal+&+CStr(myNum);|code-block|syntax|javascript|2869048|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Try the CStr() function

<pre><code>Dim myVal as String;
Dim myNum as Integer;

myVal = "My number is:"
myVal = myVal &amp; CStr(myNum);
</code></pre>

blocks|key|2869103|text|大多数情况下，您不需要“转换”；VBA将为您执行安全的隐式类型转换，而无需使用像CStr这样的转换器。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2869104|下面的代码工作正常，没有任何问题，因为变量是String类型，隐式类型转换是自动完成的！|BOLD|2869105|Dim+myVal+As+String
Dim+myNum+As+Integer

myVal+=+"My+number+is:+"
myVal+=+myVal+&+myNum|code-block|syntax|javascript|2869106|结果：|2869107|2869108|“我的号码是:+0”|blockquote|2869109|2869110|2869111|你甚至不需要那么花哨，这也行得通：|2869112|Dim+myString+as+String
myString+=+77|2869113|2869114|+"77“|2869115|2869116|2869117|唯一需要转换的时候是当变量类型不明确时(例如，类型变量或单元格的Value+(这是变量))。|2869118|即使这样，如果您正在与另一个字符串变量或常量混合，也不必使用CStr函数。如下所示：|2869119|Sheet1.Range("A1").Value+=+"My+favorite+number+is+"+&+7|2869120|2869121|“我最喜欢的数字是7”|2869122|2869123|2869124|所以，真的，唯一罕见的情况是，当你真的想要将一个整数值存储到一个变量或单元格值中，而不是与另一个字符串混合时(我可以补充一下，这是一个非常罕见的情况)：|2869125|Dim+i+as+Integer
i+=+7
Sheet1.Range("A1").Value+=+i|2869126|2869127|+7|2869128|2869129|2869130|Dim+i+as+Integer
i+=+7
Sheet1.Range("A1").Value+=+CStr(i)|2869131|2869132|+"7"|2869133|2869134|entityMap^0|14|4|0|V|D|0|0|0|0|0|0|0|0|0|0|0|0|0|0|1A|W|5|0|0|16|U|4|0|0|0|0|B|0|0|0|0|24|0|0|0|0|2|0|0|0|0|0|0|4|0|0^^$0|@$1|2|3|4|5|6|7|1W|8|@$9|1X|A|1Y|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|1Z|8|@$9|20|A|21|B|H]]|D|@]|E|$]]|$1|I|3|J|5|K|7|22|8|@]|D|@]|E|$L|M]]|$1|N|3|O|5|6|7|23|8|@]|D|@]|E|$]]|$1|P|3|-4|5|6|7|24|8|@]|D|@]|E|$]]|$1|Q|3|R|5|S|7|25|8|@]|D|@]|E|$]]|$1|T|3|-4|5|6|7|26|8|@]|D|@]|E|$]]|$1|U|3|-4|5|6|7|27|8|@]|D|@]|E|$]]|$1|V|3|W|5|6|7|28|8|@]|D|@]|E|$]]|$1|X|3|Y|5|K|7|29|8|@]|D|@]|E|$L|M]]|$1|Z|3|-4|5|6|7|2A|8|@]|D|@]|E|$]]|$1|10|3|11|5|S|7|2B|8|@]|D|@]|E|$]]|$1|12|3|-4|5|6|7|2C|8|@]|D|@]|E|$]]|$1|13|3|-4|5|6|7|2D|8|@]|D|@]|E|$]]|$1|14|3|15|5|6|7|2E|8|@$9|2F|A|2G|B|H]|$9|2H|A|2I|B|C]]|D|@]|E|$]]|$1|16|3|17|5|6|7|2J|8|@$9|2K|A|2L|B|H]|$9|2M|A|2N|B|C]]|D|@]|E|$]]|$1|18|3|19|5|K|7|2O|8|@]|D|@]|E|$L|M]]|$1|1A|3|-4|5|6|7|2P|8|@]|D|@]|E|$]]|$1|1B|3|1C|5|S|7|2Q|8|@$9|2R|A|2S|B|H]]|D|@]|E|$]]|$1|1D|3|-4|5|6|7|2T|8|@]|D|@]|E|$]]|$1|1E|3|-4|5|6|7|2U|8|@]|D|@]|E|$]]|$1|1F|3|1G|5|6|7|2V|8|@$9|2W|A|2X|B|H]]|D|@]|E|$]]|$1|1H|3|1I|5|K|7|2Y|8|@]|D|@]|E|$L|M]]|$1|1J|3|-4|5|6|7|2Z|8|@]|D|@]|E|$]]|$1|1K|3|1L|5|S|7|30|8|@$9|31|A|32|B|H]]|D|@]|E|$]]|$1|1M|3|-4|5|6|7|33|8|@]|D|@]|E|$]]|$1|1N|3|-4|5|6|7|34|8|@]|D|@]|E|$]]|$1|1O|3|1P|5|K|7|35|8|@]|D|@]|E|$L|M]]|$1|1Q|3|-4|5|6|7|36|8|@]|D|@]|E|$]]|$1|1R|3|1S|5|S|7|37|8|@$9|38|A|39|B|H]]|D|@]|E|$]]|$1|1T|3|-4|5|6|7|3A|8|@]|D|@]|E|$]]|$1|1U|3|-4|5|6|7|3B|8|@]|D|@]|E|$]]]|1V|$]]

Most times, you won't need to "convert"; VBA will do safe implicit type conversion for you, without the use of converters like <code>CStr</code>.

The below code works without any issues, because the variable is of Type String, and implicit type conversion is done for you automatically!

<pre><code>Dim myVal As String
Dim myNum As Integer

myVal = "My number is: "
myVal = myVal &amp; myNum
</code></pre>

Result:

<blockquote>
 "My number is: 0"
</blockquote>

You don't even have to get that fancy, this works too:

<pre><code>Dim myString as String
myString = 77
</code></pre>

<blockquote>
 "77"
</blockquote>

The only time you WILL need to convert is when the variable Type is ambiguous (e.g., Type Variant, or a Cell's <code>Value</code> (which is Variant)).

Even then, you won't have to use <code>CStr</code> function if you're compounding with another String variable or constant. Like this:

<pre><code>Sheet1.Range("A1").Value = "My favorite number is " &amp; 7
</code></pre>

<blockquote>
 "My favorite number is 7"
</blockquote>

So, really, the only rare case is when you really want to store an integer value, into a variant or Cell value, when not also compounding with another string (which is a pretty rare side case, I might add):

<pre><code>Dim i as Integer
i = 7
Sheet1.Range("A1").Value = i
</code></pre>

<blockquote>
 7
</blockquote>

<pre><code>Dim i as Integer
i = 7
Sheet1.Range("A1").Value = CStr(i)
</code></pre>

<blockquote>
 "7"
</blockquote>

blocks|key|3082983|text|在我的例子中，找不到函数CString。但是，将空字符串添加到值也是有效的。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3082984|Dim+Test+As+Integer,+Test2+As+Variant
Test+=+10
Test2+=+Test+&+""
//Test2+is+now+"10"+not+10|code-block|syntax|javascript|3082985|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

In my case, the function CString was not found.
But adding an empty string to the value works, too.

<pre><code>Dim Test As Integer, Test2 As Variant
Test = 10
Test2 = Test &amp; ""
//Test2 is now "10" not 10
</code></pre>

blocks|key|3083018|text|不声明变量的最短方法是使用Type+Hints：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|3083019|s$+=++123+++'+s+=+"123"
i%25+=+"123"++'+i+=++123|code-block|syntax|javascript|3083020|这不能用Option+Explicit编译。类型将不是Variant，而是String和Integer|style|CODE|3083021|entityMap|0|LINK|mutability|MUTABLE|url|https://riptutorial.com/vba/example/2960/type-hints^0|D|A|0|0|0|4|F|R|7|11|6|18|7|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@$A|V|B|W|1|X]]|C|$]]|$1|D|3|E|5|F|7|Y|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|Z|8|@$A|10|B|11|K|L]|$A|12|B|13|K|L]|$A|14|B|15|K|L]|$A|16|B|17|K|L]]|9|@]|C|$]]|$1|M|3|-4|5|6|7|18|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]]]

The shortest way without declaring the variable is with <a href="https://riptutorial.com/vba/example/2960/type-hints" rel="nofollow noreferrer">Type Hints</a> :

<pre><code>s$ = 123 ' s = "123"
i% = "123" ' i = 123
</code></pre>

This will not compile with <code>Option Explicit</code>. The types will not be <code>Variant</code> but <code>String</code> and <code>Integer</code>

blocks|key|2869229|text|如果您拉入的字符串恰好是十六进制数字，那么即使您使用CStr函数，即使您首先将其存放在字符串变量类型中，E01也会将其转换为0。解决这个问题的一种方法是在值的开头追加‘。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2869230|例如，从Word表格中提取值并将其引入Excel时：|2869231|strWr+=+"'"+&+WorksheetFunction.Clean(.cell(iRow,+iCol).Range.Text)|code-block|syntax|javascript|2869232|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

If the string you're pulling in happens to be a hex number such as E01, then Excel will translate it as 0 even if you use the CStr function, and even if you first deposit it in a String variable type. One way around the issue is to append ' to the beginning of the value. 

For example, when pulling values out of a Word table, and bringing them to Excel:

<pre><code>strWr = "'" &amp; WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
</code></pre>

blocks|key|220598|text|​|type|unstyled|depth|inlineStyleRanges|entityRanges|data|220599|📷|atomic|offset|length|220600|220601|++++Sub+NumToText(ByRef+sRng+As+String,+Optional+ByVal+WS+As+Worksheet)
++++'---Converting+visible+range+form+Numbers+to+Text
++++++++Dim+Temp+As+Double
++++++++Dim+vRng+As+Range
++++++++Dim+Cel+As+Object

++++++++If+WS+Is+Nothing+Then+Set+WS+=+ActiveSheet
++++++++++++Set+vRng+=+WS.Range(sRng).SpecialCells(xlCellTypeVisible)
++++++++++++For+Each+Cel+In+vRng
++++++++++++++++If+Not+IsEmpty(Cel.Value)+And+IsNumeric(Cel.Value)+Then
++++++++++++++++++++Temp+=+Cel.Value
++++++++++++++++++++Cel.ClearContents
++++++++++++++++++++Cel.NumberFormat+=+"@"
++++++++++++++++++++Cel.Value+=+CStr(Temp)
++++++++++++++++End+If
++++++++++++Next+Cel
++++End+Sub


++++Sub+Macro1()
++++++++Call+NumToText("A2:A100",+ActiveSheet)
++++End+Sub|code-block|syntax|javascript|220602|Reffer:+MrExcel.com+–+Convert+numbers+to+text+with+VBA|220603|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/5dbcb8002c239e0a363bb49012ef5d1f.png|imageAlt|1|LINK|MUTABLE|url|https://www.mrexcel.com/board/threads/convert-numbers-to-text-with-vba.30232/^0|0|0|1|0|0|0|0|0|1I|1|0^^$0|@$1|2|3|4|5|6|7|12|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|13|8|@]|9|@$E|14|F|15|1|16]]|A|$]]|$1|G|3|4|5|6|7|17|8|@]|9|@]|A|$]]|$1|H|3|I|5|J|7|18|8|@]|9|@]|A|$K|L]]|$1|M|3|N|5|6|7|19|8|@]|9|@$E|1A|F|1B|1|1C]]|A|$]]|$1|O|3|-4|5|6|7|1D|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V|W|-4]]|X|$5|Y|S|Z|A|$10|11]]]]

<a href="https://i.stack.imgur.com/KtJXH.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/KtJXH.png" alt="enter image description here"></a>

<pre><code> Sub NumToText(ByRef sRng As String, Optional ByVal WS As Worksheet)
 '---Converting visible range form Numbers to Text
 Dim Temp As Double
 Dim vRng As Range
 Dim Cel As Object

 If WS Is Nothing Then Set WS = ActiveSheet
 Set vRng = WS.Range(sRng).SpecialCells(xlCellTypeVisible)
 For Each Cel In vRng
 If Not IsEmpty(Cel.Value) And IsNumeric(Cel.Value) Then
 Temp = Cel.Value
 Cel.ClearContents
 Cel.NumberFormat = "@"
 Cel.Value = CStr(Temp)
 End If
 Next Cel
 End Sub


 Sub Macro1()
 Call NumToText("A2:A100", ActiveSheet)
 End Sub
</code></pre>

<a href="https://www.mrexcel.com/board/threads/convert-numbers-to-text-with-vba.30232/" rel="nofollow noreferrer">Reffer: MrExcel.com – Convert numbers to text with VBA</a>

blocks|key|220307|text|另一种方法是将数值的两个解析部分拼接在一起：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|220308|Cells(RowNum,+ColumnNum).Value+=+Mid(varNumber,1,1)+&+Mid(varNumber,2,Len(varNumber))|code-block|syntax|javascript|220309|我发现这比CStr()更成功，因为在我的经验中，CStr()似乎不能转换来自变体的十进制数。|offset|length|style|CODE|220310|entityMap^0|0|0|5|6|O|6|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]|$I|T|J|U|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|V|8|@]|9|@]|A|$]]]|N|$]]

Another way to do it is to splice two parsed sections of the numerical value together:

<pre><code>Cells(RowNum, ColumnNum).Value = Mid(varNumber,1,1) &amp; Mid(varNumber,2,Len(varNumber))
</code></pre>

I have found better success with this than <code>CStr()</code> because <code>CStr()</code> doesn't seem to convert decimal numbers that came from variants in my experience.

blocks|key|222274|text|如果您有一个有效的整数值，并且您的要求是比较这些值，则可以简单地进行如下所示的比较。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|222275|Sub+t()

Dim+i+As+Integer
Dim+s++As+String

'+pass
i+=+65
s+=+"65"
If+i+=+s+Then
MsgBox+i
End+If

'+fail+-+Type+Mismatch
i+=+65
s+=+"A"
If+i+=+s+Then
MsgBox+i
End+If
End+Sub|code-block|syntax|javascript|222276|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

If you have a valid integer value and your requirement is to compare values, you can simply go ahead with the comparison as seen below.

<pre><code>Sub t()

Dim i As Integer
Dim s As String

' pass
i = 65
s = "65"
If i = s Then
MsgBox i
End If

' fail - Type Mismatch
i = 65
s = "A"
If i = s Then
MsgBox i
End If
End Sub
</code></pre>

blocks|key|220341|text|公认的答案适用于较小的数字，最重要的是当您从excel工作表中获取数据时。因为较大的数字将自动转换为科学数字，即e%2B10。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|220342|所以我认为这会给你更一般的答案。我没有检查它是否有任何崩溃。|220343|CStr(CDbl(#yourNumber#))|code-block|syntax|javascript|220344|这将适用于e%2B转换的数字！由于just+CStr(7.7685099559e%2B11)将显示为"7.7685099559e%2B11“，而不是预期的："776850995590”，所以我更愿意说我的答案将是更通用的结果。|offset|length|style|CODE|220345|致以敬意，M|220346|entityMap^0|0|0|0|K|M|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|T|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|V|8|@$K|W|L|X|M|N]]|9|@]|A|$]]|$1|O|3|P|5|6|7|Y|8|@]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

The accepted answer is good for smaller numbers, most importantly while you are taking data from excel sheets. as the bigger numbers will automatically converted to scientific numbers i.e. e+10. 
So I think this will give you more general answer. I didn't check if it have any downfall or not. 

<pre><code>CStr(CDbl(#yourNumber#))
</code></pre>

this will work for e+ converted numbers! as the just <code>CStr(7.7685099559e+11)</code> will be shown as "7.7685099559e+11" not as expected: "776850995590" So I rather to say my answer will be more generic result. 

Regards,
M

How do I convert the integer value "45" into the string value "45" in Excel VBA?

How Do I Convert an Integer to a String in Excel VBA?

如何在Excel VBA中将整数值"45“转换为字符串值"45”？

问如何在Excel VBA中将整数转换为字符串？
EN

回答 10

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Excel VBA中将整数转换为字符串？EN

回答 10

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Excel VBA中将整数转换为字符串？
EN