Tänään on 28.03.2024, 12:20.

Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Strategiat, kertoimenlaskenta ja muut ohjeet/vinkit tänne.
Vastaa Viestiin
S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

Yritin tälläistä koodia foorumilta etsiskellä, mutta en löytänyt. Siispä postittelen pienen kesäviihdykkeen...

Omat Visual Basic -taidot on aika keskinkertaiset, mutta netissä törmäsin muutamaan
'siistiin' koodinpätkään. Pientä Leikkaa/Liimaa -näpräilyä ja sain kasaan toimivan makro-koodin.
Makro hakee betexplorer.com'in sivuilta eri liigojen ottelutulokset ja tulevan ohjelman ja
yhdistelee ne omille välilehdilleen. Tässä mukana ovat vain pohjoismaitten käynnissä olevat
liigat, mutta koodia on perustiedoillakin helppo laajentaa muihin sarjoihin.

Turvallisuus:
Makroja Excel-taulukoissa ei tietenkään yleisesti pidä sallia niihin sisältyvien turvariskien vuoksi.
Käytännöllinen tapa toimia makrojen suhteen on määritellä kansio, jossa luotettu
makrotiedosto sijaitsee 'Luotettavaksi sijainniksi' (Trusted Locations), eli

Office Button => Excel Options => Trust Center => Trust Center Settings => Trusted Locations
(mitä mahtavat olla suomeksi...?)

Latausosoite: (päivitettävänä)
Rar-password: ylikerroin.com

Kätevä ja välttämätön apuväline kaikille rajojen laskijoille. :wink:

Allekirjoittaneen luotettavuudesta en menisi takuuseen, mutta ehkä luotettavuutta vähän parantaa kun laitan lähdekoodin tähän loppuun:

Koodi: Valitse kaikki

Option Explicit

Sub Button1_Click()
Download (1)
End Sub
Sub Button2_Click()
Download (2)
End Sub
Sub Button3_Click()
Download (3)
End Sub
Sub Button4_Click()
Download (4)
End Sub
Sub Button5_Click()
Download (5)
End Sub
Sub Button6_Click()
Download (6)
End Sub
Sub Button7_Click()
Download (7)
End Sub
Sub Button8_Click()
Download (8)
End Sub
Sub Button9_Click()
Download (9)
End Sub
Sub Button10_Click()
Download (10)
End Sub
Sub Button11_Click()
Download (11)
End Sub
Sub Button12_Click()
Download (12)
End Sub
Private Sub Download(buttonnumber As Integer)

Application.ScreenUpdating = False

'DOWNLOAD DATA FROM BETEXPLORER

    Dim strResUrls(1 To 200) As String
    strResUrls(1) = "http://www.betexplorer.com/soccer/finland/finnish-1st-veikkausliiga-2011/results/"
    strResUrls(2) = "http://www.betexplorer.com/soccer/finland/finnish-2nd-league-2011/results/"
    strResUrls(3) = "http://www.betexplorer.com/soccer/sweden/swedish-1st-allsvenskan-2011/results/"
    strResUrls(4) = "http://www.betexplorer.com/soccer/sweden/swedish-2nd-superettan-2011/results/"
    strResUrls(5) = "http://www.betexplorer.com/soccer/norway/norwegian-1st-eliteserien-2011/results/"
    strResUrls(6) = "http://www.betexplorer.com/soccer/norway/norwegian-2nd-league-2011/results/"
    
    strResUrls(101) = "http://www.betexplorer.com/soccer/finland/finnish-1st-veikkausliiga-2011/fixtures/"
    strResUrls(102) = "http://www.betexplorer.com/soccer/finland/finnish-2nd-league-2011/fixtures/"
    strResUrls(103) = "http://www.betexplorer.com/soccer/sweden/swedish-1st-allsvenskan-2011/fixtures/"
    strResUrls(104) = "http://www.betexplorer.com/soccer/sweden/swedish-2nd-superettan-2011/fixtures/"
    strResUrls(105) = "http://www.betexplorer.com/soccer/norway/norwegian-1st-eliteserien-2011/fixtures/"
    strResUrls(106) = "http://www.betexplorer.com/soccer/norway/norwegian-2nd-league-2011/fixtures/"

    Dim URLValue As String
    
Sheets("DataRes").Activate
URLValue = strResUrls(buttonnumber)

Range("A:J").Select
Selection.Clear
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & URLValue, Destination:=Range("$A$1"))
        .Name = "TEMP1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1"
        .WebPreFormattedTextToColumns = False
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With
    
Sheets("DataFix").Activate
URLValue = strResUrls(100 + buttonnumber)
Range("A:J").Select
Selection.Clear
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & URLValue, Destination:=Range("$A$1"))
        .Name = "TEMP2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1"
        .WebPreFormattedTextToColumns = False
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False

    End With
FormatData (buttonnumber)

End Sub

Private Sub FormatData(buttonnumber As Integer)
    
    'PREPARE LEAGUE SHEET
    
    Dim strLeagues(1 To 100) As String
    strLeagues(1) = "Fin1"
    strLeagues(2) = "Fin2"
    strLeagues(3) = "Swe1"
    strLeagues(4) = "Swe2"
    strLeagues(5) = "Nor1"
    strLeagues(6) = "Nor2"
    
    Dim FinalRow As Long
    
    Sheets(strLeagues(buttonnumber)).Activate
    Cells.Clear
    Range("A1:I1").Select
    With Selection
        .Font.Bold = True
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
    End With
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "RESULTS"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "HOME"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "AWAY"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "H"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "A"
    
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "FIXTURES"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "HOME"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "AWAY"

    'RESULT FORMULAS
    
    Sheets("DataRes").Activate
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=IF(IFERROR(FIND("". Round"",RC[-10]),"""")<>"""",1,"""")"
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]=1,1,IF(R[-1]C=1,1,""""))"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=IF(IFERROR(FIND(""postp."",RC[-11]),"""")="""",IF(RC[-7]<>"""",IF(RC[-1]=1,SUBSTITUTE(RC[-7],""."",""/"")*1,""""),""""),"""")"
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",LEFT(RC[-13],FIND("" - "",RC[-13])-1),"""")"
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>"""",RIGHT(RC[-14],(LEN(RC[-14])-FIND("" - "",RC[-14]))-2),"""")"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-3]<>"""",HOUR(RC[-14]),"""")"
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-4]<>"""",MINUTE(RC[-15]),"""")"
    
    Range("K2:Q2").Select
    Selection.Copy
    FinalRow = Range("A500000").End(xlUp).Row + 3
    Range("K2:Q" & FinalRow).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("M2:M" & FinalRow).Select
    Selection.NumberFormat = "dd/mm/yyyy;@"
    FinalRow = Range("A500000").End(xlUp).Row + 3
    ActiveSheet.Range("$M$2:$Q$" & FinalRow).AutoFilter Field:=1, Criteria1:="<>"
    Range("$M$2:$Q$" & FinalRow).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    
    'COPY DATA TO LEAGUESHEET
    
    Sheets(strLeagues(buttonnumber)).Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    'SORT
    
    FinalRow = Range("A500000").End(xlUp).Row
    
    ActiveWorkbook.Worksheets(strLeagues(buttonnumber)).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(strLeagues(buttonnumber)).Sort.SortFields.Add Key:=Range("A2:A" & FinalRow), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(strLeagues(buttonnumber)).Sort.SortFields.Add Key:=Range("B2:B" & FinalRow), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(strLeagues(buttonnumber)).Sort
        .SetRange Range("A1:E" & FinalRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("A2:E" & FinalRow).Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlGeneral
    End With

    'FIXTURE FORMULAS
    
    Sheets("DataFix").Activate
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=IF(IFERROR(FIND("" - "",RC[-9]),"""")<>"""",1,"""")"
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(SUBSTITUTE(LEFT(RC[-11],10),""."",""/"")*1,"""")"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",R[-1]C,RC[-1])"
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-1]<>0,RC[-1]<>"""",RC[-3]=1),RC[-1],"""")"
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",LEFT(RC[-13],FIND("" - "",RC[-13])-1),"""")"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>"""",RIGHT(RC[-14],LEN(RC[-14])-(FIND("" - "",RC[-14])+2)),"""")"
    
    Range("K2:P2").Select
    Selection.Copy
    FinalRow = Range("A500000").End(xlUp).Row + 3
    Range("K2:P" & FinalRow).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("N2:N" & FinalRow).Select
    Selection.NumberFormat = "dd/mm/yyyy;@"
    FinalRow = Range("A500000").End(xlUp).Row + 3
    ActiveSheet.Range("$N$2:$P$" & FinalRow).AutoFilter Field:=1, Criteria1:="<>"
    Range("$N$2:$P$" & FinalRow).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    
    'COPY DATA TO LEAGUESHEET
    
    Sheets(strLeagues(buttonnumber)).Activate
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    Cells.EntireColumn.AutoFit
    Range("A2").Select

    Sheets("DataRes").Activate
    Selection.AutoFilter
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    
    Sheets("DataFix").Activate
    Selection.AutoFilter
    
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select

    Sheets(strLeagues(buttonnumber)).Activate
    
    Application.ScreenUpdating = True
    
End Sub

Pisteitä

Pisteitä yhteensä: 2. Antamasi peukut: 0.

Viimeksi muokannut S.Mäenala, 18.11.2011, 15:34. Yhteensä muokattu 1 kertaa.
“There are two kinds of forecasters: those who don’t know, and those who don’t know they don’t know.”
(J K Galbraith)

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

tahdoin vähän leikkiä mutta ei se tahtonut :(
Errors were detected in file '....\Betex-resfix.xlsm'</summary>
- <removedParts summary="Following is a list of removed parts:">
<removedPart>Removed Part: /xl/vbaProject.bin part. (Visual Basic for Applications (VBA))

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

brainslicer kirjoitti:tahdoin vähän leikkiä mutta ei se tahtonut :(
Errors were detected in file '....\Betex-resfix.xlsm'</summary>
- <removedParts summary="Following is a list of removed parts:">
<removedPart>Removed Part: /xl/vbaProject.bin part. (Visual Basic for Applications (VBA))
En nyt tuosta kuvauksestasi oikein ymmärtänyt mitä yritit 'leikkiä' (aikaansaada).
Jos sait makron koodin hajalle niin neuvoisin hakemaan uuden kappaleen ja ottamaan siitä varmuuskopsun.

Jos kerrot mikä oli ideasi, niin ehkä voisin yrittää neuvoskella... :wink:

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

S.Mäenala kirjoitti:
brainslicer kirjoitti:tahdoin vähän leikkiä mutta ei se tahtonut :(
Errors were detected in file '....\Betex-resfix.xlsm'</summary>
- <removedParts summary="Following is a list of removed parts:">
<removedPart>Removed Part: /xl/vbaProject.bin part. (Visual Basic for Applications (VBA))
En nyt tuosta kuvauksestasi oikein ymmärtänyt mitä yritit 'leikkiä' (aikaansaada).
Jos sait makron koodin hajalle niin neuvoisin hakemaan uuden kappaleen ja ottamaan siitä varmuuskopsun.

Jos kerrot mikä oli ideasi, niin ehkä voisin yrittää neuvoskella... :wink:

Hehe , en oikeastaan mitään, ajattelin vaan katella pikkasen, varmaan mun asetuksissa jossain jotain vaikka ton Trusted Locationsin myös pistin.

ekaks herjaa tota:
Kuva

sitten unreadable poistetaan, ja ei mikään tietenkään sen jälkeen toimi, pari kertaa hakenut tiedoston
Kuva

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

Eipä ole muut tuota raportoineet vaikka jonkinverran tiedostoa on kuitenkin latailtu.
Googlailin ongelmaa ja huomasin että joillakin on samasta ongelmasta kysymyksiä eri foorumeilla, etenkin Office 2007 version kanssa.
Tärkeää tässä on huomata että kun tiedoston tallentaa, on valittava formaatiksi "Excel Macro-Enabled Workbook" (xlsm).

Omat asetukset ovat:
For macros in documents not in trusted location:
- Disable all macros without notification.

Kansio, jossa makrotiedosto sijaitsee, on määritelty "Trusted Locations" -osastossa luotetuksi kansioksi.

Siis:
Tiedosto on jo ensimmäisellä kerralla avattava luotetuksi määritellystä kansiosta! Eli ennenkuin avaat sen, siirrä se tälläiseen kansioon.
Varmista että kun tallennat tiedoston ( jos sen ylipäätään saat avattua), valitset tiedostomuodon oikein!

Toivotaan että saat sen pelaamaan. :!: :wink:

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

samat asetukset ja oli trusted kansiossa
Pitää myöhemmin tutkia, toi nyt tapahtuu heti kun yritän avata, siinä heti hajoaa

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Viimeksi muokannut brainslicer, 20.07.2011, 02:09. Yhteensä muokattu 1 kertaa.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

brainslicer kirjoitti:Pitää myöhemmin tutkia, toi nyt tapahtuu heti kun yritän avata, siinä heti hajoaa
Vaikka avaat tiedoston luotetusta kansiosta?

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Viimeksi muokannut S.Mäenala, 20.07.2011, 02:10. Yhteensä muokattu 1 kertaa.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

S.Mäenala kirjoitti:
brainslicer kirjoitti:Pitää myöhemmin tutkia, toi nyt tapahtuu heti kun yritän avata, siinä heti hajoaa
Vaikka avaat tiedoston luotetusta kansiosta?
jepp

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

Jos nyt allekirjoittaneeseen yhtään luotat, voisit yrittää sallia kaikki makro-tiedostot (väliaikaisesti!!) ja kokeilla saatko sen sitten toimimaan..

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

S.Mäenala kirjoitti:Jos nyt allekirjoittaneeseen yhtään luotat, voisit yrittää sallia kaikki makro-tiedostot (väliaikaisesti!!) ja kokeilla saatko sen sitten toimimaan..

kokeilin, sama vika, heti kun yrittää avata: unreadable

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

Jupp, se on näiden makrojen kanssa tällästä... :(
Valtaosassa koneita ne on kokonaan estetty, ja ne harvat jotka niitä sitten käyttää eivät eri versioilla saa niitä toimimaan.

Lohduksesi voin kertoa että ei tuo työkalu sentään ihan välttämätön ole, vaikka kätevä onkin.

Netin keskusteluista voi päätellä että tätäkin nimenomaista ongelmaa joillakin Office-versioillla on.

Sortui allekirjoittanutkin hätäpäissään antamaan huonon neuvon (salli makrot)! Juuri tuollaisiin tuntemattomien antamiin 'vinkkeihin' ei pidä sortua! Pahoitteluni! Laitetaan väsymyksen piikkiin...
Muista laittaa makroestot uudelleen päälle...
S.

Moderaattoreille: mun puolesta näitä vähän chattailun puolelle menneitä viestejä voi poistaa kun asianosaset on ehtineet ne lukaista.

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

joo niinhän se on, jaksoin kuitenkin ainakin ajaa sen tosta läpi http://www.virustotal.com/file-scan/rep ... 1311110115

tosin uusia malwareja samalla tavalla testataan ennen kuin päästetään :)

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

version vaihto auttoi, elikä tossa 2007 kyllä jotain häikkää
nyt toisaalta sitten on toi ongelma, hmmm

Kuva

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

brainslicer kirjoitti:version vaihto auttoi, elikä tossa 2007 kyllä jotain häikkää
nyt toisaalta sitten on toi ongelma, hmmm
No Sinulla noita ongelmia riittää! :o

Mä annoin parin tutunkin testata tuon härvelin, eikä kellään mitään ongelmia.
Samoin täällä foorumilla ei kukaan ole ilmoittanut mistään ongelmista.

Mutta yritetään selvitellä...
Voisit alkajaisiksi katsoa, mistä tuo virheilmoitus tulee.

Otin screen capturen omalta koneelta ja tältä sen pitäisi näyttää esim. Veikkausliigan osalta:

Kuva

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

S.Mäenala kirjoitti:
brainslicer kirjoitti: Mutta yritetään selvitellä...
Voisit alkajaisiksi katsoa, mistä tuo virheilmoitus tulee.
voi voi, ainoastaan ongelmia :D en kyllä muuta ilmoitusta näe kun toi #VALUE! kaikkialla kun nappia painaa
oliskohan joku regional-asetus tai jotain

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

brainslicer kirjoitti:voi voi, ainoastaan ongelmia :D en kyllä muuta ilmoitusta näe kun toi #VALUE! kaikkialla kun nappia painaa
oliskohan joku regional-asetus tai jotain
Kun aktivoit (=klikkaa) yhden niistä #VALUE! -soluista, ilmestyy viereen pieni !-merkillä varustettu kuvake, josta voi katsoa mikä virhe on kyseessä.

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

S.Mäenala kirjoitti:
brainslicer kirjoitti:voi voi, ainoastaan ongelmia :D en kyllä muuta ilmoitusta näe kun toi #VALUE! kaikkialla kun nappia painaa
oliskohan joku regional-asetus tai jotain
Kun aktivoit (=klikkaa) yhden niistä #VALUE! -soluista, ilmestyy viereen pieni !-merkillä varustettu kuvake, josta voi katsoa mikä virhe on kyseessä.
niinhän se yleensä ja se tulee muissa worksheeteissä, muttei tässä missään näy, ainoastaan ruudut täyttyy tolla VALUE! errorilla
Kuva

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


Reimat
Jäsen
Viestit: 269
Liittynyt: 11.03.2008, 11:18

Tuotto: +155.06 yks.

Palautus%: 112.87%

Panosten ka: 5.82 yks.

Vetoja: 207

Pisteitä: 83

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja Reimat »

Ootko koittanut venyttää noita soluja isommiksi? Mulla on on tuollaista excelissä joskus tullut eteen kun haettu teksti ei ole mahtunut soluun kokonaan.

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Veikkausliigavihjeet kymmenportaisella asteikolla, max 2% kassasta eli 20 yks.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

Reimat kirjoitti:Ootko koittanut venyttää noita soluja isommiksi? Mulla on on tuollaista excelissä joskus tullut eteen kun haettu teksti ei ole mahtunut soluun kokonaan.
joo
Kuva

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

brainslicer kirjoitti:niinhän se yleensä ja se tulee muissa worksheeteissä, muttei tässä missään näy, ainoastaan ruudut täyttyy tolla VALUE! errorilla
Kovin mystinen juttu.
Lähettämistäsi kuvista kuitenkin näkyy että osa makron koodista on suoritettu, koska nuo sarakeotsikot on kirjoitettu välilehdelle.

Jos olet vähänkään ohjelmointitaitoinen, voisit yrittää selvittää ongelmaa VBA:n debuggerilla. Trace'lla pitäisi pystyä löytämään se komento, johon koodin suoritus tyssää ja siitä sitten yrittää päätellä jumittumissyytä.
Oma arvaukseni kuitenkin on että kyseessä on yhteensopivuusongelma käyttämäsi Office -version kanssa.

Näin etänä on melko vaikea sitä selvitellä ja se menee jo aika paljon tämän foorumin aihepiirin rajoillekin.

Kuten sanottu, kyllä vedonlyönti ilman tälläisiä härpäkkeitäkin onnistuu ihan hyvin, nämähän ovat vain 'mother's little helper' -osastoa.
Samat tiedot saa sitäpaitsi manuaalisestikin haettua betexplorer.com'in Results ja Fixtures sivustoilta. :wink:

Ei ole ihme että Micro5oft haluaa opettaa Visual Basic'iä meille kaikille. Koodithan toimii ainoastaan omalla koneella ja omilla ohjelmistoversioilla! :?

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

Joo, niinhän se, saa kyllä mun puolesta poistaa nämä(tai siirtää johonkin offtopic paikkaan) kun ei tällä "chatilla" mitään pysyvää tulevaisuuden arvoa kumminkaan ole. :)

justiinsa katoin vähän debuggerilla, ja tuossa ongelma vissiin löyty:

Koodi: Valitse kaikki

Selection.NumberFormat = "dd/mm/yyyy;@"
Taitaa vain toimia Suomessa tuo formaatti, paljon muualla ei sitä taideta käyttää, poikkeaa myös ISO 8601 standardista jonka pitäis toimia kaikkialla.

Vaihtamalla käyttöjärjestelmän valuutat/ajat/päivämäärät Suomen standardiin niin sain toimimaan :D, nyt vaan pikkuhiljaa tutkimaan

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

brainslicer kirjoitti:justiinsa katoin vähän debuggerilla, ja tuossa ongelma vissiin löyty:

Koodi: Valitse kaikki

Selection.NumberFormat = "dd/mm/yyyy;@"
Taitaa vain toimia Suomessa tuo formaatti, paljon muualla ei sitä taideta käyttää, poikkeaa myös ISO 8601 standardista jonka pitäis toimia kaikkialla.
Vaihtamalla käyttöjärjestelmän valuutat/ajat/päivämäärät Suomen standardiin niin sain toimimaan :D, nyt vaan pikkuhiljaa tutkimaan
Hyvää työtä brainslicer!
Tuon määrittelyn voi Suomessa korvata hyvin tällä muodolla:

Koodi: Valitse kaikki

Selection.NumberFormat = "dd.mm.yyyy;@"
Huomaa että määrittely esiintyy koodissa kahteen kertaan.

:D :wink:

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

hmm, ei kyllä tuo auttanut, pitäis varmaan olla vuosi ekana?
Date and time expressed according to ISO 8601:
Date 2011-07-21
Separate date and time in UTC: 2011-07-21 06:13Z
Combined date and time in UTC: 2011-07-21T06:13Z
Date with week number: 2011-W29-4
Ordinal date: 2011-202

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


S.Mäenala
Avatar
Jäsen
Viestit: 1190
Liittynyt: 18.01.2011, 19:17
Pisteitä: 3733
Paikkakunta: Kamppi

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja S.Mäenala »

brainslicer kirjoitti:hmm, ei kyllä tuo auttanut, pitäis varmaan olla vuosi ekana?
Tuo välimerkin vaihtaminen tuli mieleen kun kirjoitit että
Vaihtamalla käyttöjärjestelmän valuutat/ajat/päivämäärät Suomen standardiin niin sain toimimaan :D, nyt vaan pikkuhiljaa tutkimaan
Omalla koneella tuo muotoilu toimii millä tahansa erottimella (/, ., -) ja samoin riippumatta siitä käytetäänkö ISO 8601 -määritystä vai Suomessa tavallista päivä.kuukausi.vuosi -määritystä. Mulla koodi toimii itse asiassa vaikka kommentoin koko määrittelyn!

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


brainslicer
Jäsen
Viestit: 20
Liittynyt: 09.11.2010, 11:11
Pisteitä: 0

Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle

Viesti Kirjoittaja brainslicer »

S.Mäenala kirjoitti:
brainslicer kirjoitti: Omalla koneella tuo muotoilu toimii millä tahansa erottimella (/, ., -) ja samoin riippumatta siitä käytetäänkö ISO 8601 -määritystä vai Suomessa tavallista päivä.kuukausi.vuosi -määritystä. Mulla koodi toimii itse asiassa vaikka kommentoin koko määrittelyn!
kokeilin yksitelen astetuskia käyttöjärjestelmässä: aika, date jne eri muotoihin myös macron koodia muttei mitään tulosta syntynyt

ainut joka onnistui: "Regional and Language options" kokonaan Suomeks
kokeillin muutamia muita macroja, esim tuolta ilman ongelmia http://www.michaelwray.co.nz/sheets.html näköjään vaan tämä joka tuottaa ongelmia.

en tiädä mutta jotain ihmeelistä on jossakin ainakin, hehe
Mun arvaus on että jokin ei ole ISOn mukainen jossain, jos koodaus on non-ISO niin toimii vain niissä käyttöjärestelmissä mitkä tajuavat että on esim päivämäärä kyseessä.

esim FIN tajuaa FIN ja ISO ja SWE tajuaa SWE ja ISO, muttei tajua ollenkaan FIN päivämääristä joss ne ei alunperin oo jossakin kaikkien ymmärtämässä muodossa(ISO)

Pisteitä

Pisteitä yhteensä: 0. Antamasi peukut: 0.

Minikommentit


100% 200€ bonus librabet.com.

Katso kaikki vedonlyöntibonukset.

Vastaa Viestiin