Excel VBA質問箱 IV

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

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


25707 / 76732 ←次へ | 前へ→

【56363】シートのA列セル選択右クリックでTextBoxとComboBoxへのデータ移動
質問  おじさん46  - 08/6/15(日) 12:54 -

引用なし
パスワード
   Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'A列セル選択右クリックでセルデータ収集後フォームを開く
Dim r As Range
Dim i As Single
If Target.Column <> 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
Cancel = True

UserForm1.Show 0

i = 1
For Each r In Target.Offset(, 1).Resize(, 6)
  UserForm1.Controls("TextBox" & i).Text = r.Value
  i = i + 1
Next r
End Sub

シートの該当行のA列セル選択右クリックでUserForm1上の各TextBoxにセルのデータを移動(転記)する上記のコードと、

Private Sub TextBox7_AfterUpdate()
'行番号入力でセルデータ収集
Dim t7 As Long
Dim i  As Long
  t7 = Me.TextBox7.Text
  i = 1
    For i = 1 To 6
    Me.Controls("textbox" & i).Text = ActiveSheet.Cells(t7, i + 1).Value
    Next i
    ActiveSheet.Cells(t7, 1).Select

  TextBox7.SetFocus
 
End Sub

もうひとつ、UserForm1上のTextBox7に行番号を入力して同様の結果がでるコードを教えてもらいました。
そして、自分なりに改良して7つあるTextBoxの内、2つをComboBoxへ変更したいと思い試行錯誤をしましたが、うまくいきません。
どう考えたらよいかご指導をお願いします。
全体の流れは、
vbalab.net/vbaqa/c-board.cgi?cmd=one;no=55757;id=excel
を参照してもらえばわかると思いますが、
データシートにある希望するその行のデータをフォームに表示し、
そのフォーム上で必要なTextBoxの項目に修正を加え、
印刷シートにフォーム上のTextBoxのデータを落として、
その印刷シートを印刷しようとしています。
よろしくお願いします。

2 hits

【56363】シートのA列セル選択右クリックでTextBoxとComboBoxへのデータ移動 おじさん46 08/6/15(日) 12:54 質問
【56385】Re:シートのA列セル選択右クリックでTextB... Abebobo 08/6/16(月) 9:38 発言
【56387】Re:シートのA列セル選択右クリックでTextB... kanabun 08/6/16(月) 10:19 発言
【56416】Re:シートのA列セル選択右クリックでTextB... おじさん46 08/6/16(月) 20:49 発言
【56420】Re:シートのA列セル選択右クリックでTextB... kanabun 08/6/16(月) 22:49 発言
【56424】Re:シートのA列セル選択右クリックでTextB... Abebobo 08/6/17(火) 9:08 お礼
【56430】Re:シートのA列セル選択右クリックでTextB... kanabun 08/6/17(火) 10:36 発言
【56431】Re:シートのA列セル選択右クリックでTextB... Abebobo 08/6/17(火) 10:44 お礼
【56454】Re:シートのA列セル選択右クリックでTextB... おじさん46 08/6/17(火) 20:10 発言
【56672】Re:シートのA列セル選択右クリックでTextB... おじさん46 08/6/29(日) 18:29 お礼
【56396】Re:シートのA列セル選択右クリックでTextB... Abebobo 08/6/16(月) 12:14 発言

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