Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4534 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【55757】選択複数セルのデータ取得 おじさん４６ 08/5/18(日) 17:22 質問[未読]
【55769】Re:選択複数セルのデータ取得 わいわい 08/5/19(月) 9:34 発言[未読]
【55837】Re:選択複数セルのデータ取得 おじさん４６ 08/5/20(火) 21:14 質問[未読]
【55838】Re:選択複数セルのデータ取得 わい 08/5/20(火) 21:27 発言[未読]
【55903】Re:選択複数セルのデータ取得 おじさん４６ 08/5/22(木) 21:26 回答[未読]
【55904】Re:選択複数セルのデータ取得 わいわい 08/5/23(金) 0:34 発言[未読]
【55921】Re:選択複数セルのデータ取得 わいわい 08/5/23(金) 15:04 発言[未読]
【55928】Re:選択複数セルのデータ取得 わいわい 08/5/23(金) 17:43 発言[未読]
【55929】Re:選択複数セルのデータ取得 おじさん４６ 08/5/23(金) 20:33 回答[未読]
【55948】Re:選択複数セルのデータ取得 おじさん４６ 08/5/25(日) 11:32 質問[未読]
【55958】Re:選択複数セルのデータ取得 わいわい 08/5/26(月) 9:52 発言[未読]
【55969】Re:選択複数セルのデータ取得 おじさん４６ 08/5/26(月) 23:04 発言[未読]
【55970】Re:選択複数セルのデータ取得 わいわい 08/5/27(火) 9:07 発言[未読]
【55977】Re:選択複数セルのデータ取得 おじさん４６ 08/5/27(火) 20:25 発言[未読]
【56032】Re:選択複数セルのデータ取得 おじさん４６ 08/5/29(木) 23:09 発言[未読]
【56041】Re:選択複数セルのデータ取得 Abebobo 08/5/30(金) 10:46 発言[未読]
【56044】Re:選択複数セルのデータ取得 neptune 08/5/30(金) 11:34 回答[未読]
【56047】Re:選択複数セルのデータ取得 Abebobo 08/5/30(金) 13:37 発言[未読]
【56057】Re:選択複数セルのデータ取得 おじさん４６ 08/5/30(金) 20:12 発言[未読]
【56062】Re:選択複数セルのデータ取得 おじさん４６ 08/5/31(土) 13:41 発言[未読]
【56074】Re:選択複数セルのデータ取得 neptune 08/5/31(土) 22:33 発言[未読]
【56081】Re:選択複数セルのデータ取得 おじさん４６ 08/6/1(日) 9:30 お礼[未読]
【55935】Re:選択複数セルのデータ取得 おじさん４６ 08/5/24(土) 12:34 発言[未読]
【55941】Re:選択複数セルのデータ取得 わいわい 08/5/24(土) 22:22 発言[未読]
【55942】Re:選択複数セルのデータ取得 neptune 08/5/24(土) 23:07 発言[未読]
【55945】Re:選択複数セルのデータ取得 おじさん４６ 08/5/25(日) 10:16 発言[未読]
【55947】Re:選択複数セルのデータ取得 わいわい 08/5/25(日) 11:05 発言[未読]
【56049】Re:選択複数セルのデータ取得 VBWASURETA 08/5/30(金) 14:10 発言[未読]
【55757】選択複数セルのデータ取得
質問  おじさん４６  - 08/5/18(日) 17:22 -
引用なし
パスワード
   VBAの勉強も兼ねて注文伝票発行ファイルを作成しています。


選択した１個のセルのデータを取得して表の一番下に記録することは出来たんですが、

Private Sub CommandButton1_Click()
　
　　TextBox1.Value = Range(Selection.Address)

End Sub

Private Sub CommandButton2_Click()

　　Worksheets("sheet1").Activate
　　
　　With Range("B9").End(xlDown).Offset(1, 0)
　　　　.Value = TextBox1.Value
　　End With
　　
End Sub

これが複数セルになると、てんでわかりません。
学習しながら作りたいと思いますので、ご指導をお願いします。

シートの配列は下記の通りです。
　　B　　 C　　　D　　　E　　 　 F　　 G　　　 H
9　連番　日付　 品名　 規格　　 数量　単価　　金額　　※金額はセル内計算(=F*G)でもとめます。
10　1　　 080515 ペン　 PE-A01　 5　　 103.56　517.80
11　2　　 080517 付箋　 F-U01-5　3　　　80.72　242.16
12
13

行10のデータ（B10:H10のセルを選択して）をテキストボックスに順に表示したいと思っています。

流れは、
B10→TextBox1へ ※連番の作成は後日勉強します。
C10→TextBox2へ ※日付は"Now"関数で行こうと思っています。
D10→TextBox3へ
E10→TextBox4へ
F10→TextBox5へ
G10→TextBox6へ

そして、行12におのおの記録と思ったています。
記録の前に印刷があるのですが構想がまだまとまってないので、後日勉強したいと思っています。
部分的ですがよろしくお願いします。
【55769】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/19(月) 9:34 -
引用なし
パスワード
   おじさん４６ さん　おはようございまます。

学習しながら・・・　ということなので
複数セル（B10:H10）を選択した状態で下記マクロを実行

Sub 複数セル選択()
Dim r As Range
For Each r In Selection
　　MsgBox "セル番号:　" & r.Address & Chr(10) & "値:　　　" & r.Value
Next r
End Sub

TextBoxで変数を使用するには
Sub 変数()
Dim i As Long
　i = 2
　ActiveSheet.OLEObjects("TextBox" & i).Object.Value = "テキスト２"
End Sub

実は私も解らなかったので
”シートで ActiveX コントロールを使用する”
のヘルプを参考にしました。

上記2つのマクロで一応できます。
【55837】Re:選択複数セルのデータ取得
質問  おじさん４６  - 08/5/20(火) 21:14 -
引用なし
パスワード
   わいわい さん 連絡をありがとうございます。

>Sub 複数セル選択()
は、エラーなく動きました。

> For Each r In Selection
ここは初めて見ました。
調べています。

次の
>Sub 変数()
は
>　ActiveSheet.OLEObjects("TextBox" & i).Object.Value = "テキスト２"
でエラーが出ました。
なぜエラーが出るかわかりませんが、知らない言語があるのでこれも調べています。

質問もできない状態なので少し時間を下さい。
読めてきましたら質問します。
【55838】Re:選択複数セルのデータ取得
発言  わい  - 08/5/20(火) 21:27 -
引用なし
パスワード
   しまったぁ　おじさん４６ さんすみません
ユーザーフォーム上の話でしたか？
UserForm1.Controls("TextBox" & i).Text
かな？
【55903】Re:選択複数セルのデータ取得
回答  おじさん４６  - 08/5/22(木) 21:26 -
引用なし
パスワード
   わいわいさん
すぐ返事をくれたんですね。ありがとうございます。

私の説明が不十分の様です。
ご迷惑をかけました。もう一度書きます。

概要
注文伝票作成ファイルの作成を思っています。
フォーム上でテキストボックスに必要事項を入力して、
それをシート上に記録して、印刷も同時にと思っています。
ある程度データが溜まれば過去の記録をオートフィルターで探してセルを選択することで印刷して、シート上に記録できればと思っています。

Sheet1上は、
CommandButton1=ボタン　　　UserForm1を開くボタンです。
　　B　　 C　　　D　　　E　　 　 F　　 G　　　 H
9　連番　日付　 品名　 規格　　 数量　単価　　金額　　※金額はセル内計算(=F*G)で。
10　1　　 080515 ペン　 PE-A01　 5　　 103.56　517.80
11　2　　 080517 付箋　 F-U01-5　3　　　80.72　242.16
12
13

UserForm1上は、
CommandButton1=ボタン　Sheet1の選択されたセルから各TextBoxへデータを収集するボタンです。
CommandButton2=ボタン　UserForm1上の各TextBoxに表示されたデータを、
　　　　　　　　　　　 ここでは空白のB12:H12に格納するボタンです。
TextBox1=テキストボックス　　B列の連番の収集・格納用
TextBox2=テキストボックス　　C列の日付の収集・格納用
TextBox3=テキストボックス　　D列の品名の収集・格納用
TextBox4=テキストボックス　　E列の規格の収集・格納用
TextBox5=テキストボックス　　F列の数量の収集・格納用
TextBox6=テキストボックス　　G列の単価の収集・格納用

あと、
CommandButton3=ボタン　UserForm1上の各TextBoxに表示されたデータを、
　　　　　　　　　　　 印刷するボタン。
を作る予定です。

しかし、私の知識では選択した１個のセルのデータを取得して表の一番下に記録することはまでしか出来なかったんです。

CommandButton1=ボタンで
Private Sub CommandButton1_Click()
　
　　TextBox1.Value = Range(Selection.Address)

End Sub

CommandButton2=ボタンで
Private Sub CommandButton2_Click()

　　Worksheets("sheet1").Activate
　　
　　With Range("B9").End(xlDown).Offset(1, 0)
　　　　.Value = TextBox1.Value
　　End With
　　
End Sub

一個のセルを選択して、一個のテキストボックスに表示して、そのテキストボックスのデータしかシートのセルに書き出す事しか出来ませんでした。
これが複数セルになると、てんでわかりません。
ご指導をお願いします。
【55904】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/23(金) 0:34 -
引用なし
パスワード
   おじさん４６ さんこんばんわ

たった今、自宅のＰＣ（ＸＰ）の再インストールが完了しました。
でも、Ｏｆｆｉｃｅがないので　オープンオフィスとたわむれていました。
差し当たり　記事５５８２４　が参考になると思います。

＊もうＩＥ７とＳＰ３は入れないぞー
【55921】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/23(金) 15:04 -
引用なし
パスワード
   おじさん４６ さん　こんにちは
ちょっと時間が空きましたので
勉強のねたになればさいわいわいです。

’ＵｓｅｒＦｏｒｍ１のモジュール−−−−−−−−−
Private Sub CommandButton1_Click()
　データ収集
End Sub

’Ｓｈｅｅｔ１のモジュール−−−−−−−−−−−
Private Sub CommandButton1_Click()
　UserForm1.Show 0
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−


’標準モジュール−−−−−−−−−−−−−
Sub データ収集()
Dim r As Range
Dim i As Single

i = 1
For Each r In Selection
　　r.Interior.ColorIndex = 6　　　'説明用
　　UserForm1.Controls("TextBox" & i).Text = r.Value
　　i = i + 1
　　Application.Wait (Now + TimeValue("0:00:01"))　 '説明用
　　r.Interior.ColorIndex = xlColorIndexNone　 '説明用
Next r
End Sub
’−−−−−−−−−−−−−−−−−−−−

”’説明用のコード”はＦｏｒ　Ｅａｃｈ　が理解できているようでしたら消してください。

Sub データ収集の説明
ｉという変数ををTextBoxの指定用に用意（初期値１）
ｒという変数（Ｒａｎｇｅ）が　Ｓｅｌｅｃｔｉｏｎをひとつづづ進みます。
注１．ｒの潜伏先の確認用で　セルの塗りつぶしを、ColorIndex　６　で塗りつぶします。
UserForm1会のControls組に属する　組員TextBox　＆その１
のＴｅｘｔを　現在ｒが潜伏中の値にします。
次に　組員TextBox　＆その２　としたいので　i = i + 1
ｒの潜伏先を確認したいので、今から一秒間　次の作業をとめる
潜伏先が変わる前にセルの塗りつぶしを、無し　に消息を絶つ
ｒ　は次の潜伏先に移る。

上記で一応動くはずですが、Ｓｅｌｅｃｔｉｏｎ　で指定になると、色んなトラップを仕掛ける必要があると思います。

つづく　かな
【55928】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/23(金) 17:43 -
引用なし
パスワード
   今日はサボりっぱなしだなぁ
という事で　つづき　

＞Ｓｅｌｅｃｔｉｏｎ　で指定になると、色んなトラップを仕掛ける必要があると思います。
の説明をば
例えば、（B10:H10のセルを選択して）　なのですが、
Sub データ収集　ではTextBoxが６ヶ有るとしか想定していません。
でも、B10:H10のセルを選択してしまうと　ｉ　が７まで増えちゃいます。
UserForm1会のControls組に属する　組員TextBox　＆その７　は　UserForm1会から盃をもらっていないので　潜伏中の犯人ｒ　が困ってしまいます。
　If Selection.Count <> 6 Then Exit Sub
上記の　もしセレクトされたセルのカウントが　６　でなかったら　ミッション終了
で多少の危険は回避できますが・・・。

私なら、

’Ｓｈｅｅｔ１　のモジュール−−−−−−−−−−−−−−−−−−−−−−−
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Dim i As Single
If Target.Column <> 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
Cancel = True

UserForm1.Show 0
i = 1

'For Each r In Target.Offset(0, 1).Range("A1:F1")
For Each r In Target.Offset(, 1).Resize(, 6)　 '＊ちょっと修正しました。
　　UserForm1.Controls("TextBox" & i).Text = r.Value
　　i = i + 1
Next r
End Sub

’Ｓｈｅｅｔ１　のモジュールに上記　BeforeRightClick（右クリックイベント）にしちゃって
CommandButton1を押す代わりに、データを収集したいセルのＡ列を右クリックするようにしちゃうかな。

Ｐｓ．　えらそうな事書いちゃっていますけど私も初級者　自分自身の向上の為に突っ込みもお待ちしています。
【55929】Re:選択複数セルのデータ取得
回答  おじさん４６  - 08/5/23(金) 20:33 -
引用なし
パスワード
   矢継ぎ早の回答ありがとうございます。
返事はちょっと待って下さいね。

追伸　XPのSP3は良くないんですか？
　　　私は「のどかな南国のカメ」ビスタです。
【55935】Re:選択複数セルのデータ取得
発言  おじさん４６  - 08/5/24(土) 12:34 -
引用なし
パスワード
   わいわいさんへ
十分理解はしていませんが、自分なりに解釈しました。

Dim r As Range
'選択変数rを宣言。
Dim i As Single
'文字型変数iを宣言。

i = 1
'iは1です。
For Each r In Selection
'選択された中でr回を下記の処理を繰り返す。
　　r.Interior.ColorIndex = 6
　　'Rのオブジェクトのカラーを黄色に。
　　UserForm1.Controls("TextBox" & i).Text = r.Value
　　'UserForm1フォーム上の各々のテキストコントロールiにr回数返しなさい。
　　i = i + 1
　　'r回iに1を足していきなさい。
　　Application.Wait (Now + TimeValue("0:00:01"))
　　'実行する時は今の時間より１秒後に。
　　r.Interior.ColorIndex = xlColorIndexNone
　　'Rのオブジェクトのカラーを無しに。
Next r
'選択された中のRのステートメントを終了する。

です。
自分なりにシンプルに変えようとしましたら。
「'説明用」を削除したものになりました。
気持ちよく動きます。

ありがとうございます。
次はつづきに行きます。o(^-^)o
【55941】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/24(土) 22:22 -
引用なし
パスワード
   おじさん４６ さん　こんばんは。
>Dim i As Single
>'文字型変数iを宣言。

これは・・・。
ｉは数値です。数値じゃないと足し算ができませんから。
と、As　Byte　のほうが良いかな。と反省しています。
詳しくはヘルプの　データ型　の欄を読んでください。
ちなみに・・・私にはさっぱり意味不明です。
でもたまにはわかり易いヘルプもありますので見る癖をつけましょう。

あとは　オッケー！！　です。
【55942】Re:選択複数セルのデータ取得
発言  neptune  - 08/5/24(土) 23:07 -
引用なし
パスワード
   おじさん４６ さん　わいわい さん
こんにちは

ちょっと気になったので失礼します。
>ｉは数値です。数値じゃないと足し算ができませんから。
>と、As　Byte　のほうが良いかな。と反省しています。
iはカウンターですから、long型か、integer型の方が良いですね。
byte型はbyte型のデータ操作をする為の方と思っていた方が良いです。

理由：　どの型を使っても、最近のパソコンは32bit主流ですから、
数値型は32bitに変換されて処理されるそうです。従って、カウンタなどでは
long（4byte)が変換の処理も不要だし一番良いのではないかと思います。

わいわい さんのXP　SP3の警告？のおかげでIE7削除してからSP3インスト
しました。IE7はとりあえず再インストしました。助かりました。
今のところ不具合は感じません。
【55945】Re:選択複数セルのデータ取得
発言  おじさん４６  - 08/5/25(日) 10:16 -
引用なし
パスワード
   わいわいさんへ

ありがとうございます。
がんばってヘルプを見る様にします。
ある程度知識がないと見てもわからい（豊富な知識を持っている人が作ったんですから）ことが多いいんですが、がんばります。

追伸
わいわいさんの文章は元気があるし、読んでて元気が出ます。
他の質問も拝見させてもらいましたが、明るいですね。
これからもご指導お願いします。
【55947】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/25(日) 11:05 -
引用なし
パスワード
   みなさんおはようございます

neptuneさんありがとうございます。
＞iはカウンターですから、long型か、integer型の方が良いですね。
＞byte型はbyte型のデータ操作をする為の方と思っていた方が良いです。
↑最近はＶＢＡの経験をつんできたので、ＰＣへの負担が減らすことも考えていました。（大した負担では無いのしょうが、色気が・・）ビット数の少ない　Byteなら　整数の２５５まで使える　と考えていました。もう少し　知識の方もＵＰしなければだめですね。ＨＥＬＰや過去ログ（わたしは、実はＨＥＬＰよりも過去ログ派）でがんばります。
これからのよろしくお願いします。

Ｐｓ．ＩＥ７　と　ＳＰ３　は私の言いがかり・・・？。
ＩＥ７にしたとたん勝手にエクスプローラーが勝手に終了するようになりました。
そして、ＳＰ３を入れた後に妻が何かしていてＰＣを離れていたら画面が真っ暗になっていてどうにもならなかったので、電源ボタンを”ぶっちん”。これが致命傷を与えたものと思われます。で、インターネットでＳＰ３の不具合報告みかけたので、そう思うようになりました。
【55948】Re:選択複数セルのデータ取得
質問  おじさん４６  - 08/5/25(日) 11:32 -
引用なし
パスワード
   わいわいさん

次ページやっています。
右クリックイベントですが、すごいですね。
で、
セルを６個選択するのが大変なので、行番号を選択して同じ様な事をしないかなと思って行ったら、UserForm1.の行でやはりエラーが出ました。
まずは、この場合どう考えたらいいのですか。
ご指導をお願いします。m(__)m
【55958】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/26(月) 9:52 -
引用なし
パスワード
   おじさん４６さん　おはようございます。
さすがに今日は仕事をチャットこなさなければならないので、さらっと！

＞セルを６個選択するのが大変なので、行番号を選択して同じ様な事を・・
ユーザーフォームをモードレスで表示しているので、そのままA列を右クリックすれば、その行の情報が更新されるはずです。
もう一案
UserForm1にもう一個　行番号を入力するTextBox　を増やし　TextBox7とします。
ユーザーフォームモジュールに
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
　ActiveSheet.Cells(t7, 1).Select
End Sub
これを入れとけば、右クリックでも行番号入力でもいけます。

＞UserForm1.の行でやはりエラーが出ました。
のコードを記載してくれれば的確な答えが返ってきます。

ここまで理解できれば、TextBoxの情報を吐き出す方のマクロは自作できるはず　　　です　　多分。

*1.　話がかみ合ってるかちょっと不安…。
*2.　ローカルウインドウが表示されていますか？（変数の確認に便利）
*3.　でんでんさらっとじゃねえし．．．。（わたしはVBAが楽しくてしょうがないんで）

By　わいわい３９＆359/365
【55969】Re:選択複数セルのデータ取得
発言  おじさん４６  - 08/5/26(月) 23:04 -
引用なし
パスワード
   わいわいさんへ

ありがとうございます。
話はかみ合っていますよ。大丈夫です。
ローカルウインドウは表示していません。
わかっていませんでした。開いて見たんですがよくわかりませんでした。
（行番号を右クリックしたときエラーが出たので。）
デバッグについてもう一度本を読んで勉強します。
楽しいことは良いことです。「好きこそものの上手なり」と言います。

TextBox7での動作は良好です。
もうひとつ
A列を右クリックすると
For Each r In Target.Offset(, 1).Resize(, 6)が黄色になりました。
実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。
Target.Ofset(<1).Re...=<アプリケーシーン定義またはオフジェクト定義のエラ…
などの表示がありました。ローカルウインドウの内容はよくわかりません。

すみません、また連絡します。今日はこれで。
【55970】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/27(火) 9:07 -
引用なし
パスワード
   おじさん４６ さん
>A列を右クリックすると
すみません。
*正　：ユーザーフォームに取り込みたい行　・例（B10：G10）のセルＡ（Ａ10）
を右クックしてください。

となると、ここもエラー回避をしなければ・・・。

>楽しいことは良いことです。「好きこそものの上手なり」と言います。
私の場合　「下手の横・・」　　　です。　　
【55977】Re:選択複数セルのデータ取得
発言  おじさん４６  - 08/5/27(火) 20:25 -
引用なし
パスワード
   わいわいさんへ

素晴らしいです。気持ちがいいくらい開きます。
ありがとうございます。

自分なりに復習します。

そして、次のスッテプTextBoxからのシートへ書き込みと、
できれば同時に別シートの規定様式で印刷が出来るように考えます。
【56032】Re:選択複数セルのデータ取得
発言  おじさん４６  - 08/5/29(木) 23:09 -
引用なし
パスワード
   わいわいさんへ

一応思っていた動作ができるようになりました。

Private Sub CommandButton2_Click()
Dim x As Date
　　For x = 1 To 10000
　　　　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
　　　　　　
　　　　　　Worksheets("Sheet3").Cells(5 + x, 4).Value = TextBox3.Text
　　　　　　Worksheets("Sheet3").Cells(5 + x, 5).Value = TextBox4.Text
　　　　　　Worksheets("Sheet3").Cells(5 + x, 6).Value = TextBox5.Text
　　　　　　Worksheets("Sheet3").Cells(5 + x, 7).Value = TextBox6.Text
　　　　　　
　　　　　Exit For
　　　　　End If
　　 Next

　　　　　　 Worksheets("Sheet4").Cells(16, 2).Value = TextBox1.Text
　　　　　　 Worksheets("Sheet4").Cells(2, 3).Value = Now
　　　　　　 Worksheets("Sheet4").Cells(5, 2).Value = TextBox3.Text
　　　　　　 Worksheets("Sheet4").Cells(5, 4).Value = TextBox4.Text
　　　　　　 Worksheets("Sheet4").Cells(5, 7).Value = TextBox5.Text
　　　　　　 Worksheets("Sheet4").Cells(5, 5).Value = TextBox6.Text
　　
　　　　Worksheets("Sheet4").PrintOut
　　
　　 TextBox1.Text = ""
　　 TextBox2.Text = ""
　　 TextBox3.Text = ""
　　 TextBox4.Text = ""
　　 TextBox5.Text = ""
　　 TextBox6.Text = ""
　　 TextBox7.Text = ""
　　　　　　
　　 UserForm1.Hide

End Sub

です。
改善のアドバイスをお願いします。
【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) をご存知なのに、この方法を取ったんですよね。ちょっと、勘違いしそうなコードのような気がします。
シートレイアウトがわからないのでなんとも言い様がないのですが・・・。


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

先日、私よりずっと前に　わいわい　をＨＮにされている方がいましたので、ＨＮ代えました。　よく確認せずにわいわいを名乗ってました。わいわいさんすみませんでした。
【56044】Re:選択複数セルのデータ取得
回答  neptune  - 08/5/30(金) 11:34 -
引用なし
パスワード
   ▼Abebobo さん：
おじさん４６さん　こんにちは

一例です。同じロジックですが、扱い易くなっていると思います。
'/////////////UserFormモジュー//////////////
Option Explicit
'Collectionを使用する
Private mCol As Collection

Private Sub UserForm_Initialize()
　　Set mCol = New Collection
　　With Me
　　　　mCol.Add .TextBox1
　　　　mCol.Add .TextBox2
　　　　mCol.Add .TextBox3
　　　　mCol.Add .TextBox4
　　　　mCol.Add .TextBox5
　　　　mCol.Add .TextBox6
　　　　mCol.Add .TextBox7
　　End With
End Sub

Private Sub CommandButton1_Click()
Dim x As Long
　　For x = 1 To 10000
　　　　With Worksheets("Sheet3")
　　　　　　If .Cells(5 + x, 2).Value = "" Then
　　　　　　　　.Cells(5 + x, 2).Value = mCol.Item(2).Text
　　　　　　　　.Cells(5 + x, 3).Value = Now
　　　　　　　　.Cells(5 + x, 4).Value = mCol.Item(4).Text
　　　　　　　　.Cells(5 + x, 5).Value = mCol.Item(5).Text
　　　　　　　　.Cells(5 + x, 6).Value = mCol.Item(6).Text
　　　　　　　　.Cells(5 + x, 7).Value = mCol.Item(7).Text
　　　　　　　　 Exit For
　　　　　　End If
　　　　End With
　　Next
　　
　　With Worksheets("Sheet4")
　　　　 .Cells(16, 2).Value = mCol.Item(1).Text
　　　　 .Cells(2, 3).Value = Now
　　　　 .Cells(5, 2).Value = mCol.Item(3).Text
　　　　 .Cells(5, 4).Value = mCol.Item(4).Text
　　　　 .Cells(5, 7).Value = mCol.Item(5).Text
　　　　 .Cells(5, 5).Value = mCol.Item(6).Text
　　End With
　　Worksheets("Sheet4").PrintOut
　　'TextBoxのクリアは外に追い出す（可読性、メンテナンス性)
　　Call ClearText
　　UserForm1.Hide

End Sub

'TextBoxをクリアするだけのプロシージャ
Private Sub ClearText()
　　Dim i As Long
　　For i = 1 To 7
　　　　mCol.Item(i).Text = ""
　　Next i
End Sub


Private Sub UserForm_Terminate()
　　Set mCol = Nothing
End Sub

ちなみにこれ以上TextBoxが多くなると使い方にもよりますが、多分
私もClassを使うと思います。

興味があれば、「Collection Class」をキーワードに過去ログを検索してみて下さい。
サンプル、情報があります。

>先日、私よりずっと前に　わいわい　をＨＮにされている方がいましたので、
>ＨＮ代えました。　よく確認せずにわいわいを名乗ってました。
>わいわいさんすみませんでした。
やはりそうでしたか！なんか違うかなとは感じてましたので。納得 ^ ^;
【56047】Re:選択複数セルのデータ取得
発言  Abebobo  - 08/5/30(金) 13:37 -
引用なし
パスワード
   neptune さんこんにちは。

>やはりそうでしたか！なんか違うかなとは感じてましたので。納得 ^ ^;

07年8月位までが、紳士で知識のあるわいわいさんで、今年の１月からが私でした。
過去ログは見ていたつもりですので、一度はわいわいさんの名前を目にしていたはずだったんですが．．．。いずれにせよ　わいわいさんには申し訳なかったです。

Collection Class　ちょっと難しそう．．．。　勉強してギブアップしそうになったら質問させていただくかも知れませんが、そのときはよろしくお願いします。
【56049】Re:選択複数セルのデータ取得
発言  VBWASURETA  - 08/5/30(金) 14:10 -
引用なし
パスワード
   皆さんこんにちは。

先週まで仕事のプロジェクトで大火事から、
ようやく小火になって戻ってきました。

元質問と違うようですが、IE7は入れるな警告前にWindowsアップデートしたら
入ってしまいました・・・

で、今のところは問題ないです。
XPのSP2なので、SP3入れないようにしないと・・・

後IE7で問題になりそうなのはネットメールに影響が結構あるみたいです。
例えばデスクネッツ、サイボウズ等

内容は受信途中で止るとからしいです。
質問と違う話を継続してすみません＾＾；
【56057】Re:選択複数セルのデータ取得
発言  おじさん４６  - 08/5/30(金) 20:12 -
引用なし
パスワード
   みなさんへ

大変多くのアドバイスを戴きまして、ありがとうございます。
印刷してじっくり読んで見ます。
また質問します。
【56062】Re:選択複数セルのデータ取得
発言  おじさん４６  - 08/5/31(土) 13:41 -
引用なし
パスワード
   皆さん　こんにちは

がんばって修正しました。
見てください。

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
　　　　ActiveSheet.Cells(t7, 1).Select
　
　　TextBox7.SetFocus
　
End Sub

Private Sub CommandButton2_Click()

　　Worksheets("sheet3").Activate
　　　　With Range("B5").End(xlDown)
　　　　　　.Offset(1, 0).Value = TextBox1.Value
　　　　　　.Offset(1, 1).Value = Now
　　　　　　.Offset(1, 2).Value = TextBox3.Value
　　　　　　.Offset(1, 3).Value = TextBox4.Value
　　　　　　.Offset(1, 4).Value = TextBox5.Value
　　　　　　.Offset(1, 5).Value = TextBox6.Value
　　　　End With
　　　　　　
　　　　With Worksheets("Sheet4")
　　　　　　 .Cells(16, 2).Value = TextBox1.Text
　　　　　　 .Cells(2, 3).Value = Now
　　　　　　 .Cells(5, 2).Value = TextBox3.Text
　　　　　　 .Cells(5, 4).Value = TextBox4.Text
　　　　　　 .Cells(5, 7).Value = TextBox5.Text
　　　　　　 .Cells(5, 5).Value = TextBox6.Text
　　　　End With
　　　　
　　Worksheets("Sheet4").PrintOut
　　
　　 TextBox1.Text = ""
　　 TextBox2.Text = ""
　　 TextBox3.Text = ""
　　 TextBox4.Text = ""
　　 TextBox5.Text = ""
　　 TextBox6.Text = ""
　　 TextBox7.Text = ""
　　　　　　
　　 UserForm1.Hide

End Sub

です。

TextBoxのクリアはうまくまとめられませんでした。
休憩して再チャイレンジします。
【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のクリアはうまくまとめられませんでした。
これがちょっと意味がわかりませんが、自分の目的通りに動作すれば
それはそれで良いプログラムと思いますよ。背伸びせずに
自分の理解の範囲で作成すればよいと思います。

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

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


#自分の理解の範囲で出来るものならそれが一番良いです。
不具合、改造の必要が出た時など、理解しているのでそれらが容易で
結局自分の為になります。出来なかったら悲惨です。
【56081】Re:選択複数セルのデータ取得
お礼  おじさん４６  - 08/6/1(日) 9:30 -
引用なし
パスワード
   ありがとうございます。

自分のペースで、仕事が楽になる様に工夫して行きたいと思います。
面白味がわかって来た感じです。楽しいです。

また、お願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4534 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free