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

Страницы: 1 2 3 След.
COPY - PASTE с изменением регистра, Копирование текста (абв) -> Вставка текста (АБВ)
 
#
22.09.2017 10:40:10
kuklp, Шикаарно!
То что надо! =)
Думаю, я осилю применить это не ко всему листу, а к диапазону ячеек.
Большое спасибо!
 
Перейти    
COPY - PASTE с изменением регистра, Копирование текста (абв) -> Вставка текста (АБВ)
 
#
22.09.2017 10:03:22
Бахтиёр, Илья Демид,
Немного не то, что я себе нафантазировал, но тоже облегчает процесс =)
Спасибо!
 
Перейти    
COPY - PASTE с изменением регистра, Копирование текста (абв) -> Вставка текста (АБВ)
 
#
22.09.2017 09:18:35
Такая проблема:
Из файла копируется текст маленькими буквами и вставляется в книгу. После чего формулами переделывается в текст заглавными буквами.
Как можно сделать, что бы в ячейку А1 вставлялся скопированный текст сразу ЗАГЛАВНЫМИ буквами?
 
Перейти    
Задание SubAddress в Hyperlinks.Add, Создание гиперссылки
 
#
08.06.2017 17:00:51
Спасибо The_Prist,! Спасибо Sanja,!
Всё заработало. =)
Вот такой вариант оказался рабочим. (может кому понадобится)
Код
"'" & Workbooks(ИмяФайла).Worksheets(AA).Name & "'!A1"
Ещё открыл для себя, что если в названии страницы есть пробелы, то в начале и в конце нужно ставить апострафы.
 
Перейти    
Задание SubAddress в Hyperlinks.Add, Создание гиперссылки
 
#
07.06.2017 19:23:03
Спасибо. Разобрался. =)
 
Перейти    
Задание SubAddress в Hyperlinks.Add, Создание гиперссылки
 
#
07.06.2017 19:12:22
Sanja, Правильно. Я же открываю Worksheets(2) во второй книге 2.xlsx
Или я что то не понимаю?
 
Перейти    
Задание SubAddress в Hyperlinks.Add, Создание гиперссылки
 
#
07.06.2017 19:04:11
Decebel,

не получается =(
 
Перейти    
Задание SubAddress в Hyperlinks.Add, Создание гиперссылки
 
#
07.06.2017 18:23:12
The_Prist, начал делать пример, и обнаружил, что ваш вариант прекрасно работает.
Код
ActiveSheet.Hyperlinks.Add Cells(1, 1), "C:/TEMP/2.xlsx", "#sheet2!A10", "Open"
Открывает книгу 2.xlsx, и переходит на нужный лист в нужную ячейку.
Спасибо =)

А не подскажите, как правильно задать через Worksheets(x)?
Код
"#"&Worksheets(2)&"!A10"
так опять отказывается работать.
 
Перейти    
Задание SubAddress в Hyperlinks.Add, Создание гиперссылки
 
#
07.06.2017 17:12:07
The_Prist,
Код
ActiveSheet.Hyperlinks.Add Cells(RawNumber, 3), ПутьКФайлу, "#Sheet5!A2", "Open" & vbNewLine & ИмяФайла
Результат: “Reference is not valid" =(
 
Перейти    
Задание SubAddress в Hyperlinks.Add, Создание гиперссылки
 
#
07.06.2017 16:44:27
Помогите корректно задать SubAddress на нужный лист другой книги через Hyperlinks.Add.
Код
ActiveSheet.Hyperlinks.Add Cells(RawNumber, 3), ПутьКФайлу, , "Open" & vbNewLine & ИмяФайла
В примере выше - всё работает. Открывается нужная кника, корректно подписывается ссылка.
Но никак не получается указать нужный лист в SubAddress:
Код
ActiveSheet.Hyperlinks.Add Cells(RawNumber, 3), ПутьКФайлу, Worksheets(AA) & "!A1", "Open" & vbNewLine & ИмяФайла
В таком варианте, результат - "object doesn't support this property or method"
Если по-другому написать:
Код
ActiveSheet.Hyperlinks.Add Cells(RawNumber, 3), ПутьКФайлу, "Sheet1!A1", "Open" & vbNewLine & ИмяФайла
, то создаёт ссылку. Но при открытии говорит, что “Reference is not valid"

Корректно сослаться на лист "AA" я так и не смог.
Может кто нибудь подскажет.
 
Перейти    
Запрет на ввод данных с клафиатуры
 
#
25.11.2016 16:44:42
Как всё просто оказалось! =)
Спасибо!
 
Перейти    
Запрет на ввод данных с клафиатуры
 
#
24.11.2016 22:57:24
Имеется марос, который при двойном клике ЛКМ в ячейке ставит"V", а при одинарном клике ПКМ ставит "Х":
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = "V"
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = "X"
End Sub
Но остаётся возможность ввести всё что угодно с клавиатуры. Если залочить ячейку и лист, то верхний спрособ отказывается работать.
Как можно запретить ввод любых данных в ячейку с клавиатуры?
 
Перейти    
Ошибка при копировании большого колличества листов., Not enough system resources to display completely
 
#
30.06.2016 12:42:21
Цитата
Hugo написал:
Попробуйте
Так вообще отказывается работать.
Но заметил следующее:
Если Сразу после создания нужного колличества листов (>100), ничего не делая сохранить его, закрыть и заново открыть, то всё прекрасно работает?
Можно ли как то очистить память после выполнения макроса?
 
Перейти    
Ошибка при копировании большого колличества листов., Not enough system resources to display completely
 
#
30.06.2016 11:27:43
Hugo,спасибо! Да, листы надо поправить.
Памяти 16GB, не думаю, что 100 листов занимает больше.
А что значит "проделывать на скрытой книге"? Это как?
 
Перейти    
Ошибка при копировании большого колличества листов., Not enough system resources to display completely
 
#
30.06.2016 11:08:39
В книге имеется большая таблица на первом листе.
Макрос на основе данной таблицы создают много листов.
Если листов до 100, то всё работает хорошо. Но если листов болше 100, то после выполения макроса, при выполнении практически любого действия EXCEL выдаёт ошибку "Not enough system resources to display completely" и виснет намертво.
Основной текст макроса выглядит примерно так:

Код
Application.ScreenUpdating = False
Dim INFO(1 To 20)




iRow = Worksheets(1).UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

For x = 20 To iRow Step 4
    With Sheets(1)
        INFO(1) = Range(x,2)
... 
        INFO(20) = Range(x,3)
    End With

    Sheets(3).Copy After:=Sheets(Sheets.Count)

    With Sheets(Sheets.Count)
            .Range("C11") = INFO(1)
...
            .Range("B20") = INFO(20)
    End With

next x

Application.DisplayAlerts = False
Sheets(3).Delete
Application.DisplayAlerts = True

Application.ScreenUpdating = True

Причина появления данной ошибки в кривом тексте макроса или EXCEL плохо работает с большим колличесвом листов?

P.S. EXCEL 2013
Изменено: Decebel - 30.06.2016 11:10:17
 
Перейти    
Изменение шрифта отправляемого письма
 
#
26.05.2016 17:36:00
ZVI,Спасибо! Ваш вариант гораздо понятнее =)
 
Перейти    
Изменение шрифта отправляемого письма
 
#
25.05.2016 22:16:50
Цитата
Андрей VG написал:
тем более что в HTML 5 формально больше не поддерживается
А другие способы изменения шрифтов в письме имеются? Это я на будущее, когда в один прекрасный день всё перестанет работать.... =)
 
Перейти    
Изменение шрифта отправляемого письма
 
#
25.05.2016 21:18:59
Андрей VG, пытался. Но как оказалось - смотрел не в ту сторону.
Про подобные конструкции - <font size="5" color="green" face="Arial Unicode MS">&#10003</font> - первый раз слышу.
Спасибо! =)
 
Перейти    
Изменение шрифта отправляемого письма
 
#
25.05.2016 20:16:25
bedvit,Круто! Спасибо! Увеличить размер шрифта до нужного получилось. Но вот в каком месте изменить сам шрифт на Arial не разобрался.      
На сколько я понял, это где то в этой строке...
Код
MailItem.HTMLBody = "<FONT Size = 3> " & mtext & " </FONT>"
 
Перейти    
Изменение шрифта отправляемого письма
 
#
25.05.2016 19:43:52
Формируется письмо в Outдook.
Проблема в том, что шрифт очень маленький.
Много статей на тему - как сформировать и отправить письмо. Но как поменять шрифт на Arial 14 - не могу найти.
Поможите?
 
Перейти    
Количество выделеных символов
 
#
29.04.2016 22:49:48
Михаил Лебедев, ура! Спасибо! то что надо! =)
Ещё небольшой вопрос. Первый Lable считает переход на другую строку за символ. Второй Label, при выделении  - переход на другую строку за символ не считает. В итоге получаются разные цифры... Как так?
Но это мелочи!
Всем спасибо за прекрасное завершение пятницы! =)
 
Перейти    
Количество выделеных символов
 
#
29.04.2016 22:17:30
Михаил С., Спасибо! Первый вариант прекрасно работает! Общее количество символов в TextBox-e показывается.
А вот со вторым у меня не получается. Что я делаю не так?
 
Перейти    
Количество выделеных символов
 
#
29.04.2016 21:35:25
Добрый день! Проблема такая.
В TextBox1 имеется собранный из таблицы текст. Много текста. Его надо скопировать и вставить в другую программу. Но количество символов, которое можно вставить за 1 раз ограниченно.
Можно как то сделать так, что бы Label1 показывал колличество выделенных символов в TextBox1? Или хотя бы общее колличество символов в TextBox1?
P.S. Всё это находится в форме, а не на листе.
Спасибо.
 
Перейти    
Не закрашивается область таблицы по значению ячейки
 
#
19.04.2016 12:34:38
Неожиданное решение =)
Спасибо!
 
Перейти    
Не закрашивается область таблицы по значению ячейки
 
#
19.04.2016 11:27:06
Помогите с такой проблемой.

Имеется таблица (см. пример)
По значению ячейки $С$2 закрашивается область А2:P5.
Что бы скопировать это форматирование на другие строки, нужно убрать $ (на сколько я понял), но когда убираются $ - перестаёт закрашиваться  область А2:P5, а красится только первая ячейка...

Как быть?
Изменено: trn09 - 19.04.2016 11:51:20
 
Перейти    
Плавающее колличество столбиков в диаграмме
 
#
25.12.2015 20:55:37
justirus, Спасибо! Всё получилось! =)
 
Перейти    
Плавающее колличество столбиков в диаграмме
 
#
25.12.2015 19:14:48
Добрый день.
Благодаря инструкции http://planetaexcel.ru/techniques/2/81/ удалось создать меняющийся список.
Но в этом списке у меня числовые значения, и по ним надо построить график.
А т.к. в разных списках разное кооличество значений, то появляется проблема, например, для группы А и В половина графика пустая.
Подскажите, как сделать, что бы график строился Для списка А - для восьми значений., Для списка В - для шести. Для С - 15. Что бы это всё само менялось. =)
См. пример:
 
Перейти    
Гиперссылка на нужный слайд PowerPoint
 
#
15.12.2015 07:15:33
Все_просто, отличный способ! Спаисбо!
 
Перейти    
Гиперссылка на нужный слайд PowerPoint
 
#
14.12.2015 13:45:33
Попробую по-другому сформурировать вопрос:
Можно ли, в принципе, сделать ссылку на слайд РР?
 
Перейти    
Гиперссылка на нужный слайд PowerPoint
 
#
14.12.2015 10:12:50
The_Prist,В РР получается только ссылку на слайд внутри перзентации создать. =(
 
Перейти    
Страницы: 1 2 3 След.
Наверх