Excel VBA質問箱 IV

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

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


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

【44961】教えてください 素人マクロ 06/12/8(金) 12:35 質問[未読]
【44963】Re:UserformのTextBoxに日付 かみちゃん 06/12/8(金) 12:52 発言[未読]
【44964】Re:教えてください Jaka 06/12/8(金) 12:56 発言[未読]
【44966】タイトルは内容を示すものに 注意 06/12/8(金) 13:14 発言[未読]
【44974】Re:教えてください 素人マクロ 06/12/8(金) 15:58 質問[未読]
【44977】Re:教えてください Jaka 06/12/8(金) 17:05 回答[未読]
【44995】Re:教えてください 素人マクロ 06/12/9(土) 10:16 お礼[未読]

【44961】教えてください
質問  素人マクロ  - 06/12/8(金) 12:35 -

引用なし
パスワード
   失礼します

ユーザーフォームを開いたときに、テキストボックス内にその日の日付2006/0/00と表示したいのですがどのような方法が適してますか?またそのテキストボックスをスクロールで前後の日付を選択出来る様にしたいのですが可能ですか?

【44963】Re:UserformのTextBoxに日付
発言  かみちゃん  - 06/12/8(金) 12:52 -

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

>ユーザーフォームを開いたときに、テキストボックス内にその日の日付2006/0/00と表示したい

フォームの初期化イベントとして、以下のような記述にします。
Private Sub UserForm_Initialize()
 Me.TextBox1.Value = Date
End Sub

> そのテキストボックスをスクロールで前後の日付を選択出来る様にしたい

スクロールというのは、SpinButtonを使うということであれば、可能です。

【44964】Re:教えてください
発言  Jaka  - 06/12/8(金) 12:56 -

引用なし
パスワード
   テキストボックスじゃできません。

Private Sub UserForm_Initialize()
Dim DD As Double, i As Double,sv as long,ct as long
For i = CDbl(CDate("2006/1/1")) To CDbl(CDate("2006/12/31"))
  Me.ListBox1.AddItem Format(i, "yyyy/m/d")
  If i = CDbl(Date) Then
   sv = ct
  Else
   ct = ct + 1
  End If
Next
Me.ListBox1.ListIndex = sv - 1
End Sub

【44966】タイトルは内容を示すものに
発言  注意  - 06/12/8(金) 13:14 -

引用なし
パスワード
   タイトルは内容を示すものに

記事のタイトルは、その質問の内容が端的にわかるようなものにしてください。
単に「教えてください」とか「困っています」などといったタイトルでは、回答者があなたの質問をクリックしない可能性が非常に高くなります。すなわち、回答がつかない可能性が高くなる、ということです。

【44974】Re:教えてください
質問  素人マクロ  - 06/12/8(金) 15:58 -

引用なし
パスワード
   皆さんありがとうございました。

もう一つ質問ですが
コンボボックスにすると可能ですか?
できるのであれば教えてください。

【44977】Re:教えてください
回答  Jaka  - 06/12/8(金) 17:05 -

引用なし
パスワード
   ListBox1

コンボボックスの名前にするだけです。

【44995】Re:教えてください
お礼  素人マクロ  - 06/12/9(土) 10:16 -

引用なし
パスワード
   ▼Jaka さん:
>ListBox1
> を
>コンボボックスの名前にするだけです。


ありあとうございました。ばっちりOKでした。

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