Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Главное меню

заполнение ячеек столбца в цикле

Автор Astrall Romance, 02.12.2012, 17:00

« назад - далее »

Astrall Romance

Здравствуйте уважаемые,

вопрос следующего плана ...есть столбец, нужно заполнить его именами фоток из папки ... что б упростить задачу , фотки нумерованы по порядку ... то есть нужно заполнить слолбец что б в каждой ячейке было значение "1.jpg" .. "2.jpg"  ... "3.jpg"

Буду благодарен.

kuklp

Ставьте пробел перед точкой и протягивайте вниз. Потом, с помощью ctrl+h меняем пробел на ничего. Все.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Олег Леонидович

#2
Может кому ещё будет нужно.  ::)
Решение данного вопроса с помощью макроса.

Sub tt()
   Dim v_Path As String, v_FileName As String, v_Mask As String

    v_Path = "D:\" 'укажите путь к папке с файлами jpg
    v_iFileName = Dir(v_Path)
    v_Mask = "JPG"
    Do While v_iFileName <> ""
        If UCase(Right(v_iFileName, 3)) = v_Mask Then _
            ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1) = v_iFileName
            ' "A" - столбец куда будут вноситься данные
        v_iFileName = Dir
    Loop

End Sub
NULL