Версия для слабовидящих
Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

 

= Мир MS Excel/Код VBA с ссылкой на ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Код VBA с ссылкой на ячейку (Макросы/Sub)
Код VBA с ссылкой на ячейку
DenchikZ Дата: Пятница, 23.08.2024, 07:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
Все добрый день имеется код VBA, где значение ячейка A1 формируется другой ячейкой, данный код не работает подскажите пожалуйста как можно исправить.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("A1").Value = "42" Then
Rows("2:3").EntireRow.Hidden = False
Rows("4:5").EntireRow.Hidden = True
ElseIf Range("A1").Value = "48" Then
Rows("4:5").EntireRow.Hidden = True
Rows("2:3").EntireRow.Hidden = False
ElseIf Range("A1").Value = "52" Then
Rows("2:5").EntireRow.Hidden = False

End If
End If
End Sub

 
Ответить
СообщениеВсе добрый день имеется код VBA, где значение ячейка A1 формируется другой ячейкой, данный код не работает подскажите пожалуйста как можно исправить.
[vba]
Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" ThenIf Range("A1").Value = "42" ТhenRows("2:3").EntireRow.Hidden = FalseRows("4:5").EntireRow.Hidden = ТrueElseIf Range("A1").Value = "48" ТhenRows("4:5").EntireRow.Hidden = ТrueRows("2:3").EntireRow.Hidden = FalseElseIf Range("A1").Value = "52" ТhenRows("2:5").EntireRow.Hidden = FalseEnd IfEnd IfEnd Sub
[/vba]
Автор - DenchikZ
Дата добавления - 23.08.2024 в 07:16
Nic70y Дата: Пятница, 23.08.2024, 07:41 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
так, наверное

Private Sub Worksheet_Calculate()
    If Range("A1").Value = "42" Then
        Rows("2:3").EntireRow.Hidden = False
        Rows("4:5").EntireRow.Hidden = True
    ElseIf Range("A1").Value = "48" Then
        Rows("4:5").EntireRow.Hidden = True
        Rows("2:3").EntireRow.Hidden = False
    ElseIf Range("A1").Value = "52" Then
        Rows("2:5").EntireRow.Hidden = False
    End If
End Sub


ЮMoney 41001841029809
 
Ответить
Сообщениетак, наверное
[vba]
Private Sub Worksheet_Calculate()    If Range("A1").Value = "42" Then        Rows("2:3").EntireRow.Hidden = False        Rows("4:5").EntireRow.Hidden = Тrue    ElseIf Range("A1").Value = "48" Then        Rows("4:5").EntireRow.Hidden = Тrue        Rows("2:3").EntireRow.Hidden = False    ElseIf Range("A1").Value = "52" Then        Rows("2:5").EntireRow.Hidden = False    End IfEnd Sub
[/vba]
Автор - Nic70y
Дата добавления - 23.08.2024 в 07:41
DenchikZ Дата: Пятница, 23.08.2024, 07:49 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
Nic70y, спасибо огромное! все работает! Оказалось проще чем думал!
 
Ответить
СообщениеNic70y, спасибо огромное! все работает! Оказалось проще чем думал!
Автор - DenchikZ
Дата добавления - 23.08.2024 в 07:49
DenchikZ Дата: Пятница, 23.08.2024, 08:21 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
DenchikZ, а можно еще такой вопрос не работает если добавляются буквы к цифрам вместо "42" необходимо "К42" где значения этой ячейки сцепляются следующим образом=СЦЕПИТЬ("К";42), как выйти из этой ситуации

Private Sub Worksheet_Calculate()
If Range("A1").Value = "К42" Then
Rows("2:3").EntireRow.Hidden = False
Rows("4:5").EntireRow.Hidden = True
ElseIf Range("A1").Value = "К48" Then
Rows("4:5").EntireRow.Hidden = True
Rows("2:3").EntireRow.Hidden = False
ElseIf Range("A1").Value = "К52" Then
Rows("2:5").EntireRow.Hidden = False
End If
End Sub


Сообщение отредактировал DenchikZ - Пятница, 23.08.2024, 08:25
 
Ответить
СообщениеDenchikZ, а можно еще такой вопрос не работает если добавляются буквы к цифрам вместо "42" необходимо "К42" где значения этой ячейки сцепляются следующим образом=СЦЕПИТЬ("К";42), как выйти из этой ситуации

Private Sub Worksheet_Calculate()
If Range("A1").Value = "К42" Then
Rows("2:3").EntireRow.Hidden = False
Rows("4:5").EntireRow.Hidden = True
ElseIf Range("A1").Value = "К48" Then
Rows("4:5").EntireRow.Hidden = True
Rows("2:3").EntireRow.Hidden = False
ElseIf Range("A1").Value = "К52" Then
Rows("2:5").EntireRow.Hidden = False
End If
End Sub
Автор - DenchikZ
Дата добавления - 23.08.2024 в 08:21
Nic70y Дата: Пятница, 23.08.2024, 08:35 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
DenchikZ, эта формула
Цитата DenchikZ, 23.08.2024 в 08:21, в сообщении № 4 ( писал(а)):
=СЦЕПИТЬ("К";42)
находиться в A1?
лучше конечно видеть файл

пс: формулы и код нужно оформлять тегами

ЮMoney 41001841029809
 
Ответить
СообщениеDenchikZ, эта формула
Цитата DenchikZ, 23.08.2024 в 08:21, в сообщении № 4 ( писал(а)):
=СЦЕПИТЬ("К";42)
находиться в A1?
лучше конечно видеть файл

пс: формулы и код нужно оформлять тегами
Автор - Nic70y
Дата добавления - 23.08.2024 в 08:35
DenchikZ Дата: Пятница, 23.08.2024, 09:12 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
Nic70y, спасибо за совет пересмотрел, теги добавил все работает
 
Ответить
СообщениеNic70y, спасибо за совет пересмотрел, теги добавил все работает
Автор - DenchikZ
Дата добавления - 23.08.2024 в 09:12
DenchikZ Дата: Пятница, 23.08.2024, 10:04 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
Nic70y, еще раз если есть возможность посмотреть не работает макрос со временем выдает ошибку 28, я так сказать еще чайник в этом вопросе заранее спасибо
К сообщению приложен файл: primer.xlsm (21.8 Kb)


Сообщение отредактировал DenchikZ - Пятница, 23.08.2024, 10:14
 
Ответить
СообщениеNic70y, еще раз если есть возможность посмотреть не работает макрос со временем выдает ошибку 28, я так сказать еще чайник в этом вопросе заранее спасибо
Автор - DenchikZ
Дата добавления - 23.08.2024 в 10:04
Nic70y Дата: Пятница, 23.08.2024, 10:18 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
DenchikZ, у меня не возникает ошибки
Цитата DenchikZ, 23.08.2024 в 10:04, в сообщении № 7 ( писал(а)):
со временем выдает ошибку 28
при каких обстоятельствах?

только обратил внимание, К42 и К48 одно и тоже (от перестановки строк - суть не меняется)

пс: теги это:
К сообщению приложен файл: 2196821.gif (9.5 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 23.08.2024, 10:18
 
Ответить
СообщениеDenchikZ, у меня не возникает ошибки
Цитата DenchikZ, 23.08.2024 в 10:04, в сообщении № 7 ( писал(а)):
со временем выдает ошибку 28
при каких обстоятельствах?

только обратил внимание, К42 и К48 одно и тоже (от перестановки строк - суть не меняется)

пс: теги это:
Автор - Nic70y
Дата добавления - 23.08.2024 в 10:18
DenchikZ Дата: Пятница, 23.08.2024, 10:28 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
Nic70y, я скинул часть файла он очень большой, и когда там периодически начинаешь менять 42-52 он выдает ошибку
 
Ответить
СообщениеNic70y, я скинул часть файла он очень большой, и когда там периодически начинаешь менять 42-52 он выдает ошибку
Автор - DenchikZ
Дата добавления - 23.08.2024 в 10:28
Nic70y Дата: Пятница, 23.08.2024, 10:34 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
DenchikZ, я не знаю причину ошибки - типа не хватает памяти.
если Вы вводите данные на одном листе, а затем переходите на лист с макросом,
попробуйте

Private Sub Worksheet_Calculate()

заменить на

Private Sub Worksheet_Activate()


ЮMoney 41001841029809
 
Ответить
СообщениеDenchikZ, я не знаю причину ошибки - типа не хватает памяти.
если Вы вводите данные на одном листе, а затем переходите на лист с макросом,
попробуйте[vba]
Private Sub Worksheet_Calculate()
[/vba]заменить на[vba]
Private Sub Worksheet_Activate()
[/vba]
Автор - Nic70y
Дата добавления - 23.08.2024 в 10:34
DenchikZ Дата: Пятница, 23.08.2024, 10:41 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

2020
Nic70y, спасибо большое пока все работает! Спасибо! извиняюсь за навязчивость!
 
Ответить
СообщениеNic70y, спасибо большое пока все работает! Спасибо! извиняюсь за навязчивость!
Автор - DenchikZ
Дата добавления - 23.08.2024 в 10:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Код VBA с ссылкой на ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Рейтинг@Mail.ru Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!