Subpage under development, new version coming soon!
Subject: Abi ehk
Kas keegi sokkerist on amazon.com-st midagi tellinud kui on, siis sooviksin teada kuidas seal maksmine ja kauba kohale toimetamisega lood on.
mis mõttes kuidas?
hirmkallis on
midagi tellid siis soovitaks ühistellimust või midagi väga kallist osta:P
maksmine peaks olema krediitkaardiga ikka
(edited)
hirmkallis on
midagi tellid siis soovitaks ühistellimust või midagi väga kallist osta:P
maksmine peaks olema krediitkaardiga ikka
(edited)
Sub vahemaa()
Const v = 384000
Dim p
Do
Sheets("Too").Select
p = InputBox("Palun sisesta vahemaa Maalt Kuule! ")
Sheets("Valjund").Select
If p = 0 Then Exit Sub
If p > v + v * 0.05 Then
Sheets("Liides").Select
MsgBox ("Teie pakutud vahemaa on suurem, kui õigevahemaa. Proovi palun uuesti!")
End If
If p < v - v * 0.05 Then
Sheets("Liides").Select
MsgBox ("Teie pakutud vahemaa on väiksem, kui õigevahemaa. Proovi palun uuesti!")
End If
If p < v + v * 0.05 And p > v - v * 0.05 Then
Dim rng0 As Range
Set rng0 = Sheet3.Range("f4")
rng0(1) = p
MsgBox ("Teie vastus on korrektne!")
Exit Sub
End If
Loop
End Sub
_______________________________________________________
See on siis exceli visual basicus tehtud. On vaja nupule vajutada ja pakkuda kui suur on vahemaa maalt kuule ja kui eksimus on üle 5% siis peab uuesti pakkuma. Kui eksimus on väiksem vastab et on õige.
Keegi oskab öelda mis siin vale on?
Const v = 384000
Dim p
Do
Sheets("Too").Select
p = InputBox("Palun sisesta vahemaa Maalt Kuule! ")
Sheets("Valjund").Select
If p = 0 Then Exit Sub
If p > v + v * 0.05 Then
Sheets("Liides").Select
MsgBox ("Teie pakutud vahemaa on suurem, kui õigevahemaa. Proovi palun uuesti!")
End If
If p < v - v * 0.05 Then
Sheets("Liides").Select
MsgBox ("Teie pakutud vahemaa on väiksem, kui õigevahemaa. Proovi palun uuesti!")
End If
If p < v + v * 0.05 And p > v - v * 0.05 Then
Dim rng0 As Range
Set rng0 = Sheet3.Range("f4")
rng0(1) = p
MsgBox ("Teie vastus on korrektne!")
Exit Sub
End If
Loop
End Sub
_______________________________________________________
See on siis exceli visual basicus tehtud. On vaja nupule vajutada ja pakkuda kui suur on vahemaa maalt kuule ja kui eksimus on üle 5% siis peab uuesti pakkuma. Kui eksimus on väiksem vastab et on õige.
Keegi oskab öelda mis siin vale on?
Sub vahemaa()
Const v = 384000
Dim p As String
Do
Sheets("Too").Select
p = InputBox("Palun sisesta vahemaa Maalt Kuule! ")
Sheets("Valjund").Select
If p = 0 Then Exit Sub
If p > v + v * 0.05 Then
Sheets("Liides").Select
MsgBox ("Teie pakutud vahemaa on suurem, kui õige vahemaa. Proovi palun uuesti!")
End If
If p < v - v * 0.05 Then
Sheets("Liides").Select
MsgBox ("Teie pakutud vahemaa on väiksem, kui õige vahemaa. Proovi palun uuesti!")
End If
If p < v + v * 0.05 And p > v - v * 0.05 Then
Dim rng0 As Range
Set rng0 = ActiveSheet.Range("f4")
rng0(1) = p
MsgBox ("Teie vastus on korrektne!")
Exit Sub
End If
Loop
End Sub
Nõnda paistab töötama; pole ammu exceli vb-t näppinud..
Const v = 384000
Dim p As String
Do
Sheets("Too").Select
p = InputBox("Palun sisesta vahemaa Maalt Kuule! ")
Sheets("Valjund").Select
If p = 0 Then Exit Sub
If p > v + v * 0.05 Then
Sheets("Liides").Select
MsgBox ("Teie pakutud vahemaa on suurem, kui õige vahemaa. Proovi palun uuesti!")
End If
If p < v - v * 0.05 Then
Sheets("Liides").Select
MsgBox ("Teie pakutud vahemaa on väiksem, kui õige vahemaa. Proovi palun uuesti!")
End If
If p < v + v * 0.05 And p > v - v * 0.05 Then
Dim rng0 As Range
Set rng0 = ActiveSheet.Range("f4")
rng0(1) = p
MsgBox ("Teie vastus on korrektne!")
Exit Sub
End If
Loop
End Sub
Nõnda paistab töötama; pole ammu exceli vb-t näppinud..
mis marki telefoniga tegu ja mis juhtus
(edited)
(edited)
Enda telefon Sony Ericsson w810i ja kukkus vetsu potti .. ei ole kindel kas aku lühises või kõik pees.
Ja tuttaval oli telefon kunagi ammu vette kukkunud ning nüüd andis järsku otsad. Mudel Motorola V3
Ja tuttaval oli telefon kunagi ammu vette kukkunud ning nüüd andis järsku otsad. Mudel Motorola V3
Veekahjustuse puhul soovian minna Kadaka tee 72 II-ne korrus. Seal asub siis firma nimega Sevarta. Antud juhul teevad nad keemilise peasu mille hinnaks jämedalt 250.-
(edited)
(edited)
Räägin veidi omast kogemusest.
Vastus e-maili aadressilt admins@sokker.org võib tulla kiiresti või palju hiljem, olenedes mõnest lihtsast asjast.
1. Oleneb, mis keeles sa oled kirjutanud. Kui kirjutad Eesti keeles, võib võtta palju aega, enne kui leitakse keegi kes su kirja tõlgib (kasutatakse kas linguisti, moderaatori või aegajalt ka mõne endise admini abi), või heal juhul saad kohe vastuse: "Please write to us in english. If you don't know english, please ask someone to help you".
2. Oleneb, kas su kirjas on üleüldse mõni küsimus. Kui oled lihtsalt saatnud adminnidele informatsiooni, siis vahel ehk lihtsalt unustatakse tänuks vastus saata.
3. Oleneb sinu probleemi tõsidusest. Palju on küsimusi, mis võetakse arutlusele administraatorite vahel ning kui vaidlus venib....... Siis venib.
4. Kurb aga tõsi - Oleneb palju on lugemata kirju adminnidel. Halvematel päevadel on neid sadu.
Loodan, et mu vastus on pisutki kasulik :)
(edited)
Vastus e-maili aadressilt admins@sokker.org võib tulla kiiresti või palju hiljem, olenedes mõnest lihtsast asjast.
1. Oleneb, mis keeles sa oled kirjutanud. Kui kirjutad Eesti keeles, võib võtta palju aega, enne kui leitakse keegi kes su kirja tõlgib (kasutatakse kas linguisti, moderaatori või aegajalt ka mõne endise admini abi), või heal juhul saad kohe vastuse: "Please write to us in english. If you don't know english, please ask someone to help you".
2. Oleneb, kas su kirjas on üleüldse mõni küsimus. Kui oled lihtsalt saatnud adminnidele informatsiooni, siis vahel ehk lihtsalt unustatakse tänuks vastus saata.
3. Oleneb sinu probleemi tõsidusest. Palju on küsimusi, mis võetakse arutlusele administraatorite vahel ning kui vaidlus venib....... Siis venib.
4. Kurb aga tõsi - Oleneb palju on lugemata kirju adminnidel. Halvematel päevadel on neid sadu.
Loodan, et mu vastus on pisutki kasulik :)
(edited)