Как сохранить переменную после закрытия файла

@mishapelevin · Регистрация: 06.07.2021

Author24 — интернет-сервис помощи студентам

Здравствуйте, дорогие прогеры! У меня встал вопрос сохранения переменной после закрытия файла- для того, чтобы она сохраняла свое значение и при нажатии кнопки дальше продолжала увеличиваться, например

@Narimanych · 09.07.2021, 00:24

Если эксель, то в ячейке можно...

@mishapelevin · 09.07.2021, 00:27 **[ТС]**

Сообщение от Narimanych

Если эксель, то в ячейке можно...

Если можно, пожалуйста поподробнее объясните -мой макрос увеличивает значение на 1 при каждом щелчке мыши и вот хочется чтобы после закрытия excel последнее значение сохранялось

@elixi · 09.07.2021, 01:09

Сообщение от mishapelevin

Если можно, пожалуйста поподробнее объясните

Если эксель, то почитайте про Событие Workbook.BeforeClose

@mishapelevin · 09.07.2021, 07:34 **[ТС]**

Сообщение от elixi

Если эксель, то почитайте про Событие Workbook.BeforeClose

То есть перед закрытием написать, чтобы ячейка была равна моей переменной?

I can · 09.07.2021, 07:55

mishapelevin, а между запусками макроса переменная должна сохранять своё значение?

@mishapelevin · 09.07.2021, 07:56 **[ТС]**

Да, переменная сохраняет свое значение до тех пор, пока не закрыт файл excel

I can · 09.07.2021, 08:01

тогда проще

Visual Basic

1
2
3

a = Val(ThisWorkbook.Sheets(1).Cells(100, 100))
    a = a + 1
    ThisWorkbook.Sheets(1).Cells(100, 100) = a

До увеличения переменной читаем её значение из ячейки, а после увеличения записываем обратно.

@OLEGOFF · 09.07.2021, 09:21

mishapelevin, можно применить вместо Value значение ячейки Font.Color или Borders.Color для сохранения переменной.
Тогда можно использовать любую удобную ячейку,даже если она занята какими либо данными.И в одной ячейке сохранить до 8 переменных.

Visual Basic

Public N As Integer
 
Private Sub Workbook_Open()
N = Sheets("Лист1").Cells(1, 1).Font.Color
End Sub
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Лист1").Cells(1, 1).Font.Color = N
End Sub
 
Sub Макрос1()
 N = N + 1
End Sub

@Zeag · 09.07.2021, 09:51

Еще можно в свойства файла писать.

@mishapelevin · 09.07.2021, 10:28 **[ТС]**

Ок, я понял, спасибо большое, дорогие форумчане!

@Hugo121 · 09.07.2021, 11:22

В CustomDocumentProperties.
А ещё можно в реестр писать, если только для себя.

@mishapelevin · 09.07.2021, 16:09 **[ТС]**

Сообщение от OLEGOFF

mishapelevin, можно применить вместо Value значение ячейки Font.Color или Borders.Color для сохранения переменной.
Тогда можно использовать любую удобную ячейку,даже если она занята какими либо данными.И в одной ячейке сохранить до 8 переменных.

Visual Basic

Public N As Integer
 
Private Sub Workbook_Open()
N = Sheets("Лист1").Cells(1, 1).Font.Color
End Sub
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Лист1").Cells(1, 1).Font.Color = N
End Sub
 
Sub Макрос1()
 N = N + 1
End Sub

Извините, но почему то при компиляции выдает ошибку 9- out of range

@OLEGOFF · 09.07.2021, 17:30

mishapelevin, у меня все работает.

I can · 09.07.2021, 18:13

Сообщение от mishapelevin

ошибку 9- out of range

У тебя нет листа "Лист1"

@mishapelevin · 09.07.2021, 21:31 **[ТС]**

Спасибо, ребята! Все пошло!

I can help 4426 / 4079 / 812 Регистрация: 13.04.2015 Сообщений: 8,926
	09.07.2021, 18:13	15
	Сообщение от mishapelevin ошибку 9- out of range У тебя нет листа "Лист1" 0

@mishapelevin 0 / 0 / 0 Регистрация: 06.07.2021 Сообщений: 12
		1
	Как сохранить переменную после закрытия файла 08.07.2021, 23:52. Показов 3132. Ответов 15 Метки нет (Все метки) Здравствуйте, дорогие прогеры! У меня встал вопрос сохранения переменной после закрытия файла- для того, чтобы она сохраняла свое значение и при нажатии кнопки дальше продолжала увеличиваться, например 0

@Narimanych 2739 / 1714 / 778 Регистрация: 23.03.2015 Сообщений: 5,429
	09.07.2021, 00:24	2
	Если эксель, то в ячейке можно... 0

@mishapelevin 0 / 0 / 0 Регистрация: 06.07.2021 Сообщений: 12
	09.07.2021, 00:27 [ТС]	3
	Сообщение от Narimanych Если эксель, то в ячейке можно... Если можно, пожалуйста поподробнее объясните -мой макрос увеличивает значение на 1 при каждом щелчке мыши и вот хочется чтобы после закрытия excel последнее значение сохранялось 0

@elixi 333 / 182 / 100 Регистрация: 01.04.2020 Сообщений: 516
	09.07.2021, 01:09	4
	Сообщение от mishapelevin Если можно, пожалуйста поподробнее объясните Если эксель, то почитайте про Событие Workbook.BeforeClose 0

@mishapelevin 0 / 0 / 0 Регистрация: 06.07.2021 Сообщений: 12
	09.07.2021, 07:34 [ТС]	5
	Сообщение от elixi Если эксель, то почитайте про Событие Workbook.BeforeClose То есть перед закрытием написать, чтобы ячейка была равна моей переменной? 0

I can help 4426 / 4079 / 812 Регистрация: 13.04.2015 Сообщений: 8,926
	09.07.2021, 07:55	6
	mishapelevin, а между запусками макроса переменная должна сохранять своё значение? 0

@mishapelevin 0 / 0 / 0 Регистрация: 06.07.2021 Сообщений: 12
	09.07.2021, 07:56 [ТС]	7
	Да, переменная сохраняет свое значение до тех пор, пока не закрыт файл excel 0

@Zeag 836 / 486 / 186 Регистрация: 09.03.2009 Сообщений: 1,676
	09.07.2021, 09:51	10
	Еще можно в свойства файла писать. 0

@mishapelevin 0 / 0 / 0 Регистрация: 06.07.2021 Сообщений: 12
	09.07.2021, 10:28 [ТС]	11
	Ок, я понял, спасибо большое, дорогие форумчане! 0

@Hugo121 6944 / 2849 / 548 Регистрация: 19.10.2012 Сообщений: 8,723
	09.07.2021, 11:22	12
	В CustomDocumentProperties. А ещё можно в реестр писать, если только для себя. 1

	09.07.2021, 21:31

@mishapelevin 0 / 0 / 0 Регистрация: 06.07.2021 Сообщений: 12
	09.07.2021, 21:31 [ТС]	16
	Спасибо, ребята! Все пошло! 0