13. december 2001 - 11:59Der er
10 kommentarer og 1 løsning
Macro til KUN at kopiere formler
Hej alle,
Er det muligt, at lave en macro, hvor den kun kopiere formlerne fra det kopiere område? Det vil sige, hvis jeg kopiere f.eks. hele kolonnen, hvor der både er værdier og formler, og sætter det ind i en ny kolonne, så overskriver den ikke de \"gl-værdier\" med det kopierede, men den indsætter formlerne fra det kopierede område.
F.eks. A1=2 A2=3 A3=A1+A2 B1=6 B2=9
Hvis kolonne A kopieres over i kolonne B, skal B1=6, B2=9 men formlen i B3 kopieres fra kolonne A, så den giver B3=B1+B2=15
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
hvorfor ikke bare insert sepcial? Der kan du vælge kun at indsætte formler. Det virker lidt voldsomt med en makro, hvis det kun er få gange, du skal lave dette nummer *S*
askims / andre>> der skal laves validering på hver enkelt celle i Selection evt. om Left(\"celle\", 1) = \"=\" så du ved det er en formel. Forstås min kommentar ikke, så læs spørgsmålet igen.
Du markerer området, trykker F5, klikker på speciel, vælger formler. Nu vil excel kun markere cellerne i området med formler i. Du kan så kopiere disse
Ignorer venligst mit første forslag. du kan markere alle celler kolonne A og så køre denne makro. Sub Makro3() Selection.SpecialCells(xlCellTypeFormulas, 23).Select For Each cell In Selection cell.Offset(0, 1).FormulaR1C1 = cell.FormulaR1C1 Next End Sub
Jeg var lidt hurtig på aftrækkeren, men det var den hurtige løsning. Nu da jeg har læst spørgsmålet igen, vil jeg umiddelbart vurdere, at bak\'s svar løser det stillede spørgsmål - det eneste problem er, at den altid vil indsætte formlerne i kolonnen til højre for det valgte, man bør måske give brugeren mulighed for at vælge, hvilken kolonne det skal indsættes i, men det er jo relativ enkelt!
Bak -> hvad står 23 for? (jeg var lige inde i hjælp, men jeg forstod ikke lige, hvad denne value gør?)
Da jeg inspillede makroen kom sætningen : Selection.SpecialCells(xlCellTypeFormulas, 23).Select frem. Det er for så vidt ikke nødvendigt at have de 23 med, det er bare talkombinationen af de 4 muligheder, man har under formler.
Lidt mere brugervenlig version: Sub KopierFormler() Dim MyRange, MyRange2 As Range Dim x As Integer Set MyRange = Application.InputBox _ (Prompt:=\"Hvilket område skal kopieres ??\", Title:=\"Demo\", Type:=8) MyRange.Select Set MyRange2 = Application.InputBox _ (Prompt:=\"Til hvilken kolonne ??\", Title:=\"Demo\", Type:=8) x = MyRange2.Column - MyRange.Column Selection.SpecialCells(xlCellTypeFormulas).Select For Each cell In Selection cell.Offset(0, x).FormulaR1C1 = cell.FormulaR1C1 Next End Sub
bak > undskyld mit sene svar, men jeg har været hængt lidt op arbejdsmæssigt. Jeg prøver din løsning senere i dag og vender tilbage imorgen med point.
På forhånd tak for hjælpen
MVH Claus
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
