Excel VBA 質問スレ Part77

**デフォルトの名無しさん** (TW 0H42-j7SA) · 2022/07/17(日) 07:07:35.59

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

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

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

※前スレ
Excel VBA 質問スレ Part76
https://mevius.5ch.net/test/read.cgi/tech/1651339421/

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

2022/08/04(木) 23:44:38.37

>>229
他人と共有するものは、それなりにきちんと書かないといけない（ドキュメンテーションも含めて）けれども、自分ひとりが便利に使う書き捨てマクロまで禁止にするなんて、どうかしていると思いますよ
イノベーションイノベーションとうるさいくせに、そういうのを禁止するなんて矛盾していることに気がつかないのでしょうか？

2022/08/05(金) 00:23:11.85

>>230
それが正確ならいいんだけどな。

2022/08/05(金) 00:38:13.23

>>225
面白そう
口パクみたいな感じで、働いてるフリすりゃいいんだろ?
実際には裏でVBSでも動かしておいて

2022/08/05(金) 03:55:39.38

人間がやらなくてもいい業務をやり続けるのってすげぇ時間の無駄だと思うんだけど
その業務から学ぶことなんて何も無いだろうし
目先の金を拾うだけの仕事は良くないと思う

2022/08/05(金) 04:30:48.50

属人化、なぜか暇そうにしてたからリストラ、腹いせにパスワードで業務が止まったと見た

2022/08/05(金) 07:35:30.37

公式な部署や担当を当てて書かせたんじゃなくて各々が自分用に書いてたんだろ
コードが残らないようにしとかないと混乱するし業務効率が違いすぎて「不公平」だと騒ぐやつとかいたんじゃないの

2022/08/05(金) 08:01:13.52

過去にタダ乗りされて酷い目にあったから使ってても教えない

2022/08/05(金) 08:25:59.90

どうしたら上手く運用出来るかを考えずに一律禁止にしてしまうところがJapですね

2022/08/05(金) 08:36:02.57

個別最適を無視するトップダウンな判断ができるのはむしろ非Jap的だと思う
Japはゲンバにクチダセナイからな

2022/08/05(金) 10:47:16.04

スレと関係ない話題なんだから他でやれよ

2022/08/05(金) 11:33:11.96

Excelユーザーは誰もがVBAを使いこなしてると思い込んでいたわ
初心者の頃

2022/08/05(金) 11:46:42.49

まるで初心者じゃないみたいな言い方だな

2022/08/05(金) 13:00:55.34

じゃあランク付けしてくれよ
ちなオレは軍曹クラス

**デフォルトの名無しさん** (ｽﾌｯ Sd9a-dSCr) · 2022/08/05(金) 13:03:45.49

マニアじゃないから軍事用語なんか使われても強さがわからんわ
ケロロ軍曹しか知らんし

2022/08/05(金) 15:11:50.94

Excelそのものも少数の人間だけが知っている運用ルールがあったりする。

わけのわからない表の解読に困ることもあるし、日本人はチームワークが得意だから、暗号のような記載ルールを勝手に決めていることもある。

2022/08/05(金) 18:30:26.77

軍曹は部下が11人いるので、課長クラスでは？

2022/08/05(金) 18:37:25.28

表計算ソフトを誰がどんな使い方しようが関係ないし、なんとも思わない

2022/08/05(金) 18:44:56.08

セルを小さくしてドット絵のようにして図解を描いたことならある。

2022/08/05(金) 19:17:52.69

元帥（名誉職・総司令官）⇒ 名誉会長
大将 ⇒ 会長
中将 ⇒ 代表取締役社長
少将 ⇒ 専務
大佐 ⇒ 常務
中佐 ⇒ 平取締役
少佐 ⇒ 事業部長
大尉 ⇒ 副事業部長
中尉 ⇒ 本部長
少尉 ⇒ 副本部長
准尉 ⇒ 本部長代理
曹長 ⇒ 部長
軍曹（ケロロ）⇒ 副部長
伍長（ギロロ）⇒ 部長代理
兵長（ドロロ）⇒ 課長
上等兵 ⇒ 課長代理
一等兵 ⇒ 主任
二等兵（タママ）⇒ 平社員

副部長くらいかなw

2022/08/05(金) 19:56:38.88

>>247
パックマン作ったやつもいるけどな

2022/08/05(金) 20:00:30.00

>>248
ごめん、軍曹を舐め過ぎた
上等兵くらいでした

2022/08/05(金) 23:36:41.76

>>248
尉官以上の士官とそれ以外は全く別の世界
本邦警察のキャリアノンキャリアは軍組織を元にしてる
民間での平から社長に登り詰めるみたいなのは不可能

2022/08/05(金) 23:46:50.13

>>251
ネタにガチ突っ込みされてもw

2022/08/06(土) 00:52:54.67

元帥クラスって誰辺り？
Office tanaka?

2022/08/06(土) 09:07:43.92

>>253
あの人以上はほぼいないだろうからそれでいいんじゃね
上等兵の俺はオブジェクト指向が解らんでつ

2022/08/06(土) 09:27:03.45

かなり昔だが、会社の同期がその人の講習会に参加したときに、「私より高いテクニックを持った人はいたとしても、分かりやすく教えられるスキルを持った人はほとんどいないからね～、私はテクニック至上主義ではない、実用的なやり方を分かりやすく教えられるプロ！」
みたいな話をされていたそうだ。

他人に教えるのって１番難しいわね。

2022/08/06(土) 10:37:03.49

事実としてそうなんだろうけど自分で言うのはどうかと思う
まあ講演会やるような人はこれぐらいの押しの強さが必要なんだろうけど

2022/08/06(土) 12:06:15.13

いっぺんでもやってみるとわかる、教えるのって難しい
パソコンやExcelのことを周りからよく質問されるけど、いつも四苦八苦する

2022/08/06(土) 13:34:52.70

教えるのもマンツーマンなら比較的簡単だけどな

2022/08/06(土) 13:42:21.52

>>258
いやらしいな

2022/08/06(土) 15:38:42.52

>>225
>>228
どういう業種なんだろ
馬鹿な対応っぷりからすると御役所系？

2022/08/06(土) 15:43:10.30

>>257
せっかく教えても肝心な質問した方が話聴いてなかったりするからな

2022/08/06(土) 15:45:16.89

ネットで検索するような解決手段を教えた方がいい。

2022/08/06(土) 19:40:38.17

>>256
確かに。
まあアピールポイントに特徴ある人だと思う

2022/08/06(土) 21:13:56.39

講演活動は知識だけの人が多いからなあ

2022/08/06(土) 21:38:32.41

ちょっと何言ってるかわからない

2022/08/07(日) 02:04:59.69

>>265
実務経験ゼロでも成り立つ

講演、物書き、教育は、実務経験ゼロの会社がたくさんある。

だから、実例がすぐに出ない。

2022/08/07(日) 05:34:07.23

実例も知識じゃねーの

2022/08/07(日) 10:09:42.78

スレにまったく関係ないけど思い出した
取引先からある事情でビジネスマナー講義の受講（講師はそこの女社員）を強制されたことがあって
最初ら違和感あった（俺の親が逝ったと告げても何の反応もなしとか）けど講義内容に矛盾があったので指摘すると猛烈な人格批判が始まって驚いた
他日ウチの社長がそいつの社長（中小同士で学生からの友人）に会いに行ったときにちょっと遅刻したことがあって
秘書気取りのその女が用事があるからと言いつつウチの社長を小一時間ほど待たせた
流石に何かおかしいと思ったウチの社長が事情を問うと「取引相手を待たせるのはトップ失格だそれを自覚させるためにやった」などと主張したそうだ
つまり一種のコミュ障でコンプレックスある女が他人を見下ろすために知識の寄せ集めだけで副業に仕事をしていたって話
冒頭のある事情ってのも察してもらえれば

2022/08/07(日) 10:59:56.86

性格や考え方に問題あっても知識があるならいいんじゃね
実務経験があっても知識のない上司に相談して解決するならそうすればいいし
そもそも自分に知識があれば全て解決できるわけなんだが

2022/08/07(日) 11:09:10.44

日本の企業は人材の性格も重要視するもんね。
能力あっても人間がクソなら採用見送ったり出世対象から外したり。

2022/08/07(日) 12:24:17.99

性格は欧米の方が重視されるぞ
文化的民族的背景が多様で自己主張も激しいから、クソ野郎は問答無用で切っていかないと無茶苦茶になる
日本はなんだかんだそこまで酷い人間は稀だからな

2022/08/07(日) 12:57:45.84

>>268が不明瞭なので補足
寄せ集めの知識というのは複数著者のテキストを咀嚼せず文字通りコピペしてるって意味
例えばビジネスコミュニケーションでは科学的根拠に基づかなければいけないというパワポ資料の次ページでナントカ占いみたいな性格判断が出てきたりとか

2022/08/07(日) 14:41:48.83

説明が下手くそな輩ばっかだなこのスレ

2022/08/07(日) 15:39:52.33

>>273
確かにそうだな
ここはお前の力の魅せどころだぞ

2022/08/07(日) 16:25:54.73

いや、言っている事は分かるから全然良いですよ
ただ、要点だけまとめてくれたら読みやすいかなーと。
同志達たのんます。

2022/08/07(日) 17:53:18.30

VBAと関係ないおっさん達の自分語りはいつ頃終わりますか？

2022/08/07(日) 17:57:35.06

>>276
お前みたいに構うやつがいなくなるまで無理じゃね

2022/08/07(日) 18:06:12.30

>>276
ほんと他で話せばいいのにと思うよな
質問来てもろくな回答もできないからこういう答えの不要なレスするしかないんだろ

2022/08/07(日) 18:32:46.70

まぁ質問者がいないときはいつもこんな感じだけどな

2022/08/08(月) 10:19:45.18

質問いいですか？

2022/08/08(月) 14:27:36.15

どうぞ

2022/08/08(月) 22:16:45.25

VBA でモテるにはどうしたら良いですか？

2022/08/08(月) 22:25:23.54

そんなことをここで聞いてる時点で無理

2022/08/09(火) 10:07:28.51

Excelできれば女子にモテるぞww
とか言われたからExcel始めたけど
ウソだったわ。
逆にキモがられるようになったら。

2022/08/09(火) 10:20:16.32

>>248
カプコンの1943思い出した
ステージクリアで尉官が上がって最終的に特別中将だったかな
よく考えたら社長クラスが一人で突撃ｗ

2022/08/09(火) 11:12:29.84

Excel出来るようになったのではなく他に問題があるのでは🤔

2022/08/09(火) 14:08:30.02

>>284
だまされたんだと思う、もうExcelやめた方がいいよ

2022/08/09(火) 14:53:29.86

>>287
分かった。
Wordに移行するわ。

2022/08/09(火) 15:01:15.06

草

2022/08/09(火) 15:23:13.16

Excelできるけど仕事はできない人

2022/08/09(火) 20:40:53.82

パワポ男子の方が格好いいと思うなあ

2022/08/10(水) 08:38:11.60

excel365でファイルを更新した形跡を全く残さない方法って何かありませんか？
弄る部分はマクロのコードのみです
業務を格段に楽にするマクロをいくつも組んでやったのに感謝も薄く図々しく給与にもビタイチ反映されなかったので
このクソブラック企業を辞めるときに全部壊していきたいのですがバレるとアウトなので
変えないようにしたいのはファイル名の横に出る更新日時です

2022/08/10(水) 09:10:02.43

エクセルのＶＢＡって2000から現在までの間に
ここで大きく変更があって互換性に問題があるみたいなのありますか？

2022/08/10(水) 10:06:18.63

>>292
一応言っておくけどお前のやろうとしてることは犯罪だし、回答書くと犯罪幇助になるから

2022/08/10(水) 10:07:16.58

>>293
2007 辺でグラフ周りが色々変わって過去のマクロでエラー出たことがある

2022/08/10(水) 10:10:55.76

そこそこあると思うよ
なので自分はバージョンごとにコードを振り分けたりした
実際に試したほうがいいんじゃないかな

2022/08/10(水) 10:22:34.51

>>293
64bit化、ワークシートの大きさ、ワークシート関数の増減など、バージョンごとにどんどん変わってる
何を問題とするかは人それぞれで、利用環境や目的にもよるので、ちょっと質問が曖昧すぎ

2022/08/10(水) 10:36:03.23

>>292

こいつみたいなのがまさにこういうパターンだ

馬鹿が内容も理解せずコピペで作ったマクロのせいで間違いが発生していた
コピペ主体だからメンテ不可能だった
そのくせ馬鹿は自分が他の人より偉いと思い込んでいた

2022/08/10(水) 11:45:31.80

犯罪の質問なんて無視しとけよ
構うお前も同じなんだぞ

2022/08/10(水) 11:53:09.98

嫌がらせして辞めたところで迷惑を被るのは同じ作業してるポジションの人か後任の人だろうからやめとけ
査定をしてる立場の人達は痛くも痒くもない

2022/08/10(水) 12:39:15.19

うちのブラックに来たら誰でも同じことしたくなると思うけど
犯罪なのは分かったからやめとくわ
あと言っとくけどうちにはマクロ組めるような奴はいないし
体系的に学んだ上きれいなコードで書いてるからくだらんレッテルはいらない

2022/08/10(水) 12:55:04.32

>>292
マクロ作るのもあなたの業務だったのでは？
会社で仕事して給料もらえてたのにそれ以上のことなんかないよ

2022/08/10(水) 13:53:09.69

> 犯罪なのは分かったからやめとくわ
犯罪じゃないと思ってたのかよ...
まじでヤベー奴やんw

2022/08/10(水) 14:04:12.08

気持ちは分かるが犯罪はいけないな。
次回からはそういうことに備えて
マクロにパスワード掛けて
時間が経ったら期限切れのメッセージでも
ポップアップして処理を中断させる
ようにでもしておけばいい。

もっとも、自分の作業効率化のために
頼まれてもいないのに勝手に作ったというなら
根こそぎ消しても問題ないとは思うけどな
どうしてもしたいというなら
法テラスにでも相談しに行けばいい。

2022/08/10(水) 14:26:23.92

If Date > 退職日 Then
Exit Sub
End If

あとは全部インデントなくすとかコロンで繋げるとかプロシージャ名を処理内容と紐づかないものにするとか

色々引き継ぎの嫌がらせは考えたことあるけど、やったら何訴えられるかわからんからやらない

2022/08/10(水) 14:28:02.85

てか保守出来る人居ないなら何もしなくてもそのうち会社は面倒事に巻き込まれるだろ

フォーマットがちょっと変わったり、新しい特殊な項目が追加されて使いものにならなくなったりするし

2022/08/10(水) 15:51:28.73

放置すればいいものを
くだらない話には食いつく奴ばかりだね

2022/08/10(水) 15:58:20.27

123 10
123 11
123 15
空白
空白
124 18
124 22
空白
125 20
空白
126 15
126 10

みたいな並びのコードがあって、
上下のコードが同じ場合、コードの隣の数字を10%で割り戻した数字を計算したものと、10の数字をそのままにしたものを2つ持っておいて、コードが変わるところまでそれぞれ計算したら、コード単位で10%で割り戻したものの合計値と、割り戻してないものの合計値の差分を
一行挿入して差額として123のいくらと転記
空白行は無視。
差額が出ない場合（基本的にはないけど）は行の挿入はしない、
というvbaって作るの可能？
差額を持たせることまではできたんだが、
挿入のところでこれ無理では？と思って止まってます。

2022/08/10(水) 16:00:49.46

ちなみにデフォルトで入ってる空白は無視です

2022/08/10(水) 18:18:34.25

>>308
挿入/削除はいろいろ面倒だから簡単にやるには別シート（もしくは別列）に転記しながら処理して最後に書き戻すのがわかりやすいと思う
スマホから入力してるから細かいミスはあると思うがこんな感じ
Dim S1 As WorkSheet: Set S1 = WorkSheets(1)
Dim S2 As WorkSheet: Set S2 = WorkSheets(2) ' 空のシート
Dim R1 As Long
Dim R2 As Long: R2 = 1
Dim N0 As Long: N0 = 0 ' 元の値合計
Dim N1 As Long: N1 = 0 ' 割戻し合計
Dim C0 As String ' 処理中のコード
C0 = S1.Cells(1, 1).Value
For R1 = 1 To S1.Cells(S1.Rows.Count, 1).End(xlUp).Row
Dim C1 As String ' 現在のコード
C1 = S1.Cells(R1, 1).Value
If C1 = "" Then Goto Continue
If C0 <> C1 Then
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
C0 = C1: N0 = 0: N1 = 0
End If
S2.Cells(R2, 1).Value = C1
Dim N2 As Long: N2 = S1.Cells(R1, 2).Value
S2.Cells(R2, 2).Value = N2
R2 = R2 + 1
N0 = N0 + N2: N1 = N1 + 0.9 * N2
Continue:
Next
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)

2022/08/10(水) 19:06:30.56

スマホからこんだけ入力するのは感心するわ

2022/08/10(水) 19:40:10.67

>>310
ありがとうー！！
後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
別シートに単純に一度書き写していって最後に読み戻すってのは目から鱗です
確かにそっちの方が問題なくできるかもしれないです
試してみます！

2022/08/10(水) 20:46:14.74

>>312
> 後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
If C0 <> C1 Then
で、コードが変わった事を検出して変わったら

S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
で、差分を追加して

C0 = C1: N0 = 0: N1 = 0
で、新しいコードを覚える共に合計値を初期化してる

2022/08/10(水) 20:48:55.75

こんなことがわからない奴が金計算をVBAでするなんて

2022/08/10(水) 20:57:23.40

テキストファイルからキーワードが含まれてる行をセルに書き込みたいです
キーワードが８個あります
行＝Ｂを「商品」か「価格」を""に置換して
元のＢと違ってたら書き込むようにしたんですが
もっと簡素な方法ありませんか？

Open A For Input As #1'Aはテキストファイルのフルパス
Do Until EOF(1)
Line Input #1, B '1行分だけ読み込み
If B <> Replace(B, "商品", "") Then
i = i + 1
Cells(i, 1) = B 'セルへ入力
Else
If B <> Replace(B, "価格", "") Then
i = i + 1
Cells(i, 1) = B 'セルへ入力
End If
End If
Loop
Close

2022/08/10(水) 21:00:16.39

なんで商品と価格のReplaceを分けるのか

2022/08/10(水) 21:07:20.86

>>315
InStrは嫌いなの？

2022/08/10(水) 21:43:46.56

>>313
ありがとうございます、
勉強中なので質問なんですが、
C1:N0 ＝0:N1=0の中の:ってどういう意味なんでしょうか？

2022/08/10(水) 22:04:25.44

突っ込みどころ満載の質問久しぶりね

2022/08/10(水) 22:24:43.27

>>315
> キーワードが８個あります
これはどうなったの？
単に複数のキーワードが含まれてるかを見たいだけなら
Line Input #1, B '1行分だけ読み込み
Dim K As Variant
For Each K In Split("商品,価格", ",")
If B Like "*" & K & "*" Then
Cells(i, 1).Value = B
i = i + 1
Exit For
End If
Next

2022/08/10(水) 22:31:30.17

>>315
どんなやり方でもいいと思うけどキーワードを含むかどうかを関数にするといいんじゃない
Function CheckKeyword(ByVal pValue As String) As Boolean
CheckKeyword = True
If pValue <> Replace(pValue, "商品", "") Then
Exit Function
End If
If pValue <> Replace(pValue, "価格", "") Then
Exit Function
End If
残りのキーワードも同様に判定
CheckKeyword = False
End Function
これを使えば
i = i + 1
Cells(i, 1) = B 'セルへ入力
の部分は1つでいいよね

2022/08/10(水) 23:03:22.07

>>318
VBA マルチステートメント
でググってくれ

2022/08/10(水) 23:23:06.57

>>318
改行みたいなもん。たとえば
N0 = 0
N1 = 0
という複数行のコードを1行にまとめることができる
N0 = 0: N1 = 0
だけど、やらない方がいいと言われている

2022/08/11(木) 19:50:59.53

変数宣言と同時に初期化する用途に限って俺は許容してるな
それよりif文を1行で閉じる奴が凶悪
ネストするとEnd ifの数が合わなくなる

2022/08/11(木) 20:39:49.16

>>324
変数宣言と一緒に初期値設定する人はよく見かけるしアリだと思う。
同様に実は特殊な場合に限りIf文を一行で記載することもある。
本来構造化言語で使わない方が良いとされているGoto文も特殊な場合に限り使うこともある。

VBAは結構何でもありの言語だからその辺、仕事場のコーディングルールや
作ってる人のマイルールによって随分違いが出てくる。

一概にどんな方法をとることが最善とは言えないから人の書いたソース見てると面白い。

**デフォルトの名無しさん** (ｽﾌｯ Sd33-woMg) · 2022/08/11(木) 20:49:36.22

Ifの中身が1行だけの時に全体を1行で書くのはマルチステートメントとは違うくない？
If a = 0 Then b =0
あくまでコロンでつなぐ場合のことでしょ

**310** (ﾜｯﾁｮｲ 1301-lJ3c) · 2022/08/11(木) 21:33:22.70

俺も本来はマルチステートメントは使わないけど、5chのレスは行数制限あるからマルチステートメントにしてるだけ
そもそもこの手の話は好みもあってどっちが正しいとかはないからそろそろやめようよ

2022/08/11(木) 22:00:47.13

そもそもダメだとか誰が言っているのだろうか。。

2022/08/11(木) 22:06:50.77

○○ならアリって言ってるってことはそれ以外はナシって受け取る人もいるだろ
提供されたコードをそのまま使うだけしかできないならそれだけの話だし
自分のルールに従って直せばいいだけの話で人のコードにケチ付ける必要なんてないだろ