Всплывающее окно Excel для расчета ячейки
Первый плакат здесь. Я начинаю, когда дело доходит до кода Excel VBA. Как создать окно PopUp, которое появляется при нажатии ячейки, которая затем обновляется в зависимости от того, что введено в окне PopUp? Ячейка содержит номер, который я хочу обновить.
Скажем, у меня есть список ячеек, содержащих числа, я нажимаю на одну из ячеек и в всплывающем окне окна пишу +5. Исходный номер теперь обновляется с добавлением 5. То же самое было бы наоборот, если я написал -5 в окне PopUp.
- EPPlus DataTable Экспорт в Excel - это вывод моих данных в всплывающее окно
- Поднимите форму пользователя при нажатии на ячейку
- VBA, чтобы опустить как всплывающее окно из Internet Explorer при загрузке файла xls
- Всплывающее окно, когда мышь наводится над кнопкой в excel 2010
- Всплывающее сообщение об ошибке (макрос) - для обновления по выбору флажка - Excel 2010
Это должно помочь вам начать:
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim targetRange As Range Dim activeRange As Range Dim origVal As Integer Dim addVal As Integer Dim dialogResult As String Set targetRange = Target(1, 1) Set activeRange = Range("B2:B207") If Not Intersect(targetRange, activeRange) Is Nothing Then origVal = targetRange.Value dialogResult = InputBox("Enter number to add") If dialogResult <> "" Then If IsNumeric(dialogResult) Then addVal = dialogResult targetRange.Value = origVal + addVal Else MsgBox "Please enter a valid number!", vbCritical End If End If End If End Sub