Excel VBA質問箱 IV

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

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


53222 / 76732 ←次へ | 前へ→

【28328】Re:ブックの切り替え
回答  Jaka  - 05/9/2(金) 15:16 -

引用なし
パスワード
   Dim WB As Workbook
If Workbooks.Count = 1 Then
  MsgBox "開いているブックが、1つしかないです。"
  Exit Sub
ElseIf Workbooks.Count > 3 Then
  MsgBox "開いているブックが、4つ以上開いてます。"
  Exit Sub
End If
'上のIF文は、消すか適当に修正してください.
For Each WB In Workbooks
  If WB.Name <> ThisWorkbook.Name And _
    WB.Name <> "含有量作成.xls" Then
    WB.Sheets("Sheet1").Range("D2").Copy Workbooks("含有量作成.xls").Sheets("Sheet1").Range("B13")
  End If
Next
0 hits

【28323】ブックの切り替え 超超初心者 05/9/2(金) 14:30 質問
【28327】Re:ブックの切り替え m2m10 05/9/2(金) 15:15 発言
【28328】Re:ブックの切り替え Jaka 05/9/2(金) 15:16 回答
【28389】Re:ブックの切り替え 超超初心者 05/9/5(月) 10:39 お礼

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