Subversion Repositories eFlore/Applications.cel

<?php

/**

 * PHPExcel

 *

 * Copyright (c) 2006 - 2013 PHPExcel

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2.1 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

 *

 * @category	PHPExcel

 * @package		PHPExcel_Calculation

 * @copyright	Copyright (c) 2006 - 2013 PHPExcel (http://www.codeplex.com/PHPExcel)

 * @license		http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt	LGPL

 * @version		##VERSION##, ##DATE##

 */

/** PHPExcel root directory */

if (!defined('PHPEXCEL_ROOT')) {

	/**

	 * @ignore

	 */

	define('PHPEXCEL_ROOT', dirname(__FILE__) . '/../../');

	require(PHPEXCEL_ROOT . 'PHPExcel/Autoloader.php');

}

/**

 * PHPExcel_Calculation_LookupRef

 *

 * @category	PHPExcel

 * @package		PHPExcel_Calculation

 * @copyright	Copyright (c) 2006 - 2013 PHPExcel (http://www.codeplex.com/PHPExcel)

 */

class PHPExcel_Calculation_LookupRef {

	/**

	 * CELL_ADDRESS

	 *

	 * Creates a cell address as text, given specified row and column numbers.

	 *

	 * Excel Function:

	 *		=ADDRESS(row, column, [relativity], [referenceStyle], [sheetText])

	 *

	 * @param	row				Row number to use in the cell reference

	 * @param	column			Column number to use in the cell reference

	 * @param	relativity		Flag indicating the type of reference to return

	 *								1 or omitted	Absolute

	 *								2				Absolute row; relative column

	 *								3				Relative row; absolute column

	 *								4				Relative

	 * @param	referenceStyle	A logical value that specifies the A1 or R1C1 reference style.

	 *								TRUE or omitted		CELL_ADDRESS returns an A1-style reference

	 *								FALSE				CELL_ADDRESS returns an R1C1-style reference

	 * @param	sheetText		Optional Name of worksheet to use

	 * @return	string

	 */

	public static function CELL_ADDRESS($row, $column, $relativity=1, $referenceStyle=True, $sheetText='') {

		$row		= PHPExcel_Calculation_Functions::flattenSingleValue($row);

		$column		= PHPExcel_Calculation_Functions::flattenSingleValue($column);

		$relativity	= PHPExcel_Calculation_Functions::flattenSingleValue($relativity);

		$sheetText	= PHPExcel_Calculation_Functions::flattenSingleValue($sheetText);

		if (($row < 1) || ($column < 1)) {

			return PHPExcel_Calculation_Functions::VALUE();

		}

		if ($sheetText > '') {

			if (strpos($sheetText,' ') !== False) { $sheetText = "'".$sheetText."'"; }

			$sheetText .='!';

		}

		if ((!is_bool($referenceStyle)) || $referenceStyle) {

			$rowRelative = $columnRelative = '$';

			$column = PHPExcel_Cell::stringFromColumnIndex($column-1);

			if (($relativity == 2) || ($relativity == 4)) { $columnRelative = ''; }

			if (($relativity == 3) || ($relativity == 4)) { $rowRelative = ''; }

			return $sheetText.$columnRelative.$column.$rowRelative.$row;

		} else {

			if (($relativity == 2) || ($relativity == 4)) { $column = '['.$column.']'; }

			if (($relativity == 3) || ($relativity == 4)) { $row = '['.$row.']'; }

			return $sheetText.'R'.$row.'C'.$column;

		}

	}	//	function CELL_ADDRESS()

	/**

	 * COLUMN

	 *

	 * Returns the column number of the given cell reference

	 * If the cell reference is a range of cells, COLUMN returns the column numbers of each column in the reference as a horizontal array.

	 * If cell reference is omitted, and the function is being called through the calculation engine, then it is assumed to be the

	 *		reference of the cell in which the COLUMN function appears; otherwise this function returns 0.

	 *

	 * Excel Function:

	 *		=COLUMN([cellAddress])

	 *

	 * @param	cellAddress		A reference to a range of cells for which you want the column numbers

	 * @return	integer or array of integer

	 */

	public static function COLUMN($cellAddress=Null) {

		if (is_null($cellAddress) || trim($cellAddress) === '') { return 0; }

		if (is_array($cellAddress)) {

			foreach($cellAddress as $columnKey => $value) {

				$columnKey = preg_replace('/[^a-z]/i','',$columnKey);

				return (integer) PHPExcel_Cell::columnIndexFromString($columnKey);

			}

		} else {

			if (strpos($cellAddress,'!') !== false) {

				list($sheet,$cellAddress) = explode('!',$cellAddress);

			}

			if (strpos($cellAddress,':') !== false) {

				list($startAddress,$endAddress) = explode(':',$cellAddress);

				$startAddress = preg_replace('/[^a-z]/i','',$startAddress);

				$endAddress = preg_replace('/[^a-z]/i','',$endAddress);

				$returnValue = array();

				do {

					$returnValue[] = (integer) PHPExcel_Cell::columnIndexFromString($startAddress);

				} while ($startAddress++ != $endAddress);

				return $returnValue;

			} else {

				$cellAddress = preg_replace('/[^a-z]/i','',$cellAddress);

				return (integer) PHPExcel_Cell::columnIndexFromString($cellAddress);

			}

		}

	}	//	function COLUMN()

	/**

	 * COLUMNS

	 *

	 * Returns the number of columns in an array or reference.

	 *

	 * Excel Function:

	 *		=COLUMNS(cellAddress)

	 *

	 * @param	cellAddress		An array or array formula, or a reference to a range of cells for which you want the number of columns

	 * @return	integer			The number of columns in cellAddress

	 */

	public static function COLUMNS($cellAddress=Null) {

		if (is_null($cellAddress) || $cellAddress === '') {

			return 1;

		} elseif (!is_array($cellAddress)) {

			return PHPExcel_Calculation_Functions::VALUE();

		}

		$x = array_keys($cellAddress);

		$x = array_shift($x);

		$isMatrix = (is_numeric($x));

		list($columns,$rows) = PHPExcel_Calculation::_getMatrixDimensions($cellAddress);

		if ($isMatrix) {

			return $rows;

		} else {

			return $columns;

		}

	}	//	function COLUMNS()

	/**

	 * ROW

	 *

	 * Returns the row number of the given cell reference

	 * If the cell reference is a range of cells, ROW returns the row numbers of each row in the reference as a vertical array.

	 * If cell reference is omitted, and the function is being called through the calculation engine, then it is assumed to be the

	 *		reference of the cell in which the ROW function appears; otherwise this function returns 0.

	 *

	 * Excel Function:

	 *		=ROW([cellAddress])

	 *

	 * @param	cellAddress		A reference to a range of cells for which you want the row numbers

	 * @return	integer or array of integer

	 */

	public static function ROW($cellAddress=Null) {

		if (is_null($cellAddress) || trim($cellAddress) === '') { return 0; }

		if (is_array($cellAddress)) {

			foreach($cellAddress as $columnKey => $rowValue) {

				foreach($rowValue as $rowKey => $cellValue) {

					return (integer) preg_replace('/[^0-9]/i','',$rowKey);

				}

			}

		} else {

			if (strpos($cellAddress,'!') !== false) {

				list($sheet,$cellAddress) = explode('!',$cellAddress);

			}

			if (strpos($cellAddress,':') !== false) {

				list($startAddress,$endAddress) = explode(':',$cellAddress);

				$startAddress = preg_replace('/[^0-9]/','',$startAddress);

				$endAddress = preg_replace('/[^0-9]/','',$endAddress);

				$returnValue = array();

				do {

					$returnValue[][] = (integer) $startAddress;

				} while ($startAddress++ != $endAddress);

				return $returnValue;

			} else {

				list($cellAddress) = explode(':',$cellAddress);

				return (integer) preg_replace('/[^0-9]/','',$cellAddress);

			}

		}

	}	//	function ROW()

	/**

	 * ROWS

	 *

	 * Returns the number of rows in an array or reference.

	 *

	 * Excel Function:

	 *		=ROWS(cellAddress)

	 *

	 * @param	cellAddress		An array or array formula, or a reference to a range of cells for which you want the number of rows

	 * @return	integer			The number of rows in cellAddress

	 */

	public static function ROWS($cellAddress=Null) {

		if (is_null($cellAddress) || $cellAddress === '') {

			return 1;

		} elseif (!is_array($cellAddress)) {

			return PHPExcel_Calculation_Functions::VALUE();

		}

		$i = array_keys($cellAddress);

		$isMatrix = (is_numeric(array_shift($i)));

		list($columns,$rows) = PHPExcel_Calculation::_getMatrixDimensions($cellAddress);

		if ($isMatrix) {

			return $columns;

		} else {

			return $rows;

		}

	}	//	function ROWS()

	/**

	 * HYPERLINK

	 *

	 * Excel Function:

	 *		=HYPERLINK(linkURL,displayName)

	 *

	 * @access	public

	 * @category Logical Functions

	 * @param	string			$linkURL		Value to check, is also the value returned when no error

	 * @param	string			$displayName	Value to return when testValue is an error condition

	 * @param	PHPExcel_Cell	$pCell			The cell to set the hyperlink in

	 * @return	mixed	The value of $displayName (or $linkURL if $displayName was blank)

	 */

	public static function HYPERLINK($linkURL = '', $displayName = null, PHPExcel_Cell $pCell = null) {

		$args = func_get_args();

		$pCell = array_pop($args);

		$linkURL		= (is_null($linkURL))		? '' :	PHPExcel_Calculation_Functions::flattenSingleValue($linkURL);

		$displayName	= (is_null($displayName))	? '' :	PHPExcel_Calculation_Functions::flattenSingleValue($displayName);

		if ((!is_object($pCell)) || (trim($linkURL) == '')) {

			return PHPExcel_Calculation_Functions::REF();

		}

		if ((is_object($displayName)) || trim($displayName) == '') {

			$displayName = $linkURL;

		}

		$pCell->getHyperlink()->setUrl($linkURL);

		return $displayName;

	}	//	function HYPERLINK()

	/**

	 * INDIRECT

	 *

	 * Returns the reference specified by a text string.

	 * References are immediately evaluated to display their contents.

	 *

	 * Excel Function:

	 *		=INDIRECT(cellAddress)

	 *

	 * NOTE - INDIRECT() does not yet support the optional a1 parameter introduced in Excel 2010

	 *

	 * @param	cellAddress		$cellAddress	The cell address of the current cell (containing this formula)

	 * @param	PHPExcel_Cell	$pCell			The current cell (containing this formula)

	 * @return	mixed			The cells referenced by cellAddress

	 *

	 * @todo	Support for the optional a1 parameter introduced in Excel 2010

	 *

	 */

	public static function INDIRECT($cellAddress = NULL, PHPExcel_Cell $pCell = NULL) {

		$cellAddress	= PHPExcel_Calculation_Functions::flattenSingleValue($cellAddress);

		if (is_null($cellAddress) || $cellAddress === '') {

			return PHPExcel_Calculation_Functions::REF();

		}

		$cellAddress1 = $cellAddress;

		$cellAddress2 = NULL;

		if (strpos($cellAddress,':') !== false) {

			list($cellAddress1,$cellAddress2) = explode(':',$cellAddress);

		}

		if ((!preg_match('/^'.PHPExcel_Calculation::CALCULATION_REGEXP_CELLREF.'$/i', $cellAddress1, $matches)) ||

			((!is_null($cellAddress2)) && (!preg_match('/^'.PHPExcel_Calculation::CALCULATION_REGEXP_CELLREF.'$/i', $cellAddress2, $matches)))) {

			if (!preg_match('/^'.PHPExcel_Calculation::CALCULATION_REGEXP_NAMEDRANGE.'$/i', $cellAddress1, $matches)) {

				return PHPExcel_Calculation_Functions::REF();

			}

			if (strpos($cellAddress,'!') !== FALSE) {

				list($sheetName, $cellAddress) = explode('!',$cellAddress);

				$sheetName = trim($sheetName, "'");

				$pSheet = $pCell->getParent()->getParent()->getSheetByName($sheetName);

			} else {

				$pSheet = $pCell->getParent();

			}

			return PHPExcel_Calculation::getInstance()->extractNamedRange($cellAddress, $pSheet, FALSE);

		}

		if (strpos($cellAddress,'!') !== FALSE) {

			list($sheetName,$cellAddress) = explode('!',$cellAddress);

			$sheetName = trim($sheetName, "'");

			$pSheet = $pCell->getParent()->getParent()->getSheetByName($sheetName);

		} else {

			$pSheet = $pCell->getParent();

		}

		return PHPExcel_Calculation::getInstance()->extractCellRange($cellAddress, $pSheet, FALSE);

	}	//	function INDIRECT()

	/**

	 * OFFSET

	 *

	 * Returns a reference to a range that is a specified number of rows and columns from a cell or range of cells.

	 * The reference that is returned can be a single cell or a range of cells. You can specify the number of rows and

	 * the number of columns to be returned.

	 *

	 * Excel Function:

	 *		=OFFSET(cellAddress, rows, cols, [height], [width])

	 *

	 * @param	cellAddress		The reference from which you want to base the offset. Reference must refer to a cell or

	 *								range of adjacent cells; otherwise, OFFSET returns the #VALUE! error value.

	 * @param	rows			The number of rows, up or down, that you want the upper-left cell to refer to.

	 *								Using 5 as the rows argument specifies that the upper-left cell in the reference is

	 *								five rows below reference. Rows can be positive (which means below the starting reference)

	 *								or negative (which means above the starting reference).

	 * @param	cols			The number of columns, to the left or right, that you want the upper-left cell of the result

	 *								to refer to. Using 5 as the cols argument specifies that the upper-left cell in the

	 *								reference is five columns to the right of reference. Cols can be positive (which means

	 *								to the right of the starting reference) or negative (which means to the left of the

	 *								starting reference).

	 * @param	height			The height, in number of rows, that you want the returned reference to be. Height must be a positive number.

	 * @param	width			The width, in number of columns, that you want the returned reference to be. Width must be a positive number.

	 * @return	string			A reference to a cell or range of cells

	 */

	public static function OFFSET($cellAddress=Null,$rows=0,$columns=0,$height=null,$width=null) {

		$rows		= PHPExcel_Calculation_Functions::flattenSingleValue($rows);

		$columns	= PHPExcel_Calculation_Functions::flattenSingleValue($columns);

		$height		= PHPExcel_Calculation_Functions::flattenSingleValue($height);

		$width		= PHPExcel_Calculation_Functions::flattenSingleValue($width);

		if ($cellAddress == Null) {

			return 0;

		}

		$args = func_get_args();

		$pCell = array_pop($args);

		if (!is_object($pCell)) {

			return PHPExcel_Calculation_Functions::REF();

		}

		$sheetName = NULL;

		if (strpos($cellAddress,"!")) {

			list($sheetName,$cellAddress) = explode("!",$cellAddress);

			$sheetName = trim($sheetName, "'");

		}

		if (strpos($cellAddress,":")) {

			list($startCell,$endCell) = explode(":",$cellAddress);

		} else {

			$startCell = $endCell = $cellAddress;

		}

		list($startCellColumn,$startCellRow) = PHPExcel_Cell::coordinateFromString($startCell);

		list($endCellColumn,$endCellRow) = PHPExcel_Cell::coordinateFromString($endCell);

		$startCellRow += $rows;

		$startCellColumn = PHPExcel_Cell::columnIndexFromString($startCellColumn) - 1;

		$startCellColumn += $columns;

		if (($startCellRow <= 0) || ($startCellColumn < 0)) {

			return PHPExcel_Calculation_Functions::REF();

		}

		$endCellColumn = PHPExcel_Cell::columnIndexFromString($endCellColumn) - 1;

		if (($width != null) && (!is_object($width))) {

			$endCellColumn = $startCellColumn + $width - 1;

		} else {

			$endCellColumn += $columns;

		}

		$startCellColumn = PHPExcel_Cell::stringFromColumnIndex($startCellColumn);

		if (($height != null) && (!is_object($height))) {

			$endCellRow = $startCellRow + $height - 1;

		} else {

			$endCellRow += $rows;

		}

		if (($endCellRow <= 0) || ($endCellColumn < 0)) {

			return PHPExcel_Calculation_Functions::REF();

		}

		$endCellColumn = PHPExcel_Cell::stringFromColumnIndex($endCellColumn);

		$cellAddress = $startCellColumn.$startCellRow;

		if (($startCellColumn != $endCellColumn) || ($startCellRow != $endCellRow)) {

			$cellAddress .= ':'.$endCellColumn.$endCellRow;

		}

		if ($sheetName !== NULL) {

			$pSheet = $pCell->getParent()->getParent()->getSheetByName($sheetName);

		} else {

			$pSheet = $pCell->getParent();

		}

		return PHPExcel_Calculation::getInstance()->extractCellRange($cellAddress, $pSheet, False);

	}	//	function OFFSET()

	/**

	 * CHOOSE

	 *

	 * Uses lookup_value to return a value from the list of value arguments.

	 * Use CHOOSE to select one of up to 254 values based on the lookup_value.

	 *

	 * Excel Function:

	 *		=CHOOSE(index_num, value1, [value2], ...)

	 *

	 * @param	index_num		Specifies which value argument is selected.

	 *							Index_num must be a number between 1 and 254, or a formula or reference to a cell containing a number

	 *								between 1 and 254.

	 * @param	value1...		Value1 is required, subsequent values are optional.

	 *							Between 1 to 254 value arguments from which CHOOSE selects a value or an action to perform based on

	 *								index_num. The arguments can be numbers, cell references, defined names, formulas, functions, or

	 *								text.

	 * @return	mixed			The selected value

	 */

	public static function CHOOSE() {

		$chooseArgs = func_get_args();

		$chosenEntry = PHPExcel_Calculation_Functions::flattenArray(array_shift($chooseArgs));

		$entryCount = count($chooseArgs) - 1;

		if(is_array($chosenEntry)) {

			$chosenEntry = array_shift($chosenEntry);

		}

		if ((is_numeric($chosenEntry)) && (!is_bool($chosenEntry))) {

			--$chosenEntry;

		} else {

			return PHPExcel_Calculation_Functions::VALUE();

		}

		$chosenEntry = floor($chosenEntry);

		if (($chosenEntry <= 0) || ($chosenEntry > $entryCount)) {

			return PHPExcel_Calculation_Functions::VALUE();

		}

		if (is_array($chooseArgs[$chosenEntry])) {

			return PHPExcel_Calculation_Functions::flattenArray($chooseArgs[$chosenEntry]);

		} else {

			return $chooseArgs[$chosenEntry];

		}

	}	//	function CHOOSE()

	/**

	 * MATCH

	 *

	 * The MATCH function searches for a specified item in a range of cells

	 *

	 * Excel Function:

	 *		=MATCH(lookup_value, lookup_array, [match_type])

	 *

	 * @param	lookup_value	The value that you want to match in lookup_array

	 * @param	lookup_array	The range of cells being searched

	 * @param	match_type		The number -1, 0, or 1. -1 means above, 0 means exact match, 1 means below. If match_type is 1 or -1, the list has to be ordered.

	 * @return	integer			The relative position of the found item

	 */

	public static function MATCH($lookup_value, $lookup_array, $match_type=1) {

		$lookup_array = PHPExcel_Calculation_Functions::flattenArray($lookup_array);

		$lookup_value = PHPExcel_Calculation_Functions::flattenSingleValue($lookup_value);

		$match_type	= (is_null($match_type)) ? 1 : (int) PHPExcel_Calculation_Functions::flattenSingleValue($match_type);

		//	MATCH is not case sensitive

		$lookup_value = strtolower($lookup_value);

		//	lookup_value type has to be number, text, or logical values

		if ((!is_numeric($lookup_value)) && (!is_string($lookup_value)) && (!is_bool($lookup_value))) {

			return PHPExcel_Calculation_Functions::NA();

		}

		//	match_type is 0, 1 or -1

		if (($match_type !== 0) && ($match_type !== -1) && ($match_type !== 1)) {

			return PHPExcel_Calculation_Functions::NA();

		}

		//	lookup_array should not be empty

		$lookupArraySize = count($lookup_array);

		if ($lookupArraySize <= 0) {

			return PHPExcel_Calculation_Functions::NA();

		}

		//	lookup_array should contain only number, text, or logical values, or empty (null) cells

		foreach($lookup_array as $i => $lookupArrayValue) {

			//	check the type of the value

			if ((!is_numeric($lookupArrayValue)) && (!is_string($lookupArrayValue)) &&

				(!is_bool($lookupArrayValue)) && (!is_null($lookupArrayValue))) {

				return PHPExcel_Calculation_Functions::NA();

			}

			//	convert strings to lowercase for case-insensitive testing

			if (is_string($lookupArrayValue)) {

				$lookup_array[$i] = strtolower($lookupArrayValue);

			}

			if ((is_null($lookupArrayValue)) && (($match_type == 1) || ($match_type == -1))) {

				$lookup_array = array_slice($lookup_array,0,$i-1);

			}

		}

		// if match_type is 1 or -1, the list has to be ordered

		if ($match_type == 1) {

			asort($lookup_array);

			$keySet = array_keys($lookup_array);

		} elseif($match_type == -1) {

			arsort($lookup_array);

			$keySet = array_keys($lookup_array);

		}

		// **

		// find the match

		// **

		// loop on the cells

//		var_dump($lookup_array);

//		echo '<br />';

		foreach($lookup_array as $i => $lookupArrayValue) {

			if (($match_type == 0) && ($lookupArrayValue == $lookup_value)) {

				//	exact match

				return ++$i;

			} elseif (($match_type == -1) && ($lookupArrayValue <= $lookup_value)) {

//				echo '$i = '.$i.' => ';

//				var_dump($lookupArrayValue);

//				echo '<br />';

//				echo 'Keyset = ';

//				var_dump($keySet);

//				echo '<br />';

				$i = array_search($i,$keySet);

//				echo '$i='.$i.'<br />';

				// if match_type is -1 <=> find the smallest value that is greater than or equal to lookup_value

				if ($i < 1){

					// 1st cell was allready smaller than the lookup_value

					break;

				} else {

					// the previous cell was the match

					return $keySet[$i-1]+1;

				}

			} elseif (($match_type == 1) && ($lookupArrayValue >= $lookup_value)) {

//				echo '$i = '.$i.' => ';

//				var_dump($lookupArrayValue);

//				echo '<br />';

//				echo 'Keyset = ';

//				var_dump($keySet);

//				echo '<br />';

				$i = array_search($i,$keySet);

//				echo '$i='.$i.'<br />';

				// if match_type is 1 <=> find the largest value that is less than or equal to lookup_value

				if ($i < 1){

					// 1st cell was allready bigger than the lookup_value

					break;

				} else {

					// the previous cell was the match

					return $keySet[$i-1]+1;

				}

			}

		}

		//	unsuccessful in finding a match, return #N/A error value

		return PHPExcel_Calculation_Functions::NA();

	}	//	function MATCH()

	/**

	 * INDEX

	 *

	 * Uses an index to choose a value from a reference or array

	 *

	 * Excel Function:

	 *		=INDEX(range_array, row_num, [column_num])

	 *

	 * @param	range_array		A range of cells or an array constant

	 * @param	row_num			The row in array from which to return a value. If row_num is omitted, column_num is required.

	 * @param	column_num		The column in array from which to return a value. If column_num is omitted, row_num is required.

	 * @return	mixed			the value of a specified cell or array of cells

	 */

	public static function INDEX($arrayValues,$rowNum = 0,$columnNum = 0) {

		if (($rowNum < 0) || ($columnNum < 0)) {

			return PHPExcel_Calculation_Functions::VALUE();

		}

		if (!is_array($arrayValues)) {

			return PHPExcel_Calculation_Functions::REF();

		}

		$rowKeys = array_keys($arrayValues);

		$columnKeys = @array_keys($arrayValues[$rowKeys[0]]);

		if ($columnNum > count($columnKeys)) {

			return PHPExcel_Calculation_Functions::VALUE();

		} elseif ($columnNum == 0) {

			if ($rowNum == 0) {

				return $arrayValues;

			}

			$rowNum = $rowKeys[--$rowNum];

			$returnArray = array();

			foreach($arrayValues as $arrayColumn) {

				if (is_array($arrayColumn)) {

					if (isset($arrayColumn[$rowNum])) {

						$returnArray[] = $arrayColumn[$rowNum];

					} else {

						return $arrayValues[$rowNum];

					}

				} else {

					return $arrayValues[$rowNum];

				}

			}

			return $returnArray;

		}

		$columnNum = $columnKeys[--$columnNum];

		if ($rowNum > count($rowKeys)) {

			return PHPExcel_Calculation_Functions::VALUE();

		} elseif ($rowNum == 0) {

			return $arrayValues[$columnNum];

		}

		$rowNum = $rowKeys[--$rowNum];

		return $arrayValues[$rowNum][$columnNum];

	}	//	function INDEX()

	/**

	 * TRANSPOSE

	 *

	 * @param	array	$matrixData	A matrix of values

	 * @return	array

	 *

	 * Unlike the Excel TRANSPOSE function, which will only work on a single row or column, this function will transpose a full matrix.

	 */

	public static function TRANSPOSE($matrixData) {

		$returnMatrix = array();

		if (!is_array($matrixData)) { $matrixData = array(array($matrixData)); }

		$column = 0;

		foreach($matrixData as $matrixRow) {

			$row = 0;

			foreach($matrixRow as $matrixCell) {

				$returnMatrix[$row][$column] = $matrixCell;

				++$row;

			}

			++$column;

		}

		return $returnMatrix;

	}	//	function TRANSPOSE()

	private static function _vlookupSort($a,$b) {

		$f = array_keys($a);

		$firstColumn = array_shift($f);

		if (strtolower($a[$firstColumn]) == strtolower($b[$firstColumn])) {

			return 0;

		}

		return (strtolower($a[$firstColumn]) < strtolower($b[$firstColumn])) ? -1 : 1;

	}	//	function _vlookupSort()

	/**

	* VLOOKUP

	* The VLOOKUP function searches for value in the left-most column of lookup_array and returns the value in the same row based on the index_number.

	* @param	lookup_value	The value that you want to match in lookup_array

	* @param	lookup_array	The range of cells being searched

	* @param	index_number	The column number in table_array from which the matching value must be returned. The first column is 1.

	* @param	not_exact_match	Determines if you are looking for an exact match based on lookup_value.

	* @return	mixed			The value of the found cell

	*/

	public static function VLOOKUP($lookup_value, $lookup_array, $index_number, $not_exact_match=true) {

		$lookup_value	= PHPExcel_Calculation_Functions::flattenSingleValue($lookup_value);

		$index_number	= PHPExcel_Calculation_Functions::flattenSingleValue($index_number);

		$not_exact_match	= PHPExcel_Calculation_Functions::flattenSingleValue($not_exact_match);

		// index_number must be greater than or equal to 1

		if ($index_number < 1) {

			return PHPExcel_Calculation_Functions::VALUE();

		}

		// index_number must be less than or equal to the number of columns in lookup_array

		if ((!is_array($lookup_array)) || (empty($lookup_array))) {

			return PHPExcel_Calculation_Functions::REF();

		} else {

			$f = array_keys($lookup_array);

			$firstRow = array_pop($f);

			if ((!is_array($lookup_array[$firstRow])) || ($index_number > count($lookup_array[$firstRow]))) {

				return PHPExcel_Calculation_Functions::REF();

			} else {

				$columnKeys = array_keys($lookup_array[$firstRow]);

				$returnColumn = $columnKeys[--$index_number];

				$firstColumn = array_shift($columnKeys);

			}

		}

		if (!$not_exact_match) {

			uasort($lookup_array,array('self','_vlookupSort'));

		}

		$rowNumber = $rowValue = False;

		foreach($lookup_array as $rowKey => $rowData) {

			if (strtolower($rowData[$firstColumn]) > strtolower($lookup_value)) {

				break;

			}

			$rowNumber = $rowKey;

			$rowValue = $rowData[$firstColumn];

		}

		if ($rowNumber !== false) {

			if ((!$not_exact_match) && ($rowValue != $lookup_value)) {

				//	if an exact match is required, we have what we need to return an appropriate response

				return PHPExcel_Calculation_Functions::NA();

			} else {

				//	otherwise return the appropriate value

				return $lookup_array[$rowNumber][$returnColumn];

			}

		}

		return PHPExcel_Calculation_Functions::NA();

	}	//	function VLOOKUP()

	/**

	 * LOOKUP

	 * The LOOKUP function searches for value either from a one-row or one-column range or from an array.

	 * @param	lookup_value	The value that you want to match in lookup_array

	 * @param	lookup_vector	The range of cells being searched

	 * @param	result_vector	The column from which the matching value must be returned

	 * @return	mixed			The value of the found cell

	 */

	public static function LOOKUP($lookup_value, $lookup_vector, $result_vector=null) {

		$lookup_value	= PHPExcel_Calculation_Functions::flattenSingleValue($lookup_value);

		if (!is_array($lookup_vector)) {

			return PHPExcel_Calculation_Functions::NA();

		}

		$lookupRows = count($lookup_vector);

		$l = array_keys($lookup_vector);

		$l = array_shift($l);

		$lookupColumns = count($lookup_vector[$l]);

		if ((($lookupRows == 1) && ($lookupColumns > 1)) || (($lookupRows == 2) && ($lookupColumns != 2))) {

			$lookup_vector = self::TRANSPOSE($lookup_vector);

			$lookupRows = count($lookup_vector);

			$l = array_keys($lookup_vector);

			$lookupColumns = count($lookup_vector[array_shift($l)]);

		}

		if (is_null($result_vector)) {

			$result_vector = $lookup_vector;

		}

		$resultRows = count($result_vector);

		$l = array_keys($result_vector);

		$l = array_shift($l);

		$resultColumns = count($result_vector[$l]);

		if ((($resultRows == 1) && ($resultColumns > 1)) || (($resultRows == 2) && ($resultColumns != 2))) {

			$result_vector = self::TRANSPOSE($result_vector);

			$resultRows = count($result_vector);

			$r = array_keys($result_vector);

			$resultColumns = count($result_vector[array_shift($r)]);

		}

		if ($lookupRows == 2) {

			$result_vector = array_pop($lookup_vector);

			$lookup_vector = array_shift($lookup_vector);

		}

		if ($lookupColumns != 2) {

			foreach($lookup_vector as &$value) {

				if (is_array($value)) {

					$k = array_keys($value);

					$key1 = $key2 = array_shift($k);

					$key2++;

					$dataValue1 = $value[$key1];

				} else {

					$key1 = 0;

					$key2 = 1;

					$dataValue1 = $value;

				}

				$dataValue2 = array_shift($result_vector);

				if (is_array($dataValue2)) {

					$dataValue2 = array_shift($dataValue2);

				}

				$value = array($key1 => $dataValue1, $key2 => $dataValue2);

			}

			unset($value);

		}

		return self::VLOOKUP($lookup_value,$lookup_vector,2);

 	}	//	function LOOKUP()

}	//	class PHPExcel_Calculation_LookupRef