доброго времени суток столкнулся с проблемой ,сбой размера картинок при переносе на новый лист после сохранения , пример я построил форму на (3 лист),после сохранения так как построил так и сохраняет , но когда нужно скопировать картинку из (3 лист ) и перенести в (1 лист) и построить форму ту что мне нужно после сохранения , на (3 лист ) всё держится а на (1 лист) принимает изначальную форму , как обойти данную проблему,
написал: Если выделить любой рисунок на листе на ленте появится вкладка "Средства рисования" "Формат", там есть кнопочка "Область выделения". Нажав на неё появится ещё окошко и в нём будет иерархия всех картинок на листе и их название. В этом окошке можно управлять этими картинками менять их порядок, скрывать или показывать нужные, выделять определенные и при необходимости удалять. Для удобства я вывел эту кнопку на панель быстрого доступа.
доброго времени суток такой вопрос а как можно скопировать картинку чтобы завязать в месте чтобы на новом листе тоже менялась , согласно из первым , или чтобы копия тоже реагирувала на изменения ,
я извиняюсь , всё нормально работает такой вопрос , можно подправить код чтобы ново создание папки из ячейки а1 на определёном листе ,к примеру в течении севоднешней дате все папки каторые назывались из а1 не перемещались в папку а оставались возле книги ,или какой нибуть знак поставить в названии папки чтобы не перемещались , а всё остальное разные файли и папки с другими названиями перемещались ,
Public Sub MoveFilesExceptActiveSheet91()
Dim destinationFolder As String
Dim activeSheetName As String
Dim file As String
Dim sourceFolder As String
sourceFolder = ActiveWorkbook.Path & "\"
' отримуємо шлях до папки з активним аркушем
sourceFolder = ThisWorkbook.Path & "\"
' отримуємо назву активного аркуша
activeSheetName = ActiveSheet.Name
' створюємо папку з ім'ям, яке зберігається в комірці A1
destinationFolder = sourceFolder & Range("A1").Value & "\"
If Dir(destinationFolder, vbDirectory) = "" Then
MkDir destinationFolder
End If
' перебираємо всі файли в першій папці
file = Dir(sourceFolder & "*", vbDirectory)
Do While (file <> "")
' перевіряємо, чи файл є активним аркушем Excel
If Not (file Like activeSheetName & ".*") Then
' перевіряємо, чи файл має потрібне розширення
If (file Like "*.xlsx") Or (file Like "*.xls") Or (file Like "*.rar") Or (file Like "*.jpg") Or (file Like "*.png") Or (file Like "*.dwg") Or (file Like "*.pdf") Or (file Like "*.txt") Or (file Like "*.bak") Then
' переміщуємо файл в нову папку
Name sourceFolder & file As destinationFolder & file
End If
End If
' переходимо до наступного файлу
file = Dir()
Loop
' перебираємо всі папки в першій папці
file = Dir(sourceFolder & "*", vbDirectory)
Do While (file <> "")
' перевіряємо, чи файл є активним аркушем Excel
If Not (file Like activeSheetName & ".*") Then
' перевіряємо, чи файл є папкою
If (GetAttr(sourceFolder & file) And vbDirectory) = vbDirectory Then
' перевіряємо, чи папка не є джерелом або призначенням
If (file <> ".") And (file <> "..") Then
' переміщуємо папку в нову папку
Name sourceFolder & file As destinationFolder & file
End If
End If
End If
' переходимо до наступного файлу
file = Dir()
Loop
End Sub
как ошибку убрать, код перемещает файлы и папки , после как переместил выдаёт ошибку как обойти зарания спасибо
Public Sub MoveFilesExceptActiveSheet9()
Dim destinationFolder As String
Dim activeSheetName As String
Dim file As String
Dim sourceFolder As String
sourceFolder = ActiveWorkbook.Path & "\"
' получаем путь к папке с активным листом
sourceFolder = ThisWorkbook.Path & "\"
' получаем названия активного листа
activeSheetName = ActiveSheet.Name
' создаем папку с именем, хранящимся в ячейке A1
destinationFolder = sourceFolder & Range("A1").Value & "\"
If Dir(destinationFolder, vbDirectory) = "" Then
MkDir destinationFolder
End If
' Перебираем все файлы в первой папке
file = Dir(sourceFolder & "*")
Do While (file <> "")
' проверяем файл активним листом Excel
If Not (file Like activeSheetName & ".*") Then
' Перевіряємо, чи файл має потрібне розширення
If (file Like "*.xlsx") Or (file Like "*.xls") Or (file Like "*.rar") Or (file Like "*.jpg") Or (file Like "*.png") Then
' Переміщуємо файл в нову папку
Name sourceFolder & file As destinationFolder & file
End If
End If
' Переходимо до наступного файлу
file = Dir()
Loop
End Sub
доброго времени суток можно подправить код , в ячейке а1 названия новой папки , переместить всё что есть в папке кроме активной книге , зарание спасибо
доброго времени суток вопрос можно в фильтре настроить возможность выбрать половину списка , и переключить на вторую половину типа подобия в 1с фото ниже зарание спасибо
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
x = Range("ESG2").Value 'no?iea y = Range("ESH2").Value 'noiea t = Range("ESH4").Value w = Range("ESF2").Value 'oaao Select Case w Case 1: Z = vbYellow Case 2: Z = vbRed Case 3: Z = vbGreen Case 4: Z = vbBlue Case 5: Z = vbMagenta Case 6: Z = vbCyan Case 7: Z = vbBlack
End Select
Range("D8").Resize(x, y).Interior.Color = Z
With Range("D8").Resize(x, y).Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThick End With
With Range("D8").Resize(x, y).Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThick End With
With Range("D8").Resize(x, y).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThick End With
With Range("D8").Resize(x, y).Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThick End With
End Sub
вот рабочий макрос из толстой заливкой границ вопрос как сделать чтобы заливка начиналась из ячейки каторую я хочу указать,
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
доброго времени суток можно подправить код чтобы наложилась граница по кругу залитой области , и чтобы вставка могла назначаться на листе куда необходимо залить из какой ячейки зарания спасибо,
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
спасибо вопрос ,а можно в самом коде указать определёные ячейки для действий чтобы сообщения не всплывало чтобы макрос брал из уже назначеных на листе в самом коде, чтобы при смене размеров не назначать те-жэ самые ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
спасибо а такой вопрос можно сделать без вода в окна сообщений а чтобы макрос брал информацыю из указаных ячеек для размера a1 . b1 и цвета c1 заливки и начало рисунка тоже можно было назначать к примеру начать рисовать из D8
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
с любой свободной ячейки которою назначить откуда начинать и направления может макросом одна часть макроса отвечает за масивную заливку ,вторая за столбовую , третья за строчную, но как сделать ? и забыл сказать если две заливки на одной строке можно так сделать чтобы заливка контролировалась не пересикаясь
заливка количества ячеек с критерия в указанной ячейки и направления по строке по столбцу а также масивом заливка ячеек, заливка количества ячеек с критерия в указанной ячейки
доброго времени суток как правильно залить ячейки по указанным количествам , направлениями , а также масивом , примером поставил цифру пять и пять ячеек закрасило в указзаном направлении
доброго времени суток , вопрос можна в формулу =если( сделать замену картинок по такому примцыпу как работает формула или =впр( из большого количества разных картинок.