Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10252 / 76734

←次へ　｜　前へ→


	【72032】Re:日付があるかどうか判断して・・・

しんく - 12/5/17(木) 21:09 -


	引用なし

	パスワード

▼kanabun さん：

下記の件について、返信ありがとうございます。
日付取得がここまでややこしいとは思いませんでした。
簡潔でスマートな表現でしたので、とても参考になります。
1点だけよろいいでしょうか。
日付の重複チェックを追加することは難しいですか。
B列の日付で18:00と18:00があった場合、片方は不要にしたいのです。

お手数ですが、よろしくお願いします。

>▼しんくさん：
>>▼kanabun さん：
>>
>>下記の件について、記載の仕方が変でした。
>>aaaaaaaaaaaの部分はC列に記載されています。
>>ですので、B列に日付、C列に文字列になります。
>>
>そしたら、こんな按配でどうですかね
>日付けのセルを（シリアル値を）"、hh:nn"形式にFormatして文字列を
>連結しています。
>Sub Try1()
>　Dim c As Range
>　Dim ss As String
>　
>　For Each c In Range("B30", Cells(Rows.Count, 2).End(xlUp))
>　　　If IsDate(c.Text) Then
>　　　　　If Len(ss) = 0 Then
>　　　　　　　ss = Format$(c.Value2, "yyyy/mm/dd hh:nn")
>　　　　　Else
>　　　　　　　ss = ss & Format$(c.Value2, "、hh:nn")
>　　　　　End If
>　　　End If
>　Next
>　Range("B25").Value = "発生時間：" & ss
>
>End Sub

22 hits

▼

【71992】日付があるかどうか判断して・・・ しんく 12/5/14(月) 0:01