Yn yr erthygl hon, byddaf yn dangos i chi sut y gallwch chi osod newidyn i werth cell gan ddefnyddio VBA yn Excel. Byddwch yn dysgu gosod newidyn i werth un gell ac ystod o gelloedd.

Lawrlwythwch y Llyfr Gwaith Ymarfer

Lawrlwythwch y llyfr gwaith ymarfer hwn i wneud ymarfer corff tra byddwch yn darllen yr erthygl hon.

3 Enghreifftiol Cyflym i'w Gosod Newidyn i Werth Cell yn Excel

Yma mae gennym set ddata sy'n cynnwys enwau rhai cwsmeriaid , eu rhifau cyswllt , a cyfeiriadau e-bost yn yr ystod B3:D13 o daflen waith.

Ein nod yw gosod newidynnau i werthoedd celloedd o'r set ddata hon gan ddefnyddio VBA .<3

1. Gosod Newidyn i Werth Cell Sengl Gan Ddefnyddio Excel VBA

Yn gyntaf, byddwn yn dysgu gosod newidyn i werth un cell gan ddefnyddio VBA .

Ar gyfer enghraifft, gadewch i ni osod gwerth cell B4 i newidyn o'r enw Cwsmer_Name .

Mae'n well os ydych chi'n gwybod math data'r gwerth a'i ddatgan o'r blaen. Ac yna gosodwch y gwerth yn y newidyn hwnnw.

Er enghraifft, yma mae cell B4 yn cynnwys yr enw, Boris Pasternak . Mae'n newidyn math llinyn . Felly, gallwch ddefnyddio'r llinellau codau 2 canlynol:

7507

Ond mae'n iawn os nad ydych chi'n siŵr am y math o ddata. Yn yr achos hwnnw, ysgrifennwch yr 2il linell yn unig, a bydd VBA yn darllen y gwerth yn gywir ar gyferchi.

2725

Nawr, i wirio a yw VBA wedi darllen y gwerth yn gywir ai peidio, rhowch y llinell Gwerth MsgBox gyda un o'r ddwy set o godau ac yna rhedeg y cod.

Bydd blwch neges yn ymddangos yn dangos gwerth cell B4 , Boris Pasternak .

2. Gosod Gwerthoedd Amrediad Cyfagos o Gelloedd yn Newidyn Gan Ddefnyddio Excel VBA

Nawr, byddwn yn gosod gwerthoedd ystod gyfagos o gelloedd yn newidyn. Er enghraifft, gadewch i ni ddarllen yr ystod B3:D13 i mewn i'r newidyn Rng .

Yma bydd math data'r newidyn yn Ystod . Gallwch naill ai ei ddatgan o'r blaen fel hyn:

2511

Neu gallwch aseinio'r gwerthoedd yn uniongyrchol ag ef.

6147

Nawr, er mwyn cyrchu gwerthoedd y gwrthrych Ystod , mae'n rhaid i chi eu cyrchu gyda'u rhifau rhes a cholofn gyda gwrthrych Celloedd .

Er enghraifft, i cell mynediad B4 , rhaid i chi ddefnyddio Rng.Cells(2,1) [ Mae cell B4 yn y rhes 2nd a 1af colofn o'r amrediad B3:D13 .]

Rhowch y llinell MsgBox Rng.Cells(2,1) y tu mewn i'ch cod a'i redeg. Bydd yn dangos Boris Pasternak , y gwerth yng nghell B4 .

3. Gosod Gwerthoedd Amrediad o Gelloedd Heb fod yn Gyfagos yn Newidyn Gan Ddefnyddio Excel VBA

Yn olaf, byddwn yn gosod gwerthoedd amrediad nad ydynt yn gyfagos o gelloedd yn newidyn.

Er enghraifft, gadewch i ni geisio darllenyr amrediad B3:B13 a D3:D13 i mewn i newidyn o'r enw Rng .

Mae eto'n fath data o Ystod . Gallwch naill ai ei ddatgan ymlaen llaw ai peidio.

Byddwn yn defnyddio'r dull Union o VBA i ymuno 2 neu fwy nad yw'n gyfagos ystodau o gelloedd yn un ystod.

4722

Nawr i gael mynediad i gell B4 , eto mae'n rhaid i chi fynd i mewn i'r llinell MsgBox Rng.Celloedd(1,1). Yna os ydym yn rhedeg y cod, bydd yn dangos y cynnwys yng nghell B4 , Boris Pasternak .

Pethau i'w Cofio

Mae'r holl ddulliau a ddisgrifir uchod yn gweithio ar gyfer y daflen waith weithredol yn unig. Os ydych am gael mynediad at daflen waith nad yw'n weithredol, mae'n rhaid i chi sôn am enw'r daflen waith cyn yr ystod.

Er enghraifft, i gael mynediad i'r ystod B4 o Taflen1 , mae'n rhaid i chi ddefnyddio:

1679