Excel VBA質問スレ Part13

1 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 12:25:04 ] 過去スレ 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/ 767 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 19:10:59 ] >>765 VBAから他のファイルを操作できる ログは画面にだすならmsgboxでいいでしょ フィルに書き出したいならテキストファイルでもオープンして書き出せばよい 768 名前：759 [2009/11/28(土) 20:18:10 ] >>761>>763>>764 ご回答、ありがとうございます。 やはりむりですか・・・ オートフィル以外でいくつかつくったのですが、スピードを重視したくオートフィルにこだわっていました。 やりたいことは、A1の値を基にB１:B100までA2で指定された増分値に沿った降順連続データをつくりたかったのです。 考えついたものを下記に貼りますので、改善点やより良いコードがありましたらご教授ください。 宜しくお願いします。 Sub test1() 基準値 = Cells(1, 1).Value 増分値 = Cells(2, 1).Value For i = 0 To 99 Cells(1 + i, 2).Value = 基準値 基準値 = 基準値 - 増分値 Next i End Sub Sub test2() 基準値 = Cells(1, 1).Value 増分値 = Cells(2, 1).Value For i = 0 To 99 Cells(1 + i, 2).Value = 基準値 - i * 増分値 Next i End Sub Sub test3() 増分値 = Cells(2, 1).Value For i = 1 To 100 Cells(i, 2).Value = WorksheetFunction.Sum(Cells(1, 1).Value, Cells(2, 1).Value - i * 増分値) Next i End Sub 769 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 20:28:08 ] >>767 具体的にはどのようにするんでしょう・・・＜ファイル操作 また、AAAという単語はヒットしたので置換したけど、 BBBという単語がない場合、AAAだけ置換したよ、というログとかも取れますか？ 770 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 21:01:43 ] Excel VBA WEB連携術って本みつけたんだけど誰かレビューしてくれませんか？ ちなみにieを使ったシステムへの自動化を考えてます。 それの助けになるか聞きたいです。 771 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 21:08:53 ] >>770 おし引き受けた！ レビュー： 読んだことないけど多分読まないよりましじゃね？ 772 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 23:39:43 ] >>770 何をやりたいのかもうちょっと詳しく 自動化って言えば聞こえはいいけど、よくよく話を聞いてみると たいていは株とかFXとかで楽して儲けたいだけみたいなのが多い 773 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 23:44:31 ] >>769 例えば、マクロ記録で目的のファイルを開いて、できたブックからシートを自分のシートに移動する で、移動してきたシートをコピーしといて、どちらか一方を置換する あとは置換後に双方を比較して、違う部分を表示するとか 他にも方法は山ほどある まずは自分でアウトラインを固めて、ポイントを絞って質問してくれないと回答しようが無い 774 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 23:45:54 ] >>772 まぁ株なりFXの自動売買だろ そして、この程度も自分で調べてできない人間はロクなシステム組めないに１０００ガバス 775 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 23:57:41 ] >>773 すいません、大雑把にしか書いてなかったので答えることもできなかったですねorz 仕様としてはこんな感じです。 VBAを記述したExcelに、置換前・置換後を記述したの置換リストをシートとして作成しておきます。 [VBA記述xlsファイル上の置換リスト] 置換前　｜　置換後 ------------------ ABC　　 ｜　XYZ log-in　　｜　log in login　　 ｜　log in そのシート上にフォルダを指定するセルを用意し、ボタンを押す（マクロ実行）ことで、 指定されたフォルダ（サブフォルダ含む）にあるxlsファイル、docファイルを参照。 ヒットしたファイルの中に、置換リストの置換前と同じ文章があった場合、 ログとして「（ファイル名）▲▲を●●に置換」のような情報を出力し、置換を行います。 うまく纏まっていないかもしれないですが、このような仕様でつくりたいと思っています。 ググってみた感じ、ワードファイルの文章置換を行うロジックはあったのですが、 「本当に置換を行ったか」が取得できなさそうな感じがして・・・。 （▲▲があれば●●に置換する、という処理なので、▲▲がなくても変換せずに処理が終わるはず。変換したか？という状態が取れない感じが） 776 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 00:06:24 ] このスレはプログラマにとっては有益なスレで クレクレ君には無益なスレです テンプレ参照 777 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 01:18:29 ] プログラマにとっては有益 ← ここ、笑うところ？ 778 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 01:22:35 ] ゆとりには笑うとこまで指示してやらんと 779 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 02:30:54 ] OSはXP バージョンは2002です。 単刀直入に聞きます 「ユーザーフォーム上に設置したスプレッドシート」 これをエクセルのシートのように読み込む(ActiveSheet.Range(Cells(1, 1)〜のような書式)ことは可能でしょうか？ 780 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 10:31:56 ] >>779 可能 781 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 14:03:26 ] vistaを使ってると、IE7がプリインストールしてあるためにウェブクエリ取得やIEの操作などが正常に作動しないことがあります。 そこで、windows7にはXPモードがあると聞きました。そのXPモードで使われるIEがバージョン6なのかが気になっています。 IE6を使えるなら早めにwindows7搭載のPCに買い替えるつもりです。どうかお教えください。 782 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 14:41:08 ] IE6を使える 783 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 14:46:46 ] まずIEはバージョン6 注意事項としてXP Modeは Windows 7 Professional 以降で搭載される。 一般のメーカー製 Windows 7 プレインストールPCはほとんどが Home Premium でXP Modeは搭載されてないので注意 あと、XP Modeといっても特に他アプリと連携するような場合には 正常に動作するか分からないのでできれば事前にどこかで確認してみることをすすめる おそらく統合機能ってのを使わなければ、ほぼ問題ないとは思うけど、統合機能使わないと XP Mode の利点はあまりないと思うし 784 名前：デフォルトの名無しさん mailto:sage [2009/11/29(日) 15:05:34 ] バーチャルＰＣ使えよ 785 名前：781 mailto:sage [2009/11/29(日) 17:48:41 ] やはりMSなりに問い合わせたほうが無難なのですね。 バーチャルPCについて調べてみましたが、これならvistaでもxpを動かせるのですね。インストールして試してみます。 ありがとうございました。 786 名前：デフォルトの名無しさん mailto:sage [2009/11/30(月) 15:26:51 ] Excelの関数の質問なのですが 入力した数字が６〜１０のとき○、１１〜１５のとき◎ 　　　A　　B １　　６　　○ ２　　１１　◎ という風に○や◎を表示させたいのですが、関数がどうしてもわかりません。 どなたかよろしくお願いいたします。 787 名前：デフォルトの名無しさん mailto:sage [2009/11/30(月) 15:33:26 ] VBAと関係ないね 788 名前：デフォルトの名無しさん mailto:sage [2009/11/30(月) 15:52:52 ] すみません、間違えました。 789 名前：デフォルトの名無しさん mailto:sage [2009/11/30(月) 19:19:49 ] Function Maru(n) 　　Maru = "" 　　If (6 <= n) And (n <= 10) Then Maru = "○" 　　If (11 <= n) And (n <= 15) Then Maru = "◎" End Function 790 名前：デフォルトの名無しさん [2009/11/30(月) 22:39:34 ] リストボックスで数値の項目を右詰めにしたいんですが、どうすればよいでしょうか？ 2007です。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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