現在Excelのシートで
A～IのデータをK～Q列に＝で参照して表示しています。
2行目の参照の式をA列のデータがある場所までコピーしていますが、
大変時間がかかります。
効率のいい方法をおしえていただけないでしょうか。。？
できれば値だけを取得したいです。
よろしくお願いいたします。
作成しているマクロは以下のとおりです。
Sub Macro1()
Dim R As Long
For R = 3 To Cells(Rows.Count, "A").End(xlUp).Row
Range("k3").Copy Cells(R, "k")
Range("l3").Copy Cells(R, "L")
Range("m3").Copy Cells(R, "M")
Range("n3").Copy Cells(R, "N")
Range("o3").Copy Cells(R, "O")
Range("p3").Copy Cells(R, "p")
Range("q3").Copy Cells(R, "q")
Range("r3").Copy Cells(R, "r")
Range("s3").Copy Cells(R, "s")
Next R
End Sub
エクセルのデータを社内のイントラネットに自動入力し顧客情報画面を自動的に立ち上げるVBAコードがあります。
現在これで動いてはくれるのですが、ひとつ不便なところがあるので改善したいのです。
以下のコードは、エクセルのA列に入力された顧客番号を、エクセル上のカーソル移動により、番号入力画面（http://xxxx.yyy.co.jp/imagef/Qspec.asp） の入力欄（kokyakuNo）に自動転記します。
自動で検索をかけ、結果を別の画面（http://xxxx.yyy.co.jp/imagef/QresultVi.asp ）に表示してくれます。
最初の1回は、まず番号入力画面があらわれ、次に結果が表示された別の画面（http://xxxx.yyy.co.jp/imagef/QresultVi.asp ）が現れてくれます。
ところが、エクセル上でカーソルを一つ下げ、次の顧客番号を選択すると、また番号入力画面になり、検索がはじまるのですが、結果の画面が番号入力画面の後ろに隠れて表に出てきてくれません。
いちいちウィンドウズ画面の一番下のタスクバーで結果の画面をクリックしなくては表示されないのです。
これを最初の一回目は結果の画面が新しく開くので自動的に表に出るのでしょうが、2回目以降はすでに存在する画面上の表示が変わるだけなので隠れたままなのだと思います。
なんとか自動的に結果の画面を表に表示させる方法はないでしょうか？エクセル2000、Windows2000です。
ご教示ください。
Dim objIE As Object
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tmp As String
If Target.Count > 1 Then Exit Sub '複数セル選択を除外
If Target.Column <> 1 Then Exit Sub 'A列以外を除外
If Target.Value = "" Then Exit Sub '空白セルを除外
On Error Resume Next
tmp = objIE.Name 'objIE.Nameの取得に成功したら起動とみなす。
If Err.Number <> 0 Then 'エラーならIEが起動していないので、起動する。
Set objIE = CreateObject("InternetExplorer.Application")
End If
On Error GoTo 0
With objIE
.navigate "http://xxxx.yyy.co.jp/imagef/Qspec.asp"
.Visible = True
Do While .busy = True '表示まで待機
DoEvents
Loop
.document.getElementById("kokyakuNo").Value = Target.Text 'テストボックスへ入力：ID属性で指定
.navigate "javascript:Submit();" 'http://xxxx.yyy.co.jp/imagef/QresultVi.asp に結果が表示される
Do While .busy = True
DoEvents
Loop
End With
End Sub
エクセルのデータを社内のイントラネットに自動入力し顧客情報画面を自動的に立ち上げるVBAコードがあります。
現在これで動いてはくれるのですが、ひとつ不便なところがあるので改善したいのです。
以下のコードは、エクセルのA列に入力された顧客番号を、エクセル上のカーソル移動により、番号入力画面（http://xxxx.yyy.co.jp/imagef/Qspec.asp） の入力欄（kokyakuNo）に自動転記します。
自動で検索をかけ、結果を別の画面（http://xxxx.yyy.co.jp/imagef/QresultVi.asp ）に表示してくれます。
最初の1回は、まず番号入力画面があらわれ、次に結果が表示された別の画面（http://xxxx.yyy.co.jp/imagef/QresultVi.asp ）が現れてくれます。
ところが、エクセル上でカーソルを一つ下げ、次の顧客番号を選択すると、また番号入力画面になり、検索がはじまるのですが、結果の画面が番号入力画面の後ろに隠れて表に出てきてくれません。
いちいちウィンドウズ画面の一番下のタスクバーで結果の画面をクリックしなくては表示されないのです。
これを最初の一回目は結果の画面が新しく開くので自動的に表に出るのでしょうが、2回目以降はすでに存在する画面上の表示が変わるだけなので隠れたままなのだと思います。
なんとか自動的に結果の画面を表に表示させる方法はないでしょうか？エクセル2000、Windows2000です。
ご教示ください。
Dim objIE As Object
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tmp As String
If Target.Count > 1 Then Exit Sub '複数セル選択を除外
If Target.Column <> 1 Then Exit Sub 'A列以外を除外
If Target.Value = "" Then Exit Sub '空白セルを除外
On Error Resume Next
tmp = objIE.Name 'objIE.Nameの取得に成功したら起動とみなす。
If Err.Number <> 0 Then 'エラーならIEが起動していないので、起動する。
Set objIE = CreateObject("InternetExplorer.Application")
End If
On Error GoTo 0
With objIE
.navigate "http://xxxx.yyy.co.jp/imagef/Qspec.asp"
.Visible = True
Do While .busy = True '表示まで待機
DoEvents
Loop
.document.getElementById("kokyakuNo").Value = Target.Text 'テストボックスへ入力：ID属性で指定
.navigate "javascript:Submit();" 'http://xxxx.yyy.co.jp/imagef/QresultVi.asp に結果が表示される
Do While .busy = True
DoEvents
Loop
End With
End Sub
エクセルのデータを社内のイントラネットに自動入力し顧客情報画面を自動的に立ち上げるVBAコードがあります。
現在これで動いてはくれるのですが、ひとつ不便なところがあるので改善したいのです。
以下のコードは、エクセルのA列に入力された顧客番号を、エクセル上のカーソル移動により、番号入力画面（http://xxxx.yyy.co.jp/imagef/Qspec.asp） の入力欄（kokyakuNo）に自動転記します。
自動で検索をかけ、結果を別の画面（http://xxxx.yyy.co.jp/imagef/QresultVi.asp ）に表示してくれます。
最初の1回は、まず番号入力画面があらわれ、次に結果が表示された別の画面（http://xxxx.yyy.co.jp/imagef/QresultVi.asp ）が現れてくれます。
ところが、エクセル上でカーソルを一つ下げ、次の顧客番号を選択すると、また番号入力画面になり、検索がはじまるのですが、結果の画面が番号入力画面の後ろに隠れて表に出てきてくれません。
いちいちウィンドウズ画面の一番下のタスクバーで結果の画面をクリックしなくては表示されないのです。
これを最初の一回目は結果の画面が新しく開くので自動的に表に出るのでしょうが、2回目以降はすでに存在する画面上の表示が変わるだけなので隠れたままなのだと思います。
なんとか自動的に結果の画面を表に表示させる方法はないでしょうか？エクセル2000、Windows2000です。
ご教示ください。
Dim objIE As Object
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tmp As String
If Target.Count > 1 Then Exit Sub '複数セル選択を除外
If Target.Column <> 1 Then Exit Sub 'A列以外を除外
If Target.Value = "" Then Exit Sub '空白セルを除外
On Error Resume Next
tmp = objIE.Name 'objIE.Nameの取得に成功したら起動とみなす。
If Err.Number <> 0 Then 'エラーならIEが起動していないので、起動する。
Set objIE = CreateObject("InternetExplorer.Application")
End If
On Error GoTo 0
With objIE
.navigate "http://xxxx.yyy.co.jp/imagef/Qspec.asp"
.Visible = True
Do While .busy = True '表示まで待機
DoEvents
Loop
.document.getElementById("kokyakuNo").Value = Target.Text 'テストボックスへ入力：ID属性で指定
.navigate "javascript:Submit();" 'http://xxxx.yyy.co.jp/imagef/QresultVi.asp に結果が表示される
Do While .busy = True
DoEvents
Loop
End With
End Sub
エクセルのデータを社内のイントラネットに自動入力し顧客情報画面を自動的に立ち上げるVBAコードがあります。
現在これで動いてはくれるのですが、ひとつ不便なところがあるので改善したいのです。
以下のコードは、エクセルのA列に入力された顧客番号を、エクセル上のカーソル移動により、番号入力画面（http://xxxx.yyy.co.jp/imagef/Qspec.asp） の入力欄（kokyakuNo）に自動転記します。
自動で検索をかけ、結果を別の画面（http://xxxx.yyy.co.jp/imagef/QresultVi.asp ）に表示してくれます。
最初の1回は、まず番号入力画面があらわれ、次に結果が表示された別の画面（http://xxxx.yyy.co.jp/imagef/QresultVi.asp ）が現れてくれます。
ところが、エクセル上でカーソルを一つ下げ、次の顧客番号を選択すると、また番号入力画面になり、検索がはじまるのですが、結果の画面が番号入力画面の後ろに隠れて表に出てきてくれません。
いちいちウィンドウズ画面の一番下のタスクバーで結果の画面をクリックしなくては表示されないのです。
これを最初の一回目は結果の画面が新しく開くので自動的に表に出るのでしょうが、2回目以降はすでに存在する画面上の表示が変わるだけなので隠れたままなのだと思います。
なんとか自動的に結果の画面を表に表示させる方法はないでしょうか？エクセル2000、Windows2000です。
ご教示ください。
Dim objIE As Object
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tmp As String
If Target.Count > 1 Then Exit Sub '複数セル選択を除外
If Target.Column <> 1 Then Exit Sub 'A列以外を除外
If Target.Value = "" Then Exit Sub '空白セルを除外
On Error Resume Next
tmp = objIE.Name 'objIE.Nameの取得に成功したら起動とみなす。
If Err.Number <> 0 Then 'エラーならIEが起動していないので、起動する。
Set objIE = CreateObject("InternetExplorer.Application")
End If
On Error GoTo 0
With objIE
.navigate "http://xxxx.yyy.co.jp/imagef/Qspec.asp"
.Visible = True
Do While .busy = True '表示まで待機
DoEvents
Loop
.document.getElementById("kokyakuNo").Value = Target.Text 'テストボックスへ入力：ID属性で指定
.navigate "javascript:Submit();" 'http://xxxx.yyy.co.jp/imagef/QresultVi.asp に結果が表示される
Do While .busy = True
DoEvents
Loop
End With
End Sub
先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。
複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。
Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
= myRng.Columns(i).Value
Next
End Sub
※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。
よろしくお願いします。
先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。
複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。
Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
= myRng.Columns(i).Value
Next
End Sub
※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。
よろしくお願いします。
