» Excel FAQ

Нужно чтобы текстовый файл добавлялся в занятую ячейку Экселя. (Я думаю,что
это делается в макросах).
?

Да он и так вставляется. Скопируй файл в буфер обмена. Выдели нужную ячейку, нажми F2 и вставляй.

Michael II Неправда твоя, попробуй вставить тестовый файл из нескольких строк.

Сделать это можно c помошью Вазика-Базика, заменяя переводы строк на Chr(10).

Можно так:
Sub TextCellLoad()
Dim fs, f, ts, s
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fileToOpen)
Set ts = f.OpenAsTextStream(1, -2)
Do While ts.AtEndOfStream <> True
s = ts.ReadLine
s2 = s2 & s & Chr(10)
Loop
ActiveCell.Value = Left(s2, Len(s2) - 1)
ts.Close
End If
End Sub

Не знаю, как у тебя, а я вставляю спокойно хоть пол-страницы в одну ячейку. Если надо могу прислать скриншот.

Michael II Странно, но у меня, если вставлять текст из нескольких строк то вставляется в активную и в те что ниже по количеству строк.

Может у тебя просто криво оффис встал или какая-нибудь другая версия. У меня Office XP с русским MUI.

ymy
Ты F2 то жмешь перед тем как вставить, т.е. переводишь ячейку в статус редактирования перед вставкой? У мя тоже нормально вставляется.

KLASS Про F2 не знал, но вот сейчас попробывал вставить с помощью F2, так вот на всякие там - = Excel ругается на неправильную формулу.

ymy

Цитата:

Про F2 не знал

Дык тыж замечание Michael II сделал как раз после его поста (см. выше) где он про F2 сказал

Цитата:

Выдели нужную ячейку, нажми F2 и вставляй

Цитата:

так вот на всякие там - = Excel ругается на неправильную формулу.

Я вот ща взял и скопировал мой и твой последние посты вместе с
Цитата:

- =

и вставил в одну ячейку, все нормально, без матов. Конечно в известных пределах можно вставлять. Войну и Мир точно в одну ячейку не впихаешь. Высота строки 409 пунктов, ширина столбца 255 знаков... Я вот заметил, что если из Excel'a копируешь в другой лист то нифига не вставляется, а если из простого текстового файла то можно внушительный текстовый файлик вставить. Ну убей офис (Excel же ругается не Вынь) да поставь взад, делов то... проверь... если будут опять проблемы тады ОЙ!

KLASS

Цитата:

Дык тыж замечание Michael II сделал как раз после его поста (см. выше) где он про F2 сказал

Да тормоз я, тормоз, признаю.

А с Erroro-м, вот попробуй вставь

Цитата:

- Сколько людей надо, что бы убить таракана?
- Пять. Один загоняет его под шкаф, а четверо подпиливают ножки.
- Тогда не пять, а семь.
- Почему?
- Потому что у таракана шесть ног.

Я получаю: The formula you typed contains error, bla-bla-bla

ymy
Ну не нравится Excel'у шоб в начале текстовой строки использовались знаки из формул..., логично я думаю...или формулу пиши или, сделай как он просит с одиночной кавычкой в начале первой строки, он и ругаться не будет, да и кавычки все одно не видно будет...

Код:
'- Сколько людей надо, что бы убить таракана?
- Пять. Один загоняет его под шкаф, а четверо подпиливают ножки.
- Тогда не пять, а семь.
- Почему?
- Потому что у таракана шесть ног.

KLASS
Не ну с одиночной кавычкой понятно, но уже не чисто, а вот макрос работает по любому

ymy

Цитата:

но уже не чисто

Согласен... , главное чтобы STEEL устраивало, если помнишь, он вопрос поднял

А если ячеек 200000 штук?

STEEL
Поясни подробнее задачу пожалуйста.

дубль
Помогите пожалуйста
как сделать поиск и замену по шаблону вида
* * * заменить на *, * *
т.е. поставить запятую после первого слова

если делать обычной поиск-замена то он заменяет все слова на звездочки

steroid
А по-подробнее...

steroid
=ПОДСТАВИТЬ(ТвояСтрока;" ";", ";1)

KLASS
подробнее
есть ячейки забитые так :
Иванов Иван Иванович

надо изменить их на такой вид :
Иванов, Иван Иванович

тоесть поставить запятую после фамилии
фамилий много, вручную слишком долго это делать, да и не кузяво.


nofate Типа ... это .... ламеры мы... нам бы попроще как нибудь обьяснить ..

steroid

Цитата:

Private Sub Zamena()
Dim Stroka As String
Dim Pos As Integer
Dim i As Integer
For i = 1 To Application.CountA(Worksheets("Лист1").Columns(1)) 'т.е. от верха до низа
Stroka = Cells(i, 1) 'i - номер строки, 1 - столбца
Pos = InStr(1, Stroka, " ") 'ищем первый пробел
Cells(i, 1) = Left(Stroka, Pos - 1) + ", " + Right(Stroka, Len(Stroka) - Pos) 'вставляем запятую
Next i
End Sub 'Zamena

Попробуй.

steroid

Цитата:

Типа ... это .... ламеры мы... нам бы попроще как нибудь обьяснить

В дополнение к Horex.
В место Лист1 вставишь название своего листа, где лежат фамилии.
Уберешь слово Private перед Sub

Вызывается (в E2K) Cервис->Макрос ->Макросы Там введешь имя макроса (Zamena), затем вставишь макрос. Сохранишся. Для выполнения выберешь "Выполнить". (Из книги в которой находится лист).

steroid
Извини за краткость. Просто я подробное объяснение набирал трижды, но из-за плохой связи они кудато в пропасть...
Поэтому написал только формулу. Щас поясню мысль.
Твоя проблема может быть ГОРАЗДО проще решена не через поиск-замену, а с помощью функций обработки строк.
1. Пусть твои "Иван Ивановичи" находятся в столбце A, в ячейках начиная с A1.
2. В ячейке B1 пишешь формулу
=ПОДСТАВИТЬ(A1;" ";", ";1)
3. Копируешь ячейку B1 (за ее правый нижний мышом тянешь угол, знаешь, да?) во все нужные нижние ячейки.
4. Нужный тебе результат - уже в столбце B. Скопируй его как значение туда, куда тебе надо (да хоть бы и в A).

Что непонятно - спрашивай.

Какая же всё-таки сволочь этот ХР(енов) оффисс! Только что на собственной шкуре обнаружил серьёзный баг, напрочь убивший все макросы и VBA-приложения в одном весьма ценном документе.. Была форма, в ней - текстовое поле; вставил туда содержимое буфера(список из 5-10 папок в несколько строк), повторил ещё раза два (хотел проверить максимальную вместимость текстового поля) И.. случилось страшное: VBA подвис на полминуты, потом отвис, я попытался сохранить файл, он сохранил его со второй попытки.. и после этого файл (он был в HTML формате) больше не открывается, а editdata.mso - файл, где хранились все VBA-проекты обнулился Вот такая вот история..

Ещё один баг: почему-то невозможно добавить в VBA-проект свою цифровую подпись: выбираю свой сертификат, сохраняю файл, открываю его снова - подписи в файле нет.

никто не знает как его поставить в режим предустановки (демо
режим), пробовал setup /q: l /m не помогает.

Люди, а кто сталкивался с подобным. Пришел прайс на 839 Кб, а предыдущий у мя лежит один в один, (в новом цены в 10 строчках исправлены) весит 37 Кб. Думаю ладно... наверно формат документа раздули...очищаю формат, на 5 кб меньше стал... дальше все выделяю жму удалить сохраняю и пустой документ весит 800 Кб, как раз меньше на сам прайс, убрал всякие там колонтитулы и все одно... ааа... откуда эти килобайты?? где сидят?? На вири проверял, тихо. И как то странно ведет в этом документе колесо от мыша, подтормаживает и прокручивает страницу не как в других доках, а медленнее. ЧАВО это?

KLASS
а там случаем, графические обьекты нигде не поныкались...
а то было у меня такое - тоже с прайсом, оказалось они туда рекламу встроили, но "что-то не сложилось"

Tim72
Нашел скрытые (пустые) подписи, а удалять не удаляются, вернее удаляются и снова появляются, причем находятся в одном месте и если до этого места копировать то размер получается скромный, а если с подписями то боьшой, барабашка однако. Плюнул... в старом прайсе цифири подправил и добавил десяток строк, аж на 5 кб больше стал

а как сделать поиск по определенному значению в ячейке если оно =1,
то копировать всю строку в другой лист?

как можно ограничить длину строки в ячейке. Есть, к примеру, ячейка с наименованием длиной в 50 символов, для переноса в бух.программу максимальная длина 30 символов. Может есть какая формула для обрезания строк ?

Добавлено
нашел в справке, это функция ЛЕВСИМВ

help
В ручную - так:
Автофильтр по искомому значению. Затем выделяешь то, что видишь. Затем - "выделять только видимые ячейки. А потом через буфер - в новый лист.