Excel VBA 質問スレ Part53

**デフォルトの名無しさん** · 2018/04/27(金) 19:02:38.39

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part52
http://mevius.5ch.net/test/read.cgi/tech/1517052305/

**デフォルトの名無しさん** · 2018/05/13(日) 17:40:36.23

50secとか
どれだけ大規模システムを作られてるの？
もしかしてヤフーとかアマゾンとかのSE担当者さんですか？

**デフォルトの名無しさん** · 2018/05/13(日) 17:45:12.77

高速化の問題は細かい情報がないと話にならんよ
テスト用データと自分が書いたコードぐらいはGithubにあげてから質問してくれ
もちろんエクセルファイルの直接交換はセキュリティなど面倒事が多いからテキストファイルでな

**デフォルトの名無しさん** · 2018/05/13(日) 18:11:36.74

>>873
元質問は>>771,>774,
条件は >>862, >>863, に書いたとおりで
80 Sec かかったのは >>790 のコードです。

二分検索で 0.4 Secに短縮できたのは以下のコードです。関数にしました。
Function isReg(STR As String, RNG As Range) As Boolean
　Dim IDX As Long
　isReg = False
　With Application
　　IDX = .IfError( .Match(STR, RNG, 1), 0 )
　　If IDX = 0 Then
　　　' do nothing
　　ElseIf STR = .Index(RNG, IDX, 1) Then
　　　isReg = True
　　Else
　　　' do nothing
　　End If
　End With
End Function

50 Sec かかった単純比較はこんな感じのForの入れ子です。
For i = LBound(arrDrvList) To UBound(arrDrvList)
For k = LBound(arrFdList) To UBound(arrFdList)
If arrDrvList(i, 1) = arrFdList(k, 1) Then
(処理)
Exit For
End If
Next
Next
どんな手法がよいか教えてください。Matchにこだわるつもりはありません。

**デフォルトの名無しさん** · 2018/05/13(日) 18:16:05.72

>>873
あ、テストデータですね。
=TEXT(RANDBETWEEN(1,1000000),REPT("0",7))&"-"&TEXT(RANDBETWEEN(1,2),"000")
で生成できます。
駆動側が1万行、調査側が1.4万行で生成できます。

**デフォルトの名無しさん** · 2018/05/13(日) 18:18:17.66

>>874
それのどこが二分探索なのか俺にはよくわからない。
とりあえず自分のプログラムでArray上のデータをバイナリサーチすると、
調査表、駆動表ともに1.4万件でやって 1.9Sec だった。(Core i5)

**デフォルトの名無しさん** · 2018/05/13(日) 18:19:47.21

>>875
日本語おかしいな。
駆動側が1万行、調査側が1.4万行。駆動側の表から1万回Matchをかけました。
調査側の表はSort済みですが、これをArrayに投げ込んで行うとなぜが遅くなります。

**デフォルトの名無しさん** · 2018/05/13(日) 18:22:03.91

>>876
Matchの第3引数を0以外にするとバイナリサーチになるんだそうです。

その1.9Secの結果をだせたコードの書き方が知りたいです。

**デフォルトの名無しさん** · 2018/05/13(日) 18:24:18.63

>>874
動作する完全なコードを書いて
測定処理も含めたすべて

**デフォルトの名無しさん** · 2018/05/13(日) 18:40:41.94

>>874
それ線形探索

**デフォルトの名無しさん** · 2018/05/13(日) 18:53:06.33

>>880
いや >>878に書いたとおりで、現にそれに見合う結果がでているのですが、、？

**デフォルトの名無しさん** · 2018/05/13(日) 19:03:59.96

>>881
ん？
さっきから50秒の方が遅いおかしいって騒いでるんじゃないの？

**デフォルトの名無しさん** · 2018/05/13(日) 19:13:05.46

もう解決したんだから終了でよくね？
このまま続けてても無知な外野とかPS糞野郎がしゃしゃり出てくるだけ

**デフォルトの名無しさん** · 2018/05/13(日) 19:15:15.85

>>879
駆動表、調査表（各１列）ともに >>875 の関数で生成したデータを配置。
調査表をarrFdListにすると 86 Sec, rngFdListにすると27 Sec となりました。
Sub TES_Proc()
　Dim ST As Single, ED As Single: ST = Timer
　Dim rngFdList As Range '調査表
　Dim arrFdList As Variant 'Array格納試験用
　Dim r As Range, iHit As Long, iCnt As Long
　Set rngFdList = Range( _
　　　　　　Range("R_Fd"), _
　　　　　　Range("R_Fd").Offset(100000, 0).End(xlUp) _
　　　　　)
　arrFdList = rngFdList
　For Each r In Range("R_Drv").CurrentRegion '駆動表
　　With Application
　　　iHit = .IfError( .Match(r.Value, arrFdList, 0), 0)
　　End With
　　If iHit > 0 Then iCnt = iCnt + 1
　Next
　Debug.Print iCnt & " Matched"
　ED = Timer
　Debug.Print "Waste: " & ED - ST & " sec"
End Sub
（つづく）

**デフォルトの名無しさん** · 2018/05/13(日) 19:15:40.65

>>879
（つづき）
こちらは0.4Secで回答がえられるようになったコードです。>>874の関数を使用します。
ただ、駆動表をArrayに変えると100Sec以上かかります。(関数の引数型変更が必要)

Sub TES_Proc2()
　Dim ST As Single, ED As Single: ST = Timer
　Dim rngFdList As Range '調査表
　Dim arrFdList As Variant 'Array格納試験用
　Dim r As Range, IDX As Long, iCnt As Long
　Set rngFdList = Range( _
　　　　　　Range("R_Fd"), _
　　　　　　Range("R_Fd").Offset(100000, 0).End(xlUp) _
　　　　　)
　arrFdList = rngFdList
　For Each r In Range("R_Drv").CurrentRegion '駆動表
　　If isReg(r.Value, rngFdList) Then
　　iCnt = iCnt + 1
　　End If
　Next
　Debug.Print iCnt & " Matched"
　ED = Timer
　Debug.Print "Waste: " & ED - ST & " sec"
End Sub

**デフォルトの名無しさん** · 2018/05/13(日) 19:20:14.73

>>882
いや、Matchを使うのがおかしいと言われているので、
もっと一般的な方法を知りたくて。

50秒のほうは確かに線形探索ですね。
上のほうでシートにアクセスしているから遅いと言われて
２つの表ともArrayに乗せて比較のために実行したものです。

**デフォルトの名無しさん** · 2018/05/13(日) 19:22:13.03

>>883
そうですね。あとは自分で調べてみます。
お騒がせしました。

**デフォルトの名無しさん** · 2018/05/14(月) 06:52:21.09

>>865
うわ気持ち悪い
まだ監視してるw

**デフォルトの名無しさん** · 2018/05/14(月) 07:11:10.06

朝から粘着してる奴が何を言ってるんだかw

**デフォルトの名無しさん** · 2018/05/14(月) 13:57:44.01

ﾆﾔﾆﾔ

**デフォルトの名無しさん** · 2018/05/14(月) 17:46:18.99

キモっ

**デフォルトの名無しさん** · 2018/05/14(月) 22:09:45.23

エクセルでメールを送る際にCDOを使用していたのですが
メールサーバーの仕様が変わって
ポート587のTLS/STARTTLSが必要になりました
調べてみるとCDOはTLS/STARTTLS非対応のようです

TLS/STARTTLSに対応できるエクセルでメールを送る
お勧めの方法を教えてください

よろしくお願いします

**デフォルトの名無しさん** · 2018/05/15(火) 07:03:51.94

>>892
basp21がいけるかなと思ったけど、無料版は非対応みたいですね。
SMailで対応されている方を見かけました。
他に何かあるかな？

**デフォルトの名無しさん** · 2018/05/15(火) 07:57:52.48

=と:=の違いが分からんちん

**デフォルトの名無しさん** · 2018/05/15(火) 10:03:02.81

>>894
http://officetanaka.net/excel/vba/beginner/02.htm

ググればすぐ出てくるのに…

**デフォルトの名無しさん** · 2018/05/15(火) 12:22:16.58

代入と比較を両方=にしたせいで名前付き引数へ渡してるのか比較してるのかわからないから苦肉の策で:=を使う
VBAの言語設計のセンスのなさの表れ

**デフォルトの名無しさん** · 2018/05/15(火) 12:36:20.46

古い言語だからセンスが無いのはしょうがない
ただずっと伝統を守って生産性をあげようとしてこなかった点は残念だね
Microsoftに見捨てられた言語

**デフォルトの名無しさん** · 2018/05/15(火) 15:50:11.49

>>892
.NET言語呼べば変なライブラリ使わずに済むよ
このスレでよく連呼されてたやつね笑

**デフォルトの名無しさん** · 2018/05/16(水) 17:15:29.34

会社でPC upgradeのあと
キーボード配置がおかしくなってコード書く効率が格段に劣化した。
例えば@を打つためにSHIFTと2だし、(や)を打つのは場所が1つずれる、などなど。
プログラミングではコードの書き方など意識を集中すべきところはたくさんあるのに
こんなキーボードの配列のようなくだらんことに意識しないといけないので仕事効率が格段に下がって困っています。

なにか対策ありますか？
会社のIT部は対策考えてると言ってますが待てません。

**デフォルトの名無しさん** · 2018/05/16(水) 17:38:45.07

入力をフックして正しいキーに変換するVBAマクロを書くというのはどうでしょうか？

**デフォルトの名無しさん** · 2018/05/16(水) 17:57:14.07

>>899
Windows 10で異なる言語のキーボード配列に誤認識される場合の対処方法
http://www.atmarkit.co.jp/ait/articles/1707/21/news021.html

**デフォルトの名無しさん** · 2018/05/17(木) 01:22:57.26

お仕事でvba使ってるけど自分がどれくらい出来るのか全然分からん
工数とか見積もりとか出したらなんか分かるんかなーて思って調べても良くわからんしステップ数？はクソコード程行数多くなるし…なんか良い方法ないかな
このままじゃモチベが続かん

**デフォルトの名無しさん** · 2018/05/17(木) 06:33:07.87

オモチャは卒業して他の言語使えば？

**デフォルトの名無しさん** · 2018/05/17(木) 07:58:02.31

MSの資格なかったっけ
とりあえずそれの練習問題みたいなの見てみるとか

**デフォルトの名無しさん** · 2018/05/17(木) 09:13:30.19

VBA程度でPC作業の効率上げた気になってるけどもっと仕事全体の効率を上げる努力しような
VBAなんてそんな細かい事は後回しでいいからさ
本当は家でサッサとやって来て欲しいくらいだけどね

**デフォルトの名無しさん** · 2018/05/17(木) 10:13:39.78

>>902
なにかテクニックを持ってるなら記事書いて公開してレスポンスを待てばいい
レスなくてもアウトプットするだけでためになるし

**デフォルトの名無しさん** · 2018/05/17(木) 11:47:08.89

仕事の効率が悪いのは不合理を上から押し付けられている例が多い。
「上」の典型例が役所だ。
あとITの観点からは全く無能と言っていい経営が合理化の阻害要因になっている会社もまれにある。
そういう会社は競争に負けて速やかになくなっていくからいいけどね。

**デフォルトの名無しさん** · 2018/05/17(木) 12:05:52.20

そうそう
薄汚いクソフォーマットのエクセルファイルや
メンテナンス性を完全に放棄したとしか思えないクソVBAコードとかね
押し付けられた方は無駄な作業を強いられてたまったもんじゃない

**デフォルトの名無しさん** · 2018/05/17(木) 12:10:09.02

経営者は会社と従業員のために戦ってほしい。戦いに負け続けるようではダメな経営者だ。
喧嘩する相手は役所ね。頑張って。

**デフォルトの名無しさん** · 2018/05/17(木) 12:19:54.47

ちょっと質問失礼
自PCにあるブックをコピーしてサーバーに新規ブックを作るとファイルのタイムスタンプの日時がよくわからない日時になってるんだけど、何の原因が考えられそうですか？

**デフォルトの名無しさん** · 2018/05/17(木) 12:24:50.78

一緒に戦えよｗ　傍観してるだけじゃ何事も手には入らんわ
何もいらない奴だけが傍観してろよ

多くを手にしている経営者がなんで自らリスキーな戦い挑むと思うんだ　欧米じゃあるまいし

**デフォルトの名無しさん** · 2018/05/17(木) 12:32:34.08

サーバに新規ブックを作る　ってトコが書き間違いだと思うが　コピーや移動やアップロードだとして
そのサーバは目の前にあるのかクラウドとかで見知らぬ国なのかでも変わってくる
ファイルのタイムスタンプも　作成時、更新時、アクセス時などなど様々

**デフォルトの名無しさん** · 2018/05/17(木) 13:16:33.83

VBAしか使わせてくれない会社に合理化とかアホか？
きちんと合理化してる所は今時エクセルなんか最低限しか使わんだろ

**デフォルトの名無しさん** · 2018/05/17(木) 14:07:27.73

‘配列1(セル範囲から配列にする場合)
Dim Arr as String
Arr = Range(“A1:A3”)
‘取り出し方
For each i in Arr
Debug.print i
Next

‘配列2(普通の配列)
Dim Arr(3) as String
‘取り出し方
For each i in Arr()
Debug.print i
Next

【質問1】この「括弧無し配列(配列1)」と「括弧付き配列(配列2)」の違いを教えていただけないでしょうか

配列1と配列2で取り出し方が違います。
つまり同じ物として運用するとエラーになってしまいます。

例えば通常の括弧付き配列は
Returnnum = Arr
として戻り値として配列を返せますが、括弧無し配列はできません

【質問2】
「括弧無し配列(配列1)」を「括弧付き配列(配列2)」に変換する一番スマートな記述を教えていただきたいです。現状動的配列にループで収納しています

以上、ご教授願います。よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/05/17(木) 14:20:43.91

すみません、配列1はVariant型じゃないと駄目でした。。
正しくは以下です

‘配列1(セル範囲から配列にする場合)
Dim Arr as Variant
Arr = Range(“A1:A3”)
‘取り出し方
For each i in Arr
Debug.print i
Next

**デフォルトの名無しさん** · 2018/05/17(木) 14:23:23.12

>>914
> Dim Arr as String
> Arr = Range(“A1:A3”)

この As String は As Variant の間違いかな？
それと、括弧無し配列もVariant 戻り値として返せるよ。
括弧付き配列はSAFEARRAY構造体というもので、括弧無し（Variant変数）はそれを値として内部に抱えている。

**デフォルトの名無しさん** · 2018/05/17(木) 14:23:48.83

おっとかぶった

**デフォルトの名無しさん** · 2018/05/17(木) 17:43:16.02

>>914
質問2は一発ではできないとおも

てか、Variant型のほうで統一すりゃいいじゃん

なんでだめなの？

**デフォルトの名無しさん** · 2018/05/17(木) 20:41:16.86

質問です

入力した文字列の時刻の値を比較して結果を出したいのですがどうすればいいでしょうか？
例えば↓のようなことがやりたいです
このままだと何を入力しても12時前になって困っています

Function Calc(val As String) As String
　If val < Time(12. 0. 0)
　　Calc = "12時前"
　Else
　　Calc = "12時以降"
　End If
End Function

よろしくお願いします

**デフォルトの名無しさん** · 2018/05/17(木) 20:44:04.78

ggrks

**デフォルトの名無しさん** · 2018/05/17(木) 20:59:43.69

>>919
TimeVale("12：00")　じゃね

**デフォルトの名無しさん** · 2018/05/17(木) 21:00:24.39

uが抜けたTimeValue

**919** · 2018/05/17(木) 21:12:45.95

>>921
有難う御座います
TimeをTimeValueにして試してみます

**デフォルトの名無しさん** · 2018/05/17(木) 21:33:16.08

>>916
なるほど、ありがとうございます！

**デフォルトの名無しさん** · 2018/05/17(木) 22:01:20.21

>>904
あれはもう持ってるんだ
派遣先で永遠と飛んでくる指示に従うだけって思ってたよりもつまらん

**デフォルトの名無しさん** · 2018/05/17(木) 22:36:14.28

>>925
そりゃあ指示にただ従ってるだけではな

仕事は自分で作り出すものやで

**デフォルトの名無しさん** · 2018/05/17(木) 22:45:20.21

>>925
なにかアウトプットしなよ
さあ！

**デフォルトの名無しさん** · 2018/05/17(木) 23:27:34.82

組織に所属しているという意識がないんなら当然「仕事は自分で作り出す」なんて意欲も湧かんわw

**デフォルトの名無しさん** · 2018/05/18(金) 00:14:21.21

フリーランスこそ顧客開拓に余念がないと思うけどね

**デフォルトの名無しさん** · 2018/05/18(金) 00:18:40.56

勝手に仕事を作るバカのせいでまたメンテナンスコストの高いマクロがばら撒かれる
無能な働き者さんはほんと迷惑です

**デフォルトの名無しさん** · 2018/05/18(金) 06:19:19.39

>>925
(誤)永遠と
(正)延々と

わざとならすまん

**デフォルトの名無しさん** · 2018/05/18(金) 08:02:30.01

オブジェクトをコピーした状態を解除するにはどのようにかけばよいでしょう？

Application.cutcopymode=false では消えないので、適当なセルを一度コピーし上記でコピー解除しています。

一発で解除する方法ありますか？

**デフォルトの名無しさん** · 2018/05/18(金) 08:25:19.97

>>932
APIのEmptyClipbordはどう？

**デフォルトの名無しさん** · 2018/05/18(金) 08:49:40.64

検索したらクリップボードをクリアするサンプルコードがでてくるはずだけど、api呼び出す必要があったり結構面倒だった記憶がある

**デフォルトの名無しさん** · 2018/05/18(金) 11:50:53.11

C#とかでクリップボードをクリアする実行ファイルを作って呼び出すのが最適解

**デフォルトの名無しさん** · 2018/05/18(金) 12:35:02.93

>>932
CreateObject("Forms.TextBox.1") して空文字をコピーすりゃいいじゃん、と思ったけど空文字だとできないな。
任意の一文字コピーではだめ？

**デフォルトの名無しさん** · 2018/05/18(金) 16:53:52.74

Dim xls As New Excel.Application
Set Book = xls.Workbooks.Open(省略)

時短のためにこのように作業対象のオブジェクトを取得すると

Book.activate

が効きません。(常にthisworkbookがアクティブになります)

何故でしょうか？対策はございますか？

**デフォルトの名無しさん** · 2018/05/18(金) 21:35:52.88

>>937
あんまり詳しくないけど新しいエクセルを作成する必要あるの？

dim book as workbook

にして

setのところのxls.を削るのはダメなの？

**932** · 2018/05/18(金) 23:06:26.97

>>933
上手くいきました。

>>936
ありがとう

**デフォルトの名無しさん** · 2018/05/19(土) 17:47:09.08

>>938
それだと普通に開くだけなので大量のエクセルファイルを操作するときに時間がかかるのです

**デフォルトの名無しさん** · 2018/05/19(土) 19:42:27.74

新規にEXCELプロセス作った方が速いって言ってる？

**デフォルトの名無しさん** · 2018/05/19(土) 20:39:09.13

>>940
時間がかからんとactivateしても人間にはなんの事やらわけがわからんよ
キミはなんや矛盾した問題をかかえとるね

**デフォルトの名無しさん** · 2018/05/19(土) 20:49:03.18

大量のファイルを処理するならプロセス作って並列処理した方が速いだろうね

**デフォルトの名無しさん** · 2018/05/19(土) 21:18:06.38

質問です。
windowsAPIからキーボードイベントを発生させたいのですが、ノートパソコンにあるFNキーの定数をご存知の方いらっしゃいませんか。
よろしくお願いします。

>>937
開いているブックのみがアクティブの対象かと。

**デフォルトの名無しさん** · 2018/05/19(土) 23:13:31.81

何故アクティブにする必要があるんかね?
アクティブにしないで済むようには組めんのか?

基本的にアクティブにする処理を書く奴はスキルが低いと思うんだ。
もっとも、どうにもアクティブにしないとできないことも稀にはあるけどね。

**デフォルトの名無しさん** · 2018/05/19(土) 23:41:59.44

>>944
残念ながらFnキー単体にコードはない
Fn+キーが押されて初めてデバイスからコードが流れる仕組み
つまりFn単体が押されたかはOSからは判らない
メーカーによっては違う仕組みかもしれないけど

**デフォルトの名無しさん** · 2018/05/20(日) 00:04:10.54

>>945
最後にアクティブにして終わるとか

**デフォルトの名無しさん** · 2018/05/20(日) 00:23:38.59

明示的にアクティブにすることはある。
ユーザーにこのシート、このセルですよと示す為に。

でもそういう場合以外でアクティブにすることはまずめったに無い。
で、Excel.Application使う場合はそういう場合ですら無い。

2013だったかのExcelの仕様変更でアクティブにしないとエラーとなる不具合が有った気がするが回避できる組み方も有るような気もする。

**デフォルトの名無しさん** · 2018/05/20(日) 14:25:06.75

>>946
ありがとうございます。
>メーカーによっては違う仕組みかもしれないけど
再び希望を持ってかなり調べてみましたが、やはり仰る通りありませんでした。
別の方法を探すことにします。

**デフォルトの名無しさん** · 2018/05/20(日) 22:34:18.97

スレ違うかもしれないけど教えてください。
この問題答えがイ.なんだが最後に＋1を付ける意味がわからないんです…
付けなきゃいけないの？https://i.imgur.com/EH5gABg.jpg

**デフォルトの名無しさん** · 2018/05/20(日) 22:49:16.49

表のつくりがクソだという以外に感情がなくなってきて答えられない

**デフォルトの名無しさん** · 2018/05/20(日) 22:55:58.27

表示とデータを分離しない
データを正規化しない
vbaerあるある
やんなっちゃうよね

**デフォルトの名無しさん** · 2018/05/20(日) 23:02:31.52

>>950
開始時間を表示したいんなら+1不要だと思うよ
問題文はそうじゃないね

**デフォルトの名無しさん** · 2018/05/20(日) 23:06:27.60

何のテキストか知らないけど下に見えてる問題も含めて地雷くさいなぁ
関数複雑にする前にできることあるだろうに…

**デフォルトの名無しさん** · 2018/05/20(日) 23:10:46.38

ふと思ったのだがもしかしてプログラミング必修って
純粋な子供たちにこういうのが正しいプログラミングですって教え込むのかな
こわいなぁ

**デフォルトの名無しさん** · 2018/05/20(日) 23:27:00.68

なにがこわいんだよ
VBAみたいなしょーもないことやるわけちゃうやろ

**デフォルトの名無しさん** · 2018/05/20(日) 23:43:30.11

中途半端な知識に毒された新人やお客様は厄介だぞ
新人は研修で厳しく指導して矯正すればまだなんとかなるが、お客様が相手だと立場上そうもいかん
恥をかかせないように間違いを指摘するのって難しいんだよ

**デフォルトの名無しさん** · 2018/05/21(月) 00:22:57.97

>>950
空白はINDEX関数の何行目かを指定するのにMATCH関数を用いていて、A3に一致した行+1することにより活動場所の行にずらしています。
もう一つのMATCH関数によりA4に一致した列を指定していることで、D4に正しく表示されるようになります。
それぞれを数字に直すとより分かりやすいかもしれません。

**デフォルトの名無しさん** · 2018/05/21(月) 09:43:31.74

ttp://mevius.5ch.net/test/read.cgi/bsoft/1523701626/411

**デフォルトの名無しさん** · 2018/05/22(火) 14:28:26.02

StrConv関数のシステム規定のコードって、WindowsならShift-JISでいいんですか？
もしそうなら、それが明示的にわかる記述ってヘルプなどに乗ってますか？

**デフォルトの名無しさん** · 2018/05/22(火) 21:08:53.68

システム規定?
何か勘違いじゃない?

StrConv関係なくダブルクォーテーションで括った文字はShift-JIS扱いだと思うが。

**デフォルトの名無しさん** · 2018/05/22(火) 21:40:29.05

>>960
> StrConv関数のシステム規定のコードって、WindowsならShift-JISでいいんですか？
それを質問してるレベルならShift-JISだと思っておけばいい

> もしそうなら、それが明示的にわかる記述ってヘルプなどに乗ってますか？
世の中には英語版Windowsとかもあるから規定のコードはShift-JISとは限らない

**デフォルトの名無しさん** · 2018/05/22(火) 22:33:03.25

ファイルが閉じられようとしている時、何がそのファイルを閉じようとしているか取得することはできますか？
MenuなのかCloseBoxなのかShortCutKeyなのかプログラム的なものなのか。
Application.Callerで行けるかなと思ったのですが、無理でした。

**デフォルトの名無しさん** · 2018/05/23(水) 01:18:41.80

>>963
API使ってイベントを監視すれば可能だけどVBAの範疇を超えすぎてる

**デフォルトの名無しさん** · 2018/05/23(水) 19:08:52.58

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

8JKSW

**デフォルトの名無しさん** · 2018/05/23(水) 19:56:12.66

>>964
やっぱり無理ですね。あきらめます。

**デフォルトの名無しさん** · 2018/05/24(木) 11:04:28.36

**デフォルトの名無しさん** · 2018/05/24(木) 18:44:34.86

webスクレイピングて難しく思えたんだけどコレはvba以外でやると多少楽なのかな？
静的ページならすぐ出来たけど動的インフレームアリだとsetが失敗して、しないようしないようと作ってたらかなり時間かかるようになってしまった

**デフォルトの名無しさん** · 2018/05/24(木) 18:54:57.85

>>968
そんな事を何故にエクセルでやるの？
WinアプリとかWebアプリを作るとかした方が良いのでは？

**デフォルトの名無しさん** · 2018/05/24(木) 19:45:07.20

スクレイピングにVBAを使う人がいても良い
それが自由というものだ

**デフォルトの名無しさん** · 2018/05/24(木) 22:30:16.88

WinSockでWebサーバ作るの難しく思えたんだけどVBA以外でやると多少楽なのかな？