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/16(日) 05:54:19.77

ネイティブ？

2022/10/16(日) 06:00:43.85

予め言語側で用意されてるってことじゃない

2022/10/16(日) 06:58:42.73

正規表現をRegExpオブジェクトで利用することはネイティブですか？

2022/10/16(日) 08:27:49.05

正規表現をRegExpオブジェクトで利用したらハゲますよ

2022/10/16(日) 23:46:46.75

性器のことしか考えてないから禿げるんじゃね

2022/10/17(月) 02:28:59.55

正規表現はexcelapiを使うのが楽

2022/10/17(月) 17:47:22.14

すみません、質問させてください
range内の空白セルを除いた部分を一気に配列に入れる方法ってありますか？
例えばA1、B2、A3、B3に1が入っていて、Range(Cells(1,1) ,Cells(2,2))を選んでいる状態で配列ArrにArr(1,1)＝1、Arr(1,2)＝1のみを入れる。ということです
「Range(Cells(1,1) ,Cells(2,2))を選んでいる状態」というのはFunctionで関数を作ったときにこの範囲を選んでいるという意味です
CurrentRegionを使ってもA2、B2の空白まで配列に入ってきてしまって困ってます

2022/10/17(月) 17:53:55.90

selectionでforeach回せばできる気がするけどな

2022/10/17(月) 18:05:29.40

一気にやるなら判定文をスピルで一気に適用するか

2022/10/17(月) 18:22:32.67

すみません、先程の質問の意図はvba 100本ノックの以下の問題を解いていましたhttps://excel-ubara.com/vba100/VBA100_062.html
最初に範囲内を配列にすべて入れてdictionaryで出す方法を考えたんですけど、範囲のところがA1:C5とかならいいのですが、A:Cだと、すべての行まで配列に入ってしまって、それの行すべて処理するようになってしまったので、数字が範囲内の最終行までを配列に入れることができれば処理速度も変わるので、そういう方法があればという質問でした

2022/10/17(月) 18:56:02.19

答えも解説も書いてあるんだからそれ見ろよ

2022/10/17(月) 20:25:02.38

>>874
へーそんなのあるのか

2022/10/17(月) 21:15:18.56

作成依頼です。

G列に空白セルがあった場合、その空白セルの隣のセルに入力されている値をクリアにする。

というコードを作成いただけないでしょうか。

よろしくお願いします。

2022/10/17(月) 22:12:03.14

いやです

2022/10/17(月) 22:18:07.47

待て、これは孔明の罠だ

2022/10/17(月) 22:23:49.67

F、G、H列を無条件で消せばいいのね

2022/10/17(月) 22:24:49.52

隣とはどっちだ
あまりにも指示が不明瞭でバカが書いたとしか思えない文章
スルーで決定

2022/10/17(月) 22:28:51.88

>>881
マジレスするとここは質問スレであり
作成要請スレではありません。

作る方法等を聞けば教えてくれる人もいるかも知れませんが、作ってくれと丸投げにした場合、
その見返りを要求されるか一蹴されるかして終わるのが関の山です。

自分でそう言った趣旨のスレを探すか立てるかした方が賢明と思われます。

**デフォルトの名無しさん** (US 0Hbf-459s) · 2022/10/17(月) 22:46:52.95

>>881
welcome to https://mevius.5ch.net/test/read.cgi/tech/1434079972/

2022/10/17(月) 23:47:38.34

>>884
消す方だったか、"クリア"って書くのかと思ったぜ

2022/10/17(月) 23:49:43.92

>>888
甘い
空(そら)と白(しろ)で合わせて空白まで読み取らないと

2022/10/18(火) 05:15:15.98

4000件くらいのデータのExcelファイルから
A. 特定の数十件の社員データを除いたデータファイル
B. Aで除いた数十件の社員のデータのみのファイル
を作成しなければなりません

元のファイルを2つFileCopyして
・Aから対象社員のデータをUINONメソッドでRangeに格納して一括削除
・Bから非対象社員のデータをUINONメソッドでRangeに格納して一括削除

もしくは

・Aから対象社員データをAutoFillterしてBに貼り付け
→Aから対象社員データ削除

を考えてますがどちらが速いでしょう
元の書式を活かしたExcelファイルが必要なので
CSV出力やExcelファイルにデータのみ転記することはできません

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

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