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

1

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

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

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

Сулеман
источник
1
Если A = 5, B = 4, C = 3? Что бы G было?
Дейв
дорогой я здесь, чтобы решить мой запрос, чтобы не застревать в другом запросе.
Сулеман
Итак, вы говорите, что вам нужно беспокоиться только о значениях A и B? Вы также не говорите, что это за версия Excel?
Дейв
Я использую Excel 2010, я просто хочу сказать, что если кто-то увидит мой лист Excel, то ему будет
показан
Вы делаете только A 5 и B 4? Другие буквы не затрагиваются?
Дейв

Ответы:

1

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

В 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

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

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

введите описание изображения здесь

Дейв
источник
Спасибо, Дейв, за то, что проявил интерес к моему запросу. Вы отлично поработали для меня, но, к сожалению, я не могу его использовать.
Сулеман
Вы должны объяснить, почему вы не можете использовать это, если хотите, чтобы я помогал больше :)
Дейв
Я не могу повлиять на вас, как вы руководствовались. Как я могу сделать новую кнопку. Как нарисовать кнопку на листе Excel.
Сулеман
Я пытался, но я не нашел новый вариант кнопки
suleman
да, я видел эту картинку, вы упомянули, введите значения в суб и Конец суб, я также не получил эту опцию.
Сулеман
1

Excel 2010

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

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

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

Дейв
источник
Я использую Excel 2010, я просто хочу сказать, что если кто-то увидит мой лист Excel, то алфавит будет выглядеть как A, но в
бэкэнде
спасибо faisal, процедура, которую вы здесь написали, также полезна для меня, но я не хочу показывать, что некоторые могут видеть число, если кто-то увидит мой лист, то покажет только алфавит, это возможно?
Сулеман
0

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

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

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

введите описание изображения здесь

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

введите описание изображения здесь

Дейв
источник