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

**デフォルトの名無しさん** (ｽﾌｯ Sd9a-t/39) · 2019/08/22(木) 21:59:47.62

>>748
10分！？プログラミングできる人って本当にすごい…
RPAちょっとググってみる
ありがとう！

2019/08/22(木) 22:04:42.34

RPAっておいくらのRPAの話なのかな

2019/08/22(木) 22:52:02.20

>>745
出来るけど、出来ると思ってるのが凄い。
VBA触ったことない人は、そもそもエクセルでエクセル以外のものを動かせるとは思わない。

2019/08/22(木) 23:05:11.29

>>751
馬鹿に言っても無駄

2019/08/22(木) 23:40:59.76

Ruby, Selenium WebDriver で、Chrome などのブラウザを自動操作すれば？
漏れは、下のように、yahoo とか、あちこちにログインしてる

driver.navigate.to "https://login.yahoo.co.jp/config/login_verify2?.src=ym";

driver.manage.window.maximize # 画面最大

element = driver.find_element(:id => "username")
element.send_key "ここに、ユーザー名"

driver.find_element(:id => "btnNext").click # ボタンを押す

element = driver.find_element(:id => "passwd")
element.send_key "ここに、パスワード"

driver.find_element(:id => "btnSubmit").click # ボタンを押す

2019/08/23(金) 00:38:10.95

>>742
20年前に同じことを聞いたw

2019/08/23(金) 00:40:39.32

>>748
VBAでも10分位で出来るけどな。
まあ、オブジェクトまでのツリーを取得する自作ツールが有るからなんだが。

2019/08/23(金) 00:42:06.51

>>753
何で余計なもんをインストールする必要のあるもんを勧めるんだよ。

**753** (ﾜｯﾁｮｲ 7a2c-3Uq+) · 2019/08/23(金) 00:51:38.55

Excel, VBScript, PowerShell などで、IE を自動操作できたっけ？

そもそも漏れは、有料のExcel を持ってないからw

2019/08/23(金) 00:55:38.21

何でこのスレに居るの？
そしてIEの操作にExcelは関係無いよ？

2019/08/23(金) 00:57:13.74

>>757
「IE を自動操作」で今すぐ検索！！

2019/08/23(金) 10:14:25.17

>>757
いつの時代から来たんだ？
まあ、常に初心者はいるんだが、初心者がだっけとは言わないだろうw

2019/08/23(金) 13:19:10.67

>>757
Excelだけで出来る。

2019/08/23(金) 22:34:11.94

仮に専用の関数が無かったとしても、
最悪、SendKeysでどうにかなりそうだが。

2019/08/24(土) 14:52:42.02

VBSだけでInternetExplorer.Applicationからかなりの事ができる
ただしIEに対応してないサイトでは使えないので今からやるならpythonとか使った方が良い
それとExcelとは何の関係もない

2019/08/24(土) 17:07:42.16

1と2行目の間に新たに行を挿入し、
そこに別のセルからデータを貼り付ける。
という作業を行いたいです。

相対的に記録することによって、
作業したい行の1列目のセルを選択した状態でマクロを実行すると望む動作ができるマクロを作れました。

これを1から2000行目くらいまで繰り返したいです。

現状は、
1行目を選択してマクロ実行、
3行目(間に行を入れたので、元2行目です)を選択してマクロ実行、
と手動でやるしかない状態です
よろしくお願いします

2019/08/24(土) 19:19:46.76

２０００行あって、その全ての行間に１行ずつ挿入（データ貼り付け）？
上からじゃなくて下からやっていけば行番号ずれない

具体的には・・・・↓

2019/08/24(土) 19:46:04.47

｢1から2000行目くらいまで｣
こういう書き方しかできない頭の出来を治せばできるよ

2019/08/24(土) 20:18:08.93

カーソル下に二つ動かすとこまでマクロ記録すればいい

2019/08/24(土) 20:56:51.54

PDFから文字を抽出する時、
PDTextSelect.GetTextだと文字化けすることがあるんだけど、
文字化けしない方法ない?

素直にWordかExcelに変換しろよって思うだろうけど、
レイアウトがアホたみいなPDFなので、
AcroExCh.HiliteListで座標を調べながら抽出したい。

2019/08/25(日) 00:24:58.63

>>768
エンコーディングに問題があるために正常に文字列として抽出できない状態です。
PDF変換をOS XのQuartz経由で行っているのが原因でしょう。
画像に変換してからテキスト抽出するのがいいでしょう。

2019/08/25(日) 08:41:11.09

そんな事をVBAでする必要ある？
お前らが良く言う適材適所はどうなった？

2019/08/25(日) 09:59:52.06

>>769
いや、書式ごとコピーすれば文字化けしないから、
取り出し方の問題だと思ってる。

>>770
何ならいいの?
会社のだから、好き勝手インストールできないので、
VBA、VBS、JSくらいしか選択肢無いんだけど。

2019/08/25(日) 11:12:17.03

Acrobat入れて貰えるならもうちょっと頑張ろうぜ

2019/08/25(日) 11:15:37.82

Acrobatってphotoshopみたいにjs使えなかったっけ
VBAでPDFはしんどいだろう

2019/08/25(日) 12:11:56.92

Excelに落とし込むならVBA。事務の現場ではでjsをメンテできる人は少ないから会社では使えない。
VBAでやる必要があるかというよりも、システムに頼むと金も時間もかかるし、環境的にExcelしか使う方法がないという感じだよ。

2019/08/25(日) 12:25:55.53

>>764
その望む動作をするマクロをforで指定行まで2行ごとに繰り返す

2019/08/25(日) 18:55:03.24

>>773
使える。
というか、実際VBAだけじゃきついので、VBAの中で使ってるわ。
tmp = "var tmp = ○○○"みたいな、変な書き方になるけど。

2019/08/25(日) 19:15:04.48

>>776
evalみたいに使っているのね
それが正解だと思う

2019/08/27(火) 21:43:59.58

Excel VBAだけでDBの構築って出来ますか？出来るとしたらどんな方法がありますか？

2019/08/27(火) 21:54:06.25

ないよ
たった行列が10億だか100億程度で上限があるから

2019/08/27(火) 21:55:12.05

シートにテーブル作ればいいだけじゃないかな

2019/08/27(火) 22:09:51.27

あ、そういう質問なの？
てっきりOracleとかMySQLのインストールやセットアップ、テーブルセッティングをキーストロークとかで自動化したいって話だと思った

2019/08/27(火) 22:10:09.55

>>779
まるでDBサーバには制限がないみたいな物言いだな

2019/08/27(火) 22:19:55.46

馬鹿にマジレスか

2019/08/27(火) 22:55:47.76

Excel 2007/2010で不思議な現象に出くわしています

以下のコードを標準モジュールに書きます

Sub main()
　　Cells(1, 1).Interior.Color = vbRed
End Sub

Alt + F8で「main」マクロを実行すると「A1セル」が赤色に塗られます

ところが

function main()
　　Cells(1, 1).Interior.Color = vbRed
　　main = ""
End function

このような関数を作り、ワークシート内で使用すると
「#VALUE!」が戻ってきてA1セルも赤色に塗られません。

「Cells(1, 1).Interior.Color = vbRed」の箇所をコメントアウトすると関数は正常に動作します
Functionプロシージャ内部ではセルの背景色を変えるなどの処理は出来ないのでしょうか？

2019/08/27(火) 23:05:57.02

初心者で申し訳ないんですけど、Excelだけだとシートにテーブルを作って、VBA でデータ入力したり、更新したりするってことなのかな
DBっていうとAccessとか使うしかないってこと？

2019/08/27(火) 23:09:31.93

DBってなんの話ししてるかまじでわからん
エクセルをデータベースのように使いたいって話し？

2019/08/27(火) 23:18:51.14

>>785
入力とかシート上でできることはわざわざVBAでしなくてもいいんじゃないの、入力フォームが欲しいとか言うんでなければ

2019/08/27(火) 23:21:53.49

複雑なデータ抽出とか更新処理はVBAでやらないと大変なんじゃないかね

2019/08/27(火) 23:25:26.42

DBを構築して何をやりたいのか

2019/08/27(火) 23:44:42.74

adodbやadox使えばaccess買わなくてもmdb使えるし
MS-SQLExpressなんかもタダで使える

2019/08/28(水) 00:58:46.20

>>790
ありがとうございます！これのことだと思います。調べてみます

2019/08/28(水) 00:59:49.87

>>784
その通り、ワークシートから呼び出された関数からは別のセルは加工できない仕様になってる

2019/08/28(水) 03:05:45.46

>>784
状態変える処理やるとそこで強制終了するね
エラーでキャッチもできないし

2019/08/28(水) 10:32:02.44

Excel以外は会社の縛りで入れちゃダメって設定だったろ？

2019/08/28(水) 11:04:52.35

>>794
( ﾟдﾟ)ﾎﾟｶｰﾝ

2019/08/28(水) 12:15:47.11

>>792-793

Cells(1, 1).Interior.Color = vbRed　を

Cells(1, 1).Font.Color = vbRed

にすればちゃんと動くんだがなあ

残念

2019/08/28(水) 13:03:44.86

>>794
普通はAccessも入ってるもんだが。

2019/08/28(水) 13:06:36.95

>>796
実施後にセルの色を変える処理を呼び出せば少し高度だけど可能。
SetTimerを使う。

2019/08/28(水) 18:08:37.69

>>797
Access外す所多いよ

2019/08/28(水) 20:25:09.97

DBと言われてaccessだと思う人って少ないよね

2019/08/28(水) 21:11:17.18

>>800
でしょうね
でも、DBのフロントエンドなら私としては断然ACCESS

office365に移行した会社増えてるみたいだから、実は使えるようになってますって人もいるんじゃないかな

2019/08/28(水) 21:14:21.69

DBと言えばaccessと思う人って多いよね

2019/08/28(水) 21:17:52.13

そしてデフォルトで使ってうっかり誤操作してデータ壊すまでが洗礼
トランザクションとは

2019/08/28(水) 22:59:00.75

DBZ

2019/08/28(水) 23:22:20.08

>>802
エンジンはWindowsに標準で入っているから
メモ帳があれば使えるDBだし

2019/08/28(水) 23:31:35.60

DBがOS標準で入ってるのは知ってるんだけど
じゃあaccessって何のために存在しているの

2019/08/28(水) 23:37:37.32

フォーム、レポート、クエリーエディタ
データシートビューでも連結テーブル表示できるし
Excelと違って型チェックする必要ないから楽だぞ

2019/08/28(水) 23:42:20.06

>>806
DBだけじゃないから

2019/08/29(木) 02:07:43.21

PowerQuery使えばいいのに

**796** (ﾜｯﾁｮｲ 619b-4hip) · 2019/08/29(木) 09:59:11.11

> Cells(1, 1).Interior.Color = vbRed　を
>
> Cells(1, 1).Font.Color = vbRed
>
> にすればちゃんと動くんだがなあ

と書いたが、Excel2007だとダメだな
やっぱFunctionプロシージャ内でセルの状態を変化させるのはご法度ということか

>>798
SetTimer調べてみたけど想像も付かん
良ければ教えて下さい

2019/08/29(木) 11:59:18.65

>>796
>>798
どういうこと？
具体的な例をにfunctionから貼ってくれ

2019/08/29(木) 14:14:31.26

>>784 >>810
Excel のユーザー定義関数の制限について
http://support.microsoft.com/kb/170787/ja

2019/08/30(金) 09:41:25.60

相互参照をアクティブにする方法はどうしますか？

book1でbook2のとあるセルの値を取得、
book1でその値を元に計算した結果のセルをbook2で参照して取得したいです。
両方のブックを開いてるとリアルタイムで連動しますがbook1を閉じるとbook2が連動しなくなってしまいます。

何とかしてbook2だけ開いてても動くにはどうすればよいですか。

2019/08/30(金) 09:56:38.22

csvから特定のカラムを取得してレポート用資料作成をしたいです
それぞれ値を取る際にFormatしたり、キーを取って別シートを参照して値取ったりしてますここらへんをfunctionで纏めて呼び出し元に返したいのですが、複数の意味ある値を返す際どういった形式にするのが良いのでしょうか
リストだと煩雑すぎますし利用する際に中のデータ構造を正しく理解する必要があるので辛いです

2019/08/30(金) 10:17:51.52

>>810-811
ちょっと余計なことを言ったかなと反省している。
SetTimerは使い方を間違えるととても危険なので、
仕組みが分からない人は使わないほうが良い。

Private Declare Function SetTimer Lib "user32" _
(ByVal hWnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" _
(ByVal hWnd As Long, _
ByVal nIDEvent As Long) As Long
Private rngTarget As Range
Public Function main()
Dim hWnd As Long
hWnd = Application.hWnd
Set rngTarget = ActiveCell
Call SetTimer(hWnd, 1, 100, AddressOf TimerProc)
End Function
Private Function TimerProc _
(ByVal hWnd As Long, _
ByVal msg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Select Case wParam
Case 1
rngTarget.Value = ""
rngTarget.Interior.Color = vbRed
Call KillTimer(hWnd, 1)
End Select
End Function

2019/08/30(金) 13:25:34.95

>>815
おお素晴らしい

質問ですがTimerProcの引数はどこから渡されてるのでしょう？
ネットのサンプル見ると引数なしにしてるのが多いようですが

2019/08/30(金) 19:47:25.71

>>813
リンク更新じゃだめなん

2019/08/31(土) 09:16:24.02

>>817
相互参照だから開いてない方のbookの値が更新されないんです

【book1】
A1=book2.A1
A2=A1*2
【book2】
A1=1
A2=book1.A2

こんな感じになってて、book2だけ開いてる状態でA1を2にしたらA2が4になるようにしたいです。

2019/08/31(土) 09:24:05.84

片方のbook開いたら他方のbookも裏で開くようにするしか

2019/08/31(土) 09:39:57.73

VBAは奥が深くて面白いね
でもすでに同じ構文のVB6が終了して19年
いつまでExcel VBAは前世紀の言語仕様で戦い続けるんだろうね

2019/08/31(土) 09:56:21.35

西暦2100年そこにはいまだにVBA を書く社畜の姿が

2019/08/31(土) 10:01:54.51

>>819
こんな感じにデータベースファイルみたいなのが100個くらいのbookに分かれてるんですよね
それを1個のbookで参照・集計してアナライズしたいんですけど
自分で書いててアレなんですけどやっぱ明らかにexcelでやることじゃないんですよねーｗｗもうどうしようかしらん

2019/08/31(土) 12:03:18.46

>>820
デカくて潰せない会社と同じ
批判はあっても存続
他言語導入でも併存

他言語になっても、新たに覚え直す程の魅力がなければワザワザ移行しない
そんな言語があるとも思えない

2019/08/31(土) 13:10:01.15

もう既に基本的なことはpythonのopenpyxlで叩く方が楽だけどなｗ

2019/08/31(土) 13:27:16.71

pythonは入れだけでつらいから

2019/08/31(土) 13:54:41.11

>>818
まず、kore互いに参照し合う構成にすること自体が間違ってる
book2のA2はbook2のA1*2でいいんじゃないのか

2019/08/31(土) 13:56:14.97

Excelは互いに参照し合う構成にすること自体が間違ってる

2019/08/31(土) 14:33:22.19

>>827
book1に1日目のりんごとみかんの売り上げ個数が書いてある
book2に2日目のりんごとみかんの売り上げ個数が書いてある

book3で1日目と2日目のりんごとみかんの売り上げを表示したい、またbook3で書く売り上げに用いる消費税というパラメータを定義してある

こんな構成の時ってどうすればいいの？
今はbook1とbook2でbook3の消費税パラメータを参照して計算して、book3で計算結果を吸い上げてる

2019/08/31(土) 14:39:04.14

横からだが、その構成途中で値上がりしたときにやばくないか？

2019/08/31(土) 14:41:09.90

>>828
book3が最終形態ならbook1とbook2から個数を参照してbook3で料金計算

2019/08/31(土) 14:58:39.86

>>829
例えなので、実際は単価が上がることはなく、種類は100種類程度のデータです。
book3で全日付のデータ吸い上げて1日の売り上げ個数をbook3の別シートに仮保存して計算というのもしましたが、
日数分だけシートが増えてくので、。
欲しいのは売り上げ金額だけなので、無駄なデータは増やしたくないのですが・・

2019/08/31(土) 15:29:32.08

>>831
なら尚更構成見直した方がいいと思う
なんであっち見たりこっち見たりするんだ…

2019/08/31(土) 20:18:57.86

教えてください
ctrl+cでセルを値でコピーするのと同時に、セルか文字に色をつけたいのですがなかなか作れません
ヒントあれば教えて下さい

2019/08/31(土) 20:25:39.22

>>833
色だけコピーしたいと言ってんの？

2019/08/31(土) 20:38:21.36

>>834
いえ、コピーしたセルがわかるように色付けしたいです

2019/08/31(土) 20:44:10.45

>>833
マクロを
・色付
・コピー
にしてショートカットに登録

ctrl+cではなくそのショートカットでコピーする

2019/08/31(土) 20:51:57.67

>>832
どう見直しても解決出来そうになくて・・
そんなに特殊ケースでもないと思うのですが、世間の人々はどんな構造にしてるのでしょうか。

2019/08/31(土) 20:52:51.76

>>836
ありがとうございます。
ctrl+cでやるのは無理なんですか？

2019/08/31(土) 21:41:30.00

>>838
作ったマクロを ctrl+cに割り当ててみ

2019/08/31(土) 21:44:06.08

>>837
日報と同じファイルに単価とか共通の固定データ用のシートを1個作る
日報がどんなレイアウトか知らないが↓みたいなのと仮定する
　　　　　　8/1　8/2…
　りんご　
　みかん
sumifで1日分の個数を取得×Vlookupで単価取得
個数のファイル名はyyyymmddとかにして数式コピペできるようにしとく

2019/08/31(土) 21:46:45.55

日報て集計用のファイルな

2019/08/31(土) 23:13:48.46

>>833
死ね、クズ

2019/09/01(日) 02:37:04.86

>>842
すみません

2019/09/01(日) 04:01:41.09

コピーはCtrl+Cだけとは限らないからクリップボードを監視して
対象のシートがアクティブな間に状態が変わったら選択セルに色を付けるだけ
個人で使うだけなら適当でいいんじゃないの

2019/09/01(日) 13:44:49.90

Ctrl+Cでやりたいと言ってるんだから面倒なことしなくていいと思うが

2019/09/03(火) 17:37:57.38

A1を始点に行方向に5,列方向に4の間隔で格子状に存在するセルの先頭の文字だけを赤くしたいのですがどうやれば可能ですか？

2019/09/03(火) 17:50:49.52

>>846
Sub Macro1()
　　For r = 1 To 100 Step 5
　　　　For c = 1 To 100 Step 4
　　　　　　Cells(r, c).Characters(Start:=1, Length:=1).Font.Color = vbRed
　　Next c, r
End Sub

2019/09/03(火) 18:00:40.88

今日、Excelの表で手動でソートしてたら変な挙動が現れ、原因が分からず困ってしまい…

まず、「状況」列に、「完走」と「未達成」のデータがあるのですが、
この列を昇順ソートすると、「未達成」の上と下に「完走」が分かれてしまいました
もちろん降順ソートも同様です

で、この上下の「完走」を別のシートにコピペで貼り、挙動をチェックしてみましたが…
　https://i.imgur.com/FXwnn0h.jpg

上のリンクでも書いていますが、文字自体はif文でもフィルターでも同一扱いです
（ソートの時だけ、なぜか違いが出ています）

思い当たる違いは入力の仕方で、手打ちしたものとマクロ（VBA）で入力した違いがあります
マクロを作って以降はマクロで入力してますが、それ以前のデータは手打ち＆コピペで入力しました

とりあえずの対処法として、マクロで入力した文字を全てにコピペすればこの問題は解決しますが
今後のこともあり、なにか見落としている点や抜本的な対策がないか、
何かアドバイスを頂ければと思い質問しました。

なお、これは仕事とかじゃなくて趣味でやってるものです
あと、使ってるのは Excel2007 で、ちょっと古いバージョンです

以上、よろしくお願いします

2019/09/03(火) 18:37:10.54

>>848
ふりがな？