Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (101ﾚｽ)
Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) http://mevius.5ch.net/test/read.cgi/tech/1700826110/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
43: デフォルトの名無しさん (ﾜｯﾁｮｲ 62ad-aQbW) [sage] 2024/04/08(月) 04:42:24.97 ID:1vwt4prT0 日付（2024/01/01）のセルをVBAのRange("A1").Valueなどで取得すると、勝手に2024/01/01 (月)って曜日の文字列が追加されます。 曜日なしで取得する方法をご存じの方いましたら教えてください。 曜日がついているせいでDateとして扱えず困っています。 Dim d As Date d = CDate(Range("A1").Value) '2024/01/01 (月)が入ってるため これでエラーが出ます。 2024/01/01 01:00:00のように時間が入っている場合は2024/01/01 (月) 01:00:00になります。 NumberFormatLocalでフォーマットを指定してもダメでした。 取得するセルの書式設定は日付でユーザー定義ではないです。 最終手段の文字列を加工するのはなしでお願いします。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/43
44: デフォルトの名無しさん (ｽｯﾌﾟ Sd02-kwRZ) [sage] 2024/04/08(月) 07:42:44.65 ID:TVRO53b8d >>43 Dim d As Date d = CDate(DATEVALUE(Range("A1").Value)) http://mevius.5ch.net/test/read.cgi/tech/1700826110/44
45: デフォルトの名無しさん (ﾜｯﾁｮｲ 43ce-Ky5X) [sage] 2024/04/08(月) 14:05:35.40 ID:nl9i5mBy0 >>43 試してみたけど、この3行はどれもエラーにならず同じ結果になった d = CDate(Range("A1").Value) d = Range("A1").Value d = Range("A1") セルA1の内容は本当にシリアル値か？ OSやOfficeは日本語版か？ ロケールは日本になってるか？ シリアル値ならそのままDate型に代入できるかららCDateで変換するのは無駄 A1セルの書式を標準に変えたらどんな表示になるか確認 http://mevius.5ch.net/test/read.cgi/tech/1700826110/45
46: デフォルトの名無しさん (ﾜｯﾁｮｲ 36f9-zSwZ) [] 2024/04/08(月) 14:31:02.66 ID:bhILccJZ0 >>43 試したけど自分も再現しない。 そちらで新しいブックを作って同じ事を試したら再現する？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/46
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.481s*