Excel VBA質問箱 IV

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

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


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

10251 / 76734

←次へ　｜　前へ→


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

kanabun - 12/5/17(木) 23:06 -


	引用なし

	パスワード

▼しんくさん： >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