Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставка из EXCEL в WORD (в несколько разных шаблонов) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Вставка из EXCEL в WORD (в несколько разных шаблонов) (Word)
Вставка из EXCEL в WORD (в несколько разных шаблонов)
S0LDAT Дата: Вторник, 30.12.2014, 11:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Т.к. данная тема была закрыта, создаю аналогичную.
Есть макрос, вставляет данные в шаблоны ворд. Но вот если в первом столбце за место значений (ФИО) формула, то макрос выдает ошибку. Как сделать так, чтобы макрос прекращал работу, когда значение ячейки формула (допустим начинается с =)?

Чуть объясню, на листе "Лист1" пользователи вбивают данные, далее эти данные переносятся на лист "расчет", где к данным применяется макрос. Но неизвестно сколько строк пользователь заполнит, значит на листе "расчет" будет формула, которая проверяет, если строка в первом столбце не заполнена, ничего не выводит в первый столбец листа "расчет".

В приложении файл.
К сообщению приложен файл: __.zip.001 (80.0 Kb) · __.zip.002 (55.1 Kb)


Сообщение отредактировал S0LDAT - Вторник, 30.12.2014, 11:04
 
Ответить
СообщениеТ.к. данная тема была закрыта, создаю аналогичную.
Есть макрос, вставляет данные в шаблоны ворд. Но вот если в первом столбце за место значений (ФИО) формула, то макрос выдает ошибку. Как сделать так, чтобы макрос прекращал работу, когда значение ячейки формула (допустим начинается с =)?

Чуть объясню, на листе "Лист1" пользователи вбивают данные, далее эти данные переносятся на лист "расчет", где к данным применяется макрос. Но неизвестно сколько строк пользователь заполнит, значит на листе "расчет" будет формула, которая проверяет, если строка в первом столбце не заполнена, ничего не выводит в первый столбец листа "расчет".

В приложении файл.
Автор - S0LDAT
Дата добавления - 30.12.2014 в 11:00
Rioran Дата: Вторник, 30.12.2014, 11:15 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
S0LDAT, здравствуйте.

В качестве решения рекомендую следующий подход:

[vba]
Код
If Left(Cells(1, 1).Formula, 1) = "=" Then
[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеS0LDAT, здравствуйте.

В качестве решения рекомендую следующий подход:

[vba]
Код
If Left(Cells(1, 1).Formula, 1) = "=" Then
[/vba]
Автор - Rioran
Дата добавления - 30.12.2014 в 11:15
Gustav Дата: Вторник, 30.12.2014, 12:49 | Сообщение № 3
Группа: Админы
Ранг: Участник клуба
Сообщений: 2794
Репутация: 1160 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Или просто:
[vba]
Код
If Cells(1, 1).HasFormula Then
[/vba]

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Вторник, 30.12.2014, 12:49
 
Ответить
СообщениеИли просто:
[vba]
Код
If Cells(1, 1).HasFormula Then
[/vba]
Автор - Gustav
Дата добавления - 30.12.2014 в 12:49
S0LDAT Дата: Среда, 31.12.2014, 00:50 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Спасибо, но видимо неверно задачу поставил. Формула то в любом случае есть в 1 столбце, но вот иногда она с каким-то значением (ФИО), а иногда просто пустая ячейка ("")
 
Ответить
СообщениеСпасибо, но видимо неверно задачу поставил. Формула то в любом случае есть в 1 столбце, но вот иногда она с каким-то значением (ФИО), а иногда просто пустая ячейка ("")
Автор - S0LDAT
Дата добавления - 31.12.2014 в 00:50
Leanna Дата: Среда, 31.12.2014, 02:04 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
(у меня winrar не открывает из архива ваш файл excel, только word файлы)
Вслепую. Может проверка на [vba]
Код
Trim(Range(ячейка).Value) = ""
[/vba]

Лучше день потерять, потом за пять минут долететь!
 
Ответить
Сообщение(у меня winrar не открывает из архива ваш файл excel, только word файлы)
Вслепую. Может проверка на [vba]
Код
Trim(Range(ячейка).Value) = ""
[/vba]
Автор - Leanna
Дата добавления - 31.12.2014 в 02:04
S0LDAT Дата: Среда, 31.12.2014, 02:30 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Файл в приложении excel 2013
К сообщению приложен файл: __0.xlsm (67.8 Kb)


Сообщение отредактировал S0LDAT - Среда, 31.12.2014, 02:30
 
Ответить
СообщениеФайл в приложении excel 2013
Автор - S0LDAT
Дата добавления - 31.12.2014 в 02:30
Leanna Дата: Среда, 31.12.2014, 02:34 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Удалось таки открыть ваш файл.
Добавьте после ФИО проверку
[vba]
Код
With row
     ФИО = Trim$(.Cells(1))
     If ФИО <> "" Then
[/vba]
и потом перед End with добавьте end if
[vba]
Код
    p = p + A
End If
End With
[/vba]
К сообщению приложен файл: 1684283.xlsm (61.9 Kb)

Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеУдалось таки открыть ваш файл.
Добавьте после ФИО проверку
[vba]
Код
With row
     ФИО = Trim$(.Cells(1))
     If ФИО <> "" Then
[/vba]
и потом перед End with добавьте end if
[vba]
Код
    p = p + A
End If
End With
[/vba]
Автор - Leanna
Дата добавления - 31.12.2014 в 02:34
S0LDAT Дата: Среда, 31.12.2014, 03:47 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Спасибо, работает!
 
Ответить
СообщениеСпасибо, работает!
Автор - S0LDAT
Дата добавления - 31.12.2014 в 03:47
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Вставка из EXCEL в WORD (в несколько разных шаблонов) (Word)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!