Skip to main content

Conas féilire a phiocadh suas agus cill ar leith á chliceáil in Excel?

Má ghlactar leis go bhfuil raon colún i mbileog oibre ní mór duit dátaí a iontráil agus a athrú go minic, ach tá sé leamh an dáta a iontráil nó a athrú de láimh in aghaidh an ama. Conas dátaí a iontráil go tapa gan clóscríobh de láimh sa raon colún? Tá an t-alt seo ag caint ar fhéilire a phiocadh suas agus tú ag cliceáil ar chealla i raon áirithe, ansin an dáta a chur isteach sa chill roghnaithe go huathoibríoch tar éis dáta a roghnú san fhéilire.


Féilire aníos nuair a chliceálann tú cill ar leith le cód VBA

Réitigh an fhadhb seo mar a leanas céim ar chéim.

nótaí: Ní féidir leis an modh seo oibriú ach ar Microsoft Excel 32-bit.

Céim 1: Cruthaigh Foirm Úsáideora le féilire

Cruthaigh UserForm le do thoil ina bhfuil an féilire a phreabfaidh tú suas trí chliceáil ar chill.

1. Brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > ÚsáideoirForm.

3. Ansin a ÚsáideoirForm agus a Bosca uirlisí fuinneoga pop suas, sa Bosca uirlisí, cliceáil aon rialú amháin agus cliceáil ar dheis, ansin roghnaigh Rialuithe Breise ón roghchlár cliceáil ar dheis. Féach an pictiúr:

4. Sa Rialuithe Breise bosca dialóige, scrollaigh síos chun an Rialú Microsoft MonthView rogha sa Rialuithe atá ar Fáil bosca, agus ansin cliceáil ar an OK cnaipe.

5. Ansin is féidir leat an MíView cuirtear cnaipe sa Bosca uirlisí fuinneog. Cliceáil le do thoil ar an gcnaipe MonthView seo, agus ansin cliceáil ar an bhfuinneog UserForm1 chun Féilire a chruthú san Fhoirm Úsáideora.

nótaí: Is féidir leat méid na fuinneoige UserForm a choigeartú chun freastal ar an bhféilire a cuireadh isteach trí theorainn an UserForm a tharraingt.

6. Cliceáil faoi dhó ar an bhféilire a cuireadh isteach sa UserForm1, agus sa cód fuinneog, cuir an script VBA seo a leanas in ionad an bhunchóid.

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

nótaí: Is féidir leis an gcód seo cabhrú le dáta a chur isteach i gcill roghnaithe tar éis dáta a roghnú ón bhféilire.

Céim 2: Gníomhachtaigh an Féilire agus tú ag cliceáil ar chill

Anois ní mór duit cealla áirithe a shonrú chun an féilire a phiocadh suas agus tú ag cliceáil. Déan mar a leanas le do thoil.

7. Cliceáil faoi dhó ar ainm na bileoige ina bhfuil na cealla a chliceálfaidh tú chun an féilire a oscailt ar chlé tionscadal pána, ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Chóid. Féach an pictiúr:

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

nótaí: sa chód, is cealla iad A2: A10 a chliceálfaidh tú chun an féilire a phiocadh suas. Athraigh an raon cille de réir mar is gá duit.

8. Brúigh Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

As seo amach, nuair a chliceálann tú ar aon chill laistigh den raon sonraithe sa bhileog oibre reatha, nochtfaidh féilire mar atá thíos an pictiúr a thaispeántar. Agus cuirfear an dáta isteach go huathoibríoch sa chill roghnaithe tar éis dáta a roghnú ón bhféilire.


Féilire aníos nuair a chliceálann tú cill ar leith le cód VBA

Sa chuid seo tugtar isteach an Piocálaí Dáta fóntais de Kutools le haghaidh Excel. Tar éis duit an ghné seo a chumasú, cliceáil go ndéanfaidh ceall dáta féilire a phiocadh suas, is féidir leat dáta nua a chur in ionad an dáta atá ann cheana féin. Lean na céimeanna thíos chun an ghné seo a chur i bhfeidhm.

1. cliceáil Kutools > Ábhar > Cumasaigh Dáta Piocálaí.

2. Tar éis an ghné seo a chumasú, cliceáil ar chill dáta, agus beidh deilbhín féilire aníos ar dheis don chill.

3. Cliceáil ar dheilbhín an fhéilire chun an Piocálaí Dáta bosca dialóige, agus ansin cliceáil dáta nua chun an dáta i gcill roghnaithe a athsholáthar.

Nótaí:

  • Cealaigh cnaipe: Cliceáil an cnaipe seo chun an dáta athsholáthair a chealú;
  • Dún cnaipe: Cliceáil an cnaipe seo chun an bosca dialóige Date Picker a dhúnadh;
  • Ní féidir feidhm a bheith ag an ngné seo ach maidir le cealla ina bhfuil dáta.

  Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (18)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am not seeing the Microsoft MonthView Control in the listing, but it may be as Pete (#32847) mentioned that this will not work in Office 365 or 64-bit Microsoft Office.
This comment was minimized by the moderator on the site
Hi Teagan Caudle,
I searched and tried the methods suggested in google, but ultimately could not register the MonthView control in Microsoft 365.
Sorry for the inconvenience. Maybe you can check this out.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
This comment was minimized by the moderator on the site
There is no Microsoft MonthView Control listed (Office 365), and the directions here doesn't explain how one would get that control, so this is pretty much useless unless you're using an older version of Excel.
This comment was minimized by the moderator on the site
The calendar will show up but when I click on the date, the cell doesn't populate
This comment was minimized by the moderator on the site
Hi,
The code works well in my case. Which Excel version are you using?
This comment was minimized by the moderator on the site
Thank you so much! These directions were super useful :)
This comment was minimized by the moderator on the site
Hi, Is it possible to put the date picker pop-up for multiple column, as in my sheet I have "start date", "end date" and "agreement date". if yes then how?
This comment was minimized by the moderator on the site
Hi jeet,
Follow the steps and replace the range "A2:A10" in the second VBA code with your column range (such as C2:E2).
This comment was minimized by the moderator on the site
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
This comment was minimized by the moderator on the site
if i try to select a row, the pop up will activate and the date appears in each cell in that row


how can i avoid this
This comment was minimized by the moderator on the site
Hi Sam,
The code has been updated in the article with the problem solving. Please have a try and thank you for your comment.
This comment was minimized by the moderator on the site
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
This comment was minimized by the moderator on the site
Hello everyone,

Can anyone tell me how to popup a calendar in a range of cells, but starting only from the cell right bellow a table header and down bellow in an excel column.


Thank you in advance.
This comment was minimized by the moderator on the site
Use i.e: Range("B6:C30")
This comment was minimized by the moderator on the site
Good Day,
Sorry I didn't got your question. Would be nice if you could provide screenshot of what you are trying to do.
This comment was minimized by the moderator on the site
Use i.e: Range("B6:C30")
This comment was minimized by the moderator on the site
i used these VBA codes and everthing's fine so far. The range is A2:A10 and calendar pops up when you select a cell into it. But if you mark row from 2 to 10 again the calendar pops again. It's the same with column "A" if you mark it, again the calendar pops. How should i proceed, in order to get the calendar only in the range i've defined?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations