Excel VBA 質問スレ Part68

1 名前：デフォルトの名無しさん [2020/08/30(日) 11:55:27.33 ID:Oy/VxFsh0.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付ける ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part67 https://mevius.5ch.net/test/read.cgi/tech/1593104489/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 88 名前：63 mailto:sage [2020/09/06(日) 14:27:55.58 ID:spMqG8Fw0.net] https://www.fe-siken.com/kakomon/30_haru/pm03.html この設問1の答えなんですが、この文でどうして結合とか保護者の氏名と住所を抽出するのですか？ 89 名前：デフォルトの名無しさん mailto:sage [2020/09/06(日) 14:33:06.47 ID:PpfBKGYq0.net] >>84 これで出来ました ありがとうありがとうありがとううううううううーー 90 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f8e-+abr) [2020/09/06(日) 18:43:46 ID:Mql9n0EK0.net] >>88 死ね 91 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 05:30:38.87 ID:OoqPbQfP0.net] >>90 お前が死ね ゴミ山猿の屑野郎 92 名前：デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMab-AmFM) mailto:sage [2020/09/07(月) 12:55:41 ID:ZbJzmFKoM.net] >>91 内容も読まずに書くなよクズ。SQLのことだろうが。 93 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 18:18:17.86 ID:R5ozSk7c0.net] ここで質問したらダメだったみたいですね 該当スレとかあるのでしょうか 94 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 18:26:10.30 ID:aZP2Fcscd.net] >>93 egg.5ch.net/test/read.cgi/welfare/1598921138/ 95 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 18:43:17.53 ID:K46ocmR8a.net] >>88 これをどこで聞けばいいのかもわからなかったらFE受かるの難しいよ… 96 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 20:07:21.03 ID:Yu9E5X6OM.net] VBA勉強しはじめて、ようやくOutlook連携とかzip圧縮とかやり始めたんだけど Excelそのものの操作に関する情報と比べて、参考に出来る情報の質も量もガクッと落ちた気がする やっぱ話題のpythonに切替えたほうが悩まずやれるのだろうか 97 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 20:09:11.40 ID:Yu9E5X6OM.net] 質も量も、っていうのはノンプログラマーの自分が探せる範囲って意味です 98 名前：デフォルトの名無しさん [2020/09/07(月) 20:22:49.70 ID:sgrgY4Mk0.net] zip.exe叩けばええやろ 99 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f6d-4jJb) [2020/09/07(月) 20:51:37 ID:/DR3/4oV0.net] 目の前に答えが書いてあっても理解できない、答えだと気付けない これが「馬鹿には無理」の意味 100 名前：デフォルトの名無しさん (ﾃﾃﾝﾃﾝﾃﾝ MM8f-Ccsn) mailto:sage [2020/09/07(月) 21:00:18 ID:Yu9E5X6OM.net] 半年ROMって勉強します押忍押忍押忍 101 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 21:22:51.97 ID:JIC+p5t3M.net] 何をしたいかによるけど、Windowsの操作の自動化っていう範疇ならPowerShellおすすめ Comオブジェクトも使えるよ 102 名前：デフォルトの名無しさん [2020/09/07(月) 21:38:02.53 ID:J1GBImUha.net] なにがおかしいの？ Sub func() Dim url As String: url = "https://e-hentai.org/g/1727798/1fbe77a0a2/" Dim buffer As String: buffer = "" Dim objLinks As Object Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = False objIE.navigate (url) Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE DoEvents Loop Call WaitFor(3) ' wait for 3 seconds objLinks = objIE.document.getElementsByClassName("gdtm").outerHTML Cells(1, 1).Value = objLinks objIE.Quit Set objIE = Nothing End Sub Function WaitFor(ByVal second As Integer) Dim futureTime As Date: futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend End Function 103 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 22:46:01.59 ID:qahfABoQ0.net] IEはもう無くなるよ 104 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 22:49:52.43 ID:744b2nM10.net] >>102 Dim objLinks As String 105 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 22:54:20.72 ID:VQNIMFGd0.net] >>103 IEの代替え何使ったらいいの？ 106 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 27ce-n8ne) mailto:sage [2020/09/07(月) 23:07:32 ID:744b2nM10.net] >>105 データをダウンロードするだけならブラウザを使わずに直接ネットアクセスした方が早くて簡単 色んな方法があるけどXMLHTTPとかWinHttpRequestとか調べてみ 107 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ bfc9-XrX+) mailto:sage [2020/09/07(月) 23:17:00 ID:VQNIMFGd0.net] >>106 ありがとうございます 'JavaScriptを実行しFormを送る処理 objIE.Navigate "JavaScript:doAction('/文字列')" みたいなことしないとアクセスできないサイトのデータが取得したいのですが 他に方法ありますか？ 108 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e7e6-n8ne) mailto:sage [2020/09/07(月) 23:22:23 ID:sgrgY4Mk0.net] JavaScriptを読んで何やってるか調べろ 109 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 23:49:39.86 ID:744b2nM10.net] >>107 Form送信は単純なHTTPアクセスで代替できるケースが多いから、これもブラウザを使う必要はない てか、WEBの構造はVBA関係ないし 110 名前：デフォルトの名無しさん mailto:sage [2020/09/07(月) 23:56:10.64 ID:UwONkXQv0.net] エクセル2010です。 上書き保存時にすべてのシートでA1セルを選択するようにしたいのですが、 Ctrl+S時とボタンのクリックイベントで挙動が違うことにハマってます。 1枚目シートにactiveXコントロールのボタンを配置し、VBAの構成は以下です。 1. シートモジュール : ボタンのクリックイベントにThisworkbook.saveだけを書いています。 2. ThisWorkbookモジュール : beforeSaveイベントで3を呼び出し。 3. 標準モジュール : 全シートのA1セルを選択するSubプロシージャ。ForEachでまわすだけ。 Ctrl+Sの際は2→3でうまくいきます。 ボタン押下の場合は、1→2→3と流れてはいるものの、なぜか各シートがactivateされなず、activeSheet.Range("A1").Selectが働きません。 1のクリックイベントから直接3を呼び出すのは、うまく行きます。 何故このような挙動になるのか分からず数日ハマってます。 どなたか、ご教示よろしくお願いします。 111 名前：デフォルトの名無しさん [2020/09/08(火) 02:03:49.70 ID:weDKADyMM.net] >>110 for i= activeworkbook.worksheets.count to 1 step -1 apprication.goto activeworkbook.worksheets(i).range("a1") next i activeworkbook.save スマホ打ちだから綴りミスはあるかも 112 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 07:47:00.42 ID:vMdvrooDa.net] >>110 For eachで全シート回してるならActivateしなくても、 sh.Range("A1")で行けないか？ 113 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 07:48:01.88 ID:vMdvrooDa.net] >>112 間違えたsh.Range("A1").Selectだわ 114 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 27da-XrX+) mailto:sage [2020/09/08(火) 10:40:31 ID:C66iYfBu0.net] >>110 働かないという場合の原因で以下のことを調べてみ 1.実は働いていたがその後に別の動作をしたため働いていないように見える 2.働こうとしたが、なんらかの異常が出て失敗している 3.その処理が実行されていない（on errorやifの条件、イベント発生していないなど） 115 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 11:03:00.55 ID:0vfIbeP00.net] >>105 漏れは、yahoo のログインとか、 Ruby, Selenium Webdriver で、ブラウザを自動操作してる 単純なダウンロード・スクレイピングなら、RubyのNokogiri。 外部コマンドなら、curl, wget 116 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-dQ4P) [2020/09/08(火) 11:52:57 ID:POT3YWITM.net] Application.EnableEvents=Falseしてるとか？ 117 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 16:58:59.99 ID:qXkQmTRa0.net] “>-1”&i て書いたときに　>-2, >-3... っていうふうに比較値が意図せず負に進むんだけど正の値に足したい場合ってどうすれば良いでしょうか。 118 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 18:39:01.86 ID:p9XW8v7Na.net] >>117 VBAの挙動の問題 -を文字列、1を数値として認識してる そもそも、-1をダブルクォーテーションで括ってるのは文字列として-1を認識させたい時のみにするのが基本 なので、ダブルクォーテーションを取ってやれば意図通り動くはず 119 名前：デフォルトの名無しさん [2020/09/08(火) 19:07:42.80 ID:Pjd0b/NhM.net] へー、そんな挙動するんだ。知らなかった >-11 >-12 >-13 になると思ってたよ 120 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 19:08:20.88 ID:E23V8S4o0.net] >>113 activeじゃないシートはselectできないと思うが 121 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 19:10:47.69 ID:E23V8S4o0.net] >>110 Forの中身が間違ってるとか別のブックを見てるとか ほんとに選択したいシートが選択されてるか確認した？ 122 名前：デフォルトの名無しさん [2020/09/08(火) 20:06:33.41 ID:qXkQmTRa0.net] >>118 クォーテーション外してやってみたけど上手くいかないです... 初心者なんで拙いですが、一応自分で書いたものをのせます。 既出のデータを整理して2次元チャートを作成する目的です。 Dim cnt As Integer Dim x As Long Dim y As Long x = 0 y = 0 For x = 0 To 10 For y = 0 To 10 cnt = WorksheetFunction.CountIfs(Range("B2", Range("B2").End(xlDown)) "<=" 0 + x, Range("B2", Range("B2").End(xlDown)) ">= -1" & x, Range("C2", Range("C2").End(xlDown)) "<= 0" & y, Range("C2", Range("C2").End(xlDown)) ">= -1" & y) Cells(x , y) = cnt Next y Next x 123 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 20:34:38.38 ID:E23V8S4o0.net] いつも人任せだな… そのcountifの引数の中身が自分の意図した内容かなんで確認しないの？ 124 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fb5-/qgI) mailto:sage [2020/09/08(火) 21:43:07 ID:MiWYYVaX0.net] もう30過ぎて勉強もなぁ…って手が進まない VBAを知識をパンパンに詰め込んでああこれねって感じでカタカタと打ち込んでプロシージャ作りたいもんだわ 125 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e77c-ALHH) mailto:sage [2020/09/08(火) 21:57:43 ID:E23V8S4o0.net] 考えることを人に丸投げしてるだけで勉強は関係がない 126 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fb5-/qgI) mailto:sage [2020/09/08(火) 22:00:12 ID:MiWYYVaX0.net] 人に丸投げというかネットで拾ったものの組み合わせでいつも何とかしてしまう 知識がほとんど入らない 異動希望出してるしなぁ 127 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:06:16.19 ID:aT8iqlgZ0.net] エクセルの指定列から3列コピーしてその4列目に挿入して貼り付けた後セルに入ってる値を消すコードをRangeじゃなくてCellsでやりたいです。 clmtar=10 10〜13列をコピー 14列目に挿入 14〜17列目のセルの値クリア。 128 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:11:08.52 ID:+kf0/gdp0.net] >>127 コピー後の値を消すの？ 元通りになるだけだと思うけど 129 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:29:42.46 ID:C66iYfBu0.net] >>126 愚痴る暇があったら入門書かって１ページでもいいから読んでろ 130 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:34:56.39 ID:MiWYYVaX0.net] >>129 すんません…なんか職場でおばちゃんがあれも作ってとか調子こいてるだけで こりゃまた愚痴だわ これぞ！っていう入門書ありますかね イチからガチで鍛えてみるかな 131 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:36:08.93 ID:8mxHLcBxa.net] >>126 なんとかできてるならそれも実力のうちなのだと思うよ 楽しい、自分ならこうしてみたい、こうしたらどうなるのだろう とかがないならそこまでだけど 132 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:40:05.68 ID:MiWYYVaX0.net] ネットで検索 プロシージャを組み合わせたり簡単なところをイジる 出きたと思ったら会社のメルアドにプロシージャ貼り付けたテキスト送る 会社で組み合わせる UserFormのボタンに割り当て これでごまかしつつやってきた 圧倒的な知識が欲しいなぁと 133 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:47:12.09 ID:C66iYfBu0.net] >>130 それすら他人に頼るようじゃいつまでたっても進まない 134 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:50:54.91 ID:E23V8S4o0.net] 今までどおり困ったら初心者ですとか勉強中ですとかで知識ないアピールで人にやらせて突っ込まれたら謎の正当化とどうでもいい言い訳で誤魔化してやっていくんだろうな 135 名前：デフォルトの名無しさん mailto:sage [2020/09/08(火) 22:52:28.72 ID:MiWYYVaX0.net] ネットで調べてなんとかなってしまう時代のせいだよね 俺は悪くない 136 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa8b-yCsQ) mailto:sage [2020/09/08(火) 23:27:06 ID:HhRrDF1oa.net] そういう人が増えてきたからあんまり教えないようにしてる 137 名前：デフォルトの名無しさん [2020/09/09(水) 00:19:56.45 ID:akgtbWjMM.net] ゆとり世代の特徴だぞ 138 名前：110 mailto:sage [2020/09/09(水) 00:23:30.44 ID:Lvk20igu0.net] >110です。 書き込み後にいろいろググったところ、いくつかのサイトで コードからの保存はbeforeSaveイベントが正常に働かない旨の記載がありました。 今回の事象もこれに当たるのかなと考えています。 そんな訳で、ボタンでの保存はenableEventsをfalseにして別処理にしました。 回答くださった皆様、ありがとうございました。 139 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ eab5-mjPJ) mailto:sage [2020/09/09(水) 00:53:57 ID:0o8c0VF10.net] 別にここで聞いても答えなんて返ってこないし期待してないのでご安心を 140 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 39e6-Pwf7) [2020/09/09(水) 01:12:42 ID:VoppH/up0.net] 足し算がわかりませんとか言われても入門書でも読めとしか言えないよな 141 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 04:06:45.89 ID:Y+JI74HRa.net] 入門書読めと言うとどの入門書がいいか聞いてくるよ 142 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 08:19:04.77 ID:z9RILJ2v0.net] 入門書を紹介すると今度はどこで買えばいいか聞いてくるよ 143 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 09:27:32.52 ID:8tppu1V70.net] 通販で買えって言うとお金がないって言ってくるよ 144 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 09:43:27.85 ID:9AZapVJXM.net] お金あげると姿をくらますよ 145 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 397c-bL/7) mailto:sage [2020/09/09(水) 10:03:14 ID:I5K9tGVf0.net] しかも捨て台詞付きで 146 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 10:37:20.74 ID:KbsHkxtjM.net] すみません。ちょっと長くなってしまうのですがTreeViewをいじっているうちに分からない事があったので教えて下さい。 TreeViewの子ノードをD&Dでリストボックスにコピーする動作を作っていたのですが、ドラッグ開始時点のSelectedItemを取得しようとすると１度子ノードをクリックした上でD&Dを行う必要がありました。 その為、既定引数の�IPOS,yPOSを使ってHitTestをSelectedItemに代入しようとしました。 しかしそれが上手く動作せず色々調べた結果、 xとyに*15をすると言う記述を見つけ試してみたところ、思い通りの動作を得られました。 しかしながらこの15はなんの15なんだ。他の環境ではこの数値は変わるのか。変わるならば何を元に算出すれば良いのだろうか。 という疑問が浮かびました。 お手数をお掛け致しますがお分かりになる方がいらっしゃいましたらご教授頂けませんでしょうか。 147 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6a2f-sa+Q) mailto:sage [2020/09/09(水) 14:26:55 ID:dKuEV/F30.net] まずその15をかけるってどこに書いてあったんだよ 148 名前：デフォルトの名無しさん (ｱｳｱｳｶｰ Sa55-hUiG) mailto:sage [2020/09/09(水) 16:31:31 ID:0Qh2iKtEa.net] Windows標準のシステム解像度だとピクセルとTwipsの比率が1:15だからってスタックオーバーフローに書いてあった 149 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM3e-AH3D) [2020/09/09(水) 17:07:35 ID:cdbk3sfrM.net] c言語のdefineに相当する文法は無いですか? constだと違和感がありますので 150 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM8e-+eY2) mailto:sage [2020/09/09(水) 17:36:02 ID:KbsHkxtjM.net] >>148 助かります ありがとうございました という事は使用環境次第では正常に動作しない場合も有り得るって事なのですね。対策を検討してみます。 151 名前：デフォルトの名無しさん mailto:sage [2020/09/09(水) 17:50:55.91 ID:jCqtOC3ba.net] >>149 どこに違和感があるのかを言わないと案を出せません 152 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 2a1f-ah1O) mailto:sage [2020/09/09(水) 20:59:39 ID:ynJDkc680.net] >>128 コピー後挿入したら隣に3列追加されてセルの長さもコピーした3列と同じになりますよね？ 153 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 397c-bL/7) mailto:sage [2020/09/09(水) 21:05:53 ID:I5K9tGVf0.net] 列幅をコピーすればいいのでは… 154 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3d3d-PnJR) mailto:sage [2020/09/09(水) 21:18:50 ID:Uey8EdNp0.net] >>152 幅を一緒にしたいなら最初からそう書けば良かったのに 155 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism) [2020/09/10(木) 00:02:31 ID:a+RPoaYl0.net] >>149 あなたが思っているC言語のdefineの使い方は、コンパイラが置換するもので、定数の概念とは少し違いますよ？ 156 名前：デフォルトの名無しさん [2020/09/10(木) 00:04:04.82 ID:a+RPoaYl0.net] >>152 そもそも列の挿入操作が必須なのか？ 157 名前：デフォルトの名無しさん [2020/09/10(木) 00:05:42.63 ID:a+RPoaYl0.net] 列の挿入なんてあちこちに影響するから、やりたがる理由がわからない。 158 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa21-zN8f) mailto:sage [2020/09/10(木) 01:40:18 ID:JZj4+m/Aa.net] 条件付き書式が壊れたりすると面倒 159 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ a95f-Sism) [2020/09/10(木) 02:24:17 ID:a+RPoaYl0.net] 自分の操作と同じ手順を踏みたいだけなんだろうね プログラマではない素人感覚 160 名前：デフォルトの名無しさん [2020/09/10(木) 04:18:44.38 ID:026ADmyCa.net] test 161 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM8e-4twR) mailto:sage [2020/09/10(木) 07:50:51 ID:T4cQI13RM.net] 超初心者なんだけど 配列の中から指定値の近似値の座標を検索するのにいい感じの方法はないでしょうか (以下、以上、完全一致全て含めての近似値) 162 名前：デフォルトの名無しさん [2020/09/10(木) 08:50:52.35 ID:l+lun8zfM.net] どうせ大した数じゃないんだろ 総なめしろよ 163 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 09:29:12.78 ID:rdKJuFJTa.net] >>161 for eachで比較対象値と指定値を全て比較して、結果出力してその中でMIN関数使えば 164 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 10:03:54.29 ID:QatXFD490.net] >>161 前もってソートした配列作って二分探索か、 配列の値-指定値の絶対値が最小になる値を探す 165 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 10:32:25.89 ID:vUgEJ8vWd.net] Min(Abs(配列-指定値)) 166 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 12:18:21.67 ID:tJgZROmkM.net] 指定値と配列値の差分を絶対値にして比較した場合、 指定値が5だとして 配列　　差分(ABS) 4　　　　　1 7　　　　　2 となり、最小の差分は1とわかる 座標を知りたいので指定値(5)-差分(1)=4となり、配列の中から4を検索して座標を調べればいいのかなって思ってたんだけど 絶対値で出てくると5-1か5+1どっちを検索すればいいか不明じゃないですか？ そこらへんを解決する方法があれば聞きたいです 167 名前：デフォルトの名無しさん [2020/09/10(木) 12:33:38.92 ID:l+lun8zfM.net] ひとつに絞りたいならお前がルールを決めればいい お前に決定権がないなら保護者に聞け 168 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7d01-pVuC) mailto:sage [2020/09/10(木) 12:50:19 ID:/arv21np0.net] ExcelVBAのフレームワークってないんですか？ PHPやJavascriptはまずフレームワーク覚えるもんだと思うのですが VBAだとそういうのが見当たらなくって・・・ 169 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM81-m2CW) mailto:sage [2020/09/10(木) 12:52:37 ID:sAyQhYLaM.net] 見よう見まねで結構大掛かりなマクロを作った 情シスには程遠い事務の部署で 改善賞1万円 うーんもうちょい欲しかった 170 名前：デフォルトの名無しさん (ｽﾌｯ Sd0a-EJMP) mailto:sage [2020/09/10(木) 13:06:54 ID:PB4qSPsyd.net] オフイスを便利に使うためのお手軽言語でフレームワークの勉強とかやってたら非効率な上に大したメリットもない 171 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:09:58.25 ID:4uvZuCuyM.net] フレームワークという意味ではVBAそのものがVB6のOffice向けフレームワーク さらに言えばExcel向けに特化したものがExcelVBA 他のOfficeソフトにもそれぞれのVBAがある 172 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:11:29.05 ID:XKC0VKf0M.net] >>167 一つに絞りたいというか最も近しい値を知りたいのです 指定値が5のとき、配列が4と7なら4を、3と6なら6の座標を調べたい 1万行は超えるから総なめはちょっと… 173 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:21:59.05 ID:4mlwjCSed.net] >>172 パソコンにとっては「たった」1万行だよ 総舐めが一番簡単だし、開発時間も含めれば一番早い 174 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:23:29.76 ID:4mlwjCSed.net] 総舐めでもここでグダグタ言ってる間に結果が出る 175 名前：デフォルトの名無しさん [2020/09/10(木) 13:38:32.36 ID:l+lun8zfM.net] >>172 は？ 質問は4と-4だろ？ もう俺が決めてやるよ -4にしろ、はい解決 176 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:41:25.58 ID:Yq3PJL3D0.net] セルを弄くり回すとかじゃなくて配列のまま総舐めするなら1万行ぐらいすぐ終わるでしょう 指定した値aの近似値が欲しいなら If a-x<=Array(i) And a+x>=Array(i) Then とかで引っ掛かる奴を引っ張り出すなりなんなりすりゃあ良い 177 名前：デフォルトの名無しさん [2020/09/10(木) 13:43:28.62 ID:l+lun8zfM.net] あ、ごめん 俺が質問を勘違いしてたわ 178 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 13:48:20.19 ID:Yq3PJL3D0.net] 近似値の範囲が不定で最も近い値を探すって言うならRank関数とかLarge関数とかSmall関数使うのも手 179 名前：デフォルトの名無しさん [2020/09/10(木) 13:50:34.65 ID:l+lun8zfM.net] >>168 各オブジェクトに多数のイベントが設定されているでしょ windowsのプログラミングはイベントドリブンが基本 ブックが開いた、ボタンが押された、マウスが動いたなどのイベントに対するコードを書いていけばアプリケーションが完成する 180 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3dad-sCec) [2020/09/10(木) 18:35:00 ID:VdzBOqiR0.net] すみません今宿題でこれやってるんですけど打ち込んでもなにも出ないのですがなぜでしょう 181 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 3dad-sCec) [2020/09/10(木) 18:36:01 ID:VdzBOqiR0.net] https://i.imgur.com/poQzyJO.jpg これです 182 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 6a42-vvkI) mailto:sage [2020/09/10(木) 19:09:29 ID:yo745YZ80.net] 打ち込んだだけで実行してないからじゃね 183 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 19:30:20.82 ID:L0+T18/AM.net] どこに打ち込んだかも分からないしなんとも 184 名前：デフォルトの名無しさん [2020/09/10(木) 19:46:53.46 ID:cO3BfNoWM.net] 汚えコードだな 185 名前：デフォルトの名無しさん mailto:sage [2020/09/10(木) 19:55:23.47 ID:T9YJeJvx0.net] >>166 コードが汚すぎる 186 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-pVuC) mailto:sage [2020/09/10(木) 20:10:09 ID:QatXFD490.net] >>181 セルの幅や高さは初期状態？ 187 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-pVuC) mailto:sage [2020/09/10(木) 20:12:24 ID:QatXFD490.net] あ、なんでもない 188 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-pVuC) mailto:sage [2020/09/10(木) 20:17:20 ID:QatXFD490.net] 普通に動いたんで入力ミスとか環境の問題かな

---

---

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

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