Microsoft Excel: Вопросы и ответы - Обсуждение программ - Страница 13

11.10.2002, 23:21

Нет ли у кого программки соответствующей ? Существует такая вещь - Office Recovery, пакет программ для восстановления файлов MS Ofiice и т.п., нужна хотя бы Excel Recovery - ни одна из найденных ссылок не работает :-(((

Демо версия восстанавливает лишь частично - т.е. не катит..

Пожелание
Вопросы типа помогите написать макрос или помогите разобраться как работает макрос и т.д. не связанные с общими принципами работы Excell желательно не только подробно описывать но и сопровождать примером

Читаем правила, за треп не по теме здесь наказывают, поэтому спасибы в репутацию или в приват.

korotetsky · 26.09.2006, 20:41

в каком виде цифры и буквы? обрисуй, либо пример подбрось.

Alex Dark · 27.09.2006, 06:09

Самы

Цитата:

Pride Assa$$in™:
Я понимаю что это наверное просто очень,

Конечно просто.
Перебираешь ячейки. Для каждой ячейки меребираешь посимвольно содержание. Если число - складываешь, умножаешь, делишь, вычитаешь.

А лучше прицепи пример.

ну вот так для ячейки можно сделать

rez = 0
'
MsgBox ActiveCell.FormulaR1C1
L = ActiveCell.FormulaR1C1
For i = 1 To Len(L)
If Val(Mid(L, i, 1)) <> 0 Then ' Это условие можно вообще отключить
rez = rez + Val(Mid(L, i, 1))
End If
Next
MsgBox rez
End Sub

работает для текущей ячейки

Pride Assa$$in™ · 27.09.2006, 10:22

Уфф ... Проблема снята... Оказалось, дело в том, что в столбце были еще и буквы, то есть обозначения валют, например USD, RUR; кроме того, в качестве разделителя разрядов использовалась точка, а не запятая. Достаточно было убрать буквы и поменять точку на запятую - СУММ прекрасно справилась !

Wolf74 · 29.09.2006, 15:07

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

Alex Dark · 02.10.2006, 09:05

Цитата:

Wolf74:
одном листе ведеться учет прихода зерна там в ячейке забиваеться номер автомобиля, как сделать так чтобы в ячейке напротив согласно набраному номеру автомобиля автоматически прописывалась фирма

Ну ты и завернул. Сделать можно, но сложно. Проще открыть Access и сотворить там за 5 минут, нежели в екселе.

ну а если так сильно надо то ща прицеплю. Сам разберешься?

что то не грузится архив

korotetsky · 02.10.2006, 10:07

Цитата:

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

можно, правда путем некоторых "махинаций"

см. аттач

используется функция ВПР. получается, в листе "учет" в ячейку "номер машины" вбиваем номер, в соседнюю подтягивается из списка фирм и номеров машин из листа "база", который нужно подготовить заранее, название фирмы. в пример добавлена конструкция ЕСЛИ(ЕОШИБКА()) - без нее при пустом номере машины название фирмы будет Н/Д.
короче, читаем справку по функциям, там все понятно написано

пс:
хоелось взглянуть на решение от Alex Dark

Alex Dark · 02.10.2006, 11:58

Решение элементарное как ясный день :-)

аттач не аттачится а так, на макросе

по условию у нас 2 листа
"Лист 1":
1 колонка номер (то есть что ищем)
2 колонка функция "=My_Seek(A1)")
параметр - значение первой колонки

"Лист 2" справочник
1 колонка номер (то есть ключ)
2 название (то есть что возвращаем при помощи функции)

[COLOR=Red]
Public Function My_Seek(par)
Dim Лист
My_Seek = "!!! Не найден"
Set Лист = ActiveWorkbook.Sheets("Лист2")
i = 2
Do While True
If IsEmpty(Лист.Cells(i, 1).Value) Then
Exit Do
End If
If UCase(Лист.Cells(i, 1).Value) = UCase(par.Value) Then
My_Seek = Лист.Cells(i, 2)
Exit Do
End If
i = i + 1
Loop
End Function
[COLOR=Black]

Alex Dark · 02.10.2006, 13:46

PS кому то нравятся формулы, мне не очень, лучше функцией. В формулах долго ковыряться, а особо когда не совсем понятно что она (они) делаеют, а в примере как всегда простенький примерчик, а в описании то же не густо. В любом случае и у функции и у формулы есть свои "+" и "-" Да и конечному пользователю намнго понятнее формула "=Расчет()" нежели трехэтажная формула со множеством условий и пераметров. Во всяком случае так как сделал korotetsky то же очень не плохо

korotetsky · 02.10.2006, 13:55

Цитата:

Alex Dark:
PS кому то нравятся формулы, мне не очень, лучше функцией. В формулах долго ковыряться, а особо когда не совсем понятно что она (они) делаеют, а в примере как всегда простенький примерчик, а в описании то же не густо.

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

пс. решение действительно простое

morJ · 02.11.2006, 09:41

Плз люди помогите!!! Редактировал один документ, случайно вместо "save as" сделал "save". Прогу закрыл. Можно ли каким-нибудь образом восстановить старые данные?

Сорри, на 10-й странице нашел ответ, пост можно удалить.

abdu · 03.11.2006, 14:31

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

Cartman · 03.11.2006, 15:46

Поиском пользоваться религия не позволяет?
Объединяю.

Seva · 03.11.2006, 18:07

Как через макрос проверить существует ли файл?

korotetsky · 03.11.2006, 18:11

Цитата:

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

ты бы файлик приатачил

Alex Dark · 05.11.2006, 09:19

Цитата:

Сообщение от Seva

Как через макрос проверить существует ли файл?

FILE = Dir("ДИСК:\ПУТЬ\ФАЙЛ.РАСШИРЕНИЕ")

Если файл есть FILE="ФАЙЛ.РАСШИРЕНИЕ" если нет то FILE=""

FILE = Dir в цикле перебирает файлы если вместо "ФАЙЛ.РАСШИРЕНИЕ" указать маску поиска

Цитата:

Сообщение от abdu

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

Да. Картинка не помешала бы.
Может у тебя цветовая схема самодельная и не повторимая?

korotetsky · 06.11.2006, 13:03

наткнулся на фигню. неприятную.

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

проблема в следующем: макросом все выполняется без проблем и нареканий, но если это дело прицепить на кнопку, то получаем:

Цитата:

Run-time error '1004':
Метод Select из класса Range завершен неверно

лист копирует, сортировать не хочет, запнувшись на ошибке с выделением.
не соображу куда рыть и как эту гадость заставить работать
вот сам текст, ошибается на красном:

Код:

    Sheets("calendar").Delete
    Sheets("total").Select
    Sheets("total").Copy Before:=Sheets(2)
    Sheets("total (2)").Select
    Sheets("total (2)").Name = "calendar"
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Range("A8:AA122").Select
    Range("AA122").Activate
    Selection.Sort Key1:=Range("L8"), Order1:=xlAscending, Key2:=Range("C8") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("A1:AA130").Select
    Range("AA130").Activate
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AA$130"
    Range("D8").Select

есть у кого-нибудь мысли?

Alex Dark · 06.11.2006, 15:36

Цитата:

korotetsky:
есть у кого-нибудь мысли?

Во первых, все что касается не VB а Excel лучше аттачить сам файл, потому что у меня твой кусок работает. Наверное потому, что уже наступал на эти грабли и на автомате цепляю макрос правильно.

Вообще то, я всегда для операций типа Range("A8:AA122").Select добавляю ActiveSheet или явное указание листа. Добавь попробуй

PS вот приаттачил. Это файл XLS переименованный в TXT. Извините. нахожусь в школе, а тут комп голый

korotetsky · 06.11.2006, 15:47

еще вдогонку вопрос:

таблица имеет сгруппированые строки. как при сортировке заставить excel првильно разносить эти сгруппированные строки? ибо рвет нещадно.

Alex Dark · 06.11.2006, 15:52

Цитата:

korotetsky:
разносить эти сгруппированные строки

приаттачь файл, лень придумывать что ты хочешь получить

ps у меня вообще отказывается сортировать сгруппированные ячейки

korotetsky · 06.11.2006, 16:21

файл аттачить не могу - конф.

, а разбирать до нужного уровня долго

хотя щас попытаюсь воссоздать нечто подобное

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

сортировка к примеру по дате 2 дает бок - строки из подгрупп рассеиваются. забивать все идентично неприемлемо. от сортировки требуется чтобы подгруппы перемещались вместе со своими родительскими строками, сохраняя структуру.

26.09.2006, 20:41	# 241
korotetsky kotofeysky Регистрация: 29.05.2005 Адрес: подоконник Пол: Male Сообщения: 2 875	в каком виде цифры и буквы? обрисуй, либо пример подбрось. __________________ все мы друг другу грузовики. все мы возим друг друга друг в друге...

27.09.2006, 10:22	# 243
Pride Assa$$in™ Full Member Регистрация: 22.01.2002 Адрес: Минск, Беларусь Пол: Male Сообщения: 529	Уфф ... Проблема снята... Оказалось, дело в том, что в столбце были еще и буквы, то есть обозначения валют, например USD, RUR; кроме того, в качестве разделителя разрядов использовалась точка, а не запятая. Достаточно было убрать буквы и поменять точку на запятую - СУММ прекрасно справилась ! __________________ ...то, что не стереть, как сильно ни три, свобода – это то, что у меня внутри... Последний раз редактировалось Pride Assa$$in™; 27.09.2006 в 10:57. Причина: Проблема решена!

02.10.2006, 11:58	# 247
Alex Dark КОТовский Регистрация: 12.03.2003 Адрес: ОренБюргер Пол: Male Сообщения: 1 569	Решение элементарное как ясный день :-) аттач не аттачится а так, на макросе по условию у нас 2 листа "Лист 1": 1 колонка номер (то есть что ищем) 2 колонка функция "=My_Seek(A1)") параметр - значение первой колонки "Лист 2" справочник 1 колонка номер (то есть ключ) 2 название (то есть что возвращаем при помощи функции) [COLOR=Red] Public Function My_Seek(par) Dim Лист My_Seek = "!!! Не найден" Set Лист = ActiveWorkbook.Sheets("Лист2") i = 2 Do While True If IsEmpty(Лист.Cells(i, 1).Value) Then Exit Do End If If UCase(Лист.Cells(i, 1).Value) = UCase(par.Value) Then My_Seek = Лист.Cells(i, 2) Exit Do End If i = i + 1 Loop End Function [COLOR=Black] __________________ Все мы финансовые гении и эффективные менеджеры, только не у всех одногруппник или сосед по даче - президент.

02.10.2006, 13:46	# 248
Alex Dark КОТовский Регистрация: 12.03.2003 Адрес: ОренБюргер Пол: Male Сообщения: 1 569	PS кому то нравятся формулы, мне не очень, лучше функцией. В формулах долго ковыряться, а особо когда не совсем понятно что она (они) делаеют, а в примере как всегда простенький примерчик, а в описании то же не густо. В любом случае и у функции и у формулы есть свои "+" и "-" Да и конечному пользователю намнго понятнее формула "=Расчет()" нежели трехэтажная формула со множеством условий и пераметров. Во всяком случае так как сделал korotetsky то же очень не плохо __________________ Все мы финансовые гении и эффективные менеджеры, только не у всех одногруппник или сосед по даче - президент.

02.11.2006, 09:41	# 250
morJ Member Регистрация: 26.01.2004 Адрес: City of Winds Сообщения: 281	Плз люди помогите!!! Редактировал один документ, случайно вместо "save as" сделал "save". Прогу закрыл. Можно ли каким-нибудь образом восстановить старые данные? Сорри, на 10-й странице нашел ответ, пост можно удалить. __________________ BAD SEX is better than a good day at work!!! Последний раз редактировалось morJ; 02.11.2006 в 09:49.

11.10.2002, 23:21	# 1
kolodez Guest Сообщения: n/a	Microsoft Excel: Вопросы и ответы Нет ли у кого программки соответствующей ? Существует такая вещь - Office Recovery, пакет программ для восстановления файлов MS Ofiice и т.п., нужна хотя бы Excel Recovery - ни одна из найденных ссылок не работает :-((( Демо версия восстанавливает лишь частично - т.е. не катит.. Пожелание Вопросы типа помогите написать макрос или помогите разобраться как работает макрос и т.д. не связанные с общими принципами работы Excell желательно не только подробно описывать но и сопровождать примером Читаем правила, за треп не по теме здесь наказывают, поэтому спасибы в репутацию или в приват. Последний раз редактировалось Alex Dark; 29.05.2009 в 06:52.

29.09.2006, 15:07	# 244
Wolf74 Junior Member Регистрация: 17.12.2002 Адрес: Харьков Сообщения: 87	Привет всем. подскажите выход из ситуации. как можно провернуть. такое. на одном листе ведеться учет прихода зерна там в ячейке забиваеться номер автомобиля, как сделать так чтобы в ячейке напротив согласно набраному номеру автомобиля автоматически прописывалась фирма -грузоперевозчик. Заранее спасибо за помощь.

03.11.2006, 14:31	# 251
abdu Junior Member Регистрация: 08.05.2003 Адрес: Tajikistan Сообщения: 150	Заливка в Excel Проблема такая. делаю заливку ячеек, ничего не происходит, но в режиме предварительного просмотра заливка есть. Я так думаю проблема в настройках, но сам не нашел

03.11.2006, 15:46	# 252
Cartman Migel Mod Volos Регистрация: 09.09.2003 Адрес: МПЛ-в почетной д Сообщения: 7 486	Поиском пользоваться религия не позволяет? Объединяю. __________________ Все "спасибы" - в приват и в репутацию! не засоряйте форум!!!! © Plague Небьющаяся игрушка - это игрушка, которой ребенок может разбить все свои остальные игрушки. IMHO - отдых в Анапе

03.11.2006, 18:07	# 253
Seva ::VIP:: Регистрация: 04.12.2002 Адрес: Minsk Сообщения: 775	Как через макрос проверить существует ли файл?

06.11.2006, 15:47	# 258
korotetsky kotofeysky Регистрация: 29.05.2005 Адрес: подоконник Пол: Male Сообщения: 2 875	еще вдогонку вопрос: таблица имеет сгруппированые строки. как при сортировке заставить excel првильно разносить эти сгруппированные строки? ибо рвет нещадно. __________________ все мы друг другу грузовики. все мы возим друг друга друг в друге...