Vapaa kuvaus

Aloituksia

3

Kommenttia

35

  1. Tarton rauhansopimuksessa "vähäisiä poikkeuksia lukuun ottamatta vanha Venäjän valtion omaisuus Suomen alueella katsottiin siirtyneeksi Suomelle".

    Mitähän nuo poikkeukset ovat?
  2. Eli+tarkoitus+on+saada+siis+soluissa+olevat+pilkku-välilyönti+-yhdistelmällä+erotellut+merkkijonot+omiin+soluihinsa?Alla+oleva+makro+pilkkoo+valituissa+soluissa+olevat+em.+tavalla.+Muuttuja+"pilkkoja"+sisältää+merkkijonon,+jonka+perusteella+solujen+arvot+erotellaan+toisistaan.+Tässä+tapauksessa+siis+",+"+eli+pilkku+ja+välilyönti.Makro+toimii+niin+että+ensin+käydään+silmukassa+läpi+kuinka+monta+arvoa+on+tulossa+yhteensä+ja+varataan+sen+kokoinen+VBA-merkkijonotaulukko.+Seuraavaksi+kopioidaan+toisessa+silmukassa+jokaisesta+solusta+mahdolliset+alimerkkijonot+aikaisemmin+varattuun+taulukkoon.+Viimeiseksi+avataan+uusi+työkirja,+jonka+A-sarakkeen+riveille+kopioidaan+arvot+varatusta+koontitaulukosta.==========================================Sub+pilkkoja()    Dim+tulokset+As+Workbook    Dim+pilkottuja+As+Integer    Dim+pilkotut()+As+String    Dim+apulista()+As+String    Dim+pilkkoja+As+String  +    pilkkoja+=+",+"        If+Selection.Count+>+0+Then        pilkottuja+=+0        For+Each+solu+In+Selection            apulista+=+Split(solu.Text,+pilkkoja)            If+UBound(apulista)+>+0+Then                pilkottuja+=+pilkottuja+++UBound(apulista)+++1            End+If        Next        If+pilkottuja+>+0+Then            ReDim+pilkotut(pilkottuja)            pilkottuja+=+0                For+Each+solu+In+Selection                    apulista+=+Split(solu.Text,+pilkkoja)                    If+UBound(apulista)+>+0+Then                        For+Each+elementti+In+apulista                            pilkotut(pilkottuja)+=+elementti                            pilkottuja+=+pilkottuja+++1                        Next                    End+If                Next            pilkottuja+=+0            Set+tulokset+=+Workbooks.Add            Set+tulokset+=+ActiveWorkbook            For+Each+elementti+In+pilkotut                tulokset.Worksheets(1).Range("A1").Offset(pilkottuja,+0)+=+elementti                pilkottuja+=+pilkottuja+++1            Next            tulokset.Worksheets(1).Range("A1:"+&+Cells(pilkottuja+-+1,+1).Address).Select        End+If    End+IfEnd+Sub
  3. Käytä+etänä+GUI-koneelta+esimerkiksi+SSH:n+avulla.