Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 След.
Скрыть имена в книге
 
Sanja Спасибо огромное! пол дня не мог найти.
Скрыть имена в книге
 
Нашел как скрыть по одному:
Код
[Name1].Name.Visible = 0
А можно все разом?
Скрыть имена в книге
 
Приветствую.
Подскажите пожалуйста как можно скрыть все имена в книге от пользователя?
Чтобы ни через 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 диапазон ("E3:F107") далее макрос меняет значения в
диапазоне  ("E3:F107") на этом же листе их тоже надо запомнить, далее все что запомнили нужно выложить на новом листе
уже в два разных диапазона, допустим в ("A3:B107") и  ("C3:D107")  как то так
Назначение диапазона переменной
 
Добрый день. Можно ли в данном случае использовать одну переменную? а не а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
Изменено: Александр.М - 9 Май 2016 13:36:07
Необходимы макросы, Сохранение листа в файл, упрощение ввода с клавиатуры
 
Работа исполнена, всем спасибо.
Необходимы макросы, Сохранение листа в файл, упрощение ввода с клавиатуры
 
Приветствую.
Необходимы макросы для сохранения листа в файл и упрощения ввода с клавиатуры.
ТЗ в примерах.
Общение -  whatsapp, email.
Изменено: Александр.М - 26 Апр 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
Невидимый символ, или импорт кракозябров.
 
Доброе утро! Помогите пожалуйста понять что к чему.

Задача состоит в том, чтобы экспортировать  строку с зашифрованными значениями  из ячейки в текстовой файл,
а позднее их (значения) от туда импортировать обратно в ячейку.
С обычными символами все работает, а  кракозябры переносятся не корректно.
Посмотрите пож. пример.
Инверсия цвета шрифта
 
Очень круто! все видно, спасибо большое! :D
Инверсия цвета шрифта
 
Или можно использовать только черный либо только белый цвет шрифта, очень хорошо видно.
Можно было бы только проверить именно яркость ячейки, и в зависимости от яркости назначать или черный или белый.
Инверсия цвета шрифта
 
Да о нейтральных серых я и не подумал изначально :cry: хотя вариант предложенный Андреем самая настоящая инверсия получается.
Инверсия цвета шрифта
 
Добрый день.
На листе макросом создаются ячейки различных цветов, изначально информация только о цвете фона и значении
Проблема в том что цвет шрифта сливается с цветом фона некоторых ячеек
тем самым текст становится не видно.
Возможно ли силами vba сделать инверсию цвета шрифта относительно цвета фона ячейки?
Код
ActiveCell.Font.Color = ActiveCell.Interior.Color
Код делает цвет шрифта таким же как цвет фона, можно ли изменить чтоб цвет был не таким же а противоположным?
Или не противоположным а хотя бы чтобы отличался по тону как нибудь.
Обращение к диапазону
 
Спасибо! :)
Обращение к диапазону
 
Вот файл посмотрите пож.
Обращение к диапазону
 
Цитата
vikttur написал:
Что еще подсказать по такому куцему описанию да без файла?
Есть лист в книге обычный, нужно удалять все данные в столбцах ("A:A,BI:BN") без первых трех строк, что вам еще рассказать?
Обращение к диапазону
 
Кол-во строк не известно может 200 может больше.
Обращение к диапазону
 
Приветствую!

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

Hugo - не смог пока что найти где переименовать, в Project в свойствах "Remove" подсвечено и не кликабельно :(
Кодовое имя листа
 
Приветствую!

Скажите пож. как сделать тоже самое, только обращаясь не к названию листа а к кодовому имени?
Код
Range("B3").Value = _
ActiveWorkbook.Sheets("Название1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 5).Value
Кодовое имя листа на пример Лист8
Перенос значений с листа на лист
 
Виноват, согласен, не внимательно написал :( главное что вы все правильно сделали. :)  
Изменено: Александр.М - 19 Июн 2015 00:09:00
Перенос значений с листа на лист
 
По всему "L" столбцу не пробегает:( , восьмая строка остается без внимания:(
Перенос значений с листа на лист
 
Добрый вечер!
Есть код, переносит значение с листа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 3 4 5 6 След.
Наверх