Excel VBA質問箱 IV

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

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


74484 / 76732 ←次へ | 前へ→

【6710】Re:日付けの処理
発言  Hirofumi E-MAIL  - 03/7/27(日) 17:41 -

引用なし
パスワード
   横から失礼します
現実にはどうなっているのですか
データベースて、Excelのシートに作られているの?
日付の形は
「11月12日」?
「11月12日」?
「平成15年11月12日」?
「平成15年11月12日」?
場合によっては、マクロか関数作って、シリアル値に変換する事は出来ないのですか?
例えば、「11月12日」や「11月12日」だとすると平成15年で善いのですか?

例として、以下の様なユーザー定義関数を作ります
現在の日付の隣りに列を挿入します
其処に作成した関数でシリアル値に変換します
其れを、形式を選択して張り付けで、値に直し、セルの書式を日付にします
現在の日付と比較してOKなら現在の日付列を削除します
なんて事で出来ないの?

Public Function DateConversion(vntValue As Variant) As Variant

  Dim strTmp As String
  
  DateConversion = vntValue
  If IsDate(StrConv(vntValue, vbNarrow)) Then
    strTmp = StrConv(vntValue, vbNarrow)
  Else
    strTmp = "平成15年" & StrConv(vntValue, vbNarrow)
  End If
  If IsDate(strTmp) Then
    DateConversion = DateValue(strTmp)
  End If
  
End Function

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 お礼

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