Question

我想知道Excel 2013是否有代表数字输入的东西作为预设标签。

类似于单元格A1中的输入1，但显示为＆＃34;计算机科学＆＃34;在同一单元格中，输入2显示为＆＃34;计算机工程＆＃34; ，就像这样。

很抱歉，如果我的问题不清楚，我不擅长英语，也许这就是为什么我无法在谷歌上找到我的解决方案。熟悉pspp的人可能更容易理解我在说什么

Answer 1

＆＃34;传统＆＃34;解决方案是拥有辅助列和查找。因此，您可以在A1中输入1，在{B1}中显示{ - 1}}，其中可能会在数据输入后隐藏ColumnA。

＆＃34;综合＆＃34;解决方案是使用类似VBA的东西 - 根据设置规则替换输入的内容，例如＆＃34;如果Computer Science替换为1＆＃34;。

A＆＃34;中途＆＃34;解决方案是条件格式设置，其中包含一系列Computer Science规则，可触发Cell Value = 1的自定义格式。

但是，Excel是一个专为数字运算而设计的电子表格程序。这样的替换＆＃39;真的更适合文字处理包。在电子表格中，如果此类音译的适用范围为＆＃39;并不限制其余的电子表格功能，其大部分功能将严重削弱。

应对10个标签的10 CF规则是可行的。

Answer 2

使用数字格式可以完成四个标签。除了有限数量的标签之外，这种方法还有一个缺点，即数字代码不能像你所描述的那样严格分配。

要查看可以通过这种方式执行的操作，请将以下自定义数字格式应用于一系列单元格：

"Computer Science";"Computer Engineering";"Physical Science";"Biology"

现在，当一个值输入该范围内的任何单元格时，会发生以下情况：

如果值为POSITIVE，则计算机科学＆＃39;显示。
如果值为零，物理科学＆＃39;显示。
如果值为NEGATIVE，则计算机工程＆＃39;显示。
如果值是任何TEXT，那么生物学＆＃39;显示。

但就是这样。可以通过这种方式配置不超过四个标签。

如果你想要这样做，最好的解决方案是将自定义代码翻译成文本的VBA例程。

Answer 3

假设我们要在单元格 A1 中输入 1 和 92 之间的数字，并在单元格中显示相应的元素。在工作表代码区域中输入以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
   Dim I As Long, DQ As String
   DQ = Chr(34)
   I = Range("A1").Value - 1

   ary = Array("Hydrogen", "Helium", "Lithium", "Beryllium", "Boron", "Carbon", _
      "Nitrogen", "Oxygen", "Fluorine", "Neon", "Sodium", "Magnesium", "Aluminium", _
      "Silicon", "Phosphorus", "Sulfur", "Chlorine", "Argon", "Potassium", "Calcium", _
      "Scandium", "Titanium", "Vanadium", "Chromium", "Manganese", "Iron", "Cobalt", "Nickel", _
      "Copper", "Zinc", "Gallium", "Germanium", "Arsenic", "Selenium", "Bromine", _
      "Krypton", "Rubidium", "Strontium", "Yttrium", "Zirconium", "Niobium", "Molybdenum", _
      "Technetium", "Ruthenium", "Rhodium", "Palladium", "Silver", "Cadmium", "Indium", "Tin", _
      "Antimony", "Tellurium", "Iodine", "Xenon", "Caesium", "Barium", "Lanthanum", "Cerium", _
      "Praseodymium", "Neodymium", "Promethium", "Samarium", "Europium", "Gadolinium", _
      "Terbium", "Dysprosium", "Holmium", "Erbium", "Thulium", "Ytterbium", "Lutetium", "Hafnium", _
      "Tantalum", "Tungsten", "Rhenium", "Osmium", "Iridium", "Platinum", "Gold", "Mercury", _
      "Thallium", "Lead", "Bismuth", "Polonium", "Astatine", "Radon", "Francium", "Radium", _
      "Actinium", "Thorium", "Protactinium", "Uranium")

   Range("A1").NumberFormat = DQ & ary(I) & DQ & ";;;"
End Sub

A1 中的值未更改，仅显示。