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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2009, 17:24   #1
ups!
Новичок
Джуниор
 
Регистрация: 12.12.2009
Сообщений: 2
По умолчанию Альтернатива "F2F9"

Добрый день!
Подскажите, плиз, каким образом можно преобразовать формулу в текст для каждой четвертой ячейки строки.
Встроенные функции Excel не помогают, т.к. в результате их работы в ячейке отображается вроде бы текст или число, но на самом деле ячейка не содержит постоянного значения (в формуле была ссылка на значение диапазона, это значение меняется и следом меняется такой псевдотекст, а в файле д.б. статистика за каждую дату).
Сейчас делаю так: выделяю ячейки, удерживая Ctrl, затем нажимаю "F2F9", затем Enterом перехожу к следующей выделенной ячейке.
Может можно макросом каким-нибудь этот процесс автоматизировать?
Заранее очень благодарна!!!
ups! вне форума Ответить с цитированием
Старый 12.12.2009, 17:40   #2
ZORRO2005
Форумчанин
 
Аватар для ZORRO2005
 
Регистрация: 26.11.2006
Сообщений: 584
По умолчанию

Заметил закономерность.
Девушки стесняются прикладывать свои файлы с примером.
Может они считают это очень интимным.
ZORRO2005 вне форума Ответить с цитированием
Старый 12.12.2009, 17:53   #3
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Макросом можно:
Код:
Sub Every_four_Cell()
    Dim rRange As Range, li As Long
    On Error Resume Next
    Set rRange = Application.InputBox("Укажите диапазон для перобразования", "Ввод данных", Type:=8)
    If rRange Is Nothing Then Exit Sub
    On Error GoTo 0
    For li = 1 To rRange.Count Step 4
        rRange.Cells(li).Value = rRange.Cells(li).Value
    Next li
End Sub
При необходимости замените Step 4 на другой шаг(если необходимо преобразовать не каждую четвертую ячейку)
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 12.12.2009, 18:46   #4
ups!
Новичок
Джуниор
 
Регистрация: 12.12.2009
Сообщений: 2
По умолчанию

Ура, заработало)
Сенкс!

Последний раз редактировалось ups!; 12.12.2009 в 18:50.
ups! вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Microsoft eMbedded Visual C++ или "есть ли альтернатива?" Хрюн моржов Visual C++ 10 08.10.2009 00:50
Альтернатива элементу "file"? sergoss PHP 2 30.09.2009 07:53
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04
блок "cont" с права не принимает значение "margin: 10px;" которое описано в body tabikA HTML и CSS 5 24.02.2009 21:50
Под прикрытием "кризиса" наши доблестные "управители" хотят утопить нас в радиоактивных отходах mihali4 Свободное общение 1 17.01.2009 01:43