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

Sut i amrantu neu fflachio testun cell benodol yn Excel?

Ar gyfer gwneud cell benodol yn rhagorol yn eich taflen waith, beth am amrantu testun y gell hon? Bydd yr erthygl hon yn dangos dull i chi o amrantu testun cell benodol yn Excel.

Testun blincio neu fflachio cell benodol gyda chod VBA


Testun blincio neu fflachio cell benodol gyda chod VBA

Gwnewch fel a ganlyn i amrantu testun cell benodol yn Excel.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod canlynol i mewn i ffenestr y Cod.

Cod VBA: Testun blincio cell benodol yn 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

Nodyn: yn y cod VBA hwn, mae Sheet2 ac A1 yn nodi y bydd y testun yng nghell A1 o Daflen 2 yn cael ei flincio yn y llyfr gwaith cyfredol.

3. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Nawr mae angen botwm arnoch chi i ddechrau ac atal y amrantu.

4. Cliciwch Datblygwr > Mewnosod > Botwm (Rheoli Ffurflen). Gweler y screenshot:

5. Tynnwch botwm yn eich taflen waith, yna a Neilltuo Macro blwch deialog yn ymddangos, cliciwch StartBlink yn y Macro enw blwch, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

6. De-gliciwch y botwm wedi'i fewnosod, a chlicio Golygu Testun o'r ddewislen clicio ar y dde. Yna newid testun y botwm i'r testun sydd ei angen arnoch chi fel Start / Stop Blinking.

O hyn ymlaen, wrth glicio ar y botwm, mae testun cell A1 yn dechrau blincio. Ac wrth glicio ar y botwm eto, mae testun cell A1 yn stopio amrantu.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (26)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni fydd y cod hwn yn atal y blincio rhag mynd yn sownd. Beth ydw i'n ei wneud o'i le?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellid cymhwyso'r testun blincio hwn i amod. hy os cyrhaeddir dyddiad neu os yw'n agosáu ar un daflen waith, mae cell ar glawr/taflen ddewislen yn fflachio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut gall wneud amrantiad cell ar hap mewn ystod benodol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithio... Gwych
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydw i'n cynnwys y cod hwn yn y canlynol fel nad oes angen botymau arnaf ond mae'r amrantu yn cychwyn yn awtomatig ar agoriad y llyfr gwaith?

Is-lyfr gwaith preifat_Agored()

' cod yma

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Dayle,
Rhowch y cod hwn yn ffenestr ThisWorkbook.

'Rhowch ffenestr “Y Llyfr Gwaith Hwn”.
Is-lyfr gwaith preifat_Agored()
StarBlink
Is-End

Rhowch y cod isod yn ffenestr y Modiwl. Ac yna arbedwch y llyfr gwaith fel Llyfr Gwaith Macro-alluogi Excel. Gobeithio y gallaf helpu. Diolch am eich sylw.

'Dechrau blincio
Is-serenBlink()
Dim xCell Fel Ystod
Dim xAmser Fel Amrywiad
Gosod xCell = Ystod ("A1")
Gyda ThisWorkbook.Worksheets("Taflen1").Range("A1").Font
Os xCell.Font.Color = vbRed Yna
xCell.Font.Color = vbWhite
arall
xCell.Font.Color = vbRed
Gorffennwch Os
Diwedd Gyda
xTime = Nawr + Cyfres Amser(0, 0, 1)
Application.OnTime xTime, "" &ThisWorkbook.Name &"!StarBlink", , Gwir
Is-End
'Stopiwch blincio
Is StopBlink()
xTime = Nawr + Cyfres Amser(0, 0, 1)
Application.OnTime EarliestTime:=xTime, Gweithdrefn:="" &ThisWorkbook.Name & " !StarBlink", Atodlen:=Anghywir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
mae'n gweithio'n dda ond pan fyddaf yn diogelu fy nhaflen yna nid yw blincio yn gweithio dangos debug msg.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Rhowch gynnig ar y cod canlynol.

Is-StartBlink()
Dim xCell Fel Ystod
Dim xAmser Fel Amrywiad
Ar Ail-ddechrau Gwall Nesaf
Gosod xCell = Ystod ("A1")
Ar Ail-ddechrau Gwall Nesaf

Os xCell.Font.Color = vbRed Yna
xCell.Font.Color = vbWhite
arall
xCell.Font.Color = vbRed
Gorffennwch Os
xTime = Nawr + Cyfres Amser(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name &"'!StartBlink", , Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithio. dda
Ond ar ôl amddiffyn fy nhaflen LOCK & Hidden (ac eithrio cell blincio) nid yw'n gweithio.
Mae unrhyw un plz yn fy helpu i ddatrys y mater hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
MANTEB GAN
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae newid hwn i daflen 1?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Sam,
Os ydych chi am wneud cell A1 yn Daflen 1 neu amrantu taflen waith benodol arall, ychwanegwch "Taflen1!" neu enw taflen waith arall cyn y cyfeiriad cell. Gweler y llinell cod isod:

Gosod xCell = Ystod ("Taflen1! A1")
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dwi angen help mewn google sheets..

Dwi angen rhes gyfan i blincio os yw F3:F1001 yn cynnwys y "STAT". dylai'r rhes gyfan fod mewn oren ond hefyd yn amrantu nes bod blwch ticio'r golofn W3:W1001 wedi'i dicio.

a yw'n bosibl? gallwch chi helpu? os gwelwch yn ddaeeeeeeeeeeee
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo mekka,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan amddiffyn y ddalen nid yw'r cod hwn yn gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim yn gweithio,

Os gwelwch yn dda helpu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i wneud cell fflachio sy'n cynnwys Testun penodol yn unig ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut alla i greu fflach-blink ar gyfer fy nhaflen amser .lle mae'r gell yn cynnwys amser dros 10 awr . awgrymwch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo jas,
Efallai y bydd y cod VBA canlynol yn datrys eich problem. Rhowch gynnig arni.
Peidiwch ag anghofio newid enw'r ddalen a'r ystod oriau yn y cod.

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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo mae angen i mi wneud yr un peth ar gyfer y gwerth celloedd dyblyg yn y golofn ddethol lle bydd gwerth cell yn blincio os yw'r gwerth dyblyg yn ymddangos yn excel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Rwy'n edrych am ateb i fflachio / amrantu ystod o gelloedd sy'n agosáu at ddyddiad yn y dyfodol, dyweder mewn un wythnos. Rwy'n golygu rhywbeth fel dyddiad dosbarthu archeb brynu yw 30 Awst. Hoffwn ddechrau fflachio'r celloedd erbyn 25 Awst ymlaen a hyd yn oed ar ôl 30 Awst nes iddo gael ei ddosbarthu.
A all rhywun roi ateb i mi?
Diolch yn fawr,
Sanjeev.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Sanjeev Raghavan,
Gall y cod VBA canlynol wneud ffafr i chi. Yn y cod, mae angen i chi newid Taflen 5!D2:D5 i enw'r ddalen a'r ystod yr ydych am ei blincio.

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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Crystal. Gadewch imi geisio dod yn ôl atoch chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
is it possible to make it without a button and auto ran?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir