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

Страницы: 1 2 След.
Разделитель строки., Получить данные с двухстрочной ячейки построчно.
 
Добрый день!

Необходимо записать данные с двухстрочной ячейки в переменную, или переменные, (каждую строку по отдельности) чтобы можно было ими
оперировать.

Как я понимаю, что там есть знак переноса и записывается вся конструкция, может быть есть способ обратиться к ячейке с указанием
какую строку мы хотим получить?

В примере в первом столбце идут эти ячейки.
Крутилка колёсиком - vba
 
Всем Привет!

Есть задачка, пока не получилось реализовать, может кто знает способ?
Необходимо привязать выполнение макроса на скроллинг мышки для поворота картинки колёсиком.  в момент когда курсор
находится на ней. В двух словах надо чтобы картинка вращалась если на неё навести курсор и крутить колёсико.
Сохранить код макроса.
 
Всем привет!

Может кто-нибудь знает существует ли удобный способ сохранения кода из Microsoft Visual Basic? Чтобы визуально он выглядел без изменений (цвета шрифта, сам шрифт, расстояние между символами и т.д.). Чтобы можно было открыть на (IOS) смартфоне, например в PDF, или как нибудь ещё.
С возможностью скопировать часть кода, редактировать не нужно.
Скрыть имена в книге
 
Приветствую.
Подскажите пожалуйста как можно скрыть все имена в книге от пользователя?
Чтобы ни через namebox ни через диспетчера имен на них нельзя было влиять.

версия офиса 10, предположительно книга и листы под защитой.
Замена точки на запятую в переменной
 
Добрый день.

Подскажите пож. как можно заменить точку на запятую в переменной result в том случае если в InputBox указано
допустим 25.5 вместо 25,5?

Код
Sub Ввод_количества()
Dim result
sc = Cells(1, 1).Value
result = InputBox("На какое кол-во расчитать?", "Вес в граммах", Format(sc, "#,##0.0"))
If result <> "" Then
If Not IsNumeric(result) Then
PushButton = MsgBox("Допускается ввод только чисел!", 48, "Color Mix Map")
Call Ввод_количества
Else
Cells(1, 1).Value = result
End If
End If
End Sub
Назначение диапазона переменной
 
Добрый день. Можно ли в данном случае использовать одну переменную? а не а1, а2 итд
А то диапазон который надо перенести ("E3:F107")
Код
Sub test123()
' Действия происходят на листе 1
a1 = Range("E3").Value
a2 = Range("E4").Value
a3 = Range("E5").Value
a4 = Range("E6").Value
a5 = Range("E7").Value
  
b6 = Range("F3").Value
b7 = Range("F4").Value
b8 = Range("F5").Value
b8 = Range("F6").Value
b8 = Range("F7").Value

' удаляем активный лист 1
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True


'копирование на листе 2
    Range("A1").Copy
    Range("B1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
' создаем лист3
Worksheets.Add.Name = "Лист3"

' выгружаем с переменных на лист 3
Range("A1").Value = a1
Range("A2").Value = a2
Range("A3").Value = a3
Range("A4").Value = a4
Range("A5").Value = a5
  
Range("B1").Value = b6
Range("B2").Value = b7
Range("B3").Value = b8
Range("B4").Value = b8
Range("B5").Value = b8
End Sub
Изменено: Александр.М - 09.05.2016 13:36:07
Необходимы макросы, Сохранение листа в файл, упрощение ввода с клавиатуры
 
Приветствую.
Необходимы макросы для сохранения листа в файл и упрощения ввода с клавиатуры.
ТЗ в примерах.
Общение -  whatsapp, email.
Изменено: Александр.М - 26.04.2016 15:42:21
Копирование с листа на лист
 
Добрый день. Нужен макрос, инфо в примере.
Копирование данных с листа на лист
 
Доброй ночи. Как сделать сдвиг на два столбца в лево при копировании данным способом?Sub Copy()
Код
For i = 3 To ActiveWorkbook.Sheets("Лист1").Cells(Rows.Count, 5).End(xlUp).Row
ActiveWorkbook.Sheets("Лист2").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).Value = _
ActiveWorkbook.Sheets("Лист1").Cells(i, 5).Value
Next
End Sub
Невидимый символ, или импорт кракозябров.
 
Доброе утро! Помогите пожалуйста понять что к чему.

Задача состоит в том, чтобы экспортировать  строку с зашифрованными значениями  из ячейки в текстовой файл,
а позднее их (значения) от туда импортировать обратно в ячейку.
С обычными символами все работает, а  кракозябры переносятся не корректно.
Посмотрите пож. пример.
Инверсия цвета шрифта
 
Добрый день.
На листе макросом создаются ячейки различных цветов, изначально информация только о цвете фона и значении
Проблема в том что цвет шрифта сливается с цветом фона некоторых ячеек
тем самым текст становится не видно.
Возможно ли силами vba сделать инверсию цвета шрифта относительно цвета фона ячейки?
Код
ActiveCell.Font.Color = ActiveCell.Interior.Color
Код делает цвет шрифта таким же как цвет фона, можно ли изменить чтоб цвет был не таким же а противоположным?
Или не противоположным а хотя бы чтобы отличался по тону как нибудь.
Обращение к диапазону
 
Приветствую!

Есть код:
Код
Range("A:A,BI:BN").ClearContents
Удаляет данные в определенных столбцах, скажите пож. что изменить чтобы данные в первых трех строках не удалялись?
Кодовое имя листа
 
Приветствую!

Скажите пож. как сделать тоже самое, только обращаясь не к названию листа а к кодовому имени?
Код
Range("B3").Value = _
ActiveWorkbook.Sheets("Название1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 5).Value
Кодовое имя листа на пример Лист8
Перенос значений с листа на лист
 
Добрый вечер!
Есть код, переносит значение с листа1 на лист2 , в данном примере со строки 12 на строку 12, возможно ли на листе 2 ориентироваться по значениям в столбце "L"?
Чтобы в ставка происходила не на строку 12 а на строку, где в столбце "L" определенные значения, на пример test2 как в примере.
Код
Sub test1()
Dim i As Long
For i = 1 To ActiveWorkbook.Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
If ActiveWorkbook.Sheets("Лист1").Cells(i, 1) = 12 Then _
ActiveWorkbook.Sheets("Лист2").Cells(i, 8) = _
ActiveWorkbook.Sheets("Лист1").Cells(i, 8) * 3.5
Next
End Sub
Перенос данных, Перенос данных с Листа1 на Лист2 определенным образом.
 
Есть задачка, надо перекидывать данные с листа на лист, инфо в файле
Проверка и переименование папки
 
Почему по отдельностьи команды работают а когда в одном макросе пишет:
Run-time error '75'
Path/File cccess error
Код
Sub Rename()
If Dir("C:\Папка\" = "" Then MsgBox "Папка отсутствует! ", vbCritical, "Ошибка": Exit Sub
Name ("C:\Папка" As ("C:\Папка " & [тек_мес].Value
End Sub

Или это еще как нибудь можно сделать?
Открыть защищенную книгу макросом
 
Можно ли открыть защищенную книгу макросом чтобы не появлялось окно ввода пороля?
Активировать курсор для ввода в textbox пользовательской формы
 
При открытии Userform чтобы начать ввод в поле для текста необходимо кликнуть по нему,
как сделать так, чтобы при открытии Userform можно было сразу начинать ввод?
Если это вообще возможно.

Пользовательская форма содержит одну кнопку и одно поле для ввода текста.
Выделение диапазона по заданному столбцу и строке
 
Есть макрос :
Код
Sub test123() 
Range("F3", Cells(Rows.Count, "A"  .End(xlUp)).Select 
End Sub 
Выделяет диапазон с третьей строки в A столбце до последней заполненной ячейки, по F столбец
Как похожим образом выделить ячейки с третьей строки F столбца но по последним заполнненным
первой строки и A столбца?
Изменено: Александр.М - 10.06.2014 11:54:47
Запрет переключения между листами
 
Еще раз Здравствуйте!
Скажите, возможно ли каким либо способом запретить переключение между листами клавишами Ctrl+PageUp и Ctrl+PageDown?
Проверка ячейки со #ЗНАЧ!
 
Здравствуйте! Как проверить ячейку при помощи vba?

Данные ячейка берет с нета, ##,#### такой формат,и иногда если на сайте происодят изменения в место числового значения
в ячейке может быть не известно что в основном это #ЗНАЧ! либо 0 либо пустая ячейка.
Нужен макрос который бы выдовал сообщение об ошибке если в ячейке не ##,#### число а что-то другое.
Я попробовал вот так:
Код
Sub Test() 
If Range("J1")  = "" Then MsgBox ("Ошибка")  
If Range("J1") .Text = "#ЗНАЧ!"Then MsgBox ("Ошибка") 
End Sub

Работает если только ячейка пустая, если #ЗНАЧ! то выдает ошибку Run-time '13': Type mismatch
Изменено: Александр.М - 07.03.2014 11:27:12
Изменение цвета фигуры при наведении на нее курсором.
 
Здравствуйте!

Скажите возможно ли в excel сделать так чтобы при наведении курсора скажем на фигуру прямоугольник
он изменял цвет, при этом если кликнуть то запускается макрос, а если убрать курсор с фигуры то
возобновляется первоночальный цвет. Одним словом кнопка.
Обычные кнопки из "элементы управления формы" или "элементы ActiveX" не подходят так как требуемая
кнопка должна быть просто монотонно залитым квадратом без обрамлений тенюшочек точечек и тд..
ровно не пустая ячейка
 
Здравствуйте!

ActiveCell = ""  Активная ячейка ровна пустой.
Подскажите пожалуйста как правильно будет Активная ячейка не ровна пустой.
Почему то не изменить формат ячеек так как нужно
 
Здравствуйте! Хочу понять в чем загвоздка.
На листе1 происходит получение внешних данных из текста, после чего я хочу задать денежный формат
в столбце "B", но это происходит как то не корректно, в чем причина?

То что мне нужно получить я сделал на листе2, как получить тоже самое после импорта данных на листе1 ?
Изменено: Александр.М - 16.08.2013 00:28:36
Перенос с листа на лист с трансформацией данных.
 
Всем привет! Нужен макрос который бы переносил инфо с одного листа на другой с некоторыми условиями.
Перенос списка с листа на лист макросом
 
Люди очень нужен макрос который переносил бы значения с листа на лист с учетом даты в строке и названия
в столбце, помогите плиз.

Файл с примером имеется.
Вставка формулы макросом
 
Добрый день! Скажите можно ли скопировать формулу макросом в активную ячейку
чтобы она соответствовала строке? Например:

=F12*E12*(1+NDS)*(1-DISCOUNT3M) (формула находиться допустим на листе1 в ячейке "A1" ;)
нужно скопировать её в активную ячейку на другом листе допустим в ячейку "G19" Лист2 чтоб получилось:
=F19*E19*(1+NDS)*(1-DISCOUNT3M)

Либо сразу вставлять формулу из макроса.
Язык vba: смещение активной ячейки
 
Помогите пожплуйста дописать строчку в макросе    
(если активная ячейка = следующей нижней ячеейке то)?  
if ActiveCell = ? Then
Фильтрование макросом
 
Всем привет! Скажите плиз как макрос можно изменить.  
Допустим в столбце A позиции с десятью разными наиминованиями, мне нужно выделить  
все кроме трех, при записи макрорекордером в макросе перечисляются все кроме трех  
вот так:  
 
ActiveSheet.Range("$A$2:$A$14").AutoFilter Field:=1, Criteria1:=Array( _  
       "наим1", "наим10", "наим3", "наим4", "наим6", "наим7", "наим9", "="), Operator:= _  
       xlFilterValues  
 
при этом если в столбце появятся новые позиции нужно будет изменять макрос,    
это не удобно  
Нужно чтоб в макросе была информация только о тех позициях которые надо исключить  
а ни о тех которые оставить.  
Исключять нужно  
наим2,наим5,наим8.
Закрасить ячейки в зависимости от условного форматирования
 
Всем привет! Помогите плиз, нужен макрос который бы помечал цветом ячейки в столбце С  
в зависимости от условного форматирования в столбце H так как на втором листе в примере!
Страницы: 1 2 След.
Наверх