Excel VBA 質問スレ Part64

1 ：デフォルトの名無しさん ：2019/12/02(月) 23:43:54.18 ID:ngrqyTy20.net

!extend:checked:vvvvv:1000:512

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

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

---

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

956 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-tJbe)：2020/03/13(金) 11:44:52 ID:ojnGj1Dgr.net

>>953
これは電子書籍無料ダウンロードはできないのね
見るだけか

957 ：デフォルトの名無しさん ：2020/03/13(金) 12:07:27.45 ID:ZeWzgGw60.net

>>953
いいね！

>>954
ソース？

958 ：デフォルトの名無しさん ：2020/03/13(金) 14:33:35.87 ID:DsczgAs80.net

https://devblogs.microsoft.com/vbteam/visual-basic-support-planned-for-net-5-0/
今後、Visual Basicを言語として進化させる予定はありません。
言語の変更を必要とする.NET Coreの将来の機能は、Visual Basicではサポートされない可能性があります。
プラットフォームの違いにより、.NET Framework上のVisual Basicと.NET Coreにはいくつかの違いがあります。

959 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b901-FfQu)：2020/03/13(金) 15:39:53 ID:yxSDhoD50.net

>>956
画像ファイル1ページずつならできないわけじゃないけど面倒やね
例えばクロームのデベロッパーツール使うと

960 ：デフォルトの名無しさん ：2020/03/13(金) 16:28:43.22 ID:hr/TjqNF0.net

廃止じゃないじゃん
馬鹿は死ねよ

961 ：デフォルトの名無しさん ：2020/03/13(金) 18:21:15.27 ID:cgyHyg3GM.net

>>960
死ぬのは、スレ違いネタに必死になってるおまえの方だよ

962 ：デフォルトの名無しさん ：2020/03/13(金) 23:23:36.16 ID:VPbZTknR0.net

いやいやお前だろ

963 ：デフォルトの名無しさん ：2020/03/13(金) 23:39:30.54 ID:sLWP0xGH0.net

わかった！オレがしぬ！

964 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c633-ioXh)：2020/03/14(土) 09:26:33 ID:cldo6UeB0.net

罰が当たってコロナに感染重症化しそう

965 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8549-rHbc)：2020/03/14(土) 09:28:47 ID:XOiIzQdu0.net

わかった！おれもしぬ！

966 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sac5-CfvC)：2020/03/14(土) 09:55:43 ID:8jJQrMy3a.net

はいはい！オレもしぬ！

967 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0994-GmOQ)：2020/03/14(土) 16:27:40 ID:juE+caHb0.net

A列の数字に対してabc順に処理をしたいんですがどのような構文にすればいいでしょうか？
A B C
1 a d
1 b e
1 c f
2 g i
2 h j
3 k l

968 ：デフォルトの名無しさん ：2020/03/14(土) 17:03:17.53 ID:9mSKrJ1e0.net

>>967
abc順に進むカウンターでループ
BC列の各セルに対しfor eachループし、 カウンターと一致したら同行A列の数字に対して処理を行う

969 ：デフォルトの名無しさん ：2020/03/14(土) 17:48:23.61 ID:juE+caHb0.net

>>968
すみません説明が悪かったです
A列を組としてB列を男C列を女としたときに
1組の男、1組の女、2組の男、2組の女‥‥の順でそれぞれ上から処理する形です

970 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2eba-ioXh)：2020/03/14(土) 18:22:21 ID:nT2WeRIi0.net

>>967の例で言うと
1-a (B1)
1-d (C1)
1-b (B2)
1-e (C2)
1-c (B3)
1-f (C3)
の順に処理したいって事？

971 ：デフォルトの名無しさん (ﾜｯﾁｮｲ feca-FfQu)：2020/03/14(土) 18:47:53 ID:7lWVnCph0.net

オレ： >>968すげぇ！　>>967が言ってる意味分かるんだ！！
オレ： >>969？、組？男？女？　964を見てそれを想定するの、人類にはムリだよ…
　　　で？　結局「処理」って何なん？
オレ： >>970すげぇ！　さっぱり分からん！！

972 ：デフォルトの名無しさん ：2020/03/14(土) 18:53:08.37 ID:JrGvwLlh0.net

アルファベット順だろ
A列がソートされてるんならIFで一個下と比較すりゃいいだろ
されてないならソートしろ

973 ：デフォルトの名無しさん ：2020/03/14(土) 18:53:46.16 ID:wiK5yt+U0.net

>>971
わかる
エスパー

974 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ed8e-TDt8)：2020/03/14(土) 19:24:58 ID:JhfhrpV40.net

馬鹿は自分頭の中で整理できないから馬鹿なんだよな

975 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2eef-drwQ)：2020/03/14(土) 19:50:52 ID:9mSKrJ1e0.net

>>969
1((a,b,c),(d,e,f)),2((g,h),(i,j)),3((k),(l)) かな
どうも、アルファベット順というのも座標の説明に使っただけで、それでソートするってわけでもなさそうだね
組もごちゃ混ぜになってるわけでもないっぽいね
なら
上から下へ進むループを組んで、組が変わったら位置を記憶して、その範囲でB列、C列の順にループ

976 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0242-gN7l)：2020/03/14(土) 19:54:23 ID:E0DYL6Pb0.net

すげーよな
昇順になってんだから頭から順番に処理すりゃいいんじゃね？としか考えつかない

977 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0994-GmOQ)：2020/03/14(土) 21:29:14 ID:juE+caHb0.net

>>975
できました
ありがとうございます

978 ：デフォルトの名無しさん：2020/03/14(土) 21:35:30.58 ID:ZtUBAZXIh

【公開】ぶっちゃけ、動画編集はかなり儲かる件【チャンスありすぎ】
https://www.youtube.com/watch?v=jSMi8qM95Xk
【超入門】YouTubeの動画編集で「月５万円」を稼ぐ方法【徹底解説】
https://www.youtube.com/watch?v=VfItWZ2PXVY
動画編集者が忙しいわけがない。めちゃくちゃラクな仕事だよ。
https://www.youtube.com/watch?v=z5MwL8gedNQ
【体験談】素人が映像クリエイターになった方法。
https://www.youtube.com/watch?v=6v9T0lBg_f0
SONY α6400でCinematicなVlog撮ってみた。【福島Vlog】
https://www.youtube.com/watch?v=3_XBZ6d8ghE
【2020冬版】VLOGやYouTubeするならこのカメラ５選！！【カメラ・映像初心者必見！】
https://www.youtube.com/watch?v=E1dQaugN96M
【最新副業】時給5000円以上も狙える「サムネイル制作」！
https://www.youtube.com/watch?v=nqlDb_AWUKo
ブログ・アフィリエイターをやめて動画編集者になった理由　メリット・デメリット・稼ぎ方を徹底解
https://www.youtube.com/watch?v=EyOga8qn6Xs

979 ：デフォルトの名無しさん ：2020/03/14(土) 21:46:30.89 ID:uUhF8jFda.net

別のブックのVBAをRUNしたらMsgBoxが出てきてボタンをクリックしないといけなくなったんですが、
VBAでボタンをクリックする方法はないでしょうか。
その別のVBAの方は修正したくないので。

980 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b901-AGez)：2020/03/14(土) 22:44:44 ID:2hmQ2yxV0.net

sendkey enterでええんじゃね

981 ：デフォルトの名無しさん ：2020/03/14(土) 23:46:23.57 ID:1CTohHuR0.net

タッチディスプレイでエクセルドロップダウンリストが選択しにくいのでVbaでユーザーフォームで
ドロップダウンリストを全部表示させて選択式にしたいんだけど何か良い方法ありますか？

982 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b901-R/wk)：2020/03/15(日) 01:41:25 ID:B9oF4/gh0.net

VBEの各種ウィンドウ(プロパティウィンドウとかローカルウィンドウとか)を
マウスでドラッグすると、ウィンドウの枠がマウスポインタの動きから
遅れて動き、ウィンドウの枠がチラつくのは自分だけですか？
CPU使用率は10％未満なのでスペックの問題ではないと思います。
OSはWin10でエクセル2010の環境です。

983 ：978 (ﾜｯﾁｮｲ b901-R/wk)：2020/03/15(日) 01:50:40 ID:B9oF4/gh0.net

>>982
メモリ使用率は50%未満です。

984 ：978 ：2020/03/15(日) 03:47:53.03 ID:B9oF4/gh0.net

すいません。意味が分かりにくいので再投稿します。

VBEの各種ウィンドウ(プロパティウィンドウとかローカルウィンドウとか)を
マウスでドラッグすると、そのウィンドウの枠がチラつきながら
マウスポインタよりも目に見えて遅れて動きます。
これは直すにはどうしたら良いでしょうか。
CPU使用率は10％未満でメモリ使用率は50%未満なので
スペックの問題ではないと思います。
OSはWin10でエクセル2010の環境です。

985 ：デフォルトの名無しさん ：2020/03/15(日) 07:14:17.59 ID:DNgNcsNnd.net

仕様なので気にしない事

986 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2eef-drwQ)：2020/03/15(日) 07:51:34 ID:3dklKXuL0.net

>>981
ドロップダウンじゃない方のリストボックスを使う
ユーザーフォームにこだわらなければ、空欄にリストの内容を表示して、イベントで拾ってもいいと思う

987 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r)：2020/03/15(日) 14:54:37 ID:0UhNKPF0r.net

（インクの開始）とかをマクロボタンに登録可能？
各機能をマクロボタン化したいけど、どの機能がどのマクロか探しても出てこない…

988 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2eba-ioXh)：2020/03/15(日) 15:25:04 ID:/MmP9RhE0.net

これ？
With Application.CommandBars
　If .GetEnabledMso("InkingStart") = True Then
　　.ExecuteMso "InkingStart"
　End If
End With

989 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 85da-drwQ)：2020/03/15(日) 17:52:47 ID:LHwp9FeQ0.net

描画にインク機能があるが、再生が無い。
2019なのに何故?

990 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd02-LpqU)：2020/03/15(日) 17:56:02 ID:ro5SoUspd.net

>>987
まあ回答じゃないけど、その場で
Dim cb As Commandber
Dim ctl As CommandbarControl
For Each cb In Application.Commandbars
Debug.Print cb.Name
For Each ctl In cb.Controls
Debug.Print " " & ctl.Name
Next
Next
的なのを実行して調べるな。(出先なのでExcel触れないから間違ってるかも。NameはCaptionか?)
大量に出てくるからDebug.Printじゃ間に合わないだろうから、GUIにしてリストボックスとかにするのが現実的。

991 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8279-AXJv)：2020/03/15(日) 23:43:09 ID:KOSOM8NC0.net

>OSはWin10でエクセル2010の環境です。
これだよ
2013以上にすると直るよ

992 ：デフォルトの名無しさん (ﾜｯﾁｮｲ e5ce-drwQ)：2020/03/16(月) 09:42:32 ID:zMoP23Lv0.net

Excelの内部構造が大幅に変わったのは2017からじゃなかったか

993 ：デフォルトの名無しさん ：2020/03/16(月) 11:24:29.57 ID:DJ4MbV7t0.net

2013じゃね

994 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r)：2020/03/16(月) 17:48:16 ID:Ehy6Otktr.net

>>988
タッチパネルだとエラーがでたり、何も動かなかったりするね…

995 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r)：2020/03/16(月) 17:49:06 ID:Ehy6Otktr.net

>>988
でもありがとう
お礼書いてなかった

996 ：デフォルトの名無しさん ：2020/03/16(月) 20:29:35.60 ID:YT6hS8mka.net

>>979-980
待ちになったままsendkey の行が処理されないですわ

997 ：デフォルトの名無しさん ：2020/03/16(月) 20:57:04.54 ID:G4gOAdERd.net

>>996
されるわけない。
マルチプロセスにすべし。

998 ：デフォルトの名無しさん ：2020/03/16(月) 21:45:49.75 ID:YT6hS8mka.net

>>997
こんな感じか
'CreateObject("Excel.Application")を宣言し変数を作成します。 Set myApp = CreateObject("Excel.Application") '以下のコードがエクセルを別プロセスで開くための肝になる点です。 myApp.Workbooks.Open "開く対象のファイルのフルパス"　'

999 ：デフォルトの名無しさん (ﾜｯﾁｮｲ d22d-drUO)：2020/03/16(月) 23:12:55 ID:cMwINrzG0.net

コピーした行を挿入したいのにpasteやらDestination:=Rowsやらinsertやら試してもダメだったけどPasteSpecialしたら通った
よくわからん

1000 ：デフォルトの名無しさん ：2020/03/16(月) 23:46:26.48 ID:ZHCf4FTc0.net

pasteやらDestinationじゃそりゃ出来んだろう

1001 ：デフォルトの名無しさん ：2020/03/17(火) 07:10:46.51 ID:fnLz6KMUr.net

>>990
よくわからなかった

1002 ：デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMd2-drUO)：2020/03/17(火) 09:07:31 ID:KpY/Lzz/M.net

>>1000
そうなの？解説ページ見たんだけどな
ほかに行貼り付けする記述ってあります？

1003 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 09e6-oTi3)：2020/03/17(火) 13:21:49 ID:4wOPps0G0.net

Ｅｘｃｅｌ×Ｐｙｔｈｏｎ最速仕事術
マクロはもう古い！

1004 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 02a5-5LgE)：2020/03/17(火) 13:36:34 ID:ybHHyXnP0.net

excelはエディタがどうにかならんのか？

1005 ：2ch.net投稿限界：Over 1000 Thread

2ch.netからのレス数が1000に到達しました。