Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28857 / 76807

←次へ　｜　前へ→


	【53242】Re:UserFormのTextBoxの値でシートのセルを選択する方法

かんじです

- 07/12/22(土) 15:06 -


	引用なし

	パスワード

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>２．これとは別に、UserFormのTextBox１の値のセル（の行）を既にあるデータか　　ら選択する（行の選択）方法が分かりません。
>>
>>また、
>>シート(Sheet1）のセルから別シートのセルを選択するのは下記で行っています
>>Columns(1).Find(What:=Sheets(Sheet1).Cells(5,5)).Select
>
>Sheets(Sheet1).Cells(5,5)
>の代わりに、
>UserForm1.TextBox1.Value
>とすれば、いかがでしょうか？

早速のご教授ありがとうございます
修正してやってみたのですがうまくいきません。具体的には下記内容です
Private Sub CommandButton1_Click()
　 Dim i As Integer　　　　　　　　　　　　　　'変数iを宣言
　 Dim myInputRow As Long
　　　　　
　 myFname = "◆受注と残高2008b"

　 With Workbooks(myFname & ".xls").Worksheets("受注と入金")
　　　Columns(3).Find(What:=UserForm2.TextBox1.Value).Select
　　　　　　 '３列目を　　　　　’Formは２

　　　　　　 '上記の選択行に下記をセル入力したい
　　　ActiveCell.Offset(0, 8).Value = Me.TextBox2.Text
　　　ActiveCell.Offset(0, 9).Value = Me.TextBox3.Text
　　　ActiveCell.Offset(0, 10).Value = Me.TextBox4.Text
　　　ActiveCell.Offset(0, 11).Value = Me.TextBox5.Text　　　
　 End With

　　Unload UserForm2　　
　　UserForm2.Show
　　
End Sub

上記のColumns(3)の行がうまく書けていないようです
全体を見ていかがでしょうか。ご教示よろしくお願いします。

2 hits

▼

【53240】UserFormのTextBoxの値でシートのセルを選択する方法 かんじです 07/12/22(土) 14:09