Excel VBA質問箱 IV

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

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


24257 / 76738 ←次へ | 前へ→

【57831】Re:シートからフォームを開く
発言  たか E-MAIL  - 08/9/15(月) 23:52 -

引用なし
パスワード
   ▼Abebobo さん:
UserFormには
Private Sub UserForm_Initialize()

  データ表示
  
  End Sub
データ表示とは

Sub データ表示()

  表示行 = Cells(1, 15).Value
  
  TextBox2.Value = Cells(表示行, 1).Value
  TextBox3.Value = Cells(表示行, 3).Value
  TextBox4.Value = Cells(表示行, 5).Value
  TextBox5.Value = Cells(表示行, 7).Value
  TextBox6.Value = Cells(表示行, 8).Value
  TextBox7.Value = Cells(表示行, 9).Value
  TextBox8.Value = Cells(表示行, 10).Value
  TextBox9.Value = Cells(表示行, 11).Value
  TextBox10.Value = Cells(表示行, 12).Value
  
  ComboBox1.Value = Cells(表示行, 4).Value
  ComboBox2.Value = Cells(表示行, 6).Value
  
  If Cells(表示行, 2).Value = "大宮" Then
   optionbutton1.Value = True
  Else
   optionbutton2.Value = True
  End If
   
End Sub

Cells(1, 15).Value
はSheet1上なのでSheet2へボタンを移動した場合は式にSheet名も
入れないといけないということでしょうか?
教えてください。


  

0 hits

【57810】シートからフォームを開く たか 08/9/14(日) 0:07 質問
【57811】Re:シートからフォームを開く かみちゃん 08/9/14(日) 0:14 発言
【57822】Re:シートからフォームを開く Abebobo 08/9/15(月) 9:52 発言
【57831】Re:シートからフォームを開く たか 08/9/15(月) 23:52 発言
【57834】Re:シートからフォームを開く Abebobo 08/9/16(火) 10:34 発言

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