如何让Excel在单元格的开头忽略撇号

Question

我正在编写一个将简单数据库与Excel工作表同步的工具。 数据库中表中的每个项对应于工作表中的一行。 我使用C＃和Excel interop com接口将Excel工作表读入工具，然后在同步后比较项目的值（即excel表中的一列），以确保它们相等。

昨天我发现了一个比较不正确的案例：

"'<MedalTitle>' Medal - <MedalDescription>"
"<MedalTitle>' Medal - <MedalDescription>"

第二个是我从Excel中读到的那个，你可以看到它跳过了第一个撇号。 有没有办法告诉Excel将单元格视为文本（不，只是设置单元格的格式没有帮助）？

我甚至试图在VBA中复制单元格的值（ 'hello' ），如下所示：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Target.Offset(1, 0).Value = Target.Worksheet.Range("b2").Value
   Target.Offset(2, 0).Value = Target.Worksheet.Range("b2").Formula
   Target.Offset(3, 0).Formula = Target.Worksheet.Range("b2").Formula
   Target.Offset(4, 0).Formula = Target.Worksheet.Range("b2").Value
End Sub

结果是目标细胞的价值总是你好'

如果没有办法，我将不得不做一些丑陋的事情

if (dbitem.value[0] == ''' )
{
   // stuff
}
else
{
   // regular comparison
}

Answer 1

我担心撇号'是Excel的一个特殊字符，当它出现在你发现的单元格中的第一个字符时。 它告诉Excel将字符串的其余部分视为文本，以便您可以在单元格中输入类似'34.2的内容，并将其视为字符串而不是数字（用于格式化等）。

我建议你做一些类似于你建议的事情，除了你把它放到Excel中的地方，检查第一个字符，并添加一个额外的'如果已经存在的话。

或者，您可以将撇号添加到所有值 - 如果您希望它们全部为文本。 这样你就不需要额外的第一个字符检查了。

Answer 2

查看Range对象的PrefixCharacter属性，该属性对应于该单元格

从帮助：

如果TransitionNavigKeys属性为False ，则此前缀字符将为“文本标签”或空白。 如果TransitionNavigKeys属性为True ，则此字符将为“左对齐标签”，右对齐标签，^为居中标签，\\为重复标签或空白。

TransitionNavigKeys部分与Lotus 1-2-3的兼容性有关，所以它很可能是False

根据以下文章回答：

http://excel.tips.net/Pages/T003332_Searching_for_Leading_Apostrophes.html

（警告：可能会出现稍微恼人的弹出窗口）

---

编辑：实际上这可能不会有任何用处，因为PrefixCharacter是只读的:(

edit2：我第一次是对的。 PrefixCharacter只有被填充，如果添加到单元格的值开始'，所以就先回PrefixCharacter加Value和串联。 只要TransitionNavigKeys为False ，就是这样

Answer 3

尝试使用targetcell.Value 。 .Formula是在公式栏中看到的公式，而.Value是单元格的评估值。

所以，我猜你也会在原始代码中使用.Formula 。 改变它应该工作。

编辑：好吧，它不起作用（尴尬）。

Excel专门处理起始单引号。特别是即使是模糊的单元格/范围属性也没有访问权限。 我能找到的唯一解决方法与您最初的想法基本相同。 开始：

If VarType(cell) = 8 And Not cell.HasFormula Then
 GetFormulaI = "'" & cell.Formula
Else
 GetFormulaI = cell.Formula
End If

Answer 4

您可以尝试在查询中预先挂起单个引号到文本字段（''''+ + dbField），以便对于具有嵌入单引号的字段，您的查询将返回：

"''stuff in single quotes'"

放在Excel单元格中时会转换为：

"'stuff in single quotes'"

对于没有引号的字符，你会得到：

"'stuff that wasn't in quotes"

放在Excel单元格中时会转换为：

"stuff that wasn't in quotes"

值得一试。 :-)