| |
▼[名前なし] さん：
>▼クマ さん：
>>sheet1をリストボックスに表示しています。
>
>なんのためにですか？
>予約表を作っていて、ユーザーフォームから内容を記入してもらいsheet2に入力するようにしています。sheet１には予約が入っているかいないかだけを表示し、予約が入っているところには、●が表示されます。これをリストボックスを使ってユーザーフォームに表示しています。
>
>>セルに数式が入っています。
>
>どのセルにどんな数式が入っているですか？
>IF(Sheet2!c31="","","●")
>
>>１日たつと1/1の行がなくなり1/31のしたに2/1が表示されるようにしています。
>
>どのような方法でですか？
>Private Sub Workbook_Open()
Dim Ck As Variant
Dim xDy As Date
xDy = DateAdd("d", 29, Date)
With Worksheets("Sheet1") '←処理対象のシートを指定する
Ck = Application.Match(CLng(Date) - 1, .Range("B:B"), 0)
If Not IsError(Ck) Then
.Rows("2:" & Ck).Delete xlShiftUp
End If
With .Range("B65536").End(xlUp)
If .Value < xDy Then
.DataSeries xlColumns, xlChronological, , , xDy
End If
.EntireColumn.AutoFit
End With
.Activate
End With
End Sub
>
>>1/31が上に移動したとき、Ｃ３１にsheet2C32、Ｄ３１にsheet2D32・・・が入る
>>ようにしたいのですがどうすればいいでしょうか？
>
>今はどうしているのですか？
考え中です・・・他にいい方法ありましたらよろしくお願いします。
|
|
クマ
- 06/2/18(土) 10:43 -
