Excel VBA質問箱 IV

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

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


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

25994 / 76732

←次へ　｜　前へ→


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

neptune - 08/5/31(土) 22:33 -


	引用なし

	パスワード

▼おじさん４６さん：
頑張ってますね。
気づいた点だけ。

>Private Sub TextBox7_AfterUpdate()
>Dim t7 As Long
>Dim i　 As Long
>　　t7 = Me.TextBox7.Text
>　　i = 1
>　　　　For i = 1 To 6
>　　　　Me.Controls("textbox" & i).Text = ActiveSheet.Cells(t7, i + 1).Value
>　　　　Next i
for句の処理のところにインデントがないので判りにくい。
>　　　　ActiveSheet.Cells(t7, 1).Select
ActiveSheetを使用しているが、ActiveSheetが目的のシートである事は
保障されているのか？

>　
>　　TextBox7.SetFocus
>　
>End Sub

>TextBoxのクリアはうまくまとめられませんでした。
これがちょっと意味がわかりませんが、自分の目的通りに動作すれば
それはそれで良いプログラムと思いますよ。背伸びせずに
自分の理解の範囲で作成すればよいと思います。

スキルが上がってその時点で気が付いたら、より高度な手法を使えば
良いのですから。

後、大きなお世話かもしれませんが、
・セルにデータを入力してますが、そのデータが正当なデータである事は
　確認してますか。ここに書いてないだけとは思いますが、もし、
　業務に使うなら必須です。
・コメントは書いておくほうが良いですね。半年たてばすっかり忘れて
　しまいますから、他人が書いたプログラムを眺めているような感じに
　なります。後で眺めるときに助かります。

#自分の理解の範囲で出来るものならそれが一番良いです。
不具合、改造の必要が出た時など、理解しているのでそれらが容易で
結局自分の為になります。出来なかったら悲惨です。

2 hits

▼

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