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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 403 След.
Объединение строк с сохранением форматирования
 
Попробуйте заменить строку:
Код
strOutput = strOutput & "," & Cells(rIndex, cIndex).Value
на такую:
Код
strOutput = strOutput & "," & Cells(rIndex, cIndex).Text
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Отображение макросов из надстройки в списке Alt+F8
 
Цитата
asesja написал:
макросы из надстроек на кнопках панели быстрого доступа работаю без проблем, даже когда идет запуск из стороннего приложения
потому что в кнопках, вынесенных на ПБД, зашит полный путь к файлу с самим макросом, с которым они ассоциированы. И при нажатии на кнопку открывается и книга с кодом, если ранее не было открыта.
Поэтому и написал, что этот подход не решит проблемы - Вы ведь хотите это среди пользователей распространять, а там этот фокус не прокатит, т.к. путь к файлу будет другой.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Отображение макросов из надстройки в списке Alt+F8
 
Цитата
asesja написал:
Увы, в этом случае надстройка вместе с макросами и вкладкой пропадает.
пропадает не вкладка - надстройка не открывается. По умолчанию, если открытие Excel идет из стороннего приложения, то Excel запускается в "полубезопасном" режиме, в котором ни одна надстройка .xla и .xlam не открывается, запуск файлов из XLSTART(и других подобных папок) игнорируется. Т.е. куда бы Вы и как бы Вы не прописали свои макросы, они будут недоступны.
Изменено: Дмитрий(The_Prist) Щербаков - 01.05.2021 11:28:01
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Стрелка быстрого перехода в шапку таблицы
 
Цитата
tonykaluga написал:
без макроса
сомневаюсь, что такое возможно, т.к. есть подозрение, что хочется как на web-сайтах - прокручиваем куда угодно, а кнопка в одном месте висит себе и висит и жмахнув её происходит переход на шапку из любого места...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Метод AutoFill - возникает ошибка при запуске кода
 
Вам сюда: Как обратиться к диапазону из VBA
читать внимательно и вдумчиво.
Код
Destination:=Sheets("Приложение_1_К_Заявлению").Range(Cells(StartRow, StartCol), Cells(Endrow, EndCol))
Для Range Вы указали явно лист, а для Cells - нет. Отсюда и ошибка. Также, кстати, ошибка может быть и из-за некорректного значения в переменной Endrow. Проверьте что в ней на момент ошибки.
Изменено: Дмитрий(The_Prist) Щербаков - 30.04.2021 10:21:09
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
VBA. Не работает внешний цикл в вложенном цикле
 
Цитата
Dez089 написал:
Тогда если переместят файл
смотря какой файл. ThisWorkbook - это книга с самим кодом и ThisWorkbook.Path будет всегда указывать на ту папку, в которой расположен файл с выполняемым кодом.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пользовательская иконка кнопки вызова макроса на ленте Excel 2016
 
Цитата
Игорь Ростовцев написал:
к ней макрос привязать чет та я затупил
Как создать свою надстройку?
более-менее подробно весь процесс расписан, пример с готовой надстройкой тоже есть.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Ссылка на лист в книге в сводной таблице, Переход на лист из сводной таблицы
 
Цитата
Виктория Правда написал:
ссылку на лист в сводной таблице?
Это как? Вы хотите внутри сводной таблицы поставить ссылку на ячейку с другого листа? Если да - то нет и не будет таких лазеет никогда, т.к. Сводная таблица это отдельный объект, который основан на данных своего кеша и к листам отношения по сути не имеет.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Размеры изображений в пикселях
 
Я думал, что минимальные переделки кода Вы сможете сделать :)
По сути Вам тогда надо делать так:
Код
Function GetPictureSize(sPath As String, sFileName As String)
    Dim objFile As Object, sPictureSize As String, sFS As String, sLS As String
    Dim lWidth As Long, lHeight As Long
    
    Set objFile = CreateObject("Shell.Application").Namespace(CVar(sPath)).ParseName(sFileName)
    sPictureSize = objFile.ExtendedProperty("Dimensions")
    sFS = Left$(sPictureSize, 1)
    sLS = Right$(sPictureSize, 1)

    sPictureSize = Mid$(sPictureSize, 2, Len(sPictureSize) - 2)
    lWidth = val(sPictureSize)
    lHeight = val(Mid$(sPictureSize, InStr(sPictureSize, "x") + 1))
 
    GetPictureSize = Array(lWidth, lHeight)
End Function
в Вашем коде записывать надо будет как-то так:
Код
Sub DateiInfos()
Dim objFSO         As Object
Dim objOrdner      As Object
Dim objDatei       As Object
Dim i              As Integer
Dim pic            As Picture
Dim aPicSize
'Hier Pfad anpassen
 
Const Pfad = "C:\Users\alexa\Desktop\files\BK\Hauptbilder\"
 
i = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.GetFolder(Pfad)
 
With ThisWorkbook.Worksheets("Tabelle3")
    .Range("A1:E3000").ClearContents
    .Range("A1:C1") = Array("Name", "Breite", "Höhe")
      
    On Error Resume Next
    For Each objDatei In objOrdner.Files
        .Cells(i, 1) = objDatei.Name
        aPicSize = GetPictureSize(Pfad, objDatei.Name)
        .Cells(i, 2) = aPicSize(0)
        .Cells(i, 3) = aPicSize(1)
        i = i + 1
    Next
    .Columns("A:C").AutoFit
End With
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Размеры изображений в пикселях
 
Попробуйте что-то вроде этого:
Код
Function GetPictureSize(sPath As String, sFileName As String)
    Dim objFile As Object, sPictureSize As String, sFS As String, sLS As String
    Dim lWidth As Long, lHeight As Long
    
    Set objFile = CreateObject("Shell.Application").Namespace(CVar(sPath)).ParseName(sFileName)
    sPictureSize = objFile.ExtendedProperty("Dimensions")
    sFS = Left$(sPictureSize, 1)
    sLS = Right$(sPictureSize, 1)

    sPictureSize = Mid$(sPictureSize, 2, Len(sPictureSize) - 2)
    lWidth = val(sPictureSize)
    lHeight = val(Mid$(sPictureSize, InStr(sPictureSize, "x") + 1))
 
    GetPictureSize = "Ширина :" & lWidth & "; " & "Высота :" & lHeight
End Function
вызывать функцию из Вашего кода так:
Код
s = GetPictureSize(Pfad, objDatei.Name)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Слетает выпадающий список при открытии документа
 
Забейте формулу в именованный диапазон, а уже это имя в проверке данных. Слетать может из-за того, что идет ссылка на другой лист.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Как поменять изображение на кнопке формы VBA через макрос?
 
Цитата
Rigel44 написал:
если непонятно сформулировал
сформулировано было относительно понятно. Непонятно было где брать картинки :) То ли с листа, то ли с другой формы, то ли с диска. Подходы разные при разном расположении картинок подгружаемых.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Как поменять изображение на кнопке формы VBA через макрос?
 
Каков вопрос...LoadPicture.
Чтобы получить ответ более расширенный не помешал бы пример данных и описание того, откуда вообще должны браться эти другие картинки
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Не срабатывает макрос защиты книги на других компьютерах
 
Цитата
Лина Али написал:
как тогда иначе можно защитить структуру окон?
никак. В новых версиях это не поддерживается, т.к. там каждая книга создается в своем новом окне и защищать нечего по сути.
В прежних версиях окно приложения Excel было одно, а внутри него располагались окна книг.  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Не срабатывает макрос защиты книги на других компьютерах
 
Цитата
Лина Али написал:
В чем может быть проблема?
Проблема может быть в версии Excel. Если это 2013 или выше, то параметр Windows:=True вызовет ошибку, т.к. защита окон в этих версиях невозможна. Просто уберите этот параметр и все заработает:
Код
ActiveWorkbook.Protect Password:="пароль", structure:=True
Изменено: Дмитрий(The_Prist) Щербаков - 20.04.2021 08:06:49
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Ошибка при сохранении файла Excel с поддержкой макросов
 
Цитата
DJMC написал:
да вроде он весил когда то и больше, за 20 мегабайт
моя ошибка, прочитал как 8ГБ  :D  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Ошибка при сохранении файла Excel с поддержкой макросов
 
Цитата
DJMC написал:
весит 8 мегабайт,
мне кажется в этом и есть проблема. Не любит Excel такие объемы.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Настроить ограничения ввода определенных символов в ячейку без VBA
 
Цитата
Дмитрий Цыганцов написал:
почему то работает только в первых 3 строках
потому что про протяжку речи не было. Надо просто закрепить смещение по строкам:
Код
СТРОКА($1:$3)
Изменено: Дмитрий(The_Prist) Щербаков - 19.04.2021 08:51:23
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Гиперссылка с примечанием
 
Цитата
turbazin написал:
не понятно, почему Excel не воспримает эти гиперссылки и ставит их как текст
потому что в одной ячейке Excel не может храниться сразу две разных гиперссылки. Вам надо копировать их отдельно в разные ячейки.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Копировать видимое значение (объединить значение и формат ячейки)
 
Код
.Range("C" & i) = VisualVal_Text(Range("C" & i))
угадайте где надо поставить точку, чтобы в функцию передавать ячейку с листа Sheets("TDSheet")?
Для общего образования рекомендую ознакомиться: Как обратиться к диапазону из VBA
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Можно ли выставить динамический максимум оси Х для графика
 
Цитата
buchlotnik написал:
а костыли?
не люблю я такие костыли :) Если нужно чуть больше настроек для осей - прибавляется проблем и извраты продолжаются. Но главное, чтобы ТС-у подошло :)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Можно ли выставить динамический максимум оси Х для графика
 
Цитата
snatg написал:
чтобы график сам сжимался/растягивался
если нужна именно четкая граница максимума, равная макс.значению в ячейках - только макросом менять при каждом изменении данных.
Если прям четкое значение максимума для оси не нужно - просто установите в настройках оси для максимума - Авто. В новых версиях надо просто нажать кнопку "Сброс" правее от поля со значением Максимум.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
У клиента защищенная книга открывается без пароля
 
Цитата
Юлия 0810 написал:
Как бы странно это ни звучало
Это скорее не странно, а подло со стороны Microsoft :). В новых версиях применяется более стойкий алгоритм шифрования, который не поддерживается в 2007 Excel. 2007 не может преобразовать в свой алгоритм и поэтому защита просто сбрасывается. А т.к. 2007 уже не поддерживается и не дорабатывается - вряд ли Microsoft будет с этим что-то делать.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Быстрое изменение типа ссылок в диапазоне
 
Как поменять в формулах относительные ссылки на абсолютные и наоборот?
Только обратите внимание на примечание в конце статьи.
Изменено: Дмитрий(The_Prist) Щербаков - 14.04.2021 07:35:33
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Не срабатывает фильтр "начинается с"
 
Цитата
Сергей Недосеков написал:
В этом файле отфильтровать можно попробовать ИННЮЛ чтоб начинался с 44
Цитата
Дмитрий(The_Prist) Щербаков написал:
если это числа, то указывать надо не "Начинается с", а двойное условие: Больше или равно 70 И Меньше или равно 80
мы здесь зря, что ли, пишем чего-то?  :D  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Перенос значений ячеек из одной книги в другую
 
Цитата
Alexander написал:
Из otk лишь берутся данные
судя по коду - все наоборот. Проследите логику своего кода и убедитесь, что Ваше утверждение ошибочно.
Может еще дело в том, что Вы ошибочно полагаете, что ThisWorkbook - это активная на момент запуска кода книга? Но Thisworkbook - это книга, в которой записан кода. Попробуйте так:
Код
Sub myTest()
    Dim wbTo As Workbook, wbFrom As Workbook
    Dim Kniga As String
    Kniga = "D:\test1.xlsx"
    Set wbTo = ActiveWorkbook 'текущая книга
    Set wbFrom = Application.Workbooks.Open(Kniga, False, True)
    wbTo.Sheets("Лист1").Range("A1:A5").Value = wbFrom.Sheets("Лист1").Range("B4:B8").Value
    wbFrom(iok).Close False
End Sub
Изменено: Дмитрий(The_Prist) Щербаков - 13.04.2021 09:55:39
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Перенос значений ячеек из одной книги в другую
 
Цитата
Alexander написал:
Workbooks(iok).Close (False)
Вы здесь закрываете книгу, в которую вставляете значения БЕЗ СОХРАНЕНИЯ. На какой результат рассчитываете?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Файлы Excel не открываются!
 
Цитата
Светлана Голованова написал:
а остальные таблицы,фотки стали ,чем то не понятным
а Excel-то здесь причем? :) Это какой-то вирус у Вас поработал и Вам явно на другой форум - какой-нибудь форум ИТ, где смогут определить что за вирус и можно ли восстановить информацию.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Файлы Excel не открываются!
 
А почему такие файлы должны открываться? Это же не файлы Excel и расширение у них ни разу Excel не знакомое.
Это, конечно, если речь про те файлы, один из которых на скрине выделен.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Настроить ограничения ввода определенных символов в ячейку без VBA
 
Формула для проверки данных:
Код
=МАКС(ЕСЛИОШИБКА(ПОИСКПОЗ(ПСТР("абв";СТРОКА(1:3);1);ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1);0);0))=0
здесь:
Код
ПСТР("абв";СТРОКА(1:3);1)
забиваете все символы, которые не должны вводиться в ячейку. Так же меняете в СТРОКА последнюю размерность с 3-х на кол-во запрещенных символов.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 403 След.
Наверх