Всем привет, вопрос назрел не могу найти ответ. Есть определённый массив 100, 200, 300, 400, 500, 600 не важно в строке или в столбце. Выделяю определенные числа к примеру 200, 300, 400 мне надо запомнить (скопировать в буфер) сумму выделенных чисел и далее соответственно вставить в другом месте.
Всем привет, вопрос назрел не могу найти ответ. Есть определённый массив 100, 200, 300, 400, 500, 600 не важно в строке или в столбце. Выделяю определенные числа к примеру 200, 300, 400 мне надо запомнить (скопировать в буфер) сумму выделенных чисел и далее соответственно вставить в другом месте.KrEv
в другое - какое? в этом же листе эксель, в блокнот, или еще куда? Ваш файл - пример ускорит решение вашей задачи. И да, формулами это невозможно, только макросом.
в другое - какое? в этом же листе эксель, в блокнот, или еще куда? Ваш файл - пример ускорит решение вашей задачи. И да, формулами это невозможно, только макросом.Michael_S
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) a = Selection.Address b = InStr(a, ":") If b > 0 Then UserForm1.Show End Sub
[/vba] юзерформа: [vba]
Код
Private Sub UserForm_Initialize() a = Mid(1 / 7, 2, 1) c = Application.Sum(Selection) TextBox1 = Replace(c, ".", a) TextBox1.SelStart = 0 TextBox1.SelLength = TextBox1.TextLength TextBox1.Copy CommandButton1.SetFocus End Sub Private Sub CommandButton1_Click() Unload UserForm1 End Sub
[/vba]
вариант:
эта книга: [vba]
Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) a = Selection.Address b = InStr(a, ":") If b > 0 Then UserForm1.Show End Sub
[/vba] юзерформа: [vba]
Код
Private Sub UserForm_Initialize() a = Mid(1 / 7, 2, 1) c = Application.Sum(Selection) TextBox1 = Replace(c, ".", a) TextBox1.SelStart = 0 TextBox1.SelLength = TextBox1.TextLength TextBox1.Copy CommandButton1.SetFocus End Sub Private Sub CommandButton1_Click() Unload UserForm1 End Sub