Excel - бутон за запис на макроси
Проблем
Бих искал да създам команден бутон "Запис" в Excel файл.
Когато някой кликне върху бутона, макрос поема клетката, в която лицето е въвело името си и клетката, съдържаща съответната дата, и запазва данните в работна книга.
Решение
- Отворете работната си книга
- Отворете VBA Alt F11
- Двойно щракване с левия бутон върху тази книга в горния ляв ъгъл
- Кликнете с десния бутон в десния прозорец
Копирайте кода по-долу в този прозорец
Sub Macro_Enregistrement () Dim Nom_Fichier, Chemin, Отговор 'A definir Chemin = "C: ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... Обхват ("A1") & Работни листове ("Feuil1"). Обхват ("A2") & ".xlsm" retval = MsgBox ("Voulezvous enregistrer ce fichier:" & Nom_Fichier & "?", VbYesNo) = 6 Тогава Reponse = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook. Край Под
- Създайте бутон и назначете макроса.
Благодарение на f894009 за този съвет.