Excel VBA質問箱 IV

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

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


10945 / 13644 ツリー ←次へ | 前へ→

【19010】データの変更方法について maya-aaa 04/10/19(火) 14:22 質問[未読]
【19011】Re:データの変更方法について IROC 04/10/19(火) 14:24 回答[未読]
【19027】Re:データの変更方法について maya-aaa 04/10/19(火) 17:31 お礼[未読]
【19014】Re:データの変更方法について つん 04/10/19(火) 14:32 回答[未読]
【19026】Re:データの変更方法について maya-aaa 04/10/19(火) 17:27 お礼[未読]

【19010】データの変更方法について
質問  maya-aaa  - 04/10/19(火) 14:22 -

引用なし
パスワード
   毎日の販売リストをユーザーフォームを利用して入力しています。
シートに入力されたデータを変更したいのですが、
その方法として
 1.シート上の変更するデータの行をアクティブにする。
 2.シート上に作成した変更ボタンをクリックすると、ユーザーフォームの
  各コントロールに変更したいデータが表示され、データ変更を行い
  再登録する。
という順序で変更したいと考えております。
1.のアクティブにした行のデータを、ユーザーフォームに表示させるプログラムは
どのように記述すればよいか教えていただきたいのです。
よろしくお願いいたします。

【19011】Re:データの変更方法について
回答  IROC  - 04/10/19(火) 14:24 -

引用なし
パスワード
   こんな感じで如何でしょうか?

Private Sub UserForm_Initialize()
Dim r as long
 r = activecell.row

with worksheets("Sheet1")
 textbox1.text = .Cells(r,1).value
 textbox2.text = .Cells(r,2).value
end with
End Sub

【19014】Re:データの変更方法について
回答  つん E-MAIL  - 04/10/19(火) 14:32 -

引用なし
パスワード
   こんにちは
こんな感じかな?

Sub test()

  Dim lngR As Long

  lngR = ActiveCell.Row
  
  Load UserForm1
  
  With UserForm1
    .TextBox1.Value = Cells(lngR, 1).Value
    .TextBox2.Value = Cells(lngR, 2).Value
    .TextBox3.Value = Cells(lngR, 3).Value
    .Show
  End With
  
End Sub

これを、フォームで作成したボタンに登録するなり、
コントロールボックスのコマンドボタンに書くなり・・・・

【19026】Re:データの変更方法について
お礼  maya-aaa  - 04/10/19(火) 17:27 -

引用なし
パスワード
   ▼つん さん:
早速ご回答いただき、ありがとうございました。
いろいろ試行錯誤して何日間も悩んだ事が悔やまれる程
あっという間に解決できました。感謝いたしております。
また、よろしくお願いいたします。

【19027】Re:データの変更方法について
お礼  maya-aaa  - 04/10/19(火) 17:31 -

引用なし
パスワード
   ▼IROC さん:
ありがとうございました。
初めての質問で、本当に回答いただけるのかと不安でしたが、
こんなに早く回答いただいて感謝しております。
あっという間に解決いたしました。
また機会があればよろしくお願いいたします。

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