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
- höpö höpö...
Takuulla toimii taulukossa, pitää vaan osata käyttää niitä.
https://www.dropbox.com/s/5z984r7fqx434wy/hönö2.mp4?dl=0
Keep EXCELing
@Kunde - Löytyy funktio jo Excel 4 versiosta alkaen... ;-)
GET.CELL(type_num, reference)
manuaalissa alkaen sivulta 339
manuaali funktioihin
https://exceloffthegrid.com/download/4095/
Keep EXCELLing
@Kunde - https://www.dropbox.com/s/xfo05g7pkpe3hlj/Hönö.mp4?dl=0
Keep EXCELing
@Kunde - https://www.dropbox.com/s/5z984r7fqx434wy/hönö2.mp4?dl=0
Keep EXCEling
@Kunde - https://www.dropbox.com/s/k550nu1i56olkr1/Hönö.mp4?dl=0
Keep EXCEling
@Kunde - Turhaa anonyymi mulle naljailet. Koodini toimii loistavasti, kuten videolta voit nähdä.
Anonyymin koodissa se ongelma oli eikä minun ja hän on koodissaan käyttänyt noita Keypress komentoja, jotka eivät ole luotettavia, eikä niitä olisi kovin suotavaa käyttää. - Kannattaa välttää noita Keypress komentoja koodissa, eivät toimi luotettavasti
- Videollani testi työkirja on suljettuna.
Melkoista kikkailua tuo koodi...
Virheen syy...
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/code-execution-has-been-interrupted?f1url=?appId=Dev11IDEF1&l=en-US&k=k(vblr6.chm1011317);k(TargetFrameworkMoniker-Office.Version=v16)&rd=true
Keep EXCEling
@Kunde - https://www.dropbox.com/s/uzq106xr4pv2cof/ScreenRecorderProject283.mp4?dl=0
Keep EXCELing
@Kunde - vanhoissa oli tuo 7 tasoa ja 2007 alkaen 64 tasoa
Tonhan pystyy kiertämään siten, että tekee ekana 7/64 tason jossittelun ja tallentaa sen nimellä ja seuraavat 7/64 ja tallentaa nimellä jne ja lopuksi sitten nimillä jossittelee.
Ei tietoa kuinka monta tasoa uudemmalla onnistuu, mutta tolla native booleanilla rajana on merkkien määrä solussa (32,767 merkkiä) - Et näköjään tiedä edes, mitä boolean funktiot ovat
- Simppeli ja selkeä kaava boolean jossitteluna...
=(B1>16)*(B1<53)*7,45 (B1>52)*(B1<63)*8,65 (B1>62)*(B1<69)*7,45 - olet kyllä tosi pihalla G-koodi postareista .
Se kirjoittaa G-koodia, kommentteja tai mitä tahansa haluat kirjoittaa tiedostoon...
malliksi hönölle ;-)
https://www.dropbox.com/s/jre5n487jtr1rrv/hönö.mp4?dl=0 - No kirjoittahan halusi datan EXCELiin johonkin tiettyihin soluihin ja toi sun Bash koodisi ei sitä tee, joten fiksaa se..
- Jos kiinnostaa voin tehdä korvausta vastaan...
- Älä viitsi jauhaa paskaa...
Tottakai ne pitää olla kommenttteina muutenhan ei ohjelma toimisi.
Postari laskee esim työstöajat ja rivikoodin alkuun lisätään ; merkki/tai joku merkki minkä tunnistetaan kommenttiriviksi tai rivin loppuun kommentiksi kutea alla olevasta koodin pätkästäni selviää.
Aloittaja on ihan oikeassa, toisin kuin sinä trollaaja.
G- kood tiedostoi on tosiaan puhdas .txt, joten siltä osin olet oikeassa ;-
Tossa malliksi 2003 vuodelta koodia Karibian risteilijälle tehdystä pianobaarin pöydän koodin alusta.
Luuletko, että nuo kommentit pitää kirjoittaa käsin... se siitä sun asiantuntemuksestasi.
; PÖYTÄJATKO.ANC
; Luotu:18 MAR 03 - 14:27
; Tyostoaika min : 1 Sec. 35
; Teralistaus
; T12 h12 L100 D8 TAPPI 8
; T13 h13 L100 D10 TAPPI 10
;
@ASYNC=1
@COLLISION=0
@VC=1
G90
G0 G79 Z0
G0 G79 Y0 W0
(DLY,0.5)
M500 M5 M20
E60=-1000 ;X arvo oikean paikoittamiseen
E61=-3000 ;X arvo vasemman paikoittamiseen
E63=-800 ;W/Y paikoitusarvo
E10=2 ;Oikea poyta
G0 G79 Z0
G79 Y0
E42= 0 ;Y origo
"INIZ"
E41= 0 ;X origo
E44= 19;Levyn paksuus
E45= 5.1 ;Jigin paksuus
E46= 501 ;Valittu tyostopaa
G16XY
G0 G79 XE60 Y0 Z0
M70
M0
E1 = TIM
E40= 1 ;Tyopoyta: 1=oikea 2=vasen
(UAO,E40)
E44 = E44 E45
; PORAUS
; TAPPI 8Halkaisija 8
jne
Keep EXCELing
@Kunde - Löytyy kaikki tarvittavat tiedot kyllä G koodista... ;-)
- Perus koodiini helppo lisätä noi esiittämäsi "lisätoiveet"
Keep EXCELing
@Kunde - Toimii varmasti, jos olet asentanut koodipätkät oikeisiin moduuleihin ohjeiden mukaan ja testannut solualuetta C3:C10..
Vilutaa alueen soluja sekunnin välein, jos solun arvo=0.
Keep EXCEling
@Kunde - Nyt toimii alueella A1:A10, mutta helppo lisätä koodissa tarvittavia alueita tai
soluja
ko. taulukon moduuliin...
Option Explicit
Dim VilkutusSolu As Boolean
Dim Vilkuta As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Solu As Range
Dim Osoite As String
Set Alue = Range("A1:A10")
VilkutusSolu = False
For Each Solu In Alue
If Solu.Value = 0 Then
VilkutusSolu = True
If Len(Osoite) > 0 Then
Osoite = Osoite & "," & Solu.Address
Else
Osoite = Osoite & Solu.Address
End If
End If
Next
If VilkutusSolu = True And Vilkuta = False Then
Set Alue = Range(Osoite)
Vilkuta = True
AloitaVilkutus
Else
If VilkutusSolu = True And Vilkuta = True Then
LopetaVilkutus
Set Alue = Range(Osoite)
AloitaVilkutus
Else
If VilkutusSolu = False And Vilkuta = True Then
LopetaVilkutus
Vilkuta = False
End If
End If
End If
End Sub
tavalliseen moduuliin...
Option Explicit
Public Alue As Range
Dim SeuraavaAika As Double
Sub AloitaVilkutus()
With Alue.Interior
If .ColorIndex = 3 Then
.ColorIndex = xlNone
Else
.ColorIndex = 3
End If
End With
SeuraavaAika = Now TimeSerial(0, 0, 1)
Application.OnTime SeuraavaAika, "AloitaVilkutus", , True
End Sub
Sub LopetaVilkutus()
Alue.Interior.ColorIndex = xlNone
Application.OnTime SeuraavaAika, "AloitaVilkutus", , False
End Sub
Keep EXCELing
@Kunde