Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.08.2008, 15:58   #1
SoFuWa
Пользователь
 
Регистрация: 14.08.2008
Сообщений: 64
По умолчанию Помогите с макросом

Простейщий макрос
Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+q
'
ActiveCell.FormulaR1C1 = "='1.Эльф'!O36*" + ActiveCell.FormulaR1C1
ActiveCell.Select
End Sub

Он мне вместо ='1.Эльф'!O36 вставляет ='1.Эльф'!'O36'
почему появляются лишние апострофы и что делааааааааать!?!?
SoFuWa вне форума
Старый 14.08.2008, 16:04   #2
SoFuWa
Пользователь
 
Регистрация: 14.08.2008
Сообщений: 64
По умолчанию

И еще вместо ActiveCell.FormulaR1C1 вставвляется числовое значение ячейки, но в нем вместо "," - точка "." отделяет дробную часть и из-за этого ошибка. Почему так получается, помогите я чайник но очень надо
SoFuWa вне форума
Старый 14.08.2008, 20:00   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

лень проверять... да и файлик Вы не приложили.
тогда просто навскидку предположение:
а если так попробовать?
Код:
ActiveCell.FormulaR1C1 = "='1.Эльф'!O36*" & ActiveCell.FormulaR1C1
Serge_Bliznykov вне форума
Старый 14.08.2008, 20:50   #4
SoFuWa
Пользователь
 
Регистрация: 14.08.2008
Сообщений: 64
По умолчанию

применяешь это к ячейке с числом 324234, получается ='1.Эльф'!'O36'*324234
апострофы опять тут. Причем если убрать знак "=" из выражения то их неповляется %-)
SoFuWa вне форума
Старый 14.08.2008, 22:45   #5
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
Смех Не стильно!

Для FormulaR1C1 адрес нужно задавать в стиле R1C1, а он задан в стиле A1 и поэтому воспринимается как текст.
дмидми вне форума
Старый 15.08.2008, 14:54   #6
Мучитель excel
Пользователь
 
Регистрация: 13.06.2008
Сообщений: 51
По умолчанию

Ссори что не по теме, как решить такую задачу?
1,Есть ряд значений записанный в первой строке,
Условно количество значений в строке 100, тоесть заполненных 100 ячеек.
Как переписать строку в столбец так чтобы значения шли сверху в низ в таком же порядке что и в строке?
2 Столбец который мы получили нужно каждое значение ячейки перевести в номер группы товара.
Как это сделать? Какие формулы можно использовать? Где нужно создавать группы товаров чтобы сортировалось по условию задачи?
Мучитель excel вне форума
Старый 15.08.2008, 14:56   #7
Мучитель excel
Пользователь
 
Регистрация: 13.06.2008
Сообщений: 51
По умолчанию

Пока писал первый вопрос уже придумал снимается не нужно,
а второй если есть какие-то соображения прошу подсказать.
Мучитель excel вне форума
Старый 15.08.2008, 15:26   #8
vladtr
Форумчанин
 
Регистрация: 28.07.2008
Сообщений: 119
По умолчанию

Первый вопрос решается через следующие действия, выделенный диапазон копируете, далее через специальную вставку - ставьте галочку транспонировать.
Второй вопрос - немного не понятно, обычно выкладывают образцы... как я понял, вы хотите еще подставить к значению ячейки символы номера группы. Например: у вас значение 12001, а вы хотите видеть №-гр 12001. Это делается через формат ячейки
vladtr вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
макросом дополнить название Romuald Microsoft Office Excel 2 22.05.2008 17:31
изменение заблокированной ячейки макросом Slim Microsoft Office Excel 3 29.04.2007 13:19