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

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

2019/06/09(日) 10:05:38.50

>>589
いや、書式はもう決まってんのよ
変えれるものじゃないんだ

□の方が楽だけどなぁ

2019/06/09(日) 10:07:50.02

>>587
参照設定してるのに、CreateObject(“Word.Application”)って何?

2019/06/09(日) 10:11:05.04

>>591
そうか、じゃぁ・・・
頑張って！！

2019/06/09(日) 10:13:10.62

>>592
参照設定はあくまで参照先ライブラリの型をインテリセンスや型指定でネイティブに使えるようにするための設定
ワードのアプリケーションのインスタンスを生成しないとエクセルからワードの操作はできない

2019/06/09(日) 10:15:31.89

>>594
そういうことじゃなくて、参照設定でその書き方? っていう。
それやると、レイトバインドとアーリーバインド、どっちになるの?

2019/06/09(日) 10:17:10.52

>>593
最終手段はワードとpdfは画像化してエクセルに貼り付けて、そこでマクロるかな…

2019/06/09(日) 10:19:23.94

>>594
何か変だと思って試したけど、

こうか
Dim w As Word.Application
Set w = New Word.Application

こうじゃない?
Dim w As New Word.Application

2019/06/09(日) 10:29:49.90

>>595
>>597
参照設定したときに参照先ライブラリのクラスについて必ずNewキーワードでインスタンス生成しないといけないという決まりはない

参照設定して変数にワードのアプリケーション型を適用してる時点でアーリーバインドになる
Newキーワードで生成したインスタンスのポインタを変数で受けてもCreateObjectから返ってくるポインタを変数で受けても同じ

2019/06/09(日) 10:36:03.49

というか、参照設定時のインスタンス生成にNew使わないと駄目なんて決まりがあったら、GetObjectで他アプリのインスタンス取得して操作したいときはどうなるのって話になるよな

2019/06/09(日) 11:12:20.95

>>598-599
わざわざ参照設定してるのにCreateObject(…)するアホがいるとは…

2019/06/09(日) 11:16:29.03

CreateObjectも参照設定もimportだから、どっちか一つでいいんじゃないの？
両方やっても問題ないけど意味はないと思う

あんまリンク内容見ずに貼ってしまった俺が悪いな、すまん

2019/06/09(日) 13:34:23.02

山椒設定はライブラリバージョン古いPCじゃ即フリーズじゃなかったっけ

2019/06/09(日) 13:37:36.61

配布するなら、参照設定でプログラミングしてテストして、参照設定外して createobject方式にして配布
配布先で参照設定か外れることがまれによくあるので、こうしとくと無難

2019/06/09(日) 15:01:31.22

>>603
そっすね

2019/06/10(月) 08:22:05.20

えー参照設定外れることあんの
まぁいっか・・・・

2019/06/10(月) 08:23:44.80

参照設定はあまり良い挙動をしない。あと挙動が変な時に発見し辛い
createobject()書いたほうが良い

2019/06/10(月) 08:27:18.33

>>596だけどpdfを画像に変換し、エクセルに貼り付けて、テキストボックス挿入がクソ楽だった

2019/06/10(月) 09:56:01.81

ソースファイル（.bas + .cls）配布のときは参照設定はやりづらいからな

2019/06/10(月) 10:07:36.22

>>606
そそ
参照設定外れても、それとは全く関係ない所がエラーになって止まる
枯れたプログラムだったり慣れてくると気づくけど、そうでないと解決に遠回りする
それらも覚えておくべし

2019/06/10(月) 10:20:56.62

>>606のおっちゃんが、createobject()書いたほうが良い、と書いてるけどなぜ？

2019/06/10(月) 10:45:16.96

参照設定が実はおまかんだから
今のＰＣで動いてても次の環境や他のＰＣで動く保証がない

ってことでしょ？

2019/06/10(月) 10:49:13.46

>>611のおっちゃんが、おまかん、と書いてるけどどういう意味？

**デフォルトの名無しさん** (ｽﾌｯ Sd2f-to8s) · 2019/06/10(月) 10:55:53.93

おまえのかあちゃん

2019/06/10(月) 18:38:27.74

参照設定までするのにVBAでする必要ある？
なんでそこまで意地になってVBAなんぞに拘るの？

2019/06/10(月) 18:45:40.31

>>612
お前の環境（が悪い）
スマホゲームで動作が悪い時に言われる事がある
おまかんとかおれかんとか

>>614
全くこだわってないよ
最初から別言語やツールが良ければそれらで作ってる
Excelで99%出来上がってるのにここから戻るってのがありえないってだけ

2019/06/10(月) 19:27:31.99

>>614
VBAスレだし

>>615
それスマホに限った話じゃないよ

2019/06/10(月) 20:45:20.89

>>616
そうか、スマン
いつから流行りだしたんだろう

2019/06/10(月) 21:38:08.94

VBAに新機能がつかないのはもう諦めた
でもIDEはもうちょっと進化させるつもりないん？

と思って調べてみたらアドインでなんとかする方法あるんだな
使ってる人いる？

2019/06/10(月) 21:50:15.76

.NET使えるから最新環境で作成できるぞ
一回試した後は一回も使ってないけど
やっぱファイルと一体化してるのは超便利だ

2019/06/10(月) 21:54:55.45

グラフのプロットエリアの位置が設定出来ん!
ググったら、デバッグプリントするといいよって書いてあったので、
やってみたら、本当に出来た。
何でそんなんでOKなのかワケワカラン。

2019/06/10(月) 21:56:39.67

>>617
DLL HELLならVisualBasicのVBXが元祖だよ

2019/06/10(月) 22:12:08.21

>>618
むしろ開発環境は意図的に使用困難にしていく方向じゃないかな
VBAの実行はできるけどVBEは廃止、どうしても編集したい場合は旧バージョンを使ってね、くらいはそろそろ覚悟しといたほうがいいかも

2019/06/10(月) 22:14:44.52

そんなあほな

2019/06/10(月) 22:18:00.17

MSとしてはそうしたいのは透けて見えるけど、ここまで広まったものを軌道修正するのはなかなかねぇ

2019/06/10(月) 23:01:58.73

ええ…
代わりになるものがあるならともかく

2019/06/11(火) 01:34:20.54

代わりはMSがこれまでにいくらでも提供してきただろう
お前が新しいものから目を背け続けてきただけだ

2019/06/11(火) 01:41:42.71

>>614のおっちゃんはVBAをバカにしてるけど
じぁあVABを使わないなら何の言語でするつもりなの？

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

パワーシェルな

2019/06/11(火) 06:11:13.67

>>628のおっちゃんはパワーシェルと言ってるけど
便利なエディターとかはあるの？