Необходим макрос, вставляющий рядом с ячейкой, содержащей число, столбец с записью разложения этого числа на простые множители. Я вывожу разложение на множители в MsgBox,а вот как сделать именно так,как в задании написано,ума не приложу. Перелопатил много примеров,но так ничего и не нашел нужного. Помогите,пожалуйста,кто чем сможет. Файл с моим вариантом прилагается!
Необходим макрос, вставляющий рядом с ячейкой, содержащей число, столбец с записью разложения этого числа на простые множители. Я вывожу разложение на множители в MsgBox,а вот как сделать именно так,как в задании написано,ума не приложу. Перелопатил много примеров,но так ничего и не нашел нужного. Помогите,пожалуйста,кто чем сможет. Файл с моим вариантом прилагается!Zvuk
Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Integer, chislo As Integer, i As Integer, del As String If Target.Address = "$A$1" Then chislo = Target.Value i = 2 a = chislo While chislo > 1 While chislo Mod i = 0 del = del & i & " " chislo = chislo / i Wend i = i + 1 Wend Target.Next.Resize(UBound(Split(del)) + 1) = Application.Transpose(Split(del)) 'MsgBox (a & " = " & del) End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Integer, chislo As Integer, i As Integer, del As String If Target.Address = "$A$1" Then chislo = Target.Value i = 2 a = chislo While chislo > 1 While chislo Mod i = 0 del = del & i & " " chislo = chislo / i Wend i = i + 1 Wend Target.Next.Resize(UBound(Split(del)) + 1) = Application.Transpose(Split(del)) 'MsgBox (a & " = " & del) End If End Sub
Можно оформить как пользовательскую функцию и в соседнюю ячейку ее, например, справа: [vba]
Код
Function UDF_MNOJITELI(chislo) Dim i As Integer, del As String i = 2 While chislo > 1 While chislo Mod i = 0 del = del & "*" & i chislo = chislo / i Wend i = i + 1 Wend UDF_MNOJITELI = Mid(del, 2) End Function
[/vba]
Можно оформить как пользовательскую функцию и в соседнюю ячейку ее, например, справа: [vba]
Код
Function UDF_MNOJITELI(chislo) Dim i As Integer, del As String i = 2 While chislo > 1 While chislo Mod i = 0 del = del & "*" & i chislo = chislo / i Wend i = i + 1 Wend UDF_MNOJITELI = Mid(del, 2) End Function
разлаживаться — разваливаться, приходить в расстройство, трещать по швам, трещать по всем швам, идти вкривь и вкось, идти кувырком, расползаться по швам, портиться, повреждаться, расползаться, расстраиваться, разрушаться Словарь русских синонимов.
великая и могучая русская языка!
Цитата
разлаживаться — разваливаться, приходить в расстройство, трещать по швам, трещать по всем швам, идти вкривь и вкось, идти кувырком, расползаться по швам, портиться, повреждаться, расползаться, расстраиваться, разрушаться Словарь русских синонимов.