Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
512 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【80041】選択した行のセル値を入力フォームに転記するには こじこじ 18/7/12(木) 13:04 質問[未読]
【80043】Re:選択した行のセル値を入力フォームに転... hatena 18/7/12(木) 21:42 回答[未読]
【80044】Re:選択した行のセル値を入力フォームに転... こじこじ 18/7/13(金) 8:44 お礼[未読]
【80041】選択した行のセル値を入力フォームに転記...
質問  こじこじ  - 18/7/12(木) 13:04 -
引用なし
パスワード
   教えてください
選択した行のセル値（ＡからＧ）を
入力フォームの　テキストボックス（Textbox１〜７）に転記したい。

行の選択をどうすれば　いいでしょうか。
【80043】Re:選択した行のセル値を入力フォームに...
回答  hatena  - 18/7/12(木) 21:42 -
引用なし
パスワード
   >選択した行のセル値（ＡからＧ）を
>入力フォームの　テキストボックス（Textbox１〜７）に転記したい。

選択した行は、ActiveCell.Row で取得できます。

Dim r As Long

r = ActiveCell.Row

Textbox1.Value = Cells(r,1).Value
Textbox2.Value = Cells(r,2).Value
Textbox3.Value = Cells(r,3).Value
・・・・・

となります。ループを使うと、

Dim r As Long, i As Long

r = ActiveCell.Row

For i = 1 to 7
　　Me("Textbox" & i).Value = Cells(r, i).Value
Next
【80044】Re:選択した行のセル値を入力フォームに...
お礼  こじこじ  - 18/7/13(金) 8:44 -
引用なし
パスワード
   hatena　様

返信ありがとうございます。

希望通り　フォームに転記　できました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
512 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free