Excel VBA質問箱 IV

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

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


74419 / 76732 ←次へ | 前へ→

【6780】Re:日付けの処理
質問  ヤマトダマシイ  - 03/8/3(日) 18:35 -

引用なし
パスワード
   ▼Hirofumi さん:
>こんなのは、どうでしょう?
>上手いコードではないけど、データベースをいじって善いなら
>現在の日付をシリアル値(日付連番)に変換するマクロを作って見ました
>ただし、間違っているとまずいので、元のデータのコピーで
>以下のマクロを試して見て下さい
>使い方は、現在の日付の列のセルにセルポインタを置きます
>(用は、日付列のセルをクリックする)
>以下のマクロ、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

これは大変有効なものを教えていただきました・・・ありがとうございます。ただこのVBAの分が高度すぎてわたくしにはさっぱり・・・Dim lngDataTop As Long はなにを宣言してるのでしょうか?

0 hits

【6688】日付けの処理 ヤマトダマシイ 03/7/23(水) 22:36 質問
【6689】Re:日付けの処理 ぴかる 03/7/24(木) 8:55 回答
【6709】Re:日付けの処理 ヤマトダマシイ 03/7/27(日) 12:18 質問
【6710】Re:日付けの処理 Hirofumi 03/7/27(日) 17:41 発言
【6723】Re:日付けの処理 ヤマトダマシイ 03/7/28(月) 19:00 質問
【6724】Re:日付けの処理 Hirofumi 03/7/28(月) 20:59 発言
【6725】Re:日付けの処理 Hirofumi 03/7/28(月) 21:07 発言
【6780】Re:日付けの処理 ヤマトダマシイ 03/8/3(日) 18:35 質問
【6781】Re:日付けの処理 ヤマトダマシイ 03/8/3(日) 18:37 質問
【6782】Re:日付けの処理 Hirofumi 03/8/3(日) 19:54 回答
【6784】Re:日付けの処理 Hirofumi 03/8/3(日) 20:15 回答
【6786】Re:日付けの処理 ヤマトダマシイ 03/8/3(日) 22:41 お礼

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