エケベリアの葉挿し

ちょっと季節的に遅かったかもしれませんが、エケベリアが徒長していたので、これを機に葉挿しに挑戦します。

順調にいけば、2か月くらいで目が出るかなぁ

コードをかきました

Sub siri()
 Dim N1 As Double
 Dim N2 As Double
 Dim Lion As Integer
 
 Lion = 10

For counter = 1 To Lion
 
 Sheets("Sheet1").Cells(2, counter).Value = Sheets("Sheet1").Cells(1, counter).Value

Next

For Neko = 1 To Lion

For Nezumi = Neko To Lion

N1 = Sheets("Sheet1").Cells(2, Neko).Value
N2 = Sheets("Sheet1").Cells(2, Nezumi).Value

If N2 <= N1 Then
 Sheets("Sheet1").Cells(2, Neko).Value = N2
 Sheets("Sheet1").Cells(2, Nezumi).Value = N1
End If

Next
Next




Dim N3 As Double

N3 = Sheets("Sheet1").Cells(3, 1).Value

Hitsuji = 0
Tori = 10

Do Until Tori - Hitsuji < 1
 Penguin = Tori + Hitsuji / 2
 
 If N3 < Sheets("Sheet1").Cells(2, Penguin).Value Then
    Tori = Penguin - 1
 ElseIf N3 > Sheets("Sheet1").Cells(2, Penguin).Value Then
    Hitsuji = Penguin + 1
 Else
  Sheets("Sheet1").Cells(4, 1).Value = 0
 Exit Do
 
 End If
 Loop
 
 
End Sub

ガジュマルを植え替えました

 

Paccotという特殊な鉢に入って売られていたガジュマルを、植え替えました。

元々水耕栽培されていたものなので、しばらくは水多めで様子をみたいと思います。

アイビーのハイドロカルチャー

水挿しして1ヶ月くらい。根がたんまり伸びていたので、アイビーをハイドロカルチャーに植え替えました。

ゼオライトだけで植え替えました。

どうなるかわからないけど、しばらく様子見……。

サンスベリアの株分け

花が咲いたこのサンスベリアを、株分けしました。

三鉢くらいかなーとか思ってたら、とんでも無いことに。

全部で八株！ひゃー！

結果、一鉢が八鉢になるという……

里親になってくださる方を募集中です！

咲いた！！

咲いたよ！サンスベリアの花が！

サンスベリアのつぼみとアイビー

サンスベリアのつぼみがそろそろ咲きそうですね。しばし辛抱。

アイビーは、葉っぱが一枚もなかった茎だけのものとか、葉っぱが一二枚のものとかに水をやっていたら、新しい葉っぱが出てきました！

生命の神秘を感じる…