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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
拡張ディスプレイの関連でエクセルの表示がおかしくなりました
モニター・ディスプレイ
-
Excel VBAでデュアルディスプレイを使用するメリットについて
Excel(エクセル)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
5
2画面表示でのVBAのボタン押下後のform表示の位置
Excel(エクセル)
-
6
複数モニタ使用時のフォームの表示位置してい
C言語・C++・C#
-
7
「Excelのオプション」の「ユーザーインターフェイスのオプション」の設定値をVBAで取得したい
Excel(エクセル)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
デュアルディスプレイ 起動画面を指定するには?
モニター・ディスプレイ
-
10
クリックイベントなのに、2回クリックしないとフォー
Access(アクセス)
-
11
UserForm1.Showでエラーになります。
工学
-
12
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
13
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
14
UserForm
Visual Basic(VBA)
-
15
ACCESS VBAでインポート定義の場所
Access(アクセス)
-
16
エクセルのマクロで結合セルに値を貼り付けたい
Excel(エクセル)
-
17
Excel:コマンドボタンの移動
Excel(エクセル)
-
18
エクセルVBAで画面の大きさを取得する方法!
Excel(エクセル)
-
19
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
20
Excel 書式を関数で判断。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBscriptでEXCELを起動
-
vbscriptでエクセルを操作する
-
Excelで、あるセルの値に応じて...
-
Excel UserForm の表示位置
-
VBAを使って検索したセルをコピ...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
B列の最終行までA列をオート...
-
エクセルVBA 配列からセルに「...
-
Cellsのかっこの中はどっちが行...
-
VBAマクロ実行時エラーの修正に...
-
エクセルの合計を自動で表示さ...
-
マクロのコマンドボタン《Activ...
-
VBA シートをコピーする際に Co...
-
マクロの「SaveAs」でエラーが...
-
エクセルで離れた列を選択して...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA 別ブックからの転記の高速...
-
【ExcelVBA】zip圧縮されたCSV...
-
エクセルVBAにて =A1=B1とすれ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マルチディスプレイを使用して...
-
VBscriptでEXCELを起動
-
VBでexcelのプレビュー画面表示
-
powershellスクリプトで出力し...
-
あなたは何も恐れる必要はない...
-
VB.NET Excelの解放
-
vbscriptでエクセルを操作する
-
beep音を変えたい
-
リンクのExcelファイルをIE上で...
-
エクセルで特定の文字列が入っ...
-
VBAマクロ実行時エラーの修正に...
-
マクロの「SaveAs」でエラーが...
-
VBA シートをコピーする際に Co...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで離れた列を選択して...
-
Worksheets メソッドは失敗しま...
-
VLOOKUPの列番号の最大は?
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
おすすめ情報