Пычев Анатолий

=ЕСЛИ(ДЛСТР($A$2)>СТРОКА(A2)-СТРОКА($A$2);ПСТР($A$2;СТРОКА(A2)-СТРОКА($A$2)+1;1);"")

=КОДСИМВ(B2)

add_action( 'woocommerce_review_order_after_cart_contents', array( __CLASS__, 'woo_review_order_after_cart_contents' ) );

    /**
     * Обработчик хука woocommerce_review_order_before_submit
     * Выводит checkbox на форму CheckOut только для разрешенных заказов
     */
	public static function woo_review_order_before_submit(  ) {

		?>
			<p class="form-row dorepeate">
				<label class="woocommerce-form__label woocommerce-form__label-for-checkbox checkbox">
				<input type="checkbox" class="woocommerce-form__input woocommerce-form__input-checkbox input-checkbox" name="dorepeate" <?php checked( self::$dorepeate ); ?> id="dorepeate" />
					<span class="woocommerce-dorepeate-checkbox-text">Включить подписку  для этого заказа?</span>
				</label>
			</p>
		<?php

    }

add_filter( 'woocommerce_process_checkout_field_dorepeate', array( __CLASS__, 'woo_process_checkout_field_dorepeate' ) );
    /**
     * Обработчик хука woocommerce_process_checkout_field_
     * для значения checkbox-a 'dorepeate' с формы checkout
     * @param  $value int 1|0
     */
	public static function woo_process_checkout_field_dorepeate( $value ) {
        self::$dorepeate = $value;
        return $value;
    }

// обработчик хука перед сохранением заказа
        add_action( 'woocommerce_checkout_create_order', array( __CLASS__, 'woo_checkout_create_order' ) );
    /**
     * Вызывается Woocommerce перед сохранением заказа
     * @param $order WC_Order
     */
	public static function woo_checkout_create_order( $order ) {

        // сохраняем статус повторяемости заказа
        // определяется возможностью повторяемости для самого товара в корзине
        // и подтверждением пользователя
        $order->update_meta_data( '_is_repeating', self::$dorepeate );
        // начальный статус - 'не активен'
        $order->update_meta_data( '_repeate_status', 'inactive' );
    }

=ЕСЛИ(A1="";"";ЕСЛИ(C1="";"";C1))

Public Function SanitizeCharDigit(ByRef rng As Range) As String
    Dim pattern As String
    Dim replace As String
    Dim RegExp As Object    'Для регулярных выражений

    pattern = "[^A-Z\d]"
    replace = ""

    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True    'Находим ВСЕ совпадения или только первое
        .IgnoreCase = True    'Учитываем ли регистр?
        .MultiLine = True    'Может ли паттерн попадать на разрывы строк?
        .pattern = pattern    'Выражение
    End With

    On Error Resume Next
    SanitizeCharDigit = RegExp.replace(CStr(rng.Value), replace)    'Поиск и замена

    Set RegExp = Nothing    'Очистка памяти от ненужного мусора

End Function