Results of 1 - 1 of about 779 for シリアル値 とは (0.008 sec.)
シリアル値 (1875), とは (29356)
- [[20060804134116]]
- #score: 8288
- @digest: 019c5dac2f058e09a5d12ff5ec21c2a2
- @id: 24132
- @mdate: 2006-08-04T05:41:10Z
- @size: 1864
- @type: text/plain
- #keywords: commbobox (7380), combobox1 (5515), combobox (4340), 間位 (4077), afterupdate (3806), 年m (2073), 月d (1944), 後2 (1911), initialize (1529), additem (1423), 事出 (1352), post (1303), 日") (1230), userform (1208), ggge (1048), rowsource (1024), 付入 (949), 塩梅 (915), userform1 (876), 弥太 (836), 授下 (667), format (651), 日付 (624), 週間 (595), 無事 (571), private (535), 前後 (460), スあ (417), commandbutton1 (395), シリ (385), レス (360), 太郎 (328)
- 『Comboboxの日付』（POST）
userform上でComboboxに日付を選択できるようにしてあります。 comboboxで選択したら日付がシリアル値で表示されてしまいます。 ワークシートに行くとformat関数でちゃんとした日付になっているのですが Comboboxの表示の所も変えるときはどのようにしたらいいのですか? 又、ループか何かを使ってComboboxで日付を選択する方法とかありますか? ご教授下さい。 Option Explicit Private Sub ComboBox1_AfterUpdate() UserForm1.ComboBox1.value = Format(ComboBox1.Value, "ggge年m月d日") End Sub Private Sub CommandButton1_Click() With Worksheets(1) .Range("b1").Value = ComboBox1.Value End With End Sub Private Sub UserForm_Initialize() With UserForm1 .ComboBox1.RowSource = "Sheet1!A1:A6" End With End Sub ---- AfterUpdateを外して Initialize を Dim r As Range With Me.ComboBox1 .Clear For Each r In Sheets("Sheet1").Range("a1:a6") .AddItem r.Text Next End With こんな感じでいけませんか? (seiya) ---- （可能なら）Sheet1!A1:A6を文字列として日付入力しておく方法もあります。 (みやほりん)(-_∂)b ---- それか Private Sub ComboBox1_Change() ComboBox1.Value = Format(ComboBox1.Value, "ggge年m月d日") End Sub でもOK （弥太郎） ---- seiyaさん みやほりんさん 弥太郎さんレスありがとうございます。 無事出来ました。 文字列で入力すれば何も変換することはないのですね。勉強になります。 もう一つ質問なんですが、 シート上からではなく UserformのInitializeで今日の日付をもとめて前後2週間位を Commboboxで選択させることは出来るのでしょうか? ---- こんな塩梅でっか? data = Date With Me.ComboBox1 For i = 1 To 15 .AddItem data - 8 + i Next i End With ---- お早いレスありがとうございます。 無事に出来ました。 すごく勉強になりました。 みなさんありがとうございました。 (POST)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200608/20060804134116.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608342 words.
訪問者：