Excelフォームが動作しない

Question

Excel VBAフォームに関しては完全な初心者ですが、以下のフォームを作成しようとしました。私は今、それを私の瞳孔スプレッドシートと一緒に働かせようとしていますが、それは機能しません。私はこれまでのスクリプトと生徒名を選択して動作するようですビットのみでこれを持っている

、他には何も、私はそれを期待する何をされていないと私は知らないどこ間違っている。

彼らはリストから瞳孔を選択することができますので、これは学校の美術部門のためのものであり、瞳孔コードと瞳孔フォームフィールドが満たされる必要があります。次に、関連するフィールドの隣にある児童が購入したアイテムの数を追加することができます。これにより、Excelスプレッドシートの関連フィールドが更新されます。そのフィールドに存在する番号がある場合は、それを番号に追加する必要があります。

これに関する助言やアドバイスは非常に高く評価されます。

Answer 1

これを実現するにはRANGE関数を使用できます。例えば

、スプレッドシートは次のように見える場合：

+------------+--------+------------+---------------+---------------+ 
| Pupil Code | Pencil | Edding Pen | A5 Spiral Pad | A6 Spiral Pad | 
+------------+--------+------------+---------------+---------------+ 
| 10154  | 0  | 1   | 0    | 2    | 
+------------+--------+------------+---------------+---------------+ 
| 10155  | 1  | 1   | 0    | 1    | 
+------------+--------+------------+---------------+---------------+ 
| 10156  | 0  | 0   | 0    | 1    | 
+------------+--------+------------+---------------+---------------+ 

あなたが行うことによって、スプレッドシートで瞳コードを検索するRANGE機能を使用することができます。

Dim r as Range 

For each r in Range("A2:A100") 
    If r.Value = textboxPupilCode.Value Then 
     textboxPencil.Value = r.Offset(0,1).Value 
    End If 
Next r 

OFFSET機能が参照します現在の範囲から見たセル。この場合、関連する瞳孔コードの右側のセル。