Здравствуйте. Как можно передать данные определенного диапазона ячеек из Excel в Google Sheets?

Здравствуйте!

Как в Excel можно сделать объединенную ячейку в линейку, как в школьной тетрадке?

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

Если рисовать линии, и привязывать их к сетке, то при печати они сползают, и эти линии зачеркивают текст. Можно эти линии подстроить так, чтобы при печати всё было нормально, но это будет работать только на одном компьютере, при печати на другом компьютере все будет сбиваться.

Здравствуйте! Хочу нажать кнопку, которая расположена на ленточном интерфейсе макросом, но не получается.

Код из надстройки:

Sub myButton(control As IRibbonControl)   
'хочу вызвать этот макрос
MsgBox "Вы нажали на кнопку!"
End Sub

Sub test(myText As String)   
MsgBox myText
End Sub

'Код из Ribbon панели:
<button id="ItemID" label="Моя кнопка" onAction="myButton" imageMso="AcceptTask" size="large" visible = "true"/>

Макрос тест могу вызвать так:

Sub вызываюМакросТест()
Application.Run "НадстройкаМоя.xlam!Module1.test", "вы вызвали макрос test"
End Sub

Пытаюсь аналогичным способом вызвать макрос «myButton», но не получается. Не знаю, что передавать переменной control. Хочу это сделать, не меняя код из надстройки. Для полноты эксперимента надстройка защищена паролем. Пароль = 123.

Здравствуйте. У меня есть желание перевести некоторые свои эксельки на сайт. Хочу у вас узнать, как это сделать лучше всего. Есть ли у кого-нибудь подобный опыт?

Мне нужно создать таблицу 20*30 ячеек, и там должен выполняться подобный код:

Sub primer()
Dim cell As Range
    For Each cell In Selection
        cell.Value = cell.Offset(1, 0)
    Next cell
End Sub

Что нужно, чтобы этот код заработал:

1. у ячеек должны быть адреса. Решение – в таблице HTML для каждой ячейки вручную прописывать ID. (Можно текст кода для таблицы HTML сформировать макросом, но всё равно выглядит как костыль)

2. нужно определять, какие ячейки в таблице HTML выделены. Решения не нашел, может, нужно как-то преобразовать вот это.

3. всё должно пересчитываться без обновления страницы. Решение - делать сайт PWA (наверное, тут множество решений)
   

P.S. и наверное, нужно делать каждую ячейку отдельным объектом. Пока не особо представляю, как это буду делать.

Прошу поделиться опытом и советами, в какую сторону гуглить, и т.д.

Здравствуйте. Можно ли, а если можно то как сделать гистограмму, чтобы она работала в ячейке, где расположены цифры с текстом? В качестве текста плюсы и минусы после числа.

Здравствуйте. Можно ли сделать так: нажимаешь ПКМ на одну фигуру, появляется одно меню, нажимаешь на другую, другое меню?

Получается проделать такой фокус с разными диапазонами, а с фигурами - нет. Не знаю как определить имя активной фигуры, и еще, если не сбрасывать старое меню (Application.CommandBars("Cell").Reset), то оно не появляется при нажатии ПКМ по фигуре.

Здравствуйте. У меня возникла такая проблема. Одна программа выгружает данные в Excel. После этого мне нужно копировать эти данные макросом в другой файл, но не получается: VBA не видит эту книгу. Если активирую эту книгу, и запускаю макрос msgbox activeworkbook.name, то выводится имя предыдущей активной книги, если запускаю цикл по перебору имён всех открытых книг, то выводятся все книги, кроме этой. И в окне Project-VBAProject эта книга не отображается. Когда эту книгу закрываю с сохранением, и потом открываю, то все работает как надо. Как тогда скопировать данные макросом не знаю. Excel 2010.

Здравствуйте. При копировании данных из первого файла Excel во второй файл Excel, нужно, чтобы второй файл не был открыт другим пользователем. Если второй файл Excel открыт, можно ли его как-нибудь закрыть? Или узнать имя пользователя, который его открыл? Или сделать разрешение только на просмотр файла, но разрешить редактирование его макросом?

Здравствуйте. Подскажите, можно ли как-нибудь в одну переменную вместить два диапазона, если эти диапазоны на разных листах? И можно ли в таком случае записывать не адреса ячеек, а давать ссылки на умные таблицы? Файл и мой макрос, наверное, излишние, но на всякий случай прикреплю.

Sub макрос()Dim диапазон1, диапазон2, диапазон As Range
Set диапазон1 = Worksheets("Лист с диапазоном 1").Range("C6:C10")
Set диапазон2 = Worksheets("Лист с диапазоном 2").Range("C6:C10")
Set диапазон = ("диапазон1, диапазон2")
'Set диапазон = Range("Диапазон2[Диапазон2]") & Range("Диапазон1[Диапазон1]")    
For Each cell In диапазон    
MsgBox cell.Value    
Next
End Sub

Здравствуйте.

Формула ниже ищет адрес ячейки со словом из аргумента на неактивном листе.

Function адрес_ячейки(ячейка As String)    
адрес_ячейки = Sheets("Март").Range("D17:D45").Find(What:=ячейка).Address
End Function

Делаю фильтр строк вручную, - всё нормально.

Делаю фильтр строк макросом:

ActiveSheet.Range("$D$16:$E$39").AutoFilter Field:=2, Criteria1:="111"

значение формулы становиться “ЗНАЧ”. Нажимаю в ячейке формулы Enter, или сбрасываю фильтр - ошибки уходят. Можно ли как-то избавиться от этих ошибок? Формула находится в строках, которые фильтруются.

Как вариант, можно к макросу фильтра дописать такие строчки, но такой макрос работает медленно:

For Each cell In Range("G17:G39")        
cell.Formula = cell.Formula    
Next

Здравствуйте.

Файл Excel лежит в OneDrive. Если открывать его через браузер, можно редактировать двумя пользователями одновременно. При открытии через Excel – нельзя. Изменения одного пользователя не видны другому пользователю. И когда файлы сохраняются, сохраняются две версии файла (с изменениями от одного пользователя, и от другого). И у другого пользователя к названию файла добавляется имя компьютера. Что не так? Ведь должно же получаться в Excel параллельное редактирование двумя пользователями?

Здравствуйте.

Ниже приведены строчки кода, которые переносят значение ячейки из одной ячейки в другую. Адреса ячеек определяются переменными. Можно ли как-нибудь устанавливать направление переноса, которое будет определяться, например, значением какой-нибудь переменной? Просто сейчас, если что-то меняется на листе Excel, то нужно редактировать макросы в двух местах для каждой связи, и это неудобно.

C = 15
Worksheets("Ввод данных").Range("B22").Value = Worksheets("Архив").Cells(14, c).Value 

C = 15
Worksheets("Архив").Cells(14, c).Value = Worksheets("Ввод данных").Range("B22").Value

P.S. Знаю, что мою задачу упростит присвоение имен для ячеек, адреса которых не определяются переменными, но задание направления переноса было бы еще лучше.

Здравствуйте.

Подскажите пожалуйста, как сделать выпадающий список с несколькими условиями?

Поиск по форуму дал множество примеров выпадающих списков только с одним условием (

Здравствуйте.

Приведенный ниже макрос не работает при нажатии на объединенную ячейку в столбце А. Что не так?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ячейка As Variant

        If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
        Set ячейка = Selection
        MsgBox ячейка.Value
        End If

End Sub

Здравствуйте.

Можно ли создать таблицу или какую-нибудь базу данных, которая будет храниться в файле надстройки.xlam, к которой я смогу обращаться через ВПР?