VBA nach bhfuil ag obair

Chóipeáil mé an VBA chun sonraí a chóipeáil ó chill isteach sa cholún difriúil as a chéile agus d'athraigh mé é ionas gur féidir liom cill a athrú i gColún F agus an luach a shábháil go colún E, ach nuair a bhainim triail as ní tharlaíonn aon rud. An féidir le duine éigin a insint dom cad atá á dhéanamh agam mícheart? Ba mhaith liom freisin stampa dáta a chur i gcolún G nuair a dhéanaim an t-athrú.

Bhí súil agam a bheith in ann an rud céanna a dhéanamh freisin nuair a athraím cill i gColún I chun é a shábháil go Colún H agus stampa dáta a athraíonn i gColún J.

Bheifí ag súil go mór le haon chabhair.


Dim xRg Mar Raon
Dim xChangeRg Mar Raon
Dim xDependRg Mar Raon
Dim xDic Mar Fhoclóir Nua
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim I Chomh Fada
Dim xCell Mar Raon
Dim xDCell Mar Raon
Dim xHeader Mar Teaghrán
Dim xCommText Mar Teaghrán
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Application.EnableEvents = Bréagach
xHeader = "Luach roimhe seo:"
x = xDic.Keys
Le haghaidh I = 0 Go UBound(xDic.Keys)
Socraigh xCell = Raon(xDic.Keys(I))
Socraigh xDCell = Cealla(xCell.Row, 5)
xDCell.Value=""
xDCell.Value = xDic.Items(I)
Ar Aghaidh
Application.EnableEvents = Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
Dim I, J Chomh fada
Dim xRgArea Mar Raon
Ar Earráid Téigh go Lipéad1
Má tá Sprioc.Comhaireamh > 1 Ansin Scoir Fo
Application.EnableEvents = Bréagach
Socraigh xDependRg = Target.Dependents
Mura rud ar bith é xDependRg Téigh Go Lipéad1
Mura bhfuil xDependRg Ní dhéanfaidh aon ní Ansin
Socraigh xDependRg = Trasnaigh(xDependRg, Raon ("F: F"))
Deireadh Má
Lipéad 1:
Socraigh xRg = Trasnaigh(Sprioc, Raon ("F: F"))
Mura (Ní dhéanfaidh xRg é) Agus (Ní dhéanfaidh xDependRg Tada) Ansin
Socraigh xChangeRg = Aontas(xRg, xDependRg)
EileMás rud é (xRg Is Faic) Agus (Ní dhéanfaidh xDependRg Tada) Ansin
Socraigh xChangeRg = xDependRg
EileIf (Ní xRg Is Faic) Agus (XDependRg Is Faic) Ansin
Socraigh xChangeRg = xRg
Eile
Application.EnableEvents = Fíor
Fo-Scoir
Deireadh Má
xDic.RemoveAll
Do I = 1 Chun xChangeRg.Areas.Count
Socraigh xRgArea = xChangeRg.Areas(I)
Do J = 1 Go xRgArea.Count
xDic.Cuir xRgArea(J).Seoladh, xRgArea(J).Foirmle
Ar Aghaidh
Ar Aghaidh
Socraigh xChangeRg = Ní dhéanfaidh aon ní
Socraigh xRg = Ní dhéanfaidh aon ní
Socraigh xDependRg = Ní dhéanfaidh aon ní
Application.EnableEvents = Fíor
Fo Deireadh