Электронная таблица :: WriteExcel - data_validation - PullRequest
Новая
       16

Электронная таблица :: WriteExcel - data_validation

2 голосов
/ 03 января 2011 
#! /usr/bin/env perl
use warnings;
use 5.012;
use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new( 'test_test.xls' ) or die $!;
my $sheet = $workbook->add_worksheet();
my $format_in = $workbook->add_format( align => 'center', valign => 'vcenter' );
my $format_st = $workbook->add_format( align => 'center', valign => 'vcenter' );
$format_in->set_num_format ( 'hh:mm' );
$format_st->set_num_format ( '[h]:mm' );
$sheet->set_row( 0, 22 );
$sheet->set_row( 1, 22 );
$sheet->set_column( 'A:D', 20, $format_in );
$sheet->set_column( 'E:E', 20, $format_st );
$sheet->write( 'A1', 'begin am' );
$sheet->write( 'B1', 'end am' );
$sheet->write( 'C1', 'begin pm' );
$sheet->write( 'D1', 'end pm' );
$sheet->write( 'E1', 'time' );

$sheet->data_validation( 'A2:D2', {
    validate        => 'time',
    criteria        => 'between',
    minimum         => 'T06:00',
    maximum         => 'T20:00',
});

$sheet->write_formula( 'E2', '=(B2-A2)+(D2-C2)' );

$workbook->close() or die $!;

Какой тип data_validation будет проверять, больше ли значение "end am", чем значение "begin am" (и больше "end pm", чем "begin pm")?
Я попробовал это, но это не сработало: 

$sheet->data_validation( 'B2', {
    validate        => 'time',
    criteria        => '>=',
    value           => '=A2',
});
$sheet->data_validation( 'D2', {
    validate        => 'time',
    criteria        => '>=',
    value           => '=C2',
});

Spreadsheet :: WriteExcel

Ответы [ 2 ]

5 голосов
/ 03 января 2011

Последние проверки, которые вы показываете, должны работать. Смотрите скриншот ниже:

alt text

Вы должны получить тот же эффект, если введете время в формате чч: мм.

Какую версию Excel вы используете? Эти проверки данных не работают с OpenOffice.

P.S. Я являюсь автором Spreadsheet :: WriteExcel.

2 голосов
/ 03 января 2011

Попробуйте: 

$sheet->data_validation( 'B2', {
    validate => 'custom',
    value => '=IF(B2>A2,TRUE,FALSE)',
} );

Обновление: это почти буквально взято из чуть выше http://metacpan.org/pod/Spreadsheet::WriteExcel#criteria (версия 2.37), но, похоже, не работает для меня в OpenOffice - любое введенное значениеотклоняется как недействительный.

Это, с другой стороны, из приведенного ниже примера, кажется, никогда не говорит, что оно недействительно: 

$sheet->data_validation( 'B2', {
    validate => 'time',
    criteria => '>',
    value => '=A2',
} );
...