Не воспринимается переменная.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Не воспринимается переменная. (Макросы/Sub)

XPEH

Дата: Пятница, 01.05.2015, 20:47 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel для Mac

Макрос выполняет сортировку между двумя листами.

[vba]

Код

xx = InputBox("В какой столбик писать результат?")
......
Worksheets("Общий").Cells(R, xx).Value = zz
......

[/vba]

Выдает ошибку. Если меняю переменную xx на число, то все работает отлично, но нужен именно ввод этого значения.
Как это решить? Подскажите пожалуйста.

Сообщение отредактировал XPEH - Пятница, 01.05.2015, 20:48

Ответить

Serge_007

Дата: Пятница, 01.05.2015, 21:19 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

XPEH, советую Вам сменить ник, во избежании бана по пункту правил 5i
Да и название топика вряд ли удовлетворяет условиям пункта 2 правил

По теме (в честь праздника):
[vba]

Код

Worksheets("Общий").Cells(R, CDbl(xx)).Value = zz

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Kuzmich

Дата: Пятница, 01.05.2015, 23:22 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 715

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

xx = InputBox("В какой столбик писать результат?")

Укажите тип данных для метода InputBox, type:=1 (ввод числа)

Ответить

Skif-F

Дата: Суббота, 02.05.2015, 00:42 | Сообщение № 4

Группа: Проверенные

Ранг: Участник

Сообщений: 73

Репутация: 14 ±

Замечаний: 0% ±

Excel 2007, 2010, 2013, 2016

Цитата Kuzmich, 01.05.2015 в 23:22, в сообщении № 3

Укажите тип данных для метода

Тогда добавьте, что не для InputBox, а для Application.InputBox!
Это разные функции!

XPEH, замените InputBox, на Application.InputBox с указанием необходимого типа.

Ответить

alex77755

Дата: Суббота, 02.05.2015, 17:26 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Не обязательно менять. Можно так:
[vba]

Код

Dim XX, R
R = 5
XX = InputBox("В какой столбик писать результат?")
If XX = "" Then Exit Sub' если нажали "Отмена"
XX = Val(XX)
Worksheets(1).Cells(R, XX).Value = XX

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Суббота, 02.05.2015, 17:27

Ответить

alex77755

Дата: Суббота, 02.05.2015, 17:34 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

Serge_007, XPEH это уже изменённый ник? Я опоздал?
Или название корнеплода являестся "трудночитаемым или оскорбительным"
Неужели "УКРОП" лучше? особенно в связи с событиями в Украие?!

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Не воспринимается переменная. (Макросы/Sub)

Страница 1 из 1
1