Понеділок, 24 листопада 2021
  3 відповіді
  7.4 тис. Відвідувань
0
Голосів
розстібати
Будь ласка, виправте 2-й код, обидва для одного аркуша.

ПЕРШИЙ КОД ПРАЦЮЄ ІДЕАЛЬНО
Приватний допоміжний робочий лист_Change(ByVal Target As Range)
Якщо не перетинається(ціль, діапазон("D1")) то нічого
Виберіть діапазон випадків ("D1")
Випадок «0.5»: Половина
Випадок «1»: один
Випадок «1.25»: OneTwentyFive
End Select
End If
End Sub

ДРУГИЙ КОД НЕ ПРАЦЮЄ (виправте, будь ласка, наведене нижче)
Зміна приватного підпорядкування (ByVal Target As Range)
Якщо не перетинається(ціль, діапазон("D2")) то нічого
Виберіть діапазон випадків ("D2")
Справа «9.53»: дев’ять п’ять три
End Select
End If
End Sub
2 років тому
·
# 2357
0
Голосів
розстібати
Привіт, сієдсалман,

Для цього ж аркуша ви можете створити код:

Приватний допоміжний робочий лист_Change(ByVal Target As Range)


Якщо не перетинається(ціль, діапазон("D1")) то нічого
Виберіть діапазон випадків ("D1")
Випадок «0.5»: Половина
Випадок «1»: один
Випадок «1.25»: OneTwentyFive
End Select
End If

Якщо не перетинається(ціль, діапазон("D2")) то нічого
Виберіть діапазон випадків ("D2")
Справа «9.53»: дев’ять п’ять три
End Select
End If


End Sub


Для різних аркушів ви можете просто змінити "Зміна приватного підпорядкування (ByVal Target As Range)" у вашому другому коді до "Приватний допоміжний робочий лист_Change(ByVal Target As Range)".

Будь ласка, спробуй. Будь ласка, зв’яжіться зі мною.

Аманда
2 років тому
·
# 2358
0
Голосів
розстібати
Зараз він працює з вашою корекцією

дуже дякую за допомогу :)
2 років тому
·
# 2359
0
Голосів
розстібати
Зараз він працює з вашою корекцією

дуже дякую за допомогу :)

Будь ласка. :)

Аманда
  • Сторінки:
  • 1
На цю посаду ще немає відповідей.