Excel VBA質問箱 IV

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

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


33373 / 76734 ←次へ | 前へ→

【48583】Re:特定セルの文字列に合致しない場合には処理を終了させたい
発言  ウッシ  - 07/4/23(月) 20:41 -

引用なし
パスワード
   こんばんは

1)最初に判定した方が良くないでしょうか?
2)変数の宣言をキチンとすべきと思います。
を、まず検討して下さい。

>ぜひ解決方法を教えてください。
解決方法は、
3)Select、Activate を省いたコード
に尽きます。

今のコードでは、どのブックのどのシートのどのセルを処理対象としているのか
第三者には正確には理解出来ません。

こんな↓感じで対象オブジェクトを明確に指定します。

Sub test()
  Dim 名前 As String
  Dim ws  As Worksheet
  名前 = Worksheets("労務メイン").Cells(3, 7).Value
  With Worksheets("労務_集計") '現場名を設定してデータ抽出
    .Range("A2").AutoFilter Field:=1, Criteria1:=名前
    .AutoFilter.Range.Copy
  End With
  A02月報入力シートを開く ws
  If ws Is Nothing Then
    MsgBox "対象月報入力シート無し"
    Exit Sub
  Else
    ws.Range("J15").PasteSpecial Paste:=xlValues
  End If
End Sub
Private Sub A02月報入力シートを開く(ByRef ws As Worksheet)
  Dim i As Long
  With Sheets("メイン")
    i = .Range("C1").Value
    If i >= 1 And i <= 12 Then
      i = IIf(i < 5, i + 8, i - 4)
      On Error Resume Next
      Set ws = Sheets(CStr(i & "月"))
      On Error GoTo 0
    End If
  End With
End Sub

2 hits

【48489】特定セルの文字列に合致しない場合には処理を終了させたい tamachan 07/4/19(木) 9:18 質問
【48492】Re:特定セルの文字列に合致しない場合には... ウッシ 07/4/19(木) 10:21 発言
【48582】Re:特定セルの文字列に合致しない場合には... tamachan 07/4/23(月) 19:25 質問
【48583】Re:特定セルの文字列に合致しない場合には... ウッシ 07/4/23(月) 20:41 発言
【48643】Re:特定セルの文字列に合致しない場合には... tamachan 07/4/27(金) 12:15 お礼

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