テキストボックスを使用して、入力欄のほとんどの部分を入力欄のように入力します。

Question

ID番号を使用してデータを表示できるユーザーフォームを作成しようとしています。

テキストボックスを参照して選択し、それを参照として使用して、時間とコメントをシートに記入しようとしています。私は、Find関数に "txtID"を入れないと思います。ここで

は、私のコードの例です：

Sheet1.Select 
Columns("A:A").Select 
Selection.Find(What:="txtID", After:=ActiveCell, LookIn:= _ 
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
xlNext, MatchCase:=False, SearchFormat:=False).Activate 
ActiveCell.Select 

ActiveCell.Offset(0, 8).Value = txtTime2 
ActiveCell.Offset(0, 9).Value = txtComment2 

Answer 1

最初の問題はSelection.Find（何：=「txtID」）ということで、列Aに単語txtIDのために検索し、私はあなたがしたいと思いますフォーム上のtxtIDという名前のテキストボックス内のデータを検索します。以下を試してください。異なる場合は、UserForm1をフォームの名前に変更します。

Dim ID 
ID = UserForm1.Controls("txtID").Value 

Sheet1.Select 
Columns("A:A").Select 

Selection.Find(What:=ID, After:=ActiveCell, LookIn:= _ 
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
xlNext, MatchCase:=False, SearchFormat:=False).Activate 
ActiveCell.Select 

ActiveCell.Offset(0, 8).Value = "=txtTime2" 
ActiveCell.Offset(0, 9).Value = "=txtComment2" 

フォームには、txtIDのデータが既にロードされている必要があります。あなたのコードはユーザーフォームか他のモジュールですか？

第2の問題は、txtTime2とtxtComment2という名前のセルのデータを参照するオフセットセルに式を格納する必要があることです。以下のコードは、あなたが望むことをする必要があります。 を横に、ここで、ウェブサイトは、あなたがしようとしているもの - 彼らは信頼できないとして、あなたは `SELECT`または` activate`を使用しないでください

ActiveCell.Offset(0, 8).Value = "=txtTime2" 
ActiveCell.Offset(0, 9).Value = "=txtComment2"