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/ 448 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 01:45:00 ] 学校の宿題は自分でやらなきゃダメ＞＜ 何の前提もなしにそんな宿題が出るはずないから、わからないのは貴方がサボっていたってことでしょ 449 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 02:20:06 ] 宿題スレ池 450 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 02:45:13 ] >>447 これは酷いｗｗｗ これが社会に出て行くと思うと末恐ろしいな 451 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 10:22:29 ] sinXって直線なのかね 452 名前：デフォルトの名無しさん [2009/10/24(土) 10:57:44 ] >>424 遅レスですが、こんなアイディアも。 Select Case Cells(4,1) & Cells(4,2) case "11" case "12" 453 名前：452 mailto:sage [2009/10/24(土) 10:59:38 ] >>425 見てなかった…　すまん 454 名前：デフォルトの名無しさん [2009/10/24(土) 11:43:07 ] セル参照の計算式 =G5*K3+M1 セル参照+数字の計算式 =F6*G6*3.14 数字のみの計算式 =15*21*45 この数式を区別して色分けする事は可能ですか？ せめて上2つと下1つだけでも区別できればいいんですが 455 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 11:47:42 ] >>451 正弦波だから、Y=1 から Y--1 までを往復する曲線かな。 Y=Xの直線とは1点交差するけど、2点とは交差しなんじゃないか？ よくわかんないけどｗ 456 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 12:13:36 ] だいたい2本の直線で囲まれる面積ってなによ 問題の意味すらわかんないならVBA以前の問題 457 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 12:25:46 ] 非ユークリッド幾何だと日常的 458 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 12:31:59 ] 大圏航路かよ　何年生の課題だ 459 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 13:43:37 ] >>454 手元にPCがないから確認できないけど、今ぱっと思いついた案が１つある。 セルに入力されている数式を取得し、文字列操作関数を使用し演算子の部分で区切る。 区切られた文字列を確認して全てにアルファベットが含まれていれば、セル参照あり、全く含まれていなければセル参照なし。 その他は混合。 どうでしょう？ 文系のおいらの考えなので、バカかと思う方はたくさんいると思うけど。 460 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 13:46:03 ] >>459だけど一部訂正。 「セル参照あり」→「セル参照のみ」だったよ。 461 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 15:08:03 ] 問題文を写し間違えただけだろ Y=sinXとY=Xは3点で交わって、囲まれた領域は2つだ 片方だけ積分して倍すればいい 462 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 19:24:38 ] >>459 0.100000000E+00 463 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 19:26:00 ] >Y=sinXとY=Xは3点で交わって、囲まれた領域は2つだ kwsk 464 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 20:36:00 ] >>454 セル参照があるかないかだけですが 一つの案として下記なんかはどうでしょうか？ 一部の関数を使用していると判定ミスしちゃいますが(DAYS360 とか) With ActiveSheet.Cells(i, j) 　　If (.Formula Like "=*[A-Z][1-9]*") Or (.Formula Like "=*[A-Z]$[1-9]*") Then 　　　　　　　'セル参照を含む数式 　　　　　　　.Interior.ColorIndex = 34 　　　　　Else 　　　　　　　 'セル参照を含まない数式 又は 定数 　　　　　　　 .Interior.ColorIndex = 40 　　End If End With 465 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 21:22:20 ] >>462 最初に「＝」が付いてるか確認すれば問題ないと思う。 466 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 22:22:36 ] 0.100000000E+00 +0.100000000E+00 467 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 22:27:46 ] 絶対に関数は使われていないのだろうか？ 468 名前：デフォルトの名無しさん [2009/10/24(土) 22:36:56 ] "=*[A-Z][1-9]*"や "=*[A-Z]$[1-9]*"って何を表してるんですか？ 469 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 22:42:26 ] 性器 470 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 22:44:17 ] >>467 そういう話になってくると正規表現？ 471 名前：デフォルトの名無しさん mailto:sage [2009/10/24(土) 23:17:41 ] 正規表現だと、 *[A-Z]$[1-9]* の、文末一致or後方参照の $ が説明付かない。 472 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 00:45:26 ] userformのtext1に入力された値を使うとき、 userform.text1と書くと思いますが、 text1、text2と順番に参照していきたい時、イメージとしては"text"&i　のように変数で指定したいんですがエラーになってしまいます。 何かいい方法はないでしょうか？ 473 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 01:25:10 ] excel2003でOSはXPです。 ダブルクオーテーションマークが検索したい文章内にある場合どうすればいいのでしょうか。 具体的には <IMG class="reslevel rf1 level2" alt="きこり レベル　2" src="img/x.gif"> というouterHTMLの文字列に一致したらdo while構文を抜け出すという形にしたいのです。 Do until objIE.document.all.outerHTML = "<IMG class="reslevel rf1 level2" alt="きこり レベル　2" src="img/x.gif">" という形でダブルクオテーションで括ったのですが「コンパイルエラー」となってしまいます。 どうすれば回避できるか教えていただけないでしょうか。 474 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 01:25:54 ] >>472 配列変数を使う（text1とtext2を配列変数に突っ込んで使う） 475 名前：464 mailto:sage [2009/10/25(日) 01:41:33 ] >>471 >>464を書いたのは自分だけど 正規表現だと、 $は特殊な意味をもつの？ Like 演算子では特殊な意味をもつようにはHELPに 書かれていなかったんで .Formula Like "=*[A-Z]$[1-9]* は =$A$1 とか =A$1 という形式でのセル参照も判定させたいので 付けたんです もしかして .Formula Like "=*[A-Z][$][1-9]*" って書いた方が正解なのかな？ 476 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 02:00:43 ] >>474 ありがとう 477 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 02:59:44 ] >>475 msdn.microsoft.com/ja-jp/library/h5181w5w.aspx 少しは調べろよカス 478 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 08:59:51 ] >>475 だから、正規表現じゃないって言ってるのだよ。 =$A$1　を判定させるマッチパターンは、 pattern = "=\$[A-Z]\$[0-9]" 479 名前：デフォルトの名無しさん [2009/10/25(日) 15:58:07 ] 色々教えてもらいここに辿り着きました １つのフォルダーにあるいくつかのcsvファイルの全てのA列からC列のデータを削除したいのです そういうvba作ってもらえませんか？ どうかお願いします 480 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 16:05:55 ] >>479 >>2の★5を100万回読むんだ 481 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 16:06:04 ] 了解 待ってな 482 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 17:02:08 ] >>479 いくらくれる？ 483 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 22:05:39 ] >>482 お金は…ないんです(T_T) 484 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 23:30:41 ] ユーザーフォームでつくったコンボボックス等をダブルクリックして編集画面を開きます。 ここに標準モジュールで作ったプロシージャをコールしても反映してくれません。 なぜでしょう？ 485 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 23:38:10 ] ・何がしたいのか ・現状どうなっているのか ・それに対する自分の意見 ・自分の環境は何なのか（CPU,OS,Office) ・サンプルをアップローダーに。 このくらいは質問するなら情報として欲しいわ。 486 名前：484 mailto:sage [2009/10/25(日) 23:48:06 ] なんか勘違いしてたっぽい。 コンボボックスにあらかじめ入れておく項目は標準モジュールからは呼び出せないか。 487 名前：デフォルトの名無しさん mailto:sage [2009/10/25(日) 23:54:43 ] 最後疑問系なの 質問？ コンボボックス リストボックスのリストは標準モジュールで指定出来るでしょ 値を入れておきたいならValueに入れればいいでしょ 488 名前：デフォルトの名無しさん mailto:sage [2009/10/26(月) 09:00:41 ] マクロ記録 エクセルでCSV開く 該当行削除 保存 記録停止 ↑で出てた正規表現ってよくわかんないんだが何が出来るの 489 名前：デフォルトの名無しさん mailto:sage [2009/10/26(月) 09:57:05 ] 日本語でOK 490 名前：デフォルトの名無しさん mailto:sage [2009/10/26(月) 17:17:01 ] Excel2007 statusbarに関する質問です Dim oldStatusBar With Application .ScreenUpdating = False oldStatusBar = .DisplayStatusBar End With 〜処理〜 With Application .ScreenUpdating = True .DisplayStatusBar = oldStatusBar End With として処理中、statsubarに "現在 " & code & "　を処理中"としてcodeを 表示させているのですが、終了後に "現在 0 を処理中" となります。 これを処理終了後には何も表示させなくしたいのですが、どうすれば 良いのでしょうか。 .DisplayStatusBar = ""とすると、 実行時エラー 13 型が一致しません となります。 491 名前：デフォルトの名無しさん [2009/10/26(月) 20:36:59 ] >>1の★４に該当しますが、他にいいスレがあったら誘導してください。 Long型の数値からリトルエンディアンByte(4)型に分割したいのですが、どのようにしたらよいでしょうか。 VBだとLong型が８バイトと聞いたので、こちらに質問しました。 よろしくお願いします。 492 名前：デフォルトの名無しさん mailto:sage [2009/10/26(月) 22:09:15 ] 1回だけランチしましたが、それっきりで不発です。 どこが変なんでしょ？ CODE var path='C:/Program Files/Microsoft Office/Office/excel.exe'; var args=''; this.setAttribute('oncommand','this.startProcess("'+path+'","'+args+'")'); this.startProcess=function(path,args){ var file = Components.classes['@mozilla.org/file/local;1'] .createInstance(Components.interfaces.nsILocalFile); var process = Components.classes['@mozilla.org/process/util;1'] .getService(Components.interfaces.nsIProcess); file.initWithPath(path.replace(/\//g,'\\\\')); process.init(file); process.run(false,[args],1); } 493 名前：デフォルトの名無しさん mailto:sage [2009/10/26(月) 23:13:30 ] >490 2007は知らんけど2003ならば Application.StatusBar = False 494 名前：デフォルトの名無しさん mailto:sage [2009/10/27(火) 00:26:15 ] >>491 VBAのLongは4バイトです 8ビットずつマスクとシフトしながら分割してください 495 名前：デフォルトの名無しさん mailto:sage [2009/10/27(火) 00:27:36 ] >>492 VBSはスレチ 496 名前：491 [2009/10/27(火) 01:21:41 ] >>494 ありがとうございます。 ただ、そのままするとマイナスの値のときにおかしくなってしまいます。 もうすこし詳しく教えていただけないでしょうか。 497 名前：デフォルトの名無しさん mailto:sage [2009/10/27(火) 01:34:34 ] >>496 MSBだけ別の変数にとっとけばいい 498 名前：デフォルトの名無しさん mailto:sage [2009/10/27(火) 01:41:11 ] 492はどうみてもJavaSな件 499 名前：491 [2009/10/27(火) 16:25:08 ] >>496 ありがとうござました。 マイナス関係なくできました。 難しく考えすぎてたみたいです。 500 名前：デフォルトの名無しさん mailto:sage [2009/10/27(火) 19:39:03 ] Sub Main() Dim strPath As String Dim wkb As Excel.Workbook Dim wks As Excel.Worksheet Dim rng As Excel.Range Dim col As New Collection strPath = Excel.Application.GetOpenfilename If strPath = "False" then Exit Sub End If Set wkb =Excel.Workbooks.Open(strPath) Set wks = wkb.Sheets("Sheet1") Set rng = wks.Range("A1") call col.Add(rng) If Not(wkb Is Nothing) Then Call wkb.close: Set wkb = Nothing End If If col Is Nothing Then Set rng = col.Item(col.count) Debug.Print rng.Value End If End Sub 'colって、Nothingじゃないの？ 'Is Nothingの対象はRange型のcolでは無くて、col自体を対象としてんのかな。 501 名前：デフォルトの名無しさん mailto:sage [2009/10/27(火) 20:01:28 ] Dim col As New Collection 502 名前：デフォルトの名無しさん [2009/10/27(火) 22:27:30 ] XP で2003使ってます。 2003及び2000で動いてくれれば・・ アクセス側から、あるワークシートにおいて、 Set myWKS = myWKB.Worksheets("test") With myWKS t = DCount("*", "T1") .Range("A10").CopyFromRecordset myRS .Range("A10:D" & t + 9).Select .Application.ActiveCell.Sort Key1:=Columns("C"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns, SortMethod:=xlStroke 　　　　.SaveAs "C:\Documents and Settings\Owner\デスクトップ\sample\テスト作成.xls" 　　　　.End With という処理を行っています。 アクセスを起動後1回目は、ソートが正常に動きますが、2度目以降はうまくソートしてくれません。 次にこのメソッドを使用するときに、引数を指定しなかった場合は、保存されていた値が使用されます。 と、ヘルプにもあるように、ここにひっかかっているのだと考えていますが、 どうにも原因を突き止められません。 どうぞよろしくおねがいします。 503 名前：デフォルトの名無しさん [2009/10/27(火) 23:15:04 ] 解決しました。 理由は先ほどエラーが出ていたときは１度目の実行はうまくいくのにエクセルファイルを閉じても エクセルのプロセスが残ったままになっており２度目はその影響(?)で失敗していました。 コード自体に問題はなく、参照設定のexcelオブジェクトの優先順位を一つ上にあげてやれば、 正常に2度目以降も動くようになりました。 ただ、凄く不安定な正常性ということなので、根本を解決できる何かがあれば 是非アドバイスおねがいいたします。 504 名前：デフォルトの名無しさん mailto:sage [2009/10/27(火) 23:45:25 ] 残ってるのはＤＢＳオブジェクトじゃね エラー出たときとか終わるときにちゃんと閉じてる？ 505 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 00:36:54 ] そこでした。 オブジェクト指定をしっかり作ったエクセルアプリケーションにしていなかったり、 いきなり.Rangeにしてたりで、タスマネに5個ぐらいＥＸＣＥＬってありましたｗ コード多すぎて無理臭いので、クエリのほうから指定することにしました。 以降はいい加減に組まないように注意せねばでした。 ありがとうございました 506 名前：デフォルトの名無しさん [2009/10/28(水) 10:55:56 ] エクセルのマクロの問題に対する質問はここでいいですか？？ 507 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 11:13:24 ] OK バージョン書いてね 508 名前：デフォルトの名無しさん [2009/10/28(水) 13:01:21 ] ここは宿題かたずけますスレって考えてもいいんですか�ｨ 509 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 13:19:44 ] >>508 質問の内容とタイミングによる 時間帯と曜日によって、宿題は自分でやれってレスが付くだけのこともあるし VBA厨が喜んでプログラムを作ってくれることもある 510 名前：デフォルトの名無しさん [2009/10/28(水) 13:55:04 ] とりあえず書いてみます�� Excel2003 めっちゃ初歩的です… Do〜LoopかForｰNextを使わなければならないみたいです。 1〜10までの整数で 偶数の和をD1 奇数の和をE1 に表示せよ です。 511 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 14:02:20 ] ExcelはスプレッドシートソフトでＶＢＡの練習台じゃ ありません。 ＶＢＡの練習をしたいのなら、Accessでやれっつーの （AccessではExcelでやれっていわれるかも） てなわけで、Active BASICがＶＢＡと文法互換だったら いいのになとおねだりしよう 【サーバー各所】ActiveBasicその11【冬眠中】 pc12.2ch.net/test/read.cgi/tech/1241316033/ 512 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 15:07:11 ] >>511 あほか。Access持ってる奴なんてごく少数だろうが。 513 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 15:22:58 ] ACCは初めにオブジェクトアクセスを経由する必要があるから、VBAの初学には向かないよ、と思ってる エクセルなら(初めの内は)オブジェクト志向を意識しないでコードが組める上、マクロの記録がある マクロの変換じゃなくて、操作をVBAに変換するから、体感出来る点が非常に優位 逆に初めからRecordset操作を理解したほうが後が楽かもしらんけども 514 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 16:37:27 ] >>513 VBA扱う場合はやっぱフォームから入るべきだろ。 テキストボックスで入出力でいいじゃん Excelの場合CellをVBAで扱うのは、VBAだけじゃ不十分で VBAの基本とExcelの基本が十分出来上がって独立 共存できるようになってからじゃないと両方駄目になる悪寒 Accessの場合はVBAが出来てからテーブルやらクエリ やら覚えていく方法がとれる。 515 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 17:06:49 ] 別のスレでやれ 516 名前：デフォルトの名無しさん [2009/10/28(水) 18:30:39 ] VBAを使用してアルバイトの出勤簿を作成しています。 例えば、セルJ6に名前をInputBoxを使って入力した時に、セルJ5にフリガナをカタカナで 自動で表示する場合はどのようにすればよいでしょうか？ 517 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 20:57:08 ] フリガナにはそれ用のワークシート関数を使う 518 名前：デフォルトの名無しさん [2009/10/28(水) 21:23:03 ] PHONETIC関数でしょうか？ フリガナを表示しないで、氏名（漢字）が表示されてしまいます。 519 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 21:39:35 ] 大した人数でないなら 名前と読み方リスト作ろうぜ 520 名前：デフォルトの名無しさん [2009/10/28(水) 21:44:07 ] 読み方リストを作り、セル参照を使うということですか？ 521 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 21:51:46 ] でもなんでも どう料理するかは考えてないけど テキストボックスに名前入れると読み仮名ラベルに表示するとかかな 522 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 21:58:13 ] >>510 宿題なのかな？答え書いたら勉強にならないから、ヒント書いておくね。 for i = 1 to 10 next if i and 1 = true then 奇数 if i and 1 = false then 偶数 cells(4,1).value = cells(4,1).value + i がんばって。 523 名前：デフォルトの名無しさん [2009/10/28(水) 22:07:25 ] ワークシート関数を使うことに決めました。 524 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 22:08:51 ] Mod 演算子を使わないのは速度厨なせいでつか？ 525 名前：517 mailto:sage [2009/10/28(水) 22:16:47 ] detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1414375849 なるほど、セルに直接入力しない場合で、phoneticを使用する場合は工夫が必要だね 526 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 22:40:03 ] ワークシート関数はＶＢＡからでも呼び出せるっちゃ呼び出せる 527 名前：デフォルトの名無しさん [2009/10/28(水) 22:49:49 ] 変更して保存 　　↓ Excelを終了 とするにはどういうふうに構文をかけばよいでしょうか？ 528 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 22:59:33 ] >>527 Application.Quit 529 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 23:49:49 ] そういえばかなり前に1からnまでの和をループを回して求めよってのに For i = 1 To n Next 和 = (1 + n) * n / 2 みたいなのがあったな。 530 名前：デフォルトの名無しさん mailto:sage [2009/10/28(水) 23:53:53 ] >>522 ビット演算なんて分るやつあまりいないんだから、そういう知ったかぶりの回答はやめましょうね。 531 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 00:19:50 ] 奇数 = 0 偶数 = 0 For i = 1 To 10 Step 2 　　奇数 = 奇数 + i 　　偶数 = 偶数 + (i + 1) Next Debug.Print 奇数, 偶数 532 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 00:26:27 ] >>530 >ビット演算なんて分るやつあまりいないんだから え！そうなの？ 533 名前：デフォルトの名無しさん [2009/10/29(木) 00:48:08 ] >>510 教えてくれとは書いていなかったけど、よかったら参考にしてください。 Sub PlzDoHomeworkByYourself() Range("D1").Value = 0 Range("E1").Value = 0 ' The following was written by someone on the net. For i = 1 To 10 If (i Mod 2) = 1 Then '2で割り切れない場合（奇数） Range("E1").Value = Range("E1").Value + i Else '2で割り切れる場合(偶数) Range("D1").Value = Range("D1").Value + i End If Next ' If you're a teacher, you ought to punish your student who didn't do homework himself. End Sub 534 名前：デフォルトの名無しさん [2009/10/29(木) 01:18:45 ] >>533 ありがとうございます！！また頼むかもしれませんがよろしくお願いします。 535 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 01:45:25 ] Sub Main() Dim rng As Excel.Range Dim i As Integer Set rng = Excel.ThisWorkbook.Sheets("Sheet1").Range("D1") With rng '初期化 .Offset(0, 0) = 0 '$D$1 .Offset(0, 1) = 0 '$E$1 For i = 1 To 10 Select Case True Case (i Mod 2) <> 1 '偶数 .Offset(0, 0) = .Offset(0, 0).Value + i Case (i Mod 2) = 1'奇数 .Offset(0, 1) = .Offset(0, 1).Value + i End Select Next i '初期化 .Offset(0, 0) = 0 '$D$1 .Offset(0, 1) = 0 '$E$1 i = 1 Do While i < 11 Select Case True Case (i Mod 2) <> 1 '偶数 .Offset(0, 0) = .Offset(0, 0).Value + i Case (i Mod 2) = 1'奇数 .Offset(0, 1) = .Offset(0, 1).Value + i End Select i = i + 1 Loop End With End Sub 536 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 02:03:47 ] >>510 For i = 1 To 10 　　Cells(1, 4 + (i And 1)) = Cells(1, 4 + (i And 1)) + i Next 537 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 09:15:12 ] >>532 officeのVBAだと使わないしねぇ vbaだと知ってても使う場面がほとんど無い品 538 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 09:24:31 ] >>529 なにそれ面白い ビット演算とか知識はかろうじてあるけどナニソレ 539 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 12:14:21 ] 俺ならこうやって高速化するぜ For i = 1 To n Step n Next 和 = (1 + n) * n / 2 540 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 12:21:10 ] すまんが教えてください vbaでie制御して、ieのframes(a)内を全選択してコピーしたい。 frames(a)を全選択することが重要で、frames(b)の情報は必要ないし、innerText等での情報取得は避けたい。 ExecWBとSendKeysでやってみたが上手く行かなかった。 やり方に問題があるのか、違う方法があるのか？ 教えてください。 541 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 12:21:25 ] おれならこうだな for i ＝ n to n next 542 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 12:46:51 ] 速さならこっちかな？ For i = 1 To n Exit for Next 和 = (1 + n) * n / 2 543 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 13:08:40 ] さすがにこれは反則だろうな Goto aaa For i = 1 To n Next :aaa 和 = (1 + n) * n / 2 544 名前：デフォルトの名無しさん mailto:sage [2009/10/29(木) 13:21:48 ] 和 ＝ (1+n)*n／2 Debug.Print 和 ループ こうか! 545 名前：デフォルトの名無しさん mailto:sage [2009/10/31(土) 10:22:29 ] 質問させてください。(Excel2003 XP) ExcelでRS-232-C通信を行おうとしております。 大昔に一度、何かを見ながら自作したﾏｸﾛを参考にやっています。 当時はMSCommを使用しておりましたので、同様にﾂｰﾙﾎﾞｯｸｽから MSCommをﾌｫｰﾑに貼り付けると、 「サブジェクトは指定された操作に対して信頼されていません。」 と表示され、貼り付けることができません。 Webで調べると、どうやら ActiveX Killbits に対するセキュリティ更新プログラム (KB969898) を実行したことで使用出来なくなってしまったようです。 対策はこれを削除とのことですが他へ配布したりPC乗り換えごとに 削除して回るのも非現実的です。 MSCommが分かりやすくて簡単ですのでこれを使用したいのですが 更新ﾌﾟﾛｸﾞﾗﾑの削除や新たに何かをｲﾝｽﾄｰﾙしなくても使用できる 方法はないでしょうか？ また他にWinAPIで行う方法もありましたがこちらで行う方法が主流？ なのでしょうか？ よろしくお願いします。 546 名前：デフォルトの名無しさん mailto:sage [2009/10/31(土) 13:10:43 ] >ActiveX Killbits に対するセキュリティ更新プログラム (KB969898) >を実行したことで使用出来なくなってしまったようです。 >対策はこれを削除とのことですが他へ配布したりPC乗り換えごとに >削除して回るのも非現実的です。 >MSCommが分かりやすくて簡単ですのでこれを使用したいのですが >更新ﾌﾟﾛｸﾞﾗﾑの削除や新たに何かをｲﾝｽﾄｰﾙしなくても使用できる >方法はないでしょうか？ 自分で何言ってるか分かってる？ 547 名前：545 mailto:sage [2009/10/31(土) 15:21:48 ] >546 失礼しました。 >MSCommが分かりやすくて簡単ですのでこれを使用したいのですが >更新ﾌﾟﾛｸﾞﾗﾑの削除や新たに何かをｲﾝｽﾄｰﾙしなくても使用できる >方法はないでしょうか？ MSCommのようなｺﾝﾄﾛｰﾙが分かりやすくて簡単ですのでこの様なｺﾝ ﾄﾛｰﾙを使用したいのですが更新ﾌﾟﾛｸﾞﾗﾑの削除やﾌﾘｰのｱﾄﾞｲﾝなど をｲﾝｽﾄｰﾙしなくても使用できる方法はないでしょうか？ (MS系の更新ｲﾝｽﾄｰﾙや代替ｺﾝﾄﾛｰﾙのｲﾝｽﾄｰﾙは可) WinAPIはｻﾝﾌﾟﾙを見てもまださっぱり理解できないので出来れば避け たいのですが、今から作るのであればｺﾝﾄﾛｰﾙではなくWinAPIで行う べきでしょうか？ よろしくお願いします。 548 名前：デフォルトの名無しさん mailto:sage [2009/10/31(土) 19:18:22 ] MSCommを使いたいなら対策は「ActiveX Killbits に対するセキュリティ更新プログラム (KB969898)」を削除

---

---

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

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