Excel VBA 質問スレ Part14

1 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 12:34:58 ] 過去スレ 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/ 2 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 12:35:43 ] ExcelのVBAに関する質問スレです 前スレ pc12.2ch.net/test/read.cgi/tech/1254281104/ ★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。 ★2 ExcelのVBA以外の部分に関する質問はNGです。 　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。 ★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。 　VBAとは､『Visual Basic for Application』の略で 　　Application 　　├Workbooks 　　｜└Workbook 　　｜　 ├Worksheets 　　｜　 ｜└Worksheet 　というApplication以下のオブジェクトを､VB言語で操作するものを指します。 　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､ 　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。 ★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。 ★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み 　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。 　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。 ★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R） 3 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 14:29:46 ] >>2のテンプレはあくまでも目安です。 このスレはいつもヒマな回答者が監視しているので、 丁寧に頼めば丸投げでもExcelと無関係でも作ってくれる可能性があります。 ただし貧弱なアルゴリズムを力業で押し通すようなコードが多いので使用には注意が必要です。 4 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 14:31:30 ] ★Excel2007ではマクロの記録が大幅に機能縮小されてしまいましたが、 2010ではまた以前のレベルに戻る予定らしいです。 5 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 15:01:54 ] ★とにかくヘルプを見ましょう。VBAのことが一番完結にまとまっています。 使用例も出るので、たいていのことはヘルプで間に合うはず。ただし誤植には注意… ★たいていのことはここらのサイトに書いてあります。まずは検索。 ttp://www.asahi-net.or.jp/~ef2o-inue/menu/menu04.html ttp://www.moug.net/tech/exvba/ ttp://officetanaka.net/excel/vba/tips/index.htm ただし、たまに堂々と嘘が書いてあるので注意が必要。 実際に試してみて(←ここ重要)、どうしてもうまくいかない時は質問。 6 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 15:08:35 ] ★簡単にはできないこと……祝日を調べる 専用の関数はありません。 祝日は政府が毎年、国会で勝手に作ったり変えたりするので、計算で求める方法も未来の祝日を知る方法もありません。 一覧表を用意してその中から検索するしかありません。 ネットで検索すると祝日を求める方法や関数を発表しているサイトがいくつもありますが、 それらが確実に使えるのは、その方法が発表された日までです。未来は誰にもわかりません。 7 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 15:21:26 ] ★簡単にはできないこと(2)……時間を正確に調べる 1ms単位で時間を測定できる精密なタイマーは存在しません。せいぜい13〜55msが最小単位になります。 1ms単位で時間を指定できるAPIがありますが、実際の動作は適当に丸められてしまいます。 他のソフトを同時に一切動かさない、などの条件を付ければ多少は精度を上げることはできますが、 どんな環境でも確実に動作するソフトはどこにもありません。 これはWindowsそのものの仕様なので、他のプログラミング言語を使っても条件はまったく同じです。 8 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 17:34:53 ] >>6-7はテンプレのつもり？ 簡単にできないことなんて山ほどあるので、>>6-7は不要。 9 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 20:47:45 ] ａ１セルに書いてるパス付ファイル名を ｂ１セルに書いてるパス付ファイル名へ コピーさせる方法ありますか？ ｄｏｓでできるならばそれでお願いしたいです。 前すれでｄｉｒはできるのはわかったのですが ｃｏｐｙはどうなんでしょ？ 10 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 20:59:51 ] ttp://officetanaka.net/excel/vba/tips/tips91.htm 11 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 00:48:40 ] >>8 できないことはいろいろあるけど、そのあたりはとくに素人からの要望が多くてFAQに近い 12 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 03:17:15 ] ほほう、では、このスレのPart1〜14で、それぞれ何回質問されたか教えてもらおうか 13 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 05:22:33 ] そういう風にいちいち突っかかるから頭脳は子供って影で言われちゃうんだよ 大人ならスルー 14 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 05:32:07 ] VBA関連のオススメ本のスレとかある？ マニアックな事が載ってるやつがいいんだが。 15 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 11:54:16 ] >6-7 乙 >12 ｳｾﾞｰ 16 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 13:44:44 ] 【1 OSの種類 　 　 　 　 .】 Windows98 【2 Excelのバージョン 　 】 Excel2000 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 可 【5 検索キーワード 　 　 】 vba 書き換え あるフォルダにエクセルファイルが何個か入っています そのフアイル全てのVBAの一部を一括で置換することは可能でしょうか コードの内容は、コマンドボタンを押すとプリンタを変更、印刷、プリンタを変更という内容です (マクロの記録そのままです) このプリンタの場所がLAN内から自分のPCのUSB接続に変わったので その部分を書き換えたいのです Application.ActivePrinter = "\\user001\\epsonAAA on epsonAAA" を Application.ActivePrinter = "epsonAAA on USBPRN01" にしたいのです プリンタの名前を変えればいけると思ったのですが、LAN上ということを指定していたようでダメでした PCの名前も変えようかと思いましたがNGでした。 VBAのコードは少しずつ違いますが、このプリンタに関係するところは同じです。 分かるかた教えて下さい。よろしくお願いします。 17 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 13:45:41 ] テンプレもう少しまとめないのか レス多すぎなんだぜ 18 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 14:03:09 ] >>16 マクロ自体を外部から変更するのは無理。バイナリ弄るなら別だが・・・ 今回は諦めて、どこかを参照するように変更しては？ 19 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 14:42:01 ] >>18 ありがとうございます そうですね、テキトーなセルでも設けてそこを参照するようにします これならいちどに帰られますしね 20 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 14:47:02 ] >>18 CodeModule.ReplaceLineでできるんじゃないの？Bookをオープンする必要はあるけど。 ただ、一回限りの修正なら手でやった方が速いし、将来にわたって何度も修正する 可能性があるなら、マクロを直接変更するんじゃなくて、別の方法にした方がいいと思うけどね。 21 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 12:51:10 ] ワークシートをアクティブにするには ワークシート.Activate で良いけど、現在アクティブなシートは何かってどうやったら判別出来るんでしょうか？ 22 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 12:53:46 ] >>21 ActiveSheet.Nameとか 23 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 12:58:59 ] >>22 即レスありがとです 24 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 21:46:17 ] 宜しくお願い致します。 ifの条件文で、 同じ時は = 同じでないときは <> の記号を使いますが、 含まれているとき、という記号はあるのでしょうか？ 例えば、セルA1に、ZZZという文字が含まれているとき、 という場合、 Range("A1").Value　α　"ZZZ" という、αに該当する記号を探しています。 宜しくお願い致します。 25 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 21:56:14 ] >>24 Like 演算子じゃダメかな IF Range("A1").Value　Like　"*ZZZ*" Then とか 26 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 22:03:43 ] Instr関数てのもあるよ 27 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 23:16:12 ] Excel2003です。 VBA作成で困ったので、質問させてください。 Worksheetが、とある名前だったら そのシートを削除してしまうという処理を行いたいのですが うまくいきません。 現在は以下のように書いています。 Dim WST As Worksheet For Each WST In Worksheets If WST.Name = "SheetA" Or "SheetB" Then WST.Delete End If Next 28 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 23:17:57 ] >>27 If (WST.Name = "SheetA") Or (WST.Name = "SheetB") Then 29 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 23:37:05 ] >>28 ありがとうございました。 おかげでうまくいきました。 Dim WST As Worksheet Dim xlAPP As Application xlAPP.DisplayAlerts = False For Each WST In Worksheets If WST.Name = "Sheet2" Or _ WST.Name = "Sheet3" Then WST.Delete End If Next xlAPP.DisplayAlerts = False 30 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 00:10:31 ] >>29 重箱を突っつくが、条件判定式は括弧で括った方が良い。 それと、最後のアラート設定は無駄かと。アラートOFF->OFF設定だが。 31 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 01:51:59 ] 24です。 >>25>>26さん有難うございます。 お陰さまで解決しました。 使わせていただきます！ 32 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 04:35:16 ] >>30 アドバイスありがとうございます。 xlAPP.DisplayAlerts = True すいません。最後のアラートはTrueでした。 条件判定式は、ミスを減らすためにも今後は括弧で括りたいと思います。 33 名前：デフォルトの名無しさん [2010/01/11(月) 12:24:13 ] 逆にカッコつけた方が、見やすくないかな? If WST.Name = "Sheet2" Or WST.Name = "Sheet3" Then If (WST.Name = "Sheet2") Or (WST.Name = "Sheet3") Then 計算順序に不安になるくらいなら、 「カッコつけずにカッコを付けよ。カッコは最強」と先輩に教えられた。 それ以降、計算順序の優劣は気にしたことがない。バッチリだよ。 34 名前：デフォルトの名無しさん [2010/01/11(月) 13:11:15 ] ネトウヨｗｗｗ （ ´∀｀）⊃livedoor.blogimg.jp/gekisha-krw/imgs/1/c/1c21ac8b.jpg livedoor.blogimg.jp/gekisha-krw/imgs/3/c/3c96435c.jpg livedoor.blogimg.jp/gekisha-krw/imgs/7/c/7c810d55.jpg livedoor.blogimg.jp/gekisha-krw/imgs/7/6/7685930e.jpg image.blog.livedoor.jp/insidears/imgs/6/c/6c39db7d.jpg image.blog.livedoor.jp/insidears/imgs/7/3/73d62d94.jpg リアルネトウヨｗｗｗ （ ´∀｀）⊃image.blog.livedoor.jp/nankai2000/imgs/1/d/1d4780bb.jpg image.blog.livedoor.jp/modela/imgs/4/8/480f891c.jpg image.blog.livedoor.jp/modela/imgs/9/8/98645eb2.jpg www.geocities.jp/gakuen_kova17/6463868e739a.jpg ネトウヨ絵馬ｗｗｗ （ ´∀｀）⊃ lh6.ggpht.com/_iobkCWer7BA/SofHLI5OEXI/AAAAAAAAA9k/Lb83dzBTb7A/s640/IMG_1644.JPG lh3.ggpht.com/_iobkCWer7BA/SofHLV_WH6I/AAAAAAAAA9s/g_7GS7pJkNk/s640/IMG_1645.JPG lh4.ggpht.com/_iobkCWer7BA/SofHLyy5V_I/AAAAAAAAA90/qfSq8h0vzeE/s640/IMG_1648.JPG lh4.ggpht.com/_iobkCWer7BA/SofHNXSfp7I/AAAAAAAAA-I/d9-LGGNyIyM/s640/IMG_1653.JPG 35 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 16:53:10 ] >>33 「Or演算子より=演算子が優先されるから括弧はつける必要なし」 とかカッコいいこと言いたいけど、やっぱ括弧つけたほうが見やすいし 優先順位とか面倒なこと考えなくていいから俺も括弧つける派だな ＞「カッコつけずにカッコを付けよ。カッコは最強」 激しく同意、すばらしい先輩だね 36 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 18:02:38 ] 今度は教えてください。 Excel 2000 , Win XPです。 ボタンを作って、そこにVB書いて、いろいろと便利に使っていますが、 ボタンはマウスで行う必要があります。これをキーボードでやりたいのですが、 方法はありますでしょうか?　具体的には、 「S」で「開始ボタン」をクリックと同じ効果、 「T」で「停止ボタン」をクリックと同じ効果、とかです。 あるいは、複合でCTRL+Sとか、ALT+Uとかでも良いです。 マウス操作だと、ボタンの上にポインタを持っていく→ボタン狙う→クリックする。となります。 「うわぉ、緊急停止だ!」と言うときでも、まがマウスを探して、握って、ボタンに重ねて、クリック。 ちょっと面倒なのですが。 宜しくお願いします。 >>35 経験者(というか苦労してきた人)は、言うことが違いますよね。 ありがとうございました。 37 名前：sage [2010/01/11(月) 18:49:30 ] application.OnKey 38 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 21:30:11 ] エクセルでゲーム作ったんで感想お願いします www42.atwiki.jp/syugyou?cmd=upload&act=open&pageid=236&file=ttt.zip 39 名前：デフォルトの名無しさん [2010/01/11(月) 23:31:40 ] 下記で、(2)がx(1)しか表示しないのはナゼ？（XP + Excel2000） Sub test() Dim x(1 To 5) As Integer For i = 1 To 5 x(i) = 2 * i Next i Range("a1:e1").FormulaArray = x '(1)○ Range("g1:g5").FormulaArray = x '(2)× End Sub 40 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 00:32:45 ] Range("g1:g5").FormulaArray = x '(2)× Range("g1:h6").FormulaArray = x 'ってすると 41 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 01:00:51 ] >>38 匿名掲示板ののパス付マクロなんぞ怖くて開けんｗ 感想欲しいなら、パス解除 or どこかのHP掲載しないと誰も見ないと思うよ 変なことしないか確認できんしｗｗｗ 42 名前：38 mailto:sage [2010/01/12(火) 05:36:31 ] 変なことはしないっす 一応パスはfukunyuu 標準モジュールが一個とブックとフォームにイベントが一個ずつ 43 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 08:20:32 ] >>42 ｳｻﾞｲ よそでﾔﾚ 44 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 08:21:39 ] なぜ副乳 45 名前：MS HELPDESK [2010/01/12(火) 13:46:05 ] >> 39,40 Sub ArrayDump2() 'For a two dimensional vertical array 'Declares an array ten rows by one column Dim x(1 To 10, 1 To 1) As Double 'Calculates random values For j = 1 To 10 x(j, 1) = j * j Next j 'Transfers array contents to a vertical area Range(Cells(1, 1), Cells(10, 1)).FormulaArray = x End Sub 46 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 23:08:59 ] >>39 Range("g1:g5").FormulaArray = _ Application.WorksheetFunction.Transpose(x) 47 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 15:46:47 ] Excel2007 VBAでWorksheetFunction.Averageを実行しようとすると、 WorksheetFunctionクラスのAveraegプロパティを取得できません というエラーが 下のCells(i, 8) = の部分で発生します。 For i = idou_array(0) + 4 To last_row Cells(i, 8) = Application.WorksheetFunction.Average(Range("H" & i - idou_array(0) + 1, "H" & i)) Next idou_array(0)には5という数字が入っています。 ツールからアドインで分析ツール、分析ツール(VBA)は入れてあります。 どうすれば計算できるようになるのでしょうか？ 48 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 19:08:40 ] >>47 Application.WorksheetFunction.Average(Range()) 指定したRange()に不具合があるとエラーがでる 例えば、データがないとか 49 名前：47 mailto:sage [2010/01/14(木) 19:20:40 ] >>48 もう一度データの見直しから始めます orz 50 名前：47 mailto:sage [2010/01/14(木) 19:38:35 ] 見たら平均のデータを書きこもうとしている行とデータが有る行をごっちゃにしていました。^^; スレ汚しすいませんでした m(_ _)m 51 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 15:16:42 ] ヘルプを見ても分からなかったので教えてください Line Input #iFile, strLine で読み進めてしまったファイルを先頭に戻す方法ってありますか？ 52 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 16:16:16 ] 2007使用 ScreenUpdatingについてなんですが 全シートの保護を解除するマクロを作って その中でScreenUpdatingを使って更新を停止しているんだけど エクセルファイルを開いた直後に上記動作を行って どこか空いているセルに文字を入力すると 他のシートの内容が上書き描画されてしまいます。 ScreenUpdatingを使用しなければ発生しないし ファイルを開いた直後以外（なにか他の作業をした後） でもまったく問題なく動きます。 情報が少なくて申し訳ないですが どなたか原因わかりますか？ 53 名前：52 mailto:sage [2010/01/15(金) 17:16:26 ] 自己解決しました support.microsoft.com/kb/978089/ja エクセルの問題だったとか時間がもったいなかった・・・ 54 名前：デフォルトの名無しさん [2010/01/16(土) 13:48:32 ] Outlookと連携させて、 特定の期間（例えば、2010/1/1〜2010/1/8）のメールだけ、 エクセルに自動的に転機させたいんだけど、どんな感じにすればいい？ とりあえず、軽くググってみて以下ならできるとはわかった。 (1)フォルダ内にある全てのメールを一旦取り出す。 (2)取り出したメールを、受信日時でbetweenする。 ただ、これだと(1)で全部のメールを一旦取り出すのに処理時間がかかりすぎてしょうがない。 取り出しの時点で、betweenしたいんだけど、どうすればいいですか？ 55 名前：デフォルトの名無しさん [2010/01/16(土) 16:01:57 ] すみません、質問させてください。 ファイルAを開き、マクロで新規ブックを作成します。 ここまでは良いのですが、新規ブックに任意のマクロを 最初から入れたいのですが、可能でしょうか？ 56 名前：54 mailto:sage [2010/01/16(土) 16:23:54 ] とりあえずいまのとこ考えてるソースはこんな感じです。 Sub COPY() Dim oApp As Object Dim myNameSpace As Object Dim myFolder As Object Dim searchDate As Date '転記を始める日付 searchDate = InputBox("いつからのメール？(YYYY/MM/DDで入力)") Set oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNamespace("MAPI") Set myFolder = myNameSpace.Folders("個人用フォルダ").Folders("aaa") 'aaaフォルダを指定 myFolder.Display 57 名前：デフォルトの名無しさん mailto:sage [2010/01/16(土) 16:25:24 ] 'メールの中身を取り出し Dim objMAILITEM As Object 'メールアイテム Dim n As Integer '添字 For n = 1 To myFolder.Items.Count 'aaaフォルダのアイテム数分ループ 'メールを１通取り出し、変数にセットする Set objMAILITEM = myFolder.Items(n) If objMAILITEM.CreationTime > searchDate Then 'ダイアログで入力させた日付より後に受信したメールだけ Cells(n , "A") = objMAILITEM.Body '本文転記 End If Next n End Sub For n = 1 To myFolder.Items.Count 'aaaフォルダのアイテム数分ループ ↑ ここを、フォルダのアイテム数分ループじゃなくて、 ダイアログで入力した日付よりあとにきたメールのアイテム数分だけ、ループさせたいです 58 名前：デフォルトの名無しさん mailto:sage [2010/01/16(土) 16:52:05 ] >>55 可能。VBComponents.Importでぐぐれ。 59 名前：デフォルトの名無しさん mailto:sage [2010/01/16(土) 17:35:59 ] >>51 Seek あと Close --> Openという方法もある(笑) 60 名前：デフォルトの名無しさん mailto:sage [2010/01/16(土) 18:29:26 ] >>51 いっぺん読み込んだデータは配列にでも保存しとけ 61 名前：デフォルトの名無しさん mailto:sage [2010/01/17(日) 23:09:24 ] データベースのAPIを使ってEXCELのデータから検索をかけているのですが、 検索に引っかからなかった場合、空の配列を返してきます。 その空の配列かどうかを認識するにはどうしたらいいですか？ 62 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 00:55:27 ] 要素を数えるんじゃだめなの？ 63 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 08:40:26 ] おまいら、2010βのヘルプ使える？ ヘルプ開こうとすると落ちるんだが。 64 名前：デフォルトの名無しさん [2010/01/18(月) 13:45:30 ] 皆さんに質問があります。Excel2003+VBAです。 シート上に配置したリストボックスに、AddItemで項目を追加しました。 そして、Excelを保存して閉じた後に再度開くと、先ほど追加したアイテムが 消えてしまいます。これを、保存する事は可能でしょうか。 ご教授の程、宜しくお願いします。 65 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 13:59:58 ] 開いたときに動作するイベントが幾つかあるから そこに書けばいい 66 名前：64 [2010/01/18(月) 14:27:11 ] 確かにそうなのですが、一度追加した物を再度追加する手間を 省ければと思っているのです。 Excel自体を保存すれば、コントロールの内容も保存されるのでは？と 思っていたのですが、そうでは無いのでしょうか？ 67 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 14:37:37 ] プロパティでアイテムの項目に書けば というか>>65で駄目な理由がよくわからない 68 名前：64 [2010/01/18(月) 14:51:52 ] >67 Excelを開いた後に、テキストデータを読み込んで、そのデータを元に リストボックスの選択項目を生成しているのです。 さらに、そのデータは既に読込済となる為、Excelセル内にも残っています。 にも関わらず、一旦Excelを閉じてまた開くと、セル内のデータは残っているのに リストボックス内の選択項目だけ消えてしまっているのです。 セル内のデータと同じ用に、残す事が出来ればな、と考えているのです。 表現がうまくなくてすみません。伝わりますでしょうか・・・。 69 名前：デフォルトの名無しさん mailto:sage [2010/01/18(月) 15:44:57 ] >>68 それなら出来ないよ セルに残す テキストに残す したものを毎回起動時にリストに設定する それが普通だよ 70 名前：64 [2010/01/18(月) 15:54:05 ] やっぱりそういう仕様になっているんですね…。 了解致しました。何とか保存する形にしてみます。 皆さん、ご回答ありがとうございました。 71 名前：デフォルトの名無しさん mailto:sage [2010/01/19(火) 00:21:49 ] カスタムXMLにかけばいいんじゃないかな 72 名前：デフォルトの名無しさん [2010/01/19(火) 21:35:31 ] このコードで使われている変数の型がわかりません。 どなたか教えていただけませんか？ pnir = CreateOLEObj("Sleipnir.API") docID = pnir.NewWindow("www.hangame.co.jp/", true) While pnir.IsBusy(docID); SLEEP(1); WEND Doc = Nothing REPEAT SLEEP(1) Doc = pnir.GetDocumentObject(DocID) UNTIL Doc <> Nothing SLEEP(1) ifb Doc.getElementsByName("loginform").length > 0 Doc.getElementById("strmemberid").value = USER_ID Doc.getElementById("strpassword").value = PASSWORD imgs = Doc.getElementsByTagName("img") for i = 0 to imgs.length - 1 img = imgs.item(i) ifb POS("btn_login.png", img.src) > 0 img.click break endif next endif 73 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 00:02:31 ] どう見てもUWSC スレ違い 74 名前：デフォルトの名無しさん [2010/01/20(水) 11:48:05 ] ある列に同じ文字列を入れたい場合、RangeでFormulaR1C1を使って一括で代入するのと、 For文でCells().Value = Cells().Valueで代入していくのと、どちらが早いのでしょうか？ よろしくお願いします 75 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 11:49:54 ] これからVBA勉強始めようと思うんですが、 プロのエンジニアでもプログラマでもなく、 JAVAの入門書を一冊読んでいる程度の者です。 テンプレにあるExcelのインスタンスの意味を教えてもらえないでしょうか？ 一応、クラス、オブジェクト、インスタンスというのは知っているつもりです。 76 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 11:55:58 ] >>74 100万回ぐらいまわして自分で計測してはどうでしょう 一括の方が早いと思う >>75 エクセルのbookオブジェクト、もしくはアプリケーションのことじゃないか 要するにvbだけでできることはvbスレいけってことですね 77 名前：デフォルトの名無しさん [2010/01/20(水) 14:13:43 ] エクセル上に、画像ファイルとテキストファイルを読み込むボタンをそれぞれ 配置して、ファイル読み込みダイアログを出して選択されたファイルを エクセル上に表示させたいんだけど、誰か分かる人いる？ 78 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 14:19:19 ] いる 79 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 14:19:39 ] 皆んな分かる 80 名前：77 [2010/01/20(水) 14:27:36 ] 自己解決しからいいや。 81 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 19:09:19 ] せっかく答えてもらって無礼な奴 82 名前：デフォルトの名無しさん mailto:sage [2010/01/20(水) 19:21:02 ] >>74 一括がもちろん速いが、FormulaR1C1は同じ結果になるが意味的に違うぞ。 Valueを使いなさい。 83 名前：デフォルトの名無しさん [2010/01/20(水) 22:54:15 ] テキストファイルを読み込んでエクセル上のラベルに表示させたいのですが どうしたらいでしょう 84 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 12:22:51 ] api関数を使用しています。 Declareで宣言する時に、引数をbyvalで指定してるのに、結果が 引数に代入されてくるのはなぜですか？ 本来であれば、byrefで指定するべきではないのでしょうか？ 85 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 16:06:07 ] 2010βのマクロの実行速度って2007より遅くなってる？ mougにそのように書いてあったが、俺んとこは2010βが速い。 おまいらどうよ。 86 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 16:22:10 ] >>83 ttp://officetanaka.net/excel/vba/file/file08.htm 87 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 20:53:47 ] 2000、XPです。VBAさわりだして数日です。 任意のサイコロの出目の和の組み合わせ数を全てシート上に書き出すマクロを組みたいと思ってます。 例えば6面ダイスを3回振る(3d6)　だったら 1 0 2 0 3 1 4 3 5 6 6 10 …のような結果になるようにしたいのです。 ただループの組み方をいくら考えてもそれらしきものが思いつきませんorz どなたか考え方のヒントいただけませんか； 88 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 22:02:59 ] >>87 一番簡単なのは 全ての組み合わせをループで行って(この場合３重ループになる) それぞれの合計値によって"組み合わせ数を表示する"セルへ カウントアップしていく (セルB1の値 = セルB1の値 + 1　って感じでね) 処理速度だしたいなら 同じ事を配列変数で行って　最後にセルへ書き出す 89 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 22:16:18 ] サイコロの目で0って何で？ 90 名前：88 mailto:sage [2010/01/21(木) 22:32:06 ] >>89 自分はこう解釈した 1 0 は　出目の和が 1になる 組み合わせが　0ではないかと(当然だけど) 3 1 は　出目の和が 3になる 組み合わせは出目が "1", "1" ,"1"の　1組しかないので 1 91 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 22:34:55 ] Sub 数学わからんからシラミ潰し() Dim a, b(100), c(100), d, e, f a = InputBox("サイコロの数を入れてね") f = InputBox("目の数を入れてね") Do e = a For d = 1 To a e = e + c(d) Next b(e) = b(e) + 1 c(1) = c(1) + 1 If c(1) = f Then c(1) = 0 For d = 2 To a If c(d) = f - 1 Then c(d) = 0 Else c(d) = c(d) + 1 Exit For End If Next If d = a + 1 Then Exit Do End If Loop For d = 1 To 100 Cells(d, 1) = b(d) Next End Sub 92 名前：デフォルトの名無しさん mailto:sage [2010/01/21(木) 22:39:16 ] >>90 成る程 流石だ 93 名前：デフォルトの名無しさん [2010/01/21(木) 22:47:20 ] スマン エラー出るな ２行目の最後 f as byte にしてくれ 大量にサイコロ使う時は100のとこを好きな数に増やしてくれ 94 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 00:04:57 ] 再帰で書いてみた。 Private diceNum As Long Private face As Long '目の数 Private result(100) As Long Sub 数学わからんからシラミ潰し2() diceNum = InputBox("サイコロの数を入れてね") face = InputBox("目の数を入れてね") Call Count(0, 0) For i = 1 To 100 Cells(i, 1) = result(i) Next i End Sub Sub Count(Sum As Long, nTimes As Long) If nTimes = diceNum Then result(Sum) = result(Sum) + 1 Exit Sub End If For i = 1 To face Call Count(Sum + i, nTimes + 1) Next i End Sub 95 名前：87 mailto:sage [2010/01/22(金) 00:30:50 ] ありがとうございます、考えていた通りの結果に計算してくれます！ 完成されたものをいただけるとは； イルカとグーグル先生に尋ねつつ一文一文調べてみます。 96 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 02:33:51 ] 2003,xpです。 あるセルにオートシェイブで図形が書かれているか判定したいのですが、どのようにすれば判定できますか？ 宜しくお願いします。 97 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 06:15:42 ] シェイプにはbottomrightcellプロパティ topleftcellプロパティが有るから それ使えばいい 98 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 09:54:06 ] >>96 Shapes.Count 99 名前：デフォルトの名無しさん mailto:sage [2010/01/22(金) 10:23:12 ] >>96 参考に oshiete.gogaku-ryugaku.net/qa3634541.html 100 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 12:32:06 ] ある文字から何番目の行になるか出すIF文はあるのでしょうか 「見出し項目」 製品A 製品B 　・ 製品X 「小計」 のような並びになっている時に、小計から、見出し項目までの行を数えて、 何個の製品名があるかを出したいのですが、よく分かりませんでした。 よろしくお願いします。 101 名前：100 mailto:sage [2010/01/23(土) 12:36:32 ] 説明が抜けていました。 「見出し項目」 ・・ 「小計」 で対になる並びは、複数ありますので、 小計から、直近の見出し項目までの行数を出したのですが、 そのようなやり方があれば、お願いします。 102 名前：デフォルトの名無しさん mailto:sage [2010/01/23(土) 12:42:27 ] >>101 If文だけじゃ無理。不可能じゃないけど効率が悪すぎる。普通はWhile文を使う。

---

---

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

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