|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.04.2012, 20:11 | #11 |
Форумчанин
Регистрация: 21.10.2011
Сообщений: 433
|
А тут что я не так описал? Ругается на "="
Private Sub Worksheet_Calculate() Dim LastRow& LastRow = Cells(Rows.Count, "K").End(xlUp).Row If LastRow = "open" Is Nothing Then If LastRow = "close" Then Sheets("PostGrup").Range("A1") = Cells(LastRow, "K" - 10) End If End If End Sub |
02.04.2012, 21:06 | #12 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Nothing - это свойство объекта.
webmoney: E265281470651 Z422237915069 R418926282008
|
02.04.2012, 21:26 | #13 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
No comment
Код:
Анализ,обработка данных Недорого
|
02.04.2012, 22:56 | #14 |
Форумчанин
Регистрация: 21.10.2011
Сообщений: 433
|
Понял, что смешал переменные с текстом. Спасибо за тычок носом, буду распутывать. Чего-то я сегодня вообще не в теме....
|
03.04.2012, 12:54 | #15 |
Форумчанин
Регистрация: 21.10.2011
Сообщений: 433
|
Тыкните, что я тут попутал?
Private Sub Worksheet_Calculate() Dim LastRow$ Dim myString1$ Dim myString2$ LastRow = Cells(Rows.Count, 11).End(xlUp).Row myString1 = "open" myString2 = "close" If (LastRow = myString1) Is Nothing Then If (LastRow = myString2) Then Sheets("PostGrup").Range("A1") = Cells(LastRow, 2) End If End If End Sub Опять попутал переменные? |
03.04.2012, 13:12 | #16 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Если значение последней заполненной ячейки в столбце 11 равно переменной "myString2", то оно однозначно не равно переменной "myString1". Т. е. у Вас лишнее (и синтаксически неправильное) условие. Наверное, Вы имели ввиду это?
Код:
Чем шире угол зрения, тем он тупее.
|
03.04.2012, 14:38 | #17 | |
Форумчанин
Регистрация: 21.10.2011
Сообщений: 433
|
Цитата:
Sheets("PostGrup").Range("A1") = Cells(Last.Row, 2) и запустить макрос (ну это я сам допишу). |
|
03.04.2012, 14:48 | #18 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Создайте публичный массив, в который берите все подконтрольные данные при открытии книги.
При пересчёте берите их же в другой массив, сравниваете массивы. Определяете изменившиеся ячейки. Берёте в публичный массив новые данные.
webmoney: E265281470651 Z422237915069 R418926282008
|
03.04.2012, 15:30 | #19 |
Форумчанин
Регистрация: 21.10.2011
Сообщений: 433
|
Я тут на сайте вот такую конструкцию нашел:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("e26:f113", "e1616")) Is Nothing Then Exit Sub Processing End Sub Private Sub Worksheet_Calculate() Processing End Sub Private Sub Processing() For Each a In Range("G26:G113").Cells Application.EnableEvents = False If a.Value = "?????????????" Then a.Value = "" If (IsError(a.Offset(0, -1)) = False) And (IsError(a.Offset(0, -2)) = False) Then If (a.Offset(0, -2).Value <> "") And (a.Offset(0, -1).Value <> "") Then If ((Abs(a.Offset(0, -2).Value) > Range("d16").Value) Or (Abs(a.Offset(0, -1).Value) > Range("e16").Value)) And (a.Value = "") Then a.Value = "?????????????" End If End If End If Application.EnableEvents = True Next End Sub Может ее использовать? Извините, что целиком выложил Вот ссылка нашлась http://programmersforum.ru/showthrea...heet_Calculate Последний раз редактировалось strannick; 03.04.2012 в 15:34. |
03.04.2012, 16:19 | #20 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Долго.
И не вижу тут анализа на изменение.
webmoney: E265281470651 Z422237915069 R418926282008
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Два одномерных массива A и B. Сформировать два новых массива. Паскаль. Где ошибка в коде? | Tomny | Помощь студентам | 1 | 27.03.2011 16:47 |
как запустить два события по onLoad? | kirosin | JavaScript, Ajax | 3 | 28.10.2010 05:32 |
в одной ячейке написать два значения с другого листа | Наркыз | Microsoft Office Excel | 6 | 11.10.2010 14:01 |
сортировать по фамилии два листа | Kotik123 | Microsoft Office Excel | 2 | 23.04.2009 18:52 |
два TMediaPlayer и два AVI-файла | zeleniy | Компоненты Delphi | 0 | 01.06.2007 14:14 |