Excel VBA質問箱 IV

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

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


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

74472 / 76732

←次へ　｜　前へ→


	【6724】Re:日付けの処理

Hirofumi

- 03/7/28(月) 20:59 -


	引用なし

	パスワード

こんなのは、どうでしょう？
上手いコードではないけど、データベースをいじって善いなら
現在の日付をシリアル値（日付連番）に変換するマクロを作って見ました
ただし、間違っているとまずいので、元のデータのコピーで
以下のマクロを試して見て下さい
使い方は、現在の日付の列のセルにセルポインタを置きます
（用は、日付列のセルをクリックする）
以下のマクロ、Testを実行します
現在の日付の列の隣りに列が挿入され、そこにシリアル値（日付連番）が記入されます

Public Sub Test()

　　Dim lngDataTop As Long
　　Dim lngDataEnd As Long
　　Dim lngDataCol As Long
　　Dim rngResult As Range
　　
　　lngDataCol = ActiveCell.Column
　　lngDataTop = 2
　　lngDataEnd = Cells(65536, lngDataCol).End(xlUp).Row

　　Cells(lngDataTop, lngDataCol + 1).EntireColumn.Insert
　　Set rngResult = Range(Cells(lngDataTop, lngDataCol + 1), _
　　　　　　　　　　　　　　Cells(lngDataEnd, lngDataCol + 1))
　　With rngResult
　　　　.Formula = "=DATEVALUE(" & Cells(lngDataTop, _
　　　　　　　　　　　　　　　　lngDataCol).Address(False, False) & ")"
　　　　.NumberFormatLocal = "ggge""年""m""月""d""日"""
　　　　.Value = .Value
　　End With
　　Set rngResult = Nothing
　　
End Sub

1 hits

▼

【6688】日付けの処理 ヤマトダマシイ 03/7/23(水) 22:36