ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / найти ошибку в экселе
7 сообщений из 7, страница 1 из 1
найти ошибку в экселе
    #35813243
MsDatabaseru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsDatabaseru
Участник
на листе эксел штатное расписание
периодически подитоги по департаментам, подразделениям и в конце концов общий итог

как найти ячейку в столбце которая не влияет или наоборот входит в сумму более одного раза
...
Рейтинг: 0 / 0
12.02.2009, 12:31:04
| Ответить | Цитировать | Написать  
найти ошибку в экселе
    #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:24:48
| Ответить | Цитировать | Написать  
найти ошибку в экселе
    #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
12.02.2009, 13:56:59
| Ответить | Цитировать | Написать  
найти ошибку в экселе
    #35815883
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
2 Сергей06

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

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

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

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

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

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

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

4)А может уже есть такая надстройка? (скорее всего, да. только где её найти...)
...
Рейтинг: 0 / 0
13.02.2009, 15:42:13
| Ответить | Цитировать | Написать  
найти ошибку в экселе
    #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
21.02.2009, 01:52:52
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / найти ошибку в экселе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35830773&tid=2179771]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 185ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 215ms
total:  508ms
созд. / загр.: 508ms
x
x
Закрыть


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