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

**デフォルトの名無しさん** (ｱﾒ 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
早く誰か助けてくれると良いね

2019/06/30(日) 10:12:06.59

>>116で「引数」という単語が出てからようやく>>119で「引数」使ってて草
幾ら何でも自分に自信なさすぎだろう

2019/06/30(日) 10:16:09.20

>>120
元々の>>106はキーボード操作の話じゃね―か。
そしてお前は>>106の言う通りと書いてる。

お子様かよ。

2019/06/30(日) 10:17:02.68

>>122
というか、俺に言われて調べ始めたに一票www

2019/06/30(日) 10:42:16.40

>>122
あのさあ、グローバル変数ガーって指摘してたら引数で渡してない事を言ってることぐらいはわかるだろ…
そんなところまでいちいち指摘するしかない所まで追い詰められてるのか？w

2019/06/30(日) 10:45:54.68

>>125
新しい単語増えなくて草

2019/06/30(日) 10:47:01.98

>>123
> そしてお前は>>106の言う通りと書いてる。
ああすまん
> 誰もキーボード操作の話なんてしてないよ
これは間違いだな
ただ「>>106の言う通り」は「あきらかにプログラミング経験のかなり乏しいやつ」のことな

2019/06/30(日) 10:48:05.76

>>127
やっぱり人の使った文章しか使えなくて草

2019/06/30(日) 10:48:32.85

>>126
増やす必要あるの？w

2019/06/30(日) 10:50:26.49

>>128
で？
人の使った文章かどうかに関わらずグローバル変数を勧めるのが害悪なことには変わりないだろ
まあもう引っ込みつかなくなって話そらそうと必死なのはわかるけどさww

2019/06/30(日) 10:51:14.71

>>129
話題を広げられない、人の引用しか出来ない
これでは君が発言する必要が無いね
個人的には生きてる価値もないと思う

2019/06/30(日) 10:55:57.45

>>130
そもそも>>125が嘘だろ。
>>116で初めて知ったのにwww

2019/06/30(日) 11:01:19.47

>>127
>>117に書いた通り。
無頓着とプログラミングも全く関係ないわけだが。
反論するなら>>117についての反論も言わないと全く意味がないわけだが。

2019/06/30(日) 11:06:21.97

VBAはエクセル専用用途だから意味があるんじゃないの？
エクセル以外なら他言語推奨

2019/06/30(日) 11:23:27.08

WordとかAccessとかPowerPointとか他のMicrosoft製品にもある（実際Wordで使ってる）

2019/06/30(日) 11:29:28.98

>>132
引数わかってないのにグローバル変数云々が言えるとでも思ってるのかよ…
どういう理論なんだよw

>>133
はいはい、そうだね
別にそこは議論の主眼じゃないから君の言う通りでいいよ

2019/06/30(日) 11:30:23.41

>>131
> 話題を広げられない、人の引用しか出来ない
> これでは君が発言する必要が無いね
> 個人的には生きてる価値もないと思う
ブーメランすぎるww

2019/06/30(日) 11:32:08.40

>>135
Outlookにもあるよ、使ってるし
Accessはそれ自体をあまり使わないからVBAも使ったことないな

2019/06/30(日) 11:33:36.95

業務にも依るんだろうけど、Excelについで使うのはAccessだな
パワポでも使えるのは知らんかった

2019/06/30(日) 11:33:50.38

ca01をNGに突っ込んだら
当面このガイジは見えなくなるよ

2019/06/30(日) 11:43:50.56

>>138-139
挙げるとキリが無いから省いたが、ほとんどのMicrosoft Office製品に入ってると思っていい
（PublisherとかProjectとかVisioとかそういうの）
ちなみにWordで組んだのは文脈から漢数字だけを判別して半角英数字に置換したり段落書式を設定したりアウトラインとかインデントを付けたりとかそういうの
話が脱線するのでこの辺で

2019/06/30(日) 12:03:52.32

>>140
一人でNGしとけばいいのにいちいち報告とかw

2019/06/30(日) 12:22:24.26

俺、初心者だけど、C4oDmko00が劣勢なのはすごい分かる

イチャモン付けてケンカ吹っかけたけど、
相手が強すぎて、返り討ちにあって逃げてるチンピラみたい

かわいそう。。。

2019/06/30(日) 12:57:47.77

>>143
> 俺、初心者だけど、C4oDmko00が劣勢なのはすごい分かる
どこを見てどういう理由でそう思ったのかな？
具体的に書いてみ

2019/06/30(日) 13:13:15.44

今北産業

2019/06/30(日) 13:26:23.09

>>136
???
またおかしなこと言い出したぞwww

引数取らないプロシージャ並べて呼び出す時にグローバル変数で連携しようとするのを批判してるんだろ。
引数知らなくても批判出来るし、知ってたら一番先に引数について言及する筈なんだけどwww

2019/06/30(日) 13:27:55.31

>>143
ID変えてご苦労様。
このスレでよく見かけるからバレバレ。
ついでに口調もそっくりwww

2019/06/30(日) 13:30:15.60

あれ、ca01とか書いてたから勘違いしたぞ。

2019/06/30(日) 13:46:54.84

グローバル変数を批判する奴ってセル値でのステータス値管理も批判するのかな
危険性はあまり変わらないんだけど