No.4ベストアンサー
- 回答日時:
No.3です。
sample4,sample5,sample6で
>Set excel1 = New Excel.Application
>Set excel2 = New Excel.Application
の後に
excel1.Visible = True
excel2.Visible = True
を入れてください。
>プログラムは、スポーツ吹矢の大会(50~80名参加)で得点結果と順位をプロジェクターで表示するものです。
>プライマリーディスプレイは、得点の入力と順位を計算します。
>セカンダリーディスプレイは、プロジェクターでの表示用で指定した時間間隔で画面をスクロールさせます。
適当なシートにコントロールツールボックスのコマンドボタン(CommandButton1,CommandButton2,CommandButton3)を作って、そのシートのvba部に以下をコピーしてください。
Dim excel As New excel.Application
Dim displaySheet As Worksheet
'Excel起動
Private Sub CommandButton1_Click()
If excel.Workbooks.Count <> 0 Then
MsgBox "すでに起動しています"
Exit Sub
End If
'表示用Excelの起動と位置指定
With excel
.Top = 0
.Left = 600
.Width = 500
.Height = 500
.Visible = True
.Workbooks.Add
Set displaySheet = .ActiveWorkbook.ActiveSheet
End With
ThisWorkbook.ActiveSheet.Select 'フォーカスを戻しておく
End Sub
'Excel終了
Private Sub CommandButton2_Click()
If excel.Workbooks.Count = 0 Then
MsgBox "起動していません"
Exit Sub
End If
displaySheet.Parent.Close False
excel.Quit
End Sub
'データ転送(A1:C3範囲)
Private Sub CommandButton3_Click()
If excel.Workbooks.Count = 0 Then
MsgBox "起動していません"
Exit Sub
End If
displaySheet.Range("A1:C3").Value = Range("A1:C3").Value
End Sub
有難うございました。うまく表示され、マルチディスプレイもうまく行きました。これで何とかソフトが完成しそうです。本当にありがとうございました。
No.3
- 回答日時:
どんなプログラムでしょうか?
たとえ別プロセスでもコピーできると思います。
どうしてもできないのがsample4ですが、後は相手の指定が不完全な場合だと思います。
マルチディスプレイはたぶん関係無いとは思います。
同じプロセス間で書式も含めてコピー。
Sub sample1()
Dim book1 As Workbook
Dim book2 As Workbook
Set book1 = Workbooks.Add
Set book2 = Workbooks.Add
book1.Sheets(1).Range("A1").Value = "123"
book1.Sheets(1).Range("A1").Copy book2.Sheets(1).Range("A1")
MsgBox book2.Sheets(1).Range("A1").Value
book1.Close False
book2.Close False
End Sub
同じプロセス間で値をコピー。
Sub sample2()
Dim book1 As Workbook
Dim book2 As Workbook
Set book1 = Workbooks.Add
Set book2 = Workbooks.Add
book1.Sheets(1).Range("A1").Value = "123"
book2.Sheets(1).Range("A1").Value = book1.Sheets(1).Range("A1").Value
MsgBox book2.Sheets(1).Range("A1").Value
book1.Close False
book2.Close False
End Sub
同じプロセス間でクリップボード経由でコピー。
Sub sample3()
Dim book1 As Workbook
Dim book2 As Workbook
Set book1 = Workbooks.Add
Set book2 = Workbooks.Add
book1.Sheets(1).Range("A1").Value = "123"
book1.Sheets(1).Range("A1").Copy
book2.Sheets(1).Paste Destination:=Range("A1")
MsgBox book2.Sheets(1).Range("A1").Value
book1.Close False
book2.Close False
End Sub
別プロセス間で書式も含めてコピー。
Sub sample4()
Dim excel1 As Excel.Application
Dim excel2 As Excel.Application
Dim book1 As Workbook
Dim book2 As Workbook
Set excel1 = New Excel.Application
Set excel2 = New Excel.Application
Set book1 = excel1.Workbooks.Add
Set book2 = excel2.Workbooks.Add
book1.Sheets(1).Range("A1").Value = "123"
book1.Sheets(1).Range("A1").Copy book2.Sheets(1).Range("A1")
MsgBox book2.Sheets(1).Range("A1").Value
book1.Close False
book2.Close False
End Sub
別プロセス間で値をコピー。
Sub sample5()
Dim excel1 As Excel.Application
Dim excel2 As Excel.Application
Dim book1 As Workbook
Dim book2 As Workbook
Set excel1 = New Excel.Application
Set excel2 = New Excel.Application
Set book1 = excel1.Workbooks.Add
Set book2 = excel2.Workbooks.Add
book1.Sheets(1).Range("A1").Value = "123"
book2.Sheets(1).Range("A1").Value = book1.Sheets(1).Range("A1").Value
MsgBox book2.Sheets(1).Range("A1").Value
book1.Close False
book2.Close False
End Sub
別プロセス間でクリップボード経由でコピー。
Sub sample6()
Dim excel1 As Excel.Application
Dim excel2 As Excel.Application
Dim book1 As Workbook
Dim book2 As Workbook
Set excel1 = New Excel.Application
Set excel2 = New Excel.Application
Set book1 = excel1.Workbooks.Add
Set book2 = excel2.Workbooks.Add
book1.Sheets(1).Range("A1").Value = "123"
book1.Sheets(1).Range("A1").Copy
book2.Sheets(1).Paste Destination:=book2.Sheets(1).Range("A1")
MsgBox book2.Sheets(1).Range("A1").Value
book1.Close False
book2.Close False
End Sub
この回答への補足
プログラムは、スポーツ吹矢の大会(50~80名参加)で得点結果と順位をプロジェクターで表示するものです。
プライマリーディスプレイは、得点の入力と順位を計算します。
セカンダリーディスプレイは、プロジェクターでの表示用で指定した時間間隔で画面をスクロールさせます。
この得点結果と順位を手作業でのコピー&貼り付けはできますが、できるだけ速やかに、かつ間違いの無い様にするためボタン操作で行いたい。
尚、ご回答頂いた sample6 を試してみたのですがメッセージボックスは表示しますが、book1,book2が表示されません。なぜでしょうか?
VBには不慣れのためご迷惑をおかけしますがよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) Excelからnotesメールを自動で送信出来るマクロを見つけました。 下記、URL先のマクロを使わ 1 2023/03/21 09:08
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) 記録マクロのみでできますか? 7 2022/08/07 20:38
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) VBA アドインについて お詳しい方 ご教授をお願いします。 相談事項 現在以下の対応を実施した所、 1 2022/11/02 16:53
- その他(ソフトウェア) LDPlayerのマクロの編集方法を知りたい 1 2023/03/04 11:46
このQ&Aを見た人はこんなQ&Aも見ています
-
好きなおでんの具材ドラフト会議しましょう
肌寒くなってきて、温かい食べ物がおいしい季節になってきましたね。 みなさんはおでんの具材でひとつ選ぶなら何にしますか? 1番好きなおでんの具材を教えてください。
-
秘密基地、どこに作った?
小さい頃、1度は誰もが作ったであろう秘密基地。 大人の今だからこそ言える、あなたの秘密基地の場所を教えてください!
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
おすすめのモーニング・朝食メニューを教えて!
コメダ珈琲店のモーニング ロイヤルホストのモーニング 牛丼チェーン店の朝食などなど、おいしいモーニング・朝食メニューがたくさんありますよね。
-
ギリギリ行けるお一人様のライン
おひとり様需要が増えているというニュースも耳にしますが、 あなたが「ギリギリ一人でも行ける!」という場所や行為を教えてください
-
拡張ディスプレイの関連でエクセルの表示がおかしくなりました
モニター・ディスプレイ
-
エクセルのマクロボタンが動かなくなった。
Excel(エクセル)
-
2画面表示でのVBAのボタン押下後のform表示の位置
Excel(エクセル)
-
-
4
クリックイベントなのに、2回クリックしないとフォー
Access(アクセス)
-
5
エクセルVBAで画面の大きさを取得する方法!
Excel(エクセル)
-
6
【マクロ】フォルダを2つのモニターの定位置に並べたい
Excel(エクセル)
-
7
Excel VBAでデュアルディスプレイを使用するメリットについて
Excel(エクセル)
-
8
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
9
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
10
プロシージャ名の取得
Visual Basic(VBA)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
13
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
14
HTMLからフォルダを開きたい
HTML・CSS
-
15
VBAで変数の数/変数名を動的に変化させる
その他(プログラミング・Web制作)
-
16
セルにカーソルを合わせると文字を表示させるVBA
Excel(エクセル)
-
17
ExcelVBAでセルを編集状態にする方法
Excel(エクセル)
-
18
モニタのサイズをVBAで取得することは可能ですか?
その他(Microsoft Office)
-
19
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
20
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/22】このサンタクロースは偽物だと気付いた理由とは?
- ・お風呂の温度、何℃にしてますか?
- ・とっておきの「まかない飯」を教えて下さい!
- ・2024年のうちにやっておきたいこと、ここで宣言しませんか?
- ・いけず言葉しりとり
- ・土曜の昼、学校帰りの昼メシの思い出
- ・忘れられない激○○料理
- ・あなたにとってのゴールデンタイムはいつですか?
- ・とっておきの「夜食」教えて下さい
- ・これまでで一番「情けなかったとき」はいつですか?
- ・プリン+醤油=ウニみたいな組み合わせメニューを教えて!
- ・タイムマシーンがあったら、過去と未来どちらに行く?
- ・遅刻の「言い訳」選手権
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マルチディスプレイを使用して...
-
vbscriptでエクセルを操作する
-
VBscriptでEXCELを起動
-
別ブックをダイアログボックス...
-
マクロの「SaveAs」でエラーが...
-
Excelで、あるセルの値に応じて...
-
「段」と「行」の違いがよくわ...
-
Cellsのかっこの中はどっちが行...
-
[EXCEL]ボタン押す→時刻が表に...
-
VBA シートをコピーする際に Co...
-
VBAマクロ実行時エラーの修正に...
-
Excel グラフのプロットからデ...
-
VLOOKUPの列番号の最大は?
-
エクセルVBAが途中で止まります
-
Worksheets メソッドは失敗しま...
-
vba 2つの条件が一致したら...
-
URLのリンク切れをマクロを使っ...
-
エクセルで特定の文字列が入っ...
-
【VBA】【ユーザーフォーム_Lis...
-
EXCELのSheet番号って変更でき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マルチディスプレイを使用して...
-
VBでexcelのプレビュー画面表示
-
vbscriptでエクセルを操作する
-
VB.NET Excelの解放
-
VBscriptでEXCELを起動
-
beep音を変えたい
-
ASPでエクセルの印刷定義・・・
-
powershellスクリプトで出力し...
-
エクセルグラフがピクチャボッ...
-
VBAマクロ実行時エラーの修正に...
-
B列の最終行までA列をオート...
-
「段」と「行」の違いがよくわ...
-
マクロの「SaveAs」でエラーが...
-
Worksheets メソッドは失敗しま...
-
VBA シートをコピーする際に Co...
-
エクセルで特定の文字列が入っ...
-
Excelで、あるセルの値に応じて...
-
エクセルで離れた列を選択して...
-
[EXCEL]ボタン押す→時刻が表に...
-
特定の文字がある行以外を削除...
おすすめ情報