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/01(土) 18:26:06.43

1995年のExcelブームは覚えている

2023/07/01(土) 18:44:34.92

Windows95, Plus!95, Office95の3点セットがお約束

2023/07/01(土) 18:58:01.72

ChatGPTにおすすめのエディターを聞いたらRubberduckを
勧められたんだが使っている人は多いのか？
ググってもあまりヒットしない。何がいいのか教えて

2023/07/01(土) 19:04:32.16

>>589
死ねよ

2023/07/01(土) 19:06:53.69

>>586
それより前にMSDOSの上で動くwindows2とか3の時代があって初期のエクセルはそういうwindowsもどきの上で動いていた。ロータス123はのMSDOSの上で動いていたけど、もどきの上のエクセルのほうが優れていたから金融機関の先端部署はエクセルにシフトしていたよ。大衆に普及するのはwindows95以降だけど

2023/07/01(土) 19:13:33.10

Win2は日本未発売、Win3.0はほぼ失敗作で改良版のWin3.1日本語版は1993年発売

2023/07/01(土) 19:57:47.85

じゃあ何で俺は使えてたのかな
海外の同僚に Windows 2.1 送ってもらったのかな
グローバルビジネスだから日本語いらんのでそうしたかも
ともかく海外の同僚がエクセルを使ってるのが羨ましかった記憶だけはあるわ

2023/07/01(土) 21:11:53.28

むしろMSのOS使ってと1-2-3使ってない奴はモグリだろ
AppleのOSで使われてたのがExcelだし

2023/07/01(土) 21:15:52.32

Windows2.x（いくつだったかは忘れたけど）は日本でも使われてたと思うけど

2023/07/01(土) 21:23:58.72

ほぼ8801、9801の日本で使われてたわけねーだろ

2023/07/01(土) 21:31:34.20

MS-DOSの時代からあったMicrosoft Works　ワードプロセッサ、表計算、データベース、スケジュール管理、通信が
ひとつにまとまった、Microsoft Officeの前身みたいな製品　2009年10月まで販売されていた（らしい）
それと勘違いしてるか、若しくはもうすでに認知sy
5inchだったか3.5inchだったかのFD10枚セットパッケージにサンプル品としてExcel4.0デモ版が添付されてて
それでExcelの機能をお試しできた（らしい）

2023/07/01(土) 21:56:15.11

>>596
NEC なんか使わなかったようちは
at とか MT とか言うようなやつを使ってた記憶がある

2023/07/01(土) 21:57:25.75

ちょっとしたらマックだったかもしれない

2023/07/01(土) 21:58:16.58

Wikipediaによれば、PC-9800シリーズ用Windows 2.1日本語版は1989年6月にを出荷開始

あと「動け！Windows」なるサイトの「歴代Windows」ってページによれば、PC-9801用Windows2.0日本語版は1988年9月に販売開始

2023/07/01(土) 22:01:31.00

>>598
PC/AT互換機だな
そういや情報処理うんたらいう大会で相手校が持ち込んできたのもPC/AT互換機だったな、Windows95だったけど

2023/07/01(土) 22:08:29.48

>>601
そうそうなんかそういう名前だった

エクセル使いたくてマックも導入したかもしれん

2023/07/01(土) 22:11:05.38

VBAなんていらないおじさんがいないかハンティングにきたけど山に帰ったか
いいことだ

アメリカで優秀だと評判な韓国系の記事を前に読んだが名前もソースも覚えてない
キムなんとか？いわく

あるシーンを乗り越えようとする時、VBA(Excel)を使う選択肢がベストでない事を作る本人は理解している。だが、やろうと思えばVBAで最低限のものは出来てしまう。Excelがあらゆるものをそのレベルへの対応を可能にしてしまう。
それ故に良くも悪くもVBAは根強く残るのだ。Excelが優秀な事が足枷にもなるのだ。
「僕のオフィスは未だにExcelがメインツールなんだよ」
これは地球上の多くのカンパニーで呟かれているのさ

おしまい

2023/07/01(土) 22:25:46.41

ちなみに俺のVBAの熟知レベルなんて一年生レベル
ここの回答者には心の底から尊敬しかないね
質問に対して見下すレスは好きじゃないが

ここまで偉そうに要約もせずに長ったらしいレスを延々と続けたわけだがこうみえてパワポの資料作成とプレゼンは多分ここの玄人には負けない
役員報告も毎回俺が担当してる
自動車業界のQC全国大会に北海道まで行った事もある
上にいけばいくほどみんなアニメーションが大好き
理想の処理をさせる玄人と違ってパワポ映えさせて口でそれっぽくストーリーを作る虚構の権化、それが俺

使えてもいないAIを知った風に語るニートが現れたらまた狩りにくるわ

2023/07/01(土) 22:40:08.80

過去の栄光なんてどうでもいいんで

2023/07/02(日) 00:07:59.02

>>604
師匠と呼ばせてください。

師匠、Excelやっておけば社会で通用しますよね？
天下取れますよね？

2023/07/02(日) 00:26:41.62

とれるとれる
がんばってねー

2023/07/03(月) 09:02:24.50

キムバレークラークのトイペはなぜあんなに使い難いんだぜ

2023/07/06(木) 20:30:12.67

横に長い表があります
これの入力用にフォームを作っていますが、セルの値のフォームへの反映、フォームの値のセルへの反映を簡単に設定する方法はありますでしょうか？

今は、選択しているセルの行数をもとに、フォームのテキストボックスのCONTROLSAUCEを変更するVBAを使用しています

アドバイスを頂けると助かります！

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

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