ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part52
http://mevius.5ch.net/test/read.cgi/tech/1517052305/
Excel VBA 質問スレ Part53
レス数が950を超えています。1000を超えると書き込みができなくなります。
1デフォルトの名無しさん
2018/04/27(金) 19:02:38.39ID:+ocy8bIv882デフォルトの名無しさん
2018/05/13(日) 19:03:59.96ID:i7PAGBqe883デフォルトの名無しさん
2018/05/13(日) 19:13:05.46 もう解決したんだから終了でよくね?
このまま続けてても無知な外野とかPS糞野郎がしゃしゃり出てくるだけ
このまま続けてても無知な外野とかPS糞野郎がしゃしゃり出てくるだけ
884デフォルトの名無しさん
2018/05/13(日) 19:15:15.85ID:wyHt0Mjp >>879
駆動表、調査表(各1列)ともに >>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
(つづく)
駆動表、調査表(各1列)ともに >>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
(つづく)
885デフォルトの名無しさん
2018/05/13(日) 19:15:40.65ID:wyHt0Mjp >>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
(つづき)
こちらは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
886デフォルトの名無しさん
2018/05/13(日) 19:20:14.73ID:wyHt0Mjp >>882
いや、Matchを使うのがおかしいと言われているので、
もっと一般的な方法を知りたくて。
50秒のほうは確かに線形探索ですね。
上のほうでシートにアクセスしているから遅いと言われて
2つの表ともArrayに乗せて比較のために実行したものです。
いや、Matchを使うのがおかしいと言われているので、
もっと一般的な方法を知りたくて。
50秒のほうは確かに線形探索ですね。
上のほうでシートにアクセスしているから遅いと言われて
2つの表ともArrayに乗せて比較のために実行したものです。
887デフォルトの名無しさん
2018/05/13(日) 19:22:13.03ID:wyHt0Mjp888デフォルトの名無しさん
2018/05/14(月) 06:52:21.09ID:mBgrQGTw889デフォルトの名無しさん
2018/05/14(月) 07:11:10.06ID:n+3GdDup 朝から粘着してる奴が何を言ってるんだかw
890デフォルトの名無しさん
2018/05/14(月) 13:57:44.01ID:lGg9ccsb ニヤニヤ
891デフォルトの名無しさん
2018/05/14(月) 17:46:18.99ID:wio42IgJ キモっ
892デフォルトの名無しさん
2018/05/14(月) 22:09:45.23ID:nBdlD1Xi エクセルでメールを送る際にCDOを使用していたのですが
メールサーバーの仕様が変わって
ポート587のTLS/STARTTLSが必要になりました
調べてみるとCDOはTLS/STARTTLS非対応のようです
TLS/STARTTLSに対応できるエクセルでメールを送る
お勧めの方法を教えてください
よろしくお願いします
メールサーバーの仕様が変わって
ポート587のTLS/STARTTLSが必要になりました
調べてみるとCDOはTLS/STARTTLS非対応のようです
TLS/STARTTLSに対応できるエクセルでメールを送る
お勧めの方法を教えてください
よろしくお願いします
893デフォルトの名無しさん
2018/05/15(火) 07:03:51.94ID:f6zNW2OD894デフォルトの名無しさん
2018/05/15(火) 07:57:52.48ID:KTrZAEG+ =と:=の違いが分からんちん
895デフォルトの名無しさん
2018/05/15(火) 10:03:02.81ID:MncegZ0n896デフォルトの名無しさん
2018/05/15(火) 12:22:16.58ID:iR34l3ga 代入と比較を両方=にしたせいで名前付き引数へ渡してるのか比較してるのかわからないから苦肉の策で:=を使う
VBAの言語設計のセンスのなさの表れ
VBAの言語設計のセンスのなさの表れ
897デフォルトの名無しさん
2018/05/15(火) 12:36:20.46ID:2i/hB9LU 古い言語だからセンスが無いのはしょうがない
ただずっと伝統を守って生産性をあげようとしてこなかった点は残念だね
Microsoftに見捨てられた言語
ただずっと伝統を守って生産性をあげようとしてこなかった点は残念だね
Microsoftに見捨てられた言語
898デフォルトの名無しさん
2018/05/15(火) 15:50:11.49ID:1B3peCUp899デフォルトの名無しさん
2018/05/16(水) 17:15:29.34ID:ZACk88wL 会社でPC upgradeのあと
キーボード配置がおかしくなってコード書く効率が格段に劣化した。
例えば@を打つためにSHIFTと2だし、(や)を打つのは場所が1つずれる、などなど。
プログラミングではコードの書き方など意識を集中すべきところはたくさんあるのに
こんなキーボードの配列のようなくだらんことに意識しないといけないので仕事効率が格段に下がって困っています。
なにか対策ありますか?
会社のIT部は対策考えてると言ってますが待てません。
キーボード配置がおかしくなってコード書く効率が格段に劣化した。
例えば@を打つためにSHIFTと2だし、(や)を打つのは場所が1つずれる、などなど。
プログラミングではコードの書き方など意識を集中すべきところはたくさんあるのに
こんなキーボードの配列のようなくだらんことに意識しないといけないので仕事効率が格段に下がって困っています。
なにか対策ありますか?
会社のIT部は対策考えてると言ってますが待てません。
900デフォルトの名無しさん
2018/05/16(水) 17:38:45.07ID:VNV3eEvV 入力をフックして正しいキーに変換するVBAマクロを書くというのはどうでしょうか?
901デフォルトの名無しさん
2018/05/16(水) 17:57:14.07ID:W6OUX3sP >>899
Windows 10で異なる言語のキーボード配列に誤認識される場合の対処方法
http://www.atmarkit.co.jp/ait/articles/1707/21/news021.html
Windows 10で異なる言語のキーボード配列に誤認識される場合の対処方法
http://www.atmarkit.co.jp/ait/articles/1707/21/news021.html
902デフォルトの名無しさん
2018/05/17(木) 01:22:57.26ID:WaQcQyxN お仕事でvba使ってるけど自分がどれくらい出来るのか全然分からん
工数とか見積もりとか出したらなんか分かるんかなーて思って調べても良くわからんしステップ数?はクソコード程行数多くなるし…なんか良い方法ないかな
このままじゃモチベが続かん
工数とか見積もりとか出したらなんか分かるんかなーて思って調べても良くわからんしステップ数?はクソコード程行数多くなるし…なんか良い方法ないかな
このままじゃモチベが続かん
903デフォルトの名無しさん
2018/05/17(木) 06:33:07.87ID:ijkzMibD オモチャは卒業して他の言語使えば?
904デフォルトの名無しさん
2018/05/17(木) 07:58:02.31ID:t5nn8U/f MSの資格なかったっけ
とりあえずそれの練習問題みたいなの見てみるとか
とりあえずそれの練習問題みたいなの見てみるとか
905デフォルトの名無しさん
2018/05/17(木) 09:13:30.19ID:OEcGKIjw VBA程度でPC作業の効率上げた気になってるけどもっと仕事全体の効率を上げる努力しような
VBAなんてそんな細かい事は後回しでいいからさ
本当は家でサッサとやって来て欲しいくらいだけどね
VBAなんてそんな細かい事は後回しでいいからさ
本当は家でサッサとやって来て欲しいくらいだけどね
906デフォルトの名無しさん
2018/05/17(木) 10:13:39.78ID:0CVDk2cO907デフォルトの名無しさん
2018/05/17(木) 11:47:08.89ID:0CVDk2cO 仕事の効率が悪いのは不合理を上から押し付けられている例が多い。
「上」の典型例が役所だ。
あとITの観点からは全く無能と言っていい経営が合理化の阻害要因になっている会社もまれにある。
そういう会社は競争に負けて速やかになくなっていくからいいけどね。
「上」の典型例が役所だ。
あとITの観点からは全く無能と言っていい経営が合理化の阻害要因になっている会社もまれにある。
そういう会社は競争に負けて速やかになくなっていくからいいけどね。
908デフォルトの名無しさん
2018/05/17(木) 12:05:52.20ID:khB37Je6 そうそう
薄汚いクソフォーマットのエクセルファイルや
メンテナンス性を完全に放棄したとしか思えないクソVBAコードとかね
押し付けられた方は無駄な作業を強いられてたまったもんじゃない
薄汚いクソフォーマットのエクセルファイルや
メンテナンス性を完全に放棄したとしか思えないクソVBAコードとかね
押し付けられた方は無駄な作業を強いられてたまったもんじゃない
909デフォルトの名無しさん
2018/05/17(木) 12:10:09.02ID:0CVDk2cO 経営者は会社と従業員のために戦ってほしい。戦いに負け続けるようではダメな経営者だ。
喧嘩する相手は役所ね。頑張って。
喧嘩する相手は役所ね。頑張って。
910デフォルトの名無しさん
2018/05/17(木) 12:19:54.47ID:HOl2IMkD ちょっと質問失礼
自PCにあるブックをコピーしてサーバーに新規ブックを作るとファイルのタイムスタンプの日時がよくわからない日時になってるんだけど、何の原因が考えられそうですか?
自PCにあるブックをコピーしてサーバーに新規ブックを作るとファイルのタイムスタンプの日時がよくわからない日時になってるんだけど、何の原因が考えられそうですか?
911デフォルトの名無しさん
2018/05/17(木) 12:24:50.78ID:x/H/6cVB 一緒に戦えよw 傍観してるだけじゃ何事も手には入らんわ
何もいらない奴だけが傍観してろよ
多くを手にしている経営者がなんで自らリスキーな戦い挑むと思うんだ 欧米じゃあるまいし
何もいらない奴だけが傍観してろよ
多くを手にしている経営者がなんで自らリスキーな戦い挑むと思うんだ 欧米じゃあるまいし
912デフォルトの名無しさん
2018/05/17(木) 12:32:34.08ID:x/H/6cVB サーバに新規ブックを作る ってトコが書き間違いだと思うが コピーや移動やアップロードだとして
そのサーバは目の前にあるのかクラウドとかで見知らぬ国なのかでも変わってくる
ファイルのタイムスタンプも 作成時、更新時、アクセス時などなど様々
そのサーバは目の前にあるのかクラウドとかで見知らぬ国なのかでも変わってくる
ファイルのタイムスタンプも 作成時、更新時、アクセス時などなど様々
913デフォルトの名無しさん
2018/05/17(木) 13:16:33.83ID:oeUhwWkR VBAしか使わせてくれない会社に合理化とかアホか?
きちんと合理化してる所は今時エクセルなんか最低限しか使わんだろ
きちんと合理化してる所は今時エクセルなんか最低限しか使わんだろ
914デフォルトの名無しさん
2018/05/17(木) 14:07:27.73ID:dB6H+z10 ‘配列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)」に変換する一番スマートな記述を教えていただきたいです。現状動的配列にループで収納しています
以上、ご教授願います。よろしくお願いいたします。
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)」に変換する一番スマートな記述を教えていただきたいです。現状動的配列にループで収納しています
以上、ご教授願います。よろしくお願いいたします。
915デフォルトの名無しさん
2018/05/17(木) 14:20:43.91ID:dB6H+z10 すみません、配列1はVariant型じゃないと駄目でした。。
正しくは以下です
‘配列1(セル範囲から配列にする場合)
Dim Arr as Variant
Arr = Range(“A1:A3”)
‘取り出し方
For each i in Arr
Debug.print i
Next
正しくは以下です
‘配列1(セル範囲から配列にする場合)
Dim Arr as Variant
Arr = Range(“A1:A3”)
‘取り出し方
For each i in Arr
Debug.print i
Next
916デフォルトの名無しさん
2018/05/17(木) 14:23:23.12ID:0CVDk2cO >>914
> Dim Arr as String
> Arr = Range(“A1:A3”)
この As String は As Variant の間違いかな?
それと、括弧無し配列もVariant 戻り値として返せるよ。
括弧付き配列はSAFEARRAY構造体というもので、括弧無し(Variant変数)はそれを値として内部に抱えている。
> Dim Arr as String
> Arr = Range(“A1:A3”)
この As String は As Variant の間違いかな?
それと、括弧無し配列もVariant 戻り値として返せるよ。
括弧付き配列はSAFEARRAY構造体というもので、括弧無し(Variant変数)はそれを値として内部に抱えている。
917デフォルトの名無しさん
2018/05/17(木) 14:23:48.83ID:0CVDk2cO おっとかぶった
918デフォルトの名無しさん
2018/05/17(木) 17:43:16.02919デフォルトの名無しさん
2018/05/17(木) 20:41:16.86ID:oSMlM+BJ 質問です
入力した文字列の時刻の値を比較して結果を出したいのですがどうすればいいでしょうか?
例えば↓のようなことがやりたいです
このままだと何を入力しても12時前になって困っています
Function Calc(val As String) As String
If val < Time(12. 0. 0)
Calc = "12時前"
Else
Calc = "12時以降"
End If
End Function
よろしくお願いします
入力した文字列の時刻の値を比較して結果を出したいのですがどうすればいいでしょうか?
例えば↓のようなことがやりたいです
このままだと何を入力しても12時前になって困っています
Function Calc(val As String) As String
If val < Time(12. 0. 0)
Calc = "12時前"
Else
Calc = "12時以降"
End If
End Function
よろしくお願いします
920デフォルトの名無しさん
2018/05/17(木) 20:44:04.78ID:bbBVanOj ggrks
921デフォルトの名無しさん
2018/05/17(木) 20:59:43.69ID:gqrxfWnu >>919
TimeVale("12:00") じゃね
TimeVale("12:00") じゃね
922デフォルトの名無しさん
2018/05/17(木) 21:00:24.39ID:gqrxfWnu uが抜けたTimeValue
923919
2018/05/17(木) 21:12:45.95ID:oSMlM+BJ924デフォルトの名無しさん
2018/05/17(木) 21:33:16.08ID:dB6H+z10 >>916
なるほど、ありがとうございます!
なるほど、ありがとうございます!
925デフォルトの名無しさん
2018/05/17(木) 22:01:20.21ID:IpPWHNGq926デフォルトの名無しさん
2018/05/17(木) 22:36:14.28927デフォルトの名無しさん
2018/05/17(木) 22:45:20.21ID:sCU3vhEI928デフォルトの名無しさん
2018/05/17(木) 23:27:34.82ID:4AFnEgr6 組織に所属しているという意識がないんなら当然「仕事は自分で作り出す」なんて意欲も湧かんわw
929デフォルトの名無しさん
2018/05/18(金) 00:14:21.21ID:yPq2oynG フリーランスこそ顧客開拓に余念がないと思うけどね
930デフォルトの名無しさん
2018/05/18(金) 00:18:40.56ID:r8kEwRA6 勝手に仕事を作るバカのせいでまたメンテナンスコストの高いマクロがばら撒かれる
無能な働き者さんはほんと迷惑です
無能な働き者さんはほんと迷惑です
931デフォルトの名無しさん
2018/05/18(金) 06:19:19.39ID:KwQS73gf932デフォルトの名無しさん
2018/05/18(金) 08:02:30.01ID:7QaC26lU オブジェクトをコピーした状態を解除するにはどのようにかけばよいでしょう?
Application.cutcopymode=false では消えないので、適当なセルを一度コピーし上記でコピー解除しています。
一発で解除する方法ありますか?
Application.cutcopymode=false では消えないので、適当なセルを一度コピーし上記でコピー解除しています。
一発で解除する方法ありますか?
933デフォルトの名無しさん
2018/05/18(金) 08:25:19.97ID:MbRZo+Sm >>932
APIのEmptyClipbordはどう?
APIのEmptyClipbordはどう?
934デフォルトの名無しさん
2018/05/18(金) 08:49:40.64ID:FW7A0AUH 検索したらクリップボードをクリアするサンプルコードがでてくるはずだけど、api呼び出す必要があったり結構面倒だった記憶がある
935デフォルトの名無しさん
2018/05/18(金) 11:50:53.11 C#とかでクリップボードをクリアする実行ファイルを作って呼び出すのが最適解
936デフォルトの名無しさん
2018/05/18(金) 12:35:02.93ID:sZ7vKXi2937デフォルトの名無しさん
2018/05/18(金) 16:53:52.74ID:YkQZGzcp Dim xls As New Excel.Application
Set Book = xls.Workbooks.Open(省略)
時短のためにこのように作業対象のオブジェクトを取得すると
Book.activate
が効きません。(常にthisworkbookがアクティブになります)
何故でしょうか?対策はございますか?
Set Book = xls.Workbooks.Open(省略)
時短のためにこのように作業対象のオブジェクトを取得すると
Book.activate
が効きません。(常にthisworkbookがアクティブになります)
何故でしょうか?対策はございますか?
938デフォルトの名無しさん
2018/05/18(金) 21:35:52.88ID:2ynLe5yA940デフォルトの名無しさん
2018/05/19(土) 17:47:09.08ID:49sGoKqd >>938
それだと普通に開くだけなので大量のエクセルファイルを操作するときに時間がかかるのです
それだと普通に開くだけなので大量のエクセルファイルを操作するときに時間がかかるのです
941デフォルトの名無しさん
2018/05/19(土) 19:42:27.74ID:xS6sQzEj 新規にEXCELプロセス作った方が速いって言ってる?
942デフォルトの名無しさん
2018/05/19(土) 20:39:09.13ID:RoboUWmL943デフォルトの名無しさん
2018/05/19(土) 20:49:03.18ID:m/ZPa8pN 大量のファイルを処理するならプロセス作って並列処理した方が速いだろうね
944デフォルトの名無しさん
2018/05/19(土) 21:18:06.38ID:TP6Y2mwH 質問です。
windowsAPIからキーボードイベントを発生させたいのですが、ノートパソコンにあるFNキーの定数をご存知の方いらっしゃいませんか。
よろしくお願いします。
>>937
開いているブックのみがアクティブの対象かと。
windowsAPIからキーボードイベントを発生させたいのですが、ノートパソコンにあるFNキーの定数をご存知の方いらっしゃいませんか。
よろしくお願いします。
>>937
開いているブックのみがアクティブの対象かと。
945デフォルトの名無しさん
2018/05/19(土) 23:13:31.81ID:8jjSxBIu 何故アクティブにする必要があるんかね?
アクティブにしないで済むようには組めんのか?
基本的にアクティブにする処理を書く奴はスキルが低いと思うんだ。
もっとも、どうにもアクティブにしないとできないことも稀にはあるけどね。
アクティブにしないで済むようには組めんのか?
基本的にアクティブにする処理を書く奴はスキルが低いと思うんだ。
もっとも、どうにもアクティブにしないとできないことも稀にはあるけどね。
946デフォルトの名無しさん
2018/05/19(土) 23:41:59.44ID:xS6sQzEj >>944
残念ながらFnキー単体にコードはない
Fn+キーが押されて初めてデバイスからコードが流れる仕組み
つまりFn単体が押されたかはOSからは判らない
メーカーによっては違う仕組みかもしれないけど
残念ながらFnキー単体にコードはない
Fn+キーが押されて初めてデバイスからコードが流れる仕組み
つまりFn単体が押されたかはOSからは判らない
メーカーによっては違う仕組みかもしれないけど
947デフォルトの名無しさん
2018/05/20(日) 00:04:10.54ID:diJ6AI92 >>945
最後にアクティブにして終わるとか
最後にアクティブにして終わるとか
948デフォルトの名無しさん
2018/05/20(日) 00:23:38.59ID:/YSK7TcC 明示的にアクティブにすることはある。
ユーザーにこのシート、このセルですよと示す為に。
でもそういう場合以外でアクティブにすることはまずめったに無い。
で、Excel.Application使う場合はそういう場合ですら無い。
2013だったかのExcelの仕様変更でアクティブにしないとエラーとなる不具合が有った気がするが回避できる組み方も有るような気もする。
ユーザーにこのシート、このセルですよと示す為に。
でもそういう場合以外でアクティブにすることはまずめったに無い。
で、Excel.Application使う場合はそういう場合ですら無い。
2013だったかのExcelの仕様変更でアクティブにしないとエラーとなる不具合が有った気がするが回避できる組み方も有るような気もする。
949デフォルトの名無しさん
2018/05/20(日) 14:25:06.75ID:laQiZndq950デフォルトの名無しさん
2018/05/20(日) 22:34:18.97ID:p/tqpQJx951デフォルトの名無しさん
2018/05/20(日) 22:49:16.49ID:diJ6AI92 表のつくりがクソだという以外に感情がなくなってきて答えられない
952デフォルトの名無しさん
2018/05/20(日) 22:55:58.27ID:9fk8EC6V 表示とデータを分離しない
データを正規化しない
vbaerあるある
やんなっちゃうよね
データを正規化しない
vbaerあるある
やんなっちゃうよね
953デフォルトの名無しさん
2018/05/20(日) 23:02:31.52954デフォルトの名無しさん
2018/05/20(日) 23:06:27.60ID:cqMXJ5R7 何のテキストか知らないけど下に見えてる問題も含めて地雷くさいなぁ
関数複雑にする前にできることあるだろうに…
関数複雑にする前にできることあるだろうに…
955デフォルトの名無しさん
2018/05/20(日) 23:10:46.38ID:9fk8EC6V ふと思ったのだがもしかしてプログラミング必修って
純粋な子供たちにこういうのが正しいプログラミングですって教え込むのかな
こわいなぁ
純粋な子供たちにこういうのが正しいプログラミングですって教え込むのかな
こわいなぁ
956デフォルトの名無しさん
2018/05/20(日) 23:27:00.68ID:QTSjBTOo なにがこわいんだよ
VBAみたいなしょーもないことやるわけちゃうやろ
VBAみたいなしょーもないことやるわけちゃうやろ
957デフォルトの名無しさん
2018/05/20(日) 23:43:30.11ID:9fk8EC6V 中途半端な知識に毒された新人やお客様は厄介だぞ
新人は研修で厳しく指導して矯正すればまだなんとかなるが、お客様が相手だと立場上そうもいかん
恥をかかせないように間違いを指摘するのって難しいんだよ
新人は研修で厳しく指導して矯正すればまだなんとかなるが、お客様が相手だと立場上そうもいかん
恥をかかせないように間違いを指摘するのって難しいんだよ
958デフォルトの名無しさん
2018/05/21(月) 00:22:57.97ID:AialzjYr >>950
空白はINDEX関数の何行目かを指定するのにMATCH関数を用いていて、A3に一致した行+1することにより活動場所の行にずらしています。
もう一つのMATCH関数によりA4に一致した列を指定していることで、D4に正しく表示されるようになります。
それぞれを数字に直すとより分かりやすいかもしれません。
空白はINDEX関数の何行目かを指定するのにMATCH関数を用いていて、A3に一致した行+1することにより活動場所の行にずらしています。
もう一つのMATCH関数によりA4に一致した列を指定していることで、D4に正しく表示されるようになります。
それぞれを数字に直すとより分かりやすいかもしれません。
959デフォルトの名無しさん
2018/05/21(月) 09:43:31.74ID:qzDF6qMH ttp://mevius.5ch.net/test/read.cgi/bsoft/1523701626/411
960デフォルトの名無しさん
2018/05/22(火) 14:28:26.02ID:3Jq2kRkc StrConv関数のシステム規定のコードって、WindowsならShift-JISでいいんですか?
もしそうなら、それが明示的にわかる記述ってヘルプなどに乗ってますか?
もしそうなら、それが明示的にわかる記述ってヘルプなどに乗ってますか?
961デフォルトの名無しさん
2018/05/22(火) 21:08:53.68ID:3Jq2kRkc システム規定?
何か勘違いじゃない?
StrConv関係なくダブルクォーテーションで括った文字はShift-JIS扱いだと思うが。
何か勘違いじゃない?
StrConv関係なくダブルクォーテーションで括った文字はShift-JIS扱いだと思うが。
962デフォルトの名無しさん
2018/05/22(火) 21:40:29.05ID:kE6hiwfa >>960
> StrConv関数のシステム規定のコードって、WindowsならShift-JISでいいんですか?
それを質問してるレベルならShift-JISだと思っておけばいい
> もしそうなら、それが明示的にわかる記述ってヘルプなどに乗ってますか?
世の中には英語版Windowsとかもあるから規定のコードはShift-JISとは限らない
> StrConv関数のシステム規定のコードって、WindowsならShift-JISでいいんですか?
それを質問してるレベルならShift-JISだと思っておけばいい
> もしそうなら、それが明示的にわかる記述ってヘルプなどに乗ってますか?
世の中には英語版Windowsとかもあるから規定のコードはShift-JISとは限らない
963デフォルトの名無しさん
2018/05/22(火) 22:33:03.25ID:SyE6l3ot ファイルが閉じられようとしている時、何がそのファイルを閉じようとしているか取得することはできますか?
MenuなのかCloseBoxなのかShortCutKeyなのかプログラム的なものなのか。
Application.Callerで行けるかなと思ったのですが、無理でした。
MenuなのかCloseBoxなのかShortCutKeyなのかプログラム的なものなのか。
Application.Callerで行けるかなと思ったのですが、無理でした。
964デフォルトの名無しさん
2018/05/23(水) 01:18:41.80ID:B5houSvi >>963
API使ってイベントを監視すれば可能だけどVBAの範疇を超えすぎてる
API使ってイベントを監視すれば可能だけどVBAの範疇を超えすぎてる
965デフォルトの名無しさん
2018/05/23(水) 19:08:52.58ID:Au5e7VGg 僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
8JKSW
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
8JKSW
966デフォルトの名無しさん
2018/05/23(水) 19:56:12.66ID:vD+SDGTk >>964
やっぱり無理ですね。あきらめます。
やっぱり無理ですね。あきらめます。
967デフォルトの名無しさん
2018/05/24(木) 11:04:28.36ID:cPlRxlDn .
968デフォルトの名無しさん
2018/05/24(木) 18:44:34.86ID:rwhzkSgn webスクレイピングて難しく思えたんだけどコレはvba以外でやると多少楽なのかな?
静的ページならすぐ出来たけど動的インフレームアリだとsetが失敗して、しないようしないようと作ってたらかなり時間かかるようになってしまった
静的ページならすぐ出来たけど動的インフレームアリだとsetが失敗して、しないようしないようと作ってたらかなり時間かかるようになってしまった
969デフォルトの名無しさん
2018/05/24(木) 18:54:57.85ID:YoLj0XgE970デフォルトの名無しさん
2018/05/24(木) 19:45:07.20ID:5xDY1fy1 スクレイピングにVBAを使う人がいても良い
それが自由というものだ
それが自由というものだ
971デフォルトの名無しさん
2018/05/24(木) 22:30:16.88 WinSockでWebサーバ作るの難しく思えたんだけどVBA以外でやると多少楽なのかな?
972デフォルトの名無しさん
2018/05/25(金) 00:53:50.40ID:gd/oxjVv スクレイピングは、Ruby で、Mechanize, Selenium WebDriver
CSS セレクターのNokogiri は、jQuery と同じ
CSS セレクターのNokogiri は、jQuery と同じ
973デフォルトの名無しさん
2018/05/25(金) 07:04:39.19ID:zc32YTBq >>969
それは俺がvba以外業務経験の無い似非プログラマーみたいな人材で社内向けの便利ツール開発屋さんだからだ
あとはexcelでログ蓄積してたりグラフ作ったりWordで資料作るって言うからボタン一個でスクレイピングから資料作成まで出来たら楽なんかなーそしたらvbaで良いかなーって
それは俺がvba以外業務経験の無い似非プログラマーみたいな人材で社内向けの便利ツール開発屋さんだからだ
あとはexcelでログ蓄積してたりグラフ作ったりWordで資料作るって言うからボタン一個でスクレイピングから資料作成まで出来たら楽なんかなーそしたらvbaで良いかなーって
974デフォルトの名無しさん
2018/05/25(金) 11:14:35.42ID:9B51GdsS >>973
それは俺も知りたい
htmlをテキストとして持ってきて表の部分を再構成したり、hrefタグにあるファイルをダウンロードしたりはやってるけど、
それ以上のことが出来ない。
まずはWebプログラミングの基礎をちゃんとやんなきゃとは思ってはいるけどね。
それは俺も知りたい
htmlをテキストとして持ってきて表の部分を再構成したり、hrefタグにあるファイルをダウンロードしたりはやってるけど、
それ以上のことが出来ない。
まずはWebプログラミングの基礎をちゃんとやんなきゃとは思ってはいるけどね。
975デフォルトの名無しさん
2018/05/25(金) 20:12:32.29ID:Ojg1fzQl 簡単だよ
インスペクターを使ってブラウザとサーバーの通信内容を分析する
分析結果を応用して目的のサイトを巡回して、生のコンテンツを収集するクローリングプログラムを作る
収集したコンテンツから装飾などを取り除き、必要なデータ部分のみを抽出するスクレイピングプログラムを作る
抽出したデータを加工しRDBやドキュメントストアに保存して、データを再利用しやすくするインデクシングプログラムを作る
クローリング、スクレイピング、インデクシングの実行をスケジューリングするプログラムを作ってサービスに登録する
検索、統計計算、レポート作成など、インデクシングしたデータを活用するプログラムを作って、自分で使ったり、社内に配布したりする
対象のサイトの仕様変更やクローリング拒否の兆候を監視して、動きがあれば迅速に対応する
こういう基本的な部分は言語は関係ない
インスペクターを使ってブラウザとサーバーの通信内容を分析する
分析結果を応用して目的のサイトを巡回して、生のコンテンツを収集するクローリングプログラムを作る
収集したコンテンツから装飾などを取り除き、必要なデータ部分のみを抽出するスクレイピングプログラムを作る
抽出したデータを加工しRDBやドキュメントストアに保存して、データを再利用しやすくするインデクシングプログラムを作る
クローリング、スクレイピング、インデクシングの実行をスケジューリングするプログラムを作ってサービスに登録する
検索、統計計算、レポート作成など、インデクシングしたデータを活用するプログラムを作って、自分で使ったり、社内に配布したりする
対象のサイトの仕様変更やクローリング拒否の兆候を監視して、動きがあれば迅速に対応する
こういう基本的な部分は言語は関係ない
976デフォルトの名無しさん
2018/05/25(金) 20:23:09.11ID:9B51GdsS >>975
なるほどそれなら簡単そうだ
なるほどそれなら簡単そうだ
977デフォルトの名無しさん
2018/05/25(金) 23:42:45.49ID:TmYzghqT 典型的なSE()って感じの長文だな
978デフォルトの名無しさん
2018/05/25(金) 23:46:43.22ID:zc32YTBq 無駄が多すぎる
それに元の質問はvbaでも出来たけど他言語はもっと簡単なの?だろ
どの言語も出来るってのは質問者も分かってそうだけど何が伝えたいんだ
それに元の質問はvbaでも出来たけど他言語はもっと簡単なの?だろ
どの言語も出来るってのは質問者も分かってそうだけど何が伝えたいんだ
979デフォルトの名無しさん
2018/05/26(土) 02:10:52.58ID:Ng9dFM+q 使わなくても良いカタカナ語を連発するあたりに無能さを感じる
980デフォルトの名無しさん
2018/05/26(土) 07:58:39.19ID:GTC6EJC/ まさに事務員VBAerって感じの反応
981デフォルトの名無しさん
2018/05/26(土) 08:00:27.40ID:+tRt/bon プロさんが事務員相手に無双したがるのてどうゆう心理なん?
レス数が950を超えています。1000を超えると書き込みができなくなります。
ニュース
- バリ島で男子生徒ら集団万引きか、防犯カメラ映像が拡散 京都の大谷中学・高校が「窃盗行為」謝罪★4 [七波羅探題★]
- 【地震速報】青森県で震度6強 沿岸部に津波警報 ★6 [ぐれ★]
- 【速報】気象庁は津波注意報すべて解除 [蚤の市★]
- 「日の丸にバツ印」掲げた大学生 あいまいな国旗損壊罪に「怖い」 The Mainichi [少考さん★]
- 【テレビ】25年ぶり復活「炎のチャレンジャー」南原清隆&菊池風磨がMC 懐かし「電流イライラ棒」も [湛然★]
- 【音楽】BARBEE BOYS・KONTAが事故で四肢麻痺を公表、新体制で活動は継続 [少考さん★]
- 働いて参ります
- ( ・᷄ὢ・᷅ )あ?
- ブタをぶったたく
- とうとう袖なしジージャン買ったったwww
- こんな自転車乗ってたやつがいたら?
- 【画像】童貞は絶ッッッ対"4"を選ぶバレー部J Kが寮でパンパンの集合写真見つけちゃったwwwwwwwwwwwwww [904880432]
