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/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

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

2019/06/05(水) 20:51:53.11

>>556
> 消去したファイルのA1セルに記載の値
なので履歴じゃダメだろうな
マジでなんのためにそんなことをしたいのがさっぱりわからん…

2019/06/05(水) 22:41:29.46

>>537
遅くなりましたがありがとうございました！とても参考になりました
おかげさまでメイン処理はひとまず形になりました
ツール完成させられるよう頑張ります

2019/06/05(水) 23:22:07.87

>>558
こんなこともわからんような馬鹿が作ったものを使わされるとか

2019/06/05(水) 23:37:24.78

>>559
人間性に問題のある君と同じ職場よりは大分マシだろう

2019/06/05(水) 23:48:39.29

いやいや
ここは御大層に「ツール」とか書かれて吹き出す場面だろ

2019/06/06(木) 00:27:01.25

ここは、あれだ。ﾌﾟｰｸｽｸｽ、ﾏｼﾞ受けるんですけど！というやつだ。

2019/06/06(木) 06:36:27.46

Use after free攻撃のやり方を聞かれてるのと一緒だよなこれ

2019/06/06(木) 12:05:19.65

まあな、Excelの標準機能で出来ることも知らん奴が、作りたいものを考えて質問するんだよな
だけど、ちょっと知ったかぶってどんなプログラムを作りたいとか書くけど
普通にExcelの機能で出来ることも、質問してるんだよな
動作仕様をかける奴は普通VBAのマクロも作れる
作れないやつの動作仕様ってごみなんだよな、何がしたいかだけ書けよと思う

2019/06/06(木) 12:22:02.47

>>564
日本語でおｋ

2019/06/06(木) 12:59:11.37

>>565
すみません、日本語難しいどこですか？

2019/06/06(木) 15:41:00.01

>>566
天丼やめろｗ

2019/06/06(木) 20:23:11.53

日本人の俺でもわからんｗ

2019/06/06(木) 22:44:54.22

標準機能が嫌いなんだろう。
あとは、VLOOKUPでも出来るけど、
遅いし面倒くさいからADO+SQLでやるとかさ。

2019/06/07(金) 01:08:10.00

ファイルの保存先の権限がなくて、別のユーザーのアカウントとパスワードで保存できる？？

2019/06/07(金) 07:52:48.12

VBA関係ある？

2019/06/07(金) 12:45:57.13

あるよ

**中国人** (ﾜｯﾁｮｲ 17f1-nH6h) · 2019/06/07(金) 15:55:31.64

ないあるよ

2019/06/07(金) 20:52:52.69

どうやるんだそれ・・。
OS上でOSでも動かすのか?

2019/06/07(金) 20:58:22.20

そういや、Windows 3.1はMS-DOSの上で動いていたっけ…

2019/06/07(金) 21:14:02.26

Win3.1はミドルウェア

2019/06/07(金) 21:30:42.69

c:¥> win
だっけ？

2019/06/07(金) 21:36:57.74

フロッピー12枚だか14枚だか組みだったな

2019/06/07(金) 23:29:54.75

>>570
それってネットワーク先の話?
共有フォルダでの読み書きとか?

結構難しい。

2019/06/09(日) 05:37:42.55

excelのセルに記載された文字を、
PDFに位置指定して、テキスト挿入できますか？

2019/06/09(日) 07:51:19.35

できます

**580** (ﾌﾞｰｲﾓ MMe1-nH6h) · 2019/06/09(日) 07:52:18.86

>>581
できるかどうかを聞いているのではない。
やり方を聞いておるのだ。

2019/06/09(日) 08:13:30.81

※わざとです

2019/06/09(日) 08:14:03.36

>>581
a=cells(1,1).value
b=cells(2,1).value

①abc.pdfをオープン
②3p目の左上を起点に左から100、上から50の位置に、8ptで幅20の黒色で、aの内容のテキスト挿入

if b=1 then
③3p目の左上起点の左から200上から300の位置に、黒色の縦10幅10の円を挿入
else if b=2 then
④上記③の位置違いパターン
endif

この①②③を教えていただきたいです。

2019/06/09(日) 09:04:09.38

PDF直接作るの超めんどいぞ
Excelで位置確認ずらしていきながら合わせるって方法取ったほうが良い

2019/06/09(日) 09:27:58.90

>>585

マジかぁ
pdfは書式が既にあって、それをまずエクセル化するところからしなくてはならない

excelのセルから抽出し、wordに入力するのも大変？

2019/06/09(日) 09:32:56.69

>>586
Excel VBAでワードを開く方法がある
https://tonari-it.com/excel-vba-word-application/

wordの細かい所をどこまで触るかによると思う
単純作業なら全然難しくないよ

2019/06/09(日) 09:45:03.10

>>587
ありがとう、ちょっと読み込んでみる

やりたいことは要は、エクセルにずらーっとリストがあって、その内容を、

雇用契約書の穴埋め書式みたいな他のファイル（エクセル、ワード、pdfあり）に展開したい

展開内容はセル内容の挿入と、履歴書の男・女みたいに、○を挿入する形がある

2019/06/09(日) 09:52:34.55

○で囲むのは止めたほうが良い。ずれる
以下のような形に変えれるなら買えたほうが良い。
□男　　?女

2019/06/09(日) 09:53:01.65

文字化けした。
女の左にあるのはチェックマークね