|
おじさん46さん こんにちは
一点目
Dim x As Date ← の x はカウンターなので
long型かinteger型のほうが良いと
neptuneさんに教えていただいたばかりですよ(○`ε´○)
二点目
If Worksheets("Sheet3").Cells(5 + x, 2).Value = "" Then
Worksheets("Sheet3").Cells(5 + x, 2).Value = TextBox1.Text
Worksheets("Sheet3").Cells(5 + x, 3).Value = Now
・
・
は
With Worksheets("Sheet3")
If .Cells(5 + x, 2).Value = "" Then
.Cells(5 + x, 2).Value = TextBox1.Text
.Cells(5 + x, 3).Value = Now
・
・
End With
と With でまとめたほうがすっきりします。
三点目
Worksheets("Sheet3").Cells(5 + x, 2).Value = ""
の時、10000行にユーザーフォームの情報を転記すると思いきや、
Exit For って? Range("B9").End(xlDown).Offset(1, 0) をご存知なのに、この方法を取ったんですよね。ちょっと、勘違いしそうなコードのような気がします。
シートレイアウトがわからないのでなんとも言い様がないのですが・・・。
冒頭の ”わいわいさんへ” は私のレスに対する回答以外はやめたほうがよろしいかと。
ここは私より知識も経験もずっと上の方々がいっぱいいます。そして、おじさん46さんを応援してくださる方もいっぱいいるはずです。
でも、きっと私に気を使ってくださったのでしょう。ありがとうございます。
先日、私よりずっと前に わいわい をHNにされている方がいましたので、HN代えました。 よく確認せずにわいわいを名乗ってました。わいわいさんすみませんでした。
|
|