!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
探検
Excel VBA 質問スレ Part70
レス数が900を超えています。1000を超えると表示できなくなるよ。
1デフォルトの名無しさん (ワッチョイ b6da-6NWR)
2021/03/18(木) 22:08:43.71ID:jtngtgXU0810デフォルトの名無しさん (ワッチョイ 732c-C7Xb)
2021/05/10(月) 22:34:57.25ID:ViCp850r0 VBA は、シェルスクリプトと同じ。
ちょっとした事しかできない
それを知らない香具師が、複雑なプログラミング用途に使って、
結局保守できなくて、Ruby の10倍ぐらいのコストが掛かる
ちょっとしたナイフで、マグロをさばいたりするのと同じ。
道具・用途のミスマッチ
だから、ウェブ系の会社は、プログラミング言語は適材適所で選択しますって言う。
道具・用途を合わせる。
言語を固定化しない
頭が柔軟。
先に道具を選択しない。
用途から道具を選ぶ
実社会では、ほとんどこればっかり
ちょっとした事しかできない
それを知らない香具師が、複雑なプログラミング用途に使って、
結局保守できなくて、Ruby の10倍ぐらいのコストが掛かる
ちょっとしたナイフで、マグロをさばいたりするのと同じ。
道具・用途のミスマッチ
だから、ウェブ系の会社は、プログラミング言語は適材適所で選択しますって言う。
道具・用途を合わせる。
言語を固定化しない
頭が柔軟。
先に道具を選択しない。
用途から道具を選ぶ
実社会では、ほとんどこればっかり
811デフォルトの名無しさん (ワッチョイ 8f63-/N+h)
2021/05/10(月) 23:04:34.19ID:E9+bgpxg0 ExcelのAPIが優秀なのであってVBA自体は微塵も良くない
812デフォルトの名無しさん (ワッチョイ be8e-gIfd)
2021/05/10(月) 23:09:51.84ID:W7s1RH430813デフォルトの名無しさん (ワッチョイ 6aad-M0W8)
2021/05/11(火) 00:42:36.92ID:OkNnulfr0 先に道具を選択しないと言いながら、道具ありきの叩きw
オープン系は外から機能を持って来るのが特徴なので、言語自体の機能は不要
なんでも呼べるシンプルなシェルのようなもの、オープン系の起点としてふさわしい
大量データの組合せならSQL ServerにBULK INSERTしてCROSS JOINするのが最速のはず
でもそのクエリを投げるのはVBAで十分で、結果の表示はExcelのCopyFromRecordsetが最速のはず
オープン系は外から機能を持って来るのが特徴なので、言語自体の機能は不要
なんでも呼べるシンプルなシェルのようなもの、オープン系の起点としてふさわしい
大量データの組合せならSQL ServerにBULK INSERTしてCROSS JOINするのが最速のはず
でもそのクエリを投げるのはVBAで十分で、結果の表示はExcelのCopyFromRecordsetが最速のはず
814デフォルトの名無しさん (ワッチョイ beb0-V+d8)
2021/05/11(火) 01:44:32.13ID:hzo0csgz0815デフォルトの名無しさん (ワッチョイ 6a01-wt3T)
2021/05/11(火) 05:27:49.58ID:/SA0DWk40 >>814
クエリってAccess VBAで動的に生成できるんだぜ
クエリってAccess VBAで動的に生成できるんだぜ
816デフォルトの名無しさん (スッップ Sd8a-V+d8)
2021/05/11(火) 07:53:09.78ID:FeyzCVkSd >>815
そんなん知ってるが、結局VBAかよw
そんなん知ってるが、結局VBAかよw
817デフォルトの名無しさん (ワッチョイ 6a01-wt3T)
2021/05/11(火) 09:04:47.57ID:/SA0DWk40818デフォルトの名無しさん (ワッチョイ 6aad-C7Xb)
2021/05/11(火) 11:31:41.06ID:OkNnulfr0 無償のSQL Serverがあるのに、わざわざ有償で低性能のAccessを使う理由は、初級者であること以外にないですよ
でもExcelはいろんな点で他では追い付けない性能があるので、初級者でなくても使う理由がある
AccessのグリッドもVS等の普通のグリッドとは違い、非同期のリピーターコントロールでできていて、
大量件数でも先頭から順次描画し、全行をメモリに持たないため、高速になるとのこと
その点では、VSより性能がいい(あと子要素の帳票フォームの簡潔さ)
そのかわり常に大量のイベントが走るため、不安定になりやすい
(DBとしてはなんちゃってなので、業者はADP等でSQL Serverと連携して使う)
その速度をさらに超えるのがExcel(特定の使い方で)
イベントが少ないので、不安定になりにくい(Delphiもその点が良かった)
イベントはブック単位で代表できるため、ソースも統合管理しやすい
でもExcelはいろんな点で他では追い付けない性能があるので、初級者でなくても使う理由がある
AccessのグリッドもVS等の普通のグリッドとは違い、非同期のリピーターコントロールでできていて、
大量件数でも先頭から順次描画し、全行をメモリに持たないため、高速になるとのこと
その点では、VSより性能がいい(あと子要素の帳票フォームの簡潔さ)
そのかわり常に大量のイベントが走るため、不安定になりやすい
(DBとしてはなんちゃってなので、業者はADP等でSQL Serverと連携して使う)
その速度をさらに超えるのがExcel(特定の使い方で)
イベントが少ないので、不安定になりにくい(Delphiもその点が良かった)
イベントはブック単位で代表できるため、ソースも統合管理しやすい
819デフォルトの名無しさん (アウアウウー Sa1f-ZHNQ)
2021/05/11(火) 11:39:24.42ID:UIB0JMdPa ユーザーフォームのマルチページ、タブ自体のBackColorプロパティってありますか?
なければ代替手段を教えてください
なければ代替手段を教えてください
820デフォルトの名無しさん (ラクッペペ MMe6-YEtS)
2021/05/11(火) 14:43:21.70ID:0OaQcACpM Excelフォームが中途半端な出来損ないだから
ここを最新のユーザーエクスペリエンス()で作り直せばAccessなんかすぐに駆逐できる
ここを最新のユーザーエクスペリエンス()で作り直せばAccessなんかすぐに駆逐できる
821デフォルトの名無しさん (アウアウウー Sa1f-ymZB)
2021/05/11(火) 18:04:28.65ID:ZT0Qqj13a そうだね
大規模なのはSQL
小回りをきかせたいときはエクセル
事務屋ならこれで8割できてしまうだろうね
大規模なのはSQL
小回りをきかせたいときはエクセル
事務屋ならこれで8割できてしまうだろうね
822デフォルトの名無しさん (ラクッペペ MMe6-YEtS)
2021/05/11(火) 19:06:43.69ID:YSh4nGIkM ただ、VBAはヤメテ
823デフォルトの名無しさん (アウアウウー Sa1f-nFSz)
2021/05/12(水) 12:57:12.16ID:mV8qcvY8a フォームがもう少し何とかなればとは思うよ
>>819然り、痒いところまであとちょっとって感じることがしばしば
>>819然り、痒いところまであとちょっとって感じることがしばしば
824デフォルトの名無しさん (ワッチョイ 6a4f-sv8/)
2021/05/12(水) 15:18:28.53ID:BdPBmasF0825デフォルトの名無しさん (ワッチョイ eada-K+t/)
2021/05/12(水) 15:47:57.27ID:MQbyKY6x0 なんだ?喧嘩勃発か?
826デフォルトの名無しさん (オイコラミネオ MMb6-xc0m)
2021/05/12(水) 15:55:47.07ID:bNkKHmITM ちょこちょこ書く分には十分なものだと思うよ
827デフォルトの名無しさん (アウアウウー Sa1f-K+t/)
2021/05/13(木) 12:11:34.16ID:RAFicIoxa そうかな
828デフォルトの名無しさん (アウアウウー Sa1f-ymZB)
2021/05/13(木) 16:10:32.92ID:yc7BZe0Ia ビジネスやってる人じゃないとわからないと思うよ
829デフォルトの名無しさん (ワッチョイ eada-K+t/)
2021/05/13(木) 17:14:21.80ID:4K+rsr0c0 確かに。趣味レベルの自分じゃ縁のない話すぎるわ
830デフォルトの名無しさん (ワッチョイ 2301-UHqe)
2021/05/13(木) 20:39:49.87ID:BPKFCkYp0 なんのビジネスだよ・・・
831デフォルトの名無しさん (スッップ Sd8a-XxK1)
2021/05/13(木) 20:43:26.98ID:nlP9UXqMd 普通の仕事で書くコードってことじゃないの
832デフォルトの名無しさん (アウアウウー Sa1f-ZHNQ)
2021/05/13(木) 20:48:35.69ID:a3vkA3q7a ビジネスってよりワークで使うかな
ワークマンってよりはビジネスマンか…
ワークマンってよりはビジネスマンか…
833デフォルトの名無しさん (アウアウウー Sa1f-ZHNQ)
2021/05/13(木) 20:50:41.60ID:a3vkA3q7a 使いどころはビジネスってよりワークかな
でもワークマンってよりはビジネスマンか…
でもワークマンってよりはビジネスマンか…
834デフォルトの名無しさん (ワッチョイ 8f68-fceI)
2021/05/13(木) 21:12:55.35ID:HJ1eRgpP0 ワークってよりビジネスな場合もあるかな
でもワークマンってよりはビジネスマンか…
でもワークマンってよりはビジネスマンか…
835デフォルトの名無しさん (ワッチョイ 2301-UHqe)
2021/05/13(木) 21:19:10.07ID:BPKFCkYp0 なんでvbs採用したんだろう
jscriptならもっと未来あっただろうに
tsへの移行も自然だっと思う
jscriptならもっと未来あっただろうに
tsへの移行も自然だっと思う
836デフォルトの名無しさん (ワッチョイ 8f68-fceI)
2021/05/13(木) 21:27:44.43ID:HJ1eRgpP0 >>835
そらもうvbaの登場時期が早かったからとしか言いようがない
vba開発チームが頑張ったんだろう
30年ぐらい前はBかCが当たり前で、インターネットもロクにないのに謎のjscriptなんて言語が勝つのは無理がある
そらもうvbaの登場時期が早かったからとしか言いようがない
vba開発チームが頑張ったんだろう
30年ぐらい前はBかCが当たり前で、インターネットもロクにないのに謎のjscriptなんて言語が勝つのは無理がある
837デフォルトの名無しさん (スッップ Sd2f-2uji)
2021/05/14(金) 08:17:06.17ID:NU+NRHZVd838デフォルトの名無しさん (スッップ Sd2f-2uji)
2021/05/14(金) 08:20:10.01ID:NU+NRHZVd839デフォルトの名無しさん (アウアウウー Sa31-p5Ne)
2021/05/14(金) 08:39:26.02ID:q7wj393Za タブを切り替えた瞬間にバックカラーも切り替えれば良いだけ
840デフォルトの名無しさん (アウアウウー Saaf-/TFo)
2021/05/14(金) 09:49:10.63ID:rbrSxZ/Wa 勝手に見出しの色のことだと思ってた
エクセルのシートにやるみたいなやつ
エクセルのシートにやるみたいなやつ
841681 (アウアウウー Sa2d-X/m6)
2021/05/14(金) 10:40:26.20ID:f8pG7pdca 681です
皆さんのおかげで無事目的のコードが作れました
あと1つ質問なのですが…
画像のように重複した数値を除く総計を算出したいと思っています
会社名毎の数値を合計すればいいだけだと思ったのですが、
どうしても重複のものも一緒に合算してしまいお手上げ状態です
因みに元データは都合によりいじれないため、合算前に重複部分を削除等はできません
恐れ入りますが、宜しくお願いします
皆さんのおかげで無事目的のコードが作れました
あと1つ質問なのですが…
画像のように重複した数値を除く総計を算出したいと思っています
会社名毎の数値を合計すればいいだけだと思ったのですが、
どうしても重複のものも一緒に合算してしまいお手上げ状態です
因みに元データは都合によりいじれないため、合算前に重複部分を削除等はできません
恐れ入りますが、宜しくお願いします
842681 (アウアウウー Sa2d-X/m6)
2021/05/14(金) 10:41:19.08ID:f8pG7pdca 画像を貼り忘れておりました
https://i.imgur.com/HLZYwhr.png
https://i.imgur.com/HLZYwhr.png
843デフォルトの名無しさん (ワッチョイ 7b42-AYRO)
2021/05/14(金) 11:33:58.88ID:+U8xhPuO0 会社ごとの重複を除く合計が出たんだからそれを足すだけだろ
逆に何をやったらまた重複したものも合算するのか理解できない
逆に何をやったらまた重複したものも合算するのか理解できない
844デフォルトの名無しさん (ワッチョイ 538e-dhLD)
2021/05/14(金) 11:38:54.22ID:usYNgZ690 いつものあいつだぞ
845デフォルトの名無しさん (アウアウウー Sa9f-drH/)
2021/05/14(金) 12:11:07.63ID:mu0LH/UJa >>841
もとデータをいじらないでも、もとデータを別のシートにコピーすればいじれるんじゃね
もとデータをいじらないでも、もとデータを別のシートにコピーすればいじれるんじゃね
846デフォルトの名無しさん (ワッチョイ 7fb0-+Dcr)
2021/05/14(金) 12:24:14.75ID:Vktv5FHm0847デフォルトの名無しさん (アウアウウー Saaf-/TFo)
2021/05/14(金) 13:02:54.78ID:kX62fe1ba 君らも構うねー
>>681への数多の回答を経て「皆さんのおかげで」としか言及しない礼儀知らずなんぞ俺なら2度と助けようと思えないけどな
>>681への数多の回答を経て「皆さんのおかげで」としか言及しない礼儀知らずなんぞ俺なら2度と助けようと思えないけどな
848デフォルトの名無しさん (ワッチョイ 9b4f-CTTZ)
2021/05/14(金) 14:11:01.00ID:C4z8VNUC0 >>841
SQLでやってるの?
VBAでやってるの?
SQLなら会社、氏名、数値でグルーピングしてから合計求めりゃいいだろうし
VBAでやってるなら上からループして会社、氏名、数値をコレクションかディクショナリーに登録しておいて
同じ組み合わせのものが登録されてたら飛ばせばいいだけじゃないの?
SQLでやってるの?
VBAでやってるの?
SQLなら会社、氏名、数値でグルーピングしてから合計求めりゃいいだろうし
VBAでやってるなら上からループして会社、氏名、数値をコレクションかディクショナリーに登録しておいて
同じ組み合わせのものが登録されてたら飛ばせばいいだけじゃないの?
849デフォルトの名無しさん (オッペケ Sr99-v+G2)
2021/05/14(金) 16:00:12.91ID:bBl2sxC0r ほんとに、よう構うわ
850デフォルトの名無しさん (ワッチョイ 0f5f-JrGs)
2021/05/14(金) 16:15:08.56ID:N2rlLeCr0 暇人しかレスしない
そりゃ高齢化する罠
そりゃ高齢化する罠
851デフォルトの名無しさん (ワッチョイ 9b4f-CTTZ)
2021/05/14(金) 17:11:44.35ID:C4z8VNUC0 暇と時間は自分で作るもの
852デフォルトの名無しさん (ワッチョイ 538e-dhLD)
2021/05/14(金) 17:53:42.33ID:usYNgZ690 この「いつものあいつ」はperlスレで釣りしてたあいつだろ
回答がないと別ID自分に回答するクズだぞ
IDをコロコロ変えていることで気付け
回答がないと別ID自分に回答するクズだぞ
IDをコロコロ変えていることで気付け
853デフォルトの名無しさん (ワッチョイ 97da-drH/)
2021/05/14(金) 18:02:17.06ID:9jitt6PZ0 ここに若い人はいないと思われ
定年退職した60〜70のジジババ様がメインの予想
定年退職した60〜70のジジババ様がメインの予想
854デフォルトの名無しさん (アウアウウー Sa9f-drH/)
2021/05/14(金) 19:35:21.69ID:EALw/Xv8a いちゃ悪いか?
855デフォルトの名無しさん (ワッチョイ 6768-AYRO)
2021/05/14(金) 19:38:49.82ID:b+Ipd3IB0856デフォルトの名無しさん (ブーイモ MM5b-M9np)
2021/05/14(金) 19:53:03.83ID:FyOJKl4nM アラサーのおっさんですわ
857デフォルトの名無しさん (ワッチョイ c7e6-JFKK)
2021/05/14(金) 20:06:30.42ID:M77EX5P+0 平成生まれのおっさんかよ
858デフォルトの名無しさん (ワッチョイ 6768-AYRO)
2021/05/14(金) 20:10:13.25ID:b+Ipd3IB0 令和生まれの赤子が常駐してたらマジでびびるしこんな言語をやるべきじゃないと諭すレベル
859デフォルトの名無しさん (ワッチョイ cd01-57RG)
2021/05/14(金) 23:02:24.08ID:eHp6F4GU0 答えたい人は答えて無視したい人は無視すればいいのに
「俺が気にくわないからお前らも答えるな!」ってガキ大将かなんか?
「俺が気にくわないからお前らも答えるな!」ってガキ大将かなんか?
860デフォルトの名無しさん (ワッチョイ 6768-AYRO)
2021/05/14(金) 23:04:28.38ID:b+Ipd3IB0861デフォルトの名無しさん (ワッチョイ 97da-drH/)
2021/05/15(土) 01:26:37.20ID:FnRhwbWQ0 定年したジジババだらけだったら異常だろ
多分30〜50代あたりのPC世代だね
多分30〜50代あたりのPC世代だね
862デフォルトの名無しさん (ワッチョイ 538f-sort)
2021/05/15(土) 10:20:07.29ID:sw5CYKBX0 ウィンドウズ95を25で迎えた人間は50歳行ってるよ
863デフォルトの名無しさん (ワッチョイ e9ad-/TFo)
2021/05/15(土) 11:32:20.38ID:ULjvOOdJ0 >>859
そんな奴おらんやろ〜
そんな奴おらんやろ〜
864デフォルトの名無しさん (エムゾネ FF2f-JrGs)
2021/05/15(土) 12:01:56.35ID:eYtIld1hF memo
https://www.mhlw.go.jp/toukei/list/dl/maikin-teisei-20210406.pdf
https://www.hello-pc.net/howto-excel/shisyagonyu/
http://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
https://www.mhlw.go.jp/toukei/list/dl/maikin-teisei-20210406.pdf
https://www.hello-pc.net/howto-excel/shisyagonyu/
http://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
865デフォルトの名無しさん (ワッチョイ bfda-Adon)
2021/05/15(土) 12:25:50.26ID:vXVB+fnY0 >>863
チッチキチー
チッチキチー
866デフォルトの名無しさん (ワッチョイ ffbb-D5yk)
2021/05/15(土) 13:49:58.81ID:YDtAUn460 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 にしてもうまく行きませぬ。
--------------------------------------------------------------------
【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 にしてもうまく行きませぬ。
867デフォルトの名無しさん (ワッチョイ ffbb-D5yk)
2021/05/15(土) 13:54:19.11ID:YDtAUn460 すみません。 LとUを間違えました。
× LBound
○ UBound
配列がありません とか #VALUE! になってしまいます。
× LBound
○ UBound
配列がありません とか #VALUE! になってしまいます。
868デフォルトの名無しさん (ラクッペペ MM17-JFKK)
2021/05/15(土) 13:55:24.28ID:Q8PHpDoBM wRange.rows.Count
869デフォルトの名無しさん (ワッチョイ 6768-AYRO)
2021/05/15(土) 14:02:11.21ID:ur6+LZEp0870デフォルトの名無しさん (ワッチョイ ffbb-D5yk)
2021/05/15(土) 14:10:21.57ID:YDtAUn460871デフォルトの名無しさん (JP 0H3f-Adon)
2021/05/15(土) 14:13:32.27ID:zrs2Seg4H >>869
セル数は一発では求まらないね
WorksheetFunction.COUNTA + WorksheetFunction.COUNTBLANK
とか、
UBound(1) * UBound(2)
とか工夫が必要
セル数は一発では求まらないね
WorksheetFunction.COUNTA + WorksheetFunction.COUNTBLANK
とか、
UBound(1) * UBound(2)
とか工夫が必要
872デフォルトの名無しさん (アウアウウー Sa31-p5Ne)
2021/05/15(土) 14:15:26.88ID:q5D0BLy0a 自分がわかっている事を、相手に伝えられない
、いっしゅの病気だと思っておいてね
、いっしゅの病気だと思っておいてね
873デフォルトの名無しさん (ワッチョイ 6768-AYRO)
2021/05/15(土) 14:17:09.49ID:ur6+LZEp0874デフォルトの名無しさん (ワッチョイ efba-u+PU)
2021/05/16(日) 15:00:47.34ID:fN3wEca+0 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
なぜ、クリック処理の所でエラー発生するのでしょうか?
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
なぜ、クリック処理の所でエラー発生するのでしょうか?
875デフォルトの名無しさん (スッップ Sd2f-Ji+2)
2021/05/16(日) 15:15:41.45ID:cdV5xYRld >>874
getElementsByClassNameは配列を返すから(同じクラスを持つ要素の配列が返る)
getElementsByClassNameは配列を返すから(同じクラスを持つ要素の配列が返る)
876デフォルトの名無しさん (ワッチョイ 6768-AYRO)
2021/05/16(日) 15:32:17.72ID:T2VZn2Kl0 IDがあるならgetElementByIDの方が良いぞ
classのまま一つ目をclickするなら
objIE.Document.getElementsByClassName("btn1")(0).Click
classのまま一つ目をclickするなら
objIE.Document.getElementsByClassName("btn1")(0).Click
877デフォルトの名無しさん (スッップ Sd2f-Ji+2)
2021/05/16(日) 15:39:13.46ID:cdV5xYRld CSSっぽく指定できて最初の要素を返してくれるquerySelectorもオヌヌメ
878デフォルトの名無しさん (ワッチョイ efba-u+PU)
2021/05/16(日) 16:10:27.36ID:fN3wEca+0879デフォルトの名無しさん (アウアウウー Sa9f-drH/)
2021/05/16(日) 17:21:27.26ID:ak429d4ca クリックのことかー!
880デフォルトの名無しさん (ワッチョイ 97da-drH/)
2021/05/16(日) 18:59:49.40ID:uzBgfuya0 ダブルクイック
881デフォルトの名無しさん (ワッチョイ f101-1xLj)
2021/05/18(火) 02:01:26.83ID:BeO0jfUB0882デフォルトの名無しさん (ワッチョイ f563-sort)
2021/05/18(火) 06:19:11.84ID:Z0RWJbQc0 MapだのArrayだの機能入れりゃいいだけなのに入れない
どういうつもりだこいつら
どういうつもりだこいつら
883デフォルトの名無しさん (テテンテンテン MM17-6eZC)
2021/05/18(火) 08:15:11.48ID:8cwZKDcEM VBAは既に終わった過去の技術
移行を促すために意図的に使いづらくされることはあっても、改善されることはない
移行を促すために意図的に使いづらくされることはあっても、改善されることはない
884デフォルトの名無しさん (ワッチョイ f563-sort)
2021/05/18(火) 08:58:47.08ID:Z0RWJbQc0 そこにある幸せを制限されてる
上から目線で苦しめられてる
悔しくて泣く
上から目線で苦しめられてる
悔しくて泣く
885デフォルトの名無しさん (ラクッペペ MM17-JFKK)
2021/05/18(火) 11:12:26.25ID:9uIGZAIgM Office365でしか動かないVBAV2作るぐらいなら他の言語使うわな
886デフォルトの名無しさん (ワッチョイ bfda-drH/)
2021/05/18(火) 12:10:40.31ID:sRK+fHDU0 だったらそうすればいい
887デフォルトの名無しさん (アウアウウー Saaf-/TFo)
2021/05/18(火) 14:24:29.88ID:Xi/08Sqba だったらそうすればって別に俺たちはマイクロソフトじゃねえけど
888デフォルトの名無しさん (ブーイモ MM5b-esFi)
2021/05/18(火) 14:42:19.77ID:KlG9vmA0M Office365には既にOffice Scriptsがあるからそこはとっくに解決済み
あとはVBAを弾圧していくだけや
あとはVBAを弾圧していくだけや
889デフォルトの名無しさん (ラクッペペ MM17-H3XK)
2021/05/18(火) 14:48:17.90ID:R43akpHGM890デフォルトの名無しさん (ワッチョイ 9b4f-CTTZ)
2021/05/18(火) 16:33:00.45ID:5G0DWm0g0 VBAからJavaScript書くと
予約語は[]で括らなければいけなかったり
Callbynameで指定しなければいけなかったり
色々めんどくさい
Jqueryだって使えるか分からない
そもそもJavaScriptなんてWebで
クライアント周りで使うもんだから
わざわざEXCELの言語で使う用途が
よく分からない
まだクラッシックASP辺りで
VBSと組み合わせて使うなら納得もいくけど
そんな難しいもんじゃないから
必要に駆られたときに覚えれば十分だろう
予約語は[]で括らなければいけなかったり
Callbynameで指定しなければいけなかったり
色々めんどくさい
Jqueryだって使えるか分からない
そもそもJavaScriptなんてWebで
クライアント周りで使うもんだから
わざわざEXCELの言語で使う用途が
よく分からない
まだクラッシックASP辺りで
VBSと組み合わせて使うなら納得もいくけど
そんな難しいもんじゃないから
必要に駆られたときに覚えれば十分だろう
891デフォルトの名無しさん (ワッチョイ 97da-drH/)
2021/05/18(火) 18:00:53.92ID:sY2jShf/0 だから若者はVBに興味示さない
VB=高齢者のプログラミングだからでしょ?
VB=高齢者のプログラミングだからでしょ?
892デフォルトの名無しさん (ラクッペペ MM17-JFKK)
2021/05/18(火) 18:48:43.65ID:ljRiA37AM jqueryでExcel.Applicationを操作出来るように拡張するのか
夢が広がるね
夢が広がるね
893デフォルトの名無しさん (ワッチョイ 9b4f-CTTZ)
2021/05/18(火) 18:49:34.47ID:5G0DWm0g0 EXCELで簡単にプログラム組むことが出来るからな
VBと言うのをVBSのこと言ってるのかVB.Netのこと言ってるのかVBAのこと言ってるのか知らんが
EXCELで楽したくてVBAから入る若い人は多い。
VBA覚えた人がVB.NetやってC#やってそこからWeb系に入って初めてJavaScriptをHTMLやCSSと一緒に覚える人なんてザラ。
VBと言うのをVBSのこと言ってるのかVB.Netのこと言ってるのかVBAのこと言ってるのか知らんが
EXCELで楽したくてVBAから入る若い人は多い。
VBA覚えた人がVB.NetやってC#やってそこからWeb系に入って初めてJavaScriptをHTMLやCSSと一緒に覚える人なんてザラ。
894デフォルトの名無しさん (ワッチョイ 6768-AYRO)
2021/05/18(火) 19:43:19.02ID:LbhgO8Sf0895デフォルトの名無しさん (ワッチョイ 6768-AYRO)
2021/05/18(火) 19:49:05.74ID:LbhgO8Sf0 >>890
VBAでjs使うのは、一つは動的なサイトのスクレイピングする時
htmlだけの操作でしんどい時は、jsでclick辺りさせるだけでサクサク進む事がある
ってかこれ以外でjs書くことはほぼ無いと思う。
jquery使えない時は無理やりappendかなんかしてたけど、もうやり方も忘れたな
色々試している内にchromeのコンソールにぶっこむのが一番楽って結論にたどり着いた
VBAでjs使うのは、一つは動的なサイトのスクレイピングする時
htmlだけの操作でしんどい時は、jsでclick辺りさせるだけでサクサク進む事がある
ってかこれ以外でjs書くことはほぼ無いと思う。
jquery使えない時は無理やりappendかなんかしてたけど、もうやり方も忘れたな
色々試している内にchromeのコンソールにぶっこむのが一番楽って結論にたどり着いた
896デフォルトの名無しさん (ワッチョイ 312c-TVsO)
2021/05/18(火) 20:48:35.33ID:Y1RJXdtP0 Ruby で、Selenium Webdriver, Nokogiri で、
スクレイピング・ブラウザの自動操作する時にも、
JavaScript, jQuery を使える
埋め込みRuby・ERB を使えば、どんなファイルにも、
<%= 式 %>, <% 式 %> で、Rubyの式を埋め込める
a.html.erb, b.js.erb みたいに、
HTML, JavaScript ファイル内に、Rubyの式を埋め込める
スクレイピング・ブラウザの自動操作する時にも、
JavaScript, jQuery を使える
埋め込みRuby・ERB を使えば、どんなファイルにも、
<%= 式 %>, <% 式 %> で、Rubyの式を埋め込める
a.html.erb, b.js.erb みたいに、
HTML, JavaScript ファイル内に、Rubyの式を埋め込める
897デフォルトの名無しさん (ワッチョイ bb8e-dhLD)
2021/05/18(火) 20:57:22.08ID:dFlzu8QN0898デフォルトの名無しさん (ワッチョイ 97da-drH/)
2021/05/18(火) 23:24:28.39ID:sY2jShf/0 そんな事よりさ、おぢーさん達は加齢臭の処理ちゃんとしてくれよ
若者に失礼だと思わね?プンプンプンプンさ
若者に失礼だと思わね?プンプンプンプンさ
899デフォルトの名無しさん (ワッチョイ 9b4f-CTTZ)
2021/05/19(水) 00:19:04.29ID:GKVmaO5T0900デフォルトの名無しさん (ワッチョイ 9b4f-CTTZ)
2021/05/19(水) 00:20:19.16ID:GKVmaO5T0 >>898
ジジイであってクレクレw
ジジイであってクレクレw
901デフォルトの名無しさん (ワッチョイ 97da-drH/)
2021/05/19(水) 01:20:40.10ID:ZD8mpcBW0 くっせぇーなマジで
パソコンまで加齢臭プンプンなんじゃねーのか爺さん達よ?
パソコンまで加齢臭プンプンなんじゃねーのか爺さん達よ?
902デフォルトの名無しさん (ブーイモ MM5b-1bOW)
2021/05/19(水) 07:45:42.64ID:WworO/MIM 5chは加齢臭ジジイの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。
子供は他所で遊んだ方が良いですよ。
903デフォルトの名無しさん (ワッチョイ d191-2uji)
2021/05/19(水) 14:08:44.86ID:IrWk1Moq0 >>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)
とする。
それは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)
とする。
904デフォルトの名無しさん (スップ Sd03-y/av)
2021/05/19(水) 18:26:06.40ID:Vg/vRgKrd 標準モジュールにcsvFile関連に関わるコードをまとめようと思ってます。
フォームABCと3つありそれぞれのTextBoxの文字列を使用するのですが、引数にフォームを渡すと後でモジュールの引数?を見た時にどのフォーム?ってなるんですが、なんか分かりやすい方法ありますか?
フォームABCと3つありそれぞれのTextBoxの文字列を使用するのですが、引数にフォームを渡すと後でモジュールの引数?を見た時にどのフォーム?ってなるんですが、なんか分かりやすい方法ありますか?
905デフォルトの名無しさん (ワッチョイ 2b3d-LqSn)
2021/05/19(水) 18:34:23.71ID:/q2TOFSQ0 変数名に書けばいい
906デフォルトの名無しさん (ワッチョイ 9b4f-CTTZ)
2021/05/19(水) 20:30:25.56ID:GKVmaO5T0907デフォルトの名無しさん (ササクッテロレ Sp63-swby)
2021/05/19(水) 22:00:48.31ID:+ffuEuggp みんな、どうやってVBA覚えた?必要に迫られて?
908デフォルトの名無しさん (ワッチョイ bfda-drH/)
2021/05/19(水) 22:12:24.80ID:jE/FqELl0 >>907
まだ覚えられないの?
まだ覚えられないの?
909デフォルトの名無しさん (ワッチョイ cd01-gSvD)
2021/05/19(水) 23:13:26.00ID:GsBTRjrb0 あわしろ氏は、Microsoft固有の言語は覚えないほうが良いと言ってた。
910デフォルトの名無しさん (ワッチョイ bb8e-dhLD)
2021/05/19(水) 23:17:32.49ID:cF8YUUzA0 馬鹿の記憶キャパシティは限られるからな
レス数が900を超えています。1000を超えると表示できなくなるよ。
ニュース
- 首相官邸前で「戦争あおるな」 台湾有事巡る答弁に抗議 [蚤の市★]
- 高市首相告白「『なめられない服』を選ぶことに数時間を費やしました」「外交交渉でマウント取れる服、買わなくてはいかんかもなぁ」 [ぐれ★]
- 【高市リスク】立民・小西洋之参院議員「高市総理がとんでもない安全保障オンチで外交オンチ」 [ぐれ★]
- 【赤坂ライブハウス刺傷】逃走していた自衛官の男(43)を殺人未遂の疑いで逮捕 警視庁 被害女性とは知人関係 [Ailuropoda melanoleuca★]
- 『DOWNTOWN+』会員数50万人突破で見えてきた 松本人志の“月収4ケタ万円”驚愕収入 [阿弥陀ヶ峰★]
- 【千葉】コンビニに尿入りペットボトル並べた疑い、26歳男「むしゃくしゃして」…購入した客が飲もうとしたところ臭いに違和感 [ぐれ★]
- 眼帯つけようかな
- 天ぷら食いたい
- 勇者の母「ん……ふっ、起きなさいっ……私のっ……私のかわいい坊やっ、今日は貴方が……んはっ……勇者として旅立つ日……うふふ」
- 大塚芳忠のASMR
- 東京てこんな女ばっかいるの?
- ペヤング超大盛り完食出来そうもない
