Skip to main content

Conas cruth a dhéanamh ag cromadh nó ag splancadh anonn is anall in Excel?

Más mian leat cruth a dhéanamh ag cromadh anonn is anall i mbileog oibre, is féidir le modh san alt seo cabhrú leat.

Déan cruth ag cromadh anonn is anall le cód VBA


Déan cruth ag cromadh anonn is anall le cód VBA

Sa bhileog oibre, chun cruth a dhéanamh ag cromadh, déan mar a leanas le do thoil.

1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh cód VBA i bhfuinneog an Chóid.

Cód VBA: Déan cruth ag cromadh anonn is anall sa bhileog oibre

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

nótaí:

1). sa chód, nua is ainm don chruth a chuirfidh tú amú. Athraigh é le do thoil féin.
2). 00:00:01 ciallaíonn sé go mbeidh an cruth splanc gach dara.

3. Brúigh an Eile + Q eochracha le chéile chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

4. Cuir Cnaipe isteach sa bhileog oibre trí chliceáil Forbróir > Ionsáigh > Cnaipe (Rialú Foirm) mar a thaispeántar thíos an pictiúr.

5. Sa popping suas Macra a shannadh dialóg, roghnaigh Flash sa Macra-ainm bosca, agus ansin cliceáil ar an OK cnaipe.

6. Ansin athraigh an téacs taispeána ar an gcnaipe de réir mar is gá duit. Sa chás seo, athraím an téacs taispeána go Start blinking mar atá thíos an pictiúr a thaispeántar.

7. Déan na céimeanna 4 agus 5 thuas arís chun cnaipe nua a chur isteach agus an Éirigh as macra go dtí an cnaipe seo.

8. Athraigh téacs taispeána an chnaipe nua seo.

Ansin feiceann tú go gcuirtear dhá chnaipe a shanntar le macraí éagsúla isteach sa bhileog oibre. Féach an pictiúr:

As seo amach, nuair a chliceálann tú ar an gcnaipe Start blinking, tosaíonn an cruth ag cromadh le dathanna éagsúla. Más mian leat an splanc a stopadh, cliceáil le do thoil an cnaipe Stop blinking.


Airteagal gaolmhar:

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations