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

Conas méid cruth a athrú go huathoibríoch bunaithe / ag brath ar luach cille sonraithe in Excel?

Más mian leat méid an chruth a athrú go huathoibríoch bunaithe ar luach cille sonraithe, is féidir leis an alt seo cabhrú leat.

Méid cruth athraithe uathoibríoch bunaithe ar luach cille sonraithe le cód VBA


Méid cruth athraithe uathoibríoch bunaithe ar luach cille sonraithe le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat méid cruth áirithe a athrú bunaithe ar luach cille sonraithe sa bhileog oibre reatha. Déan mar a leanas le do thoil.

1. Cliceáil ar dheis ar an táb bileog le cruth a theastaíonn uait chun méid a athrú, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis.

2. Sa Microsoft Visual Basic d’Fheidhmchláir an cód VBA seo a leanas a fhuinneog, a chóipeáil agus a ghreamú isteach i bhfuinneog an Chóid.

Cód VBA: Méid cruth athraithe uathoibríoch bunaithe ar luach sonraithe cille in Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Row = 2 And Target.Column = 1 Then
        Call SizeCircle("Oval 2", Val(Target.Value))
    End If
End Sub
Sub SizeCircle(Name As String, Diameter)
    Dim xCenterX As Single
    Dim xCenterY As Single
    Dim xCircle As Shape
    Dim xDiameter As Single
    On Error GoTo ExitSub
    xDiameter = Diameter
    If xDiameter > 10 Then xDiameter = 10
    If xDiameter < 1 Then xDiameter = 1
    Set xCircle = ActiveSheet.Shapes(Name)
    With xCircle
        xCenterX = .Left + (.Width / 2)
        xCenterY = .Top + (.Height / 2)
        .Width = Application.CentimetersToPoints(xDiameter)
        .Height = Application.CentimetersToPoints(xDiameter)
        .Left = xCenterX - (.Width / 2)
        .Top = xCenterY - (.Height / 2)
    End With
ExitSub:
End Sub

nótaí: Sa chód, “ubhchruthach 2"Is é an t-ainm cruth a athróidh tú a mhéid. Agus Rae = 2, Colún = 1 ciallaíonn sé go n-athrófar méid an chruth “Oval 2” de réir an luacha in A2. Athraigh iad de réir mar is gá duit.

Le haghaidh cruthanna iolracha a athrú go huathoibríoch bunaithe ar luachanna difriúla cille, cuir an cód VBA thíos i bhfeidhm.

Cód VBA: Athraigh méid cruthanna iolracha bunaithe ar luach cealla sonraithe éagsúla in Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xAddress As String
    On Error Resume Next
    If Target.CountLarge = 1 Then
        xAddress = Target.Address(0, 0)
        If xAddress = "A1" Then
            Call SizeCircle("Oval 1", Val(Target.Value))
        ElseIf xAddress = "A2" Then
            Call SizeCircle("Smiley Face 3", Val(Target.Value))
        ElseIf xAddress = "A3" Then
            Call SizeCircle("Heart 2", Val(Target.Value))
        End If
    End If
End Sub

Sub SizeCircle(Name As String, Diameter)
    Dim xCenterX As Single
    Dim xCenterY As Single
    Dim xCircle As Shape
    Dim xDiameter As Single
    On Error GoTo ExitSub
    xDiameter = Diameter
    If xDiameter > 10 Then xDiameter = 10
    If xDiameter < 1 Then xDiameter = 1
    Set xCircle = ActiveSheet.Shapes(Name)
    With xCircle
        xCenterX = .Left + (.Width / 2)
        xCenterY = .Top + (.Height / 2)
        .Width = Application.CentimetersToPoints(xDiameter)
        .Height = Application.CentimetersToPoints(xDiameter)
        .Left = xCenterX - (.Width / 2)
        .Top = xCenterY - (.Height / 2)
    End With
ExitSub:
End Sub

Nótaí:

1) Sa chód, “ubhchruthach 1","Aghaidh Smiley 3"Agus"Croí 3"Is ainm na cruthanna athróidh tú a méideanna go huathoibríoch. Agus A1, A2 agusA3 is iad na cealla a luachanna a athróidh tú go huathoibríoch cruthanna bunaithe orthu.
2) Más mian leat níos mó cruthanna a chur leis, cuir línte le do thoil "ElseIf xAddress = "A3" Ansin"agus "Glaoigh ar SizeCircle (" Croí 2 ", Val (Target.Value))"os cionn an chéad"Deireadh Má"líne sa chód. Agus athraigh an seoladh cille agus an t-ainm cruth bunaithe ar do chuid riachtanas.

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

As seo amach, nuair a athraíonn tú an luach i gcill A2, athrófar méid an chruth Oval 2 go huathoibríoch. Féach an pictiúr:

Nó athraigh na luachanna i gcill A1, A2 agus A3 chun na cruthanna comhfhreagracha "Oval 1", "Smiley Face 3" agus "Heart 3" a athrú go huathoibríoch. Féach an pictiúr:

nótaí: Ní athróidh méid an chruth a thuilleadh nuair a bheidh luach na cille níos mó ná 10.


Déan liosta agus easpórtáil gach cruthanna i leabhar oibre Excel reatha:

An Grafaic Easpórtála fóntais de Kutools le haghaidh Excel cabhrú leat na cruthanna go léir sa leabhar oibre reatha a liostáil go tapa, agus is féidir leat iad go léir a easpórtáil chuig fillteán áirithe ag an am céanna mar a thaispeánann an pictiúr thíos. Íoslódáil agus bain triail as anois! (30- rian lae saor in aisce)


Earraí gaolmhara:


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íonn Office / Excel 2007-2021 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 airgid ar ais 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 (16)
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ú
Conas a dhéanfá é seo le cruthanna iolracha gach ceann ag brath ar chealla éagsúla?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Jade a chara,
Déantar an t-alt a nuashonrú le rannán cód nua a chabhróidh leat a fhorghníomhú le cruthanna iolracha gach ceann ag brath ar chealla éagsúla. Go raibh maith agat as do thuairim.

Fearr-mhéin,
Crystal
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a ainmním mo chruth? I do shampla thuas, conas a sannann tú an t-ainm Oval 2 ar an gciorcal atá tarraingthe agat?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Ranjit a chara,
Chun cruth a ainmniú, roghnaigh an cruth seo le do thoil, cuir ainm an chrutha isteach sa Bhosca Ainm, agus ansin brúigh an Iontráil eochair. Féach thíos an íomhá a thaispeántar.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, conas is féidir liom a mhacasamhlú mar an gcéanna do chruthanna iolracha atá nasctha le cealla iolracha sa mhodúl céanna?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Abhinaya a chara,
Déantar an t-alt a nuashonrú le rannán cód nua a chabhróidh leat a fhorghníomhú le cruthanna iolracha gach ceann ag brath ar chealla éagsúla. Go raibh maith agat as do thuairim.

Fearr-mhéin,
Crystal
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Rinne mé iarracht do phostáil a úsáid chun mo chód VBA féin a scríobh ach ní cosúil go bhfuil mé ag dul i bhfad. Go príomha toisc nach dtuigim VBA i ndáiríre agus níl mé ach ag iarraidh do chuid a oiriúnú. Bhí mé ag smaoineamh an bhféadfá cabhrú leat. Táim ag iarraidh fad dronuilleog a athrú ag brath ar an luach i gcill. Ba mhaith liom an leithead má tá an dronuilleog chun fanacht mar an gcéanna ach an fad a athrú. Ba mhaith liom go bhfanfadh an dá rinn ar chlé san áit chéanna agus go leathnódh sé ar dheis. An bhfuil sé seo indéanta?
Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A lan a chara,
Tá súil agam gur féidir leis an gcód VBA seo a leanas d'fhadhb a réiteach. (Cuir d'ainm crutha féin in ionad an Oval 1 le do thoil)

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Ar Lean Earráid Aghaidh
Má tá Target.Row = 2 Agus Target.Column = 1 Ansin
Cuir glaoch ar SizeCircle ("Oval 1", Val (Target.Value))
Deireadh Má
Fo Deireadh
Fo-Chiorcal (Ainm Mar Theaghrán, Trastomhas)
Dim x Ciorcal Mar Cruth
Dim x Trastomhas Mar Aonair
Ar Earráid Téigh go ExitSub
xTrastomhas = Trastomhas
Má tá xTrastomhas > 10 Ansin xDiameter = 10
Má tá xTrastomhas < 1 Ansin xDiameter = 1
Socraigh xCircle = ActiveSheet.Shapes(Ainm)
xCiorcal.ScálaLeithead 1.5, msoFalse, msoScaleFromTopLeft
Le xCiorcal
.LockAspectRatio = msoFalse
.Width = Feidhmchlár.CentimetersToPoints(xDiameter)
Deireadh Le
ExitSub:
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhfuil bealach ann gur féidir liom an cruth a leathnú ar dhá thoise (in ionad an cruth a mhéadú faoi 5, é a mhéadú 5 ar an cothrománach agus 3 ar an ingearach)?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Sam, a chara,
Is féidir leis an script VBA seo a leanas cabhrú leat an fhadhb a réiteach. Agus is iad cill A1 agus B1 an dá thoise.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Ar Lean Earráid Aghaidh
Má tá Target.Count = 1 Ansin
Mura Trasnaíonn (Sprioc, Raon ("A1:B1")) An bhfuil aon rud ansin
Cuir glaoch ar SizeCircle ("Oval 2", Eagar(Luach(Raon("A1").Luach), Val(Raon("B1").Luach))))
Deireadh Má
Deireadh Má
Fo Deireadh
Fo-Chiorcal (Ainm Mar Theaghrán, Arr Mar mhalairt)
Dim I Chomh Fada
Dim xCenterX Mar Aonair
Dim xCenterY Mar Aonair
Dim x Ciorcal Mar Cruth
Ar Earráid Téigh go ExitSub
Le haghaidh I = 0 Go UBound(Arr)
Má tá Arr(I) > 10 Ansin
Arr(I) = 10
Eile Má Arr(I) < 1 Ansin
Arr(I) = 1
Deireadh Má
Ar Aghaidh
Socraigh xCircle = ActiveSheet.Shapes(Ainm)
Le xCiorcal
xCenterX = .Left + (.Width / 2)
xCenterY = .Top + (.Airde / 2)
.Width = Feidhmchlár.CentimetersToPoints(Arr(0))
.Airde = Feidhmchlár.CentimetersToPoints(Arr(1))
.Left = xCenterX - (.Width / 2)
.Top = xCenterY - (.Airde / 2)
Deireadh Le
ExitSub:
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil bealach ann chun é seo a dhéanamh le Íomhánna? Ní cosúil go bhfuil aon ádh orm ag baint úsáide as an gcód mar a phostáiltear é.

5 Íomhánna i gclár ceannairí, ba mhaith liom na hÍomhánna sa 1ú nó ceangailte le haghaidh 1 a bheith níos mó. Dá bhrí sin tá 2 mhéid íomhá seasta agam, 1x2 don chéad áit nó 2x4 don 1ú háit (mar shampla). Tá rangú socraithe agam cheana féin agus is féidir é sin a úsáid chun méideanna a chruthú i gcealla ar leith do gach íomhá (.i. úsáid ráiteas IF mar sin má tá RANC ar an gcéad leithead is é 1). Tá mo VBA lag go leor áfach.

Go bunúsach ba mhaith liom - ar nuashonrú bileog - breathnú ar chealla méid íomhá agus socraigh gach méid íomhá chuig an toradh cealla méid íomhá ar leith. Ní féidir liom a fheiceáil sa VBA thuas conas a oibríonn sé sin go díreach ach is dóigh liom gur chóir go mbeadh sé éasca!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Crytal,

Ba mhaith liom a iarraidh ort, an bhfuil bealach ann chun dath a roghnú (ceall dearg = foirm dhearg) agus ainm ó chealla ar leith . an bhféadfaí foirmeacha a chruthú go huathoibríoch ó VBA freisin?

Go raibh míle maith agat roimh ré :)

Carol
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Crytal
cad a tharlaíonn má chun a chinneadh an taobh an ciúb, triantán, bosca a chaithfear a chinneadh bunaithe ar an fad, leithead? Cabhair liom le do thoil

Go raibh maith agat
chairil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Chairil,
Ár leithscéal ní féidir leat cabhrú leis sin go fóill. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an bhfuil bealach ann chun é seo a oibriú má tá an chill a úsáideann tú chun an méid a shocrú mar thoradh ar fhoirmle seachas díreach luach statach a chuireann tú isteach de láimh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit mathnz,Is féidir leis an gcód VBA thíos cabhrú leat an fhadhb a réiteach. Níl le déanamh agat ach na cealla luacha agus na cruthainmneacha sa chód a athrú bunaithe ar do shonraí féin.
Fo-bhileog Oibre Príobháideach_Ríomh()
' arna nuashonrú ag Extendoffice 20211105
Ar Lean Earráid Aghaidh
Cuir glaoch ar SizeCircle ("Oval 1", Val (Raon ("A1").Luach)) 'Is é A1 an luach-chill, is é Oval 1 an t-ainm cruth
Glaoigh ar SizeCircle ("Smiley Face 2", Val (Raon ("A2"). Luach))
Glaoigh ar SizeCircle ("Croí 3", Val (Raon ("A3").Luach))

Fo Deireadh
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xSeoladh Mar Teaghrán
Ar Lean Earráid Aghaidh
Má tá Target.CountLarge = 1 Ansin
xSeoladh = Sprioc.Seoladh(0, 0)
Má tá xAddress = "A1" Ansin
Cuir glaoch ar SizeCircle ("Oval 1", Val (Target.Value))
ElseIf xAddress = "A2" Ansin
Cuir glaoch ar SizeCircle ("Aghaidh Smiley 2", Val (Target.Value))
ElseIf xAddress = "A3" Ansin
Glaoigh ar SizeCircle ("Croí 3", Val (Target.Value))

Deireadh Má
Deireadh Má
Fo Deireadh

Fo-Chiorcal (Ainm Mar Theaghrán, Trastomhas)
Dim xCenterX Mar Aonair
Dim xCenterY Mar Aonair
Dim x Ciorcal Mar Cruth
Dim x Trastomhas Mar Aonair
Ar Earráid Téigh go ExitSub
xTrastomhas = Trastomhas
Má tá xTrastomhas > 10 Ansin xDiameter = 10
Má tá xTrastomhas < 1 Ansin xDiameter = 1
Socraigh xCircle = ActiveSheet.Shapes(Ainm)
Le xCiorcal
xCenterX = .Left + (.Width / 2)
xCenterY = .Top + (.Airde / 2)
.Width = Feidhmchlár.CentimetersToPoints(xDiameter)
.Airde = Feidhmchlár.CentimetersToPoints(xDiameter)
.Left = xCenterX - (.Width / 2)
.Top = xCenterY - (.Airde / 2)
Deireadh Le
ExitSub:
Fo Deireadh

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

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL