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

2019/08/19(月) 20:57:32.17

>>693
でも、普通に書きにくい

2019/08/19(月) 21:10:37.00

今出来てない奴の典型的な言い訳だな

2019/08/19(月) 22:25:52.74

Pythonのどこらへんが関数型言語なんだ

2019/08/19(月) 22:38:19.44

VBAが出来ればPython簡単でしょ。プログラミング何も知らなくても一か月あれば覚えれるし！

2019/08/19(月) 22:40:28.20

haskell と間違えた？

2019/08/19(月) 23:00:47.92

hellshake矢野と聞いてすっとんで来ました。

2019/08/19(月) 23:06:13.11

初心者質問ですいません。
下のコードで、Range("V3:V8")だと何事もなく範囲を指定できるのですが、
Range(Cells(…),Cells(…))だとエラーが出てしまいます。
何が悪いのでしょうか？

Worksheets("シート１").Activate

ActiveSheet.ChartObjects("グラフ1").Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection.NewSeries

ActiveChart.FullSeriesCollection(1).XValues = Worksheets("シート2").Range("V3:V8")

ActiveChart.FullSeriesCollection(1).Values = Worksheets("シート2").Range(Cells(3, 3), Cells(8, 3))

2019/08/19(月) 23:14:40.96

>>703
シートを指定せずにセルを指定してるから

2019/08/19(月) 23:16:02.88

シート名.Cells

2019/08/19(月) 23:19:13.86

なんのCellsかを指定せんと

2019/08/19(月) 23:22:23.07

あー、そういうことでしたか！
初歩的なミスですね、、ありがとうございました！！)^o^(

2019/08/20(火) 10:43:23.94

すいません、もうひとつ助けて頂けると嬉しいです。

ActiveChart.FullSeriesCollection(1).Name = Worksheets("シート2").Cells(3, 3)

で、参照先のセルにはユーザー定義にて"8月19日"のように◯月◯日形式で表示させていますが、
グラフ凡例には2018/8/19のように表示されてしまいます。

凡例にも参照先のセルと同じように◯月◯日形式で表示させる事は可能なのでしょうか？

2019/08/20(火) 11:09:16.51

左辺よくわからんけどString型っぽいから
Worksheets("シート2").Cells(3, 3)を
Worksheets("シート2").Cells(3, 3).textにするとか

2019/08/20(火) 11:34:51.82

>>708
グラフ側に、書式も合わせる設定なかったっけ

2019/08/20(火) 14:41:48.00

>>708
Format(Worksheets("シート2").Cells(3, 3).Value,"MM月DD日")

2019/08/20(火) 19:07:42.10

この程度の事も解決出来ないなんてセンス無さすぎだから職を変えた方が良い

2019/08/20(火) 20:10:24.14

>>709-711
ありがとうございます！なんとか出来ました！
助かりました～、思い通りに走ってくれて嬉しい～

2019/08/20(火) 20:11:19.07

>>712
最初は誰もが皆初心者という事で許してくださいませ！

2019/08/20(火) 20:40:08.64

>>714
そいつただの荒らしだから相手しなくていい

2019/08/21(水) 14:26:40.58

VBAとVB.netの違いって何？

2019/08/21(水) 14:30:54.32

なんだろうね
ググってみるとわかるかもしれない

2019/08/21(水) 15:08:20.30

やかましい

2019/08/21(水) 16:13:42.94

ID:3vArKtvAM

ゆとりの馬鹿は早く死ね

2019/08/21(水) 16:17:07.75

>>716
「.net」ドットネットというのは便利な関数がめちゃくちゃたくさん入ってる箱
マイクロソフトががんばって作った

それがVBから一発で呼び出せるように準備されてるのがVB.net
別にVBAからでも使おうと思えば使えるけど調べるのが大変

2019/08/21(水) 17:27:53.89

>>720
その説明は...
ちょっとマズいんじゃね?

2019/08/21(水) 20:02:36.72

>>716
VB.netをOffice特化にしたのがVBA

2019/08/21(水) 20:07:15.59

>>722
オイオイw

2019/08/21(水) 20:16:48.70

それでいいよ
VB.NETの方が早く消滅しそうだし

2019/08/21(水) 20:27:43.70

VBAはPython以上に難しい。

2019/08/21(水) 20:51:45.74

いやいや、VB6そのものだし

2019/08/21(水) 21:27:40.88

歴史的経緯を知らないと理解できない変な制限や仕様が多い
そういう意味ではかなり難しい

2019/08/21(水) 21:36:56.28

というか単純に古すぎる

2019/08/21(水) 22:58:52.93

Python vs Excel 五番勝負 - 仕事で使えるのはどちら？ 2019/08/21 14:37 クジラ飛行机
https://news.mynavi.jp/article/zeropython-53/

第一回戦 - どちらが気軽に使えるか？【判定】気軽に使えるのは、Excel。ただし、
Excelは有償。また双方ともWebブラウザからも使えるなど利便性は互角。
第二回戦 - CSVファイルが見やすいのは？【判定】美しく表示されるのは、Python。
ただし、Excelは汎用用途に特化しているのに対して、PythonライブラリがCSVファイルの
読み込みに特化していることが理由。
第三回戦 - グラフが作りやすいのは？【判定】引き分け。マウス操作で直感的に操作
できるのはExcelだが、Pandasやmatplotlibのライブラリに習熟していれば、Pythonでも
簡単に描画できる。
第四回戦 - 複雑なグラフが作りやすいのは？【判定】引き分け。
第五回戦 - 集計してみよう【判定】処理が複雑になればなるほどPythonが優勢。

2019/08/21(水) 23:06:25.04

>>727
> 歴史的経緯を知らないと理解できない変な制限や仕様が多い
32KB縛りとかあるけど、言うほど制限多いか？
具体的に数件挙げてみてくれる？

2019/08/21(水) 23:17:16.37

事務職がPythonやり始めたら自分でシステム作って回せるからシステム屋なんていらないよね

2019/08/21(水) 23:49:02.48

>>731
と思うだろ
ネットワークにセキュリティにハード等次々と恐ろしい壁が立ちはだかる
極めつけは社内のお局さま
「いままでこうやってきたから」

2019/08/22(木) 01:27:44.72

セキュリティはプロに委託しないとまずいだろ
あれ対人戦だから

2019/08/22(木) 07:51:00.42

>>732
それ
最後の1行
それで全てが終わるんだわ

2019/08/22(木) 12:34:15.51

そういう問題じゃないな
ｲﾝﾌﾗこそ企業による差異もなく誰がやっても同じで雑事として他人任せでいいもの
経験値がないとｽﾊﾟｹﾞｯﾃｨ化して要件変更に対応できなくなったり、直せなくなったり
あるいは処理速度、使いやすさ（業者にも上手い下手あるが）
そもそも業務要件自体がＳＥが入らないと整理できなかったり、入って初めて抜けが発覚したり

「作れるか否か」と「言語仕様」に相関があると思ってるのが素人
もし「作れる」なら、他の言語でも作れたはず

2019/08/22(木) 12:59:21.66

５Gになるとハードとかネットワークとかクラウドで利用出来るようになるから、個々でハードを所有する必要がなくなってくるんでしょ
簡単なシステムはコーディング不要でドラッグするだけで出来る物になるらしいじゃん

2019/08/22(木) 13:52:14.29

アホなの？

2019/08/22(木) 16:49:43.11

VBAでは函数は呼び出すところより後に置く必要があるの？
C言語では呼び出すところより前に置く必要があるのに。

2019/08/22(木) 17:01:00.58

グローバル変数を先頭に書くルールはあるけど関数位置のルールはないよ

**738** (ﾜｯﾁｮｲ cd32-CeWy) · 2019/08/22(木) 17:24:07.32

>>739
そうですかあ。助言してくださってありがとうございました。

2019/08/22(木) 19:47:58.63

>>738
> C言語では呼び出すところより前に置く必要があるのに。
前で定義すればプロトタイプ宣言がいらないって言うだけのこと
プロトタイプ宣言書いとけば前後関係はどちらでもいい

2019/08/22(木) 20:53:37.47

個人でPCを所有する時代も終わるし、全部クラウドで出来るから、AI作れるくらいじゃないと稼げなくなるよ

VBAなんか動けばなんでもいいんだよ。自分のルールでやればいい。
勉強しても事務職が自動化されてExcelももうすぐ終わるし無意味。

2019/08/22(木) 21:04:36.03

いつかはそうなるかもしれないけど今は違うんで

2019/08/22(木) 21:13:59.00

>>742
今から「時代が終わる」日まで飲まず食わずで過ごすの？

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

全くVBA触ったことない人間です
以下の内容ってVBAで実行可能でしょうか？
できるなら独学で地道にやってみようかなと思っていまして…

■現状
サイトから売上データをDLし、指定のシートにコピペ×10サイトほど

■やりたいこと概要
データDLだけでも自動化したい

■やりたいこと詳細
1.サイトにログインする(ID・パスを入力)
2.必要項目をプルダウンやチェックボックスから選び、CSVダウンロードボタンを押してデータをフォルダに格納する(あるいはVBAとおなじエクセル内にシート別でコピペ)

できるかできないかだけでも教えていただけませんか…？

2019/08/22(木) 21:21:39.93

VBAってメインのシステムを補って、カバーしきれなかった隙間を埋めるものっていう認識があるわ
おれが作ったプログラムで一番重宝されてるのが
メインのシステムを使うに当たってミスした場合、数百の修正を手作業で一時間以上かけて
しなければならなかったものを10分程度で終わらすことができるようにしたものだわ

メインのシステムは本社レベルで作られているものだから俺のいる地方支店ごときが
口出しできるようなものじゃない
でもVBA使えば工夫次第で補正できる

2019/08/22(木) 21:34:47.45

>>744
先を見て他の事を学べって事だよ。ずっとこの処理方法なんでとか言ってるアホなお局と同じだぞ。

2019/08/22(木) 21:38:29.30

>>745
出来るよ。PythonとかJavaScriptでも出来るし、RPAならもっと簡単に出来る。VBAでマクロ作るのに2時間かかるとしたら、RPAならそのマクロなら10分で組める。

**デフォルトの名無しさん** (ｽﾌｯ 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

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

残念