Excel VBA質問箱 IV

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

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


74418 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼ヤマトダマシイ さん:
>▼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 はなにを宣言してるのでしょうか?

そうあとこれさえ出来ればぜったいに完成します。どなたか上のVBA文に解説を・・・お願いします・・
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 お礼

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