Excel VBA質問箱 IV

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

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


34103 / 76732 ←次へ | 前へ→

【47844】入力方法の色々
質問  takashi  - 07/3/24(土) 3:19 -

引用なし
パスワード
   お願いします。
下記コードにて日付を入力しているのですが

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim 各々のセル As Range

  If Intersect(Target, Range("C28:C500")) Is Nothing Then
    Exit Sub
  End If
 
  Application.EnableEvents = False

  For Each 各々のセル In Intersect(Target, Range("C28:C500"))
    If IsNumeric(各々のセル.Value2) And 各々のセル.Value2 <> "" Then
      If 各々のセル.Value2 <= 31 Then
        If Day(Date) >= 25 Then
          各々のセル.Value = Format(DateSerial(Year(Date), Month(Date) + 1, Day(各々のセル.Value2) + 1), "gee.mm.dd")
        Else
          各々のセル.Value = Format(DateSerial(Year(Date), Month(Date), Day(各々のセル.Value2) + 1), "gee.mm.dd")
        End If
      End If
    End If
  Next

  Application.EnableEvents = True
End Sub
上記コードで入力した場合の数式バーの表示はH19.03.20です
仮に下記の様に手入力した場合は
H19/03/20数式バーに表示されるのは
2007/3/20となります。

H19/03/20とセルに直接入力したときに
数式バーに同じようにH19.03.20と表示するよう
上のコードに組み込むこと出来ませんか。
よろしくお願いします。
説明が下手かも?
0 hits

【47844】入力方法の色々 takashi 07/3/24(土) 3:19 質問
【47845】Re:入力方法の色々 ウッシ 07/3/24(土) 10:49 発言
【47846】Re:入力方法の色々 takashi 07/3/24(土) 11:05 発言
【47847】Re:入力方法の色々 ウッシ 07/3/24(土) 11:48 発言
【47848】Re:入力方法の色々 Hirofumi 07/3/24(土) 12:17 回答
【47849】Re:入力方法の色々 ウッシ 07/3/24(土) 12:24 発言
【47850】Re:入力方法の色々 takashi 07/3/24(土) 12:35 発言
【47854】Re:入力方法の色々 Hirofumi 07/3/24(土) 16:19 回答
【47873】Re:入力方法の色々 takashi 07/3/25(日) 1:15 お礼

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