|
先ほど種別をお礼にしてしまいました。継続でお願いしたいので再度質問にさせていただきます。よろしくお願いします。
>▼かみちゃん さん:
>>こんにちは。かみちゃん です。
>>
>>>2.これとは別に、UserFormのTextBox1の値のセル(の行)を既にあるデータか ら選択する(行の選択)方法が分かりません。
>>>
>>>また、
>>>シート(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
> '3列目を ’Formは2
>
> '上記の選択行に下記をセル入力したい
> 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)の行がうまく書けていないようです
>全体を見ていかがでしょうか。ご教示よろしくお願いします。
|
|