kunde
Isaan Rules WFF CCC
If you walked away smiling-then for you the price was right
Keep Exceling
Suosikkibändit/artistit: Queen, Rammstein, genesis, Bruce Bringsteen, Kino, Mandref Mann Earth band Who
Lempikirjat: ohjelmointi...
Suosikkipalstat Suomi24 Keskusteluissa: EXCEL, Kivitalot, EPS
En pidä: pakkanen ja loskakelit
Ruoka & juoma: loimulohi ja valkkari
Linkit: http://www.kundepuu.com, Khorat
Koulutus: ---
Ammatti: Tiede/teknologia
Työskentelen: freelancer
Ase tai siviilipalvelus: yliluutnantti
Siviilisääty: Varattu
Lapset: ---
Hakusanat: Thaimaa, korat, Excel, VBA, ACAD, CNC, Polyurea, EPS, MgO elementti
Liittynyt sitten
Muokkaa profiilia7 aloitusta · 1377 kommenttia
- Lisää nimet ja viittauksessa laitat nimille arvot
Nimi=Omena
Viitaus=1
ja sitten vaan soluuun mihin haluat tuloksen laitat kaavan esim.
=päärynä*mango
Keep EXCELing
@Kunde - EPS helppo ja vaivaton
Leikkasin CNC lankaleikkurillani paneelit, listat yms.
Tarkoitus oli pinnoittää aidolla vilulla, mutta en saanut ajoissa viilua, joten hoidin sitten polyurealla jutut.
Polyureallahan saa EPS:tä kivikovaa...
Seuraavaan projektiin tulee sit aidolla viilulla pinnoitetua EPS:ää.
Mallimökki tehtiin 100 mm EPS MgO (10 mm MgO 80 mm EPS 10 mm MgO) eltsuista. Ulkopuolelle tuli 100 mm leveää ja 25 mm paksua panelijäljitelmää pystyyn sekä vaakaan, peitelistoja sekä koristelistoja.
U-arvotkin kohillaan ja EPS paksuudellahan sitä saa parannettua helposti ja tarvetta sille onkin tämmösillä helteillä kuin nytkin 40 C (Thaimaa)
Leveydet, paksuudet ja profiilit saa just semmoset kuin itse haluu ja noita puulajejakin on kymmenittäin ja lopuksi värittömällä UV-suoja polyurealla kellastumisenesto.
samoin EPS MgO eltsut helppo tehdä just semmosille U arvoille kun tarttee ja paloluokitukset saa kanssa kohillaan
3 mm paksu MgO levy vastaa paloluokaltaan 13 mm Gyprocia ja saumoissa on I- profiili lasikuitupalkit,joten monikerrosratkaisut onnistuu helposti.
Lujuus sitten ihan eriluokassa kuin Gyproc levyllä. Kuka semmosta levyä enää käyttääkään?
Kaikki rakenneosat talossa on kierrätettävää ja betonia ei tartte missään.
polyurea... ?, sitäpä ei siellä suomenmaalla moni edes tiedä ja sotkee senkin sit polyuretaaniin...
jos kiinnostaa niin laita viestiä @kunde (suomi24) - korjaa noi rivit koodissa, mulla oli vaan 3 diaa ja siksi unohdin fiksata ne tohon mallikoodiin...
Set PPSlide = PPPres.Slides.Add(2, ppLayoutBlank)
PPApp.ActiveWindow.View.GotoSlide 2
mutta ne
Set PPSlide = PPPres.Slides.Add(26, ppLayoutBlank)
PPApp.ActiveWindow.View.GotoSlide 26
Keep EXCELing
@Kunde - tossa tommonen perusjutska...
helppo sitä fiksata
Sub ChartToPresentation()
' muista referenssi Powerpointiin...
'tarkista nimet
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim PPShape As PowerPoint.Shape
Dim Teksti1 As String
Dim Teksti2 As String
Sheets(1).ChartObjects("Chart 1").Activate
Teksti1 = Sheets(1).Range("A1")
Teksti2 = Sheets(1).Range("A2")
Set PPApp = GetObject(, "Powerpoint.Application")
Set PPPres = PPApp.ActivePresentation
PPApp.ActiveWindow.ViewType = ppViewSlide
PPApp.ActiveWindow.View.GotoSlide 26
Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
PPSlide.Delete
Set PPSlide = PPPres.Slides.Add(2, ppLayoutBlank)
PPApp.ActiveWindow.View.GotoSlide 2
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
PPSlide.Shapes.Paste.Select
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
Set PPShape = PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10#, 250#, 400#, 36#)
PPShape.TextFrame.TextRange.Text = "- " & Teksti1
Set PPShape = PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10#, 280#, 400#, 36#)
PPShape.TextFrame.TextRange.Text = "- " & Teksti2
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
End Sub
Keep EXCELing
@Kunde - kyllähän toi onnistuu, mutta tarvitsee tietää onko kaaviot upotettu taulukkoon vaiko omana taulukkona ja sitten lisätäänkö Powerpointissa uuteen diaan vaiko olemassa olevaan ja mihin kohtaan (objektiin) tekstit liitetään jne...
eli kyssäreitä riittää ja vaatii kyllä mielellään koko powerpoint esityksen malliksi
mutta teepä lisää hakuja ja tee pala palalta ettiäpäin...
Keep EXCELing
@Kunde - jos tohon asti oot päässyt, niin sitten pitäs onnata helposti
1. laita johonkin soluun luku1
2. kopioi solu
3. maalaa korjattava alue
4. klikkaa hiiren oikealla ja valikosta liitä käyttäen paste special/paste special ja avautuvasaa valikosta sitten ruksaat multiply ja Ok
toinen tapa on laitaa soluun 0 ja sitten käyttää vaihtoehtoa add
kolmas tapa VBA (fiksuin...)
Keep EXCELing
@Kunde - miksi pitää luupata koodissasi???
no uuteen kyssäriin löytyy vastaus noista
http://keskustelu.suomi24.fi/search/s24search/(haejasiirrä OR etsijasiirrä) sort_name:"kunde"?sort=created&perpage=25&term_keywords=
eli haetaan tietoa ja jos palautuu nothing (ei löytynyt ) siirretään muuten skipataan
Keep EXCELing
@Kunde - paljon coolimpi ratkaisu...
http://www.j-walk.com/ss/excel/tips/tip48.htm
Keep EXCELing
@Kunde - taulukon moduuliin missä se laskuri on....
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B1") = 30 Then
Range("B9:B19").Copy Worksheets("yhteenveto").Range("B65536").End(xlUp).Offset(1, 0)
Range("G9:G19").Copy Worksheets("yhteenveto").Range("G65536").End(xlUp).Offset(1, 0)
End If
End Sub
Keep EXCELing
@Kunde - VBA:lla onnistuu helpostikin.....
mutta nyt aika ei riitä tekeen malliakoodia sulle, ehkä joku muu neuvoo miten...
Keep EXCELing
@Kunde... - Sheets("DATA1").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Data1 solujen arvot muutetaan arvoiksi.
eli jos esim. solussa on kaava =A1 A2 kaava poistetaan ja kaavan tilalle laskukaavan tulos
Range("E6:H10000").Select
Application.CutCopyMode = False
Selection.ClearContents
Alueen E6:H10000 sisältö tyhjennetään
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
suojataan taulukko
hieman selkeemmin sama
With Sheets("DATA1")
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues
.Range("E6:H10000").ClearContents
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=541&p=834#p834
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=541
Keep EXCELing
@Kunde - http://www.kundepuu.com/viewtopic.php?f=155&t=412&p=492&hilit=tietokanta#p492
http://www.kundepuu.com/viewtopic.php?f=155&t=62&p=64&hilit=tietokanta#p64
http://www.kundepuu.com/viewtopic.php?f=155&t=20&p=22&hilit=tietokanta#p22
etuna tossa "tietokannassa " on se, että se on nimetty alue ja dynaaminen eli voit lisätä ja poistella tietoja ja aina "tietokanta" oikean kokoinen
Keep EXCELing
@Kunde - helposti toteutettvissa VBA:lla
Auto_Open ja Auto_Close koodiin tarvittavat jutut
sitten kuvat laitat oikeeseen paikkaan ja niiden kaikkien .visible arvot =False. Solun arvot perusteella sitten muutat ko. kuvan .visible arvon =True
Keep EXCELing
@Kunde - ko. taulukon moduuliin...
Option Explicit
Private Sub Worksheet_Calculate()
If Range("E1") = 1 Then
Aloita
Else
Lopeta
End If
End Sub
moduuliin...
Option Explicit
Dim Ok As Boolean
Sub Aloita()
Ok = True
Application.OnTime Now() TimeValue("00:00:01"), "Ajastin"
End Sub
Sub Lopeta()
Ok = False
Worksheets("Sheet1").Range("F1").Value = 0
End Sub
Sub Ajastin()
If Ok Then
Worksheets("Sheet1").Range("F1").Value = Worksheets("Sheet1").Range("F1").Value 1
Application.OnTime Now() TimeValue("00:00:01"), "Ajastin"
End If
End Sub
KeepEXCELing
@Kunde - ilman kaavoja...
1. Valitse numeroalue
2. Valikosta Data/Test to Columns
3. Ekalla sivulla next
tokalla sivulla ruksi other ja boksiin ja next
kolmannella sivulla klikkaa Advanced... ja avautuvassa valikossa varmista, että Trailing Minus for Negative Numbers on valittuna ja OK ja FINISH
Keep EXCELing
@Kunde
HAUSKAA JOULUA! - entäs sitten kun lisään tai poistan rivejä...
ei se helppous ole niin yksiselitteistä ;-)
kandee testata ennenkuin postaa
Keep EXCELing
@Kunde - 1.
moduuliin...
Sub Auto_Open()
MsgBox "tiedosto sisältää salaista tietoa..."
End Sub
2.
moduuliin...
Sub Kommentti()
Dim solu As Range
On Error Resume Next
For Each solu In Range("A1:A10")
solu.Comment.Delete
solu.AddComment
solu.Comment.Text Text:="kunde lisäsi kommentteja alueelle:" & Chr(10) & "Kommenttia pukkaa..."
Next
End Sub
Keep EXCELing
@Kunde - tee VBA:lla oma käyttäjä funktio ja homma toimii...
Keep EXCELing
@Kunde