An chéad phostáil, is breá liom cad a dhéanann tú go léir anseo. Ag baint úsáide as roinnt cumhachta Google tromchúiseach fuair mé amach cód VBA a dhéanamh ar dhá rud is gá dom a chur i gcrích.

1. Tá 3 liosta bailíochtaithe sonraí agam ar chluaisín amháin, agus ba mhaith liom na liostaí a réamhshocrú go BARR an liosta seachas an bun; Fuair ​​​​mé an cód uamhnach seo agus OIBREACHA sé.

Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
Dim xFormula Mar Teaghrán
Ar Earráid TéighTo Out:
xFormula = Sprioc.Cealla(1).Bailíochtú.Foirmle1
Má Chlé(xFormula, 1) = "=" Ansin
Sprioc.Cealla(1) = Raon(Meadhan(xFormula, 1)).Cealla(1).Luach
Deireadh Má
Amach:
Fo Deireadh

2. Nuair a athraím an chéad liosta bailíochtaithe sonraí, ba mhaith liom an 2 chill eile a ghlanadh amach agus dul bán, sa chás seo B74 agus B145. Fuair ​​​​mé go leor suíomhanna gréasáin a bhfuil an cód céanna nó an-chosúil acu, ach ní oibríonn aon athrú amháin ar féidir liom a fháil (leathanaigh naisc google go litriúil). Is é seo an chuid nach bhfuil ag obair dom, agus creidim go bhféadfadh sé a bheith rud éigin a dhéanamh leis an gcód thuas.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá Target.Address(0, 0) = "B3" Ansin
Raon ("B74,B145").Ábhar Glan
Deireadh Má
Fo Deireadh

Go raibh míle maith agat roimh ré!