Excel VBA 質問スレ Part60

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:09.64

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:59.29

何で誰も立てないの

**デフォルトの名無しさん** · 2019/03/16(土) 21:14:45.74

>>1乙だけどﾜｯﾁｮｲ抜けてる…

**デフォルトの名無しさん** · 2019/03/16(土) 21:48:42.20

>>2
もう必要ないから

**デフォルトの名無しさん** · 2019/03/16(土) 23:05:16.78

>>2
未回答の質問が特になかったから

**デフォルトの名無しさん** · 2019/03/17(日) 01:48:38.37

前スレの最後の方で承認欲求モンスター共がAccessの話でマウント合戦初めて、もうみんなこのスレ要らないやって思ってたんだぞ

**デフォルトの名無しさん** · 2019/03/17(日) 08:15:42.60

次からAccessスレも含めて↓でいいんじゃないかな
ここ無くなって↓あるの初めて知った
最近outlookVBA使い始めたんだけど、もっと早く使うんだったと後悔

VBAなんでも質問スレ Part2 [転載禁止]©2ch.net
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**デフォルトの名無しさん** · 2019/03/17(日) 08:40:24.61

やっと出来たか

前のExcel VBAのスレで、次スレ検索したら、Accessの
https://mevius.5ch.net/test/read.cgi/tech/1544620479/
が出てきたぞ

VBAは全部まとめていいんじゃねえか？

**デフォルトの名無しさん** · 2019/03/17(日) 09:42:14.71

お願いします。

Sub teust()
n = Cells(Rows.Count, "b").End(xlUp).Row + 1
Range("b" & n).Select
ActiveCell.FormulaR1C1 = Sheets(2).Range("i4")

End Sub

a b c b …
ってやってるですがB列だけ9個下に表示されます。

考えられる原因はなんでしょうか(泣)

abcb…はコピペしてるので何故かB列だけ下に行きます

**デフォルトの名無しさん** · 2019/03/17(日) 11:43:51.79

>>9
Cellsで参照してるアクティブシートのB列だけ、最終行であるべき行よりも9行下に余計な値の入ったセルがあるとかじゃない？
変な空白が入ってたり、表の欄外に他人が勝手にコメントつけてたりとかありそう

**デフォルトの名無しさん** · 2019/03/17(日) 12:05:15.62

MsgBox Range("B" & n).Value

とか一度やってみて

同じような事が起きたことあるけど
会社のおっさん上司が白色の文字をそのセルに置いてたわ

**デフォルトの名無しさん** · 2019/03/17(日) 14:35:17.64

コンソールの使い方知ってるならDebug.Print n とかDebug.Print Range("B" & n).Value でも良し

**デフォルトの名無しさん** · 2019/03/17(日) 16:19:59.54

>>9
正直、コードが微妙に感じる。
1行で済むだろ。

それと、ブックとかシートは余程のことが無い限り省略しない方が良い。

**デフォルトの名無しさん** · 2019/03/17(日) 17:40:29.60

>>8
良いと思う

**デフォルトの名無しさん** · 2019/03/17(日) 20:10:18.97

>>13
そういうコメントするなら一行コードを書いてあげるのが親切じゃね

**デフォルトの名無しさん** · 2019/03/17(日) 20:52:23.19

>>15
sht.Cells(sht.Rows.Count,2).End(xlUp).Offset(1,0).FormulaR1C1=Sheet(2).Range("I4").Value
とかかな。
FormulaR1C1とかValueは適宜実際に併せて変えてくれ。
Sheet2のI4に式が入ってるとは思えないから両方Valueで良いような気がする。

**デフォルトの名無しさん** · 2019/03/17(日) 21:43:54.03

>>16
実際書いちゃう人大好き

**デフォルトの名無しさん** · 2019/03/17(日) 23:17:32.63

別に1行にすべきというわけじゃ無い。
.SelectとActiveCellが良くないということ。
あと、元の情報が無いのとスマホで書いたからブックは省略したけど、自分が組んでたら省略はしない。

**デフォルトの名無しさん** · 2019/03/19(火) 02:31:46.42

入力のあったセルの場所が分かったとしても、また同じ事が起きそう
入力させるセルと出力するセルはハッキリ分けた方がいいと思うよ

**デフォルトの名無しさん** · 2019/03/19(火) 06:29:25.90

みんなこっちにいるよ
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**675** · 2019/03/19(火) 12:34:39.62

確実に全セル入力されてる列があるならそれを基準に使う手もアリ(例えば項番の列とか)

**デフォルトの名無しさん** · 2019/03/19(火) 12:37:36.01

新しくシートを作成するコードで、
シート名をInputboxで入力させるんだけど、
もし名前が被ったときに、エラーを回避して
Subを終わらせることってできる？

シートも結構いっぱいあるから
「名前が一致したとき」にExit Sub
ってのはやりたくないんだけど…

**デフォルトの名無しさん** · 2019/03/19(火) 13:02:44.27

>>22
For Eachで全シートの名前と比較して、同じのがあったら作らない

**デフォルトの名無しさん** · 2019/03/19(火) 13:09:43.79

>>23
最後の3行が無ければ俺も同じ事をレスしてた

**デフォルトの名無しさん** · 2019/03/19(火) 13:19:11.43

>>22
最初に名前があるかどうかの処理をかませばいいだけ
シート作ってから一緒に何かしようとするとややこしいしミスするからオススメできない

Sub foo()
希望シート名 = InputBox("シート名を入力")
For Each 既存シート In ThisWorkbook.Worksheets
'小文字半角に変換、統一して比較
If StrConv(希望シート名, 6) = StrConv(既存シート.Name, 6) Then
MsgBox ("既にあるシート名でした。終了します")
Exit Sub
End If
Next

Set 新シート = Worksheets.Add
新シート.Name = 希望シート名
'新シートで処理

End Sub

**デフォルトの名無しさん** · 2019/03/19(火) 15:13:53.64

>>23
>>24
>>25

ありがとう！
試してみますわ

**デフォルトの名無しさん** · 2019/03/19(火) 15:26:37.07

できたー！ありがとうございました！
まさにこれっすー！

**デフォルトの名無しさん** · 2019/03/19(火) 19:23:19.44

オレはループ回すの面倒（遅い？）から on errorでやるわ

**デフォルトの名無しさん** · 2019/03/19(火) 19:31:40.14

on errorってエラーの決め打ちじゃなくて「このエラーが出るはず」という使い方だから、他の手段があるならあまり積極的には使わない方がいいと思う

**デフォルトの名無しさん** · 2019/03/19(火) 19:59:00.27

tryか

**デフォルトの名無しさん** · 2019/03/19(火) 22:17:46.56

on errorの場合はworksheets.add.nameで作ってエラー時はActiveSheet.Deleteみたいな処理にすんのかな
不測の事態が起きそうで怖いけど

**デフォルトの名無しさん** · 2019/03/19(火) 22:26:38.38

シートに配置したフォームコントロールのボタンのクリックとマクロを関連付けています
この時、ボタンのテキストを取得する方法はありますか？
Application.Caller
だと名前は取得できるのですが
ボタンの名前をテキストと同じものに変更する、でも良いです

**デフォルトの名無しさん** · 2019/03/19(火) 22:31:52.70

>>16
ブック.シートをwithでくくりたい(´・ω・`)

**デフォルトの名無しさん** · 2019/03/19(火) 22:49:35.77

>>32
ボタンのテキストはどうやって設定した？captionプロパティじゃないのか？

**デフォルトの名無しさん** · 2019/03/19(火) 23:00:11.13

>>34
手作業です

**デフォルトの名無しさん** · 2019/03/19(火) 23:02:44.80

>>35
ボタンに表示している文字の事を言ってるなら、手作業でもなんでもcaptionプロパティに入れてるはずだが

**デフォルトの名無しさん** · 2019/03/19(火) 23:07:48.99

リストボックスのリストを更新した時クリックイベントが発生するのは何故？

**デフォルトの名無しさん** · 2019/03/19(火) 23:14:34.15

>>36
そのcaptionプロパティを取る方法が分からないのです
https://i.imgur.com/Z5g9J0j.png

引数としてオブジェクトが渡されるわけでもないし、何か方法はあるのでしょうか

**デフォルトの名無しさん** · 2019/03/19(火) 23:21:08.44

>>38
ボタンのオブジェクト名.caption

**デフォルトの名無しさん** · 2019/03/19(火) 23:22:51.25

ボタンに限らずプロパティの指定の仕方はみんな同じ

**デフォルトの名無しさん** · 2019/03/19(火) 23:22:59.66

いろんなボタンにおんなじハンドラ割り当ててるんでしょ？

**デフォルトの名無しさん** · 2019/03/19(火) 23:29:58.14

>>39
えぇ、それは分かるんですが

>>41
そうです
複数のボタンのclickイベントに同じマクロを登録し、
clickしたボタンのcaptionを取りたい
https://i.imgur.com/IWsgjEQ.png

**デフォルトの名無しさん** · 2019/03/19(火) 23:33:09.14

>>42
マクロと言ってる時点で死ねよ

**デフォルトの名無しさん** · 2019/03/19(火) 23:34:33.07

>>38
OLEオブジェクトのコレクションからnameプロパティの一致する物を探すとか

**デフォルトの名無しさん** · 2019/03/19(火) 23:34:51.64

じゃあSheet1.buttons(application.caler).captionは？

**デフォルトの名無しさん** · 2019/03/19(火) 23:38:15.01

少々強引だが、apiのGetCursorPos関数でマウスポインタの場所のコントロールを取得って方法もある

**デフォルトの名無しさん** · 2019/03/19(火) 23:52:25.41

随分むごまっこっるた方法だな。

**デフォルトの名無しさん** · 2019/03/20(水) 00:28:31.79

>>43
一見イベントハンドラですが、thisが使えない、オブジェクト渡さないイベントハンドラはハンドラと言えるのでしょうか
個人的には、ハンドラという方が逆に混乱すると思いますのであえて言っていません

>>45
うおおおおおおできましたああああああああすごい！！！！！
https://i.imgur.com/8q0Z3yb.png

>>44>>46
ありがとうございます！

**デフォルトの名無しさん** · 2019/03/20(水) 00:31:55.82

あと、>>45さんの
Sheet1
というオブジェクトも気になります
sheet(1)
のエイリアスが自動的に生成されてると思いますが、MSDNでどのように調べると良いでしょうか？

**デフォルトの名無しさん** · 2019/03/20(水) 00:32:23.83

ActiveSheet.Buttons(Application.Caller).Characters.Text でいけないかな
試してないから駄目だったらごめん

**デフォルトの名無しさん** · 2019/03/20(水) 00:47:38.18

>>49

インデックス番号は、同じ種類のシート間に付けられる番号で、左からのシート見出しの順に基づきます。

https://docs.microsoft.com/ja-jp/office/vba/excel/concepts/workbooks-and-worksheets/refer-to-sheets-by-index-number

シートオブジェクトの移動や削除を行ったときにダイナミックにインデックスが変更されるのか、ファイル保存等の更新イベントがあるのかという細かい部分は調べてないから分からない
デフォルトのシート名がSheet & シート追加時のインデックス値になるのは経験上知ってる

**デフォルトの名無しさん** · 2019/03/20(水) 00:58:10.12

>>49
画像のボタンがSheet1に貼ってあったからそれに合わせて書いただけ
"Sheet1"っていう名前のシートのオブジェクト名がSheet1になってるっしょ

**デフォルトの名無しさん** · 2019/03/20(水) 01:11:06.91

>>51
シートのインデックスは常に左からの連番
シートの追加削除等あればもちろん都度変わる

**デフォルトの名無しさん** · 2019/03/20(水) 01:39:18.38

>>50
行けそうでダメでした
何で～？
https://i.imgur.com/kZaCjUg.png
https://dotup.org/uploda/dotup.org1801319.zip

>>51
＞デフォルトのシート名がSheet & シート追加時のインデックス値
削除すると変わるので、これは違います

>>52
その仕様ってどこかに書いてないのでしょうか

**デフォルトの名無しさん** · 2019/03/20(水) 02:22:30.37

>>54
どこに書いてるかは知らないけど、ボタンもシートもブックもオブジェクトの指定の仕方は同じ
　オブジェクト名
　オブジェクトのコレクション(インデックス)
　オブジェクトのコレクション("名前")
好きなのを使うがよい

**デフォルトの名無しさん** · 2019/03/20(水) 02:25:30.67

MS公式でWorksheetオブジェクトに関する説明調べればどっかにあるかもねえ、知らんけど

**デフォルトの名無しさん** · 2019/03/20(水) 11:46:18.93

マクロを10時間ぶっ通しで走らせるのはよくないですか？途中で再起したほうがいいですか？

**デフォルトの名無しさん** · 2019/03/20(水) 11:59:24.66

>>57
また馬鹿が来た
死ねよ

**デフォルトの名無しさん** · 2019/03/20(水) 12:06:20.76

>>55>>56
ありがとうございました
もう少し調べたかったけど、疲れたので断念します

>>57
とりあえず動かして、エラーが起きなければ何も問題はない
ただ、セルを触る物を10時間も動かすとメモリエラーが起こるかも知れない

>>58
笑った

**デフォルトの名無しさん** · 2019/03/20(水) 12:33:29.40

>>59
ありがとうございます。
メモリの心配はありますが、ぶっ通しでやってみます。

**デフォルトの名無しさん** · 2019/03/20(水) 13:54:52.74

>>57
応答なしにならないか？

**デフォルトの名無しさん** · 2019/03/20(水) 15:56:43.40

だから、どういう状況で10時間ぶっとおしが必要なんだよwwwwww
マジでExcelを何に使ってるのか気になるわ。

**デフォルトの名無しさん** · 2019/03/20(水) 16:27:03.42

馬鹿の考えることをまともに相手をしてはいけない

**デフォルトの名無しさん** · 2019/03/20(水) 20:36:03.66

結果セットは小さいけど重いDBクエリを繰り返すとかだったらわかる

**デフォルトの名無しさん** · 2019/03/20(水) 20:53:54.94

10時間動かし続けるとなると思いつくのは
出勤時間中にwebサイトやフォルダ監視し続けて何かをキッカケに何かするみたいなのかな

**デフォルトの名無しさん** · 2019/03/20(水) 22:28:30.85

エクセルでやることなんですかねそれ...

**デフォルトの名無しさん** · 2019/03/20(水) 22:53:02.96

ExcelVBAでパワーポイント動かしたいんですけど、
とか言われても、もう驚かんわ。

**デフォルトの名無しさん** · 2019/03/20(水) 23:11:09.25

馬鹿はそこでマクロと言い出す
更には、｢教えて｣｢助けて｣で始まり
｢急いでます｣｢作って｣と要求する

**デフォルトの名無しさん** · 2019/03/20(水) 23:20:32.29

>>67
やろうと思えば出来んでもないのか

**デフォルトの名無しさん** · 2019/03/20(水) 23:21:49.19

なんだお前ら、勿体無いな
10時間動かすなんて奇抜な事をしてくれるんだから、全力で応援するべきだろう
かなり貴重なサンプルが手に入る可能性があるのに、バカだの言って切り捨てるのはあまりに勿体無い

**デフォルトの名無しさん** · 2019/03/20(水) 23:38:22.03

>>70
まともな報告がある可能性は殆どない。
報告が役に立つ可能性はもっとない

**デフォルトの名無しさん** · 2019/03/20(水) 23:45:57.48

>>71
この辺は感性の違いかな
面白い物が見れそうな時はどんどん投資してしまう

**デフォルトの名無しさん** · 2019/03/21(木) 02:02:16.06

肛門に穴があいたんですけど、
とか言われても、もう驚かんわ。

**デフォルトの名無しさん** · 2019/03/21(木) 06:33:27.17

>>73
痔瘻でつか？

**デフォルトの名無しさん** · 2019/03/21(木) 07:23:06.55

>>69
むしろ楽勝の方だろ
ちょっと前にシートの内容をスライドに埋め込むとかはやったことがある
やったのはPowerShellだったけどCOM経由なら似たようなもんだし

**デフォルトの名無しさん** · 2019/03/21(木) 10:02:44.62

パワーポイントでVBAって何すんの？
パワーポイントって発表用のアプリだろ。　それでVBAって需要なんてあまりあるとは思えんが

**デフォルトの名無しさん** · 2019/03/21(木) 10:04:16.17

シートの内容をスライドに埋め込むとか

**デフォルトの名無しさん** · 2019/03/21(木) 10:26:55.37

プレゼンが定例業務としてある会社もあるんじゃね

**デフォルトの名無しさん** · 2019/03/21(木) 10:29:58.00

例えば、気象庁のホームページからクエーリーでデータを取得し
パワポにデーター貼り付けながら、加工してそれをアニメーションで
かっこよく表示していくとか、考えれば応用はいくらでもあるだろう

**デフォルトの名無しさん** · 2019/03/21(木) 10:37:01.43

言葉が足りなかった、プレゼン用ではなく、情報表示モニター用にな
いくらでも機能はつけられる

**デフォルトの名無しさん** · 2019/03/21(木) 11:18:23.86

なんかどれも一般個人には無縁のものばかりだな

**デフォルトの名無しさん** · 2019/03/21(木) 11:20:14.60

まあパワーポイント自身、個人で使うことなんてないのか
でも企業でも極一部の部署しか使わないものばかりじゃん

**デフォルトの名無しさん** · 2019/03/21(木) 11:39:33.97

パワポVBAで何か作ってみたいという逆需要で、発表後喋ってる間にスターウォーズのエンドロールみたいなのを流すのを昔作ったことあるなw
それ以降、私の開発現場では（個人的にも）パワポVBAは全く需要なし
WordVBAも、補助ツールとして数年に一回作るくらいかな

**デフォルトの名無しさん** · 2019/03/21(木) 11:42:12.40

スライドシェアとか見てもかったるいだけだからな
大昔の改行しまくりのテキストサイト思い出す

**デフォルトの名無しさん** · 2019/03/21(木) 11:45:36.88

なんか、ExcelのVBAでパワポを操作するのと、パワポのVBAを同一で語ってるやついるか？
ちなみにWordのVBAはいくつか作って今も使ってるけど、まあ対比で言えばExcelの
１００分の１程度だな

**デフォルトの名無しさん** · 2019/03/21(木) 12:40:04.02

>>84
>スライドシェア
何だよ、かったるいのしか見たことないんだろ
>テキストサイト
何もわからんバカなのね(笑)

**デフォルトの名無しさん** · 2019/03/21(木) 12:46:45.76

>>84
まあ、言葉もわからんカスが書き込みするスレだよな

**デフォルトの名無しさん** · 2019/03/21(木) 12:51:57.24

>>86
カッコイイパワポを見てみたいんだが、どこかにある？
俺は見たことない

**デフォルトの名無しさん** · 2019/03/21(木) 12:55:25.94

>>88
そうか、じゃあそのままでいいよ
検索もできないカスのお前に見せる必要ないからな

**デフォルトの名無しさん** · 2019/03/21(木) 13:01:18.94

自分では何もできないくせに、人の作ったものは全力で否定するカスいるな
生きてる必要あるんか？・・ってかどうなの？(笑)

**デフォルトの名無しさん** · 2019/03/21(木) 16:10:00.98

>>83
単に、バカじゃん(大笑)

**デフォルトの名無しさん** · 2019/03/21(木) 18:21:43.40

>>82
accessよりは使ってる

**デフォルトの名無しさん** · 2019/03/21(木) 18:38:57.53

>>75
そういう問題か?
PowerPointなのにPowerPointVBAを使わずにExcelVBAという所が驚きの対象なんじゃないの?

**デフォルトの名無しさん** · 2019/03/21(木) 18:40:52.37

起点がExcelってのがポイントだよな

**デフォルトの名無しさん** · 2019/03/21(木) 18:59:32.81

>>67の冗談が起点なのになんで真剣に語っているんだ

**デフォルトの名無しさん** · 2019/03/21(木) 19:40:57.90

>>93
Excel VBAで扱うのとPowerPoint VBAで扱うのはたいして変わらんよ
どっちから制御するかだけの問題

**デフォルトの名無しさん** · 2019/03/21(木) 21:02:50.21

他アプリから制御するのはいちいちアプリケーションインスタンスを起動しなきゃならんのが糞面倒
パワポだけで済むならパワポにする

**デフォルトの名無しさん** · 2019/03/21(木) 21:15:08.25

VBAを使ってる人って御老人のイメージだけど合ってる？

**デフォルトの名無しさん** · 2019/03/21(木) 21:48:16.24

ナウでヤングな人は何使うん

**デフォルトの名無しさん** · 2019/03/21(木) 22:10:39.42

そろばん

**デフォルトの名無しさん** · 2019/03/22(金) 08:13:43.08

>>96
PowerShellなんて言い出す奴だからわからないんだろうな。
大して変わらんのなんて当たり前だろ。

PowerPointVBAからExcel.Application使って、そのExcelオブジェクトからPowerPoint.Application使ってを10回繰り返した所で変わらんけどアホ丸出しなのが分からんのかね。

**デフォルトの名無しさん** · 2019/03/22(金) 08:17:26.70

>>101
で？
例がアホすぎて何を主張したいのかさっぱりわからんw

**デフォルトの名無しさん** · 2019/03/22(金) 09:00:55.13

パワーポイントVBAって色々と勝手が違って面倒臭かった記憶があるけどな
そもそもエクセルやワードと違って空のアプリケーションインスタンス作れないんじゃなかったっけか
ファイル実行時に読み取りパスワードを指定するときもファイル名と連結する必要があるし

**デフォルトの名無しさん** · 2019/03/22(金) 09:13:17.49

>>102
バカにはわからない。
というか例がアホ過ぎる所がミソなんだがw

そんなアホなことをするのかというのが驚きの対象であって、大して変わらんかどうかなんて頓珍漢な話はどうでもいい。

**デフォルトの名無しさん** · 2019/03/22(金) 09:35:36.14

いや、当たり前なんてみんな知ってる（>>93を除くw）のに今更何を言いたいんだってこと
バカの上塗り？

**デフォルトの名無しさん** · 2019/03/22(金) 10:34:34.64

結局、ワッチョイ抜きにするから荒れるんだろ
誰がどう主張したいのかわからなくなる
ワッチョイが嫌な奴がこのスレ建てたんだろうな、立て直すか？

**デフォルトの名無しさん** · 2019/03/22(金) 10:58:31.28

>>101
それ面白いｗ

**デフォルトの名無しさん** · 2019/03/22(金) 12:26:36.58

>>105
プッ
当たり前なのは>>93を含めてみんな知っている。

今更何を言いたいのかは>>102を除いてみんな知っているw

**デフォルトの名無しさん** · 2019/03/22(金) 12:41:30.27

で、結局>>101は当たり前の事をほざいてただけ？
やっぱりバカの上塗りじゃねーか w

**デフォルトの名無しさん** · 2019/03/22(金) 13:05:17.10

OLEアプリケーション連携の話になると途端に荒れるのやべーな
前も下らんAccessの話でクッソ揉めてたし
他アプリ連携のスキルをプライドの拠り所にしてる人が結構いるのかな
凄いことやってる風に見てもらえるときあるし分からんでもないけどさ

**デフォルトの名無しさん** · 2019/03/22(金) 13:46:53.89

こっちに移動しる
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**デフォルトの名無しさん** · 2019/03/22(金) 14:07:54.62

こっちに移動しろ
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

日本語は正確に

**デフォルトの名無しさん** · 2019/03/22(金) 14:18:45.03

こいつ、知ってて言ってるのか知らないのか

**デフォルトの名無しさん** · 2019/03/22(金) 17:56:53.75

会社でブラウザの検索結果のページで
いっぱいURLのリンク先が表示されるのですが
そのたくさんのURLのそれぞれを開いたページ(毎回違うけど50ページくらいある)のデータを取得するVBAのコードを考えています。
IEの定番のCreateObject("InternetExplorer.Application")とDOMツリーの方法で実現できてはいるのですが
1つ1つページを開いて取得して閉じる、という作業がネットワークの遅さで異常に時間がかかります。
この複数のページを同時で取得する方法ってないでしょうか？よく知らないけどJavaでいうスレッドみたいな？

**デフォルトの名無しさん** · 2019/03/22(金) 18:05:28.43

いまどきマルチポストに眉をしかめるような時代遅れの人間なんていないよ、ね？

**デフォルトの名無しさん** · 2019/03/22(金) 18:13:30.85

>>114
IEオブジェクト作らずに通信すると早くなる気がするけど早くならないかもしれない
試してみて

Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.nicovideo.jp/watch/sm31763534";
httpReq.Send
Do While httpReq.readyState < 4
DoEvents
Loop
str2 = httpReq.responseText
End Sub

**デフォルトの名無しさん** · 2019/03/22(金) 18:19:28.87

>>114
どっかのサーバーでPHPなどで書けば
一度に取得を投げて戻ったイベントで処理を書く
ネットワークに依存しないし負荷はサーバー
詳しくはPHPなどの質問スレッドでしろ

**デフォルトの名無しさん** · 2019/03/22(金) 18:37:45.64

>>116
VBAでは書いたことないけど
リクエストを配列にして一度に投げ
戻った奴から処理する
普通はイベントで受ける

**デフォルトの名無しさん** · 2019/03/22(金) 19:06:06.24

>>116
そのCreateObject("MSXML2.XMLHTTP")はなんでしょうか？
str2にはたしかに入ってますが"https://www.yahoo.co.jp/";にしたら空欄になってしまいます。
HTMLページは膨大なソースなのでDOMツリーで必要なものだけを取り出したいのですが、それはできますか？

>>117
PHPって知らないのですが簡単に学習できるのですか？

>>118
VBAでイベントってどうやって受けるのですか

**デフォルトの名無しさん** · 2019/03/22(金) 19:30:29.78

>>109
まだ分かんねーのかよw

**デフォルトの名無しさん** · 2019/03/22(金) 19:31:45.60

>>120
すまん無能、ちょっと静かにしてくれ

**デフォルトの名無しさん** · 2019/03/22(金) 19:35:09.00

>>119
PHPをおけるサーバーの契約まあ無料のところも有るだろ
学習は無料でツールをダウンロード出来る
比較的簡単な言語でいろいろソースもあるが
VBAは超簡単な方だからな

VBAは特定のイベントしか受けられんのかな
普通VBやｃ＋＋やPHP などでコーディングするときは
イベントで受ける

**デフォルトの名無しさん** · 2019/03/22(金) 19:35:18.99

アホの考えなんてわからんしわかりたくもないわw

**デフォルトの名無しさん** · 2019/03/22(金) 19:37:24.46

>>119
出来る。
ResponseTextをDOMに入れる。

**デフォルトの名無しさん** · 2019/03/22(金) 19:37:49.10

>>118
jsで言うPromise？
非同期がvbaにあるんか、と思って調べたら一応あったけどかなりしんどいな
https://system-engineerlife.com/vba/multithread/

>>119
＞CreateObject("MSXML2.XMLHTTP")
http通信するだけのもの。DOM構築しないから軽いはず

**デフォルトの名無しさん** · 2019/03/22(金) 19:46:10.91

>>125
これ、マルチプロセスだけどな。
別にしんどくない。
ExcelVBAでマルチプロセスやるときはExcel.Applicationを複数作ってやるのが普通だと思うけどね。

最終的に速度どうにもならないときはマルチプロセスにする。

**デフォルトの名無しさん** · 2019/03/22(金) 19:51:03.17

>>123
10時間ぶっ通しのVBAのようにアホ丸出しの例としてExcelVBAからPowerPoint動かすって話だろ。

>>75のような当たり前の話じゃないんじゃないの?
という問い掛けが>>93だろ。

**デフォルトの名無しさん** · 2019/03/22(金) 19:58:09.82

>>125
ちなみにマルチスレッドはこっちにあるやり方
https://needtec.exblog.jp/18893727/

場合によっては使える(自分で表示したメッセージボックスのボタンをクリックとか)と言いたいところだが止めとくべきだね。

**デフォルトの名無しさん** · 2019/03/22(金) 20:11:29.06

>>119
Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.yahoo.co.jp/";, False
httpReq.Send
Do While httpReq.readyState < 4
DoEvents
Loop

Set HTML = CreateObject("htmlfile")
HTML.write httpReq.responsetext
End Sub

これでHTMLがdomになる
ちなみにphpなら二行で終わる
サーバー借りなくてもxamppっての使えばPCだけで行けるけど、
どっちにしても学習コスト高い気がする
ついでにHP作ってみると良いかも知れない

>>126>>128
excelかVBSインスタンスをスレッドの分作って文字列作ってevalみたいにして実行か
もうここまで来るとVBAでやるのはなぁ
VBAしかないなら頑張れるけど、他言語だと瞬殺と思うとやる気が削がれる

**デフォルトの名無しさん** · 2019/03/22(金) 20:17:17.71

>>127
> 10時間ぶっ通しのVBAのようにアホ丸出しの例としてExcelVBAからPowerPoint動かすって話だろ。
その例がアホって話だろw

**デフォルトの名無しさん** · 2019/03/22(金) 20:59:52.84

>>116
httpReqを配列にしてreadyStateが４より小さいものから処理すれば良いだけだろ

**デフォルトの名無しさん** · 2019/03/22(金) 22:37:39.98

もうExcelの変な使い方スレでいいよ、ここ。

**デフォルトの名無しさん** · 2019/03/22(金) 22:41:13.31

レスありがとうございます。

>>122
なるほどそうですかありがとうございます。
いまの直近の問題が解決したらあとで勉強してみます。

>>124-125, >>129
DOMができたとして
50個くらいある複数のURLの1つ1つに
Do While httpReq.readyState < 4
DoEvents
Loop
で時間待ちするのが問題なんです。
1つあたり1分近くかかるから。
一気に全部同時にやれないかなと。

**デフォルトの名無しさん** · 2019/03/22(金) 22:51:56.07

PowerShellでやった方が絶対に速い

**デフォルトの名無しさん** · 2019/03/22(金) 22:54:22.06

>>134
PowerShellのプログラミングってめっちゃめんどくさい
タイプ量が半端なく多くなる。　大嫌い

**デフォルトの名無しさん** · 2019/03/22(金) 23:08:19.23

まとめてダウンロードしてファイルに保存
その後一つずつ解析するべき
domなんて使わなくても正規表現で何とかするべき

**デフォルトの名無しさん** · 2019/03/22(金) 23:19:11.20

でもpowershellなら.NETのWorkflowが手軽に使えるよね

**デフォルトの名無しさん** · 2019/03/22(金) 23:23:39.28

Runspaceも使えるし

**デフォルトの名無しさん** · 2019/03/22(金) 23:36:27.88

>>133
すまん、無理だった
他の人頼む
arrayでurl設定して、class使ってforeachだろうけど
vbaのclassを覚える気力がもう内
とりあえず2つだとこんな感じ

Sub foo()
Set httpReq = CreateObject("MSXML2.XMLHTTP")
httpReq.Open "GET", "https://www.yahoo.co.jp/";, False
httpReq.Send
Set httpReq2 = CreateObject("MSXML2.XMLHTTP")
httpReq2.Open "GET", "https://urasunday.com/";, False
httpReq2.Send

Do
flg = False
If httpReq.readyState < 4 Then flg = True
If httpReq2.readyState < 4 Then flg = True
DoEvents
Loop While flg

Set HTML = CreateObject("htmlfile")
HTML.write httpReq.responsetext
Set HTML2 = CreateObject("htmlfile")
HTML2.write httpReq.responsetext
End Sub

**デフォルトの名無しさん** · 2019/03/23(土) 00:08:10.78

If httpReq.readyState < 4 Then flg = True
If httpReq2.readyState < 4 Then flg = True
片方で抜ける
配列ぐらい使えよ

**デフォルトの名無しさん** · 2019/03/23(土) 00:23:31.53

読み込めた物から処理するんだよ

**デフォルトの名無しさん** · 2019/03/23(土) 00:41:36.68

>>140
・普通に逆だった、スマン
・pushくれ。redimしなくていい素直なpush
・なんかテキトーにやってもうまいことやってくれる非同期欲しい
・eachで自動生成されるindexくれ
・インクリメントくれ
ってことでうんこコードになったわ、すまん

>>141
それは分かるし書きたいんだけど
documrnt.ready(function(){}～
的な奴が分からなかった

**デフォルトの名無しさん** · 2019/03/23(土) 00:42:04.83

>>133

Sub foo()
Const max_count = 1000 '1000で決め打ち
url_arr = Array( _
"https://www.yahoo.co.jp/";, _
"https://urasunday.com/"; _
)

Dim httpReq(max_count)
index_httpReq = 0
For Each url_foo In url_arr
Set httpReq(index_httpReq) = CreateObject("MSXML2.XMLHTTP")
httpReq(index_httpReq).Open "GET", url_foo, False
httpReq(index_httpReq).Send
index_httpReq = index_httpReq + 1
Next

**デフォルトの名無しさん** · 2019/03/23(土) 00:42:09.03

Do
flg = False
For Each url_foo In url_arr ' どれかがまだ
If httpReq(index_foo).readyState < 4 Then flg = True
Next
DoEvents
Loop While flg

Dim html(max_count)
index_html = 0
For Each url_foo In url_arr
Set html(index_html) = CreateObject("htmlfile")
html(index_html).write httpReq(index_html).responsetext
Cells(index_html + 1, 1).Value = httpReq(index_html).responsetext 'テスト。A列に出力する
index_html = index_html + 1
Next

End Sub

**デフォルトの名無しさん** · 2019/03/23(土) 00:45:06.99

>>143までは問題ないと思う
>>144でグダグダになった。
パフォーマンス的にはそんなに変わらんだろう。大量にあるとメモリにも影響してきそうだけど

**デフォルトの名無しさん** · 2019/03/23(土) 01:11:21.36

If httpReq(index_foo).readyState < 4 Then flg = True
コレじゃ１つでも読み込めたらループから抜ける
set したのはリリースする

処理がおもいのは
html(index_html).write httpReq(index_html).responsetext
これだろ

**デフォルトの名無しさん** · 2019/03/23(土) 01:15:54.12

同じ個数配列で使うものはTypeを使って構造体にしろよ
構造体を配列で取る
redimぐらい使えよ

**デフォルトの名無しさん** · 2019/03/23(土) 01:39:28.59

>>144
Do
flg = False
For Each url_foo In url_arr ' どれかがまだ
If httpReq(index_foo).readyState < 4 Then flg = True
Next
DoEvents
Loop While flg
↓
For Each url_foo In url_arr ' どれかがまだ
Do
flg = False
If httpReq(index_foo).readyState < 4 Then flg = True
DoEvents
Loop While flg
Next

>>146
＞コレじゃ１つでも読み込めたらループから抜ける
入れ子逆だった、スマン

＞set したのはリリースする
httpReq is nothingがエラーになる
vbaって配列 is nothing出来ないのか

＞処理がおもいのは
相対的に重いけど体感上重くは無いと思う

>>147
vbaのclassは正直もう無理や

**デフォルトの名無しさん** · 2019/03/23(土) 02:18:04.14

構造体を使うのは処理を分かりやすくするため
リリースは
Set オブジェクト変数 = Nothing
感覚的に難しいかな

**デフォルトの名無しさん** · 2019/03/23(土) 04:53:32.37

>>142
普通は以下のように、自分で状態を調べたりしない。
If httpReq.readyState < 4 Then flg = True

これは、Node.js などの低レベルな書き方で、普通はこれらの状態をラップして、
簡潔に書ける方法が、ライブラリ・フレームワークに用意されている

例えば以下は、JavaScript, jQuery の非同期処理の書き方。
ready になったら、引数で定義した、callback 関数を呼んでもらう。
document.ready(function(){}～

非同期処理には、promise, deffered, async/await の書き方もある

Ruby で、Selenium WebDriver なら、非同期処理を考えなくても、普通に同期的に書ける。
非同期処理の書き方のすべてが、ラップされているから。

Timeout 設定時間までに、状態が満たさなければ、Timeout Error になるだけ

**150** · 2019/03/23(土) 05:31:12.29

漏れなら、Ruby で、Selenium WebDriver で、

url.txt には、行区切りでURL を書いておく。
script.rb には、Selenium WebDriver での処理を書いておく

main.rb には、以下を書いておいて、このファイルを、ruby main.rb で実行する

File.foreach( "url.txt" ) do |line|
`ruby script.rb #{ line }`
end

url.txtを、1行ずつ処理して、各URLを取得して、それを引数にして、
ruby script.rb URL の別プロセスを呼び出す。
ただし、Selenium WebDriverでの処理が、URLだけが異なって、他は同じ事が条件

つまり、マルチプロセス

これをマルチスレッドにすると、排他処理などが面倒。
それに同一プロセス内の処理になるので、1つのエラーで、すべての処理が止まるし、やってられない！

**デフォルトの名無しさん** · 2019/03/23(土) 05:42:27.10

VBA以外の構造化言語で書けば綺麗に書ける
まあ出来るだけ近いように書くのがよいが
まあ所詮俺もこんな処理ではJavaかPHPでしか書かない
まあ

**デフォルトの名無しさん** · 2019/03/23(土) 07:22:22.14

>>148
> vbaのclassは正直もう無理や
TypeとClassは関係ないぞ
Typeは単に複数の値を纏めるだけ

**デフォルトの名無しさん** · 2019/03/23(土) 08:17:41.71

たぶん、構造体 = Type = 型 = クラスっていうアナロジーで考えてたんだろうね

**デフォルトの名無しさん** · 2019/03/23(土) 09:27:10.21

まあ、コードも間違ってるし書き方も良くない
配列すら得意でないようなので・・・
あと、せっかくExcelを使ってるんだから
Url等の情報はセルから読み込むよな

**デフォルトの名無しさん** · 2019/03/23(土) 11:00:19.04

>>151
seleniumってまだ使えんの？もう機能しなくなったと思ってた

**デフォルトの名無しさん** · 2019/03/23(土) 11:18:14.30

あぁvbaってclassと構造体両方あったのか

>>155
コールバックの部分だけはマジで分からんかった
どうやって書くんだ

>>150
クソ言語乙

**fusianasan** · 2019/03/23(土) 11:19:15.45

Debug.Print("test")

**デフォルトの名無しさん** · 2019/03/23(土) 11:39:13.69

>>130
だから、お前が真面目に出来るとか言ってるのは、真面目な話じゃ無くてアホな話だろと言ってるんだが。

アホな例を出さなかったらそれこそアホだろw

**デフォルトの名無しさん** · 2019/03/23(土) 11:47:22.03

>>159
はあ？
>>67が
> やろうと思えば出来んでもないのか
って書いてるからやること自体は難しくないって書いてるだけだぞ
そもそもExcel VBAでPowerPointを操作するのがアホとか言ってるわけじゃないことも理解できてないのかよw

**デフォルトの名無しさん** · 2019/03/23(土) 11:52:28.25

>>157
Excelでコールバックで受けたいって言っても、やったことないな
所詮そんなにクリティカルなルーチンを書く環境じゃないだろ
そんなことしなくても、ステータスが読み込めた物から処理して
全ての配列が処理出来たら終わればいいぐらいのコーディングだな
自分で書かなきゃ意味ないぞ

**デフォルトの名無しさん** · 2019/03/23(土) 12:03:01.48

>>160
無能の相手はほどほどで

>>161
やっぱり難しいよな
＞全ての配列が処理出来たら終わればいいぐらいのコーディングだな
これで書いたよ
DOM部分はどうせ瞬殺だからまとめて良い

**デフォルトの名無しさん** · 2019/03/23(土) 12:12:55.71

>>162
他の言語で簡単にかけるって言っても
所詮その言語で提供されたルーチンを使うだけだから
適した言語で書けば比較的簡単にかけることは確か
コーディングに関しては直感で書いたからもう少し読んでみよう

**デフォルトの名無しさん** · 2019/03/23(土) 12:16:35.94

まあ、所詮夜勤から帰って書き込みしてるから
午後は、お酒が進むんでまあ気にするな

**デフォルトの名無しさん** · 2019/03/23(土) 12:44:05.74

>>157
> コールバックの部分だけはマジで分からんかった
> どうやって書くんだ
コールバックなんていらんだろ
素直にreadyStateが4になったら処理すればいいだけ
スマホから打ってるからデバッグしてないけどこんな感じ
Type Request
　Session As Object
　Done As Boolean
End Type
url_arr = Array("https://www.yahoo.co.jp/";, "https://urasunday.com/";)
Dim Requests()
ReDim Requests(LBound(url_arr) To UBound(url_arr))
Dim Index As Integer
For Index = LBound(url_arr) To UBound(url_arr)
　With Requests(Index)
　　Set .Session = CreateObject("MSXML2.XMLHTTP")
　　.Session.Open "GET", url_arr(Index), False
　　.Session.Send
　　.Done = False
　End With
Next
' 続く…

**デフォルトの名無しさん** · 2019/03/23(土) 12:44:29.37

' 続き
Dim AllDone As Boolean
Do
　AllDone = True
　For Index = LBound(url_arr) To UBound(url_arr)
　　With Requests(Index)
　　　If Not .Done Then
　　　　If .Session.readyState < 4 Then
　　　　　AllDone = False
　　　　Else
　　　　　Cells(Index + 1, 1).Value = .responseText
　　　　　.Done = True
　　　　End If
　　　End If
　　End With
　Next
　DoEvents
Until AllDone

**デフォルトの名無しさん** · 2019/03/23(土) 14:51:45.33

>>160
いや、だから...
それに>>67じゃなくて>>69だろ。

やろうと思えば出来るけど、驚いてるのはそこじゃ無いだろという指摘が理解できなかったから>>96みたいな頓珍漢なことを言ったんだろ。

じゃなかったら>>96みたいに噛み合わない発言にならない。

**デフォルトの名無しさん** · 2019/03/23(土) 14:57:22.48

>>165
俺も使わなくてもいいと思うが
上でコールバックコールバック言ってたからな

>>167
お前に何の能力もないのは分かったから落ち着け

**デフォルトの名無しさん** · 2019/03/23(土) 15:09:34.24

>>167
お前はアンカーもまともに見れないのかよw

**デフォルトの名無しさん** · 2019/03/23(土) 19:02:03.41

157デフォルトの名無しさん2019/03/23(土) 11:18:14.30ID:sBAP9hOD

>>150
クソ言語乙

142デフォルトの名無しさん2019/03/23(土) 00:41:36.68ID:sBAP9hOD

こいつは荒らしじゃね？
相手しない方がよい

**デフォルトの名無しさん** · 2019/03/23(土) 19:19:07.38

>>170
ここはVBAのスレだよ。　そこにRubyとか持ってきたからじゃねえのw

**デフォルトの名無しさん** · 2019/03/23(土) 20:10:53.10

>>170
そのruby信者が荒らしだぞ
あらゆるスレで「rubyなら～」と言ってrubyを貶めしている
pythonスレではスレタイにruby禁止とまで入る始末

**デフォルトの名無しさん** · 2019/03/23(土) 22:49:02.19

コールバックって何?
ググると、関数の引数に渡す関数って出てくるけど、
それって、複数の処理を、
↓こうやって横着して1行に書くのと何が違うのかわからん。

a = Replace(Replace("あいうえお", "あい", ""), "えお", "")

**デフォルトの名無しさん** · 2019/03/23(土) 22:57:17.29

>>173
a関数の処理が終わった場合、a関数の引数を受け取ってb関数を自動的に開始する・・・という処理
非同期、特にスクレイピングが多重で続くような場合は非常に強力
https://www.sejuku.net/blog/67743

使う場面が分からないのは、使う必要が無いと思って良い
jsだと死ぬほど使うが、EXCELで使う事はまずない

**デフォルトの名無しさん** · 2019/03/23(土) 23:43:32.78

VBAでコールバックを実装しようとしたら、 Application.Runを使うかクラスモジュールでメソッド書いてCallByName関数で呼び出すようにするかって感じになるんかね

**デフォルトの名無しさん** · 2019/03/23(土) 23:54:56.46

>>175
AddressOf

**デフォルトの名無しさん** · 2019/03/23(土) 23:57:25.89

>>175
ごめんVBAでコールバックを「実装」か。
VBAの関数をコールバックするにはどうするかという問題と勘違いした

**デフォルトの名無しさん** · 2019/03/24(日) 00:19:26.62

>>177
そう、外部プログラムにVBA側の関数ポインタを渡す話じゃなくて、受けとる側の処理の書き方

**デフォルトの名無しさん** · 2019/03/24(日) 00:40:55.67

クラスのメソッドとしてコールバック関数を実装してinterfaceか遅延バインディング使えばいい

**デフォルトの名無しさん** · 2019/03/24(日) 07:46:43.58

>>173
> a = Replace(Replace("あいうえお", "あい", ""), "えお", "")
これは外側のReplace()に内側のReplace()の「結果」を渡してる
コールバック関数は内部で呼ぶ関数を変えたい時に使う
例えば図形を描くルーチンがあったとして出力先を色々切り替えたいとかだと出力する関数を自体を渡す
やり方はこの辺りを参考にして
https://qiita.com/rai_suta/items/c07b22130b302682b729

**デフォルトの名無しさん** · 2019/03/24(日) 11:58:57.43

>>179
やっぱりAddressOfの値を受け取ってそれをAPI経由で実行するのがいいんじゃないか
ただしシグネチャは一定とする

**デフォルトの名無しさん** · 2019/03/24(日) 12:25:58.30

https://i.imgur.com/nvGsYOy.jpg
エクセルあればワードもパワポもアクセスもいらない

**デフォルトの名無しさん** · 2019/03/24(日) 12:32:32.58

そんな事をエクセルVBAでやる意味って何？
何が何でもVBAって馬鹿のひとつ覚えって言うんだよ

**デフォルトの名無しさん** · 2019/03/24(日) 12:35:25.20

>>183
他言語を覚えなくて良いのは大きなメリット
環境構築、記述方法、言語仕様
この辺全部覚えなくて良いのはデカイ
特にvbaはプログラマーじゃなく事務員が使ってる場合も多いので、環境構築が苦手な事が多々ある

**デフォルトの名無しさん** · 2019/03/24(日) 13:44:54.25

ノコギリで刺身切ろうとして包丁使えよって言われて包丁の使い方覚えなくていいのはメリットって言ってる構図

**デフォルトの名無しさん** · 2019/03/24(日) 13:53:08.65

>>185
例え下手でわらった

**デフォルトの名無しさん** · 2019/03/24(日) 13:54:25.82

>>186
お前は仕事下手だよな

**デフォルトの名無しさん** · 2019/03/24(日) 14:07:22.16

他言語を覚えなくて良いって発想がどうかと思う
適材適所で効率良くするのも仕事だし
死にゆく言語の代表がVBA

**デフォルトの名無しさん** · 2019/03/24(日) 14:08:05.28

>>185
流石に頓珍漢すぎ
出刃包丁で刺し身切ろうとしたら刺身包丁買ってこいってゴネてる奴がいるだけ

**デフォルトの名無しさん** · 2019/03/24(日) 14:30:37.07

>>187
根拠もなく、何を見てそう思ったの？

>>188
＞他言語を覚えなくて良いって発想がどうかと思う
＞適材適所で効率良くするのも仕事だし
これは同意
俺も効率化のためにphpとjsはある程度覚えてるわ

ただ、人に勧めるのは現実的に厳しい面がある
たまーに出てくるスクレイピングのためにphp覚えろって言うのはなかなか酷
時間がかかって良いならウンコみたいなコードでも処理できるしな
ここの人でもサーバー＝レンタルサーバーって発想した人いるけど、
スクレイピングのためにphp動かすならxamppで良い

＞死にゆく言語の代表がVBA
ずっと言われてるけど全然死なないので俺も困っている。せめてバージョンアップして

**デフォルトの名無しさん** · 2019/03/24(日) 14:34:03.77

既に公式にはJavaScriptに置き換わってるのに今更バージョンアップもクソも

**デフォルトの名無しさん** · 2019/03/24(日) 14:35:01.83

>>191
JavaScriptに置き換わってるって言ってもアドインだけでしょ

**デフォルトの名無しさん** · 2019/03/24(日) 14:43:19.68

>>192
だけもクソも、現在推奨されているExcelのプログラミングインターフェイスはアドインのみだよ
VBAは廃止予定のレガシーな機能であり、使用は推奨されない

**デフォルトの名無しさん** · 2019/03/24(日) 14:53:50.44

>>193
それは知りませんでした、申し訳無い
そのソースってどこかにありますか？

vbaがやっと進化するのか

**デフォルトの名無しさん** · 2019/03/24(日) 15:03:11.84

自分の現在分かる範囲で創意工夫してやろうとするのは良いことで出来ちゃってるんだろうけどこの先ずっと出来るかは不明
新しいのを取り入れないとダメ
特にエクセルVBAでやる必要のないのがあるなら勉強のチャンスなのに古いのでやろうとするから進歩しない

**デフォルトの名無しさん** · 2019/03/24(日) 15:10:13.55

xampp入れてPHP一から覚えるぐらいなら、VB.NET覚える方がはるかにマシだわ

**デフォルトの名無しさん** · 2019/03/24(日) 15:19:49.80

>>191
エクセルのマクロもVBAじゃなくてjavascriptになるのか？
てか、もうなってるの？
ボタンと押したときの動作とかもすでにjavascriptで書くようになってる？

**デフォルトの名無しさん** · 2019/03/24(日) 15:23:45.60

>>197
アドインがjsで書けるように鳴ったんだよ

**デフォルトの名無しさん** · 2019/03/24(日) 15:39:49.96

ここは言語スレじゃなくてExcel VBAスレなんだが
バイクやチャリの板で日本縦断の準備とか注意点についての質問レスに対して飛行機使えよ馬鹿とレスしてるやつ居たらアホだろ

**デフォルトの名無しさん** · 2019/03/24(日) 15:47:43.47

>>199
何回やっても例え下手やなｗ
もっとやっていいぞ