Excel VBA 質問スレ Part62

2019/06/24(月) 00:21:37.48

!extend:checked:vvvvv:1000:512

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

※前スレ
Excel VBA 質問スレ Part61
http://mevius.5ch.net/test/read.cgi/tech/1556203263/

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

2019/07/26(金) 19:39:04.29

>>492
コントロールってどれ？

2019/07/27(土) 08:56:54.14

バーコードたくさん作って印刷するプログラム作ってるんだけど
一筋縄ではいかないな
いろいろエラーが出て大変だわ
しかもステップインしながら様子みようとすると
中断モードでは入力できません
とやらのエラーがでる
回避する方法はあるようだけどめんどくさそうだ

2019/07/27(土) 08:59:35.78

>>494
バーコードってバーコードフォントがあるから楽勝だよ
気をつけるのは頭の0が消えないように文字列にするぐらい

2019/07/27(土) 09:07:12.15

>>495
それって外部からフォント導入しないといけないやつですよね？
会社のPCでやってるんでだめなんですよね
今はこれ↓を参照して使ってます
Microsoft　Access BarCode Control 14.0
重いしエラー出やすいし別の方法があればいいんですけど

2019/07/27(土) 09:09:23.16

フォントの導入も出来ないのか
それはさすがにキツイなぁ

2019/07/27(土) 09:11:52.17

>>496
バーコード　作成　サイト
で検索したら出てきたよ
https://barcode-place.azurewebsites.net/

他にも色々あるから探してみてはどうかな

2019/07/27(土) 09:18:31.74

>>498
ありがとう
でも、そもそもネットすら自由に使えないんですよね
あと、数百個作って印刷するので、ネット経由だと時間かかりそう
お客さんがらみの情報を外に出すことに上の人が嫌がるだろうということを考えると
ローカルで終わる仕組みがないと厳しいですね

2019/07/27(土) 09:23:26.79

牢獄かよｗｗｗｗｗ

・フォントを作る。
バーコードは0-9の10個しかない
svgで作ってローカルのhtmlに表示させる

2019/07/27(土) 09:50:59.75

>>500
バーコードにも色々な種類があってだな。。。
JANコードでも表現できるキャラクターは10種類の数字だけだけど、コードは20種類あって適切に並べないといけないんだぜ

2019/07/27(土) 09:54:25.37

>>500
セキュリティが特に厳しすぎるというよりも、意識が昭和なんですよね
人員削減されるからエクセルマクロつくるなとか面と向かって言う大御所もいるんで
とにかく目立たぬよう、些細な問題であっても起きないよう・・・と神経使うんです

今エラー回避の大きな進展があったのでなんとかこのまま組んでみます

Forで回しながらバーコードを作成・セルに配置していくんですけど
配置したセルの左上にナンバリングするコードを入れるとエラーで落ちるんですよね

バーコードを配置する処理と、ナンバリングする処理を異なるForで分けたらエラー出なくなりました
それ以外のコードは同じなんでなんだか理不尽なのですが、
理屈から攻めるより、多様なコードを試して見てどれがいけるか試して見るという
数打ちゃ当たる的な攻め方をするしかないみたいです
ステップ実行できないのがつらいですが

2019/07/27(土) 13:48:31.18

>>502
どう考えても自分でバグに気付いてない
オブジェクトの指定が間違ってる可能性が一番高いから、何もかも省略せずにきちんと書いてみ

2019/07/27(土) 14:03:45.48

なんとなく画像のバッファかなんかが溜まってる気がする
screenupdateをtrueにしたまま回すと多分落ちない気がする

2019/07/27(土) 15:48:46.00

>>504
それっぽいのかなと思ってます
起動して初回の処理は何の問題なくいけるんですけど
2回目ボタンを押して別のバーコードを作ろうとするとエラーがでるんですよね
印刷処理が終わった直後にバーコードや連番すべてを削除するコードを置いているんですけど
おそらく何かが残っているんじゃないかと思います

今の所は>>502で書いたように処理を分けることでうまくいってます
原因特定できたわけじゃないんですけどね
全削除のコード自体はそのままなので、ここに問題はないんじゃないかと思っています

ScreenUpdatingはFalseにしても以前のコードだと同じようにエラーがでますね
それだけじゃなくて、実用には耐えられないレベルで遅くなります

>>503
１．もしオブジェクトの指定が間違えているとするなら初回でもエラーがでるだるはず
２．今のコードと、バーコード配置直後にナンバリングするコードでオブジェクトの指定は同じ
なので、やはり原因とするには矛盾があるかな

最終的には、負荷を減らすために、１ページ分バーコードを作ったら
その都度印刷＋全削除を繰り返すことで全て印刷するという形で組んでいこうと思っています
バッファ絡みだと嫌な予感もしますが、原因特定はできなくとも、エラー回避方法は特定できてきたのでなんとかなるかなと

2019/07/27(土) 16:22:17.12

>>505
＞ScreenUpdating
これは残念
地味に自信があったのにｗ

＞ゴミどうこう
恐らく当たっている
vbaはGC、ガベージコレクション・・要は前の作業のゴミ掃除が貧弱

一番わかりやすいのは、新しいbookをデスクトップが同じフォルダにでも作ってそこで作業させること
コード上は色々とややこしくなるが、大分緩和される

多分一番いいのはVBS、Excel外から作って、Excelをそのたびに再起動させる事
それならまず大丈夫

2019/07/27(土) 17:21:27.70

こういう問題が出て
https://gyazo.com/6bbc43b5a4346db69404d52e985b0244
https://gyazo.com/faf8012dcb22cdd442c687663f1e7524
セル番地(F10)について、次の問1から問3を解答しなさい。
問1　セル番地(F10)を複合参照で列を固定した答えを記入しなさい。
問2　セル番地(F10)を複合参照で行を固定した答えを記入しなさい。
問3　セル番地(F10)を絶対参照で列と行を固定した答えを記入しなさい。

1,SUM($F5:$F9) 2,SUM(F$5:F$9) 3,SUM($F$5:$F$9) 　と解答したら全て間違えてました。
解答が分からないので教えて下さい。

2019/07/27(土) 17:31:16.63

>>507
Excelスレで完全に合ってるから教師に聞けと言われてる奴だろ
一応見直したけど合っている
教師に何が間違っているのかを聞いたほうが良い

2019/07/27(土) 17:37:41.95

>>507
スレチ
https://mevius.5ch.net/test/read.cgi/bsoft/1556754363/

2019/07/27(土) 17:39:32.12

>508
そうです。でも全てバツが入ってました…。
返却されたプリントに、"セル番地(F10)についてここのみで記します"と書いてありました。
自分には意味がさっぱりですが何か分かりませんか？

2019/07/27(土) 17:52:14.66

VBAのフォームのテキストボックス内のフォントサイズが場所によってまちまちなんですが、
どうしたら統一できるでしょうか？
因みに、
テキストボックスのプロパティ（フォント名、フォントサイズ、ボックス高さ）はすべて統一しています。
https://uploader.xzy.pw/upload/20190727174533_466d653379.png

**510** (ﾜｯﾁｮｲ 46e9-tP4r) · 2019/07/27(土) 17:55:18.22

”ここの外で記します”と書いてあるかも知れないです。先生の字が汚くて読めない…
セル番地(F10)について、ここの外で記します。と書いてあるのでそれがヒントになってると思うのですが。

これを踏まえた上で>>507の解答お願いいたしますm(_ _)m

2019/07/27(土) 17:57:54.34

>>511
サイズ違うやつって全角じゃないの？

2019/07/27(土) 18:04:51.46

>>510
このスレをその教師に見せろ
その教師は無能でアホだから何も分かっていない

'以下、その教師に当てる連絡

テメーより何十年も現場で使い倒してる連中が全員正解と言っている
つまらないルールがあるならそれを書け、聞いてやった上で正解を出してやるから書き込め

'連絡、ここまで

2019/07/27(土) 18:04:53.29

スレ違いだっていわれてんのになめてんのか？

2019/07/27(土) 18:05:26.47

>>512
死ねや、クズ

2019/07/27(土) 18:06:41.53

>>512
字が汚くて読めないなら聞け
それで何かあれば全部お前の責任だ

>>516
殺すのは簡単だがもう少し成長させろ

2019/07/27(土) 18:08:26.65

>>512
お前みたいなゴミクズが言われたままに従うから教師がつけあがるんだよ
教師に「指示に従いたいが何書いてるか分からないから従えない」
といえば100%回答する
わかるまで聞け

**デフォルトの名無しさん** (ｽﾌｯ Sdaa-LrPu) · 2019/07/27(土) 18:11:07.39

>>514
ここ学校の連絡掲示板じゃないんで

2019/07/27(土) 18:13:50.95

>>519
ここで良い
いいから見せろ
ここでなければ教師は切り取って「あー一部がほえてるだけだHAHAHA」なんていうだけだろう

**デフォルトの名無しさん** (ｽﾌｯ Sdaa-LrPu) · 2019/07/27(土) 18:16:51.94

>>520
スレタイが理解できないなら仕方ないな

2019/07/27(土) 18:51:44.04

>>513
数字はすべて全角です

2019/07/27(土) 18:57:28.77

>>522
全角やめたほうがいいよ
数字としてプログラムが処理できない

使うとしたらフォトショでクリエイティブな作品を作るときぐらい

2019/07/27(土) 19:03:45.50

>>522
ほんとに統一されてるか？されてないから違うんじゃないか？

**デフォルトの名無しさん** (ｱﾒ MMc7-HdTi) · 2019/07/27(土) 23:59:06.49

>>511
どうでもいいかもしれんが、何でシートでやらんの
面倒いだけじゃない

2019/07/28(日) 04:39:33.47

>>508
列の合計で。C10:E10が正解って落ちなんじゃ

2019/07/28(日) 09:32:44.25

> セル番地(F10)を
つまり「$F10, F$10, $F$10」が答えってオチ？

2019/07/28(日) 09:54:38.87

>>527
俺はそう解釈したが。
むしろCとかEとか何処から出てきたん

2019/07/28(日) 12:28:22.02

>>526
単価バラバラの個数集計して何をしたいんだ？

2019/07/28(日) 15:40:47.61

>>507
>>512
”ここの外で記します”だから
F10以外のセルに記する
すなわちF10以外のセルからF10を参照するにはどのように書けばいいかということじゃない？
1.　$F10
2. F$10
3. $F$10

2019/07/28(日) 15:44:43.68

>>493
Adobe PDF Reader コントロールです。

2019/07/28(日) 16:34:10.62

>>531
Excelのバージョン違うけど俺も同じエラー出たからWebBrowserコントロールで表示させた

2019/07/29(月) 21:45:38.25

https://i.imgur.com/7ssVURS.jpg

2019/07/30(火) 10:04:06.46

for i = 2 to 6
Sheet1.Range(cells(i, 1), cells(i, 7)).Value = Sheet3.Range(cells(2, 1), cells(2, 7)).Value
next i
これがエラー吐くんですがどうしてだかわかりますか？
なおコードは簡略化してあります。エラーが出るところだけピックアップしてみました。

2019/07/30(火) 10:21:39.52

セルの結合などで配列が作れないとか？

2019/07/30(火) 10:27:09.85

セルの結合はしてないです

2019/07/30(火) 10:38:34.52

cellsにもシート指定する

2019/07/30(火) 10:56:49.73

流石です。できました！

2019/07/30(火) 11:21:54.97

もうひとつ質問です。
エクセルは24時を越える時間をセルに入力するとセルの頭に1900/1/1とついてしまいますがこれを消す方法はないでしょうか。
具体的には
Range("d2").Value = DateAdd("s", 14405 * (cells(2, 7).Value + 1), cells(2, 3))
とやって4時間の倍数を計算したとき24時を越えると時間の前に1900/1/1がついてしまいます。
これがついたときこの1900/1/1の部分を消したいのです。
例えばright関数を使って右の時間の部分だけとろうとしてもシリアル値がコピーされるのか、上手く行きません。

2019/07/30(火) 11:25:40.51

なお書式設定でhh:mm:;ssとしているので見かけ上はちゃんと時間だけ表示されます。
この時間をソートしたとき頭に1900/1/1がついた時間が後ろに回りこんで困っています。

2019/07/30(火) 12:41:51.17

>>54
> この時間をソートしたとき頭に1900/1/1がついた時間が後ろに回りこんで困っています。
そりゃ24時間超えてるんだから下に来るのは当たり前
取り敢えず簡単にやるなら
Range("d2").Value = Mod(DateAdd("s", 14405 * (cells(2, 7).Value + 1), cells(2, 3)), 1)
の様にして少数部だけにすればいい
ちゃんと知りたいなら
Excel シリアル値
あたりでググってくれ

2019/07/30(火) 19:06:59.93

どれも初心者が陥る有りがちな罠。
中級者以上なら皆知ってる。

2019/07/30(火) 19:48:55.40

>>541
mod関数を使って余りを求める発想は恐れ入りました。
しかし、コピペで上手く動作しなかったので、シリアル値が1以上だと表示されることに注目して
if文を使って1以上ならシリアル値から－1するようにコードを書き換えました。
今のところ上手く動いてますがmod関数を使った余りを求める方法のほうが遥かにスマートなので
試行錯誤しながらmod関数を取り入れてみたいと思います。
ありがとうございました！

2019/07/30(火) 20:02:47.84

>>543
まあ本来modとか剰余とかは整数にしか定義されてないからExcelがちょっと異常だと思ってた方がいいと思うよ

2019/07/30(火) 20:27:28.12

>>544
IEEEの剰余演算知らないのか
素人丸出しだな

2019/07/31(水) 06:47:02.32

すきあらばマウンティングとかw

2019/07/31(水) 07:02:37.78

マウント関数

2019/07/31(水) 13:15:14.27

>>532
やっぱりそうなりますか。
僕も代替策でWebBrowser使ってるのですが、こういうの気持ち悪くて。
WebBrowserだと印刷とか拡大のボタン出てきちゃうし。

2019/07/31(水) 22:27:47.84

時間を24以上にしたいなら
表示形式で[hh]:mmみたいに角括弧つける方法もある

2019/08/01(木) 06:52:12.88

>>549
ソートするとおかしいと言ってるからそれ関係ない
>>545とかもそうだがチンケな知識自慢はウザイだけ

2019/08/01(木) 22:46:09.22

時刻が昇順に見えなくておかしいなら[hh]:mmで昇順に見えるよ

2019/08/01(木) 23:23:27.20

コールバック関数をどういう状況で使うのか分からないんですけど、
↓こんな状況で使う、で合ってますか?

Sub Test()

　この中で、関数Aを実行したい場合と、関数Bを実行したい場合がある。
　If文で、関数Aと関数Bを分岐するのは嫌。

End Sub

2019/08/01(木) 23:25:07.45

今すぐ実行しないけど、何を呼ぶかは今決めておきたい時

2019/08/02(金) 00:58:24.36

依存関係を逆転するんだよ
AがBを呼ぶ場合、普通はAがBに依存するだろ？
コールバックやインターフェイスを使うことで、AがBに依存しないままでBを呼ぶことができる
それによりAを変更することなくBを別の実装Cに差し替えることが可能になり、Aの再利用性が高まる
まあVBAにはそんな小難しい概念は全く必要ないから忘れていい

2019/08/02(金) 06:30:07.60

コールバックは非同期だとめちゃくちゃ便利だけどvbaみたいに一本の処理が続く言語ではあんまり意味が無い
独自関数のイベントハンドラすら無いなら尚更

2019/08/02(金) 13:06:20.71

コールバックは非常に重要なんだけどVBAで出てくるのはサブクラスやフックなんかの高度な話の時や、コールバック使用を前提とするWin32APIの時だな。

2019/08/04(日) 15:16:30.47

・Microsoft HTML Object Library
・Microsoft Internet Controls
これらを参照したプログラムを社内で組んで使っています。

ベースとなるIE上のページにあるいくつかのリンク先から必要な情報を
とりだしてワークシートに並べるだけの単純なものです

これまでWindows7（64bit）+Excel2010だったのですが
Windows10+Excel2016に近々移行するという話が出ています

そのまま使い続けられたらいいなと思っているのですが、
何か明らかに問題となるような事項はご存じでしょうか？

自分で組んだものなので、修正はできるのですが、アクセスしにくい場所にあるので
事前に知っておくことができれば対応しやすいなと思っています

2019/08/04(日) 15:50:09.98

>>557
Win10+IEでは、IEのプロセスがしばらく消えなかったり、読み込み完了してもReadyStateがきちんと変化しなかったりで、移行にはかなり苦労すると思われる
俺はすごく苦労した

2019/08/04(日) 17:49:24.07

>>558
その辺は移行後じゃないと分からなさそうですね
一旦使用中止した上で確認することも考えます
ありがとうございます

2019/08/04(日) 18:18:52.51

IEオブジェクトはそろそろやめた方が良いね

2019/08/04(日) 18:58:46.79

読み込み完了を確実に知る手段がないからなReadyStateあてにならないし

2019/08/04(日) 19:10:37.00

ajaxがあるともう無理

2019/08/04(日) 19:47:17.29

>>561
実は方法はあるんだけど、あんまりスマートじゃないんで他人の使うアプリでは採用しづらい

2019/08/04(日) 21:08:59.72

On Error～と Do Loop ?

2019/08/04(日) 21:21:12.54

doloopで取得する方法って無限ループになりそうで怖い

2019/08/04(日) 23:22:30.08

Excelでソースを見られないようにする方法はありますか？
プロジェクトのパスワードはすぐに突破されるので

2019/08/04(日) 23:24:28.94

無いよ

2019/08/04(日) 23:25:56.68

と思ったけどスマン
dllにして読み込む形なら結構行けるんじゃないかと思った

2019/08/05(月) 02:53:35.25

見た目比較、柔らか比較、直観比較、なんて言うんでしょうね？
どうｸﾞｸﾞればいいのか
ｽﾚﾁなのかどうか
ＶＢＡに限らず、Ｃ＃でも結局、空文字連結が最良だった印象
でも問題にしたい基本はＥｘｃｅｌ　ＶＢＡ

　Ｉｆ　Ａ　＆　””＝Ｂ　＆　””　Ｔｈｅｎ

というのは、数字を１ｾﾙずつ入力すると数値になるけど、配列でまとめて入れると文字になったり
でも単純に「１」なら「１」なのだとしたい場合

ちなみにＣＳｔｒはＮｕｌｌでｴﾗｰになるので＆””の方が便利
便利だけでなく、速度も圧倒的に＆””の方が速い
（ちなみにｾﾙのＴｅｘｔﾌﾟﾛﾊﾟﾃｨもめっちゃ遅い）

ちなみにｾﾙをＳｔｒｉｎｇ変数に代入してから比較する方が、＆””より１～２割速い
ｾﾙにＮｕｌｌを入力しても空文字になるので、ｾﾙ側には使える
でも用途限定＆ｿｰｽ増えるので、よほどの大量処理で困らない限り、一般的には＆””が安定かな

でも昔、「なんで空文字連結してるの？」って誰かに怒られたことがあり、なんとなく後ろめたい
でもﾃｽﾄを重ねるうちに例外に気付き、最初からやっときゃ良かったじゃんとなる

どうなんですかね？

2019/08/05(月) 02:54:38.57

あれ、１＝”ー１”ってなんだｗ
１＝”１”ね

2019/08/05(月) 06:35:19.95

>>569
型変換のために空文字列を連結したり0を足すのは、ワークシート上ではよくやるけどVBAでは避けた方がいい
セルの表示内容を文字列で欲しい時はTextプロパティを使うのがセオリーだし、自分でも書いてるけどString型の変数に代入するべき

2019/08/05(月) 09:21:52.72

>>571
Textプロパティは使わねえな。

2019/08/05(月) 11:48:01.13

>>558横からすみません
すごく苦労した部分の詳細や対応策を教えていただけないでしょうか

2019/08/05(月) 13:25:50.95

>>573
俺が試行錯誤の末に発見したのは、IEオブジェクトのVisibleプロパティが変化するとReadyStateが更新される、ということ
だから

objIE.Visible = False
objIE.Visible = True

という2行を読み込み完了チェックのループに挿入した
あと、IEが非アクティブになるとエラーで止まることがあるので、マクロ実行中は一切さわってはいけないという制約まで付く
ここまでやって、画面がものすごい勢いで点滅するけど、一応の結果は得られるようになった
あと、Win10の次の大型アップデートでIEの動作がまた変わるかも知れないので、いつまでも使える保証がない

JavaScriptやcookieやセッションの管理などが必要なければXMLHTTPを使った方が簡単で確実

2019/08/05(月) 14:36:12.11

タブブラウザで新しいタブに追加する方法はあれから発明されましたか？

2019/08/05(月) 16:28:51.96

>>574さん
ありがとうございます

すごい参考になりました
時々ReadyStateが更新されずDo-Loop抜けずに困っていました

2019/08/05(月) 18:35:15.20

今でもIEなんて使ってるのお前らだけだろ
あんたの会社はセキュリティとか気にしないんだね

2019/08/05(月) 18:46:21.41

＞ここまでやって、画面がものすごい勢いで点滅する
なると思ったけどやっぱりなるんだ

>>577
ブラウザの解釈が必要なところはどうしてもあるんだよ
ただのスクレイピングでいいなら色々な方法があるけどやっぱりキツイ

2019/08/05(月) 19:20:06.57

textプロパティ遅いからデータ量が多くない時しか使えない

2019/08/05(月) 19:34:11.66

>>569
セルに数字入れたら文字になるというのは、RangeのValueに入れてるからとかでは

2019/08/05(月) 19:55:00.01

>>569
自分一人しか見ないならどっちでも良いよ
他の人への見やすさを考えると関数の方が良い
文字列連結で考えられるのは
・仕様を検索し辛い。str()なら一発で見つかるが、文字列連結によるエラーなどはどう探していいのか分からん
・そもそも何をしているのかも分かりづらい。本来は文字列を入れるつもりだったようにも見える
・この記述でどういうエラーや分岐が発生するか不明。nullやDATE型が入ってる場合など

見た目比較
tostring = Str(1)
tostring = 1 & ""

どうしても使いたいならコメントをつけるなどした方が以下も知れないけどこれもアホらしいな
tostring = 1 & "" '文字列化

2019/08/05(月) 20:12:10.62

str(1)は"1"にならない
strは符号付文字列化だから

2019/08/05(月) 20:48:05.94

あぁCstrじゃないとダメなんだっけ
ずっと忘れてたわありがとう
今までのコードかなり間違えてる気がする

2019/08/05(月) 20:55:56.77

良く使う文字列変数名ってみんなどんな？

2019/08/05(月) 21:21:35.78

名前やら住所やら普通に2バイト変数名使いまくる

2019/08/05(月) 21:29:12.71

>>584
ちょっとしたテスト用ならs
それ以外は何の文字列かがわかる名前

2019/08/05(月) 21:48:48.29

>>577
IEの代わりに何を使っているのですか？

2019/08/05(月) 22:39:27.27

仮にIE使えなくなったら、どうすりゃいいんだろう?
UIAutomationでも使うの?

2019/08/05(月) 23:06:57.61

>>588
原理上は、EdgeでもChromeでもどんなブラウザでもVBAや外部アプリから操作できる
あとは必要なライブラリのインストールが許可されるかどうかで決まる

とりあえずEdgeは簡単にコントロールできるよ
https://www.ka-net.org/blog/?p=6018

2019/08/05(月) 23:11:08.42

タブブラウザで新しいタブに追加する方法はあれから発明されましたか？

2019/08/05(月) 23:14:43.05

>>590
その操作必要？
二つオブジェクト作れば良いと思うけど、ダメなのか

2019/08/05(月) 23:41:12.85

ウインドウが二つになってしまうんですよ。タブじゃなく。