Excel VBA 質問スレ Part70

2021/03/18(木) 22:08:43.71

!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

2021/05/09(日) 11:38:04.63

自分で書くならこうかな？
再帰処理使わないでスッキリ書く方法は思いつかなかった。

https://i.imgur.com/noQC9bg.png

これでだめ？

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 11:47:23.05

とりあえずもう一つ突っ込みたい
Preserveは不要だしパラメータも(3, 3)じゃない
ReDim array1(2, 2) が正解

>>788
ネストの深さが不定の時は再帰でやるのが一番自然だと思うよ

2021/05/09(日) 11:59:36.87

ごめんちょっと動作検証してたら、Uboundのとこxとyが逆だった。
Ifの中に書いてるのが、Ubound(ary1)
でForの中に書いてるのが
Ubound(ary1, 2)
ですね。

2021/05/09(日) 12:09:11.80

>>789
おっしゃるとおりですm(_ _)m
せっかくご指摘いただいたので、直したものを上げ直します。

https://i.imgur.com/ykrQPY4.png

**デフォルトの名無しさん** (JP 0H97-jjtP) · 2021/05/09(日) 12:10:40.52

やってることは同じだけど画像だと入力が面倒だろうし、俺もほとんど同時に作っちゃってたんで貼らして

Option Explicit
Sub foo()
　　Dim array1() As String
　　ReDim array1(2, 2)
　　array1(0, 0) = "いちご"
　　array1(0, 1) = "みかん"
　　array1(0, 2) = ""
　　array1(1, 0) = "あまい"
　　array1(1, 1) = "すっぱい"
　　array1(1, 2) = "にがい"
　　array1(2, 0) = "100円"
　　array1(2, 1) = "200円"
　　array1(2, 2) = ""

　　Call recloop(array1, 0, "")
End Sub

Sub recloop(array1, row1, str)
　　Dim col1
　　If row1 < UBound(array1, 2) Then
　　　　For col1 = 0 To UBound(array1, 2)
　　　　　　If array1(row1, col1) <> "" Then Call recloop(array1, row1 + 1, str & array1(row1, col1) & ",")
　　　　Next
　　Else
　　　　For col1 = 0 To UBound(array1, 2)
　　　　　　If array1(row1, col1) <> "" Then Debug.Print str & array1(row1, col1)
　　　　Next
　　End If
End Sub

2021/05/09(日) 12:23:48.39

ありがとうございます
再帰関数の知識は持っていたのですが
自身で再帰関数を使用したことは無かったため盲点でした
このように使用するのですね

助かりました参考にさせて頂きます

2021/05/09(日) 13:41:59.08

>>779
グローバル変数と言うよりストレージみたいなもんだと思ってる

2021/05/09(日) 21:06:29.88

ReDim使うのって要素数に変数使うときじゃなかった？
数が決まってるならDim array(0 to 2, 0 to 2) As Stringで良いんだよね？

2021/05/09(日) 21:07:35.90

>>737
あなたに禿同！

2021/05/09(日) 21:47:13.65

>795
動的配列と静的配列の違いだよ
「変数」でもなければ「数が決まってる」でもなく、「後で変更するかどうか」が違う所

2021/05/10(月) 01:12:41.56

再帰を使わない方法でやってみた
「r行c列」の配列を「c桁のr進数」とみなしてる。とりあえず動いたけどバグあるかも

Sub Macro5()
　　Dim array1() As String
　　ReDim array1(2, 2)
　　array1(0, 0) = "いちご"
　　array1(0, 1) = "みかん"
　　array1(1, 0) = "あまい"
　　array1(1, 1) = "すっぱい"
　　array1(1, 2) = "にがい"
　　array1(2, 0) = "100円"
　　array1(2, 1) = "200円"
　　row0 = UBound(array1, 1)
　　col0 = UBound(array1, 2) + 1
　　For n = 0 To (row0 + 1) ^ col0 - 1
　　　　nn = n
　　　　s = ""
　　　　For row1 = row0 To 0 Step -1
　　　　　　col1 = nn Mod (row0 + 1)
　　　　　　nn = nn \ (row0 + 1)
　　　　　　If array1(row1, col1) = "" Then
　　　　　　　　s = ""
　　　　　　　　Exit For
　　　　　　Else
　　　　　　　　s = array1(row1, col1) & s
　　　　　　　　If row1 Then s = "," & s
　　　　　　End If
　　　　Next
　　　　If s <> "" Then Debug.Print s
　　Next
End Sub

2021/05/10(月) 20:50:28.57

そもそもの疑問で、なぜVBAは初心者向けとか言われるのでしょうか。
こんなに小難しいチマチマしたこも書かなきゃいけないのに。
全然わからん。

2021/05/10(月) 20:50:49.81

>>761
俺もハンガリアン使ってるわ

2021/05/10(月) 20:53:01.66

>>775
総当りってよく考えればパワークエリでクロス結合すれば一発だろって思ったら、パワークエリにクロス結合が無かった・・・
https://www.shegolab.jp/entry/excel-macro-cross-join

accessだとアホみたいなクエリで即完成
https://i.imgur.com/moHa3bx.png

2021/05/10(月) 20:55:51.32

>>799
昔はプログラミングはもっと敷居が高かったんだよ
その中では、Excelさえあれば使えてUIはExcelのワークシートをそのまま利用できるという手軽さは初心者には魅力的だった
その頃の名残だね
今ではPowerAppsとかGASとかSalesforceとかもっと簡単で強力な選択肢は色々あるし、
プログラミングの勉強ならPythonとかJavaScriptの方が初学者には敷居が低い

2021/05/10(月) 20:57:55.19

ハンガリアンより#%&$の方が分かりやすいよな

2021/05/10(月) 21:06:13.53

>>802
レスありがとうございます。
今、流行りの言語に比べてなぜこんなに、と思っていました。
もっと難しかったのですね。
理解しました。
パソコン仕事を楽に短縮できるよう頑張ります。

2021/05/10(月) 21:09:38.66

ｖｂａは本当に楽。forとif覚えるだけで仕事がはかどりまくり
Cはメモリの知識やらヘッダやら本当に覚える事が多かった上に超便利なワークシートってもんもない

2021/05/10(月) 21:10:42.65

まったくな

2021/05/10(月) 21:13:02.21

沢山の似たようなライブラリが公開されていて
いろいろな方法でやりたいことが実現できる

それはそれはいい時代になりました

でも、コレがやりたければコウ書け！
まどろっこしいが他に道は無い！
ってのも初心者にはいいものですよ

2021/05/10(月) 21:46:59.07

条件付き書式や文字の縮小機能まであって、CopyFromRecordsetの異様な速さ
（もちろんシート関数やオートフィルタの速さも異様でしょう）
VSでは無理だし、自作も当然無理
Excel部署の人だって、１人では無理でしょう

2021/05/10(月) 21:59:47.57

でも.NETに比べれば、メモリを意識するよ
参照渡しとかMidで打刻とか
結果、値渡しの.NETの方が速いけどｗ（初期の.NETはVBAの方が速かったが）

2021/05/10(月) 22:34:57.25

VBA は、シェルスクリプトと同じ。
ちょっとした事しかできない

それを知らない香具師が、複雑なプログラミング用途に使って、
結局保守できなくて、Ruby の10倍ぐらいのコストが掛かる

ちょっとしたナイフで、マグロをさばいたりするのと同じ。
道具・用途のミスマッチ

だから、ウェブ系の会社は、プログラミング言語は適材適所で選択しますって言う。
道具・用途を合わせる。
言語を固定化しない

頭が柔軟。
先に道具を選択しない。
用途から道具を選ぶ

実社会では、ほとんどこればっかり

2021/05/10(月) 23:04:34.19

ExcelのAPIが優秀なのであってVBA自体は微塵も良くない

2021/05/10(月) 23:09:51.84

>>810
で、終わったRubyしか使えず>>712みたいな嘘を書き散らすようになると

2021/05/11(火) 00:42:36.92

先に道具を選択しないと言いながら、道具ありきの叩きｗ

オープン系は外から機能を持って来るのが特徴なので、言語自体の機能は不要
なんでも呼べるシンプルなシェルのようなもの、オープン系の起点としてふさわしい

大量データの組合せならSQL ServerにBULK INSERTしてCROSS JOINするのが最速のはず
でもそのクエリを投げるのはVBAで十分で、結果の表示はExcelのCopyFromRecordsetが最速のはず

2021/05/11(火) 01:44:32.13

>>801
それじゃ希望した動作にならないのでは？
テーブルの数が不定なのだから。
集計するごとにクエリを作り直すことになる。

2021/05/11(火) 05:27:49.58

>>814
クエリってAccess VBAで動的に生成できるんだぜ

2021/05/11(火) 07:53:09.78

>>815
そんなん知ってるが、結局VBAかよw

2021/05/11(火) 09:04:47.57

>>816
適材適所だろ
全部VBAで組むより全然楽だし分かりやすいよ

2021/05/11(火) 11:31:41.06

無償のSQL Serverがあるのに、わざわざ有償で低性能のAccessを使う理由は、初級者であること以外にないですよ
でもExcelはいろんな点で他では追い付けない性能があるので、初級者でなくても使う理由がある

AccessのグリッドもVS等の普通のグリッドとは違い、非同期のリピーターコントロールでできていて、
大量件数でも先頭から順次描画し、全行をメモリに持たないため、高速になるとのこと
その点では、VSより性能がいい（あと子要素の帳票フォームの簡潔さ）
そのかわり常に大量のイベントが走るため、不安定になりやすい
（DBとしてはなんちゃってなので、業者はADP等でSQL Serverと連携して使う）

その速度をさらに超えるのがExcel（特定の使い方で）
イベントが少ないので、不安定になりにくい（Delphiもその点が良かった）
イベントはブック単位で代表できるため、ソースも統合管理しやすい

2021/05/11(火) 11:39:24.42

ユーザーフォームのマルチページ、タブ自体のBackColorプロパティってありますか？
なければ代替手段を教えてください

2021/05/11(火) 14:43:21.70

Excelフォームが中途半端な出来損ないだから
ここを最新のユーザーエクスペリエンス()で作り直せばAccessなんかすぐに駆逐できる

2021/05/11(火) 18:04:28.65

そうだね
大規模なのはSQL
小回りをきかせたいときはエクセル
事務屋ならこれで8割できてしまうだろうね

2021/05/11(火) 19:06:43.69

ただ、VBAはヤメテ

2021/05/12(水) 12:57:12.16

フォームがもう少し何とかなればとは思うよ
>>819然り、痒いところまであとちょっとって感じることがしばしば

2021/05/12(水) 15:18:28.53

>>822
アホか
ここは何のスレだと思ってるんだ？
VBA書くのがイヤなら
SQLSERVERのスレ立てて
そこでSQLでもストアドプロシージャでも
関数でも好きな話題してれば良かろう

2021/05/12(水) 15:47:57.27

なんだ？喧嘩勃発か？

2021/05/12(水) 15:55:47.07

ちょこちょこ書く分には十分なものだと思うよ

2021/05/13(木) 12:11:34.16

そうかな

2021/05/13(木) 16:10:32.92

ビジネスやってる人じゃないとわからないと思うよ

2021/05/13(木) 17:14:21.80

確かに。趣味レベルの自分じゃ縁のない話すぎるわ

2021/05/13(木) 20:39:49.87

なんのビジネスだよ・・・

2021/05/13(木) 20:43:26.98

普通の仕事で書くコードってことじゃないの

2021/05/13(木) 20:48:35.69

ビジネスってよりワークで使うかな
ワークマンってよりはビジネスマンか…

2021/05/13(木) 20:50:41.60

使いどころはビジネスってよりワークかな
でもワークマンってよりはビジネスマンか…

2021/05/13(木) 21:12:55.35

ワークってよりビジネスな場合もあるかな
でもワークマンってよりはビジネスマンか…

2021/05/13(木) 21:19:10.07

なんでvbs採用したんだろう
jscriptならもっと未来あっただろうに
tsへの移行も自然だっと思う

2021/05/13(木) 21:27:44.43

>>835
そらもうvbaの登場時期が早かったからとしか言いようがない
vba開発チームが頑張ったんだろう
30年ぐらい前はBかCが当たり前で、インターネットもロクにないのに謎のjscriptなんて言語が勝つのは無理がある

2021/05/14(金) 08:17:06.17

>>818
www
初級者まる出しの文章で笑えるw

2021/05/14(金) 08:20:10.01

>>819
普通じゃ無理。
無理矢理タブもどきをつくるか、頑張ってWin32APIでやるか。
Win32APIでやるのは、まあ辞めとけ。

2021/05/14(金) 08:39:26.02

タブを切り替えた瞬間にバックカラーも切り替えれば良いだけ

2021/05/14(金) 09:49:10.63

勝手に見出しの色のことだと思ってた
エクセルのシートにやるみたいなやつ

**681** (ｱｳｱｳｳｰ Sa2d-X/m6) · 2021/05/14(金) 10:40:26.20

681です
皆さんのおかげで無事目的のコードが作れました

あと1つ質問なのですが…
画像のように重複した数値を除く総計を算出したいと思っています
会社名毎の数値を合計すればいいだけだと思ったのですが、
どうしても重複のものも一緒に合算してしまいお手上げ状態です
因みに元データは都合によりいじれないため、合算前に重複部分を削除等はできません
恐れ入りますが、宜しくお願いします

**681** (ｱｳｱｳｳｰ Sa2d-X/m6) · 2021/05/14(金) 10:41:19.08

画像を貼り忘れておりました
https://i.imgur.com/HLZYwhr.png

2021/05/14(金) 11:33:58.88

会社ごとの重複を除く合計が出たんだからそれを足すだけだろ
逆に何をやったらまた重複したものも合算するのか理解できない

2021/05/14(金) 11:38:54.22

いつものあいつだぞ

2021/05/14(金) 12:11:07.63

>>841
もとデータをいじらないでも、もとデータを別のシートにコピーすればいじれるんじゃね

2021/05/14(金) 12:24:14.75

>>841
重複除けてるのなら、結果をSUM関数で合算するだけじゃん。

>>686
で上げたように、そもそもVBAすら使う必要ない。

2021/05/14(金) 13:02:54.78

君らも構うねー
>>681への数多の回答を経て「皆さんのおかげで」としか言及しない礼儀知らずなんぞ俺なら２度と助けようと思えないけどな

2021/05/14(金) 14:11:01.00

>>841
SQLでやってるの？
VBAでやってるの？

SQLなら会社、氏名、数値でグルーピングしてから合計求めりゃいいだろうし
VBAでやってるなら上からループして会社、氏名、数値をコレクションかディクショナリーに登録しておいて
同じ組み合わせのものが登録されてたら飛ばせばいいだけじゃないの？

2021/05/14(金) 16:00:12.91

ほんとに、よう構うわ

2021/05/14(金) 16:15:08.56

暇人しかレスしない
そりゃ高齢化する罠

2021/05/14(金) 17:11:44.35

暇と時間は自分で作るもの

2021/05/14(金) 17:53:42.33

この｢いつものあいつ｣はperlスレで釣りしてたあいつだろ
回答がないと別ID自分に回答するクズだぞ
IDをコロコロ変えていることで気付け

2021/05/14(金) 18:02:17.06

ここに若い人はいないと思われ
定年退職した60～70のジジババ様がメインの予想

2021/05/14(金) 19:35:21.69

いちゃ悪いか？

2021/05/14(金) 19:38:49.82

>>854
煽り体制なさ杉
ゴミは無視して自分のやりたいことをしておけば良い

2021/05/14(金) 19:53:03.83

アラサーのおっさんですわ

2021/05/14(金) 20:06:30.42

平成生まれのおっさんかよ

2021/05/14(金) 20:10:13.25

令和生まれの赤子が常駐してたらマジでびびるしこんな言語をやるべきじゃないと諭すレベル

2021/05/14(金) 23:02:24.08

答えたい人は答えて無視したい人は無視すればいいのに
「俺が気にくわないからお前らも答えるな！」ってガキ大将かなんか？

2021/05/14(金) 23:04:28.38

>>859
支え合ってる人たちが気に入らない
という社会に馴染めない方の怨嗟

vbaという単語を知ってるだけでも見込みはあるのに、どうしてそうなったのか

2021/05/15(土) 01:26:37.20

定年したジジババだらけだったら異常だろ
多分30～50代あたりのPC世代だね

2021/05/15(土) 10:20:07.29

ウィンドウズ95を25で迎えた人間は50歳行ってるよ

2021/05/15(土) 11:32:20.38

>>859
そんな奴おらんやろ～

2021/05/15(土) 12:01:56.35

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

2021/05/15(土) 12:25:50.26

>>863
チッチキチー

2021/05/15(土) 13:49:58.81

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 にしてもうまく行きませぬ。

2021/05/15(土) 13:54:19.11

すみません。 LとUを間違えました。
× LBound
○ UBound

配列がありませんとか #VALUE! になってしまいます。

2021/05/15(土) 13:55:24.28

wRange.rows.Count

2021/05/15(土) 14:02:11.21

>>867
F_Test = wRange.Count

>>868
横長だとアレでソレ

そういや関数には単純にセルの数を返す方法ってないんかね

2021/05/15(土) 14:10:21.57

>>868
>>869

なんと！
ありがとうございます。

配列サイズで検索すると Ubound関数を紹介するサイトばかりで，何のことはない count でOKとは！

**デフォルトの名無しさん** (JP 0H3f-Adon) · 2021/05/15(土) 14:13:32.27

>>869
セル数は一発では求まらないね
WorksheetFunction.COUNTA + WorksheetFunction.COUNTBLANK
とか、
UBound(1) * UBound(2)
とか工夫が必要

2021/05/15(土) 14:15:26.88

自分がわかっている事を、相手に伝えられない
、いっしゅの病気だと思っておいてね

2021/05/15(土) 14:17:09.49

>>870
ウォッチ式に「wRange」入れると中が見れる
「＋」押してそれっぽい奴探せばok
めんどい事しなくても、大体は元々用意されている

>>871
ありがとう
まぁ今まで気づかなかったぐらいだし、まぁ無くてもいいっちゃいいんだけど

2021/05/16(日) 15:00:47.34

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
なぜ、クリック処理の所でエラー発生するのでしょうか？

2021/05/16(日) 15:15:41.45

>>874
getElementsByClassNameは配列を返すから（同じクラスを持つ要素の配列が返る）

2021/05/16(日) 15:32:17.72

IDがあるならgetElementByIDの方が良いぞ

classのまま一つ目をclickするなら
objIE.Document.getElementsByClassName("btn1")(0).Click

2021/05/16(日) 15:39:13.46

CSSっぽく指定できて最初の要素を返してくれるquerySelectorもｵﾇﾇﾒ

2021/05/16(日) 16:10:27.36

>>875~877

ありがとうございます。
クリックできました

2021/05/16(日) 17:21:27.26

クリックのことかー！

2021/05/16(日) 18:59:49.40

ダブルクイック

2021/05/18(火) 02:01:26.83

>>870
だって配列じゃないからな
変に用語使わず素直に range 個数とかでググった方がいいよ

上のレスにあるgetelemetsby系のメソッドも返すのは配列じゃなくてコレクション

2021/05/18(火) 06:19:11.84

MapだのArrayだの機能入れりゃいいだけなのに入れない
どういうつもりだこいつら

2021/05/18(火) 08:15:11.48

VBAは既に終わった過去の技術
移行を促すために意図的に使いづらくされることはあっても、改善されることはない

2021/05/18(火) 08:58:47.08

そこにある幸せを制限されてる
上から目線で苦しめられてる
悔しくて泣く

2021/05/18(火) 11:12:26.25

Office365でしか動かないVBAV2作るぐらいなら他の言語使うわな

2021/05/18(火) 12:10:40.31

だったらそうすればいい

2021/05/18(火) 14:24:29.88

だったらそうすればって別に俺たちはマイクロソフトじゃねえけど