Excel VBA質問箱 IV

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

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


18286 / 76732 ←次へ | 前へ→

【63889】Re:ComboBox_Changeについて
発言  kanabun  - 09/12/25(金) 21:25 -

引用なし
パスワード
   あと、
シートの特定のセルを ComboBoxと 対応するTextBox から
共通して参照する、という手もあります。
コード的には 非常にシンプルなものになります。
先ほどとは別のユーザーフォームを作ってお試しください。

'----------------------------------------------- UserForm
Option Explicit

Private Sub UserForm_Initialize()
  Dim i As Long
  Dim j As Long
  Dim ss As String
  For i = 1 To 5
    ss = "Sheet1!AA" & i
    With Me("ComboBox" & i)
      .List = Split("AAA BBB CCC DDD EEE")
      .ControlSource = ss '参照するセル 【要変更】
    End With
    j = i + 26
    Me("TextBox" & j).ControlSource = ss
  Next
End Sub

'---------
コードは簡素化されましたが、
この方法は Changeイベントでセルが更新されるのでなく、
AfterUpdateイベントで機能するので、TextBoxの文字が
更新されるのは、ComboBoxで選択をしてどこか他のコントロールに
移動するときです。
これがちょっと、イマイチです。

2 hits

【63886】ComboBox_Changeについて stamp 09/12/25(金) 19:42 質問
【63887】Re:ComboBox_Changeについて kanabun 09/12/25(金) 21:14 発言
【63889】Re:ComboBox_Changeについて kanabun 09/12/25(金) 21:25 発言
【63890】Re:ComboBox_Changeについて stamp 09/12/26(土) 9:17 お礼

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