Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Макрос-вставка слов https://www.cyberforum.ru/ vba/ thread1139609.html
Нужно макрос который бы создавал: 1)В начале первой строчки слово *Пример :* синим цветом 2)Второй строчки *Аргумент : * синим цветом 3)Третья строчка *Вывод : * тоже синим И что бы это применялось ко всему документу Добавлено через 16 секунд Помогите Пожалуйста
VBA Сравнение дат
Добрый день! Помогите пожалуйста, решить такой вопрос. Нужно, чтобы при нажатии в форме на кнопку прошло сравнение дат, если д1 = д2 и д1>д2 то должна светится красным вся строка , если д1<д2, то цвет не меняется. Файл во вложении. Спасибо.
VBA Объединение макросов https://www.cyberforum.ru/ vba/ thread1139327.html
Доброго времени суток! Пытаюсь объединить два замечательных макроса, но увы... Sub CopySelectedRangeToNewSheetModif() Dim R As Range, rArea As Object, li As Long Dim res As Worksheet Set R = Application.InputBox(prompt:="Выделите диапазон для копирования:", Title:="Копирование", Type:=8) With Sheets.Add(After:=ActiveSheet) .Name = InputBox("Имя нового листа:", ,...
VBA Увеличить все положительные элементы массива на заданное число Увеличить все положительные элементы массива на заданное число vba. Помоги плиз) https://www.cyberforum.ru/ vba/ thread1139274.html
Как связать две таблицы? VBA
Добрый день! Интересует вопрос, связанный с MS Office, а точнее связь таблиц между Word и Excel. Мне необходимо сделать такую связь, что при изменении данных в таблице Word автоматически меняются данные в таблице Excel и наоборот. т.е связь должна быть двусторонней. Если честно я в этом деле полный ноль, поэтому прошу вас объяснить как это вообще реализуется и приложить код. Заранее спасибо за...
VBA Создание и сравнение двух массивов https://www.cyberforum.ru/ vba/ thread1139105.html
Добрый день. Помогите написать VBA скрипт для екселя. суть : есть список сотрудников(фамилии) , вручную вводимую в массив (массив 1) каждый день создается другой список сотрудников так же вручную вводимую в массив (массив 2) нужно что бы программа сравнила два массива и вывела список сотрудников отсутствующих в массиве 2. Это можно? и если не сложно пожете сделать коментарии? что бы я...
VBA ByRef argument type mismatch https://www.cyberforum.ru/ vba/ thread1139017.html
Private Sub CommandButton1_Click() Dim Mas(0 To 4) As Integer Sum = CombRows(0, 0, Mas, 4, 4) End Sub Function CombRows(pos As Integer, maxUsed As Integer, Mas() As Integer, n As Integer, k As Integer) If pos = k Then For iCols = 1 To n Step 1 Cells(iRows + 1, iCols) = Mas(iCols) Next iCols
VBA Возможно ли так?
Здравствуйте, возможно ли так сделать с циклом: Суть этого цикла "сдвиг" (т.е начало: 1 To 91...2 To 92...3 To 93...итд) For d2 = 1 To 91 Step 10 If Me.Controls("lbl_GamePole" & d2).Caption = "X" And Me.Controls("lbl_GamePole" & d2 + 1).Caption = "X" And Me.Controls("lbl_GamePole" & d2 + 2).Caption = "X" And Me.Controls("lbl_GamePole" & d2 + 3).Caption = "X" And Me.Controls("lbl_GamePole" &...
VBA Макрос "нажатие кнопки" на веб странице Здравствуйте. Есть код со страницы <A href="?pool=0">0</TD> <td>st3333</td> <td></td> <td>1FjPnC ... f3wkr6</td> <td>Alive</td> <td>494 / 5</td> <td>1.00%</td> <td><form name='pselect' action='status.pl' method='POST'> <input type='hidden' name='swpool' value='0'> https://www.cyberforum.ru/ vba/ thread1138704.html VBA Найти слово в ячейке Всем привет. Вопрос такого плана, имеется столбец с ячейками такого типа содержания "улица Ленина, 18". Нужно пробежать по всему столбцу и где встречается слово "улица" в соседней ячейке поставить единицу. С ходу разобраться не получилось, так как StrComp дал не совсем те результаты. Как быть товарищи подскажите? https://www.cyberforum.ru/ vba/ thread1138564.html
Посчитать кол-во элементов между VBA
Добрый вечер мудрым людям! Не люблю VBA, она заставляет меня матерится. Нужна помощь с решением проблемы. Проблема в следующем: Нужно создать произвольный массив (одномерный сойдет) и (в этом проблема) найти кол-во элементов между максимальным и минимальным элементами массива! Пробовал через Do ... Loop ковырять, но выдает ошибки. Идей нет! Даже нечего показать! Помогите, пожалуйста:(
VBA Исходник Здравствуй Народ, у кого не буть есть исходный код на игру "Крестики - Нолики" (10*10) нужно некоторые моменты доработать https://www.cyberforum.ru/ vba/ thread1138280.html
15146 / 6419 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
05.04.2014, 20:11 0

Создание папок с именами столбцов в Excel - VBA - Ответ 6003509

05.04.2014, 20:11. Показов 8215. Ответов 4
Метки (Все метки)

Лучший ответ Сообщение было отмечено Solvein как решение

Решение

Пробуйте. Если папку создать не удалось, ячейка будет покрашена. Если файл переместить не удалось, ячейка будет покрашена. Макрос рассчитан на то, что в таблице имена файлов без расширения, т.е. записи "558784" соответствует файл "558784.pdf". Если это не так, поправьте 15 строку.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Declare Function MakeSureDirectoryPathExists Lib "Imagehlp.dll" (ByVal strPath As String) As Long
    'проверяет наличие папки с указанным путем и создает, если ее нет
    'возвращает 0, если папку создать не удалось и не-0, если ОК
 
Sub Solvein()
 
Const FLDR_FROM = "C:\in\"
Const FLDR_TO = "C:\Reestr\"
 
Dim c As Range, d As Range
On Error Resume Next
For Each c In Range("A1", Cells(1, Columns.Count).End(xlToLeft))
  If MakeSureDirectoryPathExists(FLDR_TO & c & "\") Then
    For Each d In Range(c.Offset(1), Cells(Rows.Count, c.Column).End(xlUp))
      Name FLDR_FROM & d & ".pdf" As FLDR_TO & c & "\" & d & ".pdf"
      If Err Then
        Err.Clear
        d.Interior.Color = vbRed
      End If
    Next
  Else
    c.Interior.Color = vbRed
  End If
Next
End Sub


Вернуться к обсуждению:
Создание папок с именами столбцов в Excel VBA
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2014, 20:11
Готовые ответы и решения:

Создание папок с именами ячеек Excel
Простите если пишу не в этот раздел. Помогите пожалуйсто... В програмировании полный ноль......

Создание папок с именами, взятыми из содержимого файлов
Добрый день! Такая задача - есть файлы с расширением .las (открываются блокнотом). В них нужно...

Создание папок с именами, записанными в текстовом файле
Здравствуйте. Помогите пожалуйста решить вот такую задачу. Есть .txt файл, в котором построчно...

Создание папок на FTP-сервере с именами, являющимися IP-адресами компьютеров
Здравствуйте дорогие форумчане! Никак не могу решить одну проблему и последняя надежда на Вас. Мне...

4
05.04.2014, 20:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.04.2014, 20:11
Помогаю со студенческими работами здесь

Создание папок с именами, соответсвующими расширениям имеющихся файлов, но без начальной точки
Создаю папки в powershell для файлов с разными расширениями.Название папок идет как название...

Создание папки с указанным именем и в ней трех папок с уже зараннее заданными именами
Доброго времени суток уважаемые форумчане! Помогите решить вопрос: Создание папки с указанным...

txt файл с именами папок внутри самих папок (в кодировке 1251)
Добрый вечер ) Есть несколько сотен папок, в каждой из которых нужно создать файл album.txt в...

Создание папок с именами заданных файлов и перемещение этих файлов в созданные папки
Подскажите пожалуйста как по названиям файлов txt создать папки и положить в каждую из папок файл с...

Сравнение файлов в папке и создание папок с именами файлов
Нужно пройтись по папке, если есть картинка с названием, но нет папки с таким же названием, создать...

Создание папок в VBA Excel
Добрый день!Пожалуйста помогите с VBA Exсel 1.При начале нового дня создать новую папку с именем...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru