■95502 / inTopicNo.4) |
Re[2]: Excelでユーザーフォームからセル行を上書きしたい |
□投稿者/ あい (37回)-(2020/08/08(Sat) 13:54:13)
|
■No95500 (魔界の仮面弁士 さん) に返信 > 2020/08/08(Sat) 13:39:07 編集(投稿者) > > ■No95499 (あい さん) に返信 >>B2セル行に既に入っている文字を上書きさせたいです。 > > B2 に書き込みたいのなら、 > [B2].Value = ID0 > あるいは > Sheet1.[B2].Value = ID0 > などとすれば良いのでは。 > > >>With Cells(Rows.Count, 2).End(xlUp) > これは、最終行の B 列 上で [End] キーを押してから [↑] を押したときの操作ですよね。 > http://officetanaka.net/excel/vba/tips/tips130.htm > > B列のほぼすべてに値が入っていて、最終行だけが空欄なら、 > Cells(Rows.Count, 2) は B1048576 を指し示し、 > Cells(Rows.Count, 2).End(xlUp) は B1048575 となります。 > > B列がほぼ未入力で、B3 と B7 にだけ文字が入っていれば、 > Cells(Rows.Count, 2).End(xlUp) は B1 や B3 ではなく、B7 を示します。 > > B1〜B3 が空欄で、B4〜B1048576 すべてに何かデータが入力されていれば、 > Cells(Rows.Count, 2).End(xlUp) は B4 を示します。
>Range("B2")に値を書けばよいと思います。 >提示されたものがどんな動きになるかわかるようなサンプルを以下に貼り付けます。
>Sub Test() > Range("B2") = 199 > For i = 1 To 10 > With Cells(Rows.Count, 3).End(xlUp) > With .Offset(1, 0) > .Value = i > Cells(i, 5) = .Address > End With > End With > Next
>End Sub
>魔界の仮面弁士さん、あい さん ご回答ありがとうございます。 参考になったコードで無事出来ました。
ありがとうございました。
|
解決済み
|