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/30(木) 12:31:21.82

>>454
別に気にしなくてもいいけど>>440みたいなツッコミ入れるならちゃんと理解してないと恥をかく

2019/05/30(木) 15:33:21.51

>>457
おれも、昔話書きたくなったレベル
z80とか8080とかな8086なんて凄いよな

2019/05/30(木) 18:56:24.47

ここできいていいのか分かりませんがマクロの組み方で教えてください

「=5月シートＡ1」
「=5月シートＡ2」
みたいに引っ張っているセルを
「=6月シートＡ1」
「=6月シートＡ2」
みたいに変えるマクロを組みたいんですが

それを毎月自動で7月、8月、と月に合わせて変えるのはどうやるのですか？

理想としては、5月と書いてあるセルを6月と入力し、そのセルをコピペしていくマクロを組みたいのですが、その流れを作っても元の5月だけがコピペされてしまう状態です。

説明が下手ですみません。

2019/05/30(木) 19:04:11.68

今月=month(date)
activesheet.range("a1").resize(5).formula="="&今月&"!a1"

2019/05/30(木) 19:12:37.62

>>459
5月シートをコピーして6月シートにする。
5月を6月に文字列全置換え

処理日によって月を自動判定でもいいが、フォームで値を確認、修正後に実行の方がいいんじゃないかな

2019/05/30(木) 19:18:06.10

>>460
すみません初心者なので詳しくは分かりませんが、今の月を参照するセルを作り、それをコピペするように組めばいい感じでしょうか。
間違ってたらすみません。

>>461
今まではそうやっていたのですが、それ以外にも、不要な場所を削除して、一番下の数値を一番上に持っていってみたいな作業があるので、その置き換えも合わせてマクロにしたいと思いまして。

2019/05/30(木) 19:37:14.94

>>462
今月の月を取得して、a1からa5までの数式を置き換えるイメージです。
携帯からなので試せていませんが・・・

2019/05/30(木) 19:38:13.64

>>463
ありがとうございます。
試してみます

2019/05/30(木) 19:41:48.72

>>464
文字列の検索や置換は数式にも有効
5月を6月に置換すればいい
VBAは必要ない

2019/05/30(木) 19:49:45.60

>>459
他の処理はともかく数式に関してはマクロいらない
=INDIRECT(MONTH(NOW())&"月!A1")

2019/05/30(木) 19:55:45.24

間違えたわ、こうだわ
=INDIRECT(MONTH(NOW())&"月!A"&ROW(A1))

2019/05/31(金) 10:21:23.92

なんか、今月にこだわる人多いが説明だと選んだ月のシートからデーターを
持ってきたいだけだろ、勿論INDIRECTを使うことでマクロを使う必要はない
例えば、値を参照するシートとのA1セルに入力規制で１月～12月を選択して
=INDIRECT($A$1 & "!A" & ROW(A1))
でいいだろ

2019/05/31(金) 10:48:51.98

>>468
> それを毎月自動で7月、8月、と月に合わせて変えるのはどうやるのですか？

2019/05/31(金) 11:09:05.87

>>469
自動だったらA1セルをNow()にして表示形式を
月だけにすればいいだけだろ
各セルに設定する関数は簡素に共通化する

2019/05/31(金) 11:20:16.63

>>470
> なんか、今月にこだわる人多いが

2019/05/31(金) 11:34:43.20

>>471
今月か選択なんてExcelをちょろって知ってればどっちでもいいんだよ
１っか所変えただけで要は１っか所を変えただけでその月に対応すればよいだけ
こんなのマクロなんか書いたら笑えるレベル

2019/05/31(金) 11:36:26.16

あら～ダブって入ったわ　すまぬの

2019/05/31(金) 11:48:24.92

なんかVBA使わずにワークシート関数使えっていうコンセンサスでもあるの？
思い込みと違う？

2019/05/31(金) 11:53:29.26

>>459
お題は
>理想としては、5月と書いてあるセルを6月と入力し、そのセルをコピペしていくマクロを組みたいのですが、その流れを作っても元の5月だけがコピペされてしまう状態です。
だけどな、マクロを使わないと気が済まないやつっているのかな

2019/05/31(金) 11:57:27.72

>>474
これでマクロを作るやつのマクロを参考にしたいな
ぜひ作ってね

2019/05/31(金) 12:02:31.59

>>474
数式だけならファイル形式をxlsxのままにできて安全
同じ機能なら数式で済ませた方が良いだろう

家計簿ならどっちでも良いのは間違いない

2019/05/31(金) 12:17:34.40

まあなんだな、$A$1この書き方って絶対参照だが良くないんだよな
普通はそのセルに名前を付けてその名前で参照する
例えば「設定月」みたいな名前ね

2019/05/31(金) 12:21:40.48

VBAのスレでマクロつかうなとか(笑)

2019/05/31(金) 12:23:22.93

>>472
>>462 > それ以外にも、不要な場所を削除して、一番下の数値を一番上に持っていってみたいな作業があるので、その置き換えも合わせてマクロにしたいと思いまして。

2019/05/31(金) 12:27:21.46

シートを左のものからきっちり順に印刷する（印刷指示を出す）vbaありませんか？
スプール云々はプリンターの詳細設定弄れなくなってるのでvbaでどうにかなればしたいのですが・・

2019/05/31(金) 12:27:47.02

Excelの関数や機能も知らん奴がVBAでマクロを作るか
少しは勉強しろよ、ってか
運転できないやつが、自動運転を作るみたいなもんか？
ってか参照で十分なものを何でマクロ(笑)

2019/05/31(金) 12:31:43.08

>>482
>>459 > 毎月自動で7月、8月、と月に合わせて変える
　>>468 > 今月にこだわる人多いが
>>462 > その置き換えも合わせてマクロにしたい
　>>472 > こんなのマクロなんか書いたら笑えるレベル

一部読み飛ばして回答してしまうのはなんなのネタなの

2019/05/31(金) 12:32:47.94

>>480
すまないが、そんなのどうして関数でできないと思うんだ？
ちゃんと説明すれば？、今まで書いているのはあまりにも簡単な質問で
関数で十分なんだが

2019/05/31(金) 12:37:34.60

>>483
別に、マクロで提案してみたら

2019/05/31(金) 12:54:17.71

自動車つくれなくても、つくってもらって乗ればいいじゃん

2019/05/31(金) 13:01:15.44

>>486
でも、企画があってな　わけなわからん奴の作った自転車に
乗れるか？
責任は運転者だよ、関数は規格通りだな
その自転車がすごきゃいいよ、単に危ないだけじゃな

2019/05/31(金) 13:10:48.90

>>483
で、お前は何ができるんだ？
何が気に障った？(笑)

2019/05/31(金) 13:26:58.37

>>483
VBAで提案できないやつが・・・・
ネタだよな・・関数なら即座なのに

2019/05/31(金) 13:43:20.27

>>489
今月にこだわっててもおかしくないし
一連の流れをマクロにしてその一部の質問してるわけでしょ
だから>>468も>>472も的外れって話
訂正するわけでもないのに再アンカをしかも連投するってせっかちすぎない？

2019/05/31(金) 13:55:19.86

>>490
今月とかどうでもいいんだよ
単に参照すればいいだけ、それで質問者の意図に対応できないか？
自分の主張じゃなく、何が正しいかで提案するんだよ
VBAで作れば何でもできるさ、でも単に絶対参照でいいものをこねくり回すなよ

2019/05/31(金) 14:07:14.86

>>491
次は話ループさせんの？
「毎月自動、VBA」という質問の前提をこねくり回してるのはそっちでは？

2019/05/31(金) 14:14:55.01

普通のExcelスレはあんなに紳士的なのに・・・

2019/05/31(金) 14:31:03.11

何だろうな、普通に絶対参照すればいいものをVBA・VBAって叫ぶの
怖いは

2019/05/31(金) 14:48:52.06

>>494
>>459>>462でマクロでやりたいと言ってるし、
マクロ以外の回答に対してノーリアクション
数式での回答を求めてないのだろう。結果を求めるだけじゃなく、マクロ自体を書きたいという質問者もいるわけだしな
あまり押し付けるのもどうかと思う

もちろん一般的な場合は君のやり方が正しいのは明らか
さすがにそれが分かってない人はいないだろう

2019/05/31(金) 15:04:15.42

>>462
削除等はマクロで、他シート参照は数式でいいんでないの

2019/05/31(金) 15:50:07.97

元の前提無視して絶対参照・絶対参照って叫ぶの
怖いは
って言えばいいのかな

2019/05/31(金) 16:21:11.81

>>496
削除が必要って単なる思い込みではないのかな
Excelの使い方もわからないのってVBAって魔法の玉手箱じゃないの
でなければ、質問者に対する最適の解をさっさとVBAで示せばいいんだよ

2019/05/31(金) 16:31:39.12

元々の質問を見る限り、詳細が無いのでVBAで解決すべきか数式で解決すべきか判断できん。

逆に言えばこれだけの情報でVBAを必要無いとか言ってしまえる人って初心者とまでは言わないけど大したスキルは無いんだろうなと思ってしまう。

**デフォルトの名無しさん** (ｱﾒ MM97-nuIz) · 2019/05/31(金) 16:43:05.14

>>499
そうか　君はプロなんだね(笑)

2019/05/31(金) 17:06:59.36

>>500
初心者は自分の状況を上手く説明出来ないし、それはしようが無い。
一方回答する方も、初心者は自分の狭い土俵で回答しようとするんだよね。

**デフォルトの名無しさん** (ｱﾒ MM97-nuIz) · 2019/05/31(金) 17:12:13.76

>>501
いまだにＶＢＡでの回答すらないけどね

2019/05/31(金) 17:17:59.31

>>502
俺はこんな質問に回答しないよ。
何処の掲示板でもそうだけと面白いテーマじゃなきゃ回答しない。
俺が回答する必要も無いだろう。

>>460とかを見てどうにか頑張れば良いんじゃね?と思ってる。

2019/05/31(金) 17:21:09.14

技術レベルは大したことない問題だけど最近回答したのは>>284だな。
テーマとしては面白いから。

2019/05/31(金) 17:33:03.28

てか>>464で終わっとるやろ…

2019/05/31(金) 17:36:44.72

>>498
むしろ思い込み(というか自分の都合のいいように解釈)してるのはそっちなんだよなぁ

**デフォルトの名無しさん** (ｱﾒ MM97-nuIz) · 2019/05/31(金) 17:42:42.79

>>503
君に、回答を求めてないよ
俺も、VBA の回答は基本的に出さない
まあヒントだけだな
いや～これのマクロを作る奴見てみたい(笑)

2019/05/31(金) 17:43:17.34

というか>>499に書いた通り、状況を判断する材料が少ない。
例えば月のシートが沢山あって、それぞれのシートの集計結果を集計シートで閲覧したいという状況なら数式の方が良さそうだ。(それでも情報が足りないから「良さそう」としか言えん。)

2019/05/31(金) 17:44:39.75

>>507
じゃあ、俺に>>502のレスするんじゃね―よw

2019/05/31(金) 17:46:18.67

>>499
ほんそれ
ど真っ赤で力説してるのが滑稽やなw

**デフォルトの名無しさん** (ｱﾒ MM97-nuIz) · 2019/05/31(金) 18:08:13.80

>>509
意識過剰だろ(笑)事実を書いただけ

2019/05/31(金) 19:20:39.09

VBAでやるか数式でやるかの判断はこのスレでやる話じゃないだろ
ここはVBAのスレだぜ

2019/05/31(金) 19:22:19.42

>>511
???

">>501"を付けるなと言ってる。

2019/05/31(金) 20:32:30.11

>>481
dim ws as worksheet
for each ws as thisworkbook.worksheets
　ws.printout ～
next

2019/05/31(金) 20:58:10.12

>>514
大荒れの中レスありがとう
来週試してみます

2019/05/31(金) 22:18:19.39

>>515
ごめん for each ws in の書き間違い

2019/05/31(金) 22:31:58.82

ん?
全シート印刷じゃダメだったの?

**デフォルトの名無しさん** (ｱﾒ MM97-nuIz) · 2019/05/31(金) 22:40:38.73

>>513
ふん、おれ５００　お前が笑えるレスつけただけだろ

2019/06/01(土) 00:10:30.70

>>517
もちろん全シート一括で印刷かけてるんですけど、スプール設定？の関係で重いシートの印刷が後回しになるので10ページ1ページ2ページの3シートのファイル印刷すると10ページのシートが一番最後に印刷されちゃって不便なんです

2019/06/01(土) 02:54:17.07

ListBox使ってるんですけど、たまに表示がバグります
薄い横線がListBox内の全ての行間に表示されちゃうんです
行のフォーカスを動かすと、動かした範囲ではこの変な横線は一旦消えるんだけど、
何かをするとまた横線があらわれる

こういうのって何が原因かわかりますか？
再現性がそう高くないので、対策しづらいです
表示がおかしいだけでプログラム自体は問題なく動きます

2019/06/01(土) 03:41:24.97

>>520ですけどもしかしたら直ったかもしれないです
multiSelectをfmMultiSelectExtendedに設定してるんですけど、
UserForm Initialize内で設定するのではなく
プロパティウィンドウで選択して設定するようにしたら今の所出ないです

再現性があれなんで確実とは言えないんですけど

2019/06/01(土) 07:48:48.81

>>520
ListBoxに限らず、Excelのオブジェクトは変だよ。
そんなもんだと思う。
俺もこんな現象に遭遇した。

・印刷プレビュー直後に、リストボックスを操作できなくなる。(シートを切り替えると直る。)
・MSクエリやADOを使うと、ボタンやテキストボックスの位置が、見た目と合わなくなる。

　[コマンドボタン]　　　　　　　　　　何もない部分
　　　　　↑　　　　　　　　　　　　　　　　　↑
ここにボタンがあるのに　　ここを押さないと反応しない

2019/06/01(土) 07:53:01.65

あと、なんじゃそりゃ!???? と思ったのが、

　[コマンドボタン]
　　　　↑
　　押すと・・

　　　　　　　　　　　　　→→→　[コマンドボタン]
　　　　↑
　ボタンが逃げる

多分、押す前のボタン画像が左にあって、
押した後の(凹んだ状態の)画像が右にあるんだと思う。

2019/06/01(土) 08:43:23.59

>>523
論理的に解決できる方法がないから山勘に頼っていじってみて
運良く解決できたらもうけもんってことですかね

表示がぶれると、使ってる人が、このプログラム大丈夫かと心配し始めちゃうんで
できるだけ避けたいところです

2019/06/01(土) 10:54:28.04

>>518
???
バカなの?
お前が500なのもお前に俺がレスしたのも誰でも分かるわ。

>>502のレスにおいて">>501"を付けるから俺に回答を求めてると判断されても仕方ないだろが。

2019/06/01(土) 15:58:14.75

>>525
笑えるな、答えられないやつに答えを求めないって(笑)

2019/06/01(土) 16:00:03.94

まあ、プロさんのようだから答えられないの恥ずかしいのか(笑)
あげとくは

2019/06/01(土) 17:24:08.45

>>527
煽ってもお前のレベルが低いのは変わらんぞw
相手のレベルを推しはかれないのは相手よりスキルがかなり低いからなんだが。

2019/06/01(土) 17:41:52.05

まだやってんの
最近多い無関係の人が巻き込まれるような事件起こしそう

**デフォルトの名無しさん** (ｱﾒ MM97-nuIz) · 2019/06/01(土) 17:42:25.49

>>528
あら、単に引きこもりのカスでろくなの作れんて思ってるよ(笑)

2019/06/01(土) 17:47:36.35

>>530
そりゃスキルの無い奴は人を評価出来ないからなw

2019/06/01(土) 20:32:00.88

データベースでエクセルのフィールド(3)を下に読み取っていって、入ってる型が文字列以外の物が入っているかチェックしたいんですけど何かないですか？

2019/06/01(土) 20:51:09.32

>>532
vartypeがvbStringかどうか
typenameが"String"かどうか
など

2019/06/01(土) 22:43:59.23

>>532
わざとやってみてどうなるか確認してみよう
先頭何レコードで判断するんだっけ？

2019/06/01(土) 22:55:52.58

>>532
早速やってみたけど、逆のパターンである
「先頭に数値が入っていて途中から文字列に変化した」場合は判定できた。
具体的には数値部分だけ読み込んで文字列の部分はNULLになった。
「先頭に文字列が入っていて途中から数値に変化した」場合は全部文字列扱いになったので厳密には判定不能。

2019/06/02(日) 18:41:53.51

初心者なので意味がわかりづらかったらすみません

まず、やりたいことは
1.ユーザーにB2～E2あたりに文字を入力してもらう
2.それを5行前後繰り返す
3.この後にボタンを押してもらう
(以降マクロ処理)
4.入力して貰った行の各左セル(A列)に営業日(月初)を入力する
入力内容を下の行にコピペして、A列日付だけ翌営業日にする
それを月末日まで繰り返す

これを実現したい場合、営業日付をどう表示し、どう繰り返せばよいか検討がつきません
アドバイス頂けませんでしょうか
日付に関してyyyymmのみユーザーに手入力して貰う予定で、それを利用できるかなと思っています

2019/06/02(日) 19:17:16.23

>>536
Sub foo()

コピー元_行数 = Cells(Rows.Count, 2).End(xlUp).Row - 1
Range(Cells(2, 2), Cells(コピー元_行数 + 1, 5)).Copy

処理年 = InputBox("処理する年を四桁で入力してください", "", Format(Date, "yyyy"))
処理月 = InputBox("処理する月を1桁で入力してください", "", Format(Date, "m"))
'ここに上記が数値以外なら終了させる分岐をかます。めんどいのでしてない

For i = 1 To Day(DateSerial(処理年, 処理月 + 1, 0))
Cells(コピー元_行数 * (i - 1) + 2, 2).PasteSpecial
Range(Cells(コピー元_行数 * (i - 1) + 2, 1), Cells(コピー元_行数 * i + 1, 1)).Value = _
DateSerial(処理年, 処理月, i)
Next

End Sub

2019/06/03(月) 23:29:52.65

>>535
上にあるようにvartypeだとだめかね？

2019/06/04(火) 00:44:40.62

教えてください。
ActiveCell.EntireRow.Copy Destination
これで「任意のセル選択中で1行コピー」になりますが、
改造して「任意の複数セル選択中の複数行をコピー」に変えたいんですがわかりますか？

2019/06/04(火) 01:01:51.67

仮面ライダー本郷猛は改造人間である。彼を改造したショッカーは世界制覇を企む悪の秘密結社である。仮面ライダーは人間の自由のためにショッカーと戦うのだ！

2019/06/04(火) 07:28:25.36

>>539

Selection で自己解決したんですが、

ThisWorkbook.Worksheets("sheetA").Activate
Selection.EntireRow.Copy Destination:=ThisWorkbook.Worksheets("SheetB").Range("A57:A62")
ThisWorkbook.Worksheets("SheetB").Activate
Range("A3:I4").Select
End Sub

で所定の6行のスペースにペーストするんですが、選択セルが5以下だと重複して貼り付けられます。
重複しない方法を教えてください。

2019/06/04(火) 07:51:19.62

コピー先のセルのアドレスをシンプルに"A57"に変えるだけでいいと思う

2019/06/04(火) 08:26:51.88

>>538
それだと対象のブックを開かなきゃダメじゃん

**デフォルトの名無しさん** (CA 0H37-G2Tg) · 2019/06/04(火) 11:03:51.11

【速報】金券五百円分とすかいらーく優侍券をすぐもらえる　
https://pbs.twimg.com/media/D8I_sqPU0AEizjq.jpg　　　
　　　
①　スマホでたいむばんくを入手　　　　
②　会員登録を済ませる
③　マイページへ移動する　　　
④　招待コード→招待コードを入力する [Rirz Tu]（スペース抜き）　　　　　
　
今なら更に4日18時までの登録で2倍の600円の紹介金を入手
クオカードとすかいらーく優待券を両方ゲットできます。　　　　　
　　　　　　　
数分の作業でできますのでご利用下さい。　　　

2019/06/04(火) 11:40:41.30

ここにも来たかフィッシング詐欺

2019/06/04(火) 13:24:40.51

>>544
TVCM見た後に入れた

2019/06/04(火) 18:55:29.74

>>542
できました。ありがとうございます。

2019/06/04(火) 22:55:20.87

直前に開いたファイルのキャッシュ的なものを参照して情報を取得することってできますか？
例えば直前に開いて印刷して閉じて消去したファイルのA1セルに記載の値を別ファイルのB1セルに転記する、みたいな

2019/06/04(火) 23:07:17.09

>>548
そんなの知るか

2019/06/04(火) 23:20:09.51

>>548
必ずバックアップしてから開くようにバッチファイル作ればいいだけじゃね

2019/06/05(水) 00:02:17.80

>>549
知らないならわざわざ書き込まなくていいよw

2019/06/05(水) 09:28:21.10

印刷時には転記先のファイルが必ず開いてる状態なの？
それならWorkbook_BeforeCloseで閉じる直前に転記は？

2019/06/05(水) 14:54:24.90

これはそんなの知るかという気持ちもよく分かる。
工夫次第でどうとでもなるけど、そういう問題かどうかをはっきりさせるべき。

そういう仕組みを作ることなくできるかと言われれば、できないと答えるだろう。
工夫でそういう仕組みを作りたいというなら、それについて自分の考えを述べるべきだ。
VBAの問題じゃなくて考え方を考える問題なんだから単純なスキルの問題ではない。

2019/06/05(水) 15:52:32.95

事前に、ファイルを閉じる前や消す前に準備しておけばどうともできる

他人が使ったパソコンをこっそりのぞき見したいなら、それはかなり難しい
不可能じゃないけど、現時点では動機が不明で教えるべきじゃないと思われるので書かない

2019/06/05(水) 17:22:15.93

2019/06/05(水) 19:45:36.22

ファイルの履歴とか拾うのかな？