Excel VBA 質問スレ Part70

1 名前：デフォルトの名無しさん mailto:sage [2021/03/18(木) 22:08:43.71 ID:jtngtgXU0.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付けるナリ ExcelのVBAに関する質問スレナリ コード書き込みや作成依頼もOKナリ ※前スレ Excel VBA 質問スレ Part69 https://mevius.5ch.net/test/read.cgi/tech/1607786543/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 841 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 08:17:06.17 ID:NU+NRHZVd.net] >>818 www 初級者まる出しの文章で笑えるw 842 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 08:20:10.01 ID:NU+NRHZVd.net] >>819 普通じゃ無理。 無理矢理タブもどきをつくるか、頑張ってWin32APIでやるか。 Win32APIでやるのは、まあ辞めとけ。 843 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 08:39:26.02 ID:q7wj393Za.net] タブを切り替えた瞬間にバックカラーも切り替えれば良いだけ 844 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 09:49:10.63 ID:rbrSxZ/Wa.net] 勝手に見出しの色のことだと思ってた エクセルのシートにやるみたいなやつ 845 名前：681 mailto:sage [2021/05/14(金) 10:40:26.20 ID:f8pG7pdca.net] 681です 皆さんのおかげで無事目的のコードが作れました あと1つ質問なのですが… 画像のように重複した数値を除く総計を算出したいと思っています 会社名毎の数値を合計すればいいだけだと思ったのですが、 どうしても重複のものも一緒に合算してしまいお手上げ状態です 因みに元データは都合によりいじれないため、合算前に重複部分を削除等はできません 恐れ入りますが、宜しくお願いします 846 名前：681 mailto:sage [2021/05/14(金) 10:41:19.08 ID:f8pG7pdca.net] 画像を貼り忘れておりました https://i.imgur.com/HLZYwhr.png 847 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 11:33:58.88 ID:+U8xhPuO0.net] 会社ごとの重複を除く合計が出たんだからそれを足 848 名前：すだけだろ 逆に何をやったらまた重複したものも合算するのか理解できない [] [ここ壊れてます] 849 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 11:38:54.22 ID:usYNgZ690.net] いつものあいつだぞ 850 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 12:11:07.63 ID:mu0LH/UJa.net] >>841 もとデータをいじらないでも、もとデータを別のシートにコピーすればいじれるんじゃね 851 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 12:24:14.75 ID:Vktv5FHm0.net] >>841 重複除けてるのなら、結果をSUM関数で合算するだけじゃん。 >>686 で上げたように、そもそもVBAすら使う必要ない。 852 名前：デフォルトの名無しさん [2021/05/14(金) 13:02:54.78 ID:kX62fe1ba.net] 君らも構うねー >>681への数多の回答を経て「皆さんのおかげで」としか言及しない礼儀知らずなんぞ俺なら２度と助けようと思えないけどな 853 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 14:11:01.00 ID:C4z8VNUC0.net] >>841 SQLでやってるの？ VBAでやってるの？ SQLなら会社、氏名、数値でグルーピングしてから合計求めりゃいいだろうし VBAでやってるなら上からループして会社、氏名、数値をコレクションかディクショナリーに登録しておいて 同じ組み合わせのものが登録されてたら飛ばせばいいだけじゃないの？ 854 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 16:00:12.91 ID:bBl2sxC0r.net] ほんとに、よう構うわ 855 名前：デフォルトの名無しさん [2021/05/14(金) 16:15:08.56 ID:N2rlLeCr0.net] 暇人しかレスしない そりゃ高齢化する罠 856 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 17:11:44.35 ID:C4z8VNUC0.net] 暇と時間は自分で作るもの 857 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 17:53:42.33 ID:usYNgZ690.net] この｢いつものあいつ｣はperlスレで釣りしてたあいつだろ 回答がないと別ID自分に回答するクズだぞ IDをコロコロ変えていることで気付け 858 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 18:02:17.06 ID:9jitt6PZ0.net] ここに若い人はいないと思われ 定年退職した60〜70のジジババ様がメインの予想 859 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 19:35:21.69 ID:EALw/Xv8a.net] いちゃ悪いか？ 860 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 19:38:49.82 ID:b+Ipd3IB0.net] >>854 煽り体制なさ杉 ゴミは無視して自分のやりたいことをしておけば良い 861 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 19:53:03.83 ID:FyOJKl4nM.net] アラサーのおっさんですわ 862 名前：デフォルトの名無しさん [2021/05/14(金) 20:06:30.42 ID:M77EX5P+0.net] 平成生まれのおっさんかよ 863 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 20:10:13.25 ID:b+Ipd3IB0.net] 令和生まれの赤子が常駐してたらマジでびびるしこんな言語をやるべきじゃないと諭すレベル 864 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 23:02:24.08 ID:eHp6F4GU0.net] 答えたい人は答えて無視したい人は無視すればいいのに 「俺が気にくわないからお前らも答えるな！」ってガキ大将かなんか？ 865 名前：デフォルトの名無しさん mailto:sage [2021/05/14(金) 23:04:28.38 ID:b+Ipd3IB0.net] >>859 支え合ってる人たちが気に入らない という社会に馴染めない方の怨嗟 vbaという単語を知ってるだけでも見込みはあるのに、どうしてそうなったのか 866 名前：デフォルトの名無しさん mailto:sage [2021/05/15(土) 01:26:37.20 ID:FnRhwbWQ0.net] 定年したジジババだらけだったら異常だろ 多分30〜50代あたりのPC世代だね 867 名前：デフォルトの名無しさん mailto:sage [2021/05/15(土) 10:20:07.29 ID:sw5CYKBX0.net] ウィンドウズ95を25で迎えた人間は50歳行ってるよ 868 名前：デフォルトの名無しさん [2021/05/15(土) 11:32:20.38 ID:ULjvOOdJ0.net] >>859 そんな奴おらんやろ〜 869 名前：デフォルトの名無しさん [2021/05/15(土) 12:01:56.35 ID:eYtIld1hF.net] memo https://www.mhlw.go.jp/toukei/list/dl/maikin-teisei-20210406.pdf https://www.hello-pc.net/howto-excel/shisyagonyu/ www.excel.studio-kazu.jp/kw/20131108152616.html https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12216877167 https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1314241033 https://docs.microsoft.com/ja-jp/office/troubleshoot/excel/floating-point-arithmetic-inaccurate-result https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_windows8-mso_2013_release/excel%E3%81%AE%E5%8D%98%E7%B4%94%E3%81%AA%E8%A8%88/e5421c34-8053-4132-a0a6-14729e505376 870 名前：デフォルトの名無しさん mailto:sage [2021/05/15(土) 12:25:50.26 ID:vXVB+fnY0.net] >>863 チッチキチー 871 名前：デフォルトの名無しさん [2021/05/15(土) 13:49:58.81 ID:YDtAUn460.net] Lbound関数がどうもうまく出来ないのでお知恵を拝借させてください。 -------------------------------------------------------------------- 【VBA標準モジュール】 Option Explicit Function F_Test(wRange As Range) As Integer F_Test = LBound(wRange) End Function -------------------------------------------------------------------- 【ワークシート】 A列は別に何でも良くて，例えば以下のとおり。 A1セル 10 A2セル 11 A3セル 12 A4セル 13 -------------------------------------------------------------------- B1に =F_Test(A1:A3) の数式で「3」という答えが欲しい。 その他，A1:A4なら「4」，A2:A3なら「2」という感じ。 要は引数の配列の添字の数が欲しい。 Functionの引数部分をVariantに変えて Function F_Test(wRange As Variant) As Integer にしてもうまく行きませぬ。 872 名前：デフォルトの名無しさん [2021/05/15(土) 13:54:19.11 ID:YDtAUn460.net] すみません。 LとUを間違えました。 × LBound ○ UBound 配列がありません とか #VALUE! になってしまいます。 873 名前：デフォルトの名無しさん [2021/05/15(土) 13:55:24.28 ID:Q8PHpDoBM.net] wRange.rows.Count 874 名前：デフォルトの名無しさん mailto:sage [2021/05/15(土) 14:02:11.21 ID:ur6+LZEp0.net] >>867 F_Test = wRange.Count >>868 横長だとアレでソレ そういや関数には単純にセルの数を返す方法ってないんかね 875 名前：デフォルトの名無しさん [2021/05/15(土) 14:10:21.57 ID:YDtAUn460.net] >>868 >>869 なんと！ ありがとうございます。 配列 サイズ で検索すると Ubound関数を紹介するサイトばかりで，何のことはない count でOKとは！ 876 名前：デフォルトの名無しさん mailto:sage [2021/05/15(土) 14:13:32.27 ID:zrs2Seg4H.net] >>869 セル数は一発では求まらないね WorksheetFunction.COUNTA + WorksheetFunction.COUNTBLANK とか、 UBound(1) * UBound(2) とか工夫が必要 877 名前：デフォルトの名無しさん mailto:sage [2021/05/15(土) 14:15:26.88 ID:q5D0BLy0a.net] 自分がわかっている事を、相手に伝えられない 、いっしゅの病気だと思っておいてね 878 名前：デフォルトの名無しさん mailto:sage [2021/05/15(土) 14:17:09.49 ID:ur6+LZEp0.net] >>870 ウォッチ式に「wRange」入れると中が見れる 「＋」押してそれっぽい奴探せばok めんどい事しなくても、大体は元々用意されている >>871 ありがとう まぁ今まで気づかなかったぐらいだし、まぁ無くてもいいっちゃいいんだけど 879 名前：デフォルトの名無しさん [2021/05/16(日) 15:00:47.34 ID:fN3wEca+0.net] Sub Func() Dim objIE As InternetExplorer Set objIE = New InternetExplorer objIE.Visible = True objIE.Navigate "https://www.aguse.jp/" Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE DoEvents Loop objIE.Document.getElementById("url").Value = "99.9.9.9" objIE.Document.getElementsByClassName("btn1").Click End Sub なぜ、クリック処理の所でエラー発生するのでしょうか？ 880 名前：デフォルトの名無しさん mailto:sage [2021/05/16(日) 15:15:41.45 ID:cdV5xYRld.net] >>874 getElementsByClassNameは配列を返すから（同じクラスを持つ要素の配列が返る） 881 名前：デフォルトの名無しさん mailto:sage [2021/05/16(日) 15:32:17.72 ID:T2VZn2Kl0.net] IDがあるならgetElementByIDの方が良いぞ classのまま一つ目をclickするなら objIE.Document.getElementsByClassName("btn1")(0).Click 882 名前：デフォルトの名無しさん mailto:sage [2021/05/16(日) 15:39:13.46 ID:cdV5xYRld.net] CSSっぽく指定できて最初の要素を返してくれるquerySelectorもｵﾇﾇﾒ 883 名前：デフォルトの名無しさん [2021/05/16(日) 16:10:27.36 ID:fN3wEca+0.net] >>875~877 ありがとうございます。 クリックできました 884 名前：デフォルトの名無しさん mailto:sage [2021/05/16(日) 17:21:27.26 ID:ak429d4ca.net] クリックのことかー！ 885 名前：デフォルトの名無しさん mailto:sage [2021/05/16(日) 18:59:49.40 ID:uzBgfuya0.net] ダブルクイック 886 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 02:01:26.83 ID:BeO0jfUB0.net] >>870 だって配列じゃないからな 変に用語使わず素直に range 個数 とかでググった方がいいよ 上のレスにあるgetelemetsby系のメソッドも返すのは配列じゃなくてコレクション 887 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 06:19:11.84 ID:Z0RWJbQc0.net] MapだのArrayだの機能入れりゃいいだけなのに入れない どういうつもりだこいつら 888 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 08:15:11.48 ID:8cwZKDcEM.net] VBAは既に終わった過去の技術 移行を促すために意図的に使いづらくされることはあっても、改善されることはない 889 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 08:58:47.08 ID:Z0RWJbQc0.net] そこにある幸せを制限されてる 上から目線で苦しめられてる 悔しくて泣く 890 名前：デフォルトの名無しさん [2021/05/18(火) 11:12:26.25 ID:9uIGZAIgM.net] Office365でしか動かないVBAV2作るぐらいなら他の言語使うわな 891 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 12:10:40.31 ID:sRK+fHDU0.net] だったらそうすればいい 892 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 14:24:29.88 ID:Xi/08Sqba.net] だったらそうすればって別に俺たちはマイクロソフトじゃねえけど 893 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 14:42:19.77 ID:KlG9vmA0M.net] Office365には既にOffice Scriptsがあるからそこはとっくに解決済み あとはVBAを弾圧していくだけや 894 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 14:48:17.90 ID:R43akpHGM.net] Power FX https://docs.microsoft.com/ja-jp/power-platform/power-fx/overview 895 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 16:33:00.45 ID:5G0DWm0g0.net] VBAからJavaScript書くと 予約語は[]で括らなければいけなかったり Callbynameで指定しなければいけなかったり 色々めんどくさい Jqueryだって使えるか分からない そもそもJavaScriptなんてWebで クライアント周りで使うもんだから わざわざEXCELの言語で使う用途が よく分からない まだクラッシックASP辺りで VBSと組み合わせて使うなら納得もいくけど そんな難しいもんじゃないから 必要に駆られたときに覚えれば十分だろう 896 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 18:00:53.92 ID:sY2jShf/0.net] だから若者はVBに興味示さない VB＝高齢者のプログラミングだからでしょ？ 897 名前：デフォルトの名無しさん [2021/05/18(火) 18:48:43.65 ID:ljRiA37AM.net] jqueryでExcel.Applicationを操作出来るように拡張するのか 夢が広がるね 898 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 18:49:34.47 ID:5G0DWm0g0.net] EXCELで簡単にプログラム組むことが出来るからな VBと言うのをVBSのこと言ってるのかVB.Netのこと言ってるのかVBAのこと言ってるのか知らんが EXCELで楽したくてVBAから入る若い人は多い。 VBA覚えた人がVB.NetやってC#やってそこからWeb系に入って初めてJavaScriptをHTMLやCSSと一緒に覚える人なんてザラ。 899 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 19:43:19.02 ID:LbhgO8Sf0.net] >>893 完全に俺 経理だけど、vbaで楽してC#でゲーム作って、 jsでクラウドツールのサイト自体書き換えて勝手に機能追加したりphpでスクレイピングしたり 年中プログラム書いてるわ。楽しい 900 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 19:49:05.74 ID:LbhgO8Sf0.net] >>890 VBAでjs使うのは、一つは動的なサイトのスクレイピングする時 htmlだけの操作でしんどい時は、jsでclick辺りさせるだけでサクサク進む事がある ってかこれ以外でjs書くことはほぼ無いと思う。 jquery使えない時は無理やりappendかなんかしてたけど、もうやり方も忘れたな 色々試している内にchromeのコンソールにぶっこむのが一番楽って結論にたどり着いた 901 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 20:48:35.33 ID:Y1RJXdtP0.net] Ruby で、Selenium Webdriver, Nokogiri で、 スクレイピング・ブラウザの自動操作する時にも、 JavaScript, jQuery を使える 埋め込みRuby・ERB を使えば、どんなファイルにも、 <%= 式 %>, <% 式 %> で、Rubyの式を埋め込める a.html.erb, b.js.erb みたいに、 HTML, JavaScript ファイル内に、Rubyの式を埋め込める 902 名前：デフォルトの名無しさん [2021/05/18(火) 20:57:22.08 ID:dFlzu8QN0.net] >>896 Ruby馬鹿は>>712のような嘘を書いて逃げる馬鹿 903 名前：デフォルトの名無しさん mailto:sage [2021/05/18(火) 23:24:28.39 ID:sY2jShf/0.net] そんな事よりさ、おぢーさん達は加齢臭の処理ちゃんとしてくれよ 若者に失礼だと思わね？プンプンプンプンさ 904 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 00:19:04.29 ID:GKVmaO5T0.net] >>896 何でEXCELの利点であるシートやフォームを使わないの？ バカなの？死ぬの？ 905 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 00:20:19.16 ID:GKVmaO5T0.net] >>898 ジジイであってクレクレw 906 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 01:20:40.10 ID:ZD8mpcBW0.net] くっせぇーなマジで パソコンまで加齢臭プンプンなんじゃねーのか爺さん達よ？ 907 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 07:45:42.64 ID:WworO/MIM.net] 5chは加齢臭ジジイの巣窟ですよ。 子供は他所で遊んだ方が良いですよ。 908 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 14:08:44.86 ID:IrWk1Moq0.net] >>870 それはVariantの2次元配列にRange.Valueを代入して高速化を行う場合の話で、単に行数求める場合に使うのは筋が違う。 Dim varRng As Variant varRng=wRange.Value F_TEST=Ubound(varRng,1) というか、Ubound使うなら引数をRangeにするのが間違い。 Function F_Test(wRange As Variant) As Integer F_Test = UBound(wRange,1) End Function として、呼び出す時に Debug.Print F_TEST(sht.Range("A1:A3").Value) とする。 909 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 18:26:06.40 ID:Vg/vRgKrd.net] 標準モジュールにcsvFile関連に関わるコードをまとめようと思ってます。 フォームABCと3つありそれぞれのTextBoxの文字列を使用するのですが、引数にフォームを渡すと後でモジュールの引数？を見た時にどのフォーム？ってなるんですが、なんか分かりやすい方法ありますか？ 910 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 18:34:23.71 ID:/q2TOFSQ0.net] 変数名に書けばいい 911 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 20:30:25.56 ID:GKVmaO5T0.net] >>904 あれ？ EXCELのFormってNameプロパティ持って無かったっけ？ 912 名前：デフォルトの名無しさん [2021/05/19(水) 22:00:48.31 ID:+ffuEuggp.net] みんな、どうやってVBA覚えた？必要に迫られて？ 913 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 22:12:24.80 ID:jE/FqELl0.net] >>907 まだ覚えられないの？ 914 名前：デフォルトの名無しさん [2021/05/19(水) 23:13:26.00 ID:GsBTRjrb0.net] あわしろ氏は、Microsoft固有の言語は覚えないほうが良いと言ってた。 915 名前：デフォルトの名無しさん [2021/05/19(水) 23:17:32.49 ID:cF8YUUzA0.net] 馬鹿の記憶キャパシティは限られるからな 916 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 23:22:58.20 ID:mqMv5E730.net] 覚えるとかそういうものではない 917 名前：デフォルトの名無しさん mailto:sage [2021/05/19(水) 23:42:58.43 ID:ZD8mpcBW0.net] >>907 必要に迫られて覚えたもなにも、中学か高校で習うだろ普通。 918 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 00:07:22.00 ID:6elix0QCH.net] >>909 .netもMS固有の言語みたいなもんだが、普通に色んな職場で使われとるやん 919 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 01:22:13.99 ID:BLOb04120.net] 学習しなくても最初からできる天才タイプもたまにいるよマジで 920 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 01:56:26.37 ID:6elix0QCH.net] そもそもマイクロソフト固有の言語ってなんやねん みんな既成の言語や他社製品を買収して、それを手直しした物ばっかやん 921 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 03:27:31.15 ID:sxWNX54s0.net] microsoft固有の言語って今どきある？ VBAとかBATとか、失われゆくものだけでしょ。 そりゃ今から時間をかけて覚えるのはもったいないわ。 他の言語使える人なら、VBAなんてわざわざ学習する時間をかける必要もなく、それなりのマクロは組めると思うけど。 922 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 04:02:59.34 ID:BLOb04120.net] あまいわ、Excel独自のルール知らないとまともなVBA組めんわ 表示形式とかその辺もそうだし。 923 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 04:05:55.57 ID:dmfe27mta.net] 覚えるんじゃなくて調べればいいだけだし 924 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 05:01:49.61 ID:sxWNX54s0.net] >>917 それは言語の問題ではなくAPIの問題かと 925 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 07:32:27.21 ID:z6ttNILB0.net] 調べるのも学習コストだと思うがね 言葉遊びだな 926 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 08:16:14.68 ID:6elix0QCH.net] 環境に左右されないコード書く仕事なんてそうそうないだろ 何やるにしても調査と学習は必要だわ 927 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 09:53:49.41 ID:3grODMDb0.net] VBAは覚えてからでなければ組めないほど難しいとも思えん 目的の動作に必要な部分だけを検索すれば初心者でもすぐ出きるとおもう 自分で考えないで質問ばっかりすりから覚えられないんじゃねーの 928 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 09:59:01.67 ID:QrP75Wi10.net] A:まず顧客名XXの行、商品とかいてある列のデータをとります B:（） このざま けしてとっつきやすくはない 929 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 10:03:51.70 ID:XA+o92qv0.net] みんなすまん 最近Ruby信者やあわしろ教信者がこのスレに多発するようになったのはひょっとすると俺のせいかも知れない ぶっちゃけ始めるのにいい言語て何　part4 https://mevius.5ch.net/test/read.cgi/tech/1615612545/ このスレでVBA推ししてたから 変な狂信者達がこのスレにうろつき出すようになったのかも知れない そうだとしたらマジですまんかった 930 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 13:25:45.32 ID:8sYLIX1sM.net] 宣伝すんな糞が 931 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 17:45:33.93 ID:Gd/4i8WIM.net] ユーザーフォームで行の選択位置を変えるボタン▲▼がクリック数と一致しない問題があったんだけど あんまり早くクリックするとダブルクリックイベントに持って行かれるという記事見て目から鱗だったわ 932 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 17:46:49.15 ID:Gd/4i8WIM.net] ↑ボタンの動作 933 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 17:51:20.11 ID:3grODMDb0.net] 目から鱗、鼻から牛乳 934 名前：デフォルトの名無しさん [2021/05/20(木) 18:31:11.76 ID:A6q2Mdlm0.net] >>926 当たり前だろ 頭は大丈夫か？ 935 名前：デフォルトの名無しさん [2021/05/20(木) 18:32:38.54 ID:PnXLQc6v0.net] はい、頭大丈夫か、いただきました〜。 ごっつあんです。 936 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 18:39:24.43 ID:zC/KxF8YM.net] >>929 理由を知ってるからそう思えるのであって意外と分からんもんよ 937 名前：デフォルトの名無しさん [2021/05/20(木) 18:51:23.66 ID:A6q2Mdlm0.net] >>931 常識だろ コピペしかしない頭が弱い奴にはわからんだけ そういう頭の弱い奴はWindowsの仕組みすらろくに把握していない アイコンをダブルクリックする操作から類推する頭がない 938 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 22:09:53.73 ID:6elix0QCH.net] 目からビーム 939 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 22:29:51.31 ID:3grODMDb0.net] 喉から手 940 名前：デフォルトの名無しさん [2021/05/20(木) 23:27:14.65 ID:PnXLQc6v0.net] はい、常識だろ、いただきました〜。 ごっつあんです。 941 名前：デフォルトの名無しさん mailto:sage [2021/05/20(木) 23:59:48.81 ID:BLOb04120.net] 良く考えてよ、そんなにVBAが楽だったらそこらじゅうでエキスパートが溢れ帰ってるわ 942 名前：デフォルトの名無しさん [2021/05/21(金) 00:49:19.69 ID:59CyTM7+0.net] >>936 そもそも世の中馬鹿だらけ 943 名前：デフォルトの名無しさん [2021/05/21(金) 01:00:38.44 ID:QTMvWd2k0.net] >>937 おまえそれ、あわしろ氏にも言えるの？ 944 名前：デフォルトの名無しさん [2021/05/21(金) 01:32:27.01 ID:59CyTM7+0.net] >>938 言えるぞ そいつは世の中馬鹿だらけという当たり前のことを知らん馬鹿なのか？ 945 名前：デフォルトの名無しさん [2021/05/21(金) 02:15:25.58 ID:QTMvWd2k0.net] あわしろ氏から見たらお前もバカの一人にすぎないのだが。 946 名前：デフォルトの名無しさん [2021/05/21(金) 02:19:49.30 ID:59CyTM7+0.net] >>940 悔しかったか？ 947 名前：デフォルトの名無しさん [2021/05/21(金) 02:25:12.36 ID:7tu/wNc+0.net] ttps://ja.asuka.io/whois/126.31.241.3 の”SoftbankBB ABUSE”を取得したいと思っているのですが、どのようにすればいいのでしょうか？ Dim objIE As InternetExplorer Set objIE = New InternetExplorer --省略-- objIE.Document.getElementsByClassName("whois-result") 948 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 05:43:15.48 ID:BTMhnzWw0.net] >>937 そんな。。。いきなしベストアンサー出さなくても。 みんなさ、もうちょいもて遊んでよ(笑) 949 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 05:57:52.66 ID:fpWGW1ET0.net] Ruby のnokogiri でスクレイピングして、 CSS セレクター・正規表現で、2つマッチした require 'open-uri' require 'nokogiri' url = "そのURL" doc = Nokogiri::HTML( open( url ) ) element = doc.at_css( '#result-126_31_241_3 > span' ) # id の直下のspan re = /^role:/ # 行頭から element.content.each_line do | line | # 1行ずつ処理する line.chomp! # 末尾の改行を削除する line.match( re ) { |matched| puts line } end 出力 role: ABUSE SOFTBANKJP role: SoftbankBB ABUSE 950 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 08:28:08.99 ID:QhlqoCTd0.net] Rubyなんてカーバンクルの頭にめり込んでいるような気持ち悪い名前の言語使うくらいなら JavascriptとCSSとJQueryの組み合わせでいいと思うの 951 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 08:48:15.27 ID:gnmVjeq7H.net] >>942 roleが2つ以上あった時、どうやって選ぶの？ 952 名前：デフォルトの名無しさん [2021/05/21(金) 15:24:51.08 ID:xTrBkQ+z0.net] Ruby馬鹿は>>712のような嘘を書いて逃げる馬鹿 953 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 15:33:03.33 ID:BTMhnzWw0.net] 知ったかばっか 954 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 16:32:03.60 ID:CZi3W7Lh0.net] 知ったかばっかだと知った 955 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 17:10:27.15 ID:IWCymVKS0.net] VBAを覚え始めて2週間だけど まだこのスレに書かれているコードの意味が全くわからないwww でもコード書くの楽しいなって思ってやってます 956 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 19:05:32.27 ID:ggQpFO18d.net] 同じだ 自分はVBAエキスパートの勉強してるよ 957 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 19:59:51.31 ID:IWCymVKS0.net] 自分も来月ベーシックうけまーす！ 958 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 20:18:27.47 ID:BTMhnzWw0.net] 人によってはワークシート関数よりマクロの方が難しいっていう人もいるからね。逆もいるしね。 959 名前： mailto:sage [2021/05/21(金) 20:35:13.20 ID:XRGlJQOp0.net] >>940 誰？ 960 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 20:42:52.48 ID:bfSFy0HM0.net] ぼく 961 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 20:43:08.07 ID:bfSFy0HM0.net] うそです 962 名前：デフォルトの名無しさん [2021/05/21(金) 20:43:58.66 ID:7tu/wNc+0.net] perlなどがない環境もあるので、出来ればすべてVBAで出来ないかと考えています。 >>946 roleが２つ以上の場合は一番最後のroleにある値を取得したと考えております。 963 名前：デフォルトの名無しさん mailto:sage [2021/05/21(金) 22:35:02.45 ID:Yczu/9Oq0.net] 左手に電卓を持ち、右手は交互に電卓、マウス、テンキーを使い分ける上司とお局様とその下僕達 その下僕の後輩が自分 これが日本の一部上場企業なのか？ 964 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 00:10:21.12 ID:UfMUNU1m0.net] うん。だってエクセルが計算間違えたらどうすんの？ 電卓で計算した数字をパソコンに打ち込むのは昔からの伝統だよ 965 名前：デフォルトの名無しさん [2021/05/22(土) 00:36:58.31 ID:mcqOhXTe0.net] 馬鹿が作った変な式やマクロのせいで合わないなんてこともある 966 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 00:40:22.69 ID:Oef+89DPd.net] 2進数は変な誤差が出るから信用できないってさ 967 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 01:34:41.39 ID:S7UeFiS10.net] 初心者がつくったマクロのほうが信用できない 968 名前：デフォルトの名無しさん [2021/05/22(土) 01:44:44.93 ID:mcqOhXTe0.net] >>962 初心者というより、ここで質問しなきゃいけないような馬鹿のことだな 969 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 02:41:18.25 ID:S7UeFiS10.net] あと、悪意のある熟練者が作ったマクロも信用できないけどな 970 名前：デフォルトの名無しさん [2021/05/22(土) 02:56:17.42 ID:vJuB/ZK60.net] >>964 正しいが悪意を言いだしたらキリがない 馬鹿のくせにで自分には作れると勘違いしている馬鹿も悪意のうちに含めるのならばわからんでもない 無自覚の悪意というこという意味で 971 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 05:49:02.27 ID:Tpb6ZbgH0.net] >>961 Doubleとかの浮動小数点を使う型の場合、IEEE754準拠のために起こるやつのことだね それは例えば小数点以下4桁までなら通貨型が固定小数点型だから使えるとか 一度割ったときの値が丸めを行うところまで10の倍数掛けて整数桁にしてから計算して、 その後最初に掛けた分で割ってやれば解決するようなことを知らない人が組むとそうなるわけで 別にEXCEL VBAに限ったことじゃないし、組む人の問題だよ JavaみたいにbigDecimal型とか持ってる言語もあるにはあるけどね 後、VBAでは四捨五入も銀行丸めになるから それがイヤならWorksheetFunctionでRound使うとかね。 972 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 07:10:12.96 ID:UfMUNU1m0.net] 回答者が雑な回答で悪い風潮あるみたいだけど、質問してくる初級者にも問題あるって話 なんでそんな質問してるのだろ？ってのが多いから 973 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 07:51:26.87 ID:qSrTa/6NM.net] 分からないことが何か分からないぐらい分からないとそういう質問になるのはよくあることだと思うよ だから何が分からなくて悩んでいるのかを想像して答えられる範囲で答えるのがベターじゃないかな それが回答者にとって勉強になる事だってあるだろうし 質問者も答えを咀嚼した上で追加で疑問点が出るなら質問してもらって構わないし、答えを理解できなかったらどの部分が分かりづらかったか聞けばいい 質問スレで何か質問するとバカだのアホだの言われるような質問しづらい雰囲気なのは本末転倒でしょう 974 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 08:18:29.11 ID:Tpb6ZbgH0.net] >>951 昔は仕事でVBAやってれば あんちょこ本屋で立ち読みして 傾向だけ把握してれば大体受かる 感じだったけど今はどうなの？ 975 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 08:18:32.56 ID:6qbME2XxH.net] 直接の会話だと不明点を確認しながら進めるのが普通なのに、掲示板だと後出しと言われる風潮はいいかげん頭が固すぎると思うなの 976 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 08:20:17.81 ID:GrewoE1S0.net] そういう奴はかまってちゃん 人を煽ってレスが欲しくてしょうがないんだろうな 977 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 09:04:45.45 ID:UfMUNU1m0.net] 文句があるならヤフー知恵袋でやりとりしてください。 絶対答えなきゃいけないなんていう義理は存在しないし 978 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 12:27:49.41 ID:S7UeFiS10.net] >>970 回答してもらっておいて文句いうような奴には教えんよ 979 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 12:43:21.86 ID:0H5cNeIlM.net] >>970 程度問題だろ ちゃぶ台返しになるような前提を後出しされても困る 980 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 13:15:35.23 ID:UfMUNU1m0.net] 文句あるなら他所の質問掲示板へ 981 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 15:54:43.50 ID:idCJV0DjM.net] 直接の会話じゃないので 982 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 15:58:35.26 ID:idCJV0DjM.net] 何がしたくて何をして何を期待して何が起きたかぐらいは誰でも手間かければ書けるのにその手間を質問者側に押し付けるな 983 名前：デフォルトの名無しさん [2021/05/22(土) 18:31:31.81 ID:Lbh7lRt50.net] 質問者あっての質問スレですからなあ。 もう少し気を使っていただかないと。 984 名前：デフォルトの名無しさん mailto:sage [2021/05/22(土) 21:20:31.42 ID:UfMUNU1m0.net] 自助努力してください 985 名前：デフォルトの名無しさん [2021/05/24(月) 01:46:42.03 ID:SKWG4E+9p.net] 在庫管理でクロス集計表を使ってるんだけど 配列で取り込んだデータをデータがあったセル位置に戻す時って どう指定してあげればいいの? 【用途】 納期毎に設定される納品数を在庫から引いて いつ欠品になるか知りたい 伝わるか分からないけど↓ 使ってるフォーマット形式 縦列 部品名 在庫 横 納期 納品数 986 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 04:35:06.28 ID:nupyrRyu0.net] 他人に伝わる表現方法を考えたほうがいいと思う。いやまじで。 987 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 10:56:44.51 ID:ERBOMeaq0.net] >>980 配列で取り込んだデータをデータがあったセル位置に戻すことが必要な理由とは？ 988 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 12:46:37.40 ID:ipl2L3KHd.net] >>980 配列に取り込んだ時と逆のことをするだけでは Cells(2, 3) = 配列(2, 3) みたいに 989 名前：デフォルトの名無しさん [2021/05/24(月) 14:13:14.63 ID:NNOyF0WeM.net] 違うよ クロス集計表の元データの位置に書き戻してやらないとクロス集計表が壊れるじゃないか そんなの質問者は望んでいないよ。たぶん 990 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 14:19:09.76 ID:LTdpDg+b0.net] 誰か質問を説明的に翻訳してくれ 991 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 14:44:27.07 ID:ircPqyoF0.net] 元データが変化するわけじゃないならセルに返す必要ないんじゃないの 992 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 14:44:58.38 ID:I5I449Rl0.net] 結局こうなるわ コミュニケーションから勉強だな 993 名前：デフォルトの名無しさん [2021/05/24(月) 14:55:47.77 ID:MUcNJueI0.net] Cellの値の変更時の処理を記述する為に、WorkSheet_Change イベントを使ってるのですが、 監視対象の Cell をダブルクリックして入力カーソル「|」表示状態になっただけで(値を変更せずに Cell がフォーカスを失っても)、イベントが発生してしまいます。 本当に値が変更された時だけ、WorkSheet_Change イベントが発生するようにするにはどうすればいいでしょうか。 994 名前：デフォルトの名無しさん [2021/05/24(月) 14:55:59.69 ID:MUcNJueI0.net] Cellの値の変更時の処理を記述する為に、WorkSheet_Change イベントを使ってるのですが、 監視対象の Cell をダブルクリックして入力カーソル「|」表示状態になっただけで(値を変更せずに Cell がフォーカスを失っても)、イベントが発生してしまいます。 本当に値が変更された時だけ、WorkSheet_Change イベントが発生するようにするにはどうすればいいでしょうか。 995 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 14:57:27.80 ID:LTdpDg+b0.net] エスパー 福井県立図書館 覚え違いタイトル集 www.library-archives.pref.fukui.lg.jp/tosyo/category/shiraberu/368.html 996 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 14:57:57.69 ID:uCaZzUhZ0.net] そもそも在庫管理なんてexcelでやる内容じゃないしな 外部にdb用意して excelはそこから参照して クロスなりなんなり汁 997 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 16:02:34.89 ID:SNshkRQxd.net] お前らノーパソ？デスクトップ？ MyPCはどっちでプログラミングしてる？ 998 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 16:10:42.22 ID:aftRNFP10.net] そもそもクロス集計をピボットで行ってるのか SQLでCROSS JOIN使ってるかで 答えが変わるしな 999 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 16:12:48.27 ID:pNkn+mP6M.net] >>992 MacBook Windowsはもう持ってないしExcelも一切使わない 1000 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 16:19:31.03 ID:aftRNFP10.net] >>989 本当に値が変わったときのみ Worksheet_Changeイベントを拾うのは恐らく無理。 元々のセル値をとっておき、Worksheet_Changeイベントの処理の中で対象セルの値が変わったを判定して、違っていれば処理を行うようにする。 1001 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 20:24:23.56 ID:m/UNwUrga.net] 編集時に同じ値を入力した場合も 変更扱いじゃね 1002 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 21:45:40.40 ID:aftRNFP10.net] >>996 それって何か意味あるの？ 1003 名前：デフォルトの名無しさん mailto:sage [2021/05/24(月) 22:50:52.89 ID:ooplu3lnd.net] 紙の表を目で追いながら画面を見ずにどんどん入力するとか普通にある 以前と同じかいちいち確認しながらより能率がいいから 1004 名前：デフォルトの名無しさん mailto:sage [2021/05/25(火) 01:55:38.61 ID:HvNz/zzH0.net] 質問いいですか？ 1005 名前：デフォルトの名無しさん [2021/05/25(火) 02:04:56.40 ID:tL58A71i0.net] お断りします 1006 名前：1001 [Over 1000 Thread.net] このスレッドは１０００を超えました。 新しいスレッドを立ててください。 life time: 67日 3時間 56分 13秒 1007 名前：過去ログ ★ [[過去ログ]] ■ このスレッドは過去ログ倉庫に格納されています

---

---

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

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