А как это делается что то ни чего не получается

{quote}{login=}{date=11.01.2012 01:59}{thema=}{post}А так попробуйте{/post}{/quote}  
То же самое.  
Запустил тест установки Офиса, он нашел какую-то ошибку, исправил, но не помогло.  
Попробую еще поконвертировать туда сюда через разные форматы, может что-нибудь получится.

У меня, к сожалению, изображение с виртуального совпадает с печатным, но не совпадает с предпросмотром )  
У кого нормально рапечаталось пересохраните и выложите обратно, я попробую опять распечатать, по идее не поможет, но мало ли )

{quote}{login=vikttur}{date=22.12.2011 04:44}{thema=}{post}Автор давно не появляется. Ответ от других устроит?  
С Вас пример.{/post}{/quote}  
Прошу прощения за долгий ответ, поздравляю всех с прошедшими праздниками/  
На листе 2 графика, первый неправильно печатается, воторой частично печатается (низ есть верха нет).  
Пока справляемся офисом 10ым. Картинку и пример прикрепил.

У меня примерно такая же проблема, график указанными значениями - графикик печатаются, а текст нет. При чем текст в ячейках печатается нормально, а вот подписи на графике, или если сделать надпись с текстом, то не печатается. Так на 2х компах с 2007 офисом.  
Только что попробовали на 2010 офисе - все нормально распечаталось.  
Вопрос для топикстартера: вы как-то решили эту проблему?  
пс: понимаю что практически некропост, но только только успокоился в связи со сменой 2003 на 2007 офисы )

{quote}{login=R Dmitry}{date=29.08.2011 09:17}{thema=Re: Выделение ячеек в таблице при выполнения условия}{post}  
=СЧЁТЕСЛИ($E$2:$E$61;A2)  
выделяете 1 таблицу, и вставляете такое условие в условное форматирование{/post}{/quote}  
Спасибо, все получилось

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

{quote}{login=The_Prist}{date=03.04.2011 10:13}{thema=}{post}Запишите рекордером вставку в ячейку этой формулы. Затем уже чуть подредактировав примените в цикле макроса.{/post}{/quote}  
 
Спасибо. Я примерно предполагал о таком способе. Но ни разу еще так не пробовал. А может у кого есть готовое решение?

Задача, чтобы в ячейке появлялась именно функция ОКРУГЛ, и ее не вручную вписывать приходилось добавлять к тому, что уже есть в ячейке, а автоматически. И можно было это применять не только к одной ячейке, а сразу к выделенному диапазону.

При использовании функции ЧИСТВНДОХ заметил некоторые особенности.  
1) Даты должны быть указан по возрастанию. Пробовал сортировать по убыванию - не работает. Иногда не очень удобно. Но может есть решение?  
2) Более насущное. В формуле указываются два диапазона: даты и значения. Причем диапазоны, как я понял, должны быть цельными. Т.е. нельзя, например как в функции СУММ, указать несколько диапазонов. А хотелось бы указать несколько диапазонов для дат и несколько диапазонов для значений (понятно, то они должны соответствовать друг другу). Кто-нибудь знает, как это можно сделать?

Подскажите, пожалуйста, как сделать кнопку с функцией ОКРУГЛ(х;0). Чтобы можно было нажав на эту кнопку, автоматически вписать имеющееся выражение в выделенной ячейке (или диапазоне ячеек) в функцию ОКРУГЛ(х;0).  
Заранее спасибо.

{quote}{login=Казанский}{date=08.03.2011 11:34}{thema=}{post}Попробуйте. Почему-то первый диапазон в таблицу вставляется криво, остальные - нормально (офис 2000 рус).  
Разбираться уже нет времени, уезжаю. Может, кто-то доделает.{/post}{/quote}  
 
огромное спасибо, самое оно

нашел время и воспользовался поиском, сделал почти всё, осталось только 1) чтобы каждый договор не создавался новый файл word а новый лист в worde (так и не понял как это делается)  
2) если у одного договора несколько объектов, то создавался один лист с договором, а в таблицу попадали данные всех его объектов

данные со столбца 7  
на не 10

выложил код в текстовом файле

сделал разбор строки  
как мне пробежаться по всему столбцу №7 взять от туда данные  
а затем раскидать их по столбцам?  
 
Sub rabor()  
Dim str1 As String 'naia no?iea  
'Dim str2 As String 'nomer  
Dim fider As String 'data  
Dim PC As String  
Dim VL As String  
Dim arr() As String  
Dim KTP As String  
Dim Yach  As String  
Dim iCount As Long 'Äëèííà ìàññèâà  
 
str1 = "Ïð [À] 6 êÂ, ÐÙ-ÐÏ2-16"
'If str1 = "0" Then  
 
arr = Split(Trim(str1), "]")  
'ôèäåð  
If Len(arr(0)) = 6 Then  
 fider = Right(Trim(arr(0)), 2)  
Else  
 If Len(arr(0)) = 5 Then  
 fider = Right(Trim(arr(0)), 1)  
 End If  
End If  
If fider = "À" Then 'str1 = "Ïð [À] 6 êÂ, ÐÙ-êèîñê ¹ 3"
 arr = Split(Trim(arr(1)), ",")  
 KTP = arr(1)  
Else  
 arr = Split(Trim(arr(1)), "-")  
 iCount = UBound(arr) + 1  
 If iCount = 6 Then 'str1 = "Ïð [Ô1] 0.4 êÂ, ÒÏ-37-21-2-3-2Áûò"
   PC = arr(1)  
   Yach = arr(2)  
   KTP = arr(3) + "-" + arr(4) + "-" + arr(5)  
 Else  
 'ÏÑ  
  PC = arr(1)  
  'ß÷åéêà  
  Yach = arr(2)  
  'ÂË  
  VL = PC + "-" + Yach  
  KTP = arr(1) + "-" + arr(2) + "-" + arr(3)  
  End If  
End If  
 
End Sub

в столбце есть такие типы данных  
необходимо их разбить на  
1)Пр [Ф1] 0.4 кВ, ТП-37-15-6"Мечеть"
должно быть в разных столбцах    
Ф1  
37  
15  
6  
"Мечеть"  
2)Пр [Ф1] 0.4 кВ, ТП-15-7-3
Ф1  
15  
7  
3  
3)Пр [А] 6 кВ, РЩ-киоск № 3
А  
РЩ-киоск № 3  
4)Пр [Ф1] 0.4 кВ, ТП-37-21-2-3-2"Быт"
Ф1  
37  
21  
2  
3  
2  
"Быт"  
5)Пр [Ф] 0.4 кВ, ТП-22-12-Б\Н
Ф  
22  
12  
Б\Н

{quote}{login=Kuzmich}{date=04.03.2011 08:03}{thema=Re}{post}С дополнительным столбцом  
можно воспользоваться и ВПР{/post}{/quote}  
 
тоже отличный вариант!

огромное, очень выручил

пример  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

вот мои файлы

{quote}{login=Владимир}{date=04.03.2011 07:00}{thema=}{post}..?{/post}{/quote}  
я протягиваю формулы дальше и выставляю больше диапазоны и он выдает Н.Д

{quote}{login=Владимир}{date=03.03.2011 05:40}{thema=}{post}А столовой в примере, не должно быть.{/post}{/quote}  
 
запутался в формулах  
вот отредактировал пример прямо под себя

что то типа ВПР но сложнее  
есть договора на листе Начальные данные, и есть теже договора но в разбросанном порядке.  
мне необходимо разнести данные столбцов Name и Prim на лист Куда копировать по условию равенства данных двух столбцов Nomer и Obj  
 
все в примере

Здравствуйте. Помогите пожалуйста.    
В таблице "список ТС" в графу "Расход топлива на 100км" нужно поставить значение из таблицы "нормы расхода" причем в зависимости от условий ( лето, зима, распутица) и для каждой машины, они разные.  
Подскажите как это сделать. А то техники много и запутаться очень просто

{quote}{login=vikttur}{date=26.07.2010 11:49}{thema=}{post}=РАНГ(D2;$D$2:$D$8;0)+СЧЁТЕСЛИ($D$2:D2;D2)-1{/post}{/quote}  
Не подходит, потому что при одинаковой нагрузке должны быть одинаковые места в рейтинге. Если два цеха с нагрузкой 1.0, то и места у них соответственно 3, а у цеха с нагрузкой 0.6 место должно быть 4-е, следующее 5-е и т.д.  
А структуру нарушать нельзя, т.к. сортировка идет по цехам.  
Как быть в таком случае?

Option Explicit  
 
Sub Raznoska()  
Dim shBalans As Worksheet  
Dim i As Long, iLastRow As Long, lClmn As Integer  
Dim iFoundRng As Range, iSchet As String  
 
Application.ScreenUpdating = False  
 
Set shBalans = ThisWorkbook.Sheets("Лист1")  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
lClmn = Day(Cells(2, 3)) + 1 'если дата отличается - преносим в тело цикла _  
меняем 2 на i и каждый раз определяем дату и позицию колонки  
 
For i = 2 To iLastRow 'со 2-й строки до последней на листе1  
iSchet = Cells(i, 1) 'какой счет будем искать  
 
With shBalans  
Set iFoundRng = .Columns(1).Find(What:=iSchet, LookIn:=xlFormulas, LookAt:=xlWhole) 'поиск счета  
 
If Not iFoundRng Is Nothing Then 'если нашли  
Cells(i, 2).Value = .Cells(iFoundRng.Row, lClmn).Value  
'.Cells(iFoundRng.Row, lClmn).Value = Cells(i, 2).Value  
End If  
 
End With  
Next i  
 
Application.ScreenUpdating = True  
 
End Sub  
 
вот так запоминает номер счета с листа баланс, ищет совпадения на листе1, если есть, то копирует значение найденного счета с лист1 в первый столбец листа Баланс, но по датам не разносит    
это место я вообще не понял что-то  
Set shBalans = ThisWorkbook.Sheets("Лист1")  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
lClmn = Day(Cells(2, 3)) + 1 'если дата отличается - преносим в тело цикла _  
меняем 2 на i и каждый раз определяем дату и позицию колонки

всётаки хотелось бы макросом все это сделать

нашел как нажать Ctrl + Shift + Enter

{quote}{login=Марчук}{date=26.07.2010 10:02}{thema=}{post}так?  
 
 
диапазон только сам расширь{/post}{/quote}  
 
а что-то когда начинаю менять диапазон исчезают {}скобки  и результат формулы всегда равен 0, как правильно поменять диапазон на  
=СУММ((Лист1!$A$2:$A$5000=$A9)*(ДЕНЬ(Лист1!$C$2:$C$5000)=O$2)*Лист1!$B$2:$B$5000)