Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Привязка даты https://www.cyberforum.ru/vba/thread1407675.html
Здравствуйте! необходим макрос,который при нажатии на кнопку прибавляет к значению ячейки 1, но выбирает он ячейку по принципу сегодняшнего дня месяца. т.е. есть числа месяца 1 2 3...31 по ними...
VBA Из listbox в textbox, содержимое документа
Здравствуйте, на форме при нажатии кнопки, есть выбор папки, при выборе, все файлы с расширением *.doc выводятся в listbox. Хотел узнать можно ли как то при выборе файла в listbox (строки) он...
VBA Переход на Office 2013
Доброго утра всем! В процессе перехода на Office 2013 отвалился макрос в Excel, который делал рассылку писем через Outlook. Процесс формирования письма происходит корректно, но в момент...
VBA Как впихнуть в код Excel вот это условие" Если P < 50 — «незачет» Если 50 =< P <74 — «удовлетворительно» Если 75 <= P < 80 — «хорошо» Если P >= 80 — «отлично» https://www.cyberforum.ru/vba/thread1407015.html
VBA Сортировка двумерного массива возрастанию и по убыванию https://www.cyberforum.ru/vba/thread1407011.html
Всем привет, не могу разобраться, как сделать сортировку по убыванию и по возрастанию. Private Sub CommandButton1_Click ( ) 2 Dim i , e , str1 , str2 As I n t e g e r 3 Dim R As Range 4 str1 =...
Кроссворд сделан в оболочке. Как его сделать в коде VBA
Нужно создать кнопку и наложить на неё программу.
VBA В файле таблица в оболочке. Как её сделать в коде?
Помогите кто может.
VBA Создать две таблицы Скажите, как создать в Excel 2013: 1е график пустой вроде этого, чтобы слева по вертикали время (от 4:00 до 12), а снизу по горизонтали дни? 2е Таблицу пустую с днями (смотрите во вложении) Книгу... https://www.cyberforum.ru/vba/thread1406930.html
VBA Поиск одинаковых данных в столбце https://www.cyberforum.ru/vba/thread1406894.html
Всем доброго времени суток) Помогите с макросом поиска одинаковых значений в ячейках на разных листах И если не сложно, то и разных значений
VBA Не знаю как написать код для ячейки Excel нужно написать код для ячейки, чтоб считала количество дней когда температура была меньше средней. Не могу сообразить. Ячейка (9,6). В папке есть фотография. https://www.cyberforum.ru/vba/thread1406832.html
Vovchikvsb
464 / 121 / 61
Регистрация: 04.03.2015
Сообщений: 324
30.03.2015, 13:38 0

Excel. Журнал учета операций в книге

30.03.2015, 13:38. Просмотров 1106. Ответов 9
Метки (Все метки)

Лучший ответ Сообщение было отмечено Krool как решение

Решение

Сейчас попробую написать.

Добавлено через 44 минуты
Этот код добавьте в процедуры введения пароля для случая правильного введения.
В каждой процедуре замените Оператор 1 на соответствующее.

Visual Basic
1
2
3
4
5
6
        tp = Sheets("Пример журнала").Cells(Sheets("Пример журнала").Rows.Count, 1).End(xlUp).Row
        Sheets("Пример журнала").Cells(tp, 1).Value = Date
        Sheets("Пример журнала").Cells(tp, 2).Value = Time
        Sheets("Пример журнала").Cells(tp, 2).NumberFormat = "[$-F400]h:mm:ss AM/PM"
        Sheets("Пример журнала").Cells(tp, 3).Value = "Введен пароль для Оператор 1"
        Sheets("Пример журнала").Cells(tp + 1, 1).Value = "'======="
Это в модули листов машин.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tp As Integer
    If Target.Value <> temp Then
        tp = Sheets("Пример журнала").Cells(Sheets("Пример журнала").Rows.Count, 1).End(xlUp).Row
        Sheets("Пример журнала").Cells(tp, 1).Value = Date
        Sheets("Пример журнала").Cells(tp, 2).Value = Time
        Sheets("Пример журнала").Cells(tp, 2).NumberFormat = "[$-F400]h:mm:ss AM/PM"
        Sheets("Пример журнала").Cells(tp, 3).Value = "Лист """ & ActiveSheet.Name & _
        """ ячейка " & Target.Address(0, 0) & " изменение значения с """ & temp & _
        """ на """ & Target.Value & """"
        Sheets("Пример журнала").Cells(tp + 1, 1).Value = "'======="
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    temp = ActiveCell.Value
End Sub
Объявите в любом общем модуле
Visual Basic
1
Public temp As String, tp As Integer
Добавлено через 32 минуты
Книгой одновременно пользуется только один пользователь?

Вернуться к обсуждению:
Excel. Журнал учета операций в книге
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2015, 13:38
Готовые ответы и решения:

Построчная проверка и журнал учета операций
Помогите пожалуйста, не могу разобраться с двумя нюансами. Пример во вложении. 1) Построчная...

Журнал учета переработки
Доброго времени суток. Делаю журнал учета переработки и у меня появилась проблема в создании...

Журнал учета бланков
Добрый день. Уже пару часов сижу думаю и никак не могу сообразить. Есть таблица организаций к...

журнал операций
при нажатии на сумму в журнале операций открывается документ а надо чтоб просто можно...

9
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.