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/06(木) 21:12:54.93

入力にVBAなんか使うな

2023/07/07(金) 03:06:41.31

64bit使ってるところってあるのかな

2023/07/07(金) 03:42:42.23

32bitが主流だったのは2013とか2016の頃までだろ
今はVBAでも64bitが主流
いまどきのモダナイズExcelで32bitは扱いづらい

2023/07/07(金) 15:45:30.02

>>609
入力で手を抜かない
入力ミスをチェックする
カンマ区切りでsplitとか

2023/07/07(金) 16:46:13.42

すみません、ヒント・アドバイスありましたらお願いできませんでしょうか。

ネットワークよりJSONを取得しExcel内に表展開するVBA付ExcelをWindows環境で使用しているのですが、このMAC対応で苦慮しています。
MAC対応のため一部コードの修正・変更を行い、自分が借用したMACでは何の警告もエラーもなく動作するようになったのですが、先方に渡したMACで動作させると、下記URL画像の警告が出てしまいます。

https://imgur.com/nq4WNPk
メッセージも何もありません。

バージョンは全く同じ Microsoft Excel for MAC 16.74 (23061100) です。

HTTP通信を行う部分は、JsonConverterモジュールの一部FunctionをPublicに変更いたしました。
また、MAC対応のためDictionaryクラスモジュールをインポート済みです。

なお、当方MACは非常に不慣れです...
どなたか、アドバイスありましたらお願いできませんでしょうか。

2023/07/07(金) 17:04:26.85

不慣れなのに請け負うから　これを解決しても続けざまにアレコレ発生するのが目に見える
検証用に一台入手して今後のトラブルに備える覚悟無いならやめとけとしか
古いけどこういうことなんだろう
https://rogolog.com/excel-vba-mac/
https://memorandums.3ki3ki.com/mac-macro/
本家　(相変わらずなんちゅーアドレス
https://support.microsoft.com/ja-jp/office/set-the-properties-for-a-visual-basic-project-in-office-for-mac-23b73fb9-0467-46b1-b996-0a3453474881

2023/07/07(金) 17:08:05.71

そもそもVBAを使うのが間違い

2023/07/07(金) 17:26:38.99

>>612
そうなんだ、自分の周りではまだまだ32bitが主流なんで自分も64bitに変えられずにいる
てかごく一部だけどファイルのやりとりすると未だ.xlsで返してくるところもある
早く64bitが当たり前になってほしいな

2023/07/07(金) 20:07:48.30

>>616
他言語やっててもVBAくらいは使えるようにしとけ
Excel 使うならWebでJavaScript使うのと同じくらい重要だぞ

2023/07/07(金) 20:23:21.30

>>618
馬鹿は話しの流れを読み取れない

2023/07/07(金) 20:41:10.81

>>619
無能はスレに趣旨も読み取れない

2023/07/07(金) 21:18:11.39

またVBA否定おじさんが湧いてきてんのか
狩られる前に山に帰っとけよ

2023/07/08(土) 11:38:12.90

すみません。ど素人なのですが
excelのコメントの背景に画像を埋め込んで
画像をポップアップ表示していたのですが
列の操作をしていたらコメント表示が崩れてしまいます。
その度に一つ一つセルを選択して元に戻していたのですが
セルを選択して選択範囲のコメントを元に戻すマクロを作りたいです。

Range("選択範囲").Comment.Shape.LockAspectRatio = msoFalse
;縦横比を固定するの解除

Range("選択範囲").Comment.Shape.Width = 385
；サイズと角度の幅を385に指定；

上記2つの処理を選択したセルで実行したいです。
どなたかご教授願えませんでしょう？

2023/07/09(日) 06:16:39.66

>>622
Range("選択範囲”) の部分を Selection にする

2023/07/11(火) 11:46:33.86

条件付き書式設定だけを直接コピー＆ペーストする方法はありますか？
PasteSpecial メソッドの xlPasteFormatsだと値もコピーされるので困っています。

2023/07/11(火) 20:18:45.24

かきこめねぇ

2023/07/18(火) 10:54:26.03

>>624
xlPasteFormatsなら書式設定だけが貼り付けされるはず
値もコピーされる状況が再現できるならコードがどこか間違ってるんじゃないかな
xlPasteFormulasになってるとか-4122が-4123になってるとか

2023/07/18(火) 11:30:44.90

あ、もし条件付き書式以外の書式設定を貼り付けたくないって場合ならPasteSpecialじゃできないよ
コピー元のFormatConditionsコレクションのインデックスをループして、
ModifyAppliesToRangeとかAppliesTo.Resizeとかで範囲を変えるしかないんじゃないかな
連レス失礼

2023/07/20(木) 08:56:12.31

バブル当時は零細企業なんてExcelはおろかPCは職場に１台あるか無いかでしょ

2023/07/20(木) 10:09:00.32

バブル期はロータスと一太郎の全盛期

2023/07/20(木) 20:32:09.68

ロータスとか一太郎使ってた奴は
今頃もう定年退職してるだろうな

2023/07/20(木) 22:57:39.36

十代で使ってたからまだ現役だよ😙

2023/07/21(金) 21:59:28.58

一太郎2023 でてるよ

2023/07/22(土) 02:59:24.38

再来年で定年だよ

2023/07/22(土) 06:03:31.52

ロータス時代なんて教則本とかあまり無かったから、その世代の人達は自分で考える力が桁違いに高いね

2023/07/22(土) 09:06:11.45

今みたいにネットで調べることが出来ないので、サポートデスクに電話して教えてもらうんだけど、口頭だとなかなか言いたいことが伝わらないで大変だった。
爺の昔話は苦情が来るからここまで。

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

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