Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Александр.М
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 След.
Разделитель строки., Получить данные с двухстрочной ячейки построчно.
 
#
01.11.2023 23:17:06
Благодарю!!!
То что искал)
 
Перейти    
Разделитель строки., Получить данные с двухстрочной ячейки построчно.
 
#
01.11.2023 22:12:37
Добрый день!

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

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

В примере в первом столбце идут эти ячейки.
 
Перейти    
Крутилка колёсиком - vba
 
#
28.11.2022 12:55:20
В любом случае спасибо, буду разбираться)
 
Перейти    
Крутилка колёсиком - vba
 
#
28.11.2022 11:41:04
Возникают ошибки, первая как я понял связана с разрядностью системы, решилась добавлением PtrSafe,
а вторая -Type mismatch - остановка на AddressOf LowLevelMouseProc(
 
Перейти    
Крутилка колёсиком - vba
 
#
27.11.2022 19:05:57
Всем Привет!

Есть задачка, пока не получилось реализовать, может кто знает способ?
Необходимо привязать выполнение макроса на скроллинг мышки для поворота картинки колёсиком.  в момент когда курсор
находится на ней. В двух словах надо чтобы картинка вращалась если на неё навести курсор и крутить колёсико.
 
Перейти    
Сохранить код макроса.
 
#
06.05.2020 02:25:29
Всем спасибо за внимание.
Нашел Code Compiler, Programming
 
Перейти    
Сохранить код макроса.
 
#
05.05.2020 22:12:47
В том то и вопрос :)  
 
Перейти    
Сохранить код макроса.
 
#
05.05.2020 22:02:49
Цитата
БМВ написал: тема для дискуссии...
Не понимаю как это относится к вопросу?

кнопка цитирования не для бездумного копирования [МОДЕРАТОР]
 
Перейти    
Сохранить код макроса.
 
#
05.05.2020 21:51:06
Юрий М Приветствую! Вы в своём репертуаре :)  Что же здесь можно скрывать?
Хочу на айфоне открыть код чтобы он выглядел как в программе Visual Basic, Можно фотографировать, но это корявый способ.
 
Перейти    
Сохранить код макроса.
 
#
05.05.2020 21:02:24
Андрей, спасибо! думаю это было бы то что нужно, но это приложение недоступно в моём регионе.
Не установить, короче :(

Цитата
Вам зачем это надо?
Как? Для лучшего восприятия, Причина идентична той же по которой на этом форуме есть кнопочка "Оформление текста в виде кода" :)  
 
Перейти    
Сохранить код макроса.
 
#
05.05.2020 20:29:26
Всем привет!

Может кто-нибудь знает существует ли удобный способ сохранения кода из Microsoft Visual Basic? Чтобы визуально он выглядел без изменений (цвета шрифта, сам шрифт, расстояние между символами и т.д.). Чтобы можно было открыть на (IOS) смартфоне, например в PDF, или как нибудь ещё.
С возможностью скопировать часть кода, редактировать не нужно.
 
Перейти    
Скрыть имена в книге
 
#
28.05.2016 16:21:56
Sanja Спасибо огромное! пол дня не мог найти.
 
Перейти    
Скрыть имена в книге
 
#
28.05.2016 15:40:10
Нашел как скрыть по одному:
Код
[Name1].Name.Visible = 0
А можно все разом?
 
Перейти    
Скрыть имена в книге
 
#
28.05.2016 15:21:29
Приветствую.
Подскажите пожалуйста как можно скрыть все имена в книге от пользователя?
Чтобы ни через namebox ни через диспетчера имен на них нельзя было влиять.

версия офиса 10, предположительно книга и листы под защитой.
 
Перейти    
Замена точки на запятую в переменной
 
#
14.05.2016 14:46:59
Благодарю
 
Перейти    
Замена точки на запятую в переменной
 
#
14.05.2016 14:32:59
Добрый день.

Подскажите пож. как можно заменить точку на запятую в переменной 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
 
Перейти    
Назначение диапазона переменной
 
#
09.05.2016 14:06:36
Спасибо! Помогли :)
 
Перейти    
Назначение диапазона переменной
 
#
09.05.2016 14:02:46
Цитата
'до сих пор не понимаю зачем эта строка
Это для примера просто из головы, что есть копирование в этой части макроса.
 
Перейти    
Назначение диапазона переменной
 
#
09.05.2016 13:52:10
Цитата
Расскажите словами, что Вы пытаетесь изобразить?

Мне необходимо как то запомнить значения листа1 диапазон ("E3:F107") далее макрос меняет значения в
диапазоне  ("E3:F107") на этом же листе их тоже надо запомнить, далее все что запомнили нужно выложить на новом листе
уже в два разных диапазона, допустим в ("A3:B107") и  ("C3:D107")  как то так
 
Перейти    
Назначение диапазона переменной
 
#
09.05.2016 13:35:41
Добрый день. Можно ли в данном случае использовать одну переменную? а не а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
 
Перейти    
Необходимы макросы, Сохранение листа в файл, упрощение ввода с клавиатуры
 
#
27.04.2016 19:33:16
Работа исполнена, всем спасибо.
 
Перейти    
Необходимы макросы, Сохранение листа в файл, упрощение ввода с клавиатуры
 
#
26.04.2016 15:36:19
Приветствую.
Необходимы макросы для сохранения листа в файл и упрощения ввода с клавиатуры.
ТЗ в примерах.
Общение -  whatsapp, email.
Изменено: Александр.М - 26.04.2016 15:42:21
 
Перейти    
Копирование с листа на лист
 
#
12.03.2016 14:19:51
Добрый день. Нужен макрос, инфо в примере.
 
Перейти    
Копирование данных с листа на лист
 
#
27.02.2016 02:41:02
Низкий поклон. Копируется туда куда нужно :)

И спасибо за совет.
 
Перейти    
Копирование данных с листа на лист
 
#
27.02.2016 01:41:28
Доброй ночи. Как сделать сдвиг на два столбца в лево при копировании данным способом?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
 
Перейти    
Невидимый символ, или импорт кракозябров.
 
#
17.02.2016 08:38:44
Доброе утро! Помогите пожалуйста понять что к чему.

Задача состоит в том, чтобы экспортировать  строку с зашифрованными значениями  из ячейки в текстовой файл,
а позднее их (значения) от туда импортировать обратно в ячейку.
С обычными символами все работает, а  кракозябры переносятся не корректно.
Посмотрите пож. пример.
 
Перейти    
Инверсия цвета шрифта
 
#
14.02.2016 15:18:23
Очень круто! все видно, спасибо большое! :D
 
Перейти    
Инверсия цвета шрифта
 
#
14.02.2016 14:07:35
Или можно использовать только черный либо только белый цвет шрифта, очень хорошо видно.
Можно было бы только проверить именно яркость ячейки, и в зависимости от яркости назначать или черный или белый.
 
Перейти    
Инверсия цвета шрифта
 
#
14.02.2016 13:30:38
Да о нейтральных серых я и не подумал изначально :cry: хотя вариант предложенный Андреем самая настоящая инверсия получается.
 
Перейти    
Инверсия цвета шрифта
 
#
14.02.2016 12:41:18
Добрый день.
На листе макросом создаются ячейки различных цветов, изначально информация только о цвете фона и значении
Проблема в том что цвет шрифта сливается с цветом фона некоторых ячеек
тем самым текст становится не видно.
Возможно ли силами vba сделать инверсию цвета шрифта относительно цвета фона ячейки?
Код
ActiveCell.Font.Color = ActiveCell.Interior.Color
Код делает цвет шрифта таким же как цвет фона, можно ли изменить чтоб цвет был не таким же а противоположным?
Или не противоположным а хотя бы чтобы отличался по тону как нибудь.
 
Перейти    
Страницы: 1 2 3 4 5 6 След.
Наверх