| |
▼hiro_y さん：
こんにちは。
>顧客リストを作成していますが、フォームによって顧客名簿・名簿検索・詳細項目を追加できるように作成中です。
>しかし、新たに項目を追加した場合、その顧客の行の最終セルに追加するコマンドがわかりません。
>ちなみに、顧客ID・名前によって検索・表示できるようにはしてますので、これをキーに該当行の最終セルに追加できるように判断できるものなのでしょうか。
>よろしくお願いします。
顧客IDがSheet1のセルＡ１から始まっているとすると（Ａ１が項目名、Ａ２からデータ）
'========================================================
Sub test()
Dim newrng As Range
With Worksheets("sheet1")
Set newrng = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
MsgBox newrng.address
End Sub
こんなコードで新規登録セルを取得できます。
これが知りたかったのですよね？
|
|
ichinose
- 04/11/10(水) 13:26 -
