Excel VBA質問箱 IV

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

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


38748 / 76732 ←次へ | 前へ→

【43117】Re:1と入力でひとつき前の1日と表示
回答  りん E-MAIL  - 06/10/2(月) 19:29 -

引用なし
パスワード
   kazu さん、こんばんわ。

> セルC7に表示するにはどうすればいいのですか。
>  よろしくお願いします。
WorksheetのChangeイベントに以下を記述
Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Count = 1 And .Address = "$C$7" Then
      Application.EnableEvents = False
      Select Case .Value2
        Case 1 To 31
          .Value = DateSerial(Year(Date), Month(Date) - 1, .Value2)
        Case Else
      End Select
      Application.EnableEvents = True
    End If
  End With
End Sub

こんな感じです。
前回言い忘れた注意としては、今月(10月)に31と入力すると、9月の31日目→10月1日になります。
0 hits

【43109】1と入力でひとつき前の1日と表示 kazu 06/10/2(月) 14:39 質問
【43113】Re:1と入力でひとつき前の1日と表示 りん@通りすがり 06/10/2(月) 16:15 回答
【43114】Re:1と入力でひとつき前の1日と表示 kazu 06/10/2(月) 17:09 発言
【43117】Re:1と入力でひとつき前の1日と表示 りん 06/10/2(月) 19:29 回答
【43125】Re:1と入力でひとつき前の1日と表示 kazu 06/10/3(火) 0:24 お礼

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