Excel VBA質問箱 IV

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

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


298 / 75308 ←次へ | 前へ→

【80655】UserFormによる編集について
質問  tarutaru  - 19/3/28(木) 21:14 -

引用なし
パスワード
   すいません。
またお世話になります。

編集用userformを作成しました。

内容は、sheet1に入力されているデータを、編集用UserFormの各Boxに呼び出して、文字や数値を変更するとその内容がSheet1に反映されるといったものです。

Sheet1には「検索ボタン」を配置しており、条件入力後、押すことで該当データが抽出され、抽出されたデータのみを編集用UserFormに表示されるようにしたいと思います。

検索条件(絞込み)によっては複数の該当データが抽出(sheet1に表示)されることになりますが、その場合、編集用UserFormに「前ボタン」、「次ボタン」を配置することで移動できるようにしたいと思っています。

sheet1(データ)
Range("B3").Value = 氏 名
Range("C3").Value = 住 所
Range("D3").Value = 生年月日
Range("E3").Value = 職 業

編集用UserForm
TextBox1 = 氏 名
TextBox2 = 住 所
TextBox3 = 生年月日
ComboBox1= 職 業  

sheet1に、「編集ボタン」を配置、編集用UserFormが立ち上がるようにしています。

また、編集用UserFormに「前ボタン」、「次ボタン」も配置したのですが、移動については

Private Sub 次ボタン_Click()
 
  行 = 行 + 1
 
 Worksheets("sheet1").Activate
 Worksheets("sheet1").Cells(行, 2).Select
 
 If 行 >= 1000 Then(入力データを1000までとした場合)
  Me.次ボタン.Enabled = False
 Else
  Me.前ボタン.Enabled = True
  Me.次ボタン.Enabled = True
 End If
  
End Sub

Private Sub 前ボタン_Click()

  行 = 行 - 1
 
 Worksheets("sheet1").Activate
 Worksheets("sheet1").Cells(行, 2).Select
 
 If 行 <= 3 Then
  Me.前ボタン.Enabled = False
 Else
  Me.前ボタン.Enabled = True
  Me.次ボタン.Enabled = True
 End If
    
End Sub

このような構文でよろしいのでしょうか?

よろしくお願いいたします。
58 hits

【80655】UserFormによる編集について tarutaru 19/3/28(木) 21:14 質問[未読]
【80656】Re:UserFormによる編集について マナ 19/3/28(木) 21:46 発言[未読]
【80657】Re:UserFormによる編集について Jaka 19/3/28(木) 23:05 発言[未読]
【80658】Re:UserFormによる編集について tarutaru 19/3/29(金) 4:18 質問[未読]
【80661】Re:UserFormによる編集について マナ 19/3/29(金) 19:59 発言[未読]
【80686】Re:UserFormによる編集について [名前なし] 19/4/6(土) 7:53 お礼[未読]

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