Excel VBA 質問スレ Part23

1 名前：既定のプロパティさん mailto:sage [2012/01/29(日) 00:05:13.16 ] 01 pc11.2ch.net/test/read.cgi/tech/1054356121/ 02 pc11.2ch.net/test/read.cgi/tech/1168308855/ 03 pc11.2ch.net/test/read.cgi/tech/1180192018/ 04 pc11.2ch.net/test/read.cgi/tech/1189814602/ 05 pc11.2ch.net/test/read.cgi/tech/1197448064/ 06 pc11.2ch.net/test/read.cgi/tech/1205231499/ 07 pc11.2ch.net/test/read.cgi/tech/1212587819/ 08 pc11.2ch.net/test/read.cgi/tech/1219673793/ 09 pc11.2ch.net/test/read.cgi/tech/1228372971/ 10 pc12.2ch.net/test/read.cgi/tech/1235332603/ 11 pc12.2ch.net/test/read.cgi/tech/1241885130/ 12 pc12.2ch.net/test/read.cgi/tech/1247566074/ 13 pc12.2ch.net/test/read.cgi/tech/1254281104/ 14 pc12.2ch.net/test/read.cgi/tech/1262748898/ 15 pc12.2ch.net/test/read.cgi/tech/1271261239/ 16 hibari.2ch.net/test/read.cgi/tech/1280045912/ 17 hibari.2ch.net/test/read.cgi/tech/1289182437/ 18 hibari.2ch.net/test/read.cgi/tech/1298240666/ 19 hibari.2ch.net/test/read.cgi/tech/1305754555/ 20 hibari.2ch.net/test/read.cgi/tech/1312435844/ 21 hibari.2ch.net/test/read.cgi/tech/1316931607/ 前スレ： Excel VBA 質問スレ Part22 toro.2ch.net/test/read.cgi/tech/1322400978/ 614 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 22:29:45.74 ] >612 できるけど、OSやExcelのバージョン違いに対する対応なら #If〜#Then〜#EndIfや#Constの条件付きコンパイルを使うほうがよい。 どうしても書き換えしたいなら、参照設定で 「Visual Basic for Applications」に参照設定をすれば VBEのコードそのものを直接VBAで動かせるようになる。 615 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 22:35:10.19 ] >>613 Application.DisplayAlerts = False ↑ これは単にメッセージ出すのを抑制するだけですよ？ 616 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 23:37:57.80 ] >>615 xlsxで保存したらマクロは保存されない 警告なしで保存できるんだからそれでいいだろ 617 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 23:53:25.53 ] >>613,616 なるほど。そういう手もあったんですね 618 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 23:55:37.82 ] >>615 ↑ お前がずれてますよ 605もアホだがエスパーすると… … … … 警告なしに保存したいということだろ だからDisplayAlerts=Falseが合っている FileFormat指定が的外れ 警告はxlsxで保存するとマクロは保存されませんよ ってことだからな 619 名前：586 [2012/03/14(水) 01:29:08.85 ] とりあえず、「Copyメソッドが失敗しました」のエラーが起こる簡易版のファイルを 作成しました。 www.vivi-loda.mydns.jp/index.php?m=dp&n=file1526 DLkey：asd test1の方で実行しても、test2で実行しても、 こちらの環境（Win7 HomePreminum SP1（32ビット版）、Excel2003 SP3、メモリ3G） だと、44シート追加したあたりで、当該エラーが出ます。 このファイルだと、マクロではエラーが出るものの、手作業でシート 追加はできますが、とりあえずこのエラーを回避したいです。（できるものなら） ちなみにこのマクロを実行すると、一時的にPCが重くなったりするので、お気をつけください。 よろしくお願いいたします。 620 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 02:19:08.42 ] >>619 自分の環境ではエラーにならない Win7 Ultimate SP1 (64bit) メモリ8GB、Excel 2007 SP2 621 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 03:45:17.31 ] >>619 Vista Ultimate SP2 32bit Excel2007 SP3もエラーなし ちなみにシート500まで追加させても問題なし 2003の問題か、PCの問題だな 昔ディスプレイドライバー辺りのバグでExcelでメモリ不足出たことあったが つかWin7でExcel2003とか動作保障あるのか 622 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 04:00:24.00 ] >>619 流れ読んでないけど、ワークシートのコピーは複数回実行するとマクロでなぜかエラーになる現象がある。 標準のワークシートをコピーする関数を使うのはやめて、「ワークシートを追加→セル全体をコピー→ペースト」 という関数を作っておくと楽。 623 名前：622 mailto:sage [2012/03/14(水) 04:19:36.65 ] ちなみに >>619 のファイルを実行したらうちの環境 ・Win7 Ultimate XP SP3 / Excel 2003 SP3 / メモリ3G ・Win7 Ultimate SP1 x86 / Excel 2003 SP3 / メモリ3G ・Win7 Ultimate SP1 x64 / Excel 2003 SP3 / メモリ8G でも「実行時エラー '1004': Worksheet クラスの Copy メソッドが失敗しました。」は出ます。 (エラーが発生する回数はランダム) 念のため確認ですが、手作業で「シートの追加」はできても「シートのコピー」はできないですよね？ で、ファイルを開き直すといったん復活して、再度実行すると同じ感じでエラーになる(毎回エラーに なる回数は違う)ってやつですよね？ というよりか、マクロを使わないでも手動で何十回もシートをコピーすると、シートがコピーできないが シートの追加はできるという現象は発生します。標準のシートコピーは使わないのがよいと思われます。 でも、この現象ってExcel 2007だと発生しないのか。知らなかった。 624 名前：622 mailto:sage [2012/03/14(水) 04:22:25.46 ] Win7 Ultimate XP SP3ってなんだ？そんなOSﾈｰﾖ(^_^;) Win XP SP3の間違いです・・・。 625 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 06:50:26.27 ] 外部音源やMIDIデバイスを使わずにbeep音をディストーションギターの16和音にするにはどうすればいいでしょうか 626 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 06:59:09.15 ] oshiete.goo.ne.jp/qa/1822561.html No1参照 627 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 12:09:50.35 ] 縦のrangeを横のrangeにコピーするにはどうすれば良いですか 628 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 12:30:24.18 ] >>627 マクロを記録してみろ 629 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:08:15.94 ] 範囲指定して数値のセルのみ抽出するにはどうすれば良いですか 630 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:24:44.23 ] >>629 www.google.co.jp 631 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:32:20.94 ] >>629 IsNumeric 632 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:42:11.29 ] do loop 内の処理で繰り返した回数を得るにはどうすれば良いですか 633 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:43:03.45 ] googleでdo loopって打ち込んだら画面が回ったwww 634 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:49:15.82 ] >>632 変数作って数えさせろよ 635 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:54:30.78 ] どう書けばよいでしょかお？ 636 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 18:05:08.53 ] Dim count as Integer Do While true 　　　 count++ Loop 637 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 18:07:40.23 ] ++は使えなかったかも Dim count As Integer: count = 0 Do While True count = count + 1 Loop 638 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 18:14:02.46 ] あ、成る程ですthx 639 名前：612 mailto:sage [2012/03/14(水) 22:30:17.63 ] >>614 ありがとうございます レスを参考に調べてみます 640 名前：デフォルトの名無しさん [2012/03/14(水) 22:55:04.43 ] ＶＢＡだけで就職先はあるのでしょうか？ Ｊａｖａなどは募集をよく見ますが… あとＶＢＡとＪａｖａは皆さんどのくらいでできるようになりましたか？ 専門学校で学んだのですか？ 641 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 22:59:58.12 ] >>640 すれ違いなような 642 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 23:45:13.32 ] >>640 VBAだけで就職は無理 Excelが使えるって条件の事務職員の募集なら見たことあるけど 643 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 00:14:07.98 ] グラフの縦軸の値の最大、最小、目盛の間隔は自由に決めることはできますが、横軸もできますか？ Excel2003、2010どちらでもいいので、できるならばやり方を教えてください。 よろしくお願いします。 644 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 00:48:20.37 ] >>643 縦でも横でもやり方は同じ 軸を右クリックすれば設定画面が出る 645 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 00:51:34.04 ] 　　　　　　 　 　 ＿_ 　 　 　 　 , ‐' ´　　　｀`‐、 　 　 　 　 　 　 ／￣:三} .　　 　 ／,. -─‐- ､.　　 ヽ　　　　　　　　/　　 ,.＝j 　＿,.:_'＿＿＿＿＿_ヽ、　.!　　　　 　 .／ 　 _,ﾉ 　 `‐、{　へ　　'ﾞ⌒　`!~ヽ. !　　　　 ／{.　　/ 　　　 ｀!　しﾟ　 （　ﾟj　`v‐冫　　　, '::::::::ヽ､/ 　　　　そんなことよりネコ投げようぜ！ .　　　 {.l 　 '⌒　 　 　 ﾞ 6',!　　 / :::::::::::::::/ __ . 　 　 〈　　< ´￣,ﾌ　 .ﾉｰ'_ , ‐'´::::::::::::::;/ （_ノ)‐-､ .　 　 　 ヽ.、 ` ‐", ‐´‐:ラ ':::::::::::::::: ;∠.　　 ヽ_}　 ﾞヽ 　 　 　 　 ,.r｀ "´　　／:::::::::::::::::::ィ´　　｀ゝ　 !、　　/ 　　　　　/ 　 　 　 / :::::::::::::::: ;な　　　/´＼　/ 　 r'＼ .　　　　 i　　　　　 ! ::::::::::::::／ る　|　.!::::::::／ヽ､.._!ヽ.　ヽ､ 　　　　 {　　　　　 {:::::::::::;:ｲ　/　し ‖ｉ:::::::/:::::::::::::/　 ＼ .　 　 　 ヽ 　 　 　 ヽ,.ｧ‐'´ /ヽ ま ,/`ヽ、::::::::: ／ i.imgur.com/iMDi4.jpg 646 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 01:14:33.54 ] >>644 こんな時間にレスありがとうございます。 今2010でやってるのですが、右クリックすると軸の書式設定というメニューが 出るのですが、縦軸と横軸では項目内容が違っています。 横軸では、最大、最小、値の間隔はないです。 見てるところが違うのでしょうか？ 647 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 01:50:23.30 ] >>646 グラフの種類によっては変更できない たとえば散布図だとどっちの軸も同じように設定が変えられる 648 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 01:51:43.73 ] >>642 そのExcelが使えるってどの程度のレベルの使えるなの？ 男でもある？ 649 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 02:01:33.59 ] >>647 ありがとうございます。 散布図で何とかできました。 650 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 02:05:46.33 ] >>648 バイト価格だね 651 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 02:17:39.55 ] VBAが使えるといえば普通は Oracle SQLが使えるというのも含む 652 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 05:00:10.04 ] ＶＢＡが正しく使えれば DelphiだろうがJavaScriptだろうがJavaだろうがCだろうが そんなに難しくない筈 むしろVBAのほうが難しいくらいかも ただＳＱＬはちょっと毛色が違うからＶＢＡが使えることとＳＱＬ が使えるということは同じだとは思わないほうがいいかも 653 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 06:51:56.55 ] vbaで使うデータベースはなにが良いのですか？いまはシートにデータ並べてますけれど 654 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 07:03:43.75 ] ググってきたら 655 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 08:17:32.38 ] >>625 波形を気合いで計算してWAVの頭の構造体を気合いでくっつけてdirectsound8 656 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 08:22:26.53 ] >>653 一番相性がいいのはもちろんAccess 657 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 16:53:47.11 ] こんにちあ！ コード書き終えたの ですけど12時間以上処理してるの でアドバイスくれし 658 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 18:07:40.25 ] コードを載せろよ 659 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 18:30:36.11 ] >>657 ScreenUpdatingとか、よくある高速化テクニックは使ってる？ 660 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 18:33:58.45 ] XP/Excel2000 csvファイルを出力させたいのですが、見よう見まねで固定のファイル名が出せるところまでは辿り着きました。 次にファイル名をセル参照なり変数でつけたいのですが、どうしたらいいでしょうか？ Private Sub CommandButton1_Click() Const cnsFILENAME = "\test.CSV" Dim FSO As New FileSystemObject Dim TS As TextStream Dim GYO As Long Dim GYOMAX As Long GYOMAX = Range("C65536").End(xlUp).Row Set TS = FSO.CreateTextFile( _ Filename:=ThisWorkbook.Path & cnsFILENAME, _ Overwrite:=False) GYO = 3 Do Until GYO > GYOMAX TS.WriteLine FP_EDIT_CSVREC(GYO, 2, 3) GYO = GYO + 1 Loop TS.Close MsgBox "OK" Set TS = Nothing Set FSO = Nothing End Sub 661 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 19:32:54.15 ] >>660 Dim cnsFILENAME As String cnsFILENAME = "\test.CSV" とか cnsFILENAME = Range("C5").Text とか 662 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 20:05:05.30 ] とりあえずscreenupdating使って見たんだけど、最小化してまた大きくしたら画面真っ黒になっちゃったよ 進行状況だけ表示しとけばよかったかなあ 663 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 20:13:18.21 ] 関数をワークシートにたくさん埋め込んでいるんだったら、作業中はOffにして作業後にOnに戻す これはかなり効く（たくさん埋め込んでいたらの話だけど） 664 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:12:15.18 ] どうやってoffにするのですかお 665 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:15:09.26 ] もしかしてワークシート最小化にしてたらマクロ処理しないのですかお 666 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:19:50.44 ] まずモニターのスイッチを切れ 667 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:22:44.25 ] >>665 マクロの記録やってみれ Excel2010では↓のようになった Application.Calculation = xlManual ↓もとに戻す Application.Calculation = xlAutomatic 668 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:23:06.41 ] 画面更新ができないような処理してるからだと 669 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:30:59.55 ] >>640 VBA初心者レベル、Excelは基本操作もおぼつかない 当然ながらブラインドタイプとかはできないし、 ほかの言語などもまったく分からない。 というレベルで 週5日*1日8時間*時給1800円の仕事してます。 作業内容は一日分ずつのCSVファイルを一か月分にまとめたり それをグラフにしたりするだけです。 チョー楽だけど退屈です。 670 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:42:43.01 ] そういうことを出来るようにしてくれた人がいたってだけでしょ 671 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:44:29.82 ] どういうこと? 672 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:45:11.50 ] 金で時間を買われてるな 673 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:48:16.20 ] 初心者っていう人がVBAでそういうことを出来るようにすることが出来るのかなって感じなんだけど 674 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:48:39.69 ] >>672 時間を売って金を得て 金を使って時間を買うということ? 675 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:50:45.28 ] ノルマこなして、お金もらってるだけでしょ 676 名前：669 mailto:sage [2012/03/15(木) 21:56:00.37 ] >>673 会ったこともない誰かが作ったマクロを使ってます。 ところどころパラメータ（セルの行とか列とかの指定）を書き換えて実行するだけです。 >>675 ノルマは特に無いです というかむしろ早く終わりすぎたらマズイらしくて 一年かけてダラダラやってます。 677 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:59:39.96 ] VBA使って効率化出来るのを目の当たりに見ると怒る人がいる、世の中だからね コンピュータで処理できるようにしたのに、 コンピュータが勝手に作ってる とか、言われたときは... 678 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:59:45.52 ] 結局669はVBAを使ってはいるけれど プログラミングの仕事ではないってこと? 679 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 22:01:22.71 ] >>676 お役所？ 680 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 22:04:50.80 ] >>676 大阪市? ここだけの話で 681 名前：676 mailto:sage [2012/03/15(木) 22:09:47.46 ] >>678 一応、仕事の名目は エクセルでのデータ整理です >>679 公務員じゃないけど似たようなもんです。 業務の成果は求められてなくて、 ただ単に労働時間分の拘束をされてるだけって感じです。 >>680 ちゃいまっせ、ホンマにちゃいまっせｗ 682 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 23:12:01.77 ] マクロの記録てこういうときにつかえるんだなあみつを 683 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 00:43:25.24 ] ちょこっとわからない程度なら、部分的にマクロ記録のコードコピペしてます。 スピードも全く問題ないことがほとんど、使えなかった頃より実質こなせる業務がかなり増えた。 684 名前：586 [2012/03/16(金) 05:51:54.44 ] 忙殺されて、、、レス遅くなってすみません。 >>620->>624 皆さん、ありがとうございます。 会社のPC（WinXP Pro SP3/Excel 2003 SP3/メモリ2G） でもやはり44シート目で実行時エラーでした。 手持ちのもう一つのネットブック（Win7 32bit版/Excel2010/メモリ1G） で試したら、エラーは出ず、なんと、500シートでも動きました。 2003のバグですかね。。 ありました・・・これですね。 support.microsoft.com/kb/210684/ja ------- ブックに定義済みの名前を付けて保存したり、次のサンプル コードのように、ブックを閉じることがなく複数回ワークシートをコピーするとこの問題が発生することができます。 ------- 発生することができます・・って・・・・ 685 名前：586 [2012/03/16(金) 05:52:55.59 ] >>623 ええと、マクロ実行して、1004が出たての未保存のブックは、シートの追加はできても、シートのコピーはできません。 （エラーも出ず、一瞬画面がブレたようになって無反応） いったん、保存して開きなおしたファイルだと、シートのコピーはできますが、再び、マクロを実行すると、 実行時エラー'1004': シートの名前をほかのシート、Visual Basic で参照されるオブジェクト ライブラリまたはワークシートと同じ名前に変更することはできません。 となって止まり、 ブックをみると、test1を押した場合は、「テンプレ(2)」を、test2を押した場合は、「テンプレ２ (2)」のシートを追加しようとしてるところで、また同じ名前で追加しようとして、止まってる感じ・・・ ActiveSheet.Name = がうまくいってないような感じです。 しかもエラーの回数はなんか毎回、44です。。PCに他にどんな重い処理をさせていても44。。会社のPCもそうでした・・。 なんだコレ・・私のやり方が何かおかしいのか・・・ 686 名前：586 [2012/03/16(金) 05:55:19.72 ] このKBを見る限り、2007でも、2010でも発生するみたいですね。。 www.microsofttranslator.com/BV.aspx?ref=CSSKB&lo=SS&from=en&to=ja&a=http://support.microsoft.com/kb/210684/en-us?fr=1 テンプレートで保存して呼び出して使えって・・・。Vlookupで引っ張ってて、複数のシートがあっても大丈夫なんかな・・・ それとも100シートごとに保存するか・・・ それともシート挿入→末尾に移動→値の貼り付け→書式の貼り付け→印刷設定の貼り付け という関数を作っておくか・・・ 印刷設定がちゃんとなってるシートの印刷を手前において、反映したいシートを複数選択し、 印刷設定を開いてそのままOKボタンを押すと、複数のファイルに印刷設定が反映されるって 書いてあって、実際その通りだったけど、ウィンドウ枠の固定と、印刷タイトルの設定が反映されてなかった・・・ これだけ一個一個やるように関数に組み込むしかないのか・・・ 687 名前：586 [2012/03/16(金) 05:56:10.36 ] そろそろ眠い・・・ しかもこの仕事を引き継ぐ人がマクロとか難しくて嫌だから、手作業でやりたいと言い出して、 このマクロは使われない可能性が高くなってきた・・・ 中身なんて知らなくていいから、黙ってボタン押せっつーの！くそ・・・！ でも自己満で作るけどさ。 事務の世界っていつもこうなる・・・やっぱり私に事務は向かないのか・・かと言って、バケモンだらけのPGの世界ではこれ以上やってく自信がない・・・ >>677 あるあるあるあるあるある =Exact() で簡単に同じかどうかのチェックなんて出来るのに、「目視確認でやった方が確実だから、目視でやって」、とか ┐(´д｀)┌ チラ裏すみません。眠いです・・・ 688 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 08:09:03.03 ] >>661 ｻﾝｸｽ 689 名前：デフォルトの名無しさん [2012/03/16(金) 09:49:02.14 ] Valueエラーが出るけどどこが悪いか分かる方いますか？ Function sealtime(A As Range, B As Range) 'Application.Volatile '自作関数を自動再計算させます。 Dim time As Double time = Application.WorksheetFunction.ATAN((B - A) / 1) If time < 0.005 Then sealtime = "OK" Else sealtime = "" End If End Function 690 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 09:55:24.55 ] とりあえず Application.WorksheetFunction.ATAN より Atn のほうがいんじゃね 691 名前：デフォルトの名無しさん [2012/03/16(金) 10:30:21.14 ] >>689 ワークシート関数が全部VBAで使えるわけじゃない 692 名前：デフォルトの名無しさん [2012/03/16(金) 11:13:02.48 ] ダブルクリックで画像を挿入したくてネットで調べて色々コピペして作ったんですけどたまにエラーが出ます あと画像を開こうとしてキャンセルすると『1004　指定したファイルが見つかりませんでした』って出ます どこを直せばいいでしょうか　お願いします Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Range("C2:G10,C312:G21,C24:G32") If Application.Intersect(Target, myRange) Is Nothing Then Exit Sub End If Dim objFileName As String Dim objShape As Shape objFileName = Application.GetOpenFilename _ Set objShape = ActiveSheet.Shapes.AddPicture( _ Filename:=objFileName, _ LinkToFile:=False, _ SaveWithDocument:=True, _ Left:=Selection.Left, _ Top:=Selection.Top, _ Width:=242#, _ Height:=120#) Cancel = True End Sub 693 名前：デフォルトの名無しさん [2012/03/16(金) 11:32:07.34 ] あ　なんかいけたっぽい　こうしたらスムーズになった sFile = Application.GetOpenFilename(FileFilter:="gif,.gif") If sFile = "False" Then Exit Sub 694 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 12:12:14.79 ] エクセル2003のグラフのことで教えてください。 グラフ上のマーカーの上にマウスカーソルを乗せるとデータが表示できますが、 その表示されたデータを取得することはできないでしょうか？ もしくは、そのマーカーに対応するセルをアクティブにする方法でもいいです。 どなたか、よろしくお願いします。 695 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 12:32:19.74 ] >>694 できません 696 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 12:50:50.80 ] >>694 マーカーに透明なラベルを被せたら余裕で何でもできる 697 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:24:36.03 ] for each でレンジ範囲の文字列数え上げるとき、数え残すことある？ 698 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:27:49.62 ] >>697 例えば? 699 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:35:26.75 ] count = 0 for each a in range("a1:e5) if("あほ"=a.value) then count =count +1 end if next a で、 for b =1 to a にしてるんだけど、bがバグる 700 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:35:57.24 ] さいごにnext bは入れてる 701 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:41:28.29 ] >>699 aって何? 702 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:41:47.29 ] >>699 ○ For b = 1 To count × For b = 1 To a 703 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:45:00.17 ] ああcountにしてるけどバグる 704 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:45:45.84 ] >>703 バグる? 705 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:52:53.95 ] >>699 699がかなりあほってことでよろしいか? 706 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:54:53.70 ] bに同じ数続くことがあるのでする 707 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 15:57:41.20 ] マクロ記録をそのまま使ってる人いますか？ やはり自分で全部書くのが普通でしょうか。 708 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 16:22:56.46 ] >>707 状況によるけど そのままでは使い物にならないことが多い ていうか、記録した方が早い部分と、自分で書いた方が早い部分とがあるので うまく組み合わせた方が結果的に早くプログラムが完成する 709 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 23:26:58.50 ] >>696 > >>694 > マーカーに透明なラベルを被せたら余裕で何でもできる やり方教えてクレクレ 710 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 23:51:19.86 ] DOSのコマンドライン引数を取得できないの? Sub Workbook_Open For I = 0 To ARGC -1 Debug.Print ARGV(I) とか。 711 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 00:08:29.34 ] >>709 そんな態度で教える馬鹿がいるか 712 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 00:09:20.05 ] うっはwwwwwwいま気づいたんだけどもしかして時間かかる作業させるときってさいごにシート保存するコードとか入れたりするの当たり前だったりするわけですよねですよねえええ 713 名前：デフォルトの名無しさん [2012/03/17(土) 00:11:35.15 ] あたりまえだ 714 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 00:14:16.48 ] ああもしかして指定時刻にセーブする処理とか入れてリスク管理してみたりするのかあああ

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef