Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Удаление похожей строки
 
Помогите пожалуйста с макросом.
Нужно удалить из листа 1 строку, если она соответсвует строке из листа 2
Добавить макросы и поля ввода
 
Добрый день!
У меня есть вот такой макрос. Он копирует строку и переносит, ее на другой лист в БазуДанных.
Код
Sub стол()

Range("A3:S3").Copy
With Sheets("АДМИН")
.Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial xlValues

End With
End Sub
У меня кафе и мне нужно добавлять столы.
В новом столе должны появится строки для ввода и этот макрос, чтобы скопировать данные в БазуДанных. После отправки стол должен быть удален (т.е. строки для ввода и макрос для него удалить)
Фиксированная ширина EXCEL
 
Добрый день!

При скрытии интерфейса EXCEL, встает вопрос чтобы лист не мог смешаться вправо и влево. То есть по ширине был фиксированным. Перемешение по высоте оставить.
Но самый лучший вариант, чтобы с помощью скролбара не мог спуститься ниже заполненных ячеек (Ячейки могут быть просто заполнены цветом)
Как сменить значок EXCEL?
 
Добрый день!
Как можно сменить значок EXCEL? На свой
Закрытие без сохранения
 
Добрый день!
Как сделать чтобы в EXCEL по закрытию не выводилось сообщение сохранить?
Нужно чтобы EXCEL автоматически сохранялся по закрытию, но не выводил сообщение о сохранении.
Скрытие интерфейса EXCEL
 
Добрый день!
Нужно скрыть весь интерфейс. Оставить только полосу прокрутки по бокам, и переключение между листами (ОЧЕНЬ ВАЖНО, ЧТОБЫ НЕЛЬЗЯ БЫЛО СДЕЛАТЬ НОВЫЙ ЛИСТ)
И еще нужно изменить значок EXCEL в шапке программы


Использовал такой макрос
Код
Private Sub ChangeInterface(Value As Boolean) With Application
.ScreenUpdating = False
.Caption = IIf(Value = True, Empty, "Наше окно")
.DisplayStatusBar = Value: .DisplayFormulaBar = Value
Dim iCommandBar As CommandBar
For Each iCommandBar In .CommandBars
iCommandBar.Enabled = Value
Next
With .ActiveWindow
.Caption = IIf(Value = True, .Parent.Name, "")
.DisplayHeadings = Value: .DisplayGridlines = Value
.DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
.DisplayWorkbookTabs = Value
End With
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
.ScreenUpdating = True
End With
End Sub
 
Private Sub УбратьВсё()
ChangeInterface False
End Sub
 
Private Sub ВосстановитьИнтерфейс()
ChangeInterface True
End Sub
Изменено: afanasev_n_a - 05.11.2015 09:44:31
Копирование на скрытый лист
 
Добрый день!

Есть макрос на копирование ячеек на другой лист. Я хотел бы чтобы данные можно было копировать на суперскрытыйлист (который делается через VisualBasic)
Дело в том что сотрудники не должны видеть информацию, после того как ввели ее. В идеале конечно сделать лист защищенным, но с этим я вообще не знаю как справится. Помогите пожалуйста

Вот макрос:
Код
Sub добавить()        Range("A9:S9").Select
    Selection.Copy
    Sheets("Лист2").Select
     
    Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Копирование со смещением
 
Добрый день!

Можно ли реализовать копирование со смещением в Excel

У меня есть однострочная табличка "1" из 5 столбцов (справа от таблицы кнопка "Добавить")
Нажимая эту кнопку, значения  из таблицы "1" должны переноситься в таблицу "2" на другом листе
Перенос должен быть на строку следующую за заполнеными
Т.е. после одного нажатия в таблице "2" будет одна строка, после двух нажатий две строки.

Как такое можно реализовать?
Изменено: afanasev_n_a - 23.10.2015 11:29:08
Страницы: 1
Наверх