掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
エクセルから、書式設定を変更せずに、日付シリアルを取得するには？ (ID:100511)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> エクセルシートをそのままVBのフォーム上で再現したいのです。 [プロジェクト]-[コンポーネント] → "コントロール" から、 Microsoft Office Web Components 11.0 Microsoft Office XP Web Components Microsoft Office Web Components 9.0 のいずれかを選択し、フォームに Microsoft Spreadsheet コントロールを 貼りつけて使うというのはどうでしょう。 データは、Excel からクリップボード経由で転送、とか。 (Copy メソッド & Paster メソッド) > NumberFormatLocal 個人的には、NumberFormat の方が好みですが、どちらでも良いと思います。 .Range("A1").NumberFormat = "[DBNum2]ggge年m月d日" .Range("A1").NumberFormatLocal = "[DBNum2]ggge年m月d日" .Range("A1").NumberFormat = "[Red][<10]#0.00;[Blue][<=50]#0.00;[Green]0.00" .Range("A1").NumberFormatLocal = "[赤][<10]#0.00;[青][<=50]#0.00;[緑]0.00" > 一発で日付だと分かる方法はないでしょうか。 厳密判定ではありませんが、簡易的に、下記でどうでしょう。 Dim v As Variant v = .Range("A1").Value Debug.Print VarType(v) = vbDate Debug.Print TypeName(v) = "Date" > あと、DAOを使って書式を取得する方法はありますでしょうか？ 無いと思います。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.