Vapaa kuvaus

Aloituksia

3

Kommenttia

32

  1. Hienosäädetty+versio:+https://pastebin.com/kyA3BsHUTuo+edellinen+ei+ottanut+loppuprinttauksissa+huomioon+kaarevuuden+mahdollista+äärettömyyttä+ja+siksi+pyöristysfunktio+päättyi+virheeseen.
  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. GParted-ohjelmalla+voi+tehdä+levylle+oman+XFS-osion+tv-käyttöön,+ja+sitten+toisen+osion+vaikka+NTFS-muotoon.+Molemmat+näkyvät+kyllä+televisiossakin,+mutta+tv+tallentaa+vain+tuolle+XFS-osiolle.+NTFS-osiota+voi+käyttää+puolestaan+myös+Windowsilla.