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

Conas téacs de chill shonraithe a lúbadh nó a splancadh in Excel?

Chun cill áirithe a dhéanamh gan íoc i do bhileog oibre, cad faoi téacs na cille seo a lúbadh? Taispeánfaidh an t-alt seo modh duit chun téacs cille sonraithe a lúbadh in Excel.

Téacs claonta nó gealánach de chill shonraithe le cód VBA


Téacs claonta nó gealánach de chill shonraithe le cód VBA

Déan mar a leanas le do thoil chun téacs cille sonraithe a lasadh in Excel.

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 > Modúil. Ansin cóipeáil agus greamaigh an cód seo a leanas i bhfuinneog an Chóid.

Cód VBA: Téacs ceangailteach de chill shonraithe in Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

nótaí: sa chód VBA seo, tugann Bileog 2 agus A1 le fios go ndéanfar an téacs i gcill A1 de Bhileog 2 a cheansú sa leabhar oibre reatha.

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

Anois tá cnaipe ag teastáil uait chun an clamhsán a thosú agus a stopadh.

4. cliceáil Forbróir > Ionsáigh > Cnaipe (Rialú Foirm). Féach an pictiúr:

5. Tarraing cnaipe i do bhileog oibre, ansin an Macra a shannadh bosca dialóige aníos, cliceáil le do thoil TosaighBlink sa Macra ainm bosca, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

6. Cliceáil ar dheis ar an gcnaipe a cuireadh isteach, agus cliceáil Cuir Téacs in Eagar ón roghchlár cliceáil ar dheis. Ansin athraigh téacs an chnaipe go dtí an téacs atá uait mar Start / Stop Blinking.

As seo amach, nuair a chliceálann tú ar an gcnaipe, tosaíonn téacs chill A1 ag cromadh. Agus nuair a chliceálann tú ar an gcnaipe arís, stopann téacs chill A1 ag cromadh.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (26)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní chuirfidh an cód seo stop leis an bhfaiteadh atá air. Cad atá mé ag déanamh mícheart?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhféadfaí an téacs blinking seo a chur i bhfeidhm ar choinníoll. ie má tá dáta sroichte nó ag druidim ar bhileog oibre amháin, lasann cill ar bhileog chlúdaigh/roghchláir
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir blink cille randamach a dhéanamh i raon áirithe?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ag obair... Ar fheabhas
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a chuirim an cód seo san áireamh mar seo a leanas ionas nach mbeidh cnaipí de dhíth orm ach go dtosóidh an caochadh go huathoibríoch ar oscailt an leabhair oibre?

Foleabhar Oibre Príobháideach_Oscail()

' cód anseo

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Daille,
Cuir an cód seo isteach i bhfuinneog an Leabhar Oibre Seo le do thoil.

‘Cuir isteach an fhuinneog“This Workbook”.
Foleabhar Oibre Príobháideach_Oscail()
StarBlink
Fo Deireadh

Cuir an cód thíos isteach i bhfuinneog an Mhodúil. Agus ansin sábháil an leabhar oibre mar Leabhar Oibre Excel Macra-chumas. Tá súil agam gur féidir liom cabhrú. Go raibh maith agat as do thuairim.

'Tosaigh ag caochadh
Fo RéaltBlink()
Dim xCell Mar Raon
Dim xTime Mar Athrú
Socraigh xCell = Raon ("A1")
Le ThisWorkbook.Bileoga Oibre("Bileog1").Range("A1").Cló
Má tá xCell.Font.Color = vbRed Ansin
xCell.Font.Color = vbWhite
Eile
xCell.Font.Color = vbRed
Deireadh Má
Deireadh Le
xTime = Anois + Sraith Ama(0, 0, 1)
Application.OnTime xTime, "" &ThisWorkbook.Name &"!StarBlink", , True
Fo Deireadh
‘Stop blinking
Fo-StopBlink()
xTime = Anois + Sraith Ama(0, 0, 1)
Application.OnTime EarliestTime:=xTime, Nós Imeachta:="" &ThisWorkbook.Name &" !StarBlink", Sceideal:=Bréagach
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
tá sé ag obair go maith ach nuair a bhíonn mo bhileog á chosaint agam níl an blinking ag obair ag taispeáint msg dífhabhtaithe.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Bain triail as an gcód seo a leanas le do thoil.

Fo-StartBlink()
Dim xCell Mar Raon
Dim xTime Mar Athrú
Ar Lean Earráid Aghaidh
Socraigh xCell = Raon ("A1")
Ar Lean Earráid Aghaidh

Má tá xCell.Font.Color = vbRed Ansin
xCell.Font.Color = vbWhite
Eile
xCell.Font.Color = vbRed
Deireadh Má
xTime = Anois + Sraith Ama(0, 0, 1)
Feidhmchlár.OnTime xTime, "'" & ThisWorkbook.Name &"'!StartBlink", , Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ag obair. maith
Ach tar éis mo bhileog LOCK & Hidden a chosaint (seachas cill blinking ) níl sé ag obair.
Duine ar bith plz cabhrú liom an cheist seo a réiteach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
MANTEB GAN
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a athraím é seo go Bileog 1?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Sam,
Más mian leat cill A1 a dhéanamh i mBileog 1 nó caochadh bileoga oibre ar leith eile, cuir "Bileog1!" nó ainm bileog oibre eile roimh an seoladh cille. Féach ar an gcód líne thíos:

Socraigh xCell = Raon ("Bileog1! A1")
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá cabhair ag teastáil uaim i Google sheets ..

Teastaíonn sraith iomlán uaim le caochadh má tá an "STAT" i F3:F1001. ba chóir go mbeadh an tsraith iomlán in oráiste ach ag caochadh freisin go dtí go mbeidh tic sa bhosca colún W3:W1001.

An féidir? Is féidir leat cabhrú? thoileeeeeeeeeeee
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit meic,
Ár leithscéal ní féidir leat cabhrú leis sin. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
nuair a chosaint ar an mbileog nach bhfuil an cód seo ag obair
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
nach bhfuil ag obair,

Cabhrú le do thoil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas flashing cill ar leith a dhéanamh ina bhfuil Téacs ar leith amháin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas is féidir liom flash blink a chruthú do mo bhileog ama . áit a bhfuil am níos mó ná 10 n-uaire sa chill .
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh,
Seans go réiteoidh an cód VBA seo a leanas d’fhadhb. Bain triail as, le do thoil.
Ná déan dearmad ainm na leatháin agus an raon uaireanta sa chód a athrú.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit caithfidh mé an rud céanna a dhéanamh don luach cille dúblach sa cholún roghnaithe ina mbeidh luach cille ag blink má tá an luach dúblach le feiceáil in excel
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Táim ag lorg réiteach chun raon cealla a splancadh / a bhrollach ag druidim le dáta amach anseo, abair i gceann seachtaine. Ciallaíonn mé rud éigin cosúil le dáta seachadta ordú ceannaigh ná 30 Lúnasa. Ba mhaith liom tosú ag splancadh na gcealla faoin 25 Lúnasa ar aghaidh agus fiú tar éis 30 Lúnasa go dtí go seachadtar é.
An féidir le duine éigin réiteach a thabhairt dom?
Go raibh maith agat,
Sanjeev.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Sanjeev Raghavan,
Is féidir leis an gcód VBA seo a leanas bhfabhar a thabhairt duit. Sa chód, ní mór duit a athrú Bileog 5!D2:D5 chuig an ainm bileog agus an raon is mian leat a blink.

Sub StartBlink2()
'Updated by ExtendOffice 20220830
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Dim xToday
Set xCell = Range("Sheet5!D2:D5") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
xToday = Now()
For Each xRg In xCell
If (xRg - xToday > -1) And (xRg - xToday <= 5) Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink2", , True
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat Crystal. Lig dom iarracht a dhéanamh dul ar ais chugat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sheet name Summary and column O

i would like to have a code to make the cell flash red/white on due date. Can someone please help?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an féidir é a dhéanamh gan cnaipe agus rith uathoibríoch?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Malek,
The user Sanjeev Raghavan asked a question similar to yours, you can check the replies and see if it solves your problem.
@Sanjeev Raghavan
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta