Если вы используете тег ввода, который этот код вам поможет. Я пишу этот код самостоятельно, и я думаю, что это очень хороший способ использования в качестве входных данных. но вы можете изменить его, используя свой формат. Это поможет пользователю исправить свой формат на входном теге.
$("#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;
}
В соответствии с инструкциями по приведенной ниже ссылке выполните следующие действия.
В VBA вставьте новый модуль и вставьте этот код:
Public Function UserName()
UserName = Environ$("UserName")
End Function
Вызвать функцию, используя формула:
=Username()
Основываясь на инструкциях по адресу:
Пример: для просмотра имени пользователя Windows на ячейке C5 вы можете использовать этот скрипт:
Range("C5").Value = ": " & Environ("USERNAME").
Самый простой способ - создать макрос VBA, который обертывает эту функцию, например:
Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function
Затем вызовите его из ячейки:
=UserNameWindows()
См. этой статьи для более подробной информации и других способов.
, если вы не хотите создавать UDF в VBA , или вы не можете, это может быть альтернативой.
=Cell("Filename",A1)
это даст вам полное имя файла, и из этого вы можете получить имя пользователя с чем-то вроде этого:
=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)
Эта формула запускается только из книги, сохраненной ранее.
Вы должны начать с четвертой позиции из-за первой косой черты с диска.
Отображает имя текущего пользователя:
Function Username() As String
Username = Application.Username
End Function
Свойство Application.Username
содержит имя, введенное с установкой MS Office.
Введите эту формулу в ячейка:
=Username()