海月姫

【写真付】去年話題になった アニメ映画 この世界の片隅に (口コミでヒットに繋...

投稿日:

【写真付】去年話題になった アニメ映画 この世界の片隅に (口コミでヒットに繋...

去年話題になった アニメ映画 この世界の片隅に (口コミでヒットに繋...

去年話題になった アニメ映画
この世界の片隅に
(口コミでヒットに繋がった)
実写になるらしいが
主演女優
のん、さん
じゃダメなの?
アニメの声のんだよね?
DVD でみたが
あってたんだが?

TBS版の主演女優の所属先は、バーニング系列
の事務所だそうな。...

アンサー

「ビビッドレッドオペレーション」の二葉あおいと温水プールに行きたいです


質問タグ:ビビッドレッドオペレーション,二葉あおい,温水プール

【決定版】洋画、邦画、アニメでもいいので あなたのお気に入りの映画鑑賞券を教...

洋画、邦画、アニメでもいいので あなたのお気に入りの映画鑑賞券を教...

洋画、邦画、アニメでもいいので
あなたのお気に入りの映画鑑賞券を教えてください

屍者の帝国、虐殺器官、ハーモニーのムビチケカード Set bk = exWorkbooks(1)
Set sh = bkActiveSheet
Set ws = CreateObject("WScriptShell")
c = "cmd /c ""echo " & shRange("A1")Text & "| clip"""
wsRun c, 0
Set hm = CreateObject("htmlfile")
MsgBox(Trim(hmParentWindowClipboardDataGetData("text")))
Set hm = Nothing
Set ws = Nothing
簡単な説明です。
Option Explicit
「厳密に」とか「明確に」というような意味で、このオプションを設定すると、変数は、その使用の前に、「Dim」等によって、必ず、「使いますよ!」と、宣言しておかなければなりません。
Set ex = GetObject(, "ExcelApplication")
開いているエクセルブックを取得するのに必要です。
Set bk = exWorkbooks(1)
開いているブックを取得しています。
★★★今は、ブックが1つしか開いていない、という前提条件です。★★★
Set sh = bkActiveSheet
開いているブックのアクティブシートを「sh」にセット。
Set ws = CreateObject("WScriptShell")
クリップボードにデータを送るのに必要です(「コマンドプロンプト」を「VBScript」上で実行するのに必要です)。
c = "cmd /c ""echo " & shRange("A1")Text & "| clip"""
クリップボードにセル「A1」の文字を送る命令を「c」に入れています。
wsRun c, 0
「c」を実行しています。
最後の「0」は、コマンドプロンプト画面を表示しません。
Set ws = Nothing
「Set」で使った変数は、使い終わったあと、「Nothing」で解放しておきます。
エクセルについては、開いたままなので、まだ解放できません。
こうして「コピー&ペースト」の「コピー」ができました。
どこかで(メモ帳など)、「Ctrl+v」とすると、取得した文字列が書き出されます。
質問者が想定しておられる、「別窓」がどのようなソフトかによって、ペーストの仕方が全く異なります。
エクセルのセルや、ワードなら、「VBScript」で取得できますので、もしかしたら、比較的簡単に実現できるかも知れませんが、マイクロソフト以外のソフトなら、かなり難しいと思います。
「VBScript」で、そのソフトを取得できないからです。
◆ありがとうございます、会社の特殊なパソコン(IEとマクロが無効)で使用したく・・・今自分のパソコンで試すことが出来ないのですが、印刷し、明日出社してやってみます。別窓はそのセキュリティが厳しい特殊端末を使用するので、あちこちに検索をかけてもうまくひっかかりません。。しかしながら、全くのド素人の私にもご親切に教えて頂きありがとうございます!!実際やってみて、新たな問題が出たらまた質問をしてみたいと思います。ありがとうございました!


質問タグ:プログラム,Option Explicit,bk.ActiveSheet,クリップボード,ex.Workbooks,インプットボックス,ws.Run c

-海月姫
-, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,

Copyright© アニメ百選 , 2019 All Rights Reserved Powered by AFFINGER5.