Vba 要从具有相同数字格式的单元格复制的数字,并将其显示为形状的标签,而不更改数字格式

Vba 要从具有相同数字格式的单元格复制的数字,并将其显示为形状的标签,而不更改数字格式,vba,excel,excel-2010,Vba,Excel,Excel 2010,我在excel中有一个单元格,其中包含一个值,比如100000。 现在,我希望这个值在它们之间有逗号,表示成千上万,即100000。我可以通过更改主菜单中的数字格式来实现这一点。 现在,我希望从该单元格复制该值,并将其粘贴为形状的标签。当我这样做时,逗号会消失,只显示数字。 我希望它通过VBA实现,但excel本身并没有实现 有人对此有合理的解决方案吗?范围内对象使用文本属性,如下所示: Sheet1.Shapes(1).TextFrame.Characters.Text = Range("A1

我在excel中有一个单元格,其中包含一个值,比如100000。 现在,我希望这个值在它们之间有逗号,表示成千上万,即100000。我可以通过更改主菜单中的数字格式来实现这一点。 现在,我希望从该单元格复制该值,并将其粘贴为形状的标签。当我这样做时,逗号会消失,只显示数字。 我希望它通过VBA实现,但excel本身并没有实现


有人对此有合理的解决方案吗?

范围内对象使用文本属性,如下所示:

Sheet1.Shapes(1).TextFrame.Characters.Text = Range("A1").Text

是的,这很好。但是我想保留单元格中的数字格式。对于A1单元格中的eg,我有10000美元的货币,我希望形状文本中有$和逗号。这是我不能做的。嗯。。。在我的excel 2010中,它可以精细复制格式为的单元格值。你确定用RangeA1.Text代替RangeA1.Value吗?非常感谢,我用Value代替了Text。很好用。谢谢