Присвоение имени макросом в excel

ТРЕНИНГИ

   Быстрый старт
   Расширенный Excel
   Мастер Формул
   Прогнозирование
   Визуализация
   Макросы на VBA

КНИГИ

   Готовые решения
   Мастер Формул
   Скульптор данных

ВИДЕОУРОКИ

ОНЛАЙН-КУРСЫ

ФОРУМ

   Excel
   Работа
   PLEX

© Николай Павлов, Planetaexcel, 2006-2022
info@planetaexcel.ru

Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.

Техническая поддержка сайта

Skip to content

Sub DobavitNoviiList()
'Шаг 1: Говорим Excel, что делать, если ошибка
On Error GoTo MyError
'Шаг 2: Добавляем лист
Sheets.Add
'Шаг 3: Присваиваем имя
ActiveSheet.Name = "Отчет"_
WorksheetFunction.Text(Now(),"yyyy")
'Шаг 4: Выходим
Exit Sub
'Шаг 5: Если произошла ошибка, сообщение пользователю
MyError:
MsgBox "Лист с таким именем уже есть!"
End Sub

Доброго времени суток!
Написал макрос, который создает в рабочей книге лист и переименовывает его в формат текущая дата (месяц) + постоянное значение (допустим гос. № автомобиля) используя функцию =СЦЕПИТЬ. Макрос работает, однако для отображения в ячейке текущей даты в формате (месяц) пришлось использовать функцию =ЕСЛИ(И, т.к. при присвоении имени листу дата выводится только в числовом формате (допустим 40564) и имя листа получается 40564 А 123 АА 199, а необходимо Январь А 123 АА 199.
Повторяю, все работает, однако функция ЕСЛИ работает только с 7 аргументами (т.е. до Июля, а необходимо все 12 месяцев). Вот код макроса:
Sub Макрос6()
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
    Range(«A1»).Select
    ActiveCell.FormulaR1C1 = «=TODAY()»
    Range(«A2»).Select
    ActiveCell.FormulaR1C1 = «=MONTH(R[-1]C)»
    Range(«A3»).Select
    ActiveCell.FormulaR1C1 = _
        «=IF(AND(R[-1]C=1),»»Январь»»,IF(AND(R[-1]C=2),»»Февраль»»,IF(AND(R[-1]C=3),»»Март»»,IF(AND(R[-1]C=4),»»Апрель»»,IF(AND(R[-1]C=5),»»Май»»,IF(AND(R[-1]C=6),»»Июнь»»,IF(AND(R[-1]C=7),»»Июль»»,)))))))»
        Selection.Copy
    Range(«A4»).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range(«A5»).Select
    ActiveCell.FormulaR1C1 = » А 123 АА 199″
    Range(«A6»).Select
    ActiveCell.FormulaR1C1 = «=CONCATENATE(R[-2]C,R[-1]C)»
Dim myWorksheet As Worksheet
For Each myWorksheet In Worksheets
If myWorksheet.Range(«A1»).Value <> «» Then
myWorksheet.Name = myWorksheet.Range(«A6»).Value
End If
Next
    Range(«A1:A6»).Select
    Selection.ClearContents
    Range(«A1»).Select
End Sub

Прошу помогите!

A UserFrom refers to a form or a dialog box on the screen that enables a user to input data into Excel’s user interface. it can be created using the Visual Basic Editor and is used to control data entry and avoid errors.

1. Creating a UserForm: 

To create a userform head on to the Developer tab-> Visual Basic->Insert->UserForm.

You can also go to the Project window on the left side and right-click the workbook you want to use and select Insert->UserForm. This opens up a blank userform (UserForm1) and a toolbox(if the toolbox doesn’t pop up head on to View>toolbox).

2. Naming the UserForm:

By default, excel opens up an userform with the name UserForm1 in order to change that name:

• Head to the Properties window(view>Properties window), This opens a pane on the left.
• Click on the ‘Name’ section and type a name of your choice. (don’t add spaces)
• The name won’t be reflected on the userform when you do so because that’s a different property of the form.
• Head to the ‘Caption’ property and type in a name, and it will be reflected on your UserForm.

Now let’s play with some controls and learn how to add them to our UserForm.

3. Adding a Textbox to the UserForm:

A Textbox is used to enable users to input information into the form. 

• To add a TextBox head onto the ToolBox. Click on( View->Toolbox) if it isn’t visible by default.
• Select the TextBox button
• Click on the userform to place it or drag it to a position of your choice.
• You can resize the Textbox to the dimensions of your liking

To rename the Textbox With the new textbox selected, double-click on the ‘Name’ property in the Properties window and rename it(its been renamed to ‘TextBox’ here).

4. Adding a Label to the UserForm:

A Label can be used to describe what type of data is being entered into the textboxes, a message, or instructions.

• To add a Label head onto the ToolBox.
• Select the ‘Label ‘button
• Click on the userform to place it or drag it to a position of your choice.
• You can resize it to the dimensions of your liking or leave it in standard size.

To rename the Label With the new Label selected, double-click on the ‘Name‘ property in the Properties window and rename it. Also, change the ‘Caption’ property accordingly. its been renamed to ‘LblSelectSheet’ and captioned to ‘Please select a worksheet’.

5. Adding Buttons to the Userform:

To make the form interactive you can place buttons to perform certain actions. 

• To add a Button head onto the ToolBox.
• Select the ‘CommandButton’ button
• Click on the userform to place it or drag it to a position of your choice.
• You can resize it to the dimensions of your liking or reposition the buttons by dragging them to a new location on the form.

To rename the button With the new button selected, double-click on the ‘Name’ property in the Properties window and rename it. Then change the ‘Caption’ property to name the button relevantly close to the action it will be performing. For example the AddSheet and CloseFom button in the image below. In the below images 2 buttons have been added and renamed to ‘CmdAddSheet’ and ‘CmdCloseFrm’ and captioned to ‘Add Sheet’ and ‘Close Form’.

6. Adding code to the buttons:

To ensure the buttons are performing the actions we need to code inside VBA and to add code for specific controls double-click on the controls in the form, and it directs you to the specific code segment. After adding the necessary code for each of the controls click on the run button to display the userform.

• Select the button for example Add sheet button in this example
• On the Menu bar, choose View >Code.
• This creates a procedure, where you can add your code.
• Enter the following code to add another sheet to your workbook and name it according to your choice.

Private Sub CmdAddSheet_Click()
Worksheets.Add before:=Worksheets(1)
ActiveSheet.Name = InputBox("please enter the name for the worksheet")
End Sub

7. Adding code to the close button :

Add the following code to close the form by clicking on the ‘close from’ button and redirect to the VBE.

Private Sub CmdCloseFrm_Click()
  Unload Me
End Sub

8. Testing the userform :

To test the UserForm simply go to the menu bar and hit the Run button. It runs userform and displays it on the screen. For example, a userform that selects a sheet from the combobox and directs you to it, with 2 buttons Add Sheet and Close form button to add an extra sheet in the workbook and the close the userform is displayed. 

Complete code to run the above userform inclusive of a combobox with the list of worksheets currently present in the workbook and functionality of buttons is:

Private Sub CmdAddSheet_Click()
Worksheets.Add before:=Worksheets(1)
ActiveSheet.Name = InputBox("please enter the name for the worksheet")
End Sub

Private Sub CmdCloseFrm_Click()
Unload Me
End Sub

Private Sub combobox_Change()
Worksheets(Me.combobox.Value).Select


End Sub

Private Sub UserForm_Initialize()
   
    Dim i As Integer
    i = 1
    Do While i <= Worksheets.Count
    Me.combobox.AddItem Worksheets(i).Name
    i = i + 1
    Loop
   
   
End Sub

To automate the userform experience or to display it  as soon as you open the workbook the following needs to be done:

Making use of the workbook event

• Head on to the Developer tab>Visual Basic.
• Double click  “This workbook”  from the project window.
• Change the drop-down on the top left from General to workbook.
• Add this line of code to the procedure “formname.show”(in the below example frmFinalReport.show).
• Save and run.