Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10947 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：
ありがとうございました。
初めての質問で、本当に回答いただけるのかと不安でしたが、
こんなに早く回答いただいて感謝しております。
あっという間に解決いたしました。
また機会があればよろしくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10947 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free