Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26031 / 76736

←次へ　｜　前へ→


	【56041】Re:選択複数セルのデータ取得

Abebobo - 08/5/30(金) 10:46 -


	引用なし

	パスワード

おじさん４６さん　こんにちは

一点目
Dim x As Date　←　の　ｘ　はカウンターなので
ｌong型か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) をご存知なのに、この方法を取ったんですよね。ちょっと、勘違いしそうなコードのような気がします。
シートレイアウトがわからないのでなんとも言い様がないのですが・・・。

冒頭の　”わいわいさんへ”　は私のレスに対する回答以外はやめたほうがよろしいかと。
ここは私より知識も経験もずっと上の方々がいっぱいいます。そして、おじさん４６さんを応援してくださる方もいっぱいいるはずです。
でも、きっと私に気を使ってくださったのでしょう。ありがとうございます。

先日、私よりずっと前に　わいわい　をＨＮにされている方がいましたので、ＨＮ代えました。　よく確認せずにわいわいを名乗ってました。わいわいさんすみませんでした。

4 hits

▼

【55757】選択複数セルのデータ取得 おじさん４６ 08/5/18(日) 17:22