Microsoft Excel: Вопросы и ответы

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

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

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

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

[Alex Dark]

ну у меня офиса нет под рукой, но я бы сделал так

For block = 9 To 56
I= block mod 2
if i=0 then 
	'	кратно 2
else
	'	не кратно 2
endif
next

PS MOD Делит одно число на другое и возвращает только остаток.

[Borland]

Alex Dark, переменную I вводить необязательно...

For block = 9 To 56
if block mod 2 = 1 then 
	'	нечет, "один набор команд"
	.......
else
	'	  чёт, "другой набор команд"
	.......
endif
next

[Alex Dark]

ЗЫ я в курсе.
просто так нагляднее и понятнее

[Plague]

Alex Dark, Borland,
половина вопроса решена. один талмуд отрихтовал, всё работает
Теперь нужно вернуться на почти полтора года назад, в файлик который сочинил Alex Dark
как я понимаю, там скрипт пропускает первые две строки и первые две колонки, по остальным ячейкам бежит и выполняет заданные операции. Вот тут тоже надо разделить: на ячейки в четных строках выполнять старую манипуляцию по раскраске ячеек, а в нечетных немного другую (на все сравниваемые условия минуту добавить)...
Пробовал по такому же принципу (If MyRow mod 2 = 1 Then) - ровным счетом ничего не изменилось. Ни ошибку не выдало, ни работать не стало иначе...

добавлено
в какой переменной у него лежит номер строки?
вроде в дебагере смотрю MyRow чуть выше - как раз то что надо, но именно в этом месте

.....
  Else
+   If MyRow mod 2 = 1 Then
        If AA < 0.000011574074 Then   '   до 1 секунды
.....

оно empty

[Borland]

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

в какой переменной у него лежит номер строки?
вроде в дебагере смотрю MyRow

В MyRow и лежит, насколь я логику автора понимаю.

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

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

Чтобы сильно много не переправлять, я бы сделал так: скопипастил бы sub БоеваяРаскраска с новым именем (например AltБоеваяРаскраска) с соответствующим изменением условий (где там надо - минуту прибавить), а 52-ю строку (вызов "Боевой раскраски") заменил бы на соответствующий if:

if MyRow mod 2 = 1 then 
	AltБоеваяРаскраска
else
	БоеваяРаскраска
endif

Где-то так...

<added>

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

именно в этом месте
.....
оно empty

"Именно это место", насколь я понимаю, в теле "боевой раскраски"? Не знаю точно, как оно в VBA с глобальностью переменных, но подозреваю, что внутри подпрограммы просто недоступна MyRow, заданная в вызывающей программе. Т.е. MyRow НЕ глобальная.

[Plague]

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

[Borland]

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

как ее туды перекинуть

Ну к примеру - параметром "раскраски". Причём можно передавать не номер строки, а сразу признак (не)чётности, т.е. "MyRow mod 2".
Либо в явном виде декларировать MyRow как Public (http://www.ozgrid.com/VBA/variable-scope-lifetime.htm).

[Alex Dark]

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

оно empty

Всё правильно.
процедура "БоеваяРаскраска" предпологает что ты стоишь уже в нужной ячейке (перед вызовом процедуры происходит позиционирование на ячейке)
MyRow определена в "Макрос1" и не доступна в "БоеваяРаскраска".
Решение:
1. строку Dim MyRow, MyCol вывести в первую строку модуля (а из "Макрос1" убрать). Переменная станет глобальной для модуля

2. в "БоеваяРаскраска" есть переменная А. Это текущая ячейка. a.row() возвратит её номер строки т.е.

If (a.Row() mod 2) = 1 Then

Ребят, нужна помощь
1.Есть несколько столбцов с цифрами, нужно чтоб когда протягиваешь его вниз он считал только до 5, потом начинал опять в первом случае с 0,1,2.... во втором с 1,2,3..., бьюсь с форматами, но не могу придумать как сделать.
2.В некоторых яйчейках используется по несколь цифр, а при этом действия надо производит с каждой из цифр в этой яйчейке. Например 765. А мне надо просчитать 7*2=B5, 6*4=C6, 5*3=D7. Как рабить это число на цифры, чтоб потом считать?
3.Необходимо сопоставит данные и вывести кол-во цифр. Т.е. Конечный результат все процедуры у меня будет выглядеть так 4413233334, надо чтоб он в одной яйчейке вывел кол-во едениц, во второй количество пятерок в третей 8к. Т.е. K1=1, К2=2, К3=33333, К4=444

[EvroStandart]

1. Это никакими форматами не сделать. Если только макрос написать.

2. Используй строковые функции. MID тебе поможет.

3. это тоже только макросом.

[ариль]

Нажмите здесь, чтобы увидеть текст полностью

копирую данные из интернет-бнка сбербанка (запрос открывается в отдельном окне браузера).

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

[Borland]

ариль, стандартный "поиск и замена"
"искать" - ввести два пробела, "Заменить на" - оставить поле пустым. Все сдвоенные пробелы удалятся.

[Alex Dark]

Borland, быстрее всего автор хочет упростить работу и т.к. Ctrl+F ещё нажимать надо, а плюс ещё человеческий фактор ...


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

В принципе не вдаваясь в подробности и до безобразия тупо вот так

Sub Макрос2()
Dim CC As Integer, MyCol As Integer
Dim RR As Integer, MyRow As Integer
Dim MyCells
CC = 5 '  число строк
RR = 10  '  число столбцов

For MyCol = 1 To CC
For MyRow = 1 To RR

Set MyCells = Cells(MyRow, MyCol)
If MyCells.Formula = MyCells.Value And (Not IsEmpty(MyCells.Value)) Then
    ss = MyCells.Value
    If IsNumeric(Left(ss, 1)) Then
        Do While InStr(1, ss, " ")
            ss = Replace(ss, " ", "", 1)
        Loop
        MyCells.Value = ss
    End If
End If

Next
Next

End Sub

Посмотришь под отладчиком и всё поймёшь.
В ватчесы добавишь ss, MyCells.Formula и MyCells.Value



PS А что в сбербанке нет нормальной выгрузки??? Что то как то подозрительно. Они вместе с файлом для печати должны присылать файл выгрузки для автоматической обработки. Его и пользовать.

[ариль]

Borland в 2003 SP3 не работает - она не находит ничего.

Alex Dark

Нажмите здесь, чтобы увидеть текст полностью

приходит вообще вордовский файл с пробелами - замучаешься преобразовывать

в чём преимущество скрпита? Ещё искал (забыл) как называются формулы, по которым в зависимости от значения в ячейки придаётся цвет ячейки и пр атрибуты - как называется этот раздел справки?

[Borland]

Сообщение от ариль

в 2003 SP3 не работает - она не находит ничего.

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

Только щас подумалось: пробелы наверно не два подряд "после цифр" а в качестве разделителей разрядов посреди числа? Типа как винда размер файла в байтах отображает? Тогда и вправду предложенная мной схема замены не сработает. Телепалки сообразить что "два пробела после цифр" - это разделители разрядов, не хватило... Заменяйте ничем именно одиночные пробелы.
Единственно что - если в таблице есть "полезные пробелы" (скажем, некий текст) - то поиск/замену нужно проводить только по ячейкам с цифрами, а не по всей таблице...
И замена эта будет работать и в ворде, и в экселе...
Либо, если опять не угадал - "пример файла в студию".

[Alex Dark]

ариль, с инет-банкингом от сбербанка не сталкивался.
Но с точки зрения здравого смысла, тот же самый экспорт в 1С у них должен быть. А это не что иное как обычный текстовик.

К сказанному Borland добавить нечего.
Слишком мало данных.

[Evgeshka]

ужасно стал тормозить excel, office 2007. проблема в том, что чтобы добавить или удалить линию (не дай бог несколько через Ctrl) - то можно чай попить, в магазин сбегать - в прямом смысле. Раньше такого не было... никак не пойму в чём дело... очень много проблем на работе из-за этого... пробовала эту же таблицу на другом компе - та же самая история...

[Brainiacs]

Доброго времени!

Насколько я понял из Вашего сообщение, проблемы с одним файлом exel, с некой таблицей???
Если так, выкладывайте файл, посмотрим что там не так.

With Best Regards
Brainiacs

[Alex Dark]

Согласен с Brainiacs
Правда пока читал Ваши строки, первая мысль была, почисть temp сделай дефрагментацию.

Если таблица содержит конфидециальную инфу, то лучше в приват. Дальше меня не уйдёт.

Есть ещё предположение, что ваш файл был создан или когда то использован в 2007 или 2010.

И ещё. Если файл напичкан формулами (и не простыми формулами) и макросами. Если содержит не один лист с хреновой кучей колонок и строк, то в принципе вполне возможно.

И ещё. Если есть циклическая(ие) ссылки, то книга открывается очень долго. Вот только не помню, сообщение о циклической ссылке отключается или нет.
Если отключается, то - циклическая ссылка

[Evgeshka]

таблицу можно скачать здесь : http://narod.ru/disk/60783793001.189...bleau.xls.html

конфиденциальной информации нет, так что выкладываю сразу на сайте.

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