Gå til innhold

kjaa

Medlemmer
  • Innlegg

    98
  • Ble med

  • Besøkte siden sist

Innlegg skrevet av kjaa

  1. Det skjer noe skit med formatteringen her, det er umulig å poste kode på forumet for tiden. Tipper det er denne linja:

     

    .Rows®.Delete

     

    den skal være, og var siste jeg prøvde

     

    .Rows( R ).Delete

     

    altså .Rows parentes R sluttparentes .Delete

     

    Det stemmer. Virker helt perfekt. Takker og bukker.

  2. Sorry, en feilkilde til eliminert, bruk denne:

     

    Sub Kill()

     

    Dim R As Long

     

    Dim L1 As Long, L2 As Long

     

    Dim S1 As String, S2 As String

     

    Dim KillThis As Boolean

     

    Application.ScreenUpdating = False

     

    With ActiveSheet

     

    For R = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

     

    KillThis = False

     

    L1 = Val(.Cells(R, 1).Value)

     

    L2 = Val(.Cells(R, 2).Value)

     

    S1 = Trim(.Cells(R, 1).Text)

     

    S2 = Trim(.Cells(R, 2).Text)

     

    If L1 * L2 > 0 Then

     

    If L1 < 1300 And L2 < 1300 Then KillThis = True

     

    If L1 \ 100 = L2 \ 100 And Abs(L1 - L2) < 100 Then KillThis = True

     

    If Len(S1) > 4 Or Len(S2) > 4 Then KillThis = False

     

    If KillThis = True Then .Rows®.Delete

     

    End If

     

    Next

     

    End With

     

    Application.ScreenUpdating = True

     

    End Sub

     

    Jeg trenger litt mer hjelp(stresser) L1, L2- S1,S2 R variablene. Ser ikke hvor de refererer til. Postnr og routing er i tekstformat. Det må de være siden de ofte har siffer som begynner med 0?) Hvis jeg navngir kollone A til postnr og kollone B til Routing. Skal disse erstatte L1 og L2?

     

    Kjetil

  3. Du svarte ikke på spørsmålet mitt:

    Hva med de gangene det står 1150 i A og 1850 i B?

    Hva med de gangene det står 1560 i A og 0830 i B?

     

    Er Excel'en din på engelsk eller norsk?

     

    Harald

     

    Hei.

    Mener jeg svarte på det.

     

    1150 i A og 1850 i B skal ikke fjernes.

    1560 i A og 0830 i B skal ikke fjernes.

     

    Bruker norsk 2007.

     

    Kjetil

  4. Altså hvis det står noe lavere enn 1300 i A? Eller i B? Eller bare i både A og B?

     

    Vil du ha en formel som merker raden "Fjernes" i C, eller vil du ha en makro som faktisk fjerner greiene?

     

    Mener ikke å være byråkratisk, dette er veldig enkelt. Men jeg trenger mer info for å gi deg noe brukbart. Hva skal det brukes til og når er også kjekt å vite.

     

    Beste hilsen Harald

     

    Hei.

     

    Hvis det står 1300 i A og 1300 i B , skal posten fjernes. Det samme om det står 1300 i A og 1350 i B fordi de 2 første tegn i A og B er like. Når det gjelder Oslo nr skal alle fjernes eks 0102 i A og 1250 i B fjernes. Vi bruker oslo nr fra 0000 til 1299.

     

    Formel eller makro? Ja takk begge deler om mulig så får jeg prøve ut det som passer best.

    Jeg gjør dette manuelt på jobben hver dag og det er tidkrevende i de tillfeller som det er mange hundre rader.

     

    Sender deg en excel fil. Hm får ikke lastet opp???

     

    Takk for all hjelp så langt.

  5. Hei.

     

    Jeg har en post A og B hvor det registreres postnummer i tekstformat. Det er normalt 4 siffre, men det hender at det er fler.

     

    Problem:

    Jeg skal finne og fjerne de postene hvor de 2 første tallene i post A er lik de 2 første tallene i post B, men bare hvis det er 4 tall i postene.

     

    A B

    0668 0668 Fjernes

    1400 1440 Fjernes

    1520 1600

    1210 1200 Fjernes

    2920 3240

    8530 8530E Skal ikke fjernes

     

    Takker for alle forslag til løsning.

  6. Hei.

     

    Jeg har satt meg fast litt. I kollone A har jeg ett datofeldt.

    I kollone B har jeg tall fra 1 til 6.

     

    Problem: Hvilken formel skal jeg bruke for å telle antall dager siden feks 4 ble registret?

     

     

    A B

    02.05.2010 2

    03.05.2010 5

    04.05.2010 6

    05.05.2010 1

    06.05.2010 5

    07.05.2010 4

    08.05.2010 4

    09.05.2010 2

    10.05.2010 4

    11.05.2010 3

    12.05.2010 1

     

    Har prøvd med ANTALL.HVIS, men teller da antallet av 4 ,1 osv.

  7. Hei.

     

    Jeg har satt meg fast litt. I kollone A har jeg ett datofeldt.

    I kollone B har jeg tall fra 1 til 6.

     

    Problem: Hvilken formel skal jeg bruke for å telle antall dager siden feks 4 ble registret?

     

     

    A B

    02.05.2010 2

    03.05.2010 5

    04.05.2010 6

    05.05.2010 1

    06.05.2010 5

    07.05.2010 4

    08.05.2010 4

    09.05.2010 2

    10.05.2010 4

    11.05.2010 3

    12.05.2010 1

  8. Legger ved hele koden fordi som vil leke. Denne koden har ett problem. Jeg forsøker å telle antall rekker i tillegg. Denne er den son gir minst feil. Noen som har forslag?

     

    using System;

    using System.Collections.Generic;

    using System.Linq;

    using System.Text;

    using System.IO;

     

    namespace ConsoleApplication1

    {

    class Program

    {

     

    private const String filpath = "C:\\Lotto\\";

     

     

    static void Main(string[] args)

    {

    string Rekkenr;

    while (Rekkenr < 5379616)

     

    string text = null;

    StreamWriter writer = new StreamWriter(@filpath + "lotto.txt", false);

    for (int i = 1; i <= 28; i++) // pos1

    for (int j = i + 1; j <= 29; j++)//pos2

    for (int k = j + 1; k <= 30; k++)//pos3

    for (int l = k + 1; l <= 31; l++)//pos4

    for (int m = l + 1; m <= 32; m++)//pos5

    for (int n = m + 1; n <= 33; n++)//pos6

    for (int o = n + 1; o <= 34; o++)//pos7

    {

    text = Rekkenr + "~" + 1 + "~" + i + "~" + j + "~" + k + "~" + l + "~" + m + "~" + n + "~" + o + "\n";

    writer.Write(text);

    }

    writer.Close();

    }

    }

    }

  9. Tør jeg spørre hva du skal med så mange tall?

     

    Ble litt gira når jeg kikket på løkker. Jeg syntes statistikk er spennende og har alle lottoresultatene lagret siden 19.04.1986. Jeg ble forøvrig overrasket av hvor fort det gikk å skrive til tekst. Det neste prosjektet er å lage dette i form og vise resultatet i en listebox. Tenkte å se mer på koden som Jørn postet. Selv om den går i en evig løkke, regner jeg med at mye ligger der. Noe sier meg at dette kan gjøres på flere måter og hastigheten på genereringen er også interessant. Ett lottoprogram fra Scantips,kodet i Delphi, genererer 5.379.616 lottorekker på ca 4-7 sek.

  10. Denne koden genererer alle lottokombinasjonene.

    Finnes det noen mulighet å overføre innholdet i consolen til ett tekst dokument? Notisblokk feks.

     

    static void Main(string[] args)

    {

    for (int i = 1; i <= 28; i++) // pos1

    {

    for (int j = i + 1; j <= 29; j++) // pos2

    {

    for (int k = j + 1; k <= 30; k++)// pos3

    {

    for (int l = k + 1; l <= 31; l++)// pos4

    {

    for (int m = l + 1; m <= 32; m++)//pos5

    {

    for (int n = m + 1; n <= 33; n++)//pos6

    {

    for (int o = n + 1; o <= 34; o++)//pos7

    {

    Console.WriteLine("{0} {1} {2} {3} {4} {5} {6}", i, j, k, l, m, n, o);

     

    }

  11. {

    for (int i = 0; i < tall.Length; i++)

    richTextBoxText.Text = tall.ToString();

    }

     

    // Øker siste talled med 1

    tall[tall.Length-1]++;

    }[/code]

    Takk for koden Jorn79.

    Jeg ønsker å vise disse rekkene i richTextBox. Er det riktig å plasere den i steden for Consol? Grunnen til spr er at koden kjører som bare det i Consol, men i Windows står det" Formen svarer ikke". Er det fordi rekkene blir lagt til etter at koden er kjørt?

     

    Edit: Ser at tallrekken i consol er feil. Gir bla: 1 2 7 8 3 31 24. Det er vel gunnen til at den bruker lang tid. Pos4 går helt til 32, men skal slutte på 31. Siste rekke skal bli 28 29 30 31 32 33 34

×
×
  • Opprett ny...