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

Вход

Регистрация

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

 

= Мир MS Excel/Отправка на эл.почту кнопкой - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: _Boroda_, китин  
Отправка на эл.почту кнопкой
Palladium Дата: Суббота, 14.11.2015, 14:52 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
Здравствуйте! В приложенном файле на листе «Рабочий» все ячейки окрашенные желтым цветом будут защищены, а белые ячейки для написания оперативной информации. Как сделать так, чтобы при нажатии кнопки «Обновить»(зеленые) информация с белых ячеек напротив этой кнопки, уходила на электронную почту нескольким адресатам.
К сообщению приложен файл: 2023323.xlsx (21.7 Kb)
 
Ответить
СообщениеЗдравствуйте! В приложенном файле на листе «Рабочий» все ячейки окрашенные желтым цветом будут защищены, а белые ячейки для написания оперативной информации. Как сделать так, чтобы при нажатии кнопки «Обновить»(зеленые) информация с белых ячеек напротив этой кнопки, уходила на электронную почту нескольким адресатам.

Автор - Palladium
Дата добавления - 14.11.2015 в 14:52
Serge_007 Дата: Суббота, 14.11.2015, 20:31 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Без макросов не решить такую задачу


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеБез макросов не решить такую задачу

Автор - Serge_007
Дата добавления - 14.11.2015 в 20:31
Palladium Дата: Суббота, 14.11.2015, 20:43 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
Без макросов

Поэтому и прошу помочь.
Спасибо за то, что перенесли тему в соответствующий раздел!


Сообщение отредактировал Palladium - Суббота, 14.11.2015, 20:57
 
Ответить
Сообщение
Без макросов

Поэтому и прошу помочь.
Спасибо за то, что перенесли тему в соответствующий раздел!

Автор - Palladium
Дата добавления - 14.11.2015 в 20:43
devilkurs Дата: Понедельник, 16.11.2015, 16:34 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
Palladium,
прошу уточнить какой почтовый клиент? (Outlook, другой установленный клиент или через браузер?)


 
Ответить
СообщениеPalladium,
прошу уточнить какой почтовый клиент? (Outlook, другой установленный клиент или через браузер?)

Автор - devilkurs
Дата добавления - 16.11.2015 в 16:34
Palladium Дата: Понедельник, 16.11.2015, 16:36 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
почтовый клиент

На работе ничего не установлено, кроме Outlook. Так что только он.
 
Ответить
Сообщение
почтовый клиент

На работе ничего не установлено, кроме Outlook. Так что только он.

Автор - Palladium
Дата добавления - 16.11.2015 в 16:36
devilkurs Дата: Понедельник, 16.11.2015, 16:39 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
Это гараздо легче!!!
Как нарисую - выложу (простите, работа много времени отнимает)


 
Ответить
СообщениеЭто гараздо легче!!!
Как нарисую - выложу (простите, работа много времени отнимает)

Автор - devilkurs
Дата добавления - 16.11.2015 в 16:39
Palladium Дата: Понедельник, 16.11.2015, 16:42 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
выложу

Спасибо!!!


Сообщение отредактировал Palladium - Понедельник, 16.11.2015, 16:42
 
Ответить
Сообщение
выложу

Спасибо!!!

Автор - Palladium
Дата добавления - 16.11.2015 в 16:42
devilkurs Дата: Понедельник, 16.11.2015, 17:30 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
Palladium,
А в каком виде должна быть информация в тексте письма? Как кусочек таблицы, или данные через запятую, или в каком виде?


 
Ответить
СообщениеPalladium,
А в каком виде должна быть информация в тексте письма? Как кусочек таблицы, или данные через запятую, или в каком виде?

Автор - devilkurs
Дата добавления - 16.11.2015 в 17:30
Palladium Дата: Понедельник, 16.11.2015, 17:44 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
в каком виде

В графе 2 (задержания): все белые ячейки строки через / или //, а можно чтобы каждая ячейка была в скобках (.......)(......)...
Количество а/м: "за текущий месяц" и "за сутки" можно кнопку объеденить, чтобы за эти две строки отвечала одна кнопка.
В графе 3 (событие) и в графе 4 (структуры) все как в графе 2.


Сообщение отредактировал Palladium - Понедельник, 16.11.2015, 17:45
 
Ответить
Сообщение
в каком виде

В графе 2 (задержания): все белые ячейки строки через / или //, а можно чтобы каждая ячейка была в скобках (.......)(......)...
Количество а/м: "за текущий месяц" и "за сутки" можно кнопку объеденить, чтобы за эти две строки отвечала одна кнопка.
В графе 3 (событие) и в графе 4 (структуры) все как в графе 2.

Автор - Palladium
Дата добавления - 16.11.2015 в 17:44
devilkurs Дата: Понедельник, 16.11.2015, 18:53 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
Palladium,
Протестируйте, скажите что поправить.

Работает следующим образом:
- в ячейке Е1 адреса e-mail. Вводить через запятую. Если место не удобное, нарисуйте где удобно - я исправлю в макросе.
- перед нажатием ЛЮБОЙ кнопки "Обновить" станьте на нужную строку.
- пока что сделал чтоб письмо открывалось с предпросмотром, где останется нажать Отправить. Можно сделать чтоб письмо улетало без предпросмотра.

Тема письма берется из названия Графы
К сообщению приложен файл: _2023323.xlsm (36.4 Kb)


 
Ответить
СообщениеPalladium,
Протестируйте, скажите что поправить.

Работает следующим образом:
- в ячейке Е1 адреса e-mail. Вводить через запятую. Если место не удобное, нарисуйте где удобно - я исправлю в макросе.
- перед нажатием ЛЮБОЙ кнопки "Обновить" станьте на нужную строку.
- пока что сделал чтоб письмо открывалось с предпросмотром, где останется нажать Отправить. Можно сделать чтоб письмо улетало без предпросмотра.

Тема письма берется из названия Графы

Автор - devilkurs
Дата добавления - 16.11.2015 в 18:53
devilkurs Дата: Понедельник, 16.11.2015, 18:55 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
Кнопка Сохранить сохраняет текущий файл с тем же именем.


 
Ответить
СообщениеКнопка Сохранить сохраняет текущий файл с тем же именем.

Автор - devilkurs
Дата добавления - 16.11.2015 в 18:55
Palladium Дата: Понедельник, 16.11.2015, 19:07 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
Протестируйте

Завтра буду на работе и там протестирую. Судя по описанию должно получиться то , что хотел.
станьте на нужную строку.

Просто щелкнуть на ячейке строки или щелкнуть на номере строки?
Кнопка Сохранить

Я имел ввиду, чтобы эта кнопка копировала на другой лист всю таблицу, но пока пусть так все остается. Завтра посмотрю, дома Outlook не настраивал.
Спасибо!!!


Сообщение отредактировал Palladium - Понедельник, 16.11.2015, 19:08
 
Ответить
Сообщение
Протестируйте

Завтра буду на работе и там протестирую. Судя по описанию должно получиться то , что хотел.
станьте на нужную строку.

Просто щелкнуть на ячейке строки или щелкнуть на номере строки?
Кнопка Сохранить

Я имел ввиду, чтобы эта кнопка копировала на другой лист всю таблицу, но пока пусть так все остается. Завтра посмотрю, дома Outlook не настраивал.
Спасибо!!!

Автор - Palladium
Дата добавления - 16.11.2015 в 19:07
devilkurs Дата: Понедельник, 16.11.2015, 19:48 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
Просто щелкнуть на ячейке строки или щелкнуть на номере строки?

На любую ячейку нужной строки.

кнопка копировала на другой лист всю таблицу

Нарисую чуть позже. Создает новый лист с пустой таблицей?


 
Ответить
Сообщение
Просто щелкнуть на ячейке строки или щелкнуть на номере строки?

На любую ячейку нужной строки.

кнопка копировала на другой лист всю таблицу

Нарисую чуть позже. Создает новый лист с пустой таблицей?

Автор - devilkurs
Дата добавления - 16.11.2015 в 19:48
Palladium Дата: Понедельник, 16.11.2015, 19:58 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
Создает новый лист

Нет. "Рабочий" лист - это тот который заполняется 2 раза в сутки и его по окончанию смены нужно копировать на другой лист и после очистить для следующей смены. А лучше глянь вот ссылка на тему о кнопке "Сохранить" там вопрос в принципе решен.[offtop]Как теперь совместитьте макросы те и эти буду думать позже.


Сообщение отредактировал Palladium - Понедельник, 16.11.2015, 20:08
 
Ответить
Сообщение
Создает новый лист

Нет. "Рабочий" лист - это тот который заполняется 2 раза в сутки и его по окончанию смены нужно копировать на другой лист и после очистить для следующей смены. А лучше глянь вот ссылка на тему о кнопке "Сохранить" там вопрос в принципе решен.[offtop]Как теперь совместитьте макросы те и эти буду думать позже.

Автор - Palladium
Дата добавления - 16.11.2015 в 19:58
devilkurs Дата: Понедельник, 16.11.2015, 21:11 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
глянь вот ссылка на тему


О нормуль, и как раз оформлена таблица уже. С учетом это кое-что переделал. Тестируйте из это файла.
К сообщению приложен файл: 6757586.xls (81.0 Kb)


 
Ответить
Сообщение
глянь вот ссылка на тему


О нормуль, и как раз оформлена таблица уже. С учетом это кое-что переделал. Тестируйте из это файла.

Автор - devilkurs
Дата добавления - 16.11.2015 в 21:11
Palladium Дата: Вторник, 17.11.2015, 06:06 | Сообщение № 16
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
из это файла

Спасибо через 2 часа протестирую, тогда и напишу Спасибо!!!
 
Ответить
Сообщение
из это файла

Спасибо через 2 часа протестирую, тогда и напишу Спасибо!!!

Автор - Palladium
Дата добавления - 17.11.2015 в 06:06
Palladium Дата: Вторник, 17.11.2015, 13:19 | Сообщение № 17
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
Тестируйте
Все просто замечательно. Как раз то что хотел. Я оставил одну кнопку "Отправить" и вынес ее на первую строку к тем двум кнопкам, она одна отправляет со всех граф. Я еще в макросе заменил запятую после адреса на точку-запятой (почему то ругался Outlook).
Можно сказать : вопрос решен!!!
Спасибо!!!
[offtop]Если будет тема по этой же таблице, но с продолжением, можно будет обратить Ваше внимание на тему личным сообщением? Спасибо!!!


Сообщение отредактировал Palladium - Вторник, 17.11.2015, 22:14
 
Ответить
Сообщение
Тестируйте
Все просто замечательно. Как раз то что хотел. Я оставил одну кнопку "Отправить" и вынес ее на первую строку к тем двум кнопкам, она одна отправляет со всех граф. Я еще в макросе заменил запятую после адреса на точку-запятой (почему то ругался Outlook).
Можно сказать : вопрос решен!!!
Спасибо!!!
[offtop]Если будет тема по этой же таблице, но с продолжением, можно будет обратить Ваше внимание на тему личным сообщением? Спасибо!!!

Автор - Palladium
Дата добавления - 17.11.2015 в 13:19
devilkurs Дата: Вторник, 17.11.2015, 14:52 | Сообщение № 18
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
Palladium,
Рад что все получилось. Мне было самому интересно решать эту задачку :D .
[offtop]Пишите конечно


 
Ответить
СообщениеPalladium,
Рад что все получилось. Мне было самому интересно решать эту задачку :D .
[offtop]Пишите конечно

Автор - devilkurs
Дата добавления - 17.11.2015 в 14:52
Palladium Дата: Вторник, 17.11.2015, 18:47 | Сообщение № 19
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 20% ±

2003, 2007 RUS
получилось

Я в макросе подправил, чтобы брало в сообщение больше ячеек одной строки - таблицу увеличил. А вот как подправить там где за месяц и за сутки количество а/м, не могу сообразить. Я на работе и с телефона могу только в текстовом файле загрузить макрос. Эти две ячейки объединены, пусть так и будет. Но добавил новые столбцы. Если раньше были CDE, то сейчас CDEFGH. Подскажите, пожалуйста, что заменить нужно. Файл прикладываю.
P/S: Уже дома, поэтому могу показать макрос
[vba]
Код
Sub Отправить_письмо()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
     
     
IRange = ActiveCell.Row 'текущая строка
For ii = 1 To 20
    If ii = 1 Then
        iTo = Range("V4").Value 'кому
    Else
        iTo = iTo + "; " + Range("V" & 3 + ii).Value 'кому
    End If
    If Range("V" & 3 + ii).Value = "" Then Exit For
Next ii
Select Case Range("A" & IRange).MergeArea.Cells(1, 1).Value
    Case 2 'второй ранг
        If Range("B" & IRange).MergeArea.Cells(1, 1).Value = "Количество а/м" Then
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
          Select Case Range("E" & IRange).Value
            Case "За текущий месяц": i = 1
            Case "За сутки": i = -1
          End Select
            iBody = Range("E" & IRange).Value & " : " & Range("C" & IRange).Value & " / " & _
                    Range("D" & IRange).Value & Chr(10) & Range("E" & IRange + i).Value & " : " & _
                    Range("C" & IRange + i).Value & " / " & Range("D" & IRange + i).Value                 ' текст сообщения
        Else
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
            iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                    Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                    Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
        End If
    Case 3 'третий ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
    Case 4 ' соответственно 4 ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
End Select

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")   'запускаем Outlook в скрытом режиме
    OutApp.Session.Logon
    On Error GoTo cleanup  'если не запустился - выходим
    Set OutMail = OutApp.CreateItem(0)   'создаем новое сообщение
    On Error Resume Next
    'заполняем поля сообщения
    With OutMail
        .to = iTo 'кому
        .Subject = iSubject  ' тема сообщения
        .Body = iBody  ' текст сообщения
        '.Attachments.Add Range("A1").Value 'вложения, если когда-то понадобится
        .Display 'команда Send - отправить без предпросмотра письма или Display - чтобы посмотреть сообщение перед отправкой
    End With

    On Error GoTo 0
    Set OutMail = Nothing

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 2136227.txt (3.1 Kb)


Сообщение отредактировал Palladium - Вторник, 17.11.2015, 21:57
 
Ответить
Сообщение
получилось

Я в макросе подправил, чтобы брало в сообщение больше ячеек одной строки - таблицу увеличил. А вот как подправить там где за месяц и за сутки количество а/м, не могу сообразить. Я на работе и с телефона могу только в текстовом файле загрузить макрос. Эти две ячейки объединены, пусть так и будет. Но добавил новые столбцы. Если раньше были CDE, то сейчас CDEFGH. Подскажите, пожалуйста, что заменить нужно. Файл прикладываю.
P/S: Уже дома, поэтому могу показать макрос
[vba]
Код
Sub Отправить_письмо()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
     
     
IRange = ActiveCell.Row 'текущая строка
For ii = 1 To 20
    If ii = 1 Then
        iTo = Range("V4").Value 'кому
    Else
        iTo = iTo + "; " + Range("V" & 3 + ii).Value 'кому
    End If
    If Range("V" & 3 + ii).Value = "" Then Exit For
Next ii
Select Case Range("A" & IRange).MergeArea.Cells(1, 1).Value
    Case 2 'второй ранг
        If Range("B" & IRange).MergeArea.Cells(1, 1).Value = "Количество а/м" Then
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
          Select Case Range("E" & IRange).Value
            Case "За текущий месяц": i = 1
            Case "За сутки": i = -1
          End Select
            iBody = Range("E" & IRange).Value & " : " & Range("C" & IRange).Value & " / " & _
                    Range("D" & IRange).Value & Chr(10) & Range("E" & IRange + i).Value & " : " & _
                    Range("C" & IRange + i).Value & " / " & Range("D" & IRange + i).Value                 ' текст сообщения
        Else
            iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
            iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                    Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                    Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
        End If
    Case 3 'третий ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
    Case 4 ' соответственно 4 ранг
        iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
        iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
                Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
                Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщения
End Select

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")   'запускаем Outlook в скрытом режиме
    OutApp.Session.Logon
    On Error GoTo cleanup  'если не запустился - выходим
    Set OutMail = OutApp.CreateItem(0)   'создаем новое сообщение
    On Error Resume Next
    'заполняем поля сообщения
    With OutMail
        .to = iTo 'кому
        .Subject = iSubject  ' тема сообщения
        .Body = iBody  ' текст сообщения
        '.Attachments.Add Range("A1").Value 'вложения, если когда-то понадобится
        .Display 'команда Send - отправить без предпросмотра письма или Display - чтобы посмотреть сообщение перед отправкой
    End With

    On Error GoTo 0
    Set OutMail = Nothing

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Palladium
Дата добавления - 17.11.2015 в 18:47
devilkurs Дата: Вторник, 17.11.2015, 22:34 | Сообщение № 20
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 43 ±
Замечаний: 0% ±

Excel 2007, 2010
Вечер добрый. Я с телефона , попробую так ответить.
[vba]
Код
Select Case Range("E" & IRange).Value
Case "За текущий месяц": i = 1
Case "За сутки": i = -1
End Select
iBody = Range("E" & IRange).Value & " : " & Range("C" & IRange).Value & " / " & _
Range("D" & IRange).Value & Chr(10) & Range("E" & IRange + i).Value & " : " & _
Range("C" & IRange + i).Value & " / " & Range("D" & IRange + i).Value ' текст сообщения
Else
iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщени
[/vba]
Скорректируйте в первом случае iBody в куске выше. Смысл такой (на память пишу) столбик Е (за сутки например) двоеточие и далее столбы С иD раделенные слешем. После Chr(10) идет обработка другой строки (за месяц допустим). Добавте перед Chr(10) вот такое & Range("C" & IRange).Value & " / " только с новыми столбцами. А послеChr(10) вот такоеRange("C" & IRange + i).Value & " / " с новыми столбцами.




Сообщение отредактировал devilkurs - Вторник, 17.11.2015, 22:43
 
Ответить
СообщениеВечер добрый. Я с телефона , попробую так ответить.
[vba]
Код
Select Case Range("E" & IRange).Value
Case "За текущий месяц": i = 1
Case "За сутки": i = -1
End Select
iBody = Range("E" & IRange).Value & " : " & Range("C" & IRange).Value & " / " & _
Range("D" & IRange).Value & Chr(10) & Range("E" & IRange + i).Value & " : " & _
Range("C" & IRange + i).Value & " / " & Range("D" & IRange + i).Value ' текст сообщения
Else
iSubject = Range("B" & IRange).MergeArea.Cells(1, 1).Value ' тема сообщения
iBody = Range("C" & IRange).Value & " / " & Range("D" & IRange).Value & " / " & _
Range("E" & IRange).Value & " / " & Range("F" & IRange).Value & " / " & _
Range("G" & IRange).Value & " / " & Range("H" & IRange).Value ' текст сообщени
[/vba]
Скорректируйте в первом случае iBody в куске выше. Смысл такой (на память пишу) столбик Е (за сутки например) двоеточие и далее столбы С иD раделенные слешем. После Chr(10) идет обработка другой строки (за месяц допустим). Добавте перед Chr(10) вот такое & Range("C" & IRange).Value & " / " только с новыми столбцами. А послеChr(10) вот такоеRange("C" & IRange + i).Value & " / " с новыми столбцами.

Автор - devilkurs
Дата добавления - 17.11.2015 в 22:34
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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