Заменить алфавит с номером

Question

Могу ли я написать A и Excel считать это 5, и в той же ячейке я пишу B и Excel считать 4, вплоть до F (где F = 0).

На самом деле в конце я хочу добавить числовые значения.

Обратите внимание, что на экране все равно должны отображаться буквы, а не цифры - единственное число, которое должно отображаться, - это сумма, когда она суммируется.

Answer 1

Excel 2010

Перейдите на вкладку Формулы, затем нажмите "Определить имя". Появится всплывающее окно, для имени введите: A, для области выберите то, что вам нравится, и для типа «Относится к:» введите: = 5

Теперь в любой ячейке вы можете ввести значение "= A", и вы получите число 5.

Для проверки введите следующее значение в любой ячейке: = A+2. Значение ячейки должно возвращать 7 (5+2 = 7). Повторите процедуру для B, C и т.д. Помните, что имена чувствительны к регистру.

Answer 2

Это будет делать то, что вы хотите, или, по крайней мере, вы начнете.

В Excel 2010 убедитесь, что лента разработчика показана (Google это хорошо документировано). В панели разработчика вставьте кнопку на вкладке управления

Нарисуйте кнопку на листе Excel. Появится новое окно, нажмите «Создать».

В Sub и End sub введите следующий код

    dim myColumn as string
    myColumn = "A"    'UPDATE this for the column you want to use. In the picture, my content was in Column A, hence I used A

    Dim currentCell As Integer
    Dim totalValue As Integer
    Dim hasValue As Boolean
    hasValue = True
    currentCell = 0

    Do While (hasValue)

        currentCell = currentCell + 1
        If (Range(myColumn  & currentCell).Value = "") Then
            Exit Do
        End If

        Dim cellValue As String
        cellValue = UCase(Range(myColumn  & currentCell).Value) ' I assume you accept a and A (upper and lower case)

        Select Case cellValue
            Case "A"
                totalValue = totalValue + 5
            Case "B"
                totalValue = totalValue + 4
            Case "C"
                totalValue = totalValue + 3
            Case "D"
                totalValue = totalValue + 2
            Case "E"
                totalValue = totalValue + 1
            Case "F" 'we don't actually need F but it was in OP
                totalValue = totalValue + 0
        End Select

    Loop

    Range(myColumn  & currentCell).Value = totalValue

Сохранить проект как лист с поддержкой макросов

Нажмите на кнопку и увидите результаты.

Answer 3

VLOOKUP может работать здесь, но это будет означать, что вы видите как буквы, так и цифры

=VLOOKUP(A1,Sheet2!$A$1:$B$6,2)

Итак, в моем рабочем листе 2 у меня есть следующее

и в моем рабочем листе 1 у меня есть