Excel VBA質問箱 IV

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

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


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

10323 / 76807

←次へ　｜　前へ→


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

しんく - 12/5/20(日) 22:25 -


	引用なし

	パスワード

▼kanabun さん：

返信ありがとうございます。
問題なく処理してくれました。
ありがとうございます。
ちょっと分からない部分もありますが、
調べて確認させていただきます。

とても参考にありました。

>▼しんくさん：
>
>>1点だけよろいいでしょうか。
>>日付の重複チェックを追加することは難しいですか。
>>B列の日付で18:00と18:00があった場合、片方は不要にしたいのです。
>Try1() をすこし修正して、
>すでにある文字列の中に追加しようとしている文字列がないときだけ
>時刻を追加しています。
>
>Sub Try1b() '重複時刻カット
>　Dim c As Range
>　Dim ss As String
>　Dim st As String
>　
>　For Each c In Range("B30", Cells(Rows.Count, 2).End(xlUp)) _
>　　　　　　　.SpecialCells(xlCellTypeConstants, xlNumbers)
>　　　If IsDate(c.Text) Then
>　　　　　If Len(ss) = 0 Then
>　　　　　　　ss = Format$(c.Value2, "yyyy/mm/dd hh:nn")
>　　　　　Else
>　　　　　　　st = Format$(c.Value2, "hh:nn")
>　　　　　　　If InStr(ss, st) = 0 Then ss = ss & ("、" & st)
>　　　　　End If
>　　　End If
>　Next
>　Range("B25").Value = "発生時間：" & ss
>
>End Sub

1 hits

▼

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