Excel

  • Как сделать шобы в столбике день недели автоматически сам занёся.
    Типа если я в первой строчке написал 01.10.2007 ,то в последующих строчках автоматически всё занеслось ну типа так как на снимке .
    Спасибо

  • Анатолий, привет, я не 3наю как ето будет у билла, но в open-свободном ехеле так:


    шаг 1:
    Пожалуйста зарегистрируйся для просмотра данного изображения.


    шаг2:
    Пожалуйста зарегистрируйся для просмотра данного изображения.


    шаг3:
    Пожалуйста зарегистрируйся для просмотра данного изображения.


    шаг4:
    Пожалуйста зарегистрируйся для просмотра данного изображения.
    Пожалуйста зарегистрируйся для просмотра данного изображения.


    так надо?

    NULL

  • а у меня обратная ситуация . Хочу внести в таблицу счёт футбольного матча , а этот Эксель автоматически переводит его в дату :evil: Как убрать ?

  • Маркируешъ мыхой.
    Правая kлавиша мыхи>>>Zeilen Formatieren>>>Тext

    Сообщение было отредактировано 1 раз, последнее редактирование пользователем Wladdi ().

  • Цитата

    Со слов пользователя Мотя_Бессараб
    не так надо ручками вносить , а я хочу шобы типа написал первую день и вниз на весь год автоматом внеслось последующие дни етого данного года


    пожалуста:
    в А1 скажем ты 3анес 20.06.2008,
    в А2 пишешь:
    =А1+1
    потом маркируеш столбик,потом Контроль+Д (ра3множаем вни3)


    тока так сделал, все пошло :)

    NULL

    Сообщение было отредактировано 1 раз, последнее редактирование пользователем Gordon Freeman ().

  • спасибо вот вроде нашол макро код делает тока без воскресения ,но пойдёт :)



  • Мотя_Бессараб
    всё намного проще.
    пишеш в первом столбике число. Маркируеш его мышой, подводиш курсор на нижний правый угол (симфол мыши поменяется на небольшой чёрный крест), нажимаеш на левую кнопку мыши и держа её тянеш вниз до желаемого числа. всё


    @ Рубцовск
    тебе уже сказали : правой кнопкой вызываеш контекстмену и там формат ячейки (Zellen formatieren...) там в регистре " Zahlen" выбераеш желаемый формат

  • Цитата

    Со слов пользователя слава004


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


    да действително удобно

    NULL

  • Я уже понял и опробывал . Всё функционирует , но ... приходится так в каждой ячейке делать . А нельзя ли сделать , чтоб она раз и навсегда приняла функцию "Текст" ?

  • Цитата

    Со слов пользователя Рубцовск
    А нельзя ли сделать , чтоб она раз и навсегда приняла функцию "Текст" ?


    Держи клаву "Strg" и маркируй все желаемые ячейки... затем правый клик>format...

  • Цитата

    Со слов пользователя Рубцовск
    Я уже понял и опробывал . Всё функционирует , но ... приходится так в каждой ячейке делать . А нельзя ли сделать , чтоб она раз и навсегда приняла функцию "Текст" ?


    тогда маркируй не одну, а все ячейки ( слева вверху в углу) или Strg+a
    а потом Zellen formatieren...

    Сообщение было отредактировано 1 раз, последнее редактирование пользователем samokat13 ().

  • А вот так будет с воскресенем :)


    Sub Wochentage_eintragen()
    Dim i As Integer
    Dim j As Date


    Application.ScreenUpdating = False
    j = InputBox("Anfangsdatum eingeben:")
    Range("A2:B31").ClearContents
    Range("B2") = j
    Range("B2") = Format(Range("B2"), "DD.MM.YYYY")
    Range("A2") = Weekday(Range("B2"))
    Range("A2") = Format(Range("A2"), "DDDD")
    For i = 1 To 31
    Cells(2 + i, 2) = CDate(Cells(i + 1, 2)) + 1
    Cells(2 + i, 2) = Format(Cells(2 + i, 2), "DD.MM.YYYY")
    Cells(2 + i, 1) = Weekday(Cells(2 + i, 2))
    Cells(2 + i, 1) = Format(Cells(2 + i, 1), "DDDD")
    Next
    For i = 33 To 2 Step -1
    If Month(Cells(i, 2)) <> Month(Range("B2")) Then Rows(i).Delete Shift:=xlUp
    Next
    Application.ScreenUpdating = True
    End Sub