Excel VBA質問箱 IV

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

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


4244 / 13644 ツリー ←次へ | 前へ→

【57717】textboxに入力した数値を日付表示に変換する方法 kog 08/9/10(水) 14:16 質問[未読]
【57719】Re:textboxに入力した数値を日付表示に変換... かみちゃん 08/9/10(水) 14:25 発言[未読]
【57724】Re:textboxに入力した数値を日付表示に変換... kog 08/9/10(水) 15:31 お礼[未読]
【57720】Re:textboxに入力した数値を日付表示に変換... kanabun 08/9/10(水) 14:35 発言[未読]
【57723】Re:textboxに入力した数値を日付表示に変換... kog 08/9/10(水) 15:29 お礼[未読]

【57717】textboxに入力した数値を日付表示に変換...
質問  kog  - 08/9/10(水) 14:16 -

引用なし
パスワード
   textboxに20080910と入力した時に
そのtextboxに2008/09/10と表示するにはどうしたらいいのでしょうか?
入力時の文字数制限等は限定してもかまいません。
教えてください。

【57719】Re:textboxに入力した数値を日付表示に変...
発言  かみちゃん  - 08/9/10(水) 14:25 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>textboxに20080910と入力した時に
>そのtextboxに2008/09/10と表示するにはどうしたらいいのでしょうか?

以下のような感じで変換できます。
DateValue(Format("20080910", "0000/00/00"))

【57720】Re:textboxに入力した数値を日付表示に変...
発言  kanabun  - 08/9/10(水) 14:35 -

引用なし
パスワード
   ▼kog さん:
>textboxに20080910と入力した時に
>そのtextboxに2008/09/10と表示するにはどうしたらいいのでしょうか?

'----------------------------------------------------
  Dim ss As String
  ss = TextBox1.Text
  If ss Like "########" Then
    If IsDate(Format$(ss, "0000-00-00")) Then
      TextBox1.Text = Format$(ss, "0000\/00\/00")
    Else
      MsgBox "8桁の数字だけれど、日付ではない"
    End If
  End If
'----------------------------------------------------
こんな感じでしょうか?
ただ、このコードをどのイベントプロシージャにおくか、が
問題ですね?

【57723】Re:textboxに入力した数値を日付表示に変...
お礼  kog  - 08/9/10(水) 15:29 -

引用なし
パスワード
   ▼kanabun さん:
>▼kog さん:
>>textboxに20080910と入力した時に
>>そのtextboxに2008/09/10と表示するにはどうしたらいいのでしょうか?
>
>'----------------------------------------------------
>  Dim ss As String
>  ss = TextBox1.Text
>  If ss Like "########" Then
>    If IsDate(Format$(ss, "0000-00-00")) Then
>      TextBox1.Text = Format$(ss, "0000\/00\/00")
>    Else
>      MsgBox "8桁の数字だけれど、日付ではない"
>    End If
>  End If
>'----------------------------------------------------
>こんな感じでしょうか?
>ただ、このコードをどのイベントプロシージャにおくか、が
>問題ですね?

解決することができました。
ありがとうございます。
また解からないことがあった時は質問をするので
よろしくお願いします。

【57724】Re:textboxに入力した数値を日付表示に変...
お礼  kog  - 08/9/10(水) 15:31 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>textboxに20080910と入力した時に
>>そのtextboxに2008/09/10と表示するにはどうしたらいいのでしょうか?
>
>以下のような感じで変換できます。
>DateValue(Format("20080910", "0000/00/00"))


解決することができました。
ありがとうございます。
また解からないことがあった時は質問をするので
よろしくお願いします。

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