[[20170804112841]]　『「「3つ以上のコンボボックス連携について」(Voum』（関数がにがて）　ページの最後に飛ぶ

『「「3つ以上のコンボボックス連携について」(Voume1」[関数がにがて]　について』（関数がにがて）

投稿
[[20170728094322]] 『「3つ以上のコンボボックス連携について」(Voume1』（関数がにがて）　
について...

 教えていただいたことはできたのですが、様々な仕様に対応しようと
 試行錯誤している中、わからないことが出来ました。

 参照し入力しようとしたところ、入力するbookの名前の指定方法を教えてください。
 現状は↓で入力しています。

 Private Sub CB入力_Click()

 '抽出表へ入力
    Dim lastRow As Long

    Workbooks("抽出表.xls").Worksheets("速度一覧").Activate
    lastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
        Cells(lastRow, 2) = TB月
        Cells(lastRow, 3) = TB日
        Cells(lastRow, 4) = TB時 & ":" & TB分 & ":" & TB秒
        Cells(lastRow, 5) = TB車番
        Cells(lastRow, 8) = ComboBox2 & "　" & ComboBox3 & "→" & ComboBox4
        Cells(lastRow, 9) = TB速度
        Cells(lastRow, 10) = ComboBox5
        Cells(lastRow, 11) = TB速度 - ComboBox5
 End Sub

 大多数の報告書はこの抽出表で提出しているので、大丈夫なのですが、
 数が多く、抽出表の頭に【本館*】抽出表.xls（*は○1など番号です。この掲示板では
 文字化けして○数字が入れれませんので○1としました。）とつく物があり、入力できず困っています。
 シート名は統一されています。
 その仕様用のコマンドボタンを作って入力しようとしたところ、bookの指定方法がわからず困っています。

 どうぞよろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

Like演算子とFor Each...Nextを使って次のようにするのはどうでしょう。

Dim lastRow As Long
Dim wb As WorkBook

For Each wb In WorkBooks

    if wb.Name Like "*抽出表.xls" Then
        Exit For
    End If
Next

wb.WorkSheets("速度一覧").Activate
:
:
（:;:;:;:;:;） 2017/08/04(金) 13:57

 (:;:;:;:;:;)さん

 ありがとうございます。

 試した所、
 wb.WorkSheets("速度一覧").Activate
 でエラーが出ます。
 なぜでしょうか？
（関数がにがて） 2017/08/04(金) 16:01

考えられる理由としては、
・【本館*】抽出表.xls が開かれていない
・【本館*】抽出表.xls に速度一覧というシートがない(半角スペースなどが混ざっている)

wb.WorkSheets("速度一覧").Activate の前に
MsgBox wb.Name
を入れて確認してみてください。
（:;:;:;:;:;） 2017/08/04(金) 16:54

 （:;:;:;:;:;）さん

 返事がおそくなり、申し訳ありません。
 確認したところ、「PERSONAL.XLSB」次に「【本館*】抽出表」が出ます。
 「速度一覧」のシートは存在しており、半角など入っておりません。

 よろしくお願いします。
（関数がにがて） 2017/08/07(月) 10:21

どんなエラーが出るのですか？
（:;:;:;:;:;） 2017/08/07(月) 11:29

（:;:;:;:;:;）さん

 遅くなりましたが、エラーは
 「実行時エラー'91':オブジェクト変数またはWithブロック変数が設定されていません」
 です。

 よろしくお願いします。
（関数がにがて） 2017/08/07(月) 13:51

コメント返信：

[ 一覧(最新更新順) ]

[[20170804112841]] 『「「3つ以上のコンボボックス連携について」(Voum』（関数がにがて） ページの最後に飛ぶ

[[20170804112841]]　『「「3つ以上のコンボボックス連携について」(Voum』（関数がにがて）　ページの最後に飛ぶ