Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

358 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【75255】Re:外部アプリケーションの位置、サイズ...

kanabun - 14/1/22(水) 9:25 -


	引用なし

	パスワード

▼亜矢さん：こんにちは～こちらは参考になりませんか？ ht tp://www.moug.net/tech/acvba/0010014.html

・ツリー全体表示


	【75254】外部アプリケーションの位置、サイズ設定

亜矢 - 14/1/22(水) 9:12 -


	引用なし

	パスワード

いつもお世話になります。
開いている外部アプリケーションを指定した位置と指定したサイズに
設定する方法を教えて頂きたいと思います。　

・ツリー全体表示


	【75253】Re:リストと一致するデータを検索

zucchi - 14/1/21(火) 13:32 -


	引用なし

	パスワード

ご連絡遅くなって申し訳ありません。
教えていただいた方法で
完璧に対応できました！
本当にありがとうございました。

・ツリー全体表示


	【75252】Re:外部アプリケーションの画面位置

亜矢 - 14/1/21(火) 11:37 -


	引用なし

	パスワード

▼Yuki さん：
>▼亜矢さん：
>>お世話になります。
>>外部アプリケーションのwindow(画面）の位置（座標）をどのようにしたら
>>取得できるか教えて頂きたいと思います。画面位置は左上と右下だけ取得できれば
>>高さと幅は取得できると思いますが・・・
>
>こんな感じでしょうか
>検証していませんのでスペルミスがあるかも
>
>' 座標
>Public Type RECT
>　　Left　 As Long
>　　Top　　As Long
>　　Right　As Long
>　　Bottom As Long
>End Type
>
>' ウィンドウの長方形の寸法
>Private Declare Function GetWindowRect Lib "user32.dll" _
>　　　　　　　　　　　　　 (ByVal hWnd As Long, _
>　　　　　　　　　　　　　　lpRect As RECT) As Long
>Sub SampleA()
>　　dim RC As RECT
>　　dim hWnd As Long
>　　dim lngRTn As Long
>
>　　hWnd = Window Handle (FindWindow等で取得)
>　　lngRTn = GetWindowRect(hWnd, RC)
>　　with RC
>　　　　Debug.Print .Left, .Top, Right, .Bottom
>　　end With
>End Sub
ありがとうございました。上記のプログラムで解決しました。
Rightは.Rightに修正させて頂きました。

・ツリー全体表示


	【75251】Re:外部アプリケーションの画面位置

Yuki - 14/1/21(火) 10:34 -


	引用なし

	パスワード

▼亜矢さん：
>お世話になります。
>外部アプリケーションのwindow(画面）の位置（座標）をどのようにしたら
>取得できるか教えて頂きたいと思います。画面位置は左上と右下だけ取得できれば
>高さと幅は取得できると思いますが・・・

こんな感じでしょうか
検証していませんのでスペルミスがあるかも

' 座標
Public Type RECT
　　Left　 As Long
　　Top　　As Long
　　Right　As Long
　　Bottom As Long
End Type

' ウィンドウの長方形の寸法
Private Declare Function GetWindowRect Lib "user32.dll" _
　　　　　　　　　　　　　 (ByVal hWnd As Long, _
　　　　　　　　　　　　　　lpRect As RECT) As Long
Sub SampleA()
　　dim RC As RECT
　　dim hWnd As Long
　　dim lngRTn As Long

　　hWnd = Window Handle (FindWindow等で取得)
　　lngRTn = GetWindowRect(hWnd, RC)
　　with RC
　　　　Debug.Print .Left, .Top, Right, .Bottom
　　end With
End Sub

・ツリー全体表示


	【75250】外部アプリケーションの画面位置

亜矢 - 14/1/21(火) 10:16 -


	引用なし

	パスワード

お世話になります。
外部アプリケーションのwindow(画面）の位置（座標）をどのようにしたら
取得できるか教えて頂きたいと思います。画面位置は左上と右下だけ取得できれば
高さと幅は取得できると思いますが・・・
　

・ツリー全体表示


	【75249】Re:VBAで起動したアプリケーションに、ド...

kumatti - 14/1/20(月) 19:55 -


	引用なし

	パスワード

WM_DROPFILEか、IDropTarget::Dropでどうぞ。
ht tp://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200408/04080042.txt
ht tp://bbs.wankuma.com/index.cgi?mode=al2&namber=15727&KLOG=32

・ツリー全体表示


	【75248】VBAで起動したアプリケーションに、ドラ...

flowvenom - 14/1/20(月) 16:15 -


	引用なし

	パスワード

このたびはお世話になります。

アプリケーションの起動・使用を自動化したいと思っています。
SendKeysを使うことでキー操作をアプリケーションに送れるということはわかったのですが、
ドラッグアンドドロップ式で操作するアプリケーションに、ファイルのドラッグアンドドロップを
伝える方法が、調べても見つかりませんでした。

このような操作はVBAではできないのでしょうか？

よろしくお願いします。

・ツリー全体表示


	【75247】Re:セルの選択

マナ - 14/1/19(日) 17:12 -


	引用なし

	パスワード

このあたりを参考にしてはどうでしょうか

ht tp://www.moug.net/tech/exvba/0110020.html
ht tp://officetanaka.net/excel/vba/tips/tips126.htm
ht tp://www.moug.net/tech/exvba/0050065.html

・ツリー全体表示


	【75246】Excel2003で置換について教えて下さい。

sp

- 14/1/19(日) 11:42 -


	引用なし

	パスワード

初めまして。お世話になります。

古いのですが、2003でのデータ置換について質問させて下さい。

伝票データをカンマ区切りのTXTで作成しています。（得意先コードでソートしています）
そのデータをエクセルに取り込んで
Ａ列（固定）をデータが有る限り例えば10を20に置換。

Ｂ列は伝票No.で重複しないようにマクロを実行した日付＋001に置換。得意先コードが変われば日付＋002に変更して置換。※重複しなければ日付じゃ無くてもＯＫです。

Ｃ列は行No.で得意先ごとに明細行が10件有れば01～10、明細行が5件有れば01～05に置換。得意先コードが変わればまた01～明細行の数だけの数字を置換します。（最大999）

得意先コードはＤ列で、Ａ，Ｂ，Ｃ列はランダムな数値が入っています。
Ａ列は置換する数値が固定なのでコピー、ペーストでも対応できますが伝票No.と行No.がマクロで自動で置換したいです。

分かりにくい文で申し訳ないですが、よろしくお願いします。

・ツリー全体表示


	【75245】Re:カタカナ名のフォルダにあるブックを...

佳 - 14/1/18(土) 17:19 -


	引用なし

	パスワード

こんにちは。スタートアップフォルダに入っているのがエクセルファイル本体（ショートカットではない）という前提で、そのファイルを開いてエクセルの中で最前面もってきて、 Range("A1").Value = ActiveWorkbook.Path　を実行すればそのフォルダのパスがA1セルに書き込まれます。ご参考まで。（ほんとうはDebug.Print ActiveWorkbook.Pathのほうが使い勝手がよいのですが）

・ツリー全体表示


	【75244】Re:カタカナ名のフォルダにあるブックを...

aki - 14/1/18(土) 15:11 -


	引用なし

	パスワード

▼kanabun さん：
>
>>「C:\ProgramData\Microsoft\Windows\スタートメニュー\プログラム\スタートアップ」
>
>エクスプローラでそのフォルダを表示して、パスのところで右クリックすると
>「アドレスをテキストとしてコピー」というメニュ－があります。
>それを実行すると、
>
>C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup
>
>とコピーされます。

kanabun さん
　ご指導をいただいた通りの方法でマクロを作成し実行したところ、
スタートアップのフォルダに入れておいたブックを開くことができました。
　誠にありがとうございました。　

・ツリー全体表示


	【75243】Re:カタカナ名のフォルダにあるブックを...

kanabun - 14/1/18(土) 10:30 -


	引用なし

	パスワード

▼aki さん： >実は、ＣＰ立ち上げと同時にExcelを起動させるための方法として >スタートアップのフォルダーにブックを入れてみたところ目的は叶いました。 Windows7 ですよね？いわゆるスタートアップフォルダーというのは、 ↓ここにあると思うんですけど？ ht tp://miso.hamazo.tv/e2083026.html マクロでは、 Sub test() 　　Debug.Print CreateObject("WScript.Shell").SpecialFolders("StartUp") End Sub これを実行すると、イミディエイト・ウィンドウに「スタートアップ」フォルダが表示されますので、確認してみてください。

・ツリー全体表示


	【75242】Re:カタカナ名のフォルダにあるブックを...

aki - 14/1/18(土) 9:44 -


	引用なし

	パスワード

γ　さん
ご指導ありがとうございます。
実は、ＣＰ立ち上げと同時にExcelを起動させるための方法として
スタートアップのフォルダーにブックを入れてみたところ目的は叶いました。
しかし、このブックのメンテナンスをするためopenをしようと試みたが出来ないことが、今回のご質問の発端です。
ＣＰ、Windowsについての初心者ですが、スタートアップのフォルダーに入れたブックを開いたり、保存したりすることは出来ないと考えた方がいいようですね。ありがとうございました。

・ツリー全体表示


	【75241】Re:カタカナ名のフォルダにあるブックを...

aki - 14/1/18(土) 9:11 -


	引用なし

	パスワード

kanabun さん
ご指導ありがとうございます。
早速トライしてみます。

・ツリー全体表示


	【75240】セルの選択

Liz - 14/1/18(土) 8:37 -


	引用なし

	パスワード

お世話になります。
日常の作表作業を効率化したく以下のVBAについてご教示ください。

・表示形式に応じて該当のセルを選択する
（たとえば表示形式が、"文字列"となっているセルのみを選択）

・文字の色が青のセルのみ選択（ColorIndex = 5）

・A1からLastCellの間で　空白行　のみを選択する

以上３件ですが、急いでおりませんので一つずつでも構いません。
何卒宜しくおねがいします。

・ツリー全体表示


	【75239】Re:カタカナ名のフォルダにあるブックを...

γ - 14/1/17(金) 20:31 -


	引用なし

	パスワード

既に指摘頂いたとおりですが、そこは適切な場所なんでしょうか。
それは、Windowsのスタートアップメニュー
つまり、実行可能なファイル（exeファイル）のショートカットを
置く場所のような気がしますけど、すでにそこにBookが入っていたわけですか。

Excelの起動時に自動的に開くBookを入れるフォルダの意味なら、
Sub test()
　　MsgBox Application.StartupPath
End Sub
で確認できますよ。

・ツリー全体表示


	【75238】Re:カタカナ名のフォルダにあるブックを...

kanabun - 14/1/17(金) 19:44 -


	引用なし

	パスワード

▼aki さん： >「C:\ProgramData\Microsoft\Windows\スタートメニュー\プログラム\スタートアップ」エクスプローラでそのフォルダを表示して、パスのところで右クリックすると「アドレスをテキストとしてコピー」というメニュ－があります。それを実行すると、 C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup とコピーされます。

・ツリー全体表示


	【75237】カタカナ名のフォルダにあるブックを開き...

aki - 14/1/17(金) 16:40 -


	引用なし

	パスワード

　Windows７を使用している VBA の素人です。「C:\ProgramData\Microsoft\Windows\スタートメニュー\プログラム\スタートアップ」のフォルダに入っているブックをopenで開きたいと思い、トライするも開きません。　参考まで前述のWindowsのフォダルにブックを入れて　　　　　　　　　　　　　Workbooks.open C:\ProgramData\Microsoft\Windows\book.xlsm 　の処理でブックは開きました。従って、フォルダのカタカナ名の入れ方に問題があるのではないかと考え、空欄の空け方やエクスプローラーのフォルダ名をコピーしてフォルダ名を入れてトライするも、スタートアップのフォルダに入れたブックを開くことはできませんでした。　あと考え付くのはカタカナのフォルダ名を英語（アルファベット）にする方法もあると思いますがパソコンを購入した時の状態で使用したいと思っておりフォルダ名の変更は今のところ考えていません。　このような条件下でカタカナ名のフォルダとマッチングさせブックを開くにはどのような方法でフォルダ名を入れ（指定）たら良いでしょうか？宜しくお願いします。　

・ツリー全体表示


	【75236】www.zzleshirts.com

www.zzleshirts.com

- 14/1/17(金) 11:21 -


	引用なし

	パスワード

D10:www.zzleshirts.com/p74.html
紅蜘蛛:www.zzleshirts.com/p35.html
威哥王:www.zzleshirts.com/p250.html
巨人倍増:www.zzleshirts.com/p2.html
花痴:www.zzleshirts.com/p28.html
ハナチ:www.zzleshirts.com/p28.html
RU486:www.zzleshirts.com/p59.html
夜狼神:www.zzleshirts.com/p689.html
徳国黒金:www.zzleshirts.com/p696.html
VigRx:www.zzleshirts.com/p198.html
アフリカ超人:www.zzleshirts.com/p688.html
中華牛鞭:www.zzleshirts.com/p60.html
蔵秘雄精:www.zzleshirts.com/p690.html
止血薬カルバゾクロム錠:www.zzleshirts.com/p694.html
女性用バイアグラ:www.zzleshirts.com/p698.html
セフラジン:www.zzleshirts.com/p695.html
淫インモラル:www.zzleshirts.com/p651.html
D10媚薬:www.zzleshirts.com/p74.html
絶對高潮:www.zzleshirts.com/p1.html
絶對高潮カプセル:www.zzleshirts.com/p1.html
FLY D5:www.zzleshirts.com/p293.html
D5原液:www.zzleshirts.com/p292.html
蒼蝿水:www.zzleshirts.com/p293.html
花之欲:www.zzleshirts.com/p26.html
美人豹:www.zzleshirts.com/p338.html
妻之友:www.zzleshirts.com/p357.html
福源春:www.zzleshirts.com/p372.html
福源春カプセル:www.zzleshirts.com/p372.html
催情丹:www.zzleshirts.com/p411.html
D10:www.zzleshirts.com/p74.html
D10催情剤:www.zzleshirts.com/p74.html
D8 催情剤:www.zzleshirts.com/p170.html
魔鬼天使性欲粉:www.zzleshirts.com/p348.html
蟻王:www.zzleshirts.com/p206.html
アリ王:www.zzleshirts.com/p206.html
淫インモラル:www.zzleshirts.com/p651.html
インモラル:www.zzleshirts.com/p651.html
妖姫:www.zzleshirts.com/p650.html
VOV催情液:www.zzleshirts.com/p193.html
小情人:www.zzleshirts.com/p162.html
VOV催情粉:www.zzleshirts.com/p194.html
d9催情:www.zzleshirts.com/p167.html
中絶薬:www.zzleshirts.com/c3.html
中絶薬:www.zzleshirts.com/c3.html
潤滑剤:www.zzleshirts.com/p149.html
コンドーム:www.zzleshirts.com/c26.html
避妊薬:www.zzleshirts.com/c23.html
SEX DROPS:www.zzleshirts.com/p162.html
スペインセックスドロップ:www.zzleshirts.com/p170.html
情愛芳香劑:www.zzleshirts.com/c65.html
安宮牛黄丸:www.zzleshirts.com/p639.html
碧生源減肥:www.zzleshirts.com/p693.html

威哥王:www.zzleshirts.com/p250.html
巨人倍増:www.zzleshirts.com/p2.html
三體牛鞭:www.zzleshirts.com/p402.html
三体牛鞭:www.zzleshirts.com/p402.html
新一粒神:www.zzleshirts.com/p429.html
五便宝:www.zzleshirts.com/p238.html
狼1号:www.zzleshirts.com/p100.html
狼一号:www.zzleshirts.com/p100.html
三便宝:www.zzleshirts.com/p288.html
蟻力神:www.zzleshirts.com/p128.html
ビグレックス:www.zzleshirts.com/p198.html
VVK:www.zzleshirts.com/p192.html
Wenickman:www.zzleshirts.com/p192.html
VigRx:www.zzleshirts.com/p198.html
vigrxプラス:www.zzleshirts.com/p198.html
奇果:www.zzleshirts.com/p358.html
金博郎:www.zzleshirts.com/p469.html
MaxMan:www.zzleshirts.com/p152.html
法国性奴:www.zzleshirts.com/p439.html
蔵秘男宝:www.zzleshirts.com/p294.html
勃動力三體牛鞭:www.zzleshirts.com/p456.html
中華牛鞭:www.zzleshirts.com/p60.html
立挺90度:www.zzleshirts.com/p104.html
男根増長素:www.zzleshirts.com/p410.html
消渇丸:www.zzleshirts.com/p179.html
消渇丸輸入:www.zzleshirts.com/p179.html
三鞭粒:www.zzleshirts.com/p433.html
男宝:www.zzleshirts.com/p329.html
壮三天:www.zzleshirts.com/p443.html
魔根:www.zzleshirts.com/p403.html
壮天根:www.zzleshirts.com/p55.html
黒倍王:www.zzleshirts.com/p401.html
九鞭粒:www.zzleshirts.com/p463.html
��h�jｽ:www.zzleshirts.com/p42.html
男露888:www.zzleshirts.com/p349.html
蔵八宝:www.zzleshirts.com/p430.html
性霸2000:www.zzleshirts.com/p209.html
Xing霸:www.zzleshirts.com/p209.html
藏秘男宝:www.zzleshirts.com/p294.html
鹿茸腎宝:www.zzleshirts.com/p332.html
力多精:www.zzleshirts.com/p103.html
西班牙蒼蝿水:www.zzleshirts.com/p228.html
モチベーター:www.zzleshirts.com/p213.html
リドスプレー:www.zzleshirts.com/p212.html
LIDO SPRAY:www.zzleshirts.com/p212.html

天天素:www.zzleshirts.com/p387.html
V26:www.zzleshirts.com/p183.html
強効痩:www.zzleshirts.com/p363.html
御秀堂:www.zzleshirts.com/p120.html
痩身一号:www.zzleshirts.com/p46.html
痩身1号:www.zzleshirts.com/p46.html
唯美OB:www.zzleshirts.com/p246.html
終極痩身:www.zzleshirts.com/p52.html
韓国痩身一号:www.zzleshirts.com/p46.html
韓国痩身1号:www.zzleshirts.com/p46.html
日本秀身堂:www.zzleshirts.com/p368.html
超級脂肪燃焼弾:www.zzleshirts.com/p283.html
スーパーファット:www.zzleshirts.com/p283.html
大印象ダイエット茶:www.zzleshirts.com/p290.html
曲美:www.zzleshirts.com/p366.html

精力剤:www.zzleshirts.com/c1.html
ed治療薬:www.zzleshirts.com/c12.html
勃起不全:www.zzleshirts.com/c16.html
勃起障害:www.zzleshirts.com/c16.html
ペニス増大:www.zzleshirts.com/c13.html
早漏防止薬:www.zzleshirts.com/c14.html
ED治療:www.zzleshirts.com/c12.html
ED改善:www.zzleshirts.com/c12.html
勃起促進:www.zzleshirts.com/c16.html
媚薬:www.zzleshirts.com/c60.html
媚薬通販:www.zzleshirts.com/c60.html
媚薬販売:www.zzleshirts.com/c60.html
媚薬効果:www.zzleshirts.com/c60.html
媚薬激安:www.zzleshirts.com/c60.html
女性用媚薬:www.zzleshirts.com/c60.html
リキッド媚薬:www.zzleshirts.com/c60.html
粉劑媚薬:www.zzleshirts.com/c60.html
催情剤:www.zzleshirts.com/p74.html
催情:www.zzleshirts.com/p74.html
催情粉:www.zzleshirts.com/p38.html
催淫:www.zzleshirts.com/p28.html
催淫剤:www.zzleshirts.com/p28.html
ペニス増大:www.zzleshirts.com/p192.html
アフリカ超人:www.zzleshirts.com/p688.html
房事神油:www.zzleshirts.com/p409.html
愛妻楽:www.zzleshirts.com/p262.html
紅蜘蛛通販:www.zzleshirts.com/p35.html
威哥王販売:www.zzleshirts.com/p250.html
巨人倍増カプセル:www.zzleshirts.com/p2.html
五便宝カプセル:www.zzleshirts.com/p238.html
金色起点:www.zzleshirts.com/p9.html
威猛酷哥:www.zzleshirts.com/p249.html
毎粒堅:www.zzleshirts.com/p334.html
香港宝和堂海狗丸:www.zzleshirts.com/p180.html
金威龍:www.zzleshirts.com/p7.html
イリュウ:www.zzleshirts.com/p7.html
威龍:www.zzleshirts.com/p435.html
D5 催情剤:www.zzleshirts.com/p164.html
マカ:www.zzleshirts.com/p215.html

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

358 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free