Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9258 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【28323】ブックの切り替え
質問  超超初心者 E-MAIL  - 05/9/2(金) 14:30 -
引用なし
パスワード
   含有量作成.xlsと都度名前の変わるブック例：1.xlsの
２つのブックを開いて用いるマクロを作成しました。
Windows("1.xls").Activateとなっているところを
"開いているブック"をアクティブにすると書き換えたくて
調べたのですがわかりませんでした。どうぞよろしくお願いします。


Windows("1.xls").Activate
　　Range("D2").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Windows("含有量作成.xls").Activate
　　Range("B13").Select
　　ActiveSheet.Paste
　　Windows("1.xls").Activate
【28327】Re:ブックの切り替え
発言  m2m10  - 05/9/2(金) 15:15 -
引用なし
パスワード
   　こんちは

Windows(1).Activate
Windows(2).Activate
>　　　　 ^^

　インデックス番号でも可能です。
【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
【28389】Re:ブックの切り替え
お礼  超超初心者 E-MAIL  - 05/9/5(月) 10:39 -
引用なし
パスワード
   m2mさんJakaさん、レスありがとうございました。
おかげさまで思っているようになりましたm(__)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9258 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free