Гиперссылка на локальный файл с% USERNAME% в Excel [дубликат]

Если вы используете тег ввода, который этот код вам поможет. Я пишу этот код самостоятельно, и я думаю, что это очень хороший способ использования в качестве входных данных. но вы можете изменить его, используя свой формат. Это поможет пользователю исправить свой формат на входном теге.

$("#phone").on('input', function() {  //this is use for every time input change.
        var inputValue = getInputValue(); //get value from input and make it usefull number
        var length = inputValue.length; //get lenth of input

        if (inputValue < 1000)
        {
            inputValue = '1('+inputValue;
        }else if (inputValue < 1000000) 
        {
            inputValue = '1('+ inputValue.substring(0, 3) + ')' + inputValue.substring(3, length);
        }else if (inputValue < 10000000000) 
        {
            inputValue = '1('+ inputValue.substring(0, 3) + ')' + inputValue.substring(3, 6) + '-' + inputValue.substring(6, length);
        }else
        {
            inputValue = '1('+ inputValue.substring(0, 3) + ')' + inputValue.substring(3, 6) + '-' + inputValue.substring(6, 10);
        }       
        $("#phone").val(inputValue); //correct value entered to your input.
        inputValue = getInputValue();//get value again, becuase it changed, this one using for changing color of input border
       if ((inputValue > 2000000000) && (inputValue < 9999999999))
      {
          $("#phone").css("border","black solid 1px");//if it is valid phone number than border will be black.
      }else
      {
          $("#phone").css("border","red solid 1px");//if it is invalid phone number than border will be red.
      }
  });

    function getInputValue() {
         var inputValue = $("#phone").val().replace(/\D/g,'');  //remove all non numeric character
        if (inputValue.charAt(0) == 1) // if first character is 1 than remove it.
        {
            var inputValue = inputValue.substring(1, inputValue.length);
        }
        return inputValue;
}
17
задан Deduplicator 23 February 2015 в 20:28
поделиться

5 ответов

В соответствии с инструкциями по приведенной ниже ссылке выполните следующие действия.

В VBA вставьте новый модуль и вставьте этот код:

Public Function UserName()
    UserName = Environ$("UserName")
End Function

Вызвать функцию, используя формула:

=Username()

Основываясь на инструкциях по адресу:

https://support.office.com/en-us/article/Create-Custom-Functions-in -Excel-2007-2f06c10b-3622-40d6-A1B2-b6748ae8231f

34
ответ дан Jeeped 15 August 2018 в 18:20
поделиться
  • 1
    Благодаря! Это не сработало для меня раньше, потому что я не создал новый модуль. Теперь все хорошо. – Anthony Kong 4 August 2011 в 02:14
  • 2
    для тех, кто сталкивается с этим в 2016 году, ссылка выше не работает – northern-bradley 16 January 2016 в 08:51
  • 3
    Ссылка была исправлена ​​следующим комментарием выше ... – Gallus 15 August 2016 в 09:36

Пример: для просмотра имени пользователя Windows на ячейке C5 вы можете использовать этот скрипт:

Range("C5").Value = ": " & Environ("USERNAME").
3
ответ дан Jack 15 August 2018 в 18:20
поделиться

Самый простой способ - создать макрос VBA, который обертывает эту функцию, например:

Function UserNameWindows() As String
    UserName = Environ("USERNAME")
End Function

Затем вызовите его из ячейки:

=UserNameWindows()

См. этой статьи для более подробной информации и других способов.

2
ответ дан Lance Roberts 15 August 2018 в 18:20
поделиться

, если вы не хотите создавать UDF в VBA , или вы не можете, это может быть альтернативой.

=Cell("Filename",A1) это даст вам полное имя файла, и из этого вы можете получить имя пользователя с чем-то вроде этого:

=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)


Эта формула запускается только из книги, сохраненной ранее.

Вы должны начать с четвертой позиции из-за первой косой черты с диска.

4
ответ дан Rafa Barragan 15 August 2018 в 18:20
поделиться

Отображает имя текущего пользователя:

Function Username() As String
    Username = Application.Username
End Function

Свойство Application.Username содержит имя, введенное с установкой MS Office.

Введите эту формулу в ячейка:

=Username()
1
ответ дан rolacher 15 August 2018 в 18:20
поделиться
Другие вопросы по тегам:

Похожие вопросы: