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

 Sut i redeg macro yn seiliedig ar werth celloedd yn Excel?

Gan dybio, mae gen i godau macro lluosog yn fy llyfr gwaith, a nawr, rydw i eisiau rhedeg y codau hyn yn seiliedig ar werth y gell. Yr erthygl hon, byddaf yn siarad am sawl sefyllfa y gallech eu dioddef yn eich gwaith bob dydd wrth ddefnyddio Excel.

Rhedeg neu sbarduno macro os yw gwerth celloedd yn fwy neu'n llai na gwerth penodol gyda chod VBA

Rhedeg neu sbarduno macro os yw gwerth celloedd yn cyfateb i destun penodol â chod VBA


swigen dde glas saeth Rhedeg neu sbarduno macro os yw gwerth celloedd yn fwy neu'n llai na gwerth penodol gyda chod VBA

Er enghraifft, os yw'r gwerth yng nghell A1 rhwng 10 a 50, rhedeg macro1, ac os yw'r gwerth yn fwy na 50, rhedeg macro2. I ddatrys y swydd hon yn Excel, cymhwyswch y cod VBA canlynol.

1. Cliciwch ar y dde ar y tab dalen rydych chi am weithredu'r macro yn seiliedig ar werth cell, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, ac yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:

Cod VBA: Rhedeg macro os yw gwerth celloedd yn fwy neu'n llai na:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$A$1" Then
        Select Case Target.Value
        Case 10 To 50: Macro1
        Case Is > 50: Macro2
        End Select
    End If
End Sub

mae macro yn rhedeg macro yn seiliedig ar werth celloedd 1

Nodyn: Yn y cod uchod:

A1 yw'r gell sy'n cynnwys y gwerth penodol rydych chi am redeg y macro yn seiliedig arno;

Achos 10 I 50: Macro1: mae'n golygu os yw'r gwerth rhwng 10 a 50, rhedeg Macro1;

Achos Is> 50: Macro2: mae'n golygu os yw'r gwerth yn fwy na 50, rhedeg Macro2.

Newidiwch y macro enwau a meini prawf hyn i'ch angen, a gallwch hefyd ychwanegu mwy o feini prawf yn dilyn y achos sgript.

2. Yna arbedwch a chau y ffenestr god hon, nawr, pan fydd y gwerth rydych chi'n ei nodi rhwng 10 a 50 yng nghell A1, bydd Macro1 yn cael ei sbarduno, os yw'r gwerth a gofnodwyd yn fwy na 50, gweithredir Macro2.


swigen dde glas saeth Rhedeg neu sbarduno macro os yw gwerth celloedd yn cyfateb i destun penodol â chod VBA

Os ydych chi am sbarduno'r macro yn seiliedig ar destun penodol mewn cell, er enghraifft, i redeg y macro1 os yw'r testun “Delete” wedi'i nodi, a rhedeg macro2 os yw'r testun “Insert” wedi'i deipio. Gall y cod canlynol ffafrio chi.

1. Cliciwch ar y dde ar y ddalen rydych chi am weithredu'r macro yn seiliedig ar werth y gell, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, ac yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:

Cod VBA: Rhedeg macro os yw gwerth cell yn destun penodol

Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
 Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub 

mae macro yn rhedeg macro yn seiliedig ar werth celloedd 2

Nodyn: Yn y cod uchod, “Dileu"A"Mewnosod”Yw'r testunau celloedd rydych chi am redeg macros yn seiliedig arnyn nhw, a Macro1 ac Macro2 yw'r macros rydych chi am eu gweithredu yn seiliedig ar destun. Os gwelwch yn dda eu newid i'ch angen.

2. Yna cadwch y cod hwn a chau'r ffenestr, nawr, pan fyddwch chi'n nodi'r testun "Delete" yng nghell A1, mae macro1 yn cael ei sbarduno, os yw'r testun "Mewnosod" yn cael ei nodi, bydd macro2 yn cael ei weithredu.


Erthyglau cysylltiedig:

Sut i redeg macro pan fydd gwerth celloedd yn newid yn Excel?

Sut i redeg macro yn awtomatig cyn argraffu yn Excel?

Sut i redeg macro yn seiliedig ar werth a ddewiswyd o'r gwymplen yn Excel?

Sut i redeg macro trwy glicio hypergysylltiadau yn Excel?

Sut i redeg macro pan ddewisir taflen o lyfr gwaith?


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 (7)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, beth am os ydych chi am redeg macro yn seiliedig ar ddwy gell? Un gell yn seiliedig ar destun a'r gell arall â gwerthoedd rhifiadol? Yna byddech chi eisiau galw macro os yw'r ddwy gell yn dangos yn union beth rydych chi ei eisiau, fel "YDW" ar gyfer y gell gyntaf ac 1 ar gyfer yr ail gell, os na fyddai blwch pop yn dangos yn dweud "Heb ei ddarganfod".
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gofyniad:
Yn seiliedig ar y dewis
Bydd gwymplen ar gyfer dilyn tri phriodweddau o'r un dimensiwn ag isod.
A bydd tair cell ddeillio a fydd yn deillio o'r celloedd (G46, G47 a G48)

Senario:
Os byddaf yn dewis gwerth o'r gwymplen canolfan gost, dylai cell sy'n deillio o ganolfan gost (K46) gael ei phoblogi â gwerth wedi'i ddewis o gwymplen y ganolfan gost (H46) a dylai'r ddwy gell ddeilliedig arall (K47 a k48) ddod yn wag.

Yn yr un modd, os byddaf yn dewis gwerth o'r gwymplen Rheolwr Cyllideb, dylai'r gell sy'n deillio o reolwr cyllideb gael ei llenwi â gwerth a ddewiswyd o'r gwymplen Rheolwr Cyllideb (H47) a dylai'r ddwy gell ddeilliedig arall (K45 a k48) ddod yn wag.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n gweithio gyda dadansoddiad canlyniadau. Yn yr achos hwn, bydd y data yn excel fel yr Enw hwn, Is-enw, Crade. Nawr, rydw i eisiau dod o hyd i'r holl rifau pasio neu ymgeiswyr llwyddiannus o'r canlyniad. Sut alla i ei gael. Oherwydd, mae gen i 6 pwnc gwahanol a'u canlyniadau mewn un ddalen excel. Os methodd myfyriwr mewn un pwnc nid yw'n fyfyriwr llwyddiannus. Sut i ddileu eu henw yn yr holl bynciau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cywirwch y ddau god ar gyfer yr un daflen waith.
CÔD CYNTAF YN GWEITHIO'N Berffaith
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Ddim yn Croestorri (Targed, Ystod ("D1")) Yn Dim Yna
Dewiswch Ystod Achos ("D1")
Achos "0.5": Hanner
Achos "1": Un
Achos "1.25": OneTwentyFive
Diwedd Dewis
Gorffennwch Os
Is-End

AIL GÔD DDIM YN GWEITHIO (cywirwch yr isod)
Is Newid Preifat (Targed ByVal Fel Ystod)
Os Ddim yn Croestorri (Targed, Ystod ("D2")) Yn Dim Yna
Dewiswch Ystod Achos ("D2")
Achos "9.53": naw pwynt pump tri
Diwedd Dewis
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Olá, quero fazer neu seguinte:
A Celula A1, assim que ela estiver preenchida passe para a celula de baixo, dim caso A2.
Eu uso um leitor de codigo de barras para cadastrar produtos, e ele lê os numeros automaticos, ai tenho que ficar apertando ENTER para ir para celula de baixo.

Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hola, una ymgynghori, fel haría si por ejemplo dado un rhifol se pueda ejecutar las dos macros
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Gustavo
I ddatrys eich problem, defnyddiwch y cod canlynol:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$A$1" Then
        If Target.Value > 10 And Target.Value < 50 Then
         macro1
         macro2
        End If
    End If
End Sub

Ceisiwch, gobeithio y gall eich helpu!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir