Сообщения

.

Все, спасибо, огромное!!!! Разобралась

Нет, я года выбираю и время и дату, то выбранная дата в календаре меняется на текущую, а время отображается корректно (выбранное)

Спасибо, время отображает, но все равно при выборе времени переключает выбранную дату на текущую.  HELP

Здравствуйте, форумчане.

Перехожу к делу:
Имеется календарь (см. пример в приложении). Но не работает опция установки времени - устанавливает текущую дату. То есть в Textbox1  должно отображаться и выбранная дата и время. Окажите содействие. Спасибо.

Спасибо огромное, все заработало как надо!

Спасибо, но это не совсем то.
В вашем примере формула считает количество фамилий, независимо от нумерации в колонке А. То есть при раскладе (все даты попадают в диапазон):

№   Дата   Фамилия
1   01.01.2016   Иванов
1   02.01.2016   Иванов
1   03.01.2016   Иванов
1   04.01.2016   Иванов
1   05.01.2016   Иванов
1   06.01.2016   Иванов
1   07.01.2016   Иванов
1   08.01.2016   Иванов
1   09.01.2016   Иванов
1   10.01.2016   Иванов


Ответ должен быть = 1.

Здравствуйте, формучане.

Два дня пытаюсь,  не могу разобраться. Задача в следующем:

Необходимо подсчитать количество уникальных значений в колонке A, но при этом, они должны считаться, только ,если в колонке "С", (содержащей фамилии), находится фамилия, например "Иванов".
Плюс к этому еще одно условие: поиск осуществляется в определенном диапазоне по дате (диапазон будет выбираться пользователем). В примере это ячейки: H1 и I1.
№    Дата                   Фамилия
1   01.01.2016   Иванов
1   02.01.2016   Иванов
1   03.01.2016   Иванов
5   04.01.2016   Сидоров
5   05.01.2016   Сидоров
5   06.01.2016   Сидоров
7   07.01.2016   Петров
8   08.01.2016   Петров
9   09.01.2016   Петров
10   10.01.2016   Петров
Что-то вроде этого:

Код (vb) Выделить Развернуть


=ЕСЛИ(C2:C11="Сидоров";СУММ(ЕСЛИ(ЧАСТОТА(A2:A11;A2:A11)>0;1));0)


Помогите разобраться, спасибо

Так.... вроде получилось. Там чуть в другом дело было. Буду завтра пробовать применить для всех. Спасибо.

C:\Temp - точно копирую. К этой папке доступ есть.

Меняю:

Код (vb) Выделить Развернуть



TempFile = "C:\Temp\TempHtml.htm"



но тогда выделяет вот эти строки:

Код (vb) Выделить Развернуть



With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
TempFile, "Отклонение", "A1:K50", xlHtmlStatic)


и пишет
Application - defined or object-defined error

При этом создается новая книга с нужной таблицей.

Здравствуйте, форумчане.

Проблема в следующем:

Необходимо вставлять в тело письма таблицу. Использую следующий код:

Код (vb) Выделить Развернуть



Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Public Function SheetToHTML(sh As Worksheet)
Dim TempFile As String
Dim fso As Object
Dim ts As Object
Sheets("Отклоение").Visible = True
sh.Copy
TempFile = sh.Parent.Path & "\TempHtml.htm"
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
TempFile, "Отклонение", "A1:K50", xlHtmlStatic)
.Publish (True)
.AutoRepublish = False
End With
ActiveWorkbook.Close False
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
SheetToHTML = ts.ReadAll
SheetToHTML = Replace(SheetToHTML, "align=center", "align=left")
ts.Close
Set ts = Nothing
Set fso = Nothing
Kill TempFile 'сделать экспорт таблицы по средством временного файла, а затем его удалить
Sheets("Отклонение").Visible = False
End Function


Sub Отправка ()

Dim mailApp As Object
Set mailApp = CreateObject("Outlook.Application")
With mailApp.CreateItem(0)
.To = Sheets("Письмо").Range("D10")
.CC = Sheets("Письмо").Range("E10")
.Subject = Sheets("Плюс").Range("B2")
.BodyFormat = 2
.HTMLBody = SheetToHTML(ThisWorkbook.Worksheets("Отклонение"))
.Display
End With
Set mailApp = Nothing


End Sub



И все работает ОК, но как только выкладываю файл в папку общего доступа для нескольких пользователей, возникает ошибка. Создается новая книга с  нужной таблице и на этом все операции прекращаются.  Вот на этой строке возникает ошибка "File not found"

Код (vb) Выделить Развернуть

Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)


Можно ли сохранять данный временный файл в папке  "C:\Temp\" из него брать табличку и вставлять в письмо? То есть, чтобы данный временный файл сохранялся на компьютере того кто в данный момент работает с программой, а не в папке общего доступа, как он делает сейчас и вследствие чего возникает ошибка?   Подправьте, пожалуйста, что не так.  Спасибо.

Спасибо. Тема закрыта

Принцип работы примерно такой:

Код (vb) Выделить Развернуть


Sub Пример()

Dim i As Integer
Dim j As Integer
Dim lastrow As Long
Set Moi_makrosy = ThisWorkbook
Set List1 = ThisWorkbook.Sheets(1)
Set List2 = ThisWorkbook.Sheets(2)
Set List3 = ThisWorkbook.Sheets(3)

   For i = 1 To 11
       For j = 1 To 11
       If List1.Cells(i, 3) = List3.Cells(1, 1) Then
       If List1.Cells(i, 5).Value = "прогул" Then
       
lastrow = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
List2.Cells(lastrow + 1, 1) = List1.Cells(i, 2)
List2.Cells(lastrow + 1, 2) = List1.Cells(i, 3)
List2.Cells(lastrow + 1, 3) = List1.Cells(i, 4)
List2.Cells(lastrow + 1, 4) = List1.Cells(i, 5)
End If
End If
Next j
Next i
End Sub



Но сейчас проблема в том, что на второй лист перенос происходит 11 раз, а надо просто построить новую таблицу одна строка под другой.

Здравствуйте, форумчане
На первой станице имеется таблица с данными, которая заполняется посредством Userform. Необходимо следующее:  переносить данные по «прогульщикам» на другой лист, где по данному нарушителю сформировать таблицу с хронологий нарушений.  То есть, как только я ввожу данные по «Иванову» на Лист1 на Листе2 формируется таблица которая содержит данные из колонок «Дата», «Фамилия ученика», «Оценка», «нарушение», т.е. все что числится за данным учеником, но по критерию «прогул» в хронологическом порядке.  Таким образом, формирование таблицы результатов на Листе2 происходит при совпадении вновь введенной «Фамилии» и «Нарушения».

Варианты пробовала разные, но ни один, даже приблизительно, не  жизнеспособен. 

Подскажите, пожалуйста. Спасибо.