Excel VBA 質問スレ Part64

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ 23d0-o7DB) 2019/12/02(月) 23:43:54.18 ID:ngrqyTy20]

!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

[982 デフォルトの名無しさん (ﾜｯﾁｮｲ 2eef-drwQ) 2020/03/15(日) 07:51:34.39 ID:3dklKXuL0]

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

[983 デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r) 2020/03/15(日) 14:54:37.12 ID:0UhNKPF0r]

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

[984 デフォルトの名無しさん (ﾜｯﾁｮｲ 2eba-ioXh) 2020/03/15(日) 15:25:04.36 ID:/MmP9RhE0]

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

[985 デフォルトの名無しさん (ﾜｯﾁｮｲ 85da-drwQ) 2020/03/15(日) 17:52:47.26 ID:LHwp9FeQ0]

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

[986 デフォルトの名無しさん (ｽｯﾌﾟ Sd02-LpqU) 2020/03/15(日) 17:56:02.76 ID:ro5SoUspd]

>>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にしてリストボックスとかにするのが現実的。

[987 デフォルトの名無しさん (ﾜｯﾁｮｲ 8279-AXJv) 2020/03/15(日) 23:43:09.19 ID:KOSOM8NC0]

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

[988 デフォルトの名無しさん (ﾜｯﾁｮｲ e5ce-drwQ) 2020/03/16(月) 09:42:32.24 ID:zMoP23Lv0]

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

[989 デフォルトの名無しさん (ﾜｯﾁｮｲ 85da-drwQ) 2020/03/16(月) 11:24:29.57 ID:DJ4MbV7t0]

2013じゃね

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

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

[991 デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r) 2020/03/16(月) 17:49:06.17 ID:Ehy6Otktr]

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

[992 デフォルトの名無しさん (ｱｳｱｳｴｰ Sa8a-MIfP) 2020/03/16(月) 20:29:35.60 ID:YT6hS8mka]

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

[993 デフォルトの名無しさん (ｽｯﾌﾟ Sd02-LpqU) 2020/03/16(月) 20:57:04.54 ID:G4gOAdERd]

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

[994 デフォルトの名無しさん (ｱｳｱｳｴｰ Sa8a-MIfP) 2020/03/16(月) 21:45:49.75 ID:YT6hS8mka]

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

[995 デフォルトの名無しさん (ﾜｯﾁｮｲ d22d-drUO) 2020/03/16(月) 23:12:55.50 ID:cMwINrzG0]

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

[996 デフォルトの名無しさん (ﾜｯﾁｮｲ 4d7c-9blg) 2020/03/16(月) 23:46:26.48 ID:ZHCf4FTc0]

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

[997 デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r) 2020/03/17(火) 07:10:46.51 ID:fnLz6KMUr]

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

[998 デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMd2-drUO) 2020/03/17(火) 09:07:31.12 ID:KpY/Lzz/M]

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

[999 デフォルトの名無しさん (ﾜｯﾁｮｲ 09e6-oTi3) 2020/03/17(火) 13:21:49.91 ID:4wOPps0G0]

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

[1000 デフォルトの名無しさん (ﾜｯﾁｮｲ 02a5-5LgE) 2020/03/17(火) 13:36:34.30 ID:ybHHyXnP0]

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