| |
▼Sour Apple さん：
こんにちは＾＾
見当外れのほげほげな回答をしたつんですorz
また、かみちゃんさんが登場してくださると思いますが・・・
ちと、リベンジ。
日付として比較できなければダメだったんですね＾＾；
でしたら、TextBoxの値の方を、
CDate(TextBox1.Value)
として、Date型に変換してあげれば、比較出来ると思います。
その際、Date型に変換できないような文字列を入力された場合のエラー処理が必要かとは思いますが・・・
あと、イマイチなさりたい処理がわかってないですが、
For文の中の、「.Cells(rRow, 1).Value」などの、「rRow」は
「ｉ」の間違いではないでしょうか？
「rRow」だと、常に最終行の一つ下の行を参照してることになりますが・・・・
また、ぼけた回答になってたらすみませんm(__)m
>▼かみちゃん さん：
>
>こんにちは。
>>TextBoxの日付が2009/3/10ならなんとなくわかるのですが、
>そのとおりですｌ
>
>>挿入位置の基準がわかりません。
>>もしかして、A3ではなく、A列の最終行（A4セル）という意味ですか？
>最終行の時もありますが、セルの日付と比較？して適切な位置に挿入したいのです。
>
>右も左もわからず作って見ます田。
>
>Private Sub CommandButton1_Click()
> Dim rRow As Long
> Dim i As Long
>
> With Worksheets("ﾒｲﾝ予定")
> rRow = .Cells(65536, 1).End(xlUp).Row + 1
> For i = rRow To 1 Step -1
> Select Case TextBox1.Text
> Case Is = .Cells(rRow, 1).Value ＜＜＜これが解らない！
> rRow = rRow + 1
> Exit For
> Case Is > .Cells(rRow, 1).Value
> Exit For
> Case Is < .Cells(rRow, 1).Value
> Rows(i).Insert shift:=xlDown
> Exit For
> End Select
> Next i
>
> .Cells(rRow, 1).Value = TextBox1.Value
>
> End With
>
>End Sub
>
>よろしくお願いします。
|
|
つん
- 09/3/10(火) 11:38 -
