Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս Excel- ում ամսական / տարեկան օրացույց ստեղծել:

Որոշ ժամանակ անհրաժեշտ է Excel- ում ստեղծել որոշակի ամսվա կամ տարվա օրացույց, ինչպե՞ս կարող եք այն արագ լուծել: Այս ձեռնարկը ներկայացնում է Excel- ում ամսական կամ տարեկան օրացույց արագ ստեղծելու հնարքները:

Ստեղծեք ամսական կամ տարեկան օրացույց Excel ձևանմուշի կողմից

Ստեղծեք ամսական օրացույց VBA- ի կողմից

Հավիտենական օրացույցի միջոցով հեշտությամբ ստեղծեք ամսական կամ տարեկան օրացույց լավ գաղափար 3

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Ստեղծեք ամսական կամ տարեկան օրացույց Excel ձևանմուշի կողմից

Excel- ում ամսական կամ տարեկան օրացույց ստեղծելու համար կարող եք օգտագործել օրացույցի ձևանմուշ:

1. Excel 2010/2013-ում կտտացրեք Ֆայլ > նոր, Excel 2007-ում կտտացրեք Գրասենյակային կոճակ > նոր, ապա դուրս գալու պատուհանի աջ հատվածում մուտքագրեք օրացույց որոնիչի մեջ: Տեսեք,

Excel- ում 2010/2013

փաստաթուղթ ամսական օրացույց 1

Excel 2007-ում

փաստաթուղթ ամսական օրացույց 2

2. Մամուլ Մտնել, ապա պատուհանում նշվում են օրացույցերի բազմաթիվ տեսակներ: Ընտրեք ձեզ անհրաժեշտ օրացույցի մեկ տեսակ և կտտացրեք Ներբեռնել (կամ ստեղծել) ճիշտ պատուհանում: Տեսեք,

փաստաթուղթ ամսական օրացույց 3

Այժմ օրացույցը ստեղծվում է նոր աշխատանքային գրքում: Տեսեք,

փաստաթուղթ ամսական օրացույց 4


նետ կապույտ աջ պղպջակ Ստեղծեք ամսական օրացույց VBA- ի կողմից

Երբեմն անհրաժեշտ է, որ ստեղծեք մեկամսյա օրացույց նշված ամսվա համար, ինչպիսին է 2015-ի հունվարը: Կարող է դժվար լինել աղբ գտնել այդպիսի օրացույցի ձևանմուշը վերը նշված մեթոդով: Այստեղ ես ներկայացնում եմ VBA կոդ, որը կօգնի ձեզ ստեղծել ամսական որոշակի օրացույց:

1. Մամուլ Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք և տեղադրեք VBA կոդի տակ ՝ պատուհանում:

VBA. Ստեղծեք ամսական օրացույց:

Sub CalendarMaker()

       ' Unprotect sheet if had previous calendar to prevent error.
       ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
          Scenarios:=False
       ' Prevent screen flashing while drawing calendar.
       Application.ScreenUpdating = False
       ' Set up error trapping.
       On Error GoTo MyErrorTrap
       ' Clear area a1:g14 including any previous calendar.
       Range("a1:g14").Clear
       ' Use InputBox to get desired month and year and set variable
       ' MyInput.
       MyInput = InputBox("Type in Month and year for Calendar ")
       ' Allow user to end macro with Cancel in InputBox.
       If MyInput = "" Then Exit Sub
       ' Get the date value of the beginning of inputted month.
       StartDay = DateValue(MyInput)
       ' Check if valid date but not the first of the month
       ' -- if so, reset StartDay to first day of month.
       If Day(StartDay) <> 1 Then
           StartDay = DateValue(Month(StartDay) & "/1/" & _
               Year(StartDay))
       End If
       ' Prepare cell for Month and Year as fully spelled out.
       Range("a1").NumberFormat = "mmmm yyyy"
       ' Center the Month and Year label across a1:g1 with appropriate
       ' size, height and bolding.
       With Range("a1:g1")
           .HorizontalAlignment = xlCenterAcrossSelection
           .VerticalAlignment = xlCenter
           .Font.Size = 18
           .Font.Bold = True
           .RowHeight = 35
       End With
       ' Prepare a2:g2 for day of week labels with centering, size,
       ' height and bolding.
       With Range("a2:g2")
           .ColumnWidth = 11
           .VerticalAlignment = xlCenter
           .HorizontalAlignment = xlCenter
           .VerticalAlignment = xlCenter
           .Orientation = xlHorizontal
           .Font.Size = 12
           .Font.Bold = True
           .RowHeight = 20
       End With
       ' Put days of week in a2:g2.
       Range("a2") = "Sunday"
       Range("b2") = "Monday"
       Range("c2") = "Tuesday"
       Range("d2") = "Wednesday"
       Range("e2") = "Thursday"
       Range("f2") = "Friday"
       Range("g2") = "Saturday"
       ' Prepare a3:g7 for dates with left/top alignment, size, height
       ' and bolding.
       With Range("a3:g8")
           .HorizontalAlignment = xlRight
           .VerticalAlignment = xlTop
           .Font.Size = 18
           .Font.Bold = True
           .RowHeight = 21
       End With
       ' Put inputted month and year fully spelling out into "a1".
       Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
       ' Set variable and get which day of the week the month starts.
       DayofWeek = WeekDay(StartDay)
       ' Set variables to identify the year and month as separate
       ' variables.
       CurYear = Year(StartDay)
       CurMonth = Month(StartDay)
       ' Set variable and calculate the first day of the next month.
       FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
       ' Place a "1" in cell position of the first day of the chosen
       ' month based on DayofWeek.
       Select Case DayofWeek
           Case 1
               Range("a3").Value = 1
           Case 2
               Range("b3").Value = 1
           Case 3
               Range("c3").Value = 1
           Case 4
               Range("d3").Value = 1
           Case 5
               Range("e3").Value = 1
           Case 6
               Range("f3").Value = 1
           Case 7
               Range("g3").Value = 1
       End Select
       ' Loop through range a3:g8 incrementing each cell after the "1"
       ' cell.
       For Each cell In Range("a3:g8")
           RowCell = cell.Row
           ColCell = cell.Column
           ' Do if "1" is in first column.
           If cell.Column = 1 And cell.Row = 3 Then
           ' Do if current cell is not in 1st column.
           ElseIf cell.Column <> 1 Then
               If cell.Offset(0, -1).Value >= 1 Then
                   cell.Value = cell.Offset(0, -1).Value + 1
                   ' Stop when the last day of the month has been
                   ' entered.
                   If cell.Value > (FinalDay - StartDay) Then
                       cell.Value = ""
                       ' Exit loop when calendar has correct number of
                       ' days shown.
                       Exit For
                   End If
               End If
           ' Do only if current cell is not in Row 3 and is in Column 1.
           ElseIf cell.Row > 3 And cell.Column = 1 Then
               cell.Value = cell.Offset(-1, 6).Value + 1
               ' Stop when the last day of the month has been entered.
               If cell.Value > (FinalDay - StartDay) Then
                   cell.Value = ""
                   ' Exit loop when calendar has correct number of days
                   ' shown.
                   Exit For
               End If
           End If
       Next

       ' Create Entry cells, format them centered, wrap text, and border
       ' around days.
       For x = 0 To 5
           Range("A4").Offset(x * 2, 0).EntireRow.Insert
           With Range("A4:G4").Offset(x * 2, 0)
               .RowHeight = 65
               .HorizontalAlignment = xlCenter
               .VerticalAlignment = xlTop
               .WrapText = True
               .Font.Size = 10
               .Font.Bold = False
               ' Unlock these cells to be able to enter text later after
               ' sheet is protected.
               .Locked = False
           End With
           ' Put border around the block of dates.
           With Range("A3").Offset(x * 2, 0).Resize(2, _
           7).Borders(xlLeft)
               .Weight = xlThick
               .ColorIndex = xlAutomatic
           End With

           With Range("A3").Offset(x * 2, 0).Resize(2, _
           7).Borders(xlRight)
               .Weight = xlThick
               .ColorIndex = xlAutomatic
           End With
           Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
              Weight:=xlThick, ColorIndex:=xlAutomatic
       Next
       If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
          .Resize(2, 8).EntireRow.Delete
       ' Turn off gridlines.
       ActiveWindow.DisplayGridlines = False
       ' Protect sheet to prevent overwriting the dates.
       ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
          Scenarios:=True

       ' Resize window to show all of calendar (may have to be adjusted
       ' for video configuration).
       ActiveWindow.WindowState = xlMaximized
       ActiveWindow.ScrollRow = 1

       ' Allow screen to redraw with calendar showing.
       Application.ScreenUpdating = True
       ' Prevent going to error trap unless error found by exiting Sub
       ' here.
       Exit Sub
   ' Error causes msgbox to indicate the problem, provides new input box, 
   ' and resumes at the line that caused the error.
   MyErrorTrap:
       MsgBox "You may not have entered your Month and Year correctly." _
           & Chr(13) & "Spell the Month correctly" _
           & " (or use 3 letter abbreviation)" _
           & Chr(13) & "and 4 digits for the Year"
       MyInput = InputBox("Type in Month and year for Calendar")
       If MyInput = "" Then Exit Sub
       Resume
   End Sub

VBA- ն գալիս է այս ցանցից https://support.microsoft.com/en-us/kb/150774

2. Մամուլ F5 բանալի կամ Վազում կոճակը, և դուրս է գալիս երկխոսություն ՝ հիշեցնելու համար, որ մուտքագրեք օրացույց ստեղծելու համար անհրաժեշտ կոնկրետ ամիսը, տես նկարի նկարը.

փաստաթուղթ ամսական օրացույց 5

3: սեղմեք OK, Այժմ ակտիվ թերթում ստեղծվում է 2015 թվականի հունվարի օրացույց:

փաստաթուղթ ամսական օրացույց 6

Բայց վերը նշված մեթոդներում կան որոշ սահմանափակումներ, օրինակ ՝ եթե ուզում եք միանգամից օրացույց ստեղծել հունվար-մայիս ամիսներին, հարկավոր է օրացույցը ստեղծել հինգ անգամ ՝ վերը նշված երկու մեթոդներով: Այժմ ես ներկայացնում եմ հարմարավետ ծրագիր `այն արագ և հեշտությամբ լուծելու համար


նետ կապույտ աջ պղպջակ Հավիտենական օրացույցի միջոցով հեշտությամբ ստեղծեք ամսական կամ տարեկան օրացույց

Մշտական ​​օրացույց - ը հզոր կոմունալ ծառայություններից մեկն է Երևանում Excel- ի համար նախատեսված գործիքներ, և դա կարող է օգնել ձեզ արագորեն միանգամից ստեղծել ամսական կամ տարեկան օրացույց Excel- ում:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

1: սեղմեք ձեռնարկություն > Աշխատանքային թերթիկ > Մշտական ​​օրացույց, տե՛ս սքրինշոթը.

փաստաթուղթ ամսական օրացույց 7

2. Բացվող պատուհանում նշեք այն ամսվա տևողությունը, որը ցանկանում եք ստեղծել օրացույցը և կտտացնել Ստեղծել, Տեսեք,

փաստաթուղթ ամսական օրացույց 8

Դրանից հետո ստեղծվում է նոր աշխատանքային գրքույկ `հինգ օրացուցային աշխատանքային թերթերով: Տեսեք,

փաստաթուղթ ամսական օրացույց 9

Ձեր պատասխանը ուղարկված չէ:

Եթե ​​դուք պարզապես ուզում եք ստեղծել որոշակի ամսվա օրացույց, պարզապես անհրաժեշտ է նույն ամիսը ընտրել թե՛ Տողից և թե՛ տողում երկխոսության դաշտում:

Սեղմեք այստեղ ՝ հավիտենական օրացույցի մասին ավելին իմանալու համար


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից