Excel VBA質問箱 IV

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

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


74423 / 76738 ←次へ | 前へ→

【6782】Re:日付けの処理
回答  Hirofumi E-MAIL  - 03/8/3(日) 19:54 -

引用なし
パスワード
   >そうあとこれさえ出来ればぜったいに完成します。どなたか上のVBA文に解説を・・・お願いします・・

こんな物で宜しいですか?
使い方は、変換したい列(現在の日付列)のセルを選択する
マクロを実行する
尚、マクロは標準モジュールに記述して下さい

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

  'アクティブセルの右隣に1列追加
  Cells(lngDataTop, lngDataCol + 1).EntireColumn.Insert
  '結果を書き込む範囲を設定
  Set rngResult = Range(Cells(lngDataTop, lngDataCol + 1), _
              Cells(lngDataEnd, lngDataCol + 1))
  '結果範囲について
  With rngResult
    '結果範囲にDATEVALUEワークシト関数を書き込む
    .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 質問
【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 お礼

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