Excel VBA 質問スレ Part63

2019/09/16(月) 19:34:59.04

!extend:checked:vvvvv:1000:512

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

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

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

2019/11/02(土) 23:34:47.29

ん?
>>563は、自分が頭良いとは言ってないのでは?
ここの回答者よりも高度な回答例は書けないようだし。
書けたら格上を認めてあげても良いけど。

2019/11/02(土) 23:38:18.19

>>566
いちいち構うなよ…

2019/11/03(日) 00:02:25.36

おならが止まらん

2019/11/03(日) 04:16:21.62

ユーザーフォームが表示されてる状態でキーボードのキーの組み合わせ(ctrl+何かとか)をした際にだけ、フォーム上に表示される様にするにはどう言ったコードにすればいいでしょう？

2019/11/03(日) 05:12:05.86

>>570
UserFormのKeyDownイベントで拾う
たとえばUserFormの上でCtrlキーとAキーが同時に押されたときにCommandButton1を表示するという処理なら下のようになる
押された文字キーを示すキーコードは引数KeyCodeに定数で格納されるけど、Aキー以外の文字キーにしたいなら定数は自分で調べてくれ
あと次からは何を表示したいのか目的語をきちんと書くように

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 65 And Shift = vbCtrlMask Then Me.CommandButton1.Visible = True

End Sub

2019/11/03(日) 05:37:41.26

Withってコーティングの手間を省く、見映え以外に良いこと有りますか？

2019/11/03(日) 06:42:19.84

>>572
Dim S As Xxx
Set S = Yyy
S.Abc = …
S.Def = …
より
With Yyy
.Abc = …
.Def = …
End With
の方が微妙に速いとかもあったかも
まあ気にするほどの差はない

2019/11/03(日) 08:20:53.85

>>571
ありがとうございます。
今までユーザーフォームって苦手でほとんど使った事なかったのですが、今携わってるシステムは使ったほうが使い勝手良くなるので…

2019/11/03(日) 09:38:51.22

まず変数名を考えなくて良いという点、
それから、end with で破棄（解放）される点

2019/11/03(日) 13:54:04.03

逆にWithステートメントで取得した参照がEnd Withまで静的に保持される点は注意すべきポイントでもある

例えばWith ActiveSheet で始まるWithブロック内で他シートをアクティブにしても、ドットでアクセス提供されるメンバの親はWith宣言時点のActiveSheetになるからな

2019/11/04(月) 01:41:27.33

Withの読み方はウイズだと思うけど書くときの頭の中はいつもウイテンなのは俺だけなのかな

2019/11/04(月) 02:38:13.83

読み方があってるかどうか不安なのはあるな。
ナンバーフォーマットローカルとか。

2019/11/04(月) 02:46:05.97

バリアントであってる？w

2019/11/04(月) 03:13:21.06

最初は、ヤッホージャパンって何だよwwwって思ったな。

2019/11/04(月) 03:53:28.93

むかしFalseのことファルスって読んでた
ファルスがギリシャ語で陰部を意味する単語だと知ったのは最近

2019/11/04(月) 09:39:04.15

滅びの呪文

2019/11/04(月) 14:50:42.78

2019/11/05(火) 18:34:38.01

DataObjectオブジェクトについて　https://chiebukuro.yahoo.co.jp/

0OM

2019/11/05(火) 18:44:36.75

>>581
２０年以上ファルスと読んでた。最近Youtubeでフォルスだと知った。Bluetoothを何度教えてもブルースと読む同僚を笑えない。

2019/11/05(火) 18:50:10.04

>>585
ワイの周りにもファルス詠みはたくさんいる。中高の英語の勉強で発音記号見たことあるはずなのに

2019/11/05(火) 19:54:14.94

教えてくれた先生がファルスだったので周りもみんなファルス読み

2019/11/05(火) 20:22:41.01

上司からフォルスで教わった

2019/11/05(火) 21:16:39.16

フォルス？フォールスだろ？
英語知らんのかな

2019/11/05(火) 21:29:26.89

ファーストフードがいつの間にかファストフードになってるようなもんだろ

2019/11/05(火) 21:32:19.18

いや単にバカなだけだろｗ

2019/11/05(火) 22:00:02.40

>>589
発音記号みると、どっちもあるみたいだね。

2019/11/05(火) 22:35:00.66

カタカナに当てはめるんじゃないfalseはfalseだぜ

2019/11/05(火) 22:50:55.14

ファォッルスッ！

2019/11/05(火) 22:52:22.61

ふぁっぁく！

2019/11/05(火) 23:47:59.23

野球のファールみたいなもんだろ
よってファールスで

2019/11/06(水) 06:04:23.35

LCase 関数 VBA　http://vba-auto.com/lcase_function_vba/

B5F

2019/11/06(水) 06:44:01.06

CBool 関数 VBA　http://vba-auto.com/cbool_function_vba/

TDL

2019/11/06(水) 19:00:52.62

ん?
ムサンバニかモーサンバーニーかっていう話?

2019/11/06(水) 19:53:02.84

ピッツァのことか

2019/11/07(木) 00:18:34.56

すみません。
最新のWindows10でVBAを実行したところ、VBScript.RegExpのCreateObjectに失敗しました。
IEのVBS機能が無効化された影響によるものでしょうか？
回避策等ありますでしょうか？

2019/11/07(木) 03:57:12.24

>>601
試してないけどJScriptを使ったらどうかな
32bit環境ならScriptControl オブジェクトをCreateObjectで生成してJScriptの正規表現を使う
62bit環境ならMSHTMLオブジェクトでIEのエンジンのJScript実行環境を生成して、そこからJScriptの正規表現を使う

2019/11/07(木) 19:03:46.63

同じフォルダ内の他のファイルを削除しようとすると
ファイルは削除されますが、
「実行時エラー'70': 書き込みできません。」
がでて処理が止まります。
Dim aa As String
aa = ThisWorkbook.Path & "\"
Kill aa & "*.*"

どうすれば止まらずに処理できますか

2019/11/07(木) 19:14:00.49

>>603
自分の手で自分の頸を吊ってみればわかるぞ

2019/11/07(木) 19:14:43.23

>>603
ThisworkbookそのものをKillしようとして失敗してる

**603** (ﾜｯﾁｮｲ 0fcc-OQ0I) · 2019/11/07(木) 19:37:17.46

>>605
VBAの実行ファイルを対象から外すにはどうすればよいですか？

2019/11/07(木) 19:51:15.23

>>606
ひとつずつ確認しながら消す

2019/11/07(木) 19:54:49.91

エラー処理いれる

2019/11/07(木) 19:56:45.33

>>603
On Error Resume Next
じゃダメなん？

**603** (ﾜｯﾁｮｲ 0fcc-OQ0I) · 2019/11/07(木) 19:57:11.59

>>608
ありがとうございます

2019/11/07(木) 20:19:39.30

>>610
馬鹿は死ねよ

2019/11/07(木) 20:29:48.40

>>610
607のやり方がいいと思うぞ

2019/11/07(木) 20:32:08.30

>>609
thisworkbookを消そうとした時以外でも同じエラーが出ることがある

2019/11/07(木) 20:46:34.17

例外前提の分岐とか一番やっちゃいけないだろ

2019/11/08(金) 03:21:06.91

kill *.* とか普通は怖くてできないぞ

2019/11/08(金) 03:24:31.82

FileSystemObjectとか使えばいいのに

2019/11/08(金) 07:35:20.51

https://gigazine.net/amp/20191107-drum-machine-in-excel
スーパーテクを俺に継承してくれw

2019/11/09(土) 08:05:58.77

>>603
Dim fso As Object
Dim fr As Object
Dim fl As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set fr = fso.GetFolder(ThisWorkbook.Path)

On Error Resume Next

For Each fl In fr.Files
If fl.Name <> ThisWorkbook.Name Then
fl.Delete
If Err.Number <> 0 Then
Debug.Print "Err.Number:" & Err.Number &" FileName:" & fl.Name
Err.Clear
End If
End If
Next fl

2019/11/09(土) 09:04:21.85

Dim wb as Workbook
...

wbが開いているか閉じられているか確認する方法ありますか？

2019/11/09(土) 09:50:21.72

For Each wb in workbooks で名前やパスをチェックするとか

2019/11/09(土) 10:39:45.65

>>620
そのやり方だとNASとかにある共有ファイルを他人が開いてる場合には判定不可能

>>619
対象のファイルをエクセルファイルとして開かずにVB6のOpen ステートメントの追記モードで開くのがオーソドックスなやり方
他のユーザーエンティティが編集権をロックした状態だとファイルが開けずエラーが発生することを利用する
エラーコードを調べて0より大きい場合はファイルが開かれている、そうでなければファイルが開かれていないと判断する
ただし負荷対策が最適化されていないネットワーク環境でサーバーの応答が遅くなっている場合、数分前に誰かが閉じたファイルを開いていると判定してしまうので要注意

'サンプルコード
Sub Sample()
If IsFileOpened("任意のブックのフルパス") Then
MsgBox "開かれています"
Else
MsgBox "開かれていません"
End If
End Sub

Function IsFileOpened(fliepath as String) As Boolean
On Error Resume Next
Open filepath For Append As #1
Close #1
If Err.Number > 0 Then
IsFileOpened = True
Err.Clear
Else
IsFileOpened = False
End If
End Function

2019/11/10(日) 03:17:05.03

>>621
ブックを開いているときは~$ファイル名の隠しファイルが作られるからそれを見たら

2019/11/10(日) 16:07:54.61

行番号が1-9まで1ずつ加算されてる中で3ごとにブロックとして処理の始点を1,4,7行にしたいんだけど行番号から式で求められないかな？
for i=1to9
if i<4 and i>0 then 処理1
elseif i<7 and i>3then 処理2
else 処理3
next i
これを分岐なしでスマートに書きたい
123456789→111444777って変換式が欲しい

2019/11/10(日) 16:20:12.48

>>623
馬鹿は小学生からやり直せ

2019/11/10(日) 16:45:02.84

1引いて3で割った商を3倍して1を足すとか

2019/11/10(日) 16:54:56.61

VBAの時点でスマートじゃないから

2019/11/10(日) 17:03:38.70

Ruby で、

( 1..9 ).each { |i| p ( ( i - 1 ) / 3 ) * 3 + 1 }

2019/11/10(日) 17:13:45.05

何でもうすぐ無くなる言語のruby何かで答えるの？アホなの？

2019/11/10(日) 17:46:44.80

>>623
変換するだけなら
i - (i - 1) Mod 3
で111444777になる
3つの処理に分けたいなら
Select Case i
　　Case 1, 2, 3
　　　　処理1
　　Case 4, 5, 6
　　　　処理2
　　Case Else
　　　　処理3
End Select

2019/11/10(日) 17:48:13.51

式を入れてもできそうだな

2019/11/10(日) 17:55:48.55

>>623
111777999を割り出す変換式を使うのではなく、行番号を3で割った商が1の場合だけ処理を行うようにするのは駄目なの？
例えばこんな感じ

For i = 1 To 9
If i Mod 3 = 1 Then
'処理
End If
Next

2019/11/10(日) 18:00:46.35

>>631
間違えた、3で割った商じゃなくて余りね

2019/11/10(日) 19:14:57.01

数独かな

2019/11/10(日) 19:46:34.21

ｊ = Mid("111444777", i, 1)

2019/11/10(日) 22:03:46.21

たくさんレスありがとう
>>634のが一番シンプルな気がするのでこれいただきます。

>>633
そのとおり
練習で作ってみてるんだがエスパー力に驚嘆

2019/11/10(日) 22:35:02.94

for i =1 to 7 step 3

2019/11/11(月) 06:13:38.55

( x - 1 ) mod stepNum + minNum
例えば0123456789を3ずつカウントアップすると000333666になる

2019/11/11(月) 06:30:01.29

>>637
何故馬鹿は聞かれてもいない事をこたえてしまえのかw

2019/11/11(月) 08:49:23.01

>>635
1-9, 3毎, ブロック
こんだけあれば可能性として浮かぶよ

2019/11/11(月) 19:59:18.13

>>637
>>625をやろうとしてる？

2019/11/11(月) 21:20:23.51

ブックAのUserFormのボタンから1つ下のフォルダに入っているブックBのUserFormを起動させたいのだけど、
ネットで探した「Application.run Thisworkbook.path & "\～\ブックB!subプロシージャ名"」というのを記載して実行させたけど、
エラーになってしまいましたが、これはどこが悪いのでしょう…

2019/11/11(月) 21:24:34.26

>>641
パス、プロシージャ名、引数のどれかが間違ってる

2019/11/11(月) 21:26:03.11

拡張子も付いてないな

2019/11/11(月) 21:56:10.05

>>643
.xlsm!～でもやってみたのですがダメでした。

2019/11/11(月) 21:58:12.61

ちなみに、workbook_openのプロシージャは直接subプロシージャ名を指定してもブックが開く時には通るって考えでいいんですよね？

2019/11/11(月) 22:22:57.09

>>644
パスを'で括る

2019/11/11(月) 22:26:38.25

>>640
たぶんそうじゃない？

2019/11/12(火) 02:24:55.99

>>646
application.run 'thisworkbook.path & "ブックB.xlsm'!subプロシージャ"
って書けばいいのでしょうか？

2019/11/12(火) 04:29:40.38

>>648
先頭のシングルコーテーションは&演算子で結合する

application.run 'フルパス'!プロシージャ名
という形になるようにする

2019/11/12(火) 08:36:17.42

>>649
やってみます！
ありがとうございます。

2019/11/12(火) 08:50:10.74

>>649
シングルクォーテーションにしたら…コメントアウトになりません？
…今気がついたけど…

2019/11/12(火) 08:58:18.88

>>649
すみません、自分の早合点でした。
"'" &でやればシングルクォーテーション使えましたね…

2019/11/12(火) 10:11:19.95

スレチですまん。
俺はVBAをやってるが上司から言われました。（うちの部署、10名のうち、VBAを作れる人は二人だけ、、、）

AIが集計をしてくれるからEXCELは必要ない時代が来るねと言ってた。

反論出来る？

2019/11/12(火) 10:27:44.24

楽しみですねと答える

2019/11/12(火) 10:28:50.68

まぁAIが台頭してくる頃にはその上司は居ないだろうからスルーでいいんじゃない？

それかそのAIの設定？は誰がやるんだよっ！
そんな事も分からん様なヤツの方が必要なくない？ってw

2019/11/12(火) 11:50:40.50

AI以前に、最近のDXの流れでシステムが合理化されていって、VBAでやってるような無意味な業務自体が消滅するのが先だろうね

2019/11/12(火) 13:09:11.37

AIってまたざっくりしてるなぁ

2019/11/12(火) 13:51:05.18

○データフロー中に存在する、辻褄合わせのためのデータ加工
→業務フローの見直し、システムの改善、ETLツールの導入等により脱VBA
○ルールベースで実施可能な、機械的な意思決定のためのレポート作成
→完全な自動化により脱VBA
○ルールベースでは困難な、人間的判断を必要とする意思決定のためのレポート作成
→BIツール等に置き換えて脱VBA
AIを使うとしたらこの3番目だけど、そこまでいく前にやるべきことはいくらでもある
それをやり尽くしてAIの導入を検討する頃にはVBAなんかとっくに無くなってるはずだから、VBAとAIが直接競合することなんて無いよ

2019/11/12(火) 14:15:36.08

現在のAIが何をやってるか知らない馬鹿ども

2019/11/12(火) 19:55:22.11

VBAが必要ないじゃなくて、EXCELが必要なくなるだからな
人間が介在する限り、なんらかのUIは必要なわけで、AIとEXCELはまったく競合しないわな

2019/11/12(火) 21:10:30.98

昔のSFみたいに透明なパイプを空飛ぶ車が走ったりロボットが何でもやってくれる世界を想像しているようなもんだろ
残念ながら現実は違ったよな

2019/11/12(火) 23:57:00.45

構文ミスって無限ループが発生した時にエクセルが固まるやつはなんか対策ないんか？

2019/11/13(水) 01:01:43.28

>>662
Esc連打したり他のウィンドウをアクティブにしたりを繰り返してみる

2019/11/13(水) 08:52:45.90

VBAよりPythonを覚えた方がいいなぁ。

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-DaD1) · 2019/11/13(水) 09:27:16.58

>>661
交通事故をなくすには車を隔離してパイプの中を走らせるのが一番
ただしあと300年かかる

2019/11/13(水) 09:50:15.66

>>664
低学歴がPythonやっても仕事無いぞ