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/06/27(木) 23:50:13.90

>>21
それは関数とかバージョンによると思うけど・・。
2013のVLOOKUPなら、VBA+SQLの方が何倍も速いし。

2019/06/27(木) 23:52:45.12

超初心者へのアドバイスなんだからザックリでいいんだよ

2019/06/28(金) 00:44:00.93

だな

>>16
ワークブック関数ていうものは使ったことないから分からないｽﾏﾝ

2019/06/28(金) 00:52:55.40

意味なくマクロ仕込んでるファイルは嫌われるので関数で済むものはなるべくそちらで

2019/06/28(金) 09:16:53.79

ワークシート関数でできることはワークシート関数で済ませて
データの差し替えとかそういうところだけVBAを使う

2019/06/28(金) 09:29:37.11

そうすると関数とVBAの２つを覚える必要があるからVBAで出来るならBBAでやるのが簡単

2019/06/28(金) 09:35:04.68

>>26
それってコンセンサスないと思えよ

2019/06/28(金) 09:37:37.70

コンセンサスは無いけど実務上>>26が一番安定するな

2019/06/28(金) 10:08:23.19

無駄にVBA使われてると「これ作った人承認欲求強いんかな」って思うわ
臨機応変に使い分けできる方がいい

2019/06/28(金) 12:12:11.20

基本ワークシート使って無理なものはVBAかな

そもそもワークシート使わないならVBAも使わないな

2019/06/28(金) 13:05:33.48

式が長くなったり作業列がいくつも必要になるような処理はVBAだわ
深いネストとか配列数式とか使うのもいいけど、ワークシート関数だけにこだわると、見通しや保守性が悪くなることもあるし

地味に厄介なのが条件付き書式
これも他人が作ったのを保守すると地獄を見ることになる

2019/06/28(金) 13:39:24.53

保守性で考えると名前の定義が割と曲者
大抵ぶっ壊れてる

2019/06/28(金) 17:29:45.12

>>33
範囲名のこと？

2019/06/28(金) 19:13:18.48

>>32
> 地味に厄介なのが条件付き書式
> これも他人が作ったのを保守すると地獄を見ることになる
頑張ってA1:A10に設定したのに次に見たらA1:A3,A4,A5:A7,A8:A9,A10に分割されてたり
マージしろとまでは言わないけど設定した奴を崩すなよ…

2019/06/28(金) 19:24:19.77

コピーペーストすると範囲がぶっ壊れるんだ

2019/06/28(金) 19:30:02.78

条件付き書式が壊れるのは仕様らしいぞ
よって改善される見込みも薄い

2019/06/28(金) 20:30:33.91

VBAで設定するの追加しとけばOK

2019/06/28(金) 22:15:25.94

関数と条件付き書式は被害者。
これ自体は何も悪くないのに、知らないうちに壊すアホのせいで、
糞みたいに思われてる。

2019/06/28(金) 22:55:25.47

それは仕組みが悪い
人のせいにしてはいかんずら

2019/06/29(土) 00:26:23.28

ちょっとニッチな質問失礼します。

バーコードによる品物管理のvbaの検討中です。

バーコードをスキャンした際に、数字に交じって、
グループセパレータ(GS) Asciiコード(0x1d)が出力されるタイプのバーコードを
スキャンした際、文字として存在しない、Ascii 0x1dが入力されたことを検知する術は
何かあるでしょうか。

スキャンしたデータは例えば、0000(0x1d)1234という形でスキャナから飛んできてるはずなのですが、
エクセル上の表記は、当然ながら00001234となってしまいます。

飛んでくる文字のasciiコードを逐一キャッチできれば、0x1dを検知できるかと思うのですが、
vbaでそんなこと可能でしょうか。

2019/06/29(土) 00:30:19.89

>>41
方法は読み取り機ごとに違う
機種によって可能だったり困難だった不可能だったりする
詳細はメーカーに問い合わせるしかない

2019/06/29(土) 00:48:05.66

>>41
どういう形でスキャン結果が来るのか知らんけど、文字列であれば
chr系の関数で一文字ごとに判定してみれば

2019/06/29(土) 01:05:03.58

>ちょっとニッチな質問失礼します。

ここの用途不明の質問に比べたら、
バーコードなんて超普通。

2019/06/29(土) 06:38:14.13

>>41
検知するだけだったら
0< InStr(s, ちゃー(&H1d))
ではダメなの？

2019/06/29(土) 06:44:07.39

Chr が投稿出来ないのか

2019/06/29(土) 07:42:08.89

バーコードリーダーを買い換える
二千円くらいであるでしょ

2019/06/29(土) 08:02:50.58

おれはUSB-COMでの読取りに挑戦してるけど
なかなかうまくいかないわ

2019/06/29(土) 08:41:34.78

スマホアプリ使ってるな
COGNEXのSCANNERってやつ

>>41
2つに分けたほうが良いと思う
・バーコードスキャン、文字をセルに入力
・入力したセルに対してvbaでfindか何かで検知。changeイベントになると思う

**デフォルトの名無しさん** (ｱﾒ MM39-HBOT) · 2019/06/29(土) 09:25:17.71

>>41
隣のセルで数値変換するか
そのセルの形式を数値にするではだめ？

2019/06/29(土) 12:25:05.67

>>49
> 2つに分けたほうが良いと思う
それなんの意味があるんだ？

2019/06/29(土) 12:33:19.42

>>30
拡張子が.xlsmだったからどんなコードが書かれてるのかと
エディタ開いて見てみたらModule1, Module2, Module3と並んでて
全部、なんもコード書かれてなく、各SheetやWorkbookにも全くコードが書かれてなかったわ

2019/06/29(土) 12:40:20.18

>>51
入力中の文字を触るのはIMEやらオートコンプリートやらと競合して、あまり良くない
セルの内容を確定させてから、改めて触ったほうが良い

2019/06/29(土) 13:46:07.80

ここ数週間、入門本とかサイトとか見ながら勉強して、
渾身のコードができたんだけど、誰か批評してくれるかい？？

脱初級者になったか見て、アドバイス欲しいんだけど…

2019/06/29(土) 14:03:17.76

>>54
半年間そのコードを見ずに放置してから
もう一度そのコードを見てみて何やってるのか
サクッと分かれば脱初級者

2019/06/29(土) 14:03:52.75

>>54
暇だし上げれば見てやるぞ

2019/06/29(土) 14:11:28.01

>>55
なるほど。。。

>>56
ありがとうございます。
ちょっと長すぎて書き込みエラーになりました

分割して貼ります

2019/06/29(土) 14:12:40.80

お願いします・・・

Option Explicit

Sub 明細書作成()

Dim wsMeisai As Worksheet
Set wsMeisai = worksheets("明細書")

Dim wsData As Worksheet
Set wsData = worksheets("データ")

Dim wsSettei As Worksheet
Set wsSettei = worksheets("設定")

'明細書シートの表の基点
Dim meisaiKiten As Range
Set meisaiKiten = wsMeisai.Range("o8")

'データシートの票の基点
Dim dataKiten As Range
Set dataKiten = wsData.Range("A5")

'設定シートの組合員リストの基点
Dim listKiten As Range
Set listKiten = wsSettei.Range("A3")

2019/06/29(土) 14:13:34.08

'########### 転記 ###########

'明細シートの組合員を定義(オブジェクトじゃないので注意)
Dim kumiaiin As String
kumiaiin = wsMeisai.Cells(7, 3)

'------- 設定シートの組合員リストから検索して正式名を転記 ------

' 検索回数定義
Dim a As Long

For a = 0 To 14

If wsSettei.Cells(listKiten.Row + a, 1) = kumiaiin Then

'ヒットしたものを転記
meisaiKiten.Offset(-4, 0).Value = listKiten.Offset(0 + a, 1).Value & " 御中"

End If

Next a

'------- 請求月の転記 ------

meisaiKiten.Offset(-2, 5).Value = wsMeisai.Cells(15, 3)

2019/06/29(土) 14:14:27.70

'########### 昇順ソート ###########

'データシートの票をソート(アクティブにしないとエラー)
wsData.Activate
wsData.Range(dataKiten, Cells(dataKiten.CurrentRegion.Rows.Count + 1, 6)).Sort _
key1:=dataKiten, _
order1:=xlAscending
wsMeisai.Activate

2019/06/29(土) 14:15:48.93

'############ 検索 #############

'明細書の票をクリア
wsMeisai.Range(meisaiKiten, meisaiKiten.Offset(30, 5)).ClearContents

'明細書の票の行数定義
Dim meisaiRow As Long
meisaiRow = 0

'検索回数を定義
Dim i As Long

For i = 0 To dataKiten.CurrentRegion.Rows.Count - 2

'--------日付での検索--------

Dim firstDate As Date
Dim lastDate As Date

firstDate = wsMeisai.Cells(13, 3)
lastDate = wsMeisai.Cells(15, 3)

If wsData.Cells(dataKiten.Row + i, 1) >= firstDate And wsData.Cells(dataKiten.Row + i, 1) <= lastDate Then

2019/06/29(土) 14:16:14.86

'---------組合員名で検索---------

If wsData.Cells(dataKiten.Row + i, dataKiten.Column + 4) = kumiaiin Then

'ヒットしたものを転記
meisaiKiten.Offset(meisaiRow, 0).Value = Month(dataKiten.Offset(0 + i, 0).Value)
meisaiKiten.Offset(meisaiRow, 1).Value = Day(dataKiten.Offset(0 + i, 0).Value)
meisaiKiten.Offset(meisaiRow, 2).Value = dataKiten.Offset(0 + i, 1).Value
meisaiKiten.Offset(meisaiRow, 3).Value = dataKiten.Offset(0 + i, 2).Value
meisaiKiten.Offset(meisaiRow, 4).Value = dataKiten.Offset(0 + i, 3).Value
meisaiKiten.Offset(meisaiRow, 5).Value = dataKiten.Offset(0 + i, 5).Value

meisaiRow = meisaiRow + 1

End If

End If

Next i

End Sub

2019/06/29(土) 14:18:49.64

すみません。
ちょっと長いんですが、よろしくお願いします！

なんか2chに貼るとインデントが消えました...

2019/06/29(土) 14:24:50.65

>>53
セルに入れてわざわざイベントでやるというのが意味不明
VBAでやるなら普通に変数に入れればいいだけだろ

2019/06/29(土) 14:44:03.18

>>63
・無駄な改行が多すぎる
・この長さならfunction分けたほうが良いかも知れない。まぁvbaならどっちでもいいけどな
https://i.imgur.com/KicuV2d.png

>>64
それが出来ればそれでokだけど、
スキャンした文字列をvbaで受ける方法が良く分からない

2019/06/29(土) 14:44:48.19

>>63
一応だけど、コードはこのままだと動かないぞ
こういう感じで書くと見やすくなるってだけ

2019/06/29(土) 15:02:51.58

>>65
> スキャンした文字列をvbaで受ける方法が良く分からない
⇒ >>42

2019/06/29(土) 15:05:49.45

>>67
だろ、だからその方法は回答できない

2019/06/29(土) 15:11:19.63

>>65
ありがとうございます！
なんか見やすいです。

ちょっと自分のをいじくってみます！

2019/06/29(土) 15:41:41.08

>>68
回答もできないのに
> 入力中の文字を触るのはIMEやらオートコンプリートやらと競合して、あまり良くない
とか言ってたのかよw

2019/06/29(土) 16:13:20.28

組み込みのソート機能ってアクティブにしないとエラーになるのか…
知らんかった

2019/06/29(土) 16:44:47.42

>>66
だよな。
プロシージャ内で宣言したものを、
プロシージャ外で使う方法があるのかと思って、ビックリしたわ。

2019/06/29(土) 16:52:28.77

ということは、dimしてる行を全部外に出せば良いのですかね？

今いじくっているんですが、俺のレベルでいじくると、動かなくなりそうでコワイ...

2019/06/29(土) 17:03:34.38

>>70
そんなに面白いの？

>>73
まぁメインはできるだけシンプルにして、各ルーチンを外に出せば、
この先処理が増えてもメンテが楽って事
今から書き直すのは大変だからやらないほうが良い。そこに意味はあまり無い

2019/06/29(土) 17:06:01.70

>>73
いや、全部じゃなく、複数のプロシージャで使うものだけね。
あと、「脱初心者」ってことなら、1セルずつ処理するのではなく、
配列に入れてからの方がいい。
あとは、ループで探すんじゃなくて、
アドバンスドフィルタで一気に取り出して、後から書式を加工するとか。

2019/06/29(土) 17:07:58.76

↑理由を書いてなかった。
1セルずつだと、件数が多くなってきた時に遅いから。

2019/06/29(土) 17:19:17.27

>>74
> そんなに面白いの？
知ったかをバカにしてるだけ
あと今時グローバル変数を勧めるなよ…

2019/06/29(土) 17:26:34.94

>>74
わかりました。別のを作るときの課題にします！

>>75

1、あと、「脱初心者」ってことなら、1セルずつ処理するのではなく、
配列に入れてからの方がいい。

2、あとは、ループで探すんじゃなくて、
アドバンスドフィルタで一気に取り出して、後から書式を加工するとか。

この2点、今の俺には知識がなく、どんな処理になるのかイメージがわかないので、ちょっと勉強します！

お二方、アドバイスありがとうございました！
プログラミング、スゲーおもろいです。

2019/06/29(土) 17:54:48.66

これからプログラムを勉強する人への最大のアドバイスはVBAなんか辞めとけ

2019/06/29(土) 18:05:49.76

>>78
１は>>76にもあるが処理速度の問題

状況によってはとてつもなく遅くなる

2019/06/29(土) 18:09:20.82

>>65
一般的に多いキーボ－ドインターフェースの場合、スキャンしたものを取り込むのは難しいぞ。
多分、ここにいる人達じゃ無理だと思う。
キーボ－ドフックのコードが書けるかどうかだね。
シリアルの場合は簡単だけど。

セル内の文字列に1Dが含まれている可能性が高いからスキャンした文字を受ける必要は無いと思う。
それに面倒なキ－ボードフックのコードを書く前にセル内の文字列に含まれているかを確認する方が先だ。

2019/06/29(土) 18:13:35.79

キーボ－ド
キ－ボード

何故

2019/06/29(土) 19:09:07.06

キーボードフック知ってる俺すげー君登場ww

2019/06/29(土) 19:41:33.03

>>83
普通の知識だよ
グローバルフックって言う方が通りが良い気はするけど

2019/06/29(土) 19:43:24.23

キーボードI/Fと同じと見なせるって前提なの？

2019/06/29(土) 19:46:43.38

>>85
それが分かっていないから答えようがない

2019/06/29(土) 20:26:23.63

>>84
>>81によると
> 多分、ここにいる人達じゃ無理だと思う。
らしいよww
まさかと思うけど揶揄してることはわかってるよね？

2019/06/29(土) 20:51:15.86

>>87
どうでもいいかな
回答もできない無能に自覚してほしいだけで

**デフォルトの名無しさん** (ｽﾌｯ Sdea-bYGp) · 2019/06/29(土) 21:25:03.11

キーボードをフックしていいのは昭和時代まで
Windowsではイベントハンドラを作るんだよ

2019/06/29(土) 21:36:58.96

>>58
このコードはシートに書いてるのかモジュールに書いてるのかどっち？

2019/06/29(土) 21:54:17.62

なぜ突然キーボードフックが出てくるんだ…
まさかバーコードスキャナーが出力ををVKほにゃららで送ってくるのか？
そんな変態デバイスあんの？

2019/06/29(土) 21:58:47.78

> 回答もできない無能に自覚してほしいだけで
昭和脳の渾身の回答w
・グローバル変数
・グローバルフック
マジで邪魔でしかないな

2019/06/29(土) 22:02:35.51

>>92
煽るならもうちょっと真面目にやってくれ、他人のレスの寄せ集めじゃないか
全然ダメージないぞ、画面の向こうの相手を殺す気でやれ

2019/06/29(土) 22:14:26.77

>マジで邪魔でしかないな

お前が言うな。
qzOxQgj0で検索したら、役に立つ情報1つも書いてないじゃないか。
そういうのを邪魔というんじゃないか?

2019/06/29(土) 22:16:55.30

スキャンした文字列をVBAで受けるのが分からないと書いてたから、それは難しいぞと返しただけなんだが。
難しいのさえ知らなかった人達が多いんだからな。
そりゃ、ここじゃ無理だろ。

だからまず問題のスキャナから入力されたセルの値に1Dが入ってるかをまず確認してほしいんだがね。

2019/06/29(土) 22:20:10.77

>>91
バーコードスキャナは全然違うものを送って来るよな。
キーボードの仕組みを知っている人は少ない。
VBA関係なく世間一般にプログラマーと呼ばれる人達においても。

メイクコード、ブレイクコードとかコマンドとかね。

2019/06/29(土) 22:40:36.99

>>93
> 全然ダメージないぞ、画面の向こうの相手を殺す気でやれ
自覚がないとか最悪だな
まあ自覚あったら回線切って二度と出てこれないわな

>>94
> qzOxQgj0で検索したら、役に立つ情報1つも書いてないじゃないか。
害悪な情報ドヤるよりマシだろw
まさかグローバル変数を勧めるのが役立つ情報とか言わないよな？

2019/06/29(土) 22:44:45.88

>>97
お前は自分が誰に向かって話してるのかも分からんのか?
滑稽だなあ。

2019/06/29(土) 23:08:30.19

キーボードフック知ってる俺すげー君乙w

2019/06/29(土) 23:10:28.18

>ID:/qzOxQgj0
なんでそんなに必死なの？

2019/06/29(土) 23:16:47.41

みなさん知識マウント楽しそうで何よりです^_^

2019/06/30(日) 00:26:31.94

ケチつけ連投するしか能がない真正バカ小原のことはほっときなさい

2019/06/30(日) 01:02:24.89

>>97
誰もグローバル変数なんか勧めてないが。

2019/06/30(日) 01:54:36.89

>>103
入門本とか見てるやつに>>65みたいなコード示したらグローバル変数勧めてるようなもんだろ
事実>>73はそうしろと言われてると思ってるし

2019/06/30(日) 06:26:13.81

>>104
ExcelVBAはworkbookを中心にスクリプトを組むので、
実はグローバル変数のデメリットがあまりない
開発が1人なら尚更
1000行ぐらいのコードなら、さっさとグロ－バルでもなんでも使ってスクリプトを組んだ方が良い

**デフォルトの名無しさん** (ｽﾌｯ Sdea-bYGp) · 2019/06/30(日) 06:48:56.62

このスレに、あきらかにプログラミング経験のかなり乏しいやつが紛れ込んでるな
キーボード操作に熟達してれば、普通はマイナスと長音を間違えたり混在させたりしない

2019/06/30(日) 07:44:09.12

>>106
「質問スレ」だからかと。

2019/06/30(日) 07:58:09.00

>>105
ガチの基地外かよ…

2019/06/30(日) 08:00:39.13

>>108
他人のレスが無いと何も反論できなくて草

2019/06/30(日) 08:58:22.39

>>106に指摘されてるのにこれ以上何を言うことがあるんだよ…
質問スレとか関係ないだろ
「グロ－バル」なんてどうやって入力してるんだよww

2019/06/30(日) 09:07:37.54

>>110
誰の事だよって俺の事か
>>81も変なタイプミスしてるなーと思ってたけど、多分今、googleIMEの変換がおかしくなっている
あまり気にするな、俺も気にしない

2019/06/30(日) 09:37:19.87

なんだ、長音とマイナスってそういう意味か。
くだらねえ。

俺はスマホで手書き入力使ってるんだよ。
VBAと何の関係が有るんだ?
馬鹿馬鹿しい。

2019/06/30(日) 09:37:37.48

そういうところに無頓着なのは>>106の言う通りプログラムの経験なさすぎ
そんなレベルで
> 暇だし上げれば見てやるぞ
とか頭おかしい
で、結論が
> ExcelVBAはworkbookを中心にスクリプトを組むので、
> 実はグローバル変数のデメリットがあまりない
とかww
マジでちょっとは自覚した方がいいぞ

2019/06/30(日) 09:39:38.61

>>113
具体的にどう問題があるの？

2019/06/30(日) 09:40:14.19

自分で考える力がないから～♪
他の人が指摘するまで～♪
突っ込む事ができない～♪♪

2019/06/30(日) 09:42:20.76

>>104
どこをどう見たら>>65がグローバル変数を勧めることになるんだ?
>>73が初心者で理解出来て無いだけじゃねーか。

>>65を見てグローバル変数を勧めてると思うのはよっぽどの初心者だぞ。
引数って知らないか?

2019/06/30(日) 09:46:09.67

>>113
だから、お前は誰と勘違いしてるんだ?
それに、無頓着とプログラミング全く関係ないがwww

自分のレベルの低さを誤魔化そうとするな。
発言からレベルの低さは滲み出てるから誤魔化そうとしても無駄。

2019/06/30(日) 09:50:33.52

あと、言っとくがキーボード操作とプログラミングの関係も分かってない。
ギーボード操作が上手くないプログラマーなんていくらでもいるぞ。

2019/06/30(日) 10:04:37.76

>>114
ここでグローバル変数の弊害を説明しろと？
マジで言ってるならちょっとググってこいよ…

>>116
だから入門書とか見てる奴に引数もちゃんと書いてないコード示すなよって話な
VBAスレだと引数知らない奴がいても不思議じゃないし

>>117
はいはい、キーボードフック書ける君は凄いよ
これで満足かなw

2019/06/30(日) 10:06:16.75

>>118
誰もキーボード操作の話なんてしてないよ
作った文章なりコードに無頓着かどうかの話
そういう違いもわからない時点で…w

2019/06/30(日) 10:07:18.76

>>119
早く誰か助けてくれると良いね