久留米ツツジ

植物のこととその時取り組んでいることとか

多肉の日向ぼっこ

久しぶりに晴れたので、多肉類を日向ぼっこさせてます。

サボテン2つ増えました!

f:id:ritsu1992:20160917132219j:plain

エケベリアの葉挿し

f:id:ritsu1992:20160801131154j:plain


ここまでにょきにょき伸びてきました〜

根も順調に伸びてきています

でもまだ様子見かな



エケベリアの葉挿し

f:id:ritsu1992:20160623154109j:plain

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

順調にいけば、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


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

f:id:ritsu1992:20160611192244j:plain 

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

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

 

 

 

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

f:id:ritsu1992:20160610132146j:plain


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

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

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