Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2023/07/22(土) 09:43:10.34

さようなら！ロータス１－２－３表計算ソフトの歴史
https://news.yahoo.co.jp/byline/kandatoshiaki/20141003-00039667

2023/07/22(土) 12:14:26.21

そんな時代もありました案件

2023/07/22(土) 22:31:19.96

>>635
そのサポートデスクでさえ良く分かってなかったじゃんよ。
今は本当に便利な世の中

2023/07/23(日) 10:54:22.50

まわるまわるよ時代は回る

2023/07/23(日) 12:03:51.28

回る四天王

時代
メリーゴーランド
飛んで
東芝

2023/07/24(月) 10:59:23.04

仕事でエクセル2003を使っています。
表の中に２つのSUM関数があります。

・０が表示されているSUM関数
・合計の数が表示されているSUM関数

マクロで、
「０が表示されているSUM関数のセル」
だけを選択する事は可能でしょうか。

自分でやった事は以下です。

・ジャンプ機能で数式をチェックする
　「すべてのSUM関数」が選択される。選択不可。
・検索機能で、０を検索する
　「検索条件に一致するデータは見つかりません」
　と表示される。選択不可。

知識がなくて大変申し訳ありません。
皆様のご指導をよろしくお願いします。

2023/07/24(月) 12:05:35.50

検索対象に「値」ってないのか？　2003持ってないのでよくわからんが

2023/07/24(月) 14:33:06.59

>>641
馬鹿はこのスレが何のスレか知ってるか？

2023/07/24(月) 17:55:27.73

>>検索対象に「値」ってないのか？　

数式
・数値
・文字
・論理値
・エラー値

ジャンプ機能の、数式の数値にチェックを
入れれば、SUM関数が選択されます。しかし、
すべてのSUM関数が選択されてしまいます。

「０が表示されているSUM関数のセル」だけを
選択できるマクロ・VBAはないでしょうか。

2023/07/24(月) 18:10:05.43

>>644
馬鹿が後付けの質問し直し
で選択してどうすんの？
馬鹿は消えろ

2023/07/24(月) 18:54:14.46

夏休みの宿題かな

2023/07/24(月) 20:06:13.43

Excel2021で勉強中で初歩的な質問で申し訳ないです
インテリセンスについて質問させてください
インテリセンスで表示される引数について、
[ ] で囲われた引数は省略可だと思いますが、
例えば、InStr関数については、すべての引数が [ ] です
これはどう理解したらいいのでしょうか？
https://i.imgur.com/RXDupxq.png
よろしくお願いします

2023/07/24(月) 20:35:39.66

夏休みか

2023/07/24(月) 21:16:06.87

>>641
こんな方法があるようで。
Sub SelectZeroSumCells()
Dim ws As Worksheet
Dim cell As Range
Dim formulaString As String
Dim selectionRange As Range
Set ws = ActiveSheet ' アクティブなシートを取得
Set selectionRange = Nothing ' 選択範囲を初期化
For Each cell In ws.UsedRange ' シート内の各セルをチェック
If Left(cell.Formula, 4) = "=SUM" Then ' セルの数式がSUM関数かどうかを確認
formulaString = Mid(cell.Formula, 2) ' セルの数式を取得（=を除く）
If Evaluate(formulaString) = 0 Then ' 数式を計算し、合計が0の場合はセルを選択
If selectionRange Is Nothing Then ' 初めて該当するセルが見つかった場合
Set selectionRange = cell
Else
Set selectionRange = Union(selectionRange, cell) ' 2つ目以降の該当するセルが見つかった場合、既存の選択範囲に追加
End If
End If
End If
Next cell
If Not selectionRange Is Nothing Then ' 該当するセルを選択
selectionRange.Select
End If
End Sub

2023/07/24(月) 23:19:00.59

馬鹿連呼のイカれ野郎はこのスレにもいるのか？
早く回答しろよ

2023/07/24(月) 23:26:26.61

>>647
インテリセンスの表示でなく、Netのヘルプ見たら string1とstring2 は[]が付いていないので
省略できないのが正しいと思う

2023/07/24(月) 23:42:24.30

>>649

具体的なVBAをありがとうございます。
本とネットでプログラムを一つ一つ調べてみます。
ありがとうございました。

2023/07/25(火) 00:13:56.48

>>652
自分の間違いを認められない奴は二度と来るな

2023/07/25(火) 00:32:36.47

>>645

>>で選択してどうすんの？
宿泊施設で働いています。
施設内に冷蔵庫が３つ（A・B・C）あります。
盛り付けた料理を冷蔵庫に運び、保存します。
お客様の人数が少ない日は、AとBだけ使い、
Cを使いません。

（エクセルの表）
A小計・B小計・C小計・ABCの合計

　①空白セルを選択、ムダな列を非表示
★②CのSUM関数による小計０を選択、ムダな列を非表示
　③表全体を印刷

②が「０が表示されているSUM関数のセル」です。
②さえVBAで自動化できれば、①から③までの
すべてを自動化でき、ムダがなくなります。

ややこしい説明で申し訳ありません。

2023/07/25(火) 00:40:20.70

>>653

おっしゃる通りです。こちらはVBAのスレ
でした。スレを汚して大変申し訳ありません。

2023/07/25(火) 04:35:19.33

>>654
sum文がどこのセルにあるかわからないなら >>649 のコードだけど、表形式のデータでsum文があるセルが固まって存在するならその範囲のセルの値を調べて値が0ならその列を非表示というVBAにしたほうがシンプルかと。

2023/07/25(火) 12:19:49.55

あくまで想像だがこんなシート？
a,=sum(1+2)
b,=sum(3+4)
c,=sum(5+6)
abc,=sum(a+b+c)
a,=sum(2+3)
b,=sum(1+0)
c,=sum(0+0) ←この行を非表示
abc,=sum(a+b+c)
...

2023/07/25(火) 15:40:59.03

>>651
ありがとうございます
すみません、インテリセンスではなくクイックヒントでした
MicrosoftのHPでそこは確認できているのですが、
クイックヒントとの相違についてが、調べきれませんでした

2023/07/26(水) 03:03:30.47

>>658
表示の誤りはよくあるのであまり気にしない方がいいぞ
どうしても気になるならサンプルコード書いて動作確認すればいい
修正パッチや最新バージョン入れたら直ってるかもしれんし、しらんけど

2023/07/26(水) 18:20:16.83

>>656

>>その範囲のセルの値を調べて
>>値が0ならその列を非表示というVBA
値を調べるVBAがあるのですね。ありがとうございます。

2023/07/26(水) 19:00:57.27

>>657

そんな感じです。ややこしい説明で申し訳ありません。

（表の並び方）
A・B・C・ABCの合計

A　　セル・セル・SUM関数（左のセルの数字を合わせた小計）
B　　セル・セル・SUM関数（左のセルの数字を合わせた小計）
C　　セル・セル・SUM関数（左のセルの数字を合わせた小計）
ABC SUM関数（AとBとCの合計）

Cの表を使わない場合、セルに数字を入力しませんので、
SUM関数のセルには「０」が表示されます。
「０が表示されているSUM関数のセル」を
選択し、列を非表示にするVBAを知りたいです。

2023/07/26(水) 19:07:35.36

>>661
If Range("C3").Value = 0 Then Rows(3).Hidden = True

2023/07/26(水) 20:12:43.45

こんな低能にVBAを弄らせるなよ
後でトラブルが発生するのは確実だろ

2023/07/26(水) 20:17:42.86

見えなくなったの戻せないとか言うんじゃね

2023/07/26(水) 22:06:19.18

>>662

０を選択、非表示にする事ができました。
皆様本当にありがとうございます。

If Range("●●").Value = 0 Then
Columns("●●").Hidden = True
End If

2023/07/26(水) 22:32:56.39

素人がスレを汚して大変申し訳ありません。
今後はROM中心に参加させていただきます。

2023/07/26(水) 23:28:32.94

素人って？？
ここにプロなんかいないよ。ましてや便所の落書き5ちゃんねるに。

2023/07/27(木) 01:39:10.67

>>659
そんなものなんですか
構文エラーなどで調べること多いんですが
エラー理由を知ると精巧に作られてるなと実感していたので意外でした
ありがとうございました

2023/07/27(木) 01:50:48.93

>>667
お前みたいな無知蒙昧の同類だろ

2023/07/28(金) 16:37:41.40

「あ6662」→「6662A」のように、頭に「あ」を含むセルは末尾に「A」をつけるようにするにはどうしたら良いですか？

2023/07/28(金) 16:47:20.78

s=range("a1")
if left(s,1)="あ" then range("a1")=right(s,len(s)-1) & "A"

2023/07/28(金) 16:47:51.90

>>671
ありがとうございます！

2023/07/29(土) 05:39:19.04

この程度の頭の連中がマイナンバーシステムを作ったのだろうな

2023/07/29(土) 06:07:34.04

>>673
あなたもデジタル庁の募集に応募すればよかったのにしなかったんでしょ？

2023/07/29(土) 07:20:09.13

>>669
あんたはプロなの？

2023/07/29(土) 08:28:16.14

趣味人

2023/07/29(土) 14:22:01.95

バイトで色んな仕事やった中にマクロ作成もあったけどプロ名乗っていい？

2023/07/29(土) 20:25:55.50

If Left(Cells(1, 1), 1) = "あ" Then
Cells(1, 1) = Mid(Cells(1, 1), 2) & "A"
End If

2023/07/30(日) 09:59:21.42

>>677
今もVBAで飯食べてるならプロを名乗っていいんじゃね？

2023/07/30(日) 10:12:26.79

VBAでは職業プログラマは無理だろ
あくまで本業で楽するための道具のひとつ

2023/07/31(月) 01:23:29.89

「そこが知りたい!Excel VBAプロの技 Excel97/2000/2002/2003対応!」
という本が「幻の名書」てことで、
アマゾンでも中古で8,575円になってる。
”素人には見向きもされない難解な本”らしい。
https://thom.hateblo.jp/entry/2015/08/17/211757

調べてみると東京都稲城市立中央図書館にあるとのことで、
18きっぷで南多摩まで行ったわ。
（ちなみに南多摩は無人駅だから・・・・・）
開架なので、誰かが借りてなければ閲覧できる。
かなりマニアックなことが書いてあるのかと思えばそうでもかなったな・・・・。
無駄足だった。
ほほーって思った記事は、for-nextよりfor-eachのほうが早いってことかな。
興味があるやつは稲城に急げ。

2023/07/31(月) 02:34:47.30

と転売屋が書き込んでます

2023/07/31(月) 09:02:43.19

転売屋がわざわざ図書館紹介するなんて
回りくどいことはしないかと。

2023/07/31(月) 10:07:47.32

古過ぎて「名著」とかちゃんちゃら可笑しい

2023/07/31(月) 10:21:03.99

今の365で出来ることまでVBAでしてた時代だろうしなぁ

**デフォルトの名無しさん** (ｽﾌｯ Sd8a-kvF/) · 2023/07/31(月) 13:03:47.11

タバコの臭いプンプンしてそう

2023/07/31(月) 17:54:55.55

どうでもいいけど　3*0.3333.....　ってやると
勝手に桁数直される時は1で直されん時は0.9999....　になるが見た目区別できない

2023/07/31(月) 19:25:33.86

先輩方に、VBAは自分を守るために使えと教わった。
決して他人のために使うなと。

2023/07/31(月) 20:36:11.68

>>688
True

2023/07/31(月) 22:08:50.60

>>689
うまwwwww

2023/08/01(火) 07:52:59.84

自己保身か承認欲求か
本性が試される

2023/08/01(火) 18:17:32.33

他人に頼まれて作ったらずっと注文されるから止めとけと言われた

2023/08/01(火) 19:11:32.30

こういうスレを見てるとわかるように馬鹿は厚かましくしつこく聞いてきて挙げ句の果ては作ってくれと言い始める

2023/08/01(火) 19:22:21.83

そうですよね。というか、あの人ならなんでもやってくれる的な便利屋扱いされる可能性がありますわ。
で、文句言われて終わると。

2023/08/01(火) 19:54:41.69

部署で使うマクロくらいなら作ってメンテもやってる
操作感と使い勝手がわかるから作りやすい

2023/08/02(水) 02:05:58.77

相談にはにっても、やってというのは受けない方がいいと思う

2023/08/02(水) 08:57:59.43

にかった

2023/08/02(水) 10:26:10.96

乗るw

2023/08/03(木) 03:53:57.20

相談にねった時点で負け

2023/08/03(木) 18:47:51.28

本来ならVBA頼まれたら作業料とるべきですよ。

2023/08/04(金) 13:53:32.70

セル更新時等に裏でどのようにVBAが動いてるか調べる方法って無い？

2023/08/04(金) 15:12:43.43

vbaにブレークポイント付ければ良いのでは

2023/08/04(金) 15:12:48.12

ステップ実行？

2023/08/04(金) 17:27:37.71

ブレークポイントで特定できた
ありがとう
なんかセル更新時に重いなって思ってたらユーザー定義関数を都度都度大量に再計算してた
揮発性無効にしても効果がないのでなんでかなと思ったらVLOOKUPの第2引数の範囲に入ってるのが原因
面倒だけどユーザー定義関数やめて普通の長ったらしい関数記述するしかないか……

2023/08/04(金) 20:57:58.34

高速化のテクニックは無数にある
無駄な計算を実行しないとか、画面表示を止めるとか、同じ計算を1か所にまとめるとか

2023/08/04(金) 21:09:48.87

と思ったらVBE開いてるときだけ重くなることが判明した
閉じれば普通に軽くなるから使う上では害はないか
なんか釈然としない

2023/08/04(金) 23:32:34.31

若い新人君がVBAマンやらされてて超可哀想
貴重な時間をそんなことで浪費して

2023/08/05(土) 03:45:51.67

給料上げてやるべき

2023/08/05(土) 08:17:27.77

なんか仕事の愚痴吐く人目立つけど仕事で使ってる人ばっかなの？
ゲームのデータ管理やオカズの整理にしか使ってないのに質問したの申し訳なくなるな……

2023/08/05(土) 08:34:55.78

ええんやで
使いたくて使ってる人と、
使いたくない人に使ってる人じゃモチベが全然違う

2023/08/05(土) 10:49:21.65

でも独学で手探りでやってる身としては仕事でやらせてもらえる人羨ましくも思うわ
書籍とか買うにも自腹だし誰も教えてくれる人も居ないし
何よりそれでお金貰えるの結構モチベになるんじゃない？

2023/08/05(土) 14:50:20.84

>>711
ほれ、あれだ。
「仕事でやらせてもらえる」
というのは当然、「成果」を期待されているわけで。

あーでもない、こーでもないと言いながら、
こうはできないか、ああはできないかを自分の時間でする
てのが、一番楽しいのかも知れん。

「VBA研究職」なんてのは、世の中にはないし。

2023/08/05(土) 20:48:08.79

税金から給料もらえる仕事に就くといいのでは

2023/08/06(日) 16:55:42.25

個人としてみれば、貴重な時間を割いて手伝ったところで他人の成果の向上につながるだけで見返り無し（どころか自分の業務を圧迫することも）
組織としてみれば、VBAで処理できる内容をスキル不足と協調性の無さから手作業でやられたりすれば非効率になる一方なわけで

大手なら教育体制やら個別技能評価あたりで全体を押し上げることもできるんだろうけど、中小零細じゃ厳しいよね
格差は広がる一方だね

2023/08/06(日) 18:30:00.92

大手でもそんなに制度がしっかりしてて綺麗に業務が分担してるとかじゃないよ
どこでも曖昧なもんよ
VBAで改善提案出して荒稼ぎしてる

2023/08/07(月) 18:09:37.03

ワークシート関数で業務改善しました上司の評価◯
VBAで業務改善しました＝上司の評価上司の評価＝△

2023/08/07(月) 20:15:56.29

>>716
VBAの式でエラー出しまくってそう

2023/08/08(火) 18:26:34.19

担当者がいなくなったあとも後任が直せることが大事だからね

2023/08/09(水) 10:14:25.88

理想はそうだが現実はそううまくいかないことが多い

2023/08/09(水) 18:15:35.75

後任者の知識が曖昧だとキツイですね

2023/08/09(水) 19:40:47.36

プログラマはやれているから
VBA職人もやったら良いと思う

2023/08/11(金) 19:08:12.63

何回かいろいろな職場を渡り歩いたけど、VBA書ける人は数える位しかいなかったのが印象残ってる。

2023/08/11(金) 19:25:22.67

>>722
それはあなたの職場の利益はVBAがメインではないというだけの事

2023/08/13(日) 20:44:24.20

VBAメインの職場？
エンジニアかい？

2023/08/13(日) 21:24:47.27

職場の中にVBAが書ける人が数えるくらいしかいないのか、大勢書けるのかはそういう職場ってだけで
それで利益が出ている会社(組織)であれば問題ないと思う

2023/08/14(月) 08:12:25.05

全く書けない人もいましたよ。ワークシートで使う関数で完結できるらしいから。

2023/08/14(月) 08:51:33.33

エンジニアというかプログラミングが本業で別言語が専門ならVBAにこだわる必要もないしな
というかBASICの派生言語は初心者向けと見做している節があるので必要が無いならあえて手を出そうとはしないだろ

2023/08/14(月) 10:01:28.83

>>726
自分より劣っている人みてどう思う？
そうなりたくないと思うのか、一緒になって馬鹿やっていくつもりなの？

2023/08/14(月) 10:38:54.28

文法の違いなんて大した問題じゃないから、まともなプログラマなら未経験でもすぐ書けるようになる
たまたま今まで必要になってなかっただけ

2023/08/14(月) 10:52:14.00

そりゃ必要無ければやらないだろ
別の選択肢があるのにわざわざVBA使う意味がない

2023/08/14(月) 18:28:40.53

今年度に入ってから、どうしても必要だったVBA&フォームをやっておいたから、Visual C#にもさほど抵抗なく入っていけたわ。

2023/08/14(月) 18:50:17.54

さすがに失礼でしょ。
自分より劣ってるとか一緒に馬鹿やってくとか、自分はそういった目で回りを見ないですから。

2023/08/14(月) 20:38:20.98

>>726
要は、それでその部署の業務効率がそれなりに上がっているのなら何の問題もないってこと
もしかするとあなたがVBAを使うことに拘っているだけで、そんな部署で周囲が不慣れなVBAを使う方が逆に非効率化につながったりするかもね

例えばただの会計部門があるとして、そこで発行する請求書の金額計算をVBAで即時計算するシートを作ったとして、これは本当に効率的なんだろうか？
そして他の社員から「消費税率変えたいんだけどやり方が分からないから書き直して」と言われたときに、「あー、これだからレベルの低い社員はー」とか嘆いた場合…
レベルが低いのはいったいどっちなんだろうか

2023/08/15(火) 00:12:24.51

そもそも会計ソフトがない職場って…
ニートなのか？

2023/08/15(火) 01:12:34.71

そういう会社たまに募集出てる。
手書きで帳簿締められる人って条件だったw