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/08(日) 17:42:48.33

局所関数はむしろローカルスコープ内でイテレータに渡して使い捨てるだけというイメージだが
変数に仕込んであちこちで使い回したりしてるのか

2020/03/08(日) 18:34:24.60

>>878
お前みたいな馬鹿に対して周りが思っていることをはっきり書いただけだが
図星で悔しかったか？

2020/03/08(日) 19:56:01.62

実務経験1年で月収80万稼げるエンジニアになった理由
https://www.youtube.com/watch?v=DrbbyGsHQic
意識が低いエンジニアこそフリーランスになれ
https://www.youtube.com/watch?v=nSEaAJlgjbQ
フリーランスエンジニアの週3労働ってどんな感じ？
https://www.youtube.com/watch?v=8yjoDCdbzMc
ぼくがスキルのない社畜ならこうやって脱する
https://www.youtube.com/watch?v=aae8xxbUlMM
初めて人を雇ったらもう二度とサラリーマンをやりたくないと思った話
https://www.youtube.com/watch?v=U0OCGRVLFsM
プログラミングは文系でも余裕で出来ます！理由を現役プログラマーが解説
https://www.youtube.com/watch?v=iBOeiSKBIW8
貧乏人こそ社会不適合者
https://www.youtube.com/watch?v=O3BT72BIBJI
元ド貧乏が教える】貧乏を抜け出すための2つの考え方
https://www.youtube.com/watch?v=IRrCgTy3ckc
より良いオファー貰ってるのに転職しないとか何考えてるの？
https://www.youtube.com/watch?v=i0J6uRhlj7o

2020/03/08(日) 19:57:42.44

こういう宣伝は嫌われるからな。
次から気をつけろよ

◆QZaw55cn4c (ﾜｯﾁｮｲ 1faa-IQjc) · 2020/03/08(日) 20:00:17.65

>>879
＞・名前空間がない
C言語にも名前空間はありません。そんなCでもうまくやっているのだから、どうでもいい問題でしょうね

＞・クラスが継承出来ない
OO 界は継承は「ダメな子」「出来ない子」「要らない子」「出来ちゃった…」な存在なのは周知の事実
継承は排除されつつあり、かわりに継承と等価な委譲を使います。VBA でも委譲を使えばいいのです

＞・局所関数が作れない
C言語にも局所関数はありません。そんなCでもうまくやっているのだから、どうでもいい問題でしょうね

2020/03/08(日) 20:08:42.71

>>896
VBAの話ですよね？
普通、理想通りのオブジェクト指向作れるでしょう
VBAの案件なんて一人で全部兼任でしょうに

2020/03/08(日) 20:26:40.85

>>901
どうでもいい訳ない……！

Cがあまり使われなくなった理由だろう
名前空間だけじゃなくてOOじゃないのが

2020/03/08(日) 21:58:47.86

>>898
お前みたいなネットでしか偉そうなこと言えない真正バカニートに対して周りが思っていることをはっきり書いただけだが
図星でしたか
かわいそうに

2020/03/08(日) 22:22:13.50

>>897
そう、ローカルスコープ内で定義できる使い捨て関数が欲しいってこと
現状だとイテレータを作るクラスにPublicで関数を公開しないといけないから管理しづらくなる

>>901
言語機能が安全なプログラミングをサポートしてくれるかって話なのに、
C言語ならうまくやる（根性論）で解決してると言われても困る

その委譲ってライブラリをラップする時とかで使う奴だよね
継承代わりに多用してたらスパゲッティの温床になるから、もし実務でやってるなら減らした方がいいよ

2020/03/08(日) 22:30:33.43

>>899
この人タイでよくエッチな店行ってると自慢して
それを動機にフリーエンジニアになれと言ってたよね。

われわれもほんとになれるの？

2020/03/08(日) 22:31:58.19

継承は、スマホアプリや他のいろんなプラットフォームで利用されてるぞ

◆QZaw55cn4c (ﾜｯﾁｮｲ 1faa-IQjc) · 2020/03/08(日) 22:59:29.71

>>903
＞Cがあまり使われなくなった理由だろう

冗談でしょう？
C は今でもバンバン使われていますよ、linux は C で記述されており C++ は受け付けません
あと汎用ライブラリ zlib とかは、多言語から呼び出せるように、あえて C で記述しています
汎用ライブラリは、それが汎用性を目指せば目指すほど、C で書き直される運命にあるのです

◆QZaw55cn4c (ﾜｯﾁｮｲ 1faa-IQjc) · 2020/03/08(日) 23:02:54.97

>>905
＞継承代わりに多用してたらスパゲッティの温床になるから、もし実務でやってるなら減らした方がいい

最近の動向は真逆ですよ
継承こそ、スパゲッティの温床であり、継承は is-a 関係以外では使ってはいけない、継承こそ制限されるべきです
私も https://mevius.5ch.net/test/read.cgi/tech/1434079972/37 では継承を使っていましたが、
https://mevius.5ch.net/test/read.cgi/tech/1434079972/51 では委譲に変えました、委譲に換えて目障りなキャストが減りすっきりしました…

2020/03/08(日) 23:16:43.48

Excelvab初心者です。血からを貸してください。
ユーザーフォームで商品名をExcelのシート(商品マスター)に入力しています。
A列には番号が自動的にＢ列にはユーザーフォームで入力した商品名が入力されます。
Ｂ2に(例えば、まぐろ)が入力された状態で入力フォームにまぐろが入力されるとエラーがでるようにしたいのですがうまくいきません。お力をお貸しください

2020/03/08(日) 23:27:25.61

>>905
あなたのいう機能が無いと困るのは、どういうマクロを組むことを想定してのことですか？
あくまでVBAで設計するレベルの話で
それらの機能があったとして、すごい楽！！ってなる場面が思いつきません

>>910
テキストボックスのイベントであったような気がしますが
そもそも、その設計だと「まぐろ丼」と入力したい場合はどうなるのでしょうか
まぐろ「エラー！！！」丼という感じになるような
テキストボックスに入力をし終わってから、登録処理を実行する時にチェックをすれば良いのではないでしょうか

2020/03/08(日) 23:37:07.95

>>910
マグロの入力が駄目な理由は？
使用が禁止されている商品名だからなのか、既に登録済の商品であるマグロの重複入力を避けたいのか
入力制限の趣旨によってエラーチェックの実装が異なる

2020/03/08(日) 23:42:59.94

プライマリキーとかデータ制約の話ならSQL使うべきや

2020/03/09(月) 01:17:58.71

>>910
まともに文章も書けない馬鹿には無理

2020/03/09(月) 01:26:09.58

>>912
コメントありがとうございます。
データの重複をさけたいのです

2020/03/09(月) 01:38:14.56

>>911
返信ありがとうございます。
おっしゃるとおり
『テキストボックスに入力後の登録処理時にチェックする』
がやりたいことに近いです。
やり方をご教授いただければうれしいです。

2020/03/09(月) 01:40:02.32

現在の入力フォームはこのようは形です。
Private Sub btnEntry_Click()
Dim rv As Integer
r = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Worksheets("商品マスタ").Range("A" & r).Value = r - 1
Worksheets("商品マスタ").Range("B" & r).Value = txtGoods.Text
txtGoods.Value = ""
txtGoods.SetFocus
End Sub

2020/03/09(月) 01:50:53.63

>>908
高速な処理が求められるライブラリには
これからも速いCが使われていくだろうね
フロントエンドはPythonとかOOになる

AIとかがそうでしょ

2020/03/09(月) 02:52:58.81

Private Sub btnEntry_Click()
On Error GoTo errorStep
Const PRODUCT_TBL_NAME As String = "商品マスタ"
Const PRODUCT_NAME_COLUMN As Long = 2 '商品名が登録されているカラム
Dim productTbl As Worksheet
Set productTbl = ThisWorkbook.Worksheets(PRODUCT_TBL_NAME)
With productTbl
Dim productRecord As Variant
productRecord = .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, .Cells(1, .Columns.Count).End(xlToLeft).Column)).Value
End With
Dim existsItem As Boolean
existsItem = False
Dim i As Long
For i = LBound(productRecord, 1) + 1 To UBound(productRecord, 1) '1行目はタイトルなので+1にて検索を省く
If productRecord(i, PRODUCT_NAME_COLUMN) = txtGoods.Text Then
existsItem = True
GoTo errorStep
End If
Next
With productTbl
.Range(.Cells(UBound(productRecord, 1) + 1, 1), .Cells(UBound(productRecord, 1) + 1, PRODUCT_NAME_COLUMN)).Value = Array(UBound(productRecord, 1), txtGoods.Text)
End With
With txtGoods
.Value = ""
.SetFocus
End With
errorStep:
If existsItem Then MsgBox txtGoods.Text & "もとい、まぐろが重複しています", vbCritical + vbOKOnly, "重複"
ElseIf Err.Number <> 0 Then MsgBox Err.Number & Err.Description
End Sub

2020/03/09(月) 08:07:04.13

>>919
この
クソコー
ド
見る気
無くす

2020/03/09(月) 09:24:28.40

クソコードの見本

2020/03/09(月) 10:40:08.36

Excel VBAの手書きで入力する InkEditコントロールを利用しているんだけど、最初の一画目を横に引くと線が消えて右に進んでしまう。
（一を描くと手書きと認識されずに右に進むになってしまう）
逆に一画目を右から左に引くと同じように消えるけどバックスペースとして認識するのか入力文字が一文字消える。
何かのコントロールが入っているのかな？

一画目からきちんと手書き認識させるにはどうしたらいいのか教えてほしいです。

2020/03/09(月) 10:48:17.23

>>922
androidの手書き入力でも同じ問題が起きてる
設計したのがアメリカ人だからどうしようもない
書き順を無視して縦線から書くしかない

2020/03/09(月) 12:05:57.48

VBAで「タッチして描写する」を呼び出したい場合はどう登録すればいいですか？

2020/03/09(月) 12:19:34.60

>>917
Private Sub btnEntry_Click()
Dim r As Integer

r = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
With Worksheets("商品マスタ")
If Application.CountIf(.Range("B:B"), txtGoods.Text) = 0 Then
.Range("A" & r).Value = r - 1
.Range("B" & r).Value = txtGoods.Text
lblAlert.Caption = ""
Else
lblAlert.Caption = "入力済です"
End If
End With

txtGoods.SetFocus
Application.Wait Now + 1 / 24 / 60 / 60 / 10
SendKeys "^a", True
End Sub

2020/03/11(水) 22:56:52.92

いつも思うんですけど、

With ActiveSheet
　.Range(.Cells(1, 1), .Cells(2, 3))
End With

って、シンプルに

ActiveSheet.Range(1, 1, 2, 3)

にしてくれませんかねぇ。

2020/03/11(水) 23:07:19.01

シンプル重視か把握しやすさ重視は人によるんでないの

2020/03/11(水) 23:16:24.86

自分的にしてほしいのはこれ
rows(3, 5)
columns("a", "c")
rangeはOKなのになんでダメなのか

2020/03/11(水) 23:28:12.64

>>928
範囲指定ならrows("3:5") columns("a:c")とか書けるけど、そういう意味じゃなくて？

2020/03/11(水) 23:43:13.84

>>929
変数使ったら「a & ":" & b」って書かなきゃならんのが嫌なだけ
& ":" &が嫌

2020/03/12(木) 00:49:49.85

>>928
二次元のオフセット値で座標確定しなきゃならないRangeと違ってRowsやColumnsは一次元のオフセットで場所を指定できるからね
行や列の指定に多次元引数を許容する実利が少ない
逆にRangeだって三次元以上のインデックスを指定できるようにする意味がないから二次元までのインデックスになってるわけで

2020/03/12(木) 01:58:06.82

いや実利ありまくりだろうが

2020/03/12(木) 08:21:08.26

>>925
Application.Wait Now + 1 / 24 / 60 / 60 / 10

これって、wait してる？

2020/03/12(木) 10:33:01.07

925だけど、ごめんなさい
NOWだと秒未満が扱えないから、現在時刻が0.1秒超えるとコマンド実行分しかwaitしてないのか
以下の様に訂正します
×Application.Wait Now + 1 / 24 / 60 / 60 / 10
○Application.Wait [Now()] + 1 / 24 / 60 / 60 / 10
[]はワークｼｰﾄ関数らしいね

2020/03/12(木) 14:14:34.28

セルの組み合わせを検索したいんですがfind関数のAND使うしか無いですかね？
A1セルかつB1セルの値をC,D列から検索するような事をしたいです。

2020/03/12(木) 15:35:29.52

みなさんが使ってるパソコンのスペック教えて下さい
できれば機種もおながいします

2020/03/12(木) 19:36:43.40

>>935
1セルずつ自分で調べる

2020/03/12(木) 19:42:45.16

>>936
そんなの知って何がしたいんだよ

2020/03/12(木) 20:56:37.31

>>935
ドクターゲロに聞く

2020/03/12(木) 21:04:05.61

>>935
AB列の値を結合した検索用の列を追加すればいいんじゃね

2020/03/12(木) 21:42:19.02

>>938
大喜利。
MMXペンティアムとかボケろってことでは?

2020/03/12(木) 22:03:09.82

じゃあ、CyrixMII 233MHzぅ！

2020/03/12(木) 22:56:49.72

datファイルやtxtファイル読んで配列に入れたい場合って、EOFまで一行ずつ読んで配列要素をredimするのがキレイで分かりやすい？

2020/03/12(木) 23:24:55.83

>>940
ありがとうございます
セルをグループ化するオブジェクトがあるかと思ったのですが、皆さんの反応見るとやり方工夫するしか無さそうなのが分かりました…

2020/03/12(木) 23:52:42.43

>>943
一括で読んでsplitする手もある

2020/03/13(金) 00:22:47.36

みんなどうやって勉強したの？
どく学？

2020/03/13(金) 00:28:32.32

他の言語やってれば独学で（も）行けるが
もし始めてなら入門書読んだ方が早いかも

2020/03/13(金) 00:38:00.66

>>947
サイトで調べてやろうかと思ったけどなかなか大変そうなので買って読んでみます！ありがとうございます！

2020/03/13(金) 03:28:46.12

>>946
もう20年以上前だがな

2020/03/13(金) 07:21:17.73

インプレス『できるExcelマクロ＆ＶＢＡ』他、期間限定で全文公開
https://book.impress.co.jp/items/tameshiyomi

2020/03/13(金) 09:45:24.42

VB.NET 廃止か
まさかVBAより先に死ぬとはな

2020/03/13(金) 11:43:51.46

>>951
ソースどこ？

2020/03/13(金) 11:44:52.56

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

2020/03/13(金) 12:07:27.45

>>950
いいね！

>>951
ソース？

2020/03/13(金) 14:33:35.87

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にはいくつかの違いがあります。

2020/03/13(金) 15:39:53.35

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

2020/03/13(金) 16:28:43.22

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

2020/03/13(金) 18:21:15.27

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

2020/03/13(金) 23:23:36.16

いやいやお前だろ

2020/03/13(金) 23:39:30.54

わかった！オレがしぬ！

2020/03/14(土) 09:26:33.93

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

2020/03/14(土) 09:28:47.00

わかった！おれもしぬ！

2020/03/14(土) 09:55:43.66

はいはい！オレもしぬ！

2020/03/14(土) 16:27:40.06

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

2020/03/14(土) 17:03:17.53

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

2020/03/14(土) 17:48:23.61

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

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じゃそりゃ出来んだろう