Excel VBA質問箱 IV

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

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


51507 / 76732 ←次へ | 前へ→

【30090】Re:コンボボックスの表示
回答  Statis  - 05/10/19(水) 15:58 -

引用なし
パスワード
   すみません下記に変更して下さい。


Private Sub ComboBox1_Change()

Application.EnableEvents = False
With Me.ComboBox1
   .Text = Format(.Text, "yyyy/mm/dd hh:mm:ss")
End With
Application.EnableEvents = True
End Sub


Private Sub UserForm_Initialize()

Dim r As Long
With Sheets("データ")
 r = .Range("A65536").End(xlUp).Row
 Me.ComboBox1.Value = .Range("D65536").End(xlUp).Offset(, -3).Text
End With
Me.ComboBox1.RowSource = "データ!A2:A" & r

End Sub

0 hits

【30086】コンボボックスの表示 たかし 05/10/19(水) 15:10 質問
【30088】Re:コンボボックスの表示 Statis 05/10/19(水) 15:32 回答
【30090】Re:コンボボックスの表示 Statis 05/10/19(水) 15:58 回答
【30092】Re:コンボボックスの表示 たかし 05/10/19(水) 16:11 質問
【30094】Re:コンボボックスの表示 awu 05/10/19(水) 16:30 発言
【30099】Re:コンボボックスの表示 たかし 05/10/19(水) 17:15 質問
【30122】Re:コンボボックスの表示 Statis 05/10/20(木) 8:23 回答
【30131】Re:コンボボックスの表示 たかし 05/10/20(木) 12:25 お礼
【30089】Re:コンボボックスの表示 Jaka 05/10/19(水) 15:48 回答
【30100】Re:コンボボックスの表示 たかし 05/10/19(水) 17:18 お礼

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