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/10/18(火) 05:41:41.52

何度も繰り返し行なう作業とか面倒な作業ならVBA使うメリットもあるけど、その程度ならシートコピーとフィルターでさっさと手作業で済ませた方が手っ取り早いのでは？

2022/10/18(火) 07:10:04.49

>>890
画面の書き換えだけ止めとけば、たぶん、どの方法でも大差ないと思うよ
Unionは重いから、削除は一括じゃない方がいいかも
気になるならベンチマークとってみれば？

2022/10/18(火) 07:14:36.77

>>886
＞コード書き込みや作成依頼もOK
1をよくみような

2022/10/18(火) 08:05:51.17

個人的にはコード作ってとか書かれてたら困ってるんす金くださいと言われてるくらい嫌なので余計に作らないわ～
書くのは勝手だけど

2022/10/18(火) 08:46:11.19

誰もお前には頼んでないのに、俺は作らない宣言しちゃう人って自意識過剰すぎません？

2022/10/18(火) 09:30:46.00

>>881
1:30で書けたけど・・・
これぐらい書くのにみんなどれぐらい時間かかるもんなの？

Sub foo()
最終行 = Cells(Rows.Count, 7).End(xlUp).Row
For i = 1 To 最終行
If Cells(i, 7) = "" Then
Cells(i, 6) = ""
Cells(i, 8) = ""
End If
Next
End Sub

2022/10/18(火) 09:45:31.08

>>890
回答待つより実際に作って比較した方が早くない？

2022/10/18(火) 10:14:58.17

>>897
いい回答だと思う
自分でやればわかることを他人に聞くのってほんとバカなのかなと思う

2022/10/18(火) 10:42:22.37

>>881
Ruby で作ってみた。
未入力の列はnil となるので、a, c も未入力となる

require 'csv'

input_text = <<TEXT
,a
b,b
,c
TEXT

output_text = String.new

CSV.filter( input_text, output_text ) { |row|
row[ 1 ] = nil unless row[ 0 ] # nil の時
}

print output_text

出力
,
b,b
,

2022/10/18(火) 11:09:36.18

>>895
で、誰もお前に意見聞きたいとか頼んでないのにどうしてそんな自意識過剰な反応してんの？

2022/10/18(火) 13:16:40.55

>>899
見づら！
なにこのクソ言語

2022/10/18(火) 14:44:23.15

>>896
2～3分だな90分もかからんよ

2022/10/18(火) 19:46:45.52

ちょうど今日別々のシートの範囲Unionして二次元配列にしようと思ったらエラーだったな
同一シートじゃないと無理らしいね
二次元配列同士を結合したからまあいいけど

2022/10/18(火) 21:13:25.02

>>896
Nextのズレが気になって気になって今日は眠れないわ

2022/10/18(火) 23:15:32.25

変数に漢字w = 0

2022/10/19(水) 15:06:47.27

マウスで範囲指定した複数のセルから値を受け取ったり書き込んだりする方法はありますですか？

"A1:C3"　と指定した状態でそこに有る数値をVba側で受け取って一つ一つ何かをしたあと、
また今の指定した範囲のセルに書き込むとかです。

一つのセルであれば、ActiveCell.Value　とすればいいですよね。

2022/10/19(水) 15:45:02.14

日本語が不自由な人多いな

2022/10/19(水) 16:40:42.06

>>906
Application.Selection.Valueで出し入れできる
基本的に2次元配列を操作することになるが、
単一のセルだと配列にならないとか
複数の領域が選択されていたときにどうするかとか
細かいところを考えることになる

**906** (ﾜｯﾁｮｲ df2d-YUgo) · 2022/10/19(水) 20:54:47.64

>>908
大変重要なキーワードを提示いただきありがとうございます。

とりあえずの目的は達成できました。

また、これで詳しい内容をググりに行けますです。

**906** (ﾜｯﾁｮｲ df2d-YUgo) · 2022/10/19(水) 22:12:45.50

ここに書いてありました
ttps://detail-infomation.com/vba-selection/

2022/10/20(木) 01:06:22.80

>>896
>>899
ありがとうございます。

2022/10/20(木) 06:04:53.46

外出先でもスマホからマクロ実行したいからGASでプログラムやろうかと思ってる

2022/10/20(木) 07:03:58.77

勝手にやればええやん

2022/10/20(木) 09:47:53.53

GASいいよね
Googleスプレッドシートは単一のブックを皆で共有してつつき回すのが前提だから、
Excel VBAでよくあるようにデータとマクロ用ブックを分けて部署別の複数のデータファイルをVBAでまとめて集計するみたいなことをする必要性が低くて、
そもそもGASを書かなくて済むケースが多かったりする
外部APIとのデータ連携が必要なときくらいだな

2022/10/20(木) 10:11:29.65

ここで広げる話じゃねぇ

2022/10/20(木) 11:53:08.75

GASってスマホからも動かせるの？

2022/10/20(木) 12:40:27.98

もちろん

2022/10/20(木) 17:44:35.99

>>914
それってWeb版EXCELと何が違うの？

2022/10/20(木) 17:58:16.85

もちろん違わないよ
全く同じことがWeb版Excelにも言える
まあExcelにしちゃうとせっかく共有してても結局ローカルコピーを作るバカが必ず出てきて邪魔になりがちだから、間違った使い方をするのが難しいという点では好ましいかもね

2022/10/20(木) 18:01:51.16

それはWEB版を使いにくいと思ってる人が居るってことでは？

2022/10/20(木) 23:20:50.15

試しにAndroidスマホからボタン（図形）をクリックしたけどgasを実行できなかったよ
なんか色々と制約があるみたいだし、JAVAやC#でスマホアプリ作ったほうがいいな

2022/10/21(金) 00:43:10.35

どんどんスレの趣旨からはなれtrくなー
そもそもスマホアプリ作るならAndroidでC#使うならXamarin使うことが前提になるしiPhoneならSwiftかObjectiveCだろ

WindowsPhoneならxamlとC#かVB.Netで作ること出来たけど死滅しちゃったからなー
Javaは実行時に中間コード翻訳が挟まるから重いし
やっぱりスマホはiPhoneをSwiftで開発するのが最強だろうな
AppleのMacで開発することが前提になるからちょいお金が必要になるけど。

ExcelのVBAやってる人はMac買うんなら別途Windows も必要だな
MacのEXCELはVBAまともに動くことを期待しない方がいいから。

2022/10/21(金) 01:50:58.42

>>922
突っ込み所が多過ぎ

2022/10/21(金) 08:00:32.41

>>922
突っ込み所がほんと多過ぎ

2022/10/21(金) 17:19:06.50

質問ですが、
シートに動的に追加したボタンに対して、共通のクリックイベントを追加したいのですがやり方がわかりません。
教えてほしいです。

activesheet.buttons.addで追加したボタンに対して、
クラスモジュールで作成したクリックイベントを結びつけたいです。

2022/10/21(金) 17:20:50.78

動的にボタン作成しながらそのボタンに対して共通のクリックイベントを結びつける方法です

2022/10/21(金) 18:49:07.97

>>926
.OnAction プロパティにプロシージャ名を設定

2022/10/21(金) 19:01:18.29

基本的にはボタンのOnActionにマクロ（Subのメソッド）名を設定すればいいんだが
クラスモジュールのメソッドとか直接指定できないんじゃないかな
間に標準モジュールかますとかすれば行けると思うが

2022/10/21(金) 19:01:59.59

マクロの記録でもやればおおよそやりたい事のひな型のコードはできると思うんだよね
そういうやり方で解決できない人ってなんだろと思う
ActiveSheet.Buttons.Add(168, 108, 186.75, 66.75).Select
Selection.OnAction = "Macro1"
マクロで作ったこれを参考にすればいいんじゃないのと思うが
Addで作ったものをObject型の変数で受け取ってその変数のOnActionに代入するだけでしょ
それにググればこの程度はいくらでもでてくるんだけどね

2022/10/21(金) 23:26:00.91

>>928
確かに。
何でクラスモジュールのメソッドに紐付けようとするか謎だよな。
そもそもそれにはインスタンスが生成されていなければならない訳だし
VBAのクラスはそこまで万能では無いからシングルトンパターンでよく使われるみたいに自分で自分を生成することも出来ない。

そうすると前もって生成したインスタンスのメソッドに紐付けるしかない訳だけどそんなことVBAのクラスで本当に出来るのか？と思ってしまうわな。

2022/10/22(土) 09:44:18.85

クラスのモジュールではなくてもいいんですけど、何かしらの共通メソッドを呼び出せるようにしたいです。

動的に作った編集ボタンが100個くらいあって、編集するフォームを呼びだす共通メソッドに紐付けたいです。

2022/10/22(土) 10:00:21.77

初心者向けサイトに出てくるWithEventのやつじゃないの
クリックならいけるけどEnterとか一部はだめだから使わなかった

2022/10/22(土) 10:24:34.97

>>931
それは同じ関数呼んで引数で関数内で何とかするんじゃダメなの？

2022/10/22(土) 10:41:03.80

この辺？
https://thom.hateblo.jp/entry/2016/10/13/005105

Newしたcommandbuttonにaddeventhundlerみたいなことって出来ないのかな

2022/10/22(土) 10:49:28.11

だから何人も.OnActionだって言ってるのにアホなん？

2022/10/22(土) 11:20:03.36

目的や使用場面が不明だけど、それは1Sheet上にボタン100ヶ必要なものなのか？
そのボタンは、どう配列・配置されるものなのか　マス目に10×10とかなのか、タテとかヨコにぞろぞろ100ヶなのか
何らかのデータの塊の傍にボタンを動的に配置し、それを押すことでひな型の編集フォームを呼び出すというのか
>>934 とか上に書かれてきたサンプルを参考にして苦心して作れたとしても、結果として「それ違くね？」には成らないのか
設計の妥当性が問われる
「動的に編集ボタンをつくる」ための何らかのイベントが在るわけだし、だったらそれに結びつけた方が無駄が少ない　とも

2022/10/22(土) 15:30:44.10

>>936
確かにねー
でもリストの行の横っちょにボタン付いてて
そのボタン押すとその行のデータ読んできて処理するとか
ExcelのVBAじゃなくてもよくあることだし
そう考えると100どころか1000くらいくっついてても
それがユーザーにとって使いにくいとは言い切れない
ケースもあるから何とも言えないね

2022/10/22(土) 16:00:19.50

ポタン100個つけるならフォームは考えないでワークシートでselectionchangeでいいと思う

2022/10/22(土) 16:21:19.65

onclickでセルによって判別でもいいかもね

2022/10/22(土) 17:25:01.86

>>939
あ、そっちのほうがいいね

2022/10/22(土) 18:08:51.98

ボタンって最大何個ぐらい貼り付けできるんだろ？
メモリがあれば10万個とか貼れんのかな

2022/10/22(土) 18:14:52.06

>>938
>>939
確かにボタンにこだわる必要はないですね
セルクリック時にフォーム呼び出したらいいですね

2022/10/22(土) 22:30:23.86

と言う事で無事解決しましたね

2022/10/23(日) 11:33:27.17

Excelのイベントに onclick とか無いけどな
OnDoubleClick ならあるけど　余計な位置でクリック・ダブルクリックした時に
そのたんびに編集フォーム出るのを対策必要かな
違うイベントに関連付けた方がいいのかな

2022/10/23(日) 16:22:22.37

まあワイだったら単純にするために、
セル(か行)を選ばせて、
ボタンではその値を参照してフォームに渡させるって感じで作るけどな
シートにオブジェクト何個も置くのはワイ的に無し

2022/10/23(日) 18:53:55.43

初心者は100ぐらい根性で書けばいいのだ

2022/10/23(日) 20:53:35.93

>>946
そのあと「これは効率が悪い」と気付いて修正するならいいけど、それしか考えられず500,1000と増やし続けているおじさんがウチの会社にいます。

2022/10/23(日) 23:34:27.69

>>945
セルを選択させてボタンを押してその行の値をユーザーフォームに引き渡すの？

2022/10/24(月) 03:27:38.59

(；・∀・)1000個やった。。プログラマはすげぇやって思ったけど効率いいやり方あるんか。

2022/10/24(月) 06:08:08.92

似たような処理ならforでもdoでもいいから1000回ループさせればいいわいな

2022/10/24(月) 11:49:03.56

動いているなら問題ないと思うよ

2022/10/24(月) 20:02:23.15

時間できたら改修してみるわ

2022/10/25(火) 13:18:15.56

問題なく動いているのを変に直してバグ入れる人よくいる

2022/10/25(火) 14:05:40.72

ん？
俺の悪口やめろよ

2022/10/25(火) 15:35:28.46

wordVBAについて質問したいのですがここでも良いですか？
win10
2019版ですが、ページ番号5のページ全体を選択状態にしたいのですが、ググって見つかったrectangles(1)の手法は2019ではうまくいきません。
解説サイトがExcel VBAに比べてとても少ないので困っています。
ご存知のかたいませんでしょうか？

2022/10/25(火) 15:37:35.82

>>955
死ねよ

2022/10/25(火) 15:39:53.50

いや、あんたじゃないよ、おれの悪口だよ

**955** (ﾜｯﾁｮｲ c666-k5Vx) · 2022/10/25(火) 15:48:40.06

https://www.wordvbalab.com/code/3737/
ここで解決しました。

ルール違反だったようですみませんでした。

2022/10/25(火) 17:07:14.74

>>958
956が頭おかしいだけだから気にすんな

2022/10/26(水) 01:53:51.72

今は死ねとか言っちゃいけないんだぞ！

2022/10/26(水) 11:34:25.48

VBAのスレはこの今に存在するし、Excelって書いてあるのに無視して質問してる
更にはあまりにくだらないないようであるし
この手の連中はつけ上がるからな

2022/10/26(水) 14:36:09.42

なら誘導してやればいいだけだろ

VBAなんでも質問スレ Part3
https://mevius.5ch.net/test/read.cgi/tech/1631184381/

2022/10/26(水) 19:48:54.22

バカは死ななきゃ治らないそうですよ

2022/10/26(水) 21:41:45.13

>>963
それは残念でしたね

2022/10/26(水) 22:17:58.40

>>963
あっ・・・

**デフォルトの名無しさん** (ｽﾌｯ Sda2-0C0d) · 2022/10/28(金) 13:09:52.87

Excel初心者です。
カレンダーから日付入力のアドインをチェックボックスを使って表示・非表示したいのですが可能ですか？
また、スクロールしても画面内の同じ位置に表示し続けることは可能ですか？
できればコードを教えてほしいです(*_ _)

2022/10/28(金) 16:04:55.62

おまいら親切すぎるんだわ
どんだけお人好しなんだ？

2022/10/28(金) 16:17:16.47

>>967
って思うじゃん？
ここで回答すると、違っていた時やもっといい方法があるときに上乗せして回答される
すっげーいい勉強になるんだぜ

2022/10/28(金) 18:37:43.76

単にマウント取られてるんじゃなくて？

2022/10/28(金) 19:20:57.49

マウント取られるならむしろ勉強になるだろ

2022/10/28(金) 19:39:15.46

優劣つけたがる奴多いけど
技術的な解決方法の話（こういう方法もあるぞ）だったらマウントいうのはおかしくないか？

2022/10/28(金) 19:49:26.94

質問に対しての回答例ならマウントという表現はおかしいと思うが
その後の雑談は確かにマウントの取り合いに見える

2022/10/28(金) 20:29:32.46

僕が一番VBAをうまく使えるんだって言いたくなるのはわからなくはない

2022/10/28(金) 20:42:13.46

二位じゃ駄目なんですか

2022/10/28(金) 21:17:01.84

>>969
頼むからマウント取ってください！
とにかく俺の上のスキルを見せて欲しい。なんでもしますから！

>>971
実際、確実に上って人はいくらでもいるよ

2022/10/28(金) 21:23:26.29

お前がぐちゃぐちゃ入ってないで解答教えてやれや
971がやきもきしてるぞ

2022/10/29(土) 00:12:28.15

>>966
カレンダーアドインは使ったことないんでわからん
カレンダー程度なら自作できるので融通の利かないアドインは好かんのです

2022/10/29(土) 02:12:02.06

汎用性のある日付入力カレンダーの自作は結構大変だろ
休日祝日の更新処理が面倒で自作はあきらめた

2022/10/29(土) 07:19:37.14

>>978
最近使ってるが祝日はこれ使うと楽だぞ
https://excelapi.org/docs/datetime/holiday-list/

2022/10/29(土) 07:56:20.37

>>978
> 休日祝日の更新処理が面倒で自作はあきらめた
それ汎用性のある日付入力カレンダーでやることじゃないだろ...

2022/10/29(土) 09:53:33.94

日数算出するの面倒いよな
うちの会社は祝日が全部休みじゃないし

2022/10/29(土) 10:12:47.32

結局、日付入力はカレンダー形式やめてテキストボックスとスピンボタンで適当に誤魔化した

2022/10/29(土) 11:10:55.70

>>966
アドインでは無くてユーザーフォーム作ってそこにボタン配置してシート上のセル操作ならやったことある
[BttnF] という名のユーザーフォームを呼び出すのに、A1セルにボタン [cmdBttnF] を配置(ウィンドウ枠の固定でA1はずっと表示してるから)

Private Sub cmdBttnF_click()
With BttnF
.StartUpPosition = 0
.Top = 100
.Left = 800
.Show vbModeless
End With
End Sub
これだけで、画面スクロールしてもシート上の同じ位置に居続けるし、もちろんフォーム掴んで動かし回してもいい　×で閉じることもできる
うっかり閉じても、又A1セルにあるボタン押せば表示できるし

2022/10/29(土) 11:19:55.02

>>966
少しだけ補足すると、質問の文章がきちんと書かれていないので回答しにくい部分があって
EXCELのバージョンとカレンダーアドインについての情報がないので私の環境での説明では質問者のものと異なるかもしれない
アドインの表示/非表示はVisibleとかの表示関係のプロパティーは調べないのか
スクロール範囲は「ウインドウ枠の固定」かユーザーフォームとかが考えられるんじゃね

2022/10/29(土) 14:34:50.58

>>966　「カレンダーから日付入力」のアドインは個人用アドインに取り込まれて
毎回それをダイアログから追加するか貼り付けたまま使い続けるかの使用方法しかない様子
マクロの記録で一連の操作をしても望む動きしないし、ユーザーフォームに貼り付けるとか
コピペとかいろいろ試したけど、どれもできず断念
作者に交渉して「こういう使用方法したい」と改善依頼するしかないような　誰か他の案プリーズ

2022/10/29(土) 17:02:02.57

初心者あるあるの後だし条件

2022/10/29(土) 18:34:46.28

質問です。
VBAの処理の途中経過をログのようにコマンドプロンプトに表示させたいのですが、
どうすればよろしいでしょうか？
高速だと尚嬉しいです。

2022/10/29(土) 19:12:37.96

>>987
表示だけならユーザーフォームにテキストボックス貼り付けるだけでいいんじゃね

2022/10/29(土) 22:00:56.05

>>987
debug.printでイミディエイトウィンドウじゃだめなの？
フロートさせることもできるからわざわざコマンドプロンプトに投げなくてもいいと思う
https://i.imgur.com/yslLf52.png

2022/10/29(土) 22:52:21.52

ありがとうございます。
フォームか、イミディエイトウィンドウを独立に出すのですね。
VBAを別のシステムから呼び出すのですが、エクセルをアクティブにしていなくても前面に出てきますでしょうか？