Подскажите пожалуйста! Горит проект, сегодня сдаю!

Если вы не заметили, то в моем примере, получилось так, что данные, которые идут сверху вниз, на диаграмме отображаются снизу вверх! Можно ли это както исправить?

{quote}{login=VovaK}{date=24.12.2009 06:16}{thema=}{post}Кликните мышкой на текст - текст отметится рамкой. Теперь можно зацепить и переместить всю рамочку или кликом правой кнопки мыши открыть меню текста (там есть выравнивание).{/post}{/quote}  
 
Насчет перетаскивания - это мазохизм.  
А насчет этого выравнивания, так я это уже много раз пробовал. Это "Выравнивание" относится к тексту внутри области подписи.

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

Подскажите, пожалуйста, как можно программно работать с диаграммой.

А никто не подскажет, как можно докопаться к событиям вставки и редактирования, а там дальше я уже разберусь, лишь бы там было чтото вроде параметра Cancel. Из всех событий листа  worksheet_Change(ByVal Target As Range) вроде самое подходящее, но оно только констатирует факт изменения, и не позволяет отменить действие.

Подскажите пожалуйста, как быть?

{quote}{login=Михаил}{date=21.12.2009 07:41}{thema=}{post}так задуманно :({/post}{/quote}  
 
И что, никак?

Имеются защищенные целочисленные поля и списки (защищал так: Данные -> проверка)  
И все работает отлично, пока я просто ввожу данные из клавиатуры. Но как только я использую Copy/Paste, то проверка таким образом вставленных значений не производится.  
 
В чем здесь может быть проблема?  
 
Заранее благодарен!

{quote}{login=ZVI}{date=21.12.2009 01:28}{thema=Re: }{post}{quote}{login=uaAndriy}{date=21.12.2009 07:01}{thema=}{post}Ой! Чето сложновато получилось. В результате получается формула:  
 
= "Супермаркет" & СИМВОЛ(10) & "'" & 'Торгові точки'!$F$4 & "'" & СИМВОЛ(10) & 'Торгові точки'!$G$4 & СИМВОЛ(10) & 'Торгові точки'!$H$4{/post}{/quote}  
 
Sub Test3()  
 Dim LF, Sh, Qt, Fm  
 LF = "&CHAR(10)"  
 Sh = "&'Торгові точки'!"  
 Qt = "&""'"""  
 Fm = "=""Супермаркет""" & LF & Qt & Sh & "$F$4" & Qt & LF & Sh & "$G$4" & LF & Sh & "$H$4"  
 Debug.Print Fm  
 With Range("A1")  
   .WrapText = True  
   .Formula = Fm  
 End With  
End Sub{/post}{/quote}  
 
Спасибо!

Ой! Чето сложновато получилось. В результате получается формула:  
 
= "Супермаркет" & СИМВОЛ(10) & "'" & 'Торгові точки'!$F$4 & "'" & СИМВОЛ(10) & 'Торгові точки'!$G$4 & СИМВОЛ(10) & 'Торгові точки'!$H$4

{quote}{login=ZVI}{date=21.12.2009 06:02}{thema=}{post}Понятно. Найдите макрорекодер обязательно, это упростит Вам работу с VBA.  
Кнопка макрорекодера находится на панели Visual Basic,  панель добавляется из меню Вид - Панели инструментов - Visual Basic.  
В Excel 2007 кнопка макрорекодера (Запись макроса) находится на вкладке Разработчик, эта вкладка добавляется на ленту с кнопки Office - Параметры Excel - Основные - Показывать вкладку Разработчик на ленте.  
 
Для истории:  
 
' Если "Супермаркет" - это текст (слово)  
Sub Test1()  
 With Range("A1")  
   .WrapText = True  
   .Formula = "=""Супермаркет"" & CHAR(10) & Лист1!$F$4 & CHAR(10) & Лист1!$G$4 & CHAR(10) &  Лист1!$H$4"  
 End With  
End Sub  
 
' Если Супермаркет - это именованный диапазон  
Sub Test2()  
 With Range("A1")  
   .WrapText = True  
   .Formula = "=Супермаркет & CHAR(10) & Лист1!$F$4 & CHAR(10) & Лист1!$G$4 & CHAR(10) &  Лист1!$H$4"  
 End With  
End Sub{/post}{/quote}  
 
если так пойдет, то хорошо, а то я тут чето намудрил (но зато работает)  
...  
 endLine = " & CHAR(10) & "  
 sheetName = "'" & sheetShops.name & "'!"  
 parentName = ""  
   
 With sheetShops  
     col = 1  
     For i = g_row_firstDataRow To g_row_lastDataRow  
         If .Cells(i, g_col_level).Value = 1 Then  
             shopNameFormula = "= " & """" & parentName & """" & _  
                               endLine & """" & "'" & """" & " & " & _  
                               sheetName & _  
                               .Cells(i, g_col_shop).Address & " & " & """" & "'" & """" & endLine & _  
                               sheetName & _  
                               .Cells(i, g_col_city).Address & endLine & _  
                               sheetName & _  
                               .Cells(i, g_col_address).Address  
               
               
             ID = .Cells(i, g_col_ID).Value  
             IDParent = .Cells(i, g_col_IDParent).Value  
             isChusen = .Cells(i, g_col_isChusen).Value  
               
             sheetProducts.addShop col, _  
                                   shopNameFormula, _  
                                   ID, _  
                                   IDParent, _  
                                   isChusen  
             col = col + 1  
         Else  
           parentName = Cells(i, g_col_shop).Value  
         End If  
     Next i  
 End With  
 
Я здесь строки из одной таблицы делаю столбцами другой

{quote}{login=ZVI}{date=21.12.2009 04:08}{thema=}{post}1. Включите макрорекодер  
2. Впишите в ячейку формулу =СИМВОЛ(10)  
3. Выключите макрорекодер и посмотрите что он записал вместо "=СИМВОЛ(10)"  
4. Вот это и нужно прописывать в VBA.{/post}{/quote}  
 
Не нашел макрорекодер, написал его сам:  
 
MsgBox selection.formula  
 
кстати написал вместо =СИМВОЛ(10) формулу =CHAR(10) и все стало нормально работать

{quote}{login=ZVI}{date=21.12.2009 04:37}{thema=}{post}Если нужно из VBA записать в ячейку не формулу, а значения, тогда такой вариант:  
 
Sub Test()  
 With Range("A1")  
   .WrapText = True  
   .Value = "Супермаркет" & vbLf & [Лист1!F4] & vbLf & [Лист1!G4] & vbLf & [Лист1!H4]
 End With  
End Sub{/post}{/quote}  
 
Необходимо именно формулу записать. Значение в ячейке, куда записываем, должно меняться вместе со значением ячейки, на которую ссылаемся.  
 
И кстати пробовал писать  
.cells(i,j).Formula = "=Супермаркет" & ....  
сама формула в ячейку записывается, но не пересчитывается ее значение (видим #ИМЯ?)  
 
пробовал писать:  
.cells(i,j).Calculate  
не помогает  
 
но формула правильная. Выбираю ячейку для редактирования, ничего не меняю, нажимаю Enter и только тогда появляется необходимое значение.

{quote}{login=ZVI}{date=21.12.2009 03:39}{thema=}{post}На ячейке с формулой нажать правую кнопку мышки - "Формат ячеек" - вкладка "Выравнивание" - установить флажок "Переносить по словам". Тогда формула с СИМВОЛ(10) сработает.{/post}{/quote}  
 
Точно! Получилось. Совсем забыл об этом.  
 
Но если у пользователя окажется английская версия, а я туда впишу программно наше русское - СИМВОЛ(10)  
 
Можно ли использовать подобные формулы альтернативным, какимто независимом от языка способом?

{quote}{login=ZVI}{date=21.12.2009 02:54}{thema=}{post}Вариант:  
 
Sub ClearDown(FromRow As Long)  
 With ActiveSheet  
   .Range(Cells(FromRow, 1), .UsedRange.SpecialCells(xlCellTypeLastCell)).Clear  
 End With  
End Sub  
 
Sub Test()  
 ClearDown 4 ' Очистить с 4-й строки до последней используемой  
End Sub{/post}{/quote}  
 
Спасибо, работает!

{quote}{login=Юрий М}{date=21.12.2009 02:44}{thema=Re: }{post}Прикольно. Вопрос: "С определённой до последней?"  
Ответ:  
{quote}{login=uaAndriy}{date=21.12.2009 02:38}{thema=}{post}Но данные могут быть в любом столбике.{/post}{/quote}  
Range(Rows(14), Rows(LastRow)).Delete{/post}{/quote}  
 
Есть просто лист с фиксированной шапкой, в который добавляются данные для печати, а потом эти данные должны удалятся, но дело в том, что пользователь может изменять добавленные данные и кто его знает, что он там намудрит...

А как задать конец строки в формулу для ячейки:  
 
="Супермаркет"& "конец строки" &    
'Лист1'!$F$4 & "конец строки"  
'Лист1'!$G$4 & "конец строки"  
'Лист1'!$H$4  
 
пробовал СИМВОЛ(10), не получается

Но данные могут быть в любом столбике.

{quote}{login=Юрий М}{date=21.12.2009 02:26}{thema=}{post}Вопрос не совсем корректный - что понимать под последней строкой. Уже много раз обсуждали. Если интересует общий случай, когда нужно найти последнюю, где есть данные, то:  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
По первому столбцу.{/post}{/quote}  
 
Необходимо удалить в се данные после определенной строки.

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

Как сделать так, чтобы можно было редактировать содержимое ячеек из программы при включенной защите листа?

Большое спасибо!

Подскажите пожалуйста, как вставить из кода VBA в сообщение символы:  
1) конца каретки  
2) "  
 
Раньше както делал, но забыл:( Немогу никак найти.

Что такає O_0_Calc 3.1.1?

Что делать, если не хватаєт количества столбиков на листе (необходимо около 300)? Можно ли както расширить этот диапазон?

{quote}{login=Юрий М}{date=18.12.2009 10:57}{thema=}{post}Параметры страницы - Лист - Сквозные строки{/post}{/quote}  
 
Спасибо!

Имеется лист Sheet1, в котором есть 1000 строк и две колонки.  
Вопрос:  
 Как распечатать такой лист так, чтобы первые 5 строк листа Sheet1(шапка с описательной инф. и заглавиями строк) были на каждом распечатанном листе.

Лузер™, большое спасибо тебе!  
 
В данной задаче это конечно не принципиально, но все же, как Excel создает такие области? И как можно предсказать эти области?

{quote}{login=Марчук}{date=18.12.2009 01:48}{thema=}{post}У тебя на картинке видно,где должны лежат недостающие файлы. Вот их и скопируй с ПК1.{/post}{/quote}  
 
:))) Ну красава! Большое спасибо!!!