Здравствуйте. Как можно передать данные определенного диапазона ячеек из 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. и наверное, нужно делать каждую ячейку отдельным объектом. Пока не особо представляю, как это буду делать.

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

Если в книге с неизвестным названием есть определенная ячейка на активном листе, где всегда одно и тоже значение, то можно применить такой макрос. Только замените значения в строке № 12

Sub вставить_из_другой_книги()
Dim wb As Workbook, активная_ячейка As Range
Dim Новая_книга, Старая_книга, Лист_из_старой_книнги As String
Старая_книга = ActiveWorkbook.Name
Лист_из_старой_книнги = ActiveSheet.Name
Set активная_ячейка = ActiveCell

    ' перебираем все открытые книги
    ' если в одной из книг, на активном листе, в ячейке А1 есть "Определенные слова"
    ' то запоминаем названия этой книги
    For Each wb In Workbooks
        If wb.ActiveSheet.Range("A1").Value = "Определенные слова" Then 'сюда запишите критерий, как можно узнать ту книгу
            Новая_книга = wb.Name
        End If
    Next wb
    
    If Новая_книга = "" Then
    MsgBox "Нужный файл не найден"
    Exit Sub
    End If

активная_ячейка.Offset(0, 1) = Workbooks(Новая_книга).ActiveSheet.Cells(7, 6).Value
активная_ячейка.Offset(0, 2) = Workbooks(Новая_книга).ActiveSheet.Cells(9, 5).Value
активная_ячейка.Offset(0, 5) = Workbooks(Новая_книга).ActiveSheet.Cells(11, 5).Value
активная_ячейка.Offset(0, 6) = Workbooks(Новая_книга).ActiveSheet.Cells(13, 6).Value
активная_ячейка.Offset(0, 8) = Workbooks(Новая_книга).ActiveSheet.Cells(13, 8).Value
активная_ячейка.Offset(0, 9) = Workbooks(Новая_книга).ActiveSheet.Cells(41, 10).Value

''еще можно закрыть новую книгу
'Workbooks(Новая_книга).Close 0
End Sub

Нашел такой выход: перенос текста в формат ячейки

 Sub формат()
Dim cell, celll As Range
Set celll = Range("A1:E13")
celll.Select
    For Each cell In celll
        If cell.Value Like "*+*" Then
        cell.Replace What:="+", Replacement:=""
        cell.NumberFormat = "#,##.0 +"
        End If
    Next cell
        For Each cell In celll
        If cell.Value Like "*-*" Then
        cell.Replace What:="-", Replacement:=""
        cell.NumberFormat = "#,##.0 -"
        End If
    Next cell
    For Each cell In celll
    SendKeys "{F2}+{Enter}"
    Next cell
End Sub

Возник вопрос. Чем можно заменить строчку SendKeys "{F2}+{Enter}"? На выполнение этой строчки уходит много времени, а без неё ничего не работает. Строчка cell.Value = cell.Value тоже не помогает.

P.S. Тему, наверное, лучше сменить на "Гистограмма в ячейке с текстом"

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

Вот еще интересный вариант, но, правда, тоже макросами (. Что делать: откройте этот файл, разрешите макросы, сверните файл. Перейдите в книгу, где нужно работать. Нажмите Ctrl+Q. Следуйте инструкциям.

Правда здесь неудобно то, что если вы добавите чисел в диапазон с пропущенными числами, то придется заново макрос запускать. Хотя можно написать макрос, который будет запускаться сам при изменении значений в определенном диапазоне)

Андрей VG, у меня получается “расширять” ваш файл: добавлять новые фигуры, и назначать им свои контекстные меню на ПКМ, но не понимаю как это всё сделать с нуля. Если я создаю новый файл, вставляю те же макросы, добавляю фигуры, даю им такие же имена, как у вас в файле, то ничего не получается. Подскажите пожалуйста, что не так.

О, так для некоторых задач даже и лучше, но сейчас я пытаюсь сделать тоже самое, но только после нажатия правой кнопки мыши на фигуру.

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

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

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

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

Юрий М, итоговый макрос будет такой: я прохожу циклом for i=1 to 500 по каждой ячейке всех диапазонов, и если это число (i) везде отсутствует, то макрос его записывает в определённую ячейку. Т.е. макрос записывает пропущенные числа. Наверное, можно было и без объединения диапазонов в одну переменную делать, но вот пошел таким путём. Мне кажется так будет проще потом к макросу добавлять новые диапазоны, и т.д.