Как сделать шобы в столбике день недели автоматически сам занёся.
Типа если я в первой строчке написал 01.10.2007 ,то в последующих строчках автоматически всё занеслось ну типа так как на снимке .
Спасибо
Excel
- Мотя_Бессараб
- Вопрос темы решён
-
-
Анатолий, привет, я не 3наю как ето будет у билла, но в open-свободном ехеле так:
шаг 1:
Пожалуйста зарегистрируйся для просмотра данного изображения.шаг2:
Пожалуйста зарегистрируйся для просмотра данного изображения.шаг3:
Пожалуйста зарегистрируйся для просмотра данного изображения.шаг4:
Пожалуйста зарегистрируйся для просмотра данного изображения.
Пожалуйста зарегистрируйся для просмотра данного изображения.так надо?
-
а у меня обратная ситуация . Хочу внести в таблицу счёт футбольного матча , а этот Эксель автоматически переводит его в дату Как убрать ?
-
Маркируешъ мыхой.
Правая kлавиша мыхи>>>Zeilen Formatieren>>>Тext -
не так надо ручками вносить , а я хочу шобы типа написал первую день и вниз на весь год автоматом внеслось последующие дни етого данного года
-
Цитата
Со слов пользователя Мотя_Бессараб
не так надо ручками вносить , а я хочу шобы типа написал первую день и вниз на весь год автоматом внеслось последующие дни етого данного годапожалуста:
в А1 скажем ты 3анес 20.06.2008,
в А2 пишешь:
=А1+1
потом маркируеш столбик,потом Контроль+Д (ра3множаем вни3)тока так сделал, все пошло
-
правда делает до 2187 года, но подрежешь как надо, ломать не строить
-
спасибо вот вроде нашол макро код делает тока без воскресения ,но пойдёт
Исходный код
Показать весь кодOption Explicit 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 If Cells(i, 1) = "Sonntag" Then Rows(i).Delete Shift:=xlUp Next Application.ScreenUpdating = True End Sub
-
Мотя_Бессараб
всё намного проще.
пишеш в первом столбике число. Маркируеш его мышой, подводиш курсор на нижний правый угол (симфол мыши поменяется на небольшой чёрный крест), нажимаеш на левую кнопку мыши и держа её тянеш вниз до желаемого числа. всё@ Рубцовск
тебе уже сказали : правой кнопкой вызываеш контекстмену и там формат ячейки (Zellen formatieren...) там в регистре " Zahlen" выбераеш желаемый формат -
Цитата
Со слов пользователя слава004
пишеш в первом столбике число. Маркируеш его мышой, подводиш курсор на нижний правый угол (симфол мыши поменяется на небольшой чёрный крест), нажимаеш на левую кнопку мыши и держа её тянеш вниз до желаемого числа. всё
да действително удобно
-
Я уже понял и опробывал . Всё функционирует , но ... приходится так в каждой ячейке делать . А нельзя ли сделать , чтоб она раз и навсегда приняла функцию "Текст" ?
-
Цитата
Со слов пользователя Рубцовск
А нельзя ли сделать , чтоб она раз и навсегда приняла функцию "Текст" ?
Держи клаву "Strg" и маркируй все желаемые ячейки... затем правый клик>format... -
Спасибо ! Понятно !
-
Цитата
Со слов пользователя Рубцовск
Я уже понял и опробывал . Всё функционирует , но ... приходится так в каждой ячейке делать . А нельзя ли сделать , чтоб она раз и навсегда приняла функцию "Текст" ?тогда маркируй не одну, а все ячейки ( слева вверху в углу) или Strg+a
а потом Zellen formatieren... -
А вот так будет с воскресенем
Sub Wochentage_eintragen()
Dim i As Integer
Dim j As DateApplication.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