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

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>

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

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

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

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

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