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/ 737 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 22:05:40.66 ] 説明が分からないから答えようがないのかそれとも説明は分かるけれども態度が気に食わないから答えないのかもし仮に後者なら貴方こそレスする必要は無いし説明が分からないならば分からない箇所を指摘してくれれば返答できるのだが！！！ 738 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 22:07:03.60 ] 736まさにそれですそれを2行にするか1行に続けて書くか以外になにか案はありますかないのならば1行に続けて書いた方がスマートなんでそうしますが 739 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 22:14:21.32 ] 元データの末尾に列番号を加える 元のデータ 12　54　. 8　23　36 これを 121.542 83 234 365 にしてから並べ替えれば、下1桁をチェックすれば元の位置がわかる 740 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 22:20:57.88 ] >>737 ちゃんと例を上げて処理をひとつずつ説明しろ 変な言葉遣い止めろ 741 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 22:36:53.87 ] なるほどおおおお0.0001とかにすれば誤差も出ないしいい感じですなあ 742 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 23:30:16.99 ] >>741 どんだけ低脳なんだよ いいわけないだろ ただ複数の値を保持したいだけなんじゃないのかよ データ用と表示用で表を分けるとか Idプロパティ使うとかすればいいだろ Idなら、 A.Idを降るプロシージャ(1〜5) B.それぞれの行を並べ替えるプロシージャ C.IdとValueを入れ替えるプロシージャ を作って、ABで並べ替えた後、 CBCで元の並びに戻る 743 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 23:36:09.02 ] あっはあidプロパティねthx! 744 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 23:40:58.34 ] 真性か・・・ 745 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 04:38:22.65 ] ' ↑これを エクセルのシート上で ="'"&A1 と書くとセルＡ1の文字列の前に ' が 連結されるのですが ＶＢＡで dot = "'" Cells(A, 5) = dot & Cells(A, 1) と書いてもＡ５セルの文字列（Ａ１の中身）の前に ' が 表示されずＡ５セルをクリックすると 上部のセルの中身が見れるバーには ' が文字列の前に 表示されています。 Ａ５セルを他のセルにコピーしても 文字列だけコピーされて　' はコピーされません。 ＶＢＡを使って、文字列の前に　' を連結させたいのですが 良い方法ありませんか？ 746 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 05:08:10.31 ] >>745 まず自分で調べろ 俺も知らなかったけど ググったら載ってたぞ いい加減にしろ！！ 747 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 08:02:09.18 ] >>746 ＶＢＡのプログラムがおかしいかと 何時間も考えたけど ぐぐったら１分で解決しました ありがとう 748 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 22:01:31.40 ] >>735 以下の様に、変更するとテキストボックスをかけるようになった。 Sub mkTextBTest02() 　　Dim shSel As Shape 　　Set shSel = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 　　　　48#, 20 + 16 * lC, 10#, 16#) 　　shSel.TextFrame.Characters.Text = lC　'←＄文字列を書く 　　With shSel.TextFrame.Characters.Font　'←＄フォントの設定 　　　　.Name = "ＭＳ ゴシック" 　　　　.Size = 9 　　End With 　　shSel.Line.ForeColor.SchemeColor = 8　'←＄フォントの設定 End Sub VB Editorのヘルプを調べてわかった。 各くオブジェクトのpropertyと、propertyのobjectを定義するclassの区別 がついていなかった。 749 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 22:12:28.38 ] C3に 11582.43、C4に11722.98という数字が入っています ワークシートで= =C4-C3とすれば、140.55という数字が入ります んで、VBAで同じように引き算で Cells(4, 5) = Cells(4, 3) - Cells(3, 3) とすると見かけ上は同じく140.55という数字が入っていますが、 上の関数入力するとこを見ると140.54999999 という数字になっています なぜ？ この場合小数点以下三桁のとこで四捨五入しないとだめ？ 750 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 22:56:52.80 ] >>745 "'"は、セルが文字列型であることを示す接頭辞だから消えてしまう。 Cells(5, 1) = "''" & Cells(1, 1) と書くか。 しかし、Cells(6, 1) = Cells(5, 1) 頭に"'"あるCells(5, 1)をCells(6, 1) にコピーすると、Cells(6,1)では頭の"'"は消えてしまう。 しかし、Cells(A,5)と言う書き方、間違っているのでは。 751 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 01:00:47.78 ] >>749 コンピュータで小数点以下を扱う場合は誤差がでることを考慮に入れる必要があるんだよ ちなみにその計算式のセルを小数点以下２０桁とかの表示にしてみ >>750 >しかし、Cells(A,5)と言う書き方、間違っているのでは。 文法的にはAという変数でRowIndexを指定してる。間違ってはいない まあ、意図したものと違うだろうって意味では間違ってるがｗ 752 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 05:22:57.78 ] >>751 とりあえず、数字を100倍して引き算をし、その後また100で割るようにしておきました。 753 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 10:39:54.04 ] sheetとsheetの結合ってどうやるの 754 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 16:43:04.59 ] しーとと しーとの けつごう 755 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 16:52:15.11 ] あのぉ…大量のデータをコピーしようとすると…リソース不足とでるんですが… 756 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 17:38:02.76 ] 型が一致しません、というエラーをスルーして処理を続けさせるにはどうすればよいですか？ 757 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 18:03:41.58 ] >>756 On Error Resume Next 758 名前：デフォルトの名無しさん [2012/03/20(火) 19:43:41.75 ] BookB の全部をコピーして、BookA に貼り付けて BookB を保存しないで、コピーしたデータも 他に使わないで、ただ閉じたいんですが、どう書けばいいでしょうか？ マクロの記録だと、ブックを閉じてしまうため、記録が残りません。 759 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 19:53:02.06 ] 全部をコピーって具体的には? ぶっちゃけファイルコピーで済むようにも見える。 760 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 20:35:55.01 ] Workbooks("BookB").Close False 761 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 21:34:10.11 ] BBとか多い列数はどうやって数えますか？ 762 名前：デフォルトの名無しさん [2012/03/20(火) 21:50:35.25 ] column関数 763 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:03:45.84 ] if small (範囲,1)とするとエラーが出ます どう書けばよいですか 764 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:06:51.11 ] Application.Small 765 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:40:15.33 ] 出来ねええ 766 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:41:18.41 ] >>761 かぞえなくても Cells(5, "BB") みたいに書けるからあんまり困らない 767 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:42:22.85 ] application.smallが上手くいかない件 768 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:44:11.28 ] 多分それデータが悪い 769 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:47:07.63 ] オブジェクトが必要ですとでてくる 770 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:49:05.83 ] 範囲って変数の型がRangeじゃないんじゃない？ これで動いたぞ Dim 範囲 As Range Set 範囲 = Range("A1") Debug.Print Application.Small(範囲, 1) 771 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:57:41.83 ] set c = worksheets("a").range(cells(1,1),cells(1,2)) これどこちがう 772 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:01:05.19 ] >>771 エスパー能力を最大限に発揮すると思いつくのはこんなとこ ・シート名が"a"ではない ・セルの範囲が実は間違っている ・変数名がcではない 773 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:07:26.09 ] 今日のエスパー養成所はここかっ！ 774 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:07:38.93 ] アプリケーションの定義またはオブジェクトの定義のエラーですがでます 775 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:09:11.73 ] >>771 Set c = Worksheets("a").Range(Worksheets("a").Cells(1, 1), Worksheets("a").Cells(1, 2)) 又は Set ws = Worksheets("a") Set c = ws.Range(ws.Cells(1, 1), ws.Cells(1, 2)) 776 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:12:44.97 ] できますたwwwwありがとお 777 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:52:04.45 ] 右クリックの動作を処理に応じて変えることはできませんかね？ 例えば最初は通常の動作(ショートカットメニューを表示)、あるコマンドボタンを押してから右クリックすると条件付き書式設定のダイアログボックスを表示、また別のコマンドボタンを押すと通常のショートカットメニューに戻す 778 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 05:31:19.87 ] できます 779 名前：デフォルトの名無しさん [2012/03/21(水) 11:58:38.03 ] activecell.address で"$"つきの番地が得られます。 ＄なしの番地はどうすれば取得できるのですか？ そもそもなぜ＄サインがつくのでしょうか？ 780 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 12:03:18.85 ] >>779 replace関数で"$"を""に置き換えるといいです 781 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 12:58:56.00 ] >>779 ActiveCell.Address(False, False) ヘルプを読めよ 式.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo) 782 名前：デフォルトの名無しさん [2012/03/21(水) 14:58:10.99 ] >>780,781 Thnx 783 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 18:54:20.16 ] ちょっと教えてほしいのだが 引数明示して書くとき、例えば下のケースだが Range(Cells(1, 1), Cells(1, 2)).Replace what:="111", replacement:="", MatchCase:=False これはすべて小文字で入力したんだがmatchcaseだけ修正されるのはなぜなんだ？ 784 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 19:23:14.78 ] >>783 仕様だから、としか答えようがない 785 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 19:53:58.40 ] >>784 ありがとう 謎仕様なんだな 786 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 22:16:41.56 ] Microsoftだもの 787 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 22:20:20.58 ] >>783 ホントだ、気持ちわりーな 788 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 23:26:12.89 ] MatchCaseにカーソル置いてF1押すと、Sort.MatchCase プロパティ が表示できる whatやreplacementだとキーワードが見つかりません。になる MatchCaseってプロパティと勘違いして補正されてると思われ 789 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 23:38:35.97 ] >>788 あーなるほど 理解した、ありがとう しかしこれ気になるよな ただ、直すのも面倒なんだよな 790 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 08:04:17.83 ] directXから音を鳴らしているのですが 音量を変えるにはどうしたらいいでしょうか up1m.ko.gs/src/koups1393.zip 791 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 14:09:48.74 ] >>790 >>2 792 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 15:08:59.92 ] >>778 遅くなりましたが出来ました。 もう一つ質問なのですがCtrlキーを押しながら任意のセルを選択した時、そのアドレスを全て取得するにはどうすればよいのでしょうか 例えば、A1、A3、A7、B1、B2、B4、C3、C4、C5を選択した時にこの９個のアドレスを取得したいのです 793 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 15:16:28.75 ] >>792 Application.Selection 794 名前：792 mailto:sage [2012/03/23(金) 16:17:34.92 ] >>793 わかりませぬ、具体的に教えて下さい。 795 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 17:27:44.81 ] debug.print application.selection.address 796 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 18:07:16.00 ] 条件付き書式を設定したセルをアクティブにして これ以外のシートの内容を下のマクロで消すと表示がおかしくなるんだけど なぜなんだ？？ sub test worksheets(2).cells.delete end sub 条件書式以外にもindirectを使ったセルでもおかしくなる 797 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 18:11:20.36 ] worksheets(2)を参照してたからじゃないの？ 798 名前：792 mailto:sage [2012/03/23(金) 18:16:57.46 ] Dim Sel_Addr As String Sel_Addr = Application.Selection.Address としたら取得できました。 799 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 18:35:18.85 ] いちいちそんな報告いらん 800 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 18:54:15.56 ] >>797 参照って =Sheet2!A1みたいに使ってるかってことか？ なら使ってない 表示がおかしいって書いたが、アクティブセルの囲い線が残るような感じ 801 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 07:44:03.99 ] >>800 単なるバグじゃないの？ ScreenUpdatingをFalseにしてからworksheets(2).cells.deleteしたらいい 802 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 15:01:00.18 ] >>801 やっぱりバグなのかー ありがとう 803 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 16:18:46.43 ] formの表示中に自由にセルを選べるように したいのですが・・・ 804 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 16:21:04.88 ] >>803 モードレスで開けばいい 805 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 16:21:48.60 ] vbModeless 806 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 16:26:46.00 ] >>804 Thnx モードレスで、表示すればよいのでは？ UserForm1.Show vbModeless とか UserForm1.Show 0 807 名前：デフォルトの名無しさん [2012/03/24(土) 16:38:43.39 ] A1とかセルの座量をべた書きするんじゃねーよ セルに名前を付けて名前経由で座標を指定しろよ ソース解析＆改造しててやりにくくてしかたない 808 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 16:49:06.55 ] 複数のＣＳＶファイルを１つにしたくて 調べたら 以下のサイトが参考になったので ttp://ziddy.japan.zdnet.com/qa3168255.html?order=DESC&by=datetime Sub CSV結合() Const CRFILE As String = "C:\My Documents\test2" Dim obj As Object Dim arg As String Set obj = CreateObject("Shell.Application") _ .BrowseForFolder(0, "SelectFolder", 0) If obj Is Nothing Then Exit Sub arg = obj.self.Path & "\*.csv " Set obj = Nothing Call Shell(Environ("ComSpec") & " /c copy /b " & arg & CRFILE) End Sub とやっているのですがうまくいきません。 フォルダ選択の画面はでてくるのですが C:\My Documents\test2 に結合されたＣＳＶファイルができるはずですが、できなくて。 ソース間違ってますか？ エクセル２００７です。 809 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 17:01:15.46 ] 書き出すファイル指定が間違ってるかと思い Const CRFILE As String = "C:\test2" Cドライブ直下にtest2フォルダ作ってみてもだめでした 810 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 17:07:43.90 ] Shell関数に渡しているコマンドライン文字列を確認したら？ とりあえず、空白を含むパスはダブルクォートで囲まないと駄目だ。 811 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 17:15:53.57 ] >>808 Const CRFILE As String = "C:\My Documents\test2.csv" で出来たけど？ 812 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 17:20:05.20 ] >>808 >>2 813 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 17:37:21.02 ] >>807 こめんなさい。心当たりが沢山ありすぎてもう… 814 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 17:41:43.68 ] >>810 コマンドライン文字列とはなんですか？ 他にＣＳＶファイルを２個作ってみたけどだめでした。 >>811 拡張子つけたけどだめでした。 >>812 XPでエクセル２００７です ソースをステップ実行させても 全部の行を実行してるのに なんだろうこれは・・・ 815 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 17:50:40.99 ] Const CRFILE As String = """C:\My Documents\test2.csv""" 816 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 17:54:23.10 ] > XPでエクセル２００７です そう来るかw 817 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 18:38:25.29 ] >>814 >>2 818 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 19:20:45.41 ] >>775 これで指定したレンジ範囲の数値を、小さい順に並べた場合の各々の差が、x以上であるとかx以下であるといった判定をするにはどう書けばよいですか！ 819 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 20:30:24.96 ] >>818 IsNumeric関数とIfステートメントを使う 詳細はヘルプを読めばわかる 820 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 22:05:47.67 ] isnumericじゃできなくね？ 821 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 22:08:14.94 ] 数値かどうかの判定に必要だと思ったんだけど、不必要だと思ったなら使わなくても何ら問題ない 強制力なんかないからね 822 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 22:55:40.15 ] if a1>a2+x>a3+x thenが上手く動かないのだが、なぜか？ 823 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 22:59:30.43 ] >>822 if a1>a2+x and a2+x>a3+x then 824 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 23:02:42.68 ] これがa3までじゃなくa100まである場合、どうすればいい？ 825 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 23:04:33.81 ] 誤り if a1>a2+x>a3+x then 訂正 if a1>a2+x>a3+2x then 826 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 23:07:17.88 ] そうか全組み合わせの差の絶対値の最小値がx以上ならいいわけか しかしx以下の場合を求めたいときはどうすればいい？ 827 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 23:08:16.93 ] 何だVBA力のおっさんか 828 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 23:13:47.11 ] >>824 VBAを使うしかないだろうな 829 名前：デフォルトの名無しさん mailto:sage [2012/03/24(土) 23:23:17.89 ] >>824 アンダースコアを使えばステートメントを複数行に分けて記述することができる 例えばこんな感じ If 条件式1 And _ 条件式2 And _ 条件式3 And _ 条件式4 And _ 既にスレチなので>>2をよく読んでくれ 830 名前：デフォルトの名無しさん mailto:sage [2012/03/25(日) 02:53:38.96 ] 例えば処理したい「実行１」というプロシージャがありあまして。 call 実行１ で普通に処理されるのですが。 Dim moji As string moji = "実行１" call moji は当然ですが実行されません。ですが、何かプロシージャそのものを変数化させて 状況に応じて呼び出せるようにする方法があるでしょうか？ ユーザーフォームのリストボックスに何十種類ものプロシージャがあるのですが、それらを 効率的に場合わけして処理するのに、それが出来ると便利なのですが。 方法はないのでしょうか？ 831 名前：デフォルトの名無しさん mailto:sage [2012/03/25(日) 03:35:34.73 ] >>830 Application.Run ThisWorkbook.Name & "!" & moji 普通は Call ほにゃらら(moji) ってやって、ほにゃららの中でmojiによって分岐するようなプログラムを書くもんだけど 832 名前：デフォルトの名無しさん mailto:sage [2012/03/25(日) 03:37:32.62 ] ifとかselectでそれらを場分けしてcallする処理を1個用意すりゃ良いじゃん つか普通そうする プログラミングの手法とかそういう話だから後はそういうスレで聞いてくれ 833 名前：デフォルトの名無しさん mailto:sage [2012/03/25(日) 03:38:56.85 ] あ、リロードしないのが自分の悪いクセだな… 834 名前：デフォルトの名無しさん mailto:sage [2012/03/25(日) 06:28:18.30 ] >>831 ありがとうございます。 >>832 実はそのように、select で、分岐していたんですが、数が多くなりすぎて。 ただ、selectの分岐がいくら多くなっても、速度とかに影響するという わけでもないので、良いといえば、良いのですが、スマートにできないかと 気になってしまいまして。 835 名前：デフォルトの名無しさん mailto:sage [2012/03/25(日) 12:59:29.22 ] for i=1 to n if a(i-1) - a(i) <= x then y= false next I 836 名前：デフォルトの名無しさん mailto:sage [2012/03/25(日) 15:22:52.17 ] a列とb列の相関を調べたい 837 名前：デフォルトの名無しさん mailto:sage [2012/03/25(日) 15:31:17.78 ] VBA使う必要ないけど

---

---

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

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