Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46693 / 76732 ←次へ | 前へ→

【35007】Re:日にちが経過しても数式が入るようにしたい
発言  クマ  - 06/2/18(土) 10:43 -

引用なし
パスワード
   ▼[名前なし] さん:
>▼クマ さん:
>>sheet1をリストボックスに表示しています。
>
>なんのためにですか?
>予約表を作っていて、ユーザーフォームから内容を記入してもらいsheet2に入力するようにしています。sheet1には予約が入っているかいないかだけを表示し、予約が入っているところには、●が表示されます。これをリストボックスを使ってユーザーフォームに表示しています。
>
>>セルに数式が入っています。
>
>どのセルにどんな数式が入っているですか?
>IF(Sheet2!c31="","","●")
>
>>1日たつと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が上に移動したとき、C31にsheet2C32、D31にsheet2D32・・・が入る
>>ようにしたいのですがどうすればいいでしょうか?
>
>今はどうしているのですか?
考え中です・・・他にいい方法ありましたらよろしくお願いします。

0 hits

【34991】日にちが経過しても数式が入るようにしたい クマ 06/2/17(金) 18:01 質問
【35006】Re:日にちが経過しても数式が入るようにし... [名前なし] 06/2/18(土) 2:54 発言
【35007】Re:日にちが経過しても数式が入るようにし... クマ 06/2/18(土) 10:43 発言
【35018】Re:日にちが経過しても数式が入るようにし... [名前なし] 06/2/18(土) 16:12 回答
【35062】Re:日にちが経過しても数式が入るようにし... クマ 06/2/20(月) 15:37 お礼
【35017】Re:日にちが経過しても数式が入るようにし... Kein 06/2/18(土) 14:01 発言

46693 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free