Как убрать вот эту ошибку при установке Microsoft Office 2010 на Windows XP SP3?
Данная ошибка выскакивает сразу после двойного клика по файлу setup.exe.
Сборка Microsoft Office 2010 от m0nkrus (2013 года выпуска).
Данная ошибка выскакивает сразу после двойного клика по файлу setup.exe.
Сборка Microsoft Office 2010 от m0nkrus (2013 года выпуска).
Ребят, возник вопрос, переустановил винду и сейчас для работы нужно скачать оффис. Не подскажете, где его достать? Заранее благодарю.
В этом видео показана консолидация данных в эксель.
Для работы по зарез нужен польский и немецкий язык в офисе + орфография (не так хорошо знаю язык) но я просидел часов 5 но не нашел ни официальной версии ни пиратской как можно добавить язык в орфографию. На сайте мелко мягких указано что вставите диск с которого приобрели офис, но я его купил в интернете.
В общем надеюсь что среде пикабу проблема известна.
Скаченные из этих всплывающих окон языковые пакеты успешно установились, но не заработали. Каким образом их ещё можно вкорячить.
Такую задачу поставил Little.Bit пикабушникам. И на его призыв откликнулись PILOTMISHA, MorGott и Lei Radna. Поэтому теперь вы знаете, как сделать игру, скрафтить косплей, написать историю и посадить самолет. А если еще не знаете, то смотрите и учитесь.
Встречались в работе с ситуацией, когда исходные данные содержат пустые строки, мешающие дальнейшей, обработке информации, до их удаления?
Например, не строится Сводная таблица по всем данным или правильно не работает стандартный фильтр .
Исключая "ручной привод", максимально просто решает проблему, такой макрос:
Копируйте код и сохраните его в Личной книге макросов или создайте свою надстройку:
Sub DelEmptyRows() 'Удаление пустых строк на активном листе
Dim i As Long
Dim rMay1 As Range
Dim rMay2 As Range
Set rMay1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
Application.ScreenUpdating = False
'удаляем пустые строки
For i = 1 To rMay1.Rows.Count
If WorksheetFunction.CountA(rMay1.Rows(i).EntireRow) = 0 Then
If rMay2 Is Nothing Then
Set rMay2 = rMay1.Rows(i).EntireRow
Else
Set rMay2 = Application.Union(rMay2, rMay1.Rows(i).EntireRow)
End If
End If
Next
If rMay2 Is Nothing Then
MsgBox "Пустых строк не найдено.", vbInformation, "Информация"
Else:
rMay2.[Delete]
End If
Application.ScreenUpdating = True
End Sub
В продолжение к посту Макрос для удаления пустых столбцов в книгах Excel.