Results of 1 - 1 of about 1240 for カレンダー (0.001 sec.)
- [[20090604143715]]
- #score: 6127
- @digest: 830be29e7366efcd7dc74f573a2430b9
- @id: 43779
- @mdate: 2009-06-04T06:55:45Z
- @size: 2175
- @type: text/plain
- #keywords: calendar1 (23316), textbox3 (4237), カレ (4064), textbox2 (3301), input (2974), ーコ (2969), setfocus (2905), レン (2530), st (2481), ンダ (2230), トボ (2108), ダー (2066), textbox1 (2064), sw (1802), テキ (1658), ク入 (1629), トロ (1624), キス (1532), ボッ (1190), ー1 (1144), クス (956), private (936), ロー (754), コン (752), case (730), ム上 (717), ソル (687), format (651), ーソ (647), ス1 (635), にテ (605), スト (559)
- 『カレンダーコントロール』(aac）
ユーザーフォーム上で、カレンダーコントロールに対しテキストボックスが複数ある状態で、カレンダーコントロールは一つで複数のテキストボックスにカレンダーコントロールでクリック入力を行ないたいのです。 一つのカレンダーコントロールでは不可能でしょうか? ---- できるかどうか、1度やってみてください。 （詳しい詳細がわかりませんが。） BJ ---- 現状はカレンダー1に対してテキストボックス1しかできません。 複数のテキストボックスがある為に、、、、という所です。 ---- 意味が良く解りません。 できますけどね。 Private Sub Calendar1_Click() Dim st As String st = Format(Calendar1.Value, "yyyy/m/d") TextBox1.Value = st TextBox2.Value = st TextBox3.Value = st End Sub BJ ---- こういうことかな? カレンダーをクリックする際にカーソルのあるテキストボックスに日付が入ります。 Option Explicit Dim INPUT_SW As Integer Private Sub Calendar1_Click() Dim ST As String ST = Format(Calendar1.Value, "yyyy/mm/dd") Select Case INPUT_SW Case 1: TextBox1.Value = ST Case 2: TextBox2.Value = ST Case 3: TextBox3.Value = ST End Select End Sub Private Sub TextBox1_Enter() INPUT_SW = 1 End Sub Private Sub TextBox2_Enter() INPUT_SW = 2 End Sub Private Sub TextBox3_Enter() INPUT_SW = 3 End Sub 追記 「Private Sub Calendar1_Click()」を下記のようにするとカレンダーをクリックするたびにテキストボックスを移動します。 Private Sub Calendar1_Click() Dim ST As String ST = Format(Calendar1.Value, "yyyy/mm/dd") Select Case INPUT_SW Case 1 TextBox1.Value = ST TextBox2.SetFocus Case 2 TextBox2.Value = ST TextBox3.SetFocus Case 3 TextBox3.Value = ST TextBox1.SetFocus End Select End Sub (独覚) ---- やはり順番を指定せずにテキストボックスから認識させて一つのカレンダーは難しいんですね。 参考になりました、ありがとうございます。 ---- 申し訳ないです。できました。 カーソルのあるボックスに日付があるというのがやりたかったんです。 どうも有難うございます。 もっと勉強します。
... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200906/20090604143715.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97012 documents and 608126 words.
訪問者：