Excel VBA質問箱 IV

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

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


26144 / 76732 ←次へ | 前へ→

【55921】Re:選択複数セルのデータ取得
発言  わいわい  - 08/5/23(金) 15:04 -

引用なし
パスワード
   おじさん46 さん こんにちは
ちょっと時間が空きましたので
勉強のねたになればさいわいわいです。

’UserForm1のモジュール−−−−−−−−−
Private Sub CommandButton1_Click()
 データ収集
End Sub

’Sheet1のモジュール−−−−−−−−−−−
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
’−−−−−−−−−−−−−−−−−−−−

”’説明用のコード”はFor Each が理解できているようでしたら消してください。

Sub データ収集の説明
iという変数ををTextBoxの指定用に用意(初期値1)
rという変数(Range)が Selectionをひとつづづ進みます。
注1.rの潜伏先の確認用で セルの塗りつぶしを、ColorIndex 6 で塗りつぶします。
UserForm1会のControls組に属する 組員TextBox &その1
のTextを 現在rが潜伏中の値にします。
次に 組員TextBox &その2 としたいので i = i + 1
rの潜伏先を確認したいので、今から一秒間 次の作業をとめる
潜伏先が変わる前にセルの塗りつぶしを、無し に消息を絶つ
r は次の潜伏先に移る。

上記で一応動くはずですが、Selection で指定になると、色んなトラップを仕掛ける必要があると思います。

つづく かな

0 hits

【55757】選択複数セルのデータ取得 おじさん46 08/5/18(日) 17:22 質問
【55769】Re:選択複数セルのデータ取得 わいわい 08/5/19(月) 9:34 発言
【55837】Re:選択複数セルのデータ取得 おじさん46 08/5/20(火) 21:14 質問
【55838】Re:選択複数セルのデータ取得 わい 08/5/20(火) 21:27 発言
【55903】Re:選択複数セルのデータ取得 おじさん46 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:選択複数セルのデータ取得 おじさん46 08/5/23(金) 20:33 回答
【55948】Re:選択複数セルのデータ取得 おじさん46 08/5/25(日) 11:32 質問
【55958】Re:選択複数セルのデータ取得 わいわい 08/5/26(月) 9:52 発言
【55969】Re:選択複数セルのデータ取得 おじさん46 08/5/26(月) 23:04 発言
【55970】Re:選択複数セルのデータ取得 わいわい 08/5/27(火) 9:07 発言
【55977】Re:選択複数セルのデータ取得 おじさん46 08/5/27(火) 20:25 発言
【56032】Re:選択複数セルのデータ取得 おじさん46 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:選択複数セルのデータ取得 おじさん46 08/5/30(金) 20:12 発言
【56062】Re:選択複数セルのデータ取得 おじさん46 08/5/31(土) 13:41 発言
【56074】Re:選択複数セルのデータ取得 neptune 08/5/31(土) 22:33 発言
【56081】Re:選択複数セルのデータ取得 おじさん46 08/6/1(日) 9:30 お礼
【55935】Re:選択複数セルのデータ取得 おじさん46 08/5/24(土) 12:34 発言
【55941】Re:選択複数セルのデータ取得 わいわい 08/5/24(土) 22:22 発言
【55942】Re:選択複数セルのデータ取得 neptune 08/5/24(土) 23:07 発言
【55945】Re:選択複数セルのデータ取得 おじさん46 08/5/25(日) 10:16 発言
【55947】Re:選択複数セルのデータ取得 わいわい 08/5/25(日) 11:05 発言
【56049】Re:選択複数セルのデータ取得 VBWASURETA 08/5/30(金) 14:10 発言

26144 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free