Excel VBA 質問スレ Part64

2019/12/02(月) 23:43:54.18

!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

2020/03/14(土) 18:22:21.70

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

2020/03/14(土) 18:47:53.73

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

2020/03/14(土) 18:53:08.37

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

2020/03/14(土) 18:53:46.16

>>968
わかる
エスパー

2020/03/14(土) 19:24:58.83

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

2020/03/14(土) 19:50:52.55

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

2020/03/14(土) 19:54:23.48

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

2020/03/14(土) 21:29:14.28

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

2020/03/14(土) 21:46:30.89

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

2020/03/14(土) 22:44:44.71

sendkey enterでええんじゃね

2020/03/14(土) 23:46:23.57

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

2020/03/15(日) 01:41:25.49

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

**978** (ﾜｯﾁｮｲ b901-R/wk) · 2020/03/15(日) 01:50:40.72

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

**978** (ﾜｯﾁｮｲ b901-R/wk) · 2020/03/15(日) 03:47:53.03

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

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

2020/03/15(日) 07:14:17.59

仕様なので気にしない事

2020/03/15(日) 07:51:34.39

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

2020/03/15(日) 14:54:37.12

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

2020/03/15(日) 15:25:04.36

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

2020/03/15(日) 17:52:47.26

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

2020/03/15(日) 17:56:02.76

>>983
まあ回答じゃないけど、その場で
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にしてリストボックスとかにするのが現実的。

2020/03/15(日) 23:43:09.19

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

2020/03/16(月) 09:42:32.24

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

2020/03/16(月) 11:24:29.57

2013じゃね

2020/03/16(月) 17:48:16.80

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

2020/03/16(月) 17:49:06.17

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

2020/03/16(月) 20:29:35.60

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

2020/03/16(月) 20:57:04.54

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

2020/03/16(月) 21:45:49.75

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

2020/03/16(月) 23:12:55.50

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

2020/03/16(月) 23:46:26.48

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

2020/03/17(火) 07:10:46.51

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

2020/03/17(火) 09:07:31.12

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

2020/03/17(火) 13:21:49.91

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

2020/03/17(火) 13:36:34.30

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

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 105日 13時間 52分 40秒