Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / найти ошибку в экселе / 7 сообщений из 7, страница 1 из 1
12.02.2009, 12:31:04
    #35813243
MsDatabaseru
MsDatabaseru
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти ошибку в экселе
на листе эксел штатное расписание
периодически подитоги по департаментам, подразделениям и в конце концов общий итог

как найти ячейку в столбце которая не влияет или наоборот входит в сумму более одного раза
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2009, 13:24:48
    #35813473
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти ошибку в экселе
MsDatabaseru,
Можно вывести панель инструментов. Там есть кнопки "зависимые ячейки" и влияющие ячейки.

Еще я использую следующие макросы, которые работают в выделенном диапазоне:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub ЗависимыеЯчейки()

    Set mycell = Selection
    For Each mycell In mycell.Cells
    mycell.ShowDependents
    Next

End Sub
Sub ВлияющиеЯчейки()

    Set mycell = Selection
    For Each mycell In mycell.Cells
    mycell.ShowPrecedents
    Next

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2009, 13:56:59
    #35813566
MsDatabaseru
MsDatabaseru
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти ошибку в экселе
сделал так, получилось распутать очень закрученную ошибку
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Sub ww()
k =  7  'Колонка
total = Cells( 642 , k).Value 'ячейка суммы
For i =  5  To  641   'Диапазон значений которые должны влиять
    If Left(Cells(i, k).Formula,  1 ) <> "=" Then  'Формулы не проверяем
        celkavalue = Cells(i, k)
        Cells(i, k).Value =  0 
        If Cells( 642 , k).Value + Val(celkavalue) <> total Then
            Cells(i, k).Interior.ColorIndex =  4  'Отмечаем проблемные ячейки зеленым
        End If
        Cells(i, k) = celkavalue
    End If
Next i
MsgBox "Готово"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2009, 13:17:39
    #35815883
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти ошибку в экселе
2 Сергей06

>>Еще я использую следующие макросы, которые работают в выделенном диапазоне:
А можно сделать надстройку с такой темой и hotkey на ней?
Например "shift+ctrl+[" и "shift+ctrl+]"

Просто сам надстройки никогда не делал, а править ту, что вы мне рекомендовали (allright.xla для работы с листами) не оч. хочется: там чёрт ногу сломит в её кодах... Может, у вас организовано именно в виде надстройки?

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2009, 13:53:39
    #35816020
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти ошибку в экселе
PlanB,
Я надстройки никогда не делал (пробовать-то пробовал, но до конца не довел).
Как я понимаю, надстройка это файл эксель, который не видим для пользователей (как персональный файл).
В нем записаны коды.
При открытии этого файла, он, например, добавляет панели инструментов, кнопки, меню, при нажатии которых запускаются макросы записанные в надстройке. Как хоткей добавить не знаю...
я клавишами нажимаю кнопки через Аль + подчеркнутая буква на кнопке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2009, 15:42:13
    #35816458
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти ошибку в экселе
Cергей06,
Про надстройки вы правы. Думал занести ваши макросы в персональную книгу макросов (и они будут при каждой новой открытой книге работать) Но, тогда, по идее, в каждой книге, созданной на моей машине, будет макрос изначально, а вот этого-то и не хочется. Сколько раз уже видел, как excel с ума сходит...

Скорее всего, придётся редактировать надстройку allright.xla. Там можно поубирать всё кроме, скрытия/отображения листов и их сортировки (всё равно я не понял, как остальное работает ), а потом добавить ваши функции, привязав их к hotkey и к меню редактирования ячейки...

1)Вопрос по привязке макроса к hotkey вручную (при записи макрорекордером это же возможно, правда только на сочетания ctrl+"", а хочется на shift+ctrl+"") остаётся открытым...

2)Также вопрос по горячим клавишам: если я привязываю вручную записанный макрос к сочетанию клавиш ctrl+a, то что будет срабатывать? выделение всего листа или мой шедевральный код на VBA?

3)Стандартные горячие клавиши excel можно менять по своему усмотрению? Как, если да?

4)А может уже есть такая надстройка? (скорее всего, да. только где её найти...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2009, 01:52:52
    #35830773
alex_gearbox
alex_gearbox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
найти ошибку в экселе
PlanB1)Вопрос по привязке макроса к hotkey вручную (при записи макрорекордером это же возможно, правда только на сочетания ctrl+"", а хочется на shift+ctrl+"") остаётся открытым...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub c_Hot_Keys()
' назначение комбинаций клавиш
With Application
    ' обозначение клавиш: + = Shift; % = Alt; ^ = Ctrl
     
    ' комбинация с клавишей Ctrl
    .OnKey "^{F1}", "myMacros_1"

    ' комбинация с клавишами Ctrl и Shift
     .OnKey "^+{a}", "myMacros_2"
    
    ' комбинация с клавишей Shift
    .OnKey "+{F1}", "myMacros_3"
     
    ' функциональные клавиши
    .OnKey "{F12}", "myMacros_4"

End With
End Sub

PlanB2)Также вопрос по горячим клавишам: если я привязываю вручную записанный макрос к сочетанию клавиш ctrl+a, то что будет срабатывать? выделение всего листа или мой шедевральный код на VBA?Твой «шедевральный код на VBA».

PlanB3)Стандартные горячие клавиши excel можно менять по своему усмотрению? Как, если да?См. ответ на свой вопрос № 1.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / найти ошибку в экселе / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 509ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2179771]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 200ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 209ms
total:  509ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]