昨日Excelファイルをアップロードしようと思ったが、ファイル形式が対応していないためにできなかった。自由度が非常に高いFC2のブログサービスだが、ちょっとした不都合があるようなので、その解消のためにホームページを作ってみた。

作ったホームページはこちら→カポックの趣味一覧

「作った」というより、作りかけです。htmlがよく分からないため、これだけ作るのにも時間がかかってしまった。

→テンプレートを使ってデザインを更新

2010/10/3

このようなテスト得点のデータを処理。





落第点のセルを赤く表示するには


Sub 落第点表示()
    Dim i As Integer
    Dim j As Integer
    Dim thre As Double
   
    thre = 50
   
    For i = 3 To 7
        For j = 3 To 5
            If (Cells(i, j).Value < thre) Then
                Cells(i, j).Select
                With Selection.Interior
                    .Color = 255
                End With
            End If
        Next j
    Next i
   
    MsgBox "生徒得点のうち" & thre & "点以下を赤で示しました."
End Sub



Sub 色分け初期化()
    Range("C3 : E7").Select
    With Selection.Interior
        .Color = RGB(255, 235, 255)
        End With
End Sub

街場の教育論

この本後半が面白い。「こういう考え方ができるのか。」と新鮮な気持ちで楽しめる主張がたくさんある。前半は...厳つく筋道立てて主張しているが、私はあまり共感できなかった。

フリーター、家を買う。

就職した会社を3ヶ月で辞めてしまった主人公。母が重度の鬱病になったことを契機に、再就職するために奮闘する。人間の感情を自然に描写しているので、主人公に共感できる部分も多いのでは？

笑いあり、涙あり、心温まる物語。