|
こんにちは。
1) テキストボックスに入力した名前を検索
2) その行の行番号を変数に設定
3) コマンドボタンクリックのイベントで、2で覚えておいた行にデータを上書き
という処理になると思います。
1) はマクロの記録で
2) は変数をモジュールレベルで宣言しておく
3) は既存のものの n を2)の変数に置き換え
但し、最初の n の決定処理は実行しないようにします
ところで、ちょっと気になるところを。
> Dim n As Integer
n は行番号のようですから、Long型の方が良いでしょう。
> n = Range("a65536").End(xlUp).Row
> If n = 2 Then
> n = 3
> Else
> n = n + 1
> End If
この部分は、単に
n = Range("a65536").End(xlUp).Row +1
で良いのでは?
>Range("a" & n).Value
別にこれでも問題ないですが、Cells()を利用しては?
Cells(n,1).Value
Cells(行番号, 列番号)
と指定し、列は左から1,2,3,…,256となります。
|
|