Excel VBA質問箱 IV

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

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


30340 / 76732 ←次へ | 前へ→

【51659】Re:ブックを分けましたが。
発言  neptune  - 07/9/28(金) 17:23 -

引用なし
パスワード
   ▼すず さん:

こういう事ですか?

'////////////ThisWorkBookモジュール////////////////
Private Sub Workbook_Open()

  Dim i As Integer, k As Integer
  Dim ws3 As Object

  ChDir "C:\Documents and Settings\デスクトップ"
  Workbooks.Open Filename:= _
    "C:\Documents and Settings\デスクトップ\hoge.xls", UpdateLinks:=0

  ChDir "C:\Documents and Settings\デスクトップ"
  Workbooks.Open Filename:= _
    "C:\Documents and Settings\デスクトップ\hogehoge.xls", UpdateLinks:=0

End Sub

'////////////標準モジュール////////////////
Sub test1()
Dim tBK1 As Workbook
  Set tBK1 = Workbooks("C:\Documents and Settings\デスクトップ\hoge.xls")
  Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, i As Long

  Set ws1 = ThisWorkbook.Worksheets("マスタ")
  Set ws2 = tBK1.Worksheets("sheet1")
  Set ws3 = tBK1.Worksheets("sheet2")
 '変数を作成
  Dim AB As Long, BA As Long
 'SUMIFで合計する
  i = 8
  With ActiveSheet
    Do Until .Cells(i, 6).Value = ""
      AB = Application.WorksheetFunction.SumIf _
         (ws2.Range("C7:C441"), ws1.Range("F" & i).Value, ws2.Range("E7:E441"))
      BA = Application.WorksheetFunction.SumIf _
         (ws3.Range("C7:C47"), ws1.Range("F" & i).Value, ws3.Range("F7:F47"))
      If AB > BA Then
      ws1.Range("G" & i).Value = AB - BA
      ElseIf AB < BA Then
      ws1.Range("G" & i).Value = BA
      End If
      i = i + 1
    Loop
  End With
End Sub

もし、こうならtest1プロシージャを実行する時は絶対確実に目的のシートが
ActiveSheetになっていますか?

>今はインデックスが有効範囲にない、と怒られています
どこでですか?

>Set tBK1 = Workbooks("C:\Documents and Settings\デスクトップ\hoge.xls")
は既に開いているから
Set tBK1 = Workbooks("hoge.xls")
でOKじゃないですか?
2 hits

【51636】ブックを分けましたが。 すず 07/9/27(木) 16:30 質問
【51645】Re:ブックを分けましたが。 neptune 07/9/27(木) 21:04 発言
【51652】Re:ブックを分けましたが。 すず 07/9/28(金) 14:21 質問
【51655】Re:ブックを分けましたが。 neptune 07/9/28(金) 15:58 回答
【51658】Re:ブックを分けましたが。 すず 07/9/28(金) 16:33 回答
【51659】Re:ブックを分けましたが。 neptune 07/9/28(金) 17:23 発言
【51662】Re:ブックを分けましたが。 neptune 07/9/28(金) 21:54 回答

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