Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61670 / 76738 ←次へ | 前へ→

【19682】Re:ユーザーフォームで修正し登録
回答  Asaki  - 04/11/14(日) 17:57 -

引用なし
パスワード
   こんにちは。

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となります。

2 hits

【19681】ユーザーフォームで修正し登録 グライダーマン 04/11/14(日) 16:31 質問
【19682】Re:ユーザーフォームで修正し登録 Asaki 04/11/14(日) 17:57 回答
【19713】Re:ユーザーフォームで修正し登録 グライダーマン 04/11/15(月) 19:37 お礼

61670 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free