Hi,
nach dem es hip ist, alles über Smartphone zu steuern, habe ich mich dieser Herausforderung gestellt.
Mit Excel-VBA-Kenntnissen und mit Hilfe von "Teamviewer" ist es mir zumindest in technischer Hinsicht gelungen in der Gegenwart anzukommen. Der 14KW-Brenner gehorcht jetzt einer virtuellen Schaltfläche von 4qmm.
Ja, es macht richtig Spaß mit Klick auf die winzigen Funktionstasten den Prozess zu steuern.
(Für optisch Weitsichtige ist das Bild natürlich zoombar).
Excel-Brauerei mit Smartphonesteuerung
Re: Excel-Brauerei mit Smartphonesteuerung
Ich weiß das dein Post sarkastisch gemeint ist, aber Steuerungen (wie meine) die extra für ein Smartphone programmiert wurden, machen tatsächlich Spaß. Die Schaltflächen sind auch etwas größer ;)Deothor hat geschrieben:Hi,
nach dem es hip ist, alles über Smartphone zu steuern, habe ich mich dieser Herausforderung gestellt.
Mit Excel-VBA-Kenntnissen und mit Hilfe von "Teamviewer" ist es mir zumindest in technischer Hinsicht gelungen in der Gegenwart anzukommen. Der 14KW-Brenner gehorcht jetzt einer virtuellen Schaltfläche von 4qmm.
Ja, es macht richtig Spaß mit Klick auf die winzigen Funktionstasten den Prozess zu steuern.
(Für optisch Weitsichtige ist das Bild natürlich zoombar).
Re: Excel-Brauerei mit Smartphonesteuerung
Hier was zum kucken.
https://youtu.be/YjTnuAiSjEM
https://youtu.be/YjTnuAiSjEM
Re: Excel-Brauerei mit Smartphonesteuerung
Der Tröd ist zwar etwas älter, aber vielleicht habt ihr eine Lösung für mich.
In meinem Excel-Brauplaner wird anhand der Schüttung auch die Farbintensität des Bieres (EBC) berechnen. An dieser Stelle hätte ich gerne ein paar Zellen, die die Farbe auch anzeigen. Über Bedingte Formatierung ist nichts machbar, da diese ja limitiert sind. Gibt es zufällig eine einfache Formellösung? Mit VBA und Co. kenne ich mich so aus.
Gruß
Robert
In meinem Excel-Brauplaner wird anhand der Schüttung auch die Farbintensität des Bieres (EBC) berechnen. An dieser Stelle hätte ich gerne ein paar Zellen, die die Farbe auch anzeigen. Über Bedingte Formatierung ist nichts machbar, da diese ja limitiert sind. Gibt es zufällig eine einfache Formellösung? Mit VBA und Co. kenne ich mich so aus.
Gruß
Robert
Alles was du hast, hat irgendwann dich.
- afri
- Posting Freak
- Beiträge: 5874
- Registriert: Donnerstag 17. Januar 2013, 21:19
- Wohnort: 31840 Hessisch Oldendorf
Re: Excel-Brauerei mit Smartphonesteuerung
Formel fällt mir dazu keine ein, aber ein kleines Makro habe ich geschrieben:Robsen hat geschrieben:Gibt es zufällig eine einfache Formellösung? Mit VBA und Co. kenne ich mich so aus.
Dieses Makro schreibt dir in 26 untereinander liegende Zellen von dunkel nach hell einen Farbverlauf. Ist das sowas, was du suchst?Sub test()
For i = 1 To 255 Step 10
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = RGB(i, 0.5 * i, 0)
End With
ActiveCell.Offset(1, 0).Activate
Next i
End Sub
Achim
Bier ist ein Stück Lebenskraft!
- bierfaristo
- Posting Freak
- Beiträge: 520
- Registriert: Freitag 4. November 2016, 19:44
Re: Excel-Brauerei mit Smartphonesteuerung
Das Makro ändert die Zellfarbe von A1 durch die Eingabe von dem in A1 eingegebenen EBC-Wert. Zwischen 0 in 80 passt es in etwa. Danach wird's erst grün und dann bunt. Die Formeln für R,G und B bedürfen noch ein paar Korrekturen.Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim R, G, B
R = Range("A1").Value ^ 2 * 0.0253 - Range("A1").Value * 5.735 + 282.48
G = Range("A1").Value ^ 2 * 0.0647 - Range("A1").Value * 8.5522 + 283.29
B = Range("A1").Value ^ 2 * 0.0101 - Range("A1").Value * 1.9456 + 92.355
If R < 0 Then R = 0
If R > 255 Then R = 255
If G < 0 Then G = 0
If G > 255 Then G = 255
If B < 0 Then B = 0
If B > 255 Then B = 255
With Range("A1").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = RGB(R, G, B)
End With
End Sub
Christian
Fühle mich oft unverstanden, bin vermutlich ein Genie.