| |
▼Kein さん：
>>名前の欄と日の欄の間に2行作り、1行目に入る日（2）を、2行目に帰る日（5）を
>>入力すると、上記の様に○で表示
>
> A B C D E
>1 氏名 宿泊開始 宿泊終了 1 2
>2 田中 2 5
>3 中村
>
>というような表になるとすれば
>
>Private Sub Worksheet_Change(ByVal Target As Range)
> Dim CkD As Integer, Sdy As Integer, Edy As Integer
> Dim TR As Long
> Dim Flg As Boolean
>
> CkD = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
> With Target
> If .Column <> 3 Then Exit Sub
> If IsEmpty(.Offset(, -2).Value) Then
> Flg = True: GoTo ELine
> End If
> If WorksheetFunction.Count(.Offset(, -1).Resize(, 2)) < 2 Then
> Flg = True: GoTo ELine
> End If
> If .Offset(, -1).Value > .Value Then
> Flg = True: GoTo ELine
> End If
> If .Value > CkD Then
> Flg = True: GoTo ELine
> End If
> TR = .Row
> Sdy = CInt(.Offset(, -1).Value) + 3
> Edy = CInt(.Value) + 3
> End With
> Rows(TR).Font.ColorIndex = xlColorIndexAutomatic
> Application.EnableEvents = False
> Cells(TR, 4).Resize(, 31).ClearContents
> If Sdy = Edy Then
> With Cells(TR, Sdy)
> .Value = "○": .Font.ColorIndex = 3
> End With
> Else
> With Range(Cells(TR, Sdy), Cells(TR, Edy - 1))
> .Value = "○": .Font.ColorIndex = 3
> End With
> With Cells(TR, Edy)
> .Value = "◎": .Font.ColorIndex = 5
> End With
> End If
>ELine:
> If Flg Then Target.Offset(, -1).Resize(, 2).ClearContents
> Application.EnableEvents = True
>End Sub
>
早々ありがとうございます。
想像していたとおりの答えありがとうございました。
が、いくつか教えていただきたいのですが
１.セルC1に宿泊終了入力したらB1の宿泊開始も消えてしまいます・・・。
２．〜30は表示されるのですが、〜31にした場合は表示されません・・・。
３．開始の日は○（赤）ではなく、●（赤）にしたいのですが・・・。
４．例えば月をまたぐばあいは31日の欄は○（赤）にしたいのですが・・・。
５.2〜2と入力した場合▲の表示がでるようにしたいのですが・・・。
せっかく答えていただいたのに沢山の質問をして申し訳ありません・・・。
もしよろしければお答え下さい。
|
|
初心者
- 06/6/20(火) 11:30 -
