[Iska]

Iska, скриптик сделаете? »

Попробуем.

[Iska]

Попробовал. За-ши-бись: The conditional formatting may be set incorrectly when you use VBA in Excel (Last Updated: 8/01/2017), четыре часа псу под хвост.

Теперь пробуйте Вы:

Скрытый текст

Код:

Option Explicit

Const xlDown        = &HFFFFEFE7
Const xlToRight     = &HFFFFEFBF

Const xlExpression  = 2


Dim strSourceFile
Dim objFSO


If WScript.Arguments.Count = 1 Then
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	strSourceFile = objFSO.GetAbsolutePathName(WScript.Arguments.Item(0))
	
	If objFSO.FileExists(strSourceFile) Then
		Select Case LCase(objFSO.GetExtensionName(strSourceFile))
			Case "xls", "xlsx"
				With WScript.CreateObject("Excel.Application")
					With .Workbooks.Open(strSourceFile)
						With .Worksheets.Item(1).Range("B7")
							If .Value = "Время" Then
								With .Parent.Range(.Offset(1, 0), .Offset(1, 0).End(xlDown))
									.Value = .Value
									
									With .Parent.Range(.Offset(0, -1), .End(xlToRight))
										.Select
										
										With .FormatConditions
											.Delete
											.Add(xlExpression, , "=ИЛИ(И($C9 = ""вход""; $B9 > " & CDbl(#08:35:00#) & "); И($C9 = ""выход""; $B9 < " & CDbl(#17:25:00#) & "))").Interior.ColorIndex = 40
										End With
									End With
								End With
								
								.Parent.Range("A1").Select
							Else
								WScript.Echo "Can't find value [Время] in [B7] cell."
								.Select
								.Application.Visible = True
								
								WScript.Quit 4
							End If
						End With
						
						.Save
						.Close
					End With
					
					.Quit
				End With
			Case Else
				WScript.Echo "Probably source file [" & strSourceFile & "] not an Excel Workbook."
				WScript.Quit 3
		End Select
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

Я всё же внёс значимые на мой взгляд изменения:

• время в исходном формате текстовых строк я по-прежнему считаю правильным преобразовывать в численные значения;
• поэтому в формуле сравниваются не строки текста, а численные значения времени;
• я заменил в формуле арифметическое сложение логических значений на функцию Рабочего листа «ИЛИ()»;
• раздражающий красный цвет заменил на бледно-оранжевый.

и попутно обнаружил, что некоторые вместо выхода делают ещё один вход:

Скрытый текст

[Tolea3]

Iska, выдается ошибка при переносе файла .xlsx на .vbs

Видео с ошибкой

https://www.youtube.com/watch?v=62QlxHyCe-o

[Iska]

Iska, выдается ошибка при переносе файла .xlsx на .vbs »

Старый добрый Notepad++, не умеющий толком работать с кодировками .

Tolea3, 00:45, перед вставкой текста кода. Обратите внимание, какая используется кодировка:

Скрытый текст

— UTF-8/65001 без BOM. А должна быть — ANSI/1251.

Посему, перед вставкой текста кода, выполните:

Скрытый текст

Дальше «по тексту».

P.S. Я пользую редактор Far Manager'а:

Скрытый текст

[Tolea3]

UTF-8/65001 без BOM. А должна быть — ANSI/1251. »

Заработало, спс вам огромное

[Tolea3]

Iska, Здраствуйте. Вы мне сильно помогли с тем скриптом для выевления сотрудников когда приходят позно или уходят рано с работы. Но до того как применить ваш скрипт я еше делаю некие манипуляции с файлом потом применяю скрипт. Вожно ль автоматизировать и деиствия которые я делаю до приминения скрипта?

Видео

https://www.youtube.com/watch?v=66pd61GbIGU

Я сам не начальник, а обычный сотрудник и есль я в отпуске или заболею или уиду с работы вопше то начальникам будет туго так как они не шарят в excell. Я хочу что бы из программы сгенерировал отчет, приминил скрипт и всё готова, осталось тока звать на ковер провинившийся.19. Judecatori — original.xlsx

[Iska]

Итак:

1. Удалить или скрыть столбцы C, E, F (тип события Вам не важен?).
2. Сделать автоподбор ширины столбцов.
3. Убрать обрамление границ строк 3:5.
4. Снять заливку с шапки таблицы (Зачем снимать? Можно просто сделать более бледный цвет).
5. Отсортировать таблицу по Таб. №, Дата, Время (а не по одному ФИО).
6. Оставить в списке строк таблицы только по первому и последнему появлению Таб. №.
7. …

?

Tolea3, чей туфля? В смысле — чем формируется отчёт? Дабы не выполнять лишнюю работу — поищите в настройках отчёта пункт наподобие «Формировать только первое и последнее появление ключа».

приминил скрипт и всё готова, осталось тока звать на ковер провинившийся »

Э… может пусть сразу и выговор с занесением распечатывает — ну, чтоб два раза не вставать?

[Tolea3]

Iska, в настроиках покавырялса ничго путного не нашёл и даже специалистам которые устанавливали систему звонил и спрашивал, говорят нету тут нужных мне функции
Вот эта софтина выдаёт отчёт

Скрин

1.png

[Iska]

в настроиках покавырялса ничго путного не нашёл и даже специалистам которые устанавливали систему звонил и спрашивал, говорят нету тут нужных мне функции »

Tolea3, странно. Во всех мною ранее виденных подобное наличествовало. Можете озвучить данную претензию тем специалистам.

А что по остальным вопросам (кроме последнего), которые выше?

[Tolea3]

Iska, Судя по размеру текушего скрипта то следуюшии должен быть прям огромный и дабы не мучать вас оставте так как есть. Пока я тут работаю мне не сложно все обрабатывать а вот после меня началиники пускай сами как знают обработают информацию