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

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Вторник, 17.02.2015, 12:54 | Сообщение № 561 | Тема: Разбить запись на несколько штук
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
исправил формулу

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеисправил формулу
Автор - krosav4ig
Дата добавления - 17.02.2015 в 12:54
krosav4ig Дата: Вторник, 17.02.2015, 14:24 | Сообщение № 562 | Тема: Разбиение данных с разными разделителями.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
спер макрос тут, немного потанцевал вокруг него с бубном
[vba]
Код
Public Sub Spl()
     Dim x, n&, i&
     Dim arr(), qwe()
     If Selection.Columns.Count > 1 Then Exit Sub
     Application.ScreenUpdating = 0
     n& = Selection.Rows.Count
     For i = n To 1 Step -1
         With Selection(i)
             x = Split(.Value, ", ")
             Dim r$: r = IIf(Application.ReferenceStyle = xlR1C1, "r", "")
             ReDim arr(0)
             Dim m&: m = 0
             For Each qq In x
                 m = m + 1
                 On Error Resume Next
                 qwe = Evaluate("row(" & Replace(qq, "-", r & ":") & IIf(InStr(1, qq, "-"), "", r & ":" & qq) & ")")
                 ReDim Preserve arr(UBound(arr) + UBound(qwe) + (m = 1))
                 For j = UBound(qwe) To 1 Step -1
                     arr(UBound(arr) - j + 1) = Application.Transpose(qwe)(UBound(qwe) - j + 1)
                 Next
             Next
             If Len(.Value) * UBound(arr) And Err.Number = 0 Then
                 Rows(.Row).Offset(1, 0).Resize(UBound(arr)).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow
                 .EntireRow.Copy Rows(.Row).Offset(1, 0).Resize(UBound(arr))
                 Range(.Address).Resize(UBound(arr) + 1, 1).Value = WorksheetFunction.Transpose(arr)
             End If
         End With
     Next
     Application.ScreenUpdating = 1
End Sub
[/vba]
выделяете C2:C3, жмете на кнопку
К сообщению приложен файл: 9518143.xls (34.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеспер макрос тут, немного потанцевал вокруг него с бубном
[vba]
Код
Public Sub Spl()
     Dim x, n&, i&
     Dim arr(), qwe()
     If Selection.Columns.Count > 1 Then Exit Sub
     Application.ScreenUpdating = 0
     n& = Selection.Rows.Count
     For i = n To 1 Step -1
         With Selection(i)
             x = Split(.Value, ", ")
             Dim r$: r = IIf(Application.ReferenceStyle = xlR1C1, "r", "")
             ReDim arr(0)
             Dim m&: m = 0
             For Each qq In x
                 m = m + 1
                 On Error Resume Next
                 qwe = Evaluate("row(" & Replace(qq, "-", r & ":") & IIf(InStr(1, qq, "-"), "", r & ":" & qq) & ")")
                 ReDim Preserve arr(UBound(arr) + UBound(qwe) + (m = 1))
                 For j = UBound(qwe) To 1 Step -1
                     arr(UBound(arr) - j + 1) = Application.Transpose(qwe)(UBound(qwe) - j + 1)
                 Next
             Next
             If Len(.Value) * UBound(arr) And Err.Number = 0 Then
                 Rows(.Row).Offset(1, 0).Resize(UBound(arr)).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow
                 .EntireRow.Copy Rows(.Row).Offset(1, 0).Resize(UBound(arr))
                 Range(.Address).Resize(UBound(arr) + 1, 1).Value = WorksheetFunction.Transpose(arr)
             End If
         End With
     Next
     Application.ScreenUpdating = 1
End Sub
[/vba]
выделяете C2:C3, жмете на кнопку
Автор - krosav4ig
Дата добавления - 17.02.2015 в 14:24
krosav4ig Дата: Вторник, 17.02.2015, 14:54 | Сообщение № 563 | Тема: Разбить запись на несколько штук
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
makao, замените в формуле
Код
ПОИСКПОЗ(H1;$A:$A)
на
Код
ПОИСКПОЗ(H1;$A:$A;)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеmakao, замените в формуле
Код
ПОИСКПОЗ(H1;$A:$A)
на
Код
ПОИСКПОЗ(H1;$A:$A;)
Автор - krosav4ig
Дата добавления - 17.02.2015 в 14:54
krosav4ig Дата: Вторник, 17.02.2015, 16:23 | Сообщение № 564 | Тема: Разбиение данных с разными разделителями.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
проверяйте
[vba]
Код
Public Sub Spl()
     Dim x, n&, i&
     Dim arr(), qwe()
     If Selection.Columns.Count > 1 Then Exit Sub
     Application.ScreenUpdating = 0
     n& = Selection.Rows.Count
     For i = n To 1 Step -1
         With Selection(i)
             x = Split(.Value, ", ")
             Dim r$: r = IIf(Application.ReferenceStyle = xlR1C1, "r", "")
             ReDim arr(0)
             Dim m&: m = 0
             For Each qq In x
                 m = m + 1
                 'On Error Resume Next
                 qwe = Evaluate("row(" & r & "1:" & r & IIf(InStr(1, qq, "-"), Abs(Evaluate(qq)) + 1, 1) & ")-1+" & Split(qq, "-")(0))
                 ReDim Preserve arr(UBound(arr) + UBound(qwe) + (m = 1))
                 For j = UBound(qwe) To 1 Step -1
                     arr(UBound(arr) - j + 1) = WorksheetFunction.Transpose(qwe)(UBound(qwe) - j + 1)
                 Next
             Next
             If Len(.Value) * UBound(arr) And Err.Number = 0 Then
                 Rows(.Row).Offset(1, 0).Resize(UBound(arr)).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow
                 .EntireRow.Copy Rows(.Row).Offset(1, 0).Resize(UBound(arr))
                 Range(.Address).Resize(UBound(arr) + 1, 1).Value = WorksheetFunction.Transpose(arr)
             End If
         End With
     Next
     Application.ScreenUpdating = 1
End Sub
[/vba]
К сообщению приложен файл: 2191136.xls (41.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениепроверяйте
[vba]
Код
Public Sub Spl()
     Dim x, n&, i&
     Dim arr(), qwe()
     If Selection.Columns.Count > 1 Then Exit Sub
     Application.ScreenUpdating = 0
     n& = Selection.Rows.Count
     For i = n To 1 Step -1
         With Selection(i)
             x = Split(.Value, ", ")
             Dim r$: r = IIf(Application.ReferenceStyle = xlR1C1, "r", "")
             ReDim arr(0)
             Dim m&: m = 0
             For Each qq In x
                 m = m + 1
                 'On Error Resume Next
                 qwe = Evaluate("row(" & r & "1:" & r & IIf(InStr(1, qq, "-"), Abs(Evaluate(qq)) + 1, 1) & ")-1+" & Split(qq, "-")(0))
                 ReDim Preserve arr(UBound(arr) + UBound(qwe) + (m = 1))
                 For j = UBound(qwe) To 1 Step -1
                     arr(UBound(arr) - j + 1) = WorksheetFunction.Transpose(qwe)(UBound(qwe) - j + 1)
                 Next
             Next
             If Len(.Value) * UBound(arr) And Err.Number = 0 Then
                 Rows(.Row).Offset(1, 0).Resize(UBound(arr)).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow
                 .EntireRow.Copy Rows(.Row).Offset(1, 0).Resize(UBound(arr))
                 Range(.Address).Resize(UBound(arr) + 1, 1).Value = WorksheetFunction.Transpose(arr)
             End If
         End With
     Next
     Application.ScreenUpdating = 1
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 17.02.2015 в 16:23
krosav4ig Дата: Вторник, 17.02.2015, 18:15 | Сообщение № 565 | Тема: Разбить запись на несколько штук
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
makao, может диаграммой подойдет?
К сообщению приложен файл: 8926424.xlsb (20.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 17.02.2015, 18:16
 
Ответить
Сообщениеmakao, может диаграммой подойдет?
Автор - krosav4ig
Дата добавления - 17.02.2015 в 18:15
krosav4ig Дата: Вторник, 17.02.2015, 18:39 | Сообщение № 566 | Тема: Разбить запись на несколько штук
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ну тогда держите формулу
Код
=ЕСЛИОШИБКА(ПРОСМОТР("яяя";ЕСЛИ(($V2=$A$2:$A$6)*(X$1>=$E$2:$E$6)*(X$1<=$F$2:$F$6);$C$2:$C$6));"")

формула массивная, вводится комбинацией ctrl+shift+enter
К сообщению приложен файл: 1329921.xlsb (24.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 17.02.2015, 18:44
 
Ответить
Сообщениену тогда держите формулу
Код
=ЕСЛИОШИБКА(ПРОСМОТР("яяя";ЕСЛИ(($V2=$A$2:$A$6)*(X$1>=$E$2:$E$6)*(X$1<=$F$2:$F$6);$C$2:$C$6));"")

формула массивная, вводится комбинацией ctrl+shift+enter
Автор - krosav4ig
Дата добавления - 17.02.2015 в 18:39
krosav4ig Дата: Вторник, 17.02.2015, 18:51 | Сообщение № 567 | Тема: Разбить запись на несколько штук
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ошибочка вышла...

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 18.02.2015, 12:57
 
Ответить
Сообщениеошибочка вышла...
Автор - krosav4ig
Дата добавления - 17.02.2015 в 18:51
krosav4ig Дата: Вторник, 17.02.2015, 19:01 | Сообщение № 568 | Тема: Последний символ
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант
Код
=ПРАВБ(B2;ПОИСКПОЗ(1;Ч(ПСТР(B2;ДЛСТР(B2)-СТРОКА($1:$99);1)=";");))
Код
=ПРАВБ(B2;ПОИСКПОЗ(";";ПСТР(B2;ДЛСТР(B2)-СТРОКА($1:$99);1);)-1)

формула массивная
К сообщению приложен файл: 2950124.xls (18.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 18.02.2015, 15:04
 
Ответить
Сообщениееще вариант
Код
=ПРАВБ(B2;ПОИСКПОЗ(1;Ч(ПСТР(B2;ДЛСТР(B2)-СТРОКА($1:$99);1)=";");))
Код
=ПРАВБ(B2;ПОИСКПОЗ(";";ПСТР(B2;ДЛСТР(B2)-СТРОКА($1:$99);1);)-1)

формула массивная
Автор - krosav4ig
Дата добавления - 17.02.2015 в 19:01
krosav4ig Дата: Среда, 18.02.2015, 15:00 | Сообщение № 569 | Тема: Последний символ
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
поправка к моей формуле
Код
=ПРАВБ(B2;ПОИСКПОЗ(";";ПСТР(B2;ДЛСТР(B2)-СТРОКА($1:$99);1);)-1)

Цитата Viper25, 18.02.2015 в 14:48, в сообщении № 12
что означает СТРОКА($1:$40)

Viper25, массив, состоящий из натуральныx чисел до 40 включительно

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 18.02.2015, 15:12
 
Ответить
Сообщениепоправка к моей формуле
Код
=ПРАВБ(B2;ПОИСКПОЗ(";";ПСТР(B2;ДЛСТР(B2)-СТРОКА($1:$99);1);)-1)

Цитата Viper25, 18.02.2015 в 14:48, в сообщении № 12
что означает СТРОКА($1:$40)

Viper25, массив, состоящий из натуральныx чисел до 40 включительно
Автор - krosav4ig
Дата добавления - 18.02.2015 в 15:00
krosav4ig Дата: Пятница, 20.02.2015, 13:00 | Сообщение № 570 | Тема: При достижении предельного значения, меняется %
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если правильно понял
Цитата
=Таблица1[[#Эта строка];[З/п (руб)]]*(90-ЕНД(ПРОСМОТР(Таблица1[[#Эта строка];[база ПФР]];711000))*12)%

можно даже
Цитата
=Таблица1[[#Эта строка];[З/п (руб)]]*(90-ЕНД(ПРОСМОТР(СУММ(Таблица1[[#Заголовки];[З/п (руб)]]:Таблица1[[#Эта строка];[З/п (руб)]]);711000))*12)%
К сообщению приложен файл: 2020163.xlsx (10.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 20.02.2015, 13:06
 
Ответить
Сообщениеесли правильно понял
Цитата
=Таблица1[[#Эта строка];[З/п (руб)]]*(90-ЕНД(ПРОСМОТР(Таблица1[[#Эта строка];[база ПФР]];711000))*12)%

можно даже
Цитата
=Таблица1[[#Эта строка];[З/п (руб)]]*(90-ЕНД(ПРОСМОТР(СУММ(Таблица1[[#Заголовки];[З/п (руб)]]:Таблица1[[#Эта строка];[З/п (руб)]]);711000))*12)%
Автор - krosav4ig
Дата добавления - 20.02.2015 в 13:00
krosav4ig Дата: Пятница, 20.02.2015, 14:07 | Сообщение № 571 | Тема: При достижении предельного значения, меняется %
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Okray, 20.02.2015 в 13:29, в сообщении № 7
Нет, это не то.

Okray, тогда
Код
Таблица1[@[З/п (руб)]]-ЕСЛИ(ПРОСМОТР(711000;[база ПФР])=Таблица1[@[база ПФР]];СУММ(ABS(711000-Ч(ТРАНСП(Таблица1[@[Месяц]:[З/п (руб)]]))-Таблица1[@[база ПФР]])*{22:10}%);Таблица1[@[З/п (руб)]]*(10+12*(Таблица1[@[база ПФР]]<=711000))%)
К сообщению приложен файл: 8445111.xlsx (10.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 20.02.2015, 14:11
 
Ответить
Сообщение
Цитата Okray, 20.02.2015 в 13:29, в сообщении № 7
Нет, это не то.

Okray, тогда
Код
Таблица1[@[З/п (руб)]]-ЕСЛИ(ПРОСМОТР(711000;[база ПФР])=Таблица1[@[база ПФР]];СУММ(ABS(711000-Ч(ТРАНСП(Таблица1[@[Месяц]:[З/п (руб)]]))-Таблица1[@[база ПФР]])*{22:10}%);Таблица1[@[З/п (руб)]]*(10+12*(Таблица1[@[база ПФР]]<=711000))%)
Автор - krosav4ig
Дата добавления - 20.02.2015 в 14:07
krosav4ig Дата: Пятница, 20.02.2015, 14:13 | Сообщение № 572 | Тема: При достижении предельного значения, меняется %
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=СУММ(Таблица1[[#Заголовки];[З/п (руб)]]:Таблица1[@[З/п (руб)]])

Цитата
=СУММ(Таблица1[[#Заголовки];[З/п (руб)]]:Таблица1[[#Эта строка];[З/п (руб)]])

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 20.02.2015, 14:14
 
Ответить
Сообщение
Код
=СУММ(Таблица1[[#Заголовки];[З/п (руб)]]:Таблица1[@[З/п (руб)]])

Цитата
=СУММ(Таблица1[[#Заголовки];[З/п (руб)]]:Таблица1[[#Эта строка];[З/п (руб)]])
Автор - krosav4ig
Дата добавления - 20.02.2015 в 14:13
krosav4ig Дата: Пятница, 20.02.2015, 16:41 | Сообщение № 573 | Тема: Итоговая таблица на основании двух других
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
сводной таблицей через мастер сводных таблиц и диаграмм
К сообщению приложен файл: 3493514.xlsx (16.1 Kb) · 7319541.jpg (43.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 20.02.2015, 16:42
 
Ответить
Сообщениесводной таблицей через мастер сводных таблиц и диаграмм
Автор - krosav4ig
Дата добавления - 20.02.2015 в 16:41
krosav4ig Дата: Суббота, 21.02.2015, 20:31 | Сообщение № 574 | Тема: Итоговая таблица на основании двух других
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
MichaFX, какой версией Excel пользуетесь? чем вам так сводные не нравятся?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеMichaFX, какой версией Excel пользуетесь? чем вам так сводные не нравятся?
Автор - krosav4ig
Дата добавления - 21.02.2015 в 20:31
krosav4ig Дата: Суббота, 21.02.2015, 20:31 | Сообщение № 575 | Тема: Перенос на другой лист
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как-то так
К сообщению приложен файл: 3424971.xlsb (20.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак-то так
Автор - krosav4ig
Дата добавления - 21.02.2015 в 20:31
krosav4ig Дата: Суббота, 21.02.2015, 22:08 | Сообщение № 576 | Тема: Расчет рентабельности накопительным итогом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
так нужно?
К сообщению приложен файл: 7245678.xls (49.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениетак нужно?
Автор - krosav4ig
Дата добавления - 21.02.2015 в 22:08
krosav4ig Дата: Воскресенье, 22.02.2015, 00:11 | Сообщение № 577 | Тема: Расчет рентабельности накопительным итогом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант с доп. столбцами
К сообщению приложен файл: 5682852.xls (97.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 22.02.2015, 00:27
 
Ответить
Сообщениееще вариант с доп. столбцами
Автор - krosav4ig
Дата добавления - 22.02.2015 в 00:11
krosav4ig Дата: Воскресенье, 22.02.2015, 03:10 | Сообщение № 578 | Тема: Перенос данных из нескольких таблиц, в одну
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
galina_li, устанавливайте Power Query, смотрите видео
В общей таблице добавил сквозную нумерацию и имена файлов
К сообщению приложен файл: power_query.zip (54.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеgalina_li, устанавливайте Power Query, смотрите видео
В общей таблице добавил сквозную нумерацию и имена файлов
Автор - krosav4ig
Дата добавления - 22.02.2015 в 03:10
krosav4ig Дата: Воскресенье, 22.02.2015, 03:14 | Сообщение № 579 | Тема: Итоговая таблица на основании двух других
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата MichaFX, 21.02.2015 в 22:56, в сообщении № 7
Цитата
MichaFX, какой версией Excel пользуетесь?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата MichaFX, 21.02.2015 в 22:56, в сообщении № 7
Цитата
MichaFX, какой версией Excel пользуетесь?
Автор - krosav4ig
Дата добавления - 22.02.2015 в 03:14
krosav4ig Дата: Воскресенье, 22.02.2015, 03:59 | Сообщение № 580 | Тема: Синтаксис кода. Отправка E-mail через Excel.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
ActiveWorkbook.SendMail array("mail1@gmail.com","mail1@gmail.com"), "Letter"
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
ActiveWorkbook.SendMail array("mail1@gmail.com","mail1@gmail.com"), "Letter"
[/vba]
Автор - krosav4ig
Дата добавления - 22.02.2015 в 03:59
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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