Ｐａｇｅ 519 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼日付の変更 nana 03/1/9(木) 14:42 ┣Re:日付の変更 ポンタ 03/1/9(木) 14:57 ┃ ┗Re:日付の変更 nana 03/1/9(木) 15:05 ┗Re:日付の変更 nana 03/1/9(木) 16:36 ┗Re:日付の変更 ポンタ 03/1/9(木) 17:29 ─────────────────────────────────────── ■題名 ： 日付の変更 ■名前 ： nana ■日付 ： 03/1/9(木) 14:42 -------------------------------------------------------------------------
| 日付で、『H15.01.01』で入力したものを、『20030101』に変更させる処理をおこないたいのですが、どうしたらよいですか？ ＶＢＡをはじめたばかりでよくわかりません･･･ どなたか教えてください･･･お願いいたします･･･ |
| セルの書式設定で、表示形式を"ユーザー定義"にして、 種類を"yyyymmdd"とするだけじゃダメですか？ VBAで Format(Replace("H15.01.01",".","-"),"YYYYMMDD") こうするという手もなくはないと思いますが･･･。 |
| ありがとうございます。 でも、ちょっとわけありで”ユーザー定義”を使用することができないのです･･･ 下の方法を用いてみようとおもいます。 |
| すみません･･･また質問させてください。 "20030101"を"H15.01.01"のかたちに直すプログラムを組みたいのですがよくわかりません･･･ どなたか教えていただけないでしょうか･･･ よろしくお願いいたします。 |
| 一例です。 Sub test() Dim MyString As String MyString = "H15.01.01" MsgBox (Mid(MyString, 2, InStr(1, MyString, ".") - 2)) '数字にするなら MsgBox (Val(Mid(MyString, 2, InStr(1, MyString, ".") - 2)) * 2) End Sub |