VBA Excel来修复标题中的错误

我在我的标题部分有一个错误，我不能完全解决它。 我目前正在写一个Excel文件的macros。 我们从我们使用的称为Jama的工具导入项目（如标题，ID，名称，描述等）。

以前，Excel正在生成一个bug，就像标题是2.13时产生2,13一样。 我们使用.NumberFormat="@"来解决这个问题，但它只适用于已经在Excel文件中的项目。

例如，如果我尝试删除一些项目，而不是按下button，再次从贾马更新没有任何反应。 提示我的主pipe说我不需要If条件。 我是新的VBA，所以你的帮助是非常需要的。

我有这些代码行：

  ' convert to text format If rCell.Offset(0, cHeading - 1).NumberFormat = "@" Then rCell.Offset(0, cHeading - 1) = oResponseDataLocation("sequence") End If 'Coloring If rCell.Offset(0, cHeading - 1) <> sPastCellContant Then rCell.Offset(0, cHeading - 1).Interior.ColorIndex = ChangedColour End If 

Answer 1

此块不会转换为注释中所写的文本格式。 如果单元格格式已被格式化为文本格式，它只会运行缩进行。

 ' convert to text format If rCell.Offset(0, cHeading - 1).NumberFormat = "@" Then rCell.Offset(0, cHeading - 1) = oResponseDataLocation("sequence") End If 

我假设你的主pipe是对的，这就是你想要的：

 ' convert to text format rCell.Offset(0, cHeading - 1).NumberFormat = "@" rCell.Offset(0, cHeading - 1) = oResponseDataLocation("sequence")