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

Страницы: 1
COPY - PASTE с изменением регистра, Копирование текста (абв) -> Вставка текста (АБВ)
 
Такая проблема:
Из файла копируется текст маленькими буквами и вставляется в книгу. После чего формулами переделывается в текст заглавными буквами.
Как можно сделать, что бы в ячейку А1 вставлялся скопированный текст сразу ЗАГЛАВНЫМИ буквами?
Задание SubAddress в Hyperlinks.Add, Создание гиперссылки
 
Помогите корректно задать 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" я так и не смог.
Может кто нибудь подскажет.
Запрет на ввод данных с клафиатуры
 
Имеется марос, который при двойном клике ЛКМ в ячейке ставит"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
 
В книге имеется большая таблица на первом листе.
Макрос на основе данной таблицы создают много листов.
Если листов до 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
Изменение шрифта отправляемого письма
 
Формируется письмо в Outдook.
Проблема в том, что шрифт очень маленький.
Много статей на тему - как сформировать и отправить письмо. Но как поменять шрифт на Arial 14 - не могу найти.
Поможите?
Количество выделеных символов
 
Добрый день! Проблема такая.
В TextBox1 имеется собранный из таблицы текст. Много текста. Его надо скопировать и вставить в другую программу. Но количество символов, которое можно вставить за 1 раз ограниченно.
Можно как то сделать так, что бы Label1 показывал колличество выделенных символов в TextBox1? Или хотя бы общее колличество символов в TextBox1?
P.S. Всё это находится в форме, а не на листе.
Спасибо.
Не закрашивается область таблицы по значению ячейки
 
Помогите с такой проблемой.

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

Как быть?
Изменено: trn09 - 19.04.2016 11:51:20
Плавающее колличество столбиков в диаграмме
 
Добрый день.
Благодаря инструкции http://planetaexcel.ru/techniques/2/81/ удалось создать меняющийся список.
Но в этом списке у меня числовые значения, и по ним надо построить график.
А т.к. в разных списках разное кооличество значений, то появляется проблема, например, для группы А и В половина графика пустая.
Подскажите, как сделать, что бы график строился Для списка А - для восьми значений., Для списка В - для шести. Для С - 15. Что бы это всё само менялось. =)
См. пример:
Гиперссылка на нужный слайд PowerPoint
 
Подскажите, пожалуйста, как можно из EXCEL сделать гиперссылку на нужный слайд PowerPoint? (что бы по клику открылся РР на нужном слайде)?
Рассчёт времени изготовления
 
Никогда не работал с датами и временем. Даже не придумал как правильно сформировать запрос в поиске.
В данном примере:
На первом листе информация о том, когда деталь началась/закончилась делаться и когда начала/закончила проверяться сотрудником.
На втором листе информация о том, когда сотрудник пришёл и когда ушёл.
Возможно ли объединить эту информацию и посчитать сколько сотрудник затратил времени на изготовление и на проверку детали?
Иногда получается, что деталь изготавливается трое суток и кажется  что долго. Но работник может работать по 2 часа каждый день оказывается, что деталь делается всего 6 часов, что вполне не плохо.
В голове у меня не складывается, как можно объединить эти данные. И возможноли ли это сделать в принципе?
Копирование и вставка столбцов
 
И имеющемся файле имеется таблица.
Сейчас при нажати на первую кнопку появляются одни набор столбцов, при нажати на другую другой набор, при нажатии на третью - становятся видимыми все столбцы.
Как сделать так, что бы:
При нажатии на первую кнопку появлялся первый набор столбцов, и после каждого вставлялись последние 2(зелёненькие D и F) столбца.
При нажатии на вторую кнопку появлялся второй набор столбцов,  и после каждого вставлялись последние 2(зелёненькие D и F) столбца.
При нажатии на третью, появлялись все, а зелёненькие D и F оставались только в конце.
Если другими словами, то что бы в первых двух вариантах, после каждого из видимых столбцов были 2 дополнительных.
Как скопировать последние 2 я разобрался, а как вставить после каждого из видимых, не соображу никак.
Проверка наличия определённого текста в ячейке
 
Возникла необходимость создать что то похожее на голосовалку.
Пользователь заходит, голосует, и его лигин записывается в ячейку (добавляется новой строкой к уже имеющимся).
Код
AllLogIn = AllLogIn & Chr(10) & Login
Worksheets(1).Range("P8") = AllLogIn
Как проверить, есть ли его логин в этой ячейке ("P8"), что бы не разрешать голосовать ещё раз?
Как эт опроверить формулой - нашёл. А как в VBA проверить - ступор =(
Результаты тестированя графически, График Оценок (A-B-C-D-E-F)
 
Задача элементарная, на первый взгляд - графически представить результаты тестированя.
Но пролбема в том, что система нерусская (A-B-C-D-E-F). Во вложенном файле. Test.xlsx (12.83 КБ)
Может кто то сталкивался в подобной задачей.
В строке формулы - перенос на вторую строку
 
Имеется 2 ячейки. Надо в третей объединить первую и вторую так, что бы первая была на вервой строке, а вторая на второй.
=Q5&Chr(13)&R5 - почему то не работает (#NAME?  и подчёркивает Chr)
HIDE для пустых строк, изменить имеющийся макрос.
 
 Всё. Разобрался.
Удалите, пожалуйста тему.
Изменено: trn09 - 25.10.2015 14:10:15
VBA: удалить повторяющийся путь "oExcel.ActiveWorkbook.ActiveSheet.Range"
 
В макросе, написанном для CATIA получились нереально длинные и неудобные строки.
Например:  
Код
If Mid(oExcel.ActiveWorkbook.ActiveSheet.Range("B17"), 1, 4) = "Z1D2" Then
        doc.Parameters.Item("Rev1Chg1").ValuateFromString oExcel.ActiveWorkbook.ActiveSheet.Range("B48") & ", " & oExcel.ActiveWorkbook.ActiveSheet.Range("I48") & " " & oExcel.ActiveWorkbook.ActiveSheet.Range("J48") & ", " & Format(oExcel.ActiveWorkbook.ActiveSheet.Range("L48"), "MM/DD/YYYY") & ". " & vbCrLf & vbCrLf & oExcel.ActiveWorkbook.ActiveSheet.Range("B50")
    Else
        doc.Parameters.Item("Rev1Chg2").ValuateFromString oExcel.ActiveWorkbook.ActiveSheet.Range("C47") & " " & oExcel.ActiveWorkbook.ActiveSheet.Range("D47") & ", " & oExcel.ActiveWorkbook.ActiveSheet.Range("B48") & ", " & oExcel.ActiveWorkbook.ActiveSheet.Range("I48") & " " & oExcel.ActiveWorkbook.ActiveSheet.Range("J48") & ", " & Format(oExcel.ActiveWorkbook.ActiveSheet.Range("L48"), "MM/DD/YYYY") & ". " & vbCrLf & vbCrLf & oExcel.ActiveWorkbook.ActiveSheet.Range("B50")
 End If
Каждый раз указывается полный путь "oExcel.ActiveWorkbook.ActiveSheet.Range(XX)"

Как можно сократить их?
Или можно как то одну строку перенести на несколько строк для удобства чтения?
[ Закрыто] Сокращение формулы
 
В макросе имеются очень длинные и неудобные формулы.
Например: doc.Parameters.Item("Rev2Chg1ZD1Desc").ValuateFromString oExcel.ActiveWorkbook.ActiveSheet.Cells(1,1)&oExcel.ActiveWorkbook.ActiveSheet.Cells(3,2) &oExcel.ActiveWorkbook.ActiveSheet.Cells(7,1) & oExcel.ActiveWorkbook.ActiveSheet.Cells(2,2)
И это ещё не самая длинная.
Подскажите, как можно сократить их?
Спасибо.
Убрать зяпятую после Фамилии.
 
В ячейке (18,15) вбиты Имя, Фамилия  и телефон в следующем формате:
Иван Иванов, 495-1111-2233
Надо эту информацию вбить в 2 бокса в виде [ И.Иванов ] [ 495-1111-2233 ]
следующие 3 строки прекрасно справляются с этой задачей
Код
 x = Split(Cells(18, 15))
  TextBox6 = Left(x(0), 1) & ". " & x(1)
  TextBox7 = x(2)

но после фамии оставляют запятую - [ И.Иванов, ]

Как от неё избавиться?
Изменено: trn09 - 25.09.2015 13:26:37
Присваивание цвета строчкам в Me.ListBox1
 
Имеется макрос, который составляет список из значений ячеек

Код
For i = 3 To 10
Me.ListBox1.AddItem.Cells(1, i)
Next
Как сделать, что бы онкаждой строчке в списке присваивал цвет соответствующей ячейки?
Если это вообще возможно....
Скрытие ненужных столбцов и пустых строк
 
Добрый день.
Имеется таблица с параметрами для разных деталей.
Нужно выбрать несколько деталей, а остальные скрыть. А оставшихся деталях (в тех, которые выбрали и не скрыли) скрыть пустые строки.
Например (во вложенном файле) если оставить первую и десятую деталь, то нужно скрыть 9,10,11 параметр.
Вручную всё понятно как сделать. Но когда надо несколько деталей выбрать в разнобой (например 1,4,9) и в них найти и скрыть пустые параметры, то всё становится не так просто и велика вероятность ошибки.
Подскажите как можно упростить сей процесс.
Спасибо
Копирование текста письма из OUTLOOK в EXCEL
 
Очень мало в интернете какой то информации по макросам в OUTLOOK.
Кнопки "записать макрос"  тоже нет. Есть только возможность написать макрос.
Может кто нибудь знает, как скопировать текст письма OUTLOOK в EXCEL (можно в новую или в уже открытую книгу).
P.S. Предыстория: Работа от заказчика приходит в виде письма, в которм указаны все номера, даты и т.д. Хочу попробовать скопировать это письмо в EXCEL и уже оттуда вытаскивать нужную информацию.

Спасибо.
Гиперссылка на файл с именем из ячейки
 
Собственно проблема в названии.
Есть список, и есть папка с файлами (картинками) с именами такими же как в таблице.
Гиперссылкой можно удобно сделать, что бы при нажатии на ячейку открывалась нужная картинка.
Но когда список большой, создание гиперссылок на каждый отдельный файл затрудняется
Как сделать ссылку вида C:/FOLDER/{ИМЯ ЯЧЕЙКИ B1}
Нашёл много решений с помощью макроса, а вот с гиперссылками не встречался.
Помогите разобраться.
Создание кучи листов., Макрос по созданию листов
 
Добрый день
У меня такая задача:
На первом листе есть таблица со значениями. Второй лист - рыба
Нужно скопировать рыбу и скопировать туда значения с первого листа (ячеку А1 первого листа в ячейку D2 только что скопированной рыбы), перейти к следующей строке... и так до первой пустой строки

С помощью макросомейкера я создал нечто, что копирует листы и копирует туда ячейчи.
Код
(Sheets("AAAA";).Select
        Sheets("AAAA";).Copy After:=Sheets(4)
        Sheets("Sheet1";).Select
        Range("A2";).Select
        Selection.Copy
        Sheets("АААА (2)";).Select
        Range("A6:C6";).Select
        ActiveSheet.Paste)

Как теперь заставить это повторяться до первой пустой строки?
Или это надо спрашивать в разделе "Работа"? =(
Можете ткнуть носом, где подобный случай разжован.
Спасибо
Страницы: 1
Наверх