Excel VBA 質問スレ Part61

2019/04/25(木) 23:41:03.61

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part60
https://mevius.5ch.net/test/read.cgi/tech/1552736349/

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

2019/05/06(月) 00:20:05.87

>>176
遅くにありがとうございました。

ご指摘のとおり、iに0が入るため、エラーになっていることがわかりました。

後は、空白セルを0と読み取らせない方法を調べてみます。

丸二日、エラーの理由がわからずに悩んでいました。

見ず知らずの方に助けてもらえて感謝です。ありがとうございました。

2019/05/06(月) 00:33:06.01

>>178
j
でした。訂正します。

2019/05/06(月) 00:51:29.40

>>176
IF j=0 then GoTo L1
を追加して、
エラーになるところを飛ばして解決しました。

ありがとうございました。

2019/05/06(月) 10:29:14.43

>>178
初心者は、問題がどこにあるのかに勘所が無いからこういう悩んで時間を使う経験をたくさんすると良い。
慣れれば5秒で気付く。

あと、Do～Loopはいらない気がする。
hの代わりにiを使ってどうにかできると思うね。

2019/05/06(月) 10:30:20.40

>>178
間違えた。
hは列方向か。

2019/05/10(金) 16:54:45.46

VBA勉強中の者です。

Setステートメントを勉強しているのですが、オブジェクト型についてお聞きしたいです。RangeオブジェクトとかWorksheetオブジェクトなど、いろんなサイトなど見ても使いどころがよくつかめてないです。

どんなときに使うのか、教えてもらえるとありがたいです。

2019/05/10(金) 16:57:57.46

>>183
数値と文字列以外は全部オブジェクト

2019/05/10(金) 17:04:22.66

どんなときに使うのか、は一言で言うのは難しいが、基本的には保守のため

・何の変数か分からない時に名前をつける
range("a1:b2")だと何の範囲かはワークシート見ないと分からない
set 転記元 = range("a1:b2")
とすることで、そのrangeが何か一発で分かるようになる

ちなみに「何をするか」ではなく「何が入ってるか」を基準に命名すると後で分かりやすい
「何をするか」はfunctionの名前がそうなっているはずだ

・ある変数が2回以上登場する場合、最初に変数に入れておけばそのコードを変更する時に一回で済む
まぁこれは説明せんでもええわな

・保守しないならめんどくさいだけじゃん
そう、合っている
ちゃんと保守できるように書いて置いた方が、長い目で見ると楽なんだ。プラマイプラス

2019/05/10(金) 19:25:57.30

>>184、185
レスありがとうございます。
185さん
感覚ですが、すごく単純な感じがします。そんな認識でよいです？

ただ184さんのいう
数値と文字列以外は全部オブジェクト
これがひっかかるんです。

range("a1:b2")がオブジェクトという認識でよい？
そのなかに文字があった場合は？
文字列じゃない？と思ってしまうが、それは違うんですよね。
仮に
range("b2").valueだった場合は値で、range("a1:b2")はオブジェクトという事？

はなしがまとまってなくて、すみません。

2019/05/10(金) 19:27:02.31

↑183が書き込みしました。

2019/05/10(金) 19:40:34.80

Ｅｘｃｅｌのシート内部の表位置とかカラム位置とかデータ末尾とか特定するベストプラクティスってどんなんですか！

何十年前からある言語でこんだけ普及してるのにいまだに決まった答えがないとか

2019/05/10(金) 19:44:21.41

>>188
あのね、A1から使うのがExcelの正しい使い方なの
枠やらタイトルやら付けるのはバカジャップの間違った使い方なの

2019/05/10(金) 19:52:43.30

一瞬で理解した

2019/05/10(金) 20:14:31.04

>>186
range("a1:b2")はオブジェクト。この中にプロパティとしてvalueやwidth、heightなどがある
もちろんrange("a1:b2").valueは文字列。

range("a1")に1が入っていて
range("a1")+2が3になるのは、range("a1:b2").valueが自動的に呼び出されて
range("a1").value+2になっているため

MSDNじっくり読んだほうがいいかもな
https://docs.microsoft.com/ja-jp/office/vba/api/excel.range(object)

2019/05/10(金) 20:16:01.36

>>188
最強はこのページの

<S6> 書式付きセルを除外する（UsedRange）
http://www.niji.or.jp/home/toru/notes/8.html

ケツから検索して見つかった奴が最後

2019/05/10(金) 21:34:51.98

>>191
レスありがとうございます
誘導もありがとう！
じっくり読んでみます。
わからない所があったらまた聞くかもです。
中途半端な理解は嫌だし。さっかりと理解したいし。

2019/05/10(金) 22:33:38.03

プログラミングを理解するには、読むだけでなくとにかく実際に動かしてみることが大事

2019/05/11(土) 03:15:11.68

さっかりなw

2019/05/11(土) 08:20:45.16

>>194
そうですよね
やらないとわからないがほとんどです(T-T)

>>195
脳内変換ヨロシクです

2019/05/11(土) 19:56:32.57

ADO使うと突然落ちるようになった。
何が原因J?

2019/05/11(土) 20:45:20.04

>>197
プロバイダはなに？

2019/05/11(土) 21:32:42.45

>>198
Microsoft.ACE.OLEDB.12.0
PCによっては普通に実行できるので、原因がわからん。

2019/05/11(土) 21:36:03.53

質問です。
NumberFormatLocal = “yyyy””年””m””月””d””日””(aaa)”で書式の定義を変更しています。
NumberFormatLocal = ●“yyyy””年””m””月””d””日””(aaa)”

●の箇所に文字列を入れたいのですが”●”を入れるとエラーになります。解決方法はありますでしょうか？

2019/05/11(土) 21:40:16.93

>>200
わからんけど、自動記録でやったものをコピペするとか。

2019/05/11(土) 21:46:39.70

マクロの記録取ってみたわ
ダブルコーテーションで括った中で、更にダブルコーテーションがいるっぽい
具体てt機にはこう

Selection.NumberFormatLocal = """あ""yyyy""年""m""月"""

2019/05/11(土) 21:46:58.83

>>201
解決しました。ありがとうございました。

2019/05/12(日) 02:13:17.21

もしかして、Access2016が入ってると、
Excel2013ではADO接続使えない?

Excel2013からAccess2016の参照で落ちるケースはググって見つけたけど、
ウチのはExcel2013からExcel2013で落ちる。

2019/05/12(日) 02:35:46.96

>>190
データとしてExcelを使う場合と、ドキュメントとしてExcelを使う場合とで、考え方がかわる。

2019/05/12(日) 08:45:07.80

>>204
win下をdll検索して、複数見つかったらそれぞれ直接参照設定してみるとか
（単体で動いてるわけじゃない気もするから、期待薄かもしれんけど）

2019/05/12(日) 12:05:15.73

>>206
それもダメだったから、諦めてExcel2019買ったわ。
それだと普通に動いたから、
やっぱりExcel2013とAccess2016の組み合わせがダメだったみたい。

ありがとう。

2019/05/12(日) 16:17:36.32

32ビット版だったとか？

2019/05/12(日) 17:19:48.24

>>208
Excel2013　・・・　ADO接続OK
　　　↓
Excel2013　+　Access2016　・・・　ここで突然落ちるようになる
　　　↓
Excel2019　+　Access2016　・・・　直った!

全部32bit。
本当は64bitにしたかったけど、ListViewとか、
一部使えなくなる機能があるので諦めた。

2019/05/12(日) 17:21:42.38

あ、Excel2013　+　Access2016って、インストールの組み合わせ。
別に、Excel2013からAccess2016に接続しに行ったわけじゃない。
落ちたのは、Excel2013からExcel2013へのADO接続。

2019/05/12(日) 17:23:44.21

なんの話をしているのか他人にはさっぱりわからないw

2019/05/12(日) 18:10:56.69

時刻がマイナスの場合

とは、if文でどうやってつくりますか？

2019/05/12(日) 18:20:18.19

>>212
マイナスの時刻など存在しない
If 1 = 2

2019/05/12(日) 18:23:52.94

A－B＝C

時刻の差のCがマイナス表示されるセルを

if文で
00:00:00
に直したいです

2019/05/12(日) 18:30:53.16

>>214
=TEXT(MAX(0, C), "hh:mm:ss")
VBAは要らん

2019/05/12(日) 18:33:52.80

セルの設定ですね。
ありがとうございます。

2019/05/12(日) 20:06:16.73

プログラミングの初歩は大事なんだと思ったよ。

ある値のときは00時00分00秒にするという分岐を思いつかないんだから。

2019/05/12(日) 20:51:34.11

まあMIN/MAXを使って値をキャップするのは正統なプログラミングでは非常によく使われる方法だけど、
事務屋さんには意外と思いつかないかもね

2019/05/12(日) 21:54:23.80

普通に時刻どうしで比較できるから、3分前とかそういうことかと思ってた

2019/05/12(日) 22:49:25.28

>>210
Office製品は基本的にバージョン違いを混在させられるようにはできていない。

2019/05/13(月) 07:47:02.77

>>220
そんなことはなくて条件満たせば使えるよ
https://www.microsoft.com/ja-jp/office/homeuse/attention4.aspx

**デフォルトの名無しさん** (ｱﾒ MMbb-BdsP) · 2019/05/13(月) 09:04:58.38

>>219
時間と時刻

2019/05/13(月) 09:19:29.85

その前にいきなり時刻とか言い出した辺りでダメダメ。
人間が時刻と思ってるだけの可能性がある。

セルの書式や変数の型を元に説明しないのは、人間の目線で時刻と言ってる証拠。

2019/05/13(月) 13:56:52.37

シャープで囲んでる人はちょっと

2019/05/13(月) 14:34:08.69

VBAでは時刻と時間を Timeでずっとやり繰りしてたのに、c#で TimeSpan発見したときは叫んだわ

2019/05/13(月) 16:36:40.35

え？エクセルをADOでデータベースみたいに扱うこともできるの?

2019/05/13(月) 17:03:08.67

>>226
ちゃんと形式を整えておけば単純なSELECTなら使える
WHEREが機能するだけでOKってことならまあまあかな
JOINとかは当てにならないような気がする
DELETE, INSERT, UPDATE はもっと当てにならない

2019/05/13(月) 19:21:33.24

あてにならないってなんやねん

2019/05/13(月) 20:44:43.21

>>228
他人だけど、ExcelのSQL操作はおまけ機能だから、標準SQLに対応してないから、やってみないとわからない。

2019/05/13(月) 21:00:39.75

まぁできちゃったらアクセスの立場ないわな

2019/05/13(月) 21:02:14.05

SQL自体もう色々派閥が分かれすぎて

2019/05/13(月) 21:06:25.95

>>229
馬鹿は死ねや
Accessのエンジンと同じだろ

2019/05/13(月) 21:10:27.82

>>232
バージョンを気にしてくださいw

2019/05/13(月) 22:16:41.75

>>226
出来るよ。
普通はやらないだろうけど、会社のPCにAccessが入ってないとか、
Accessは入ってるけど、事務のおばちゃんがExcelにしがみついて、
意地でも離さないとか、そういう状況で使える。

>>227
JOINは普通に使える。

2019/05/13(月) 22:42:40.28

>>234
そうか、JOINも普通にできるのか...

「Excelもデータベースとして有効に使えるよね」なんて方向に行って欲しくない、という願望が
俺の心の中にバイアスを生んだようだ

2019/05/13(月) 23:05:59.93

というかPowerQueryやDAXでデータベース的な使い方が出来てしまうからな今のExcelは

2019/05/13(月) 23:39:26.70

エクセルでできるってすごい！
そこで疑問に思ったんですが以下のVBA書いてみましたが

Dim adoCn As Object
Dim adoRs As Object
Dim strSQL As String
Dim DBpath As String

DBpath = ThisWorkbook.Path

Set adoCn = CreateObject("ADODB.Connection")
Set adoRs = CreateObject("ADODB.Recordset")
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & DBpath & "\SampleData.xlsx;"←①

strSQL = "select A,B,C from シート名 order by A desc" ←②
adoRs.Open strSQL, adoCn

＊何か処理

adoRs.Close
adoCn.Close 'コネクションのクローズ
Set adoRs = Nothing 'オブジェクトの破棄
Set adoCn = Nothing

①について
プロバイダーとファイル指定の記述の仕方はあってますか？
②について
列の指定とfromの方法は？

教えてください<(_ _)>

2019/05/13(月) 23:43:46.08

秀和システムでいいから、古本を買って読めよw

ちゃんとサンプルが書いてある。アマゾンの古本は激安だぞ。

2019/05/13(月) 23:45:48.17

エクセルをデータベースとして使う記述があるのがどの本なのかさっぱり・・・
できれば本教えてもらえませんか?

2019/05/13(月) 23:47:08.95

>>233
馬鹿は死ね

2019/05/13(月) 23:49:20.76

>>239
Google検索でもサンプルは山のようにあるぞ。

2019/05/14(火) 00:09:21.56

ちょっとググって見ます

2019/05/14(火) 00:15:14.20

>>237
何通りかあったと思うけど、
その書き方だと[Sheet1$]かな。

プロバイダーも、adoCn.Providerにも、adoCn.Openにも書ける。
ブック名をFromの後に書く方法もある。

組み合わせは忘れたけど、どこかで指定していれば、
別の部分では省略できる感じ。

2019/05/14(火) 05:07:41.34

>>243
なるほど、勉強になります

2019/05/14(火) 19:07:26.92

https://dotup.org/uploda/dotup.org1847293.xlsx.html
東京・大阪・北海道の各出発時間・到着時間を黄色い部分に「sendkeysで」、「それぞれ東京・大阪・北海道の順序を守って」入力したいです
実際にsendkeysでキーを送るのはブラウザ上のフォームであり、東京の時刻入力→tabとenterをsendkeyしつつ次のページに移動→大阪を入力、という風に処理するため、順序等が変更できません
また入力するのが東京・大阪・北海道だけでないかもしれないので、記載がある行すべてというイメージでお願いします

excelスレでも質問してみてますが、vba専門スレがあることに気付かされたのでこちらでお世話になります

2019/05/14(火) 20:14:46.00

だから、Sendkeysはやめろって。

これはお手軽にその場だけデータを取りたい時なんかに使うけど、制御出来ないから普通は使うべきじゃない。

2019/05/14(火) 20:18:43.38

もちろんそうなんですが自分には IE操作は敷居が高くて、愚直も愚直にsendkeysしか手段が思いつかないもので・・何か代替案ございますか？

2019/05/14(火) 20:22:02.95

どう考えてもIE操作の方が敷居が低いんだが

2019/05/14(火) 20:23:00.65

inputに文字列入れるだけだろ？
ソース見てidだかclassだか取得してポイって入れるだけじゃん

2019/05/14(火) 20:25:50.88

それがよーわからんのです・・
とりあえずググってすぐ見つかるサイトで特に初心者にわかりやすい解説してるサイトでも教えていただけませんか？

2019/05/14(火) 21:33:16.75

IE操作で頑張ってみてるんですが、リンクオープンして開いた別窓を操作するにはまたhtmldocにobjIE.documentを代入して・・ってしないといけないんですか？

2019/05/14(火) 21:59:36.21

>>251
別窓にしちゃう（なっちゃう）とそのウィンドウを探して、html取ってくることが必要になるので、できるなら避ける。

IE VBA
でググれば、参考サイト出てくる。あとは応用しだい
IEでは F12で開くやつも有用

がんばれ

2019/05/14(火) 22:06:13.16

>>252
社内システムなので必ず別窓になっちゃう仕様です
htmlの取り方教えてもらえませんか？

2019/05/14(火) 22:31:09.98

>社内システムなので

多分、このスレ見てる全員ズコーだわ、そのオチ。
システム部門の人に聞いちゃダメなんかい。

2019/05/14(火) 22:36:33.89

CreateObject("Shell.Application").Windows() から探す

2019/05/16(木) 11:39:56.68

excelマクロでのバージョン管理てどうすればいいん
言われるがままに集計マクロ作ったら担当者毎に持ってるマクロのバージョン違ってあの機能が無いとか特殊な状況でエラー出る→それ先月直しましたよ
が頻発してる

2019/05/16(木) 12:20:32.52

>>256
サーバー上にマクロ専用のエクセルファイルを置いて、
個々に配っているファイルからはそのマクロを参照させる

2019/05/16(木) 12:51:40.47

>>257
基本それだが、ずっと掴んでるやつがいるとバグ修正や機能追加のときに困る

2019/05/16(木) 14:16:39.46

>>258
読み取り専用にしてもダメか？

2019/05/16(木) 14:16:55.41

もちろん自分が編集する時は読み取り専用解除ね

2019/05/16(木) 14:43:29.72

コード書く画面を
背景は黒に、文字は白に、する方法を教えれ

2019/05/16(木) 15:42:20.38

ツール -> オプション -> エディターの設定

2019/05/16(木) 16:12:18.52

>>256
OS起動したら、サーバからコピーしてくるバッチ等を走らせる
小さいならいちいちバージョン確認しなくてもよい

**デフォルトの名無しさん** (ｱﾒ MM35-C3gu) · 2019/05/16(木) 18:04:23.53

みんな一々シャットダウンするのか？
スケジュールでコピーだろ

2019/05/16(木) 18:58:39.63

>>>261
これ
https://tonari-it.com/excel-vba-vbe-syntax-highlight/

ちなみに書くとこはVBEって言うから覚えておくと検索できて便利

2019/05/16(木) 19:18:23.52

マクロ終了時にマクロ開始から終了までにかかった時間が秒までメッセージボックスに表示するってできる？

2019/05/16(木) 19:18:36.52

>>264
個々人のローカルフォルダにxlam があってそれが定期的に書き換えられるって事？
他のブックがxlamを掴んでる最中でもできる？

2019/05/16(木) 19:23:31.84

>>266
できる

2019/05/16(木) 19:26:21.47

>>266
楽勝

Sub foo()
開始 = Now
'処理
終了 = Now
MsgBox Format(終了 - 開始, "hh:mm:ss")
End Sub

2019/05/16(木) 19:26:44.10

>>268
URL春だけでもいいから教えてあげたらｗ

2019/05/16(木) 19:31:25.53

>>268はなんとかookスレで最近流行りの流れだよw
>>269ありがとう！

**デフォルトの名無しさん** (ｱﾒ MM35-C3gu) · 2019/05/16(木) 20:10:17.30

>>267
掴んでたらスルー

2019/05/16(木) 22:17:19.76

>>256
起動時に何らかのファイルを参照するようにしておいて、
参照出来たらそのままOK。
出来なかったら、新たにファイルをDLする仕組みにする。

で、更新させたい時は、わざと参照用ファイルを消しておく。

2019/05/16(木) 22:24:00.58

>>273
xlamを共有するならそこのWorkbook_Open にそういう処理を入れておけばいいでしょうね

2019/05/16(木) 23:04:51.54

>>256
最新バージョン書いたテキストかなんかを共有に置いといて、起動時に見に行ってそれより古かったら更新促す警告出すとか

**デフォルトの名無しさん** (ｱﾒ MM35-C3gu) · 2019/05/17(金) 02:52:09.97

Excelの起動時、マクロを実行させる：Excel（エクセル）マクロ
https://www.excel.usefulhp.com/excel-macro/excel-macro50.html
で良いだろ

2019/05/17(金) 09:22:35.60

共有パス見て実行とか大変そう面倒そうて主観があったけども
Application.Run "共有のパス!マクロ名 "
の1行でいけちゃうもんなのか…？
とりあえず試してみる
すでに誰かが開いてる？とか参照できないときの対処も色々試してみるありがとう