ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вставка строки после данных таблицы
14 сообщений из 14, страница 1 из 1
Вставка строки после данных таблицы
    #39879728
legus9ra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
legus9ra
Гость
Добрый день!
У меня проблема, необходимо вставить сноски после таблицы, они достаточно длинные, много текста. Сама таблица выгружается с помощью запроса Access. В запросе VBA прописал ячейку, в которой должен отражаться текст соски, НО:
Текст слишком длинный и одной ячейки недостаточно, нужно ее объединить с другими, либо вставить после таблицы пустую строку и туда уже вносить данные. В настоящий момент у меня так:
xlsheet.Cells (i + 1, 1).FormulaR1C1 = "текст"
Текст встаёт в одну ячейку .
Подскажите, пожалуйста, как мне можно вставить пустую строку после таблицы с данными (таблица в Excel, ввгруженная из Access 97). Что мне нужно прописать в запросе VBA?
Либо как мне тогда объединить ячейки?
...
Рейтинг: 0 / 0
22.10.2019, 10:25
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879732
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
legus9raДобрый день!

xlsheet.Cells (i + 1, 1).FormulaR1C1 = "текст"
Текст встаёт в одну ячейку .
Подскажите, пожалуйста, как мне можно вставить пустую строку после таблицы с данными (таблица в Excel, ввгруженная из Access 97). Что мне нужно прописать в запросе VBA?
Либо как мне тогда объединить ячейки?
Код: vbnet
1.
2.
xlsheet.Cells (i + [SIZE=5]2[/SIZE], 1).FormulaR1C1 = "текст"
 i=i+1
...
Рейтинг: 0 / 0
22.10.2019, 10:29
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879733
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
[size*] убрать
...
Рейтинг: 0 / 0
22.10.2019, 10:30
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879734
legus9ra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
legus9ra
Гость
Serg197311,
Не совсем тогда понял, где именно убрать. Прописал как первый раз, потом без size, access начинает ругаться, что что-то не так..
...
Рейтинг: 0 / 0
22.10.2019, 10:34
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879736
legus9ra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
legus9ra
Гость
Пишет: compile error: Expected: list separator or)
...
Рейтинг: 0 / 0
22.10.2019, 10:36
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879739
legus9ra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
legus9ra
Гость
Serg197311,

Не могли бы Вы еще раз написать более точно? :) мне это очень надо :)
...
Рейтинг: 0 / 0
22.10.2019, 10:43
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879744
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Код: vbnet
1.
2.
xlsheet.Cells (i + 2, 1).FormulaR1C1 = "текст"


Если таблица кончается на строке i - строка i+1 будет пропущена
Если в программе далее еще используется i,
то добавить i=i+1
...
Рейтинг: 0 / 0
22.10.2019, 10:47
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879756
legus9ra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
legus9ra
Гость
Serg197311,
Я наверное не так объяснил. Текст вставляется в нужную строку , но в одну ячейку, а мне нужно как-то объединить несколько ячеек этой строки..
...
Рейтинг: 0 / 0
22.10.2019, 11:02
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879757
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
legus9raВ запросе VBA прописал ячейку, в которой должен отражаться текст соски Это как? Не понял.
legus9raТекст слишком длинный и одной ячейки недостаточно Почему недостаточно? По умолчанию, если правее ячейки с текстом все ячейки девственно чисты, то весь текст виден.
legus9raкак мне можно вставить пустую строку после таблицы с данными Но ведь ниже таблицы итак все строки пустые. Serg197311, вам правильно подсказал, только хотел выделить цифру 2 другим шрифтом, а не сработало.
Код: vbnet
1.
xlsheet.Cells (i + 2, 1).FormulaR1C1 = "текст"


legus9raЛибо как мне тогда объединить ячейки? Метод MergeCells диапазона. А вообще, для освоения объектной модели включайте запись макроса ваших действий и изучайте результат.
...
Рейтинг: 0 / 0
22.10.2019, 11:04
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879761
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
legus9raПодскажите, пожалуйста, как мне можно вставить пустую строку после таблицы с данными (таблица в Excel, ввгруженная из Access 97). Не понятно следующее:после вставки таблицы на лист Ёкселя все строки после нее будут пустыми(зачем еще что-то вставлять). Достаточно CurrentRegion определить последнюю строку,вставить в следующую (или через одну) текст и соответственно его отформатировать
Вопрос не для форума по ACCESS
...
Рейтинг: 0 / 0
22.10.2019, 11:10
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879788
legus9ra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
legus9ra
Гость
sdku,

По поводу соски, там сноски, т9, но я думал, что тут можно догадаться.
Недостаточно, потому что у меня стоит перенос текста , поэтому ячейка превратилась в небоскрёб. А текста там реально много, поэтому я попросил, как мне в соответствующей строке объединить ячейки, про MergeCells я и так знаю, но в данной ситуации не знаю как его применить.
По поводу того, что мне подсказали - у меня так все и было, я же не спрашивал, как вставить текст после таблицы в конкретную клетку.
Вообщем, если знаете, как можно объединить клетки указанной по формуле ниже строке - напишите, пожалуйста.
...
Рейтинг: 0 / 0
22.10.2019, 11:37
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879846
legus9ra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
legus9ra
Гость
Всем спасибо, разобрался сам) взял материал отсюда https://www.sql.ru/forum/866316/obedinenie-yacheek-excel-vba
...
Рейтинг: 0 / 0
22.10.2019, 12:50
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879885
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
как вариант:
Код: vbnet
1.
2.
3.
4.
5.
6.
Sub my()
Dim i
i = Range("a1").CurrentRegion.Rows.Count + 1
Range("a" & i & ":D" & i + 2).Merge
Range("a" & i) = "Ваш текст" 'или блок WITH по этой ячейке-выравнивание,цвет фона,текста и др.свойства
End sub
...
Рейтинг: 0 / 0
22.10.2019, 13:26
| Ответить | Цитировать | Написать  
Вставка строки после данных таблицы
    #39879989
legus9ra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
legus9ra
Гость
sdku,

Благодарствую)
...
Рейтинг: 0 / 0
22.10.2019, 15:18
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вставка строки после данных таблицы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=25&tid=1610415]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 12ms
total:  154ms
созд. / загр.: 154ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]