!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part48
http://mevius.2ch.net/test/read.cgi/tech/1494890685/
※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured
探検
Excel VBA 質問スレ Part49©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん 転載ダメ©2ch.net (ワッチョイ bb2e-8SzA)
2017/06/26(月) 02:15:14.60ID:T3ylemnb0750デフォルトの名無しさん (ワッチョイ 0391-8lAF)
2017/08/11(金) 13:56:55.44ID:kj6/PAcR0751デフォルトの名無しさん (アウアウエー Sa52-nTDo)
2017/08/11(金) 14:32:36.47ID:yOhrxWpUa752デフォルトの名無しさん (ワッチョイ 0e6d-1q0p)
2017/08/11(金) 14:42:02.39ID:hvV/hgBn0 例えば下のように文字と数字が並んでいて、文字を数字の横に持って行くにはどうしたらいいですか?
12
q
15
b
10
c
↓
12 q
15 b
10 c
12
q
15
b
10
c
↓
12 q
15 b
10 c
753デフォルトの名無しさん (ワッチョイ b66d-Var+)
2017/08/11(金) 14:45:37.73ID:fD8DkUIg0 >>745
生のjsそのまま使うのはめっちゃめんどくさいから、ラッパーを探したほうが良い
で、探した。以下のサイトのラッパー使えば多分すぐに出来ると思う
http://language-and-engineering.hatenablog.jp/entry/20090710/p1
生のjsそのまま使うのはめっちゃめんどくさいから、ラッパーを探したほうが良い
で、探した。以下のサイトのラッパー使えば多分すぐに出来ると思う
http://language-and-engineering.hatenablog.jp/entry/20090710/p1
754デフォルトの名無しさん (ワッチョイ b66d-Var+)
2017/08/11(金) 14:51:25.70ID:fD8DkUIg0 >>752
必ず数字と英語が入れ替わりで来るなら以下のマクロ
Sub foo()
For i = 1 To 100
行 = Int(i / 2)
If i Mod 2 = 1 Then
Cells(行 + 1, 2) = Cells(i, 1)
Else
Cells(行, 3) = Cells(i, 1)
End If
Next
End Sub
必ず数字と英語が入れ替わりで来るなら以下のマクロ
Sub foo()
For i = 1 To 100
行 = Int(i / 2)
If i Mod 2 = 1 Then
Cells(行 + 1, 2) = Cells(i, 1)
Else
Cells(行, 3) = Cells(i, 1)
End If
Next
End Sub
755デフォルトの名無しさん (ワッチョイ 0e6d-1q0p)
2017/08/11(金) 15:01:16.16ID:hvV/hgBn0756デフォルトの名無しさん (ワッチョイ 0391-8lAF)
2017/08/11(金) 15:12:27.50ID:kj6/PAcR0757デフォルトの名無しさん (ワッチョイ 0e6d-1q0p)
2017/08/11(金) 15:23:36.72ID:hvV/hgBn0 >>756
今考えてるのは以下の感じです
VBAもプログラミングも初心者のため全然コードがわかってなくてすみません
loop (i)
if instr(cell(i,1),"○")<>0
sw=1
if sw=1
sw =1の時それより下のセルの情報を切り取り
loop(n)
n=i+1
if instr(cell(n,1),"○")<>0
sw=0
else n=n+1
loop end
else i=i+1
loop end
今考えてるのは以下の感じです
VBAもプログラミングも初心者のため全然コードがわかってなくてすみません
loop (i)
if instr(cell(i,1),"○")<>0
sw=1
if sw=1
sw =1の時それより下のセルの情報を切り取り
loop(n)
n=i+1
if instr(cell(n,1),"○")<>0
sw=0
else n=n+1
loop end
else i=i+1
loop end
758デフォルトの名無しさん (ワッチョイ b66d-YQfT)
2017/08/11(金) 15:32:45.42ID:fD8DkUIg0 >>755
こう
Sub foo()
行 = 1
'一行目は数字
Cells(行, 2) = Cells(1, 1)
tmp = Cells(1, 1)
For i = 2 To 100
If IsNumeric(Cells(i, 1)) Then
'数字
Cells(行, 2) = tmp
Cells(行, 3) = 文字
行 = 行 + 1
tmp = Cells(i, 1)
文字 = ""
Else
'文字
文字 = 文字 & vbCrLf & Cells(i, 1)
End If
Next
End Sub
こう
Sub foo()
行 = 1
'一行目は数字
Cells(行, 2) = Cells(1, 1)
tmp = Cells(1, 1)
For i = 2 To 100
If IsNumeric(Cells(i, 1)) Then
'数字
Cells(行, 2) = tmp
Cells(行, 3) = 文字
行 = 行 + 1
tmp = Cells(i, 1)
文字 = ""
Else
'文字
文字 = 文字 & vbCrLf & Cells(i, 1)
End If
Next
End Sub
759デフォルトの名無しさん (ワッチョイ b66d-YQfT)
2017/08/11(金) 15:33:16.05ID:fD8DkUIg0760デフォルトの名無しさん (ワッチョイ 0391-8lAF)
2017/08/11(金) 15:48:56.25ID:kj6/PAcR0 >>759
数字を含む文字列をどっちに判別するかによるんじゃね
数字を含む文字列をどっちに判別するかによるんじゃね
761デフォルトの名無しさん (アウアウエー Sa52-nTDo)
2017/08/11(金) 16:02:01.36ID:yOhrxWpUa762デフォルトの名無しさん (ワッチョイ 4eaa-Kd4M)
2017/08/11(金) 16:32:57.50ID:FWZL6nYt0 Ruby で書いた
https://paiza.io/projects/HhNVuMxF20bU1t4-GMp0VQ
ary = []
File.open("File1") do |file|
# 1行ずつ処理する
file.each_line do |line|
# 0〜9
if /^\d+$/ =~ line.chomp!
ary << line + ' '
else
ary[-1] = ary[-1] + line
end
end
end
puts ary
入力
01
a
b
12
c
23
出力
01 ab
12 c
23
ただし、23 の後ろに、半角空白が入っているけど
https://paiza.io/projects/HhNVuMxF20bU1t4-GMp0VQ
ary = []
File.open("File1") do |file|
# 1行ずつ処理する
file.each_line do |line|
# 0〜9
if /^\d+$/ =~ line.chomp!
ary << line + ' '
else
ary[-1] = ary[-1] + line
end
end
end
puts ary
入力
01
a
b
12
c
23
出力
01 ab
12 c
23
ただし、23 の後ろに、半角空白が入っているけど
763デフォルトの名無しさん (ワッチョイ 0e6f-aEKd)
2017/08/11(金) 20:25:45.30ID:Nl+bIgs10764デフォルトの名無しさん (ワッチョイ 1a06-KsLg)
2017/08/11(金) 20:45:51.85ID:2aci5jkj0765デフォルトの名無しさん (ワッチョイ 97e4-GDrG)
2017/08/11(金) 20:48:59.91ID:+mgolt3u0 >>744
>クエリ結果にレコードが1件もない場合とかに出たりする。
それ普通はEOFがTrueになるはずだけど
MySQLのドライバでそうならなかったりするのか?ドライバのバグじゃねえの?
それどうやってゼロ件かどうか判定するんだ?
>クエリ結果にレコードが1件もない場合とかに出たりする。
それ普通はEOFがTrueになるはずだけど
MySQLのドライバでそうならなかったりするのか?ドライバのバグじゃねえの?
それどうやってゼロ件かどうか判定するんだ?
766デフォルトの名無しさん (ワッチョイ 97e4-GDrG)
2017/08/11(金) 21:03:31.05ID:+mgolt3u0767デフォルトの名無しさん (ワッチョイ 0e6f-aEKd)
2017/08/11(金) 21:18:12.65ID:Nl+bIgs10768デフォルトの名無しさん (ワッチョイ 1a06-KsLg)
2017/08/11(金) 21:29:48.64ID:2aci5jkj0769デフォルトの名無しさん (ワッチョイ 0391-8lAF)
2017/08/11(金) 22:03:13.38ID:kj6/PAcR0770デフォルトの名無しさん (ワッチョイ 9aaa-W16a)
2017/08/11(金) 22:06:37.63ID:mfxycmdp0 Excel(VBA)でデータベース接続ってどういうのが一般的なんでしょうか?
自分は専ら生ODBCを叩いているので他人のことが気になってる。
自分は専ら生ODBCを叩いているので他人のことが気になってる。
771デフォルトの名無しさん (ワッチョイ 0391-8lAF)
2017/08/11(金) 22:11:37.85ID:kj6/PAcR0772デフォルトの名無しさん (ワッチョイ b66d-hH8V)
2017/08/11(金) 22:15:41.96ID:fD8DkUIg0 そもそもexcelでデータベースに接続しないな
全部accessで済ませてしまう
全部accessで済ませてしまう
773デフォルトの名無しさん (ワッチョイ 9aaa-W16a)
2017/08/11(金) 22:36:29.71ID:mfxycmdp0 >>772
VBAとODBCドライバしか使わないのでExcel, Outlook, Word, Access その他 Officeなら何でもOKにはしてる。
ExcelとOutlookくらいしか使わないけどね。
Outlookはメールで「このテーブルをこう読んだときに〜」とか連絡を受けたときにそのままVBEを開いて使ったりとか。
VBAとODBCドライバしか使わないのでExcel, Outlook, Word, Access その他 Officeなら何でもOKにはしてる。
ExcelとOutlookくらいしか使わないけどね。
Outlookはメールで「このテーブルをこう読んだときに〜」とか連絡を受けたときにそのままVBEを開いて使ったりとか。
774デフォルトの名無しさん (ワッチョイ 0e6f-aEKd)
2017/08/11(金) 23:12:57.71ID:Nl+bIgs10775デフォルトの名無しさん (ワッチョイ 9aaa-W16a)
2017/08/11(金) 23:35:39.96ID:mfxycmdp0 >>774
乗り換えた、って何から?
乗り換えた、って何から?
776デフォルトの名無しさん (ワッチョイ 0e6f-aEKd)
2017/08/12(土) 00:49:01.81ID:RTe2mUwF0 >>775
外部データ取り込み(Microsoft Query)からです。
シートの指定が、なぜか[シート名$]じゃなくて`シート名$`とか、
データの出力開始列にコマンドボタンを配置すると、ボタンを押した瞬間、
ボタンが横に逃げるとか(離すと元の位置に戻ってくる)、
意味不明な軽い嫌がらせがありますけど。
外部データ取り込み(Microsoft Query)からです。
シートの指定が、なぜか[シート名$]じゃなくて`シート名$`とか、
データの出力開始列にコマンドボタンを配置すると、ボタンを押した瞬間、
ボタンが横に逃げるとか(離すと元の位置に戻ってくる)、
意味不明な軽い嫌がらせがありますけど。
777デフォルトの名無しさん (ワッチョイ 9aaa-W16a)
2017/08/12(土) 10:58:36.59ID:AoA5DjYT0 ヘルプ見ると日付型の説明として以下のように書いてあるじゃん。
日付型 (Date) の変数は、IEEE 64 ビット (8 バイト) の浮動小数点数の変数です。
西暦 100 年 1 月 1 日〜西暦 9999 年 12 月 31 日の範囲の日付と、0:00:00 〜 23:59:59 の
範囲の時刻を表すことができます。
でも1900年以前のDate型変数をワークシートに貼ろうと思ってもできなくて、
実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。
ってエラーが出てくるじゃん。これ控えめにいtt
日付型 (Date) の変数は、IEEE 64 ビット (8 バイト) の浮動小数点数の変数です。
西暦 100 年 1 月 1 日〜西暦 9999 年 12 月 31 日の範囲の日付と、0:00:00 〜 23:59:59 の
範囲の時刻を表すことができます。
でも1900年以前のDate型変数をワークシートに貼ろうと思ってもできなくて、
実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。
ってエラーが出てくるじゃん。これ控えめにいtt
778デフォルトの名無しさん (ワッチョイ 1a06-KsLg)
2017/08/12(土) 11:02:43.67ID:q63a26xE0 mysqlとodbc経由で接続している。以前はSQLServerとでもやってた。他にもポスグレやoracleとやってる人間も沢山居るだろ。
んでそんな文句言ってるのはお前だけ。
お前のソースがバグだらけなんだよ。けどソースは示さないんだろ?一人勝手にやってろ
んでそんな文句言ってるのはお前だけ。
お前のソースがバグだらけなんだよ。けどソースは示さないんだろ?一人勝手にやってろ
779デフォルトの名無しさん (ワッチョイ 5a6c-9RpY)
2017/08/12(土) 11:56:57.58ID:TCrjrl3y0780デフォルトの名無しさん (オッペケ Srbb-paLu)
2017/08/12(土) 12:46:19.08ID:IpuKNNKZr >>755
Dim lastRow As Long
Dim i As Long
Dim arry
Dim str
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
arry = Range("A1:A" & lastRow).Value
i = 1
Do Until i = UBound(arry)
If IsNumeric(arry(i, 1)) And arry(i, 1) <> "" Then
str = str & arry(i, 1)
Do Until IsNumeric(arry(i + 1, 1))
str = str & arry(i + 1, 1)
i = i + 1
If i = UBound(arry) Then Exit Do
Loop
str = str & vbCrLf
Else
i = i + 1
End If
Loop
Range("B1").Value = str
Dim lastRow As Long
Dim i As Long
Dim arry
Dim str
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
arry = Range("A1:A" & lastRow).Value
i = 1
Do Until i = UBound(arry)
If IsNumeric(arry(i, 1)) And arry(i, 1) <> "" Then
str = str & arry(i, 1)
Do Until IsNumeric(arry(i + 1, 1))
str = str & arry(i + 1, 1)
i = i + 1
If i = UBound(arry) Then Exit Do
Loop
str = str & vbCrLf
Else
i = i + 1
End If
Loop
Range("B1").Value = str
781デフォルトの名無しさん (オッペケ Srbb-CFLX)
2017/08/12(土) 13:38:05.91ID:IpuKNNKZr >>779
満足してもらえたようで良かったです。
満足してもらえたようで良かったです。
782デフォルトの名無しさん (ワッチョイ 4eaa-j2BT)
2017/08/12(土) 15:49:33.01ID:s2RcRfJ50 >>.777.
それはVBAの問題じゃない
EXCELで扱える日付範囲がVBAより狭いだけ
それはVBAの問題じゃない
EXCELで扱える日付範囲がVBAより狭いだけ
783デフォルトの名無しさん (ワッチョイ ab09-KsLg)
2017/08/13(日) 10:20:51.63ID:YIp/txnN0 VABでIEを開いて、
情報を取ってるんですが、
ie.Visible = False
で、
画面でないようにしてるけど、
これは、どこか裏で開いてる?
それとも、消えてくれるのかな、
Falseで画面出さない時は、
IE閉じる処理はしなくてもいいでしょうか?
情報を取ってるんですが、
ie.Visible = False
で、
画面でないようにしてるけど、
これは、どこか裏で開いてる?
それとも、消えてくれるのかな、
Falseで画面出さない時は、
IE閉じる処理はしなくてもいいでしょうか?
784デフォルトの名無しさん (ワッチョイ 0e6f-aEKd)
2017/08/13(日) 10:33:34.50ID:ua4YvzFl0 よくわからんけど、WBEクエリってので、
画面出さずに取れませんか。
画面出さずに取れませんか。
785デフォルトの名無しさん (ワッチョイ ab09-KsLg)
2017/08/13(日) 10:35:11.41ID:YIp/txnN0786デフォルトの名無しさん (ワッチョイ 9aaa-W16a)
2017/08/13(日) 10:45:28.39ID:B6edc+jF0787デフォルトの名無しさん (オッペケ Srbb-CFLX)
2017/08/13(日) 11:53:36.55ID:TIsdzDXzr788デフォルトの名無しさん (ワッチョイ 9aaa-W16a)
2017/08/13(日) 12:24:29.35ID:B6edc+jF0789デフォルトの名無しさん (ワッチョイ ab09-KsLg)
2017/08/13(日) 12:33:27.11ID:YIp/txnN0790デフォルトの名無しさん (ワッチョイ f34b-qwy0)
2017/08/16(水) 19:34:35.81ID:jf8MYepF0 >>745です
childrenで情報は取得できそうです(イミディエイト上確認できています)
エクセルのA列に入力のURL100をA2から順に自動で情報取得、B列、C列、D列に取得した情報を出力したいのですがどのようにすればいいでしょうか?
おそらくは下記部分の書き換えかと思われますがご教授下さい
objIE.navigate "http://www.aaa.jp/1234/123456789"
Debug.Print colTD(2).innerText & "|" & colTD(3).innerText & "|" & colTD(4).innerText
childrenで情報は取得できそうです(イミディエイト上確認できています)
エクセルのA列に入力のURL100をA2から順に自動で情報取得、B列、C列、D列に取得した情報を出力したいのですがどのようにすればいいでしょうか?
おそらくは下記部分の書き換えかと思われますがご教授下さい
objIE.navigate "http://www.aaa.jp/1234/123456789"
Debug.Print colTD(2).innerText & "|" & colTD(3).innerText & "|" & colTD(4).innerText
791デフォルトの名無しさん (アウアウカー Sac3-K37d)
2017/08/16(水) 21:36:07.94ID:DoB/Yq6sa >>790
昔作った簡易ツールなんだけどさ、これで指定のURLのページのDOM情報を全部ごっそり取れるから試して見たら。
標準モジュールに張り付けて保存して閉じた後で再度開くとアドインリボンにボタンが2つ出来る。
https://pastebin.com/KkNL9u4G
昔作った簡易ツールなんだけどさ、これで指定のURLのページのDOM情報を全部ごっそり取れるから試して見たら。
標準モジュールに張り付けて保存して閉じた後で再度開くとアドインリボンにボタンが2つ出来る。
https://pastebin.com/KkNL9u4G
792デフォルトの名無しさん (アウアウカー Sac3-K37d)
2017/08/16(水) 22:17:10.08ID:DoB/Yq6sa 一点忘れてた。
このツール、取ってくるページが重いと時間がかかる。
あんまり遅いときはBreakしてくれ。
このツール、取ってくるページが重いと時間がかかる。
あんまり遅いときはBreakしてくれ。
793デフォルトの名無しさん (ワッチョイ 9aaa-W16a)
2017/08/16(水) 22:19:22.62ID:6PDnHTyR0 CreateObject("InternetExplorer.Application")
なんてしたくないからMSXML2.XMLHTTPとか使うんじゃないのか?
なんてしたくないからMSXML2.XMLHTTPとか使うんじゃないのか?
794デフォルトの名無しさん (アウアウカー Sac3-K37d)
2017/08/16(水) 22:53:28.23ID:DoB/Yq6sa795デフォルトの名無しさん (オッペケ Sr4d-o0Er)
2017/08/17(木) 06:21:37.08ID:5/l7qEpXr796デフォルトの名無しさん (ワッチョイ 7973-DQO+)
2017/08/17(木) 08:34:41.30ID:CrDCSFke0 お前の過去とか知らんし、判ってる事なら修正版を出してはくれまいか
797デフォルトの名無しさん (アウアウカー Sa1d-R5c0)
2017/08/17(木) 17:22:04.13ID:im50xVqsa798デフォルトの名無しさん (ワッチョイ e14b-XaGt)
2017/08/17(木) 18:27:33.83ID:IrM4WgJo0 >>797
ありがとうございます。でもごっそりは重そうなので出来れば自作できればと。
ググるとこれが良さそうですが
Range("A1").Hyperlinks(1).Follow NewWindow:=True
例えばexcelシートにB2〜B101までurlの記載があり選択してctrl+sみたいな感じで自動実行
これを書き換えるにはどうすればいいでしょうか?
Set DataSheer = ActiveSheet
Dim i As Long, cnt As Long
For i = 1 To 100
cnt = cnt + 1
Cells(cnt, 1) = i
適当に拾ってきた物を書いてみましたアドバイスをお願いします
>>793
MSXML2.XMLHTTP の利用について教えて下さい。
1日500URLを寝る前に取得したいので出来れば動作は早い方がいいです。
ieを開かずにデータを取得できるんですよね
>>745
Set objIE = CreateObject("Internetexplorer.Application")
objIE.Visible = True
を変更でいけますか?
Set objIE = CreateObject("MSXML2.XMLHTTP")
objIE.Visible = False
ありがとうございます。でもごっそりは重そうなので出来れば自作できればと。
ググるとこれが良さそうですが
Range("A1").Hyperlinks(1).Follow NewWindow:=True
例えばexcelシートにB2〜B101までurlの記載があり選択してctrl+sみたいな感じで自動実行
これを書き換えるにはどうすればいいでしょうか?
Set DataSheer = ActiveSheet
Dim i As Long, cnt As Long
For i = 1 To 100
cnt = cnt + 1
Cells(cnt, 1) = i
適当に拾ってきた物を書いてみましたアドバイスをお願いします
>>793
MSXML2.XMLHTTP の利用について教えて下さい。
1日500URLを寝る前に取得したいので出来れば動作は早い方がいいです。
ieを開かずにデータを取得できるんですよね
>>745
Set objIE = CreateObject("Internetexplorer.Application")
objIE.Visible = True
を変更でいけますか?
Set objIE = CreateObject("MSXML2.XMLHTTP")
objIE.Visible = False
799デフォルトの名無しさん (ワッチョイ 93aa-jLVh)
2017/08/17(木) 21:06:10.14ID:wc7ZtjOc0800デフォルトの名無しさん (アウアウカー Sa1d-R5c0)
2017/08/17(木) 23:13:12.34ID:yWP51BMra >>798
そうじゃなくて、そのツールでとってこれるのは指定のURLのページがどういう構造になっているかという情報。
それが分かれば自分で組めるでしょという話。
500個のURLのページがみんな同じ構造なら取りあえず1つだけ構造を調べれば他は同じように組めるでしょ。
例えば君は9個のTRの内、1〜4を取りたいけど1だけしか成功して無いんだろ。
なぜ2〜4が取れないかを調べるのに使う。
取りたいデータに名前やクラス名がついてたらそれで取ってきた配列を使うし、無ければタグ名で取って来る。
タグ名ならその右にある番号から何個飛ばしで取れば良いとかを類推する。
MSXML2.XMLHTTPやMSHTML.HTMLDocumentは単純にInternetExplorer.Applicationを置き換えて使えるわけじゃない。
ソースを取ってきてそれをDOMDocumentに当て嵌めれば似たように使えるけど。
ところで、1日に500個のURLから情報取ってきて問題無いんだろうね。
岡崎図書館の例にもある通り、不正アクセスとして捕まるのを避けるために先方には確認してる?
そうじゃなくて、そのツールでとってこれるのは指定のURLのページがどういう構造になっているかという情報。
それが分かれば自分で組めるでしょという話。
500個のURLのページがみんな同じ構造なら取りあえず1つだけ構造を調べれば他は同じように組めるでしょ。
例えば君は9個のTRの内、1〜4を取りたいけど1だけしか成功して無いんだろ。
なぜ2〜4が取れないかを調べるのに使う。
取りたいデータに名前やクラス名がついてたらそれで取ってきた配列を使うし、無ければタグ名で取って来る。
タグ名ならその右にある番号から何個飛ばしで取れば良いとかを類推する。
MSXML2.XMLHTTPやMSHTML.HTMLDocumentは単純にInternetExplorer.Applicationを置き換えて使えるわけじゃない。
ソースを取ってきてそれをDOMDocumentに当て嵌めれば似たように使えるけど。
ところで、1日に500個のURLから情報取ってきて問題無いんだろうね。
岡崎図書館の例にもある通り、不正アクセスとして捕まるのを避けるために先方には確認してる?
801デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/17(木) 23:29:45.34ID:Fn2cTqwk0 ふだんプログラミングはExcelのVBAがほとんどでこれならかなり本格的なこともできるスキルがあります。
ところでJavascriptに興味を持ちメモ帳でJavascriptをはじめました。
これでExcelVBAのようにコード書くときにインテリセンスで入力補助ができるツールってないんですか?
メモ帳だから当然そんなのできません。
Javascriptの入門書はいつくか読んでますがExcelVBAのようなインテリセンスが使える開発環境のことには全くふれていません。
ところでJavascriptに興味を持ちメモ帳でJavascriptをはじめました。
これでExcelVBAのようにコード書くときにインテリセンスで入力補助ができるツールってないんですか?
メモ帳だから当然そんなのできません。
Javascriptの入門書はいつくか読んでますがExcelVBAのようなインテリセンスが使える開発環境のことには全くふれていません。
802デフォルトの名無しさん (ワッチョイ 196f-jLVh)
2017/08/18(金) 00:33:09.65ID:SqU1frnT0 JavaScriptスレでどうぞ
803デフォルトの名無しさん (オッペケ Sr4d-uth0)
2017/08/18(金) 00:52:10.12ID:fGYkVGPpr ふつーにVSでいいんじゃね?
804デフォルトの名無しさん (ワッチョイ dbaa-jLVh)
2017/08/18(金) 02:47:26.07ID:2Rkfa1Rx0 うむ
805デフォルトの名無しさん (ワッチョイ b111-Ovym)
2017/08/18(金) 06:08:15.32ID:Pl3jF8BM0 フリーのテキストエディタなんて腐るほど調べりゃ出てくるだろ
806デフォルトの名無しさん (オッペケ Sr4d-uth0)
2017/08/18(金) 06:32:04.53ID:fGYkVGPpr >>805
インテリセンスはどうすんの?
インテリセンスはどうすんの?
807801 (ワッチョイ 9352-jLVh)
2017/08/18(金) 06:47:56.97ID:r9Ad8ntQ0808デフォルトの名無しさん (ワッチョイ 5b6d-/TKy)
2017/08/18(金) 06:56:08.49ID:uergmdKS0 回答率が低い方で聞くのは時間の無駄では?
NGにするから何でもいいけど
NGにするから何でもいいけど
809デフォルトの名無しさん (アウアウエー Sa23-Ovym)
2017/08/18(金) 07:07:24.51ID:k8zOSHbua810デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/18(金) 07:14:13.91ID:r9Ad8ntQ0 なんだよ、ここじゃ教えてくれないのです?
811デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/18(金) 07:15:23.14ID:r9Ad8ntQ0 / ̄ ̄ ̄ ̄ ̄\
/ \
/ ヽ
/ ̄\ l \,, ,,/ | そりゃないよ
,┤ ト | (●) (●) | かあちゃん!
| \_/ ヽ \___/ |
| __( ̄ | \/ ノ
ヽ___) ノ
/ \
/ ヽ
/ ̄\ l \,, ,,/ | そりゃないよ
,┤ ト | (●) (●) | かあちゃん!
| \_/ ヽ \___/ |
| __( ̄ | \/ ノ
ヽ___) ノ
812デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/18(金) 07:17:18.70ID:r9Ad8ntQ0 >>809
VSは会社で気軽にインストールできないじゃん
VSは会社で気軽にインストールできないじゃん
813デフォルトの名無しさん (ワッチョイ 2ba2-jLVh)
2017/08/18(金) 07:28:46.83ID:sIEj8B6D0 必要なら出来るだろ
814デフォルトの名無しさん (アウアウエー Sa23-Ovym)
2017/08/18(金) 07:30:00.10ID:k8zOSHbua TR取れないくんはgetElementByTagName("TR")は試したのかよ
815デフォルトの名無しさん (オッペケ Sr4d-uth0)
2017/08/18(金) 07:36:13.08ID:fGYkVGPpr >>812
そこなんだよ、問題は。
じゃ、テキストエディタは気軽にインスコできるのかっつーと、インテリセンス実現するためには、やれプラグインだなんだって追加する必要が出てくる。
ソフトのインストール申請は1回で済ませたいよね。
となると、なんだかんだでVSが最良の選択肢になる。
配布元がMSなのも安心だし。
HTMLやCSSも入力補完できるからね。
入れておくとめちゃ便利でっせ、旦那。
そこなんだよ、問題は。
じゃ、テキストエディタは気軽にインスコできるのかっつーと、インテリセンス実現するためには、やれプラグインだなんだって追加する必要が出てくる。
ソフトのインストール申請は1回で済ませたいよね。
となると、なんだかんだでVSが最良の選択肢になる。
配布元がMSなのも安心だし。
HTMLやCSSも入力補完できるからね。
入れておくとめちゃ便利でっせ、旦那。
816デフォルトの名無しさん (アウアウエー Sa23-Ovym)
2017/08/18(金) 08:07:29.86ID:k8zOSHbua TeraPadは便利そうだけどvbscriptが標準でサポートされてないのがつらい
817デフォルトの名無しさん (アークセー Sx4d-2DR6)
2017/08/18(金) 08:21:16.51ID:6b7crCYjx Notepad++とか軽くていいぞ
申請通りやすいかどうかは分からんが
申請通りやすいかどうかは分からんが
818デフォルトの名無しさん (ワッチョイ 2baa-PF2c)
2017/08/18(金) 08:32:10.11ID:MkY1nhvU0 TeraPad は、サロゲートペア(4バイト文字)のような、
ユニコードに新しく採用された漢字は、? に変換されてしまう
中国の「深圳」みたいな漢字
ユニコードに新しく採用された漢字は、? に変換されてしまう
中国の「深圳」みたいな漢字
819デフォルトの名無しさん (ワッチョイ 7973-DQO+)
2017/08/18(金) 08:34:34.23ID:Jk1oT0GC0 スレタイも読めない馬鹿はスルーで
820デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/18(金) 09:27:19.77ID:r9Ad8ntQ0 >>819
こんな掲示板のルールは守る必要がない。
そもそも20年くらい前のインターネット創始期にリアル世界からバーチャル世界への人々の続々の初参加で
みんなが気軽に参加さえできればどこでもいい掲示板がたまたまここだっただけで
まるで自分のアイデアで発明して作り上げた掲示板と勘違いした管理人が有名になったことも利用して年収数億円にもなった
そんなずるいアホの作ったルールを守る必要あるか?
こんな掲示板のルールは守る必要がない。
そもそも20年くらい前のインターネット創始期にリアル世界からバーチャル世界への人々の続々の初参加で
みんなが気軽に参加さえできればどこでもいい掲示板がたまたまここだっただけで
まるで自分のアイデアで発明して作り上げた掲示板と勘違いした管理人が有名になったことも利用して年収数億円にもなった
そんなずるいアホの作ったルールを守る必要あるか?
821デフォルトの名無しさん (ワッチョイ 712d-jLVh)
2017/08/18(金) 09:32:23.59ID:vyx+pdak0 IDEがダメならVSCにすりゃ良いだろ
デバッグ機能使えるし、エディタ扱いだから軽い
デバッグ機能使えるし、エディタ扱いだから軽い
822デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/18(金) 09:37:07.95ID:r9Ad8ntQ0823デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/18(金) 09:39:00.89ID:r9Ad8ntQ0 あと最重要なことを忘れていた。
Excel VBAのF2で呼び出せるオブジェクトブラウザは上級者ならこの便利さは涙ものだと思うけど
これに相当するものはJavascriptでも使えるんですよね?
たいていのツールならJavascriptでのオブジェクトブラウザは見れる仕様になってるの?
Excel VBAのF2で呼び出せるオブジェクトブラウザは上級者ならこの便利さは涙ものだと思うけど
これに相当するものはJavascriptでも使えるんですよね?
たいていのツールならJavascriptでのオブジェクトブラウザは見れる仕様になってるの?
824デフォルトの名無しさん (ササクッテロロ Sp4d-wXqg)
2017/08/18(金) 09:39:54.13ID:AHP5pPkPp visual studio codeはフリーで商用利用も可能だったはず
825デフォルトの名無しさん (ワッチョイ 7973-DQO+)
2017/08/18(金) 11:46:40.85ID:Jk1oT0GC0 >>820
ルール無用な俺格好いい!w
ルール無用な俺格好いい!w
826デフォルトの名無しさん (スッップ Sdb3-6IIt)
2017/08/18(金) 11:49:00.60ID:4NPjN4uFd VSCかー、使ってみようかな
今までVSとVBEでしかプログラム書いたことないや
今までVSとVBEでしかプログラム書いたことないや
827デフォルトの名無しさん (ワッチョイ ab6f-oL0b)
2017/08/18(金) 11:56:09.72ID:WOYUy8950828デフォルトの名無しさん (アークセー Sx4d-gUFl)
2017/08/18(金) 11:58:21.04ID:pqZlgJQex829デフォルトの名無しさん (オッペケ Sr4d-uth0)
2017/08/18(金) 12:26:45.40ID:fGYkVGPpr830デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/18(金) 12:44:31.00ID:r9Ad8ntQ0 しかもそいつはYoutube動画のすべてのサムネイルで
自分のカバみたいなデカい顔を恥ずかしげもなくデカデカとのせてる。
https://www.youtube.com/channel/UCWlenAgH6lBO36CKiAQR6gQ/videos
これが許させるのはイケメンだけではないか?
勘違いもはなはだしい。
自分のカバみたいなデカい顔を恥ずかしげもなくデカデカとのせてる。
https://www.youtube.com/channel/UCWlenAgH6lBO36CKiAQR6gQ/videos
これが許させるのはイケメンだけではないか?
勘違いもはなはだしい。
831デフォルトの名無しさん (ワッチョイ 9352-jLVh)
2017/08/18(金) 12:57:32.20ID:r9Ad8ntQ0 動画の内容も幼稚。
こんな低レベルのことしか考えれないのにしゃべるな!というレベル。
例えばプログラミングついての動画見てよ。
https://www.youtube.com/watch?v=N9Xl2m-GZwc
コピペが最良とか言ってて、こんなんやってたら共同作業でプログラングやってたらめちゃめちゃになる。
このレベルじゃデザインパターンとかリファクタリングのことを全く知らないしろうとだとわかる。
この人さっぱりプログラミングできないのは明らか。
言語の見解としてCOBOLはやる人がいないからチャンスかも、というのもそれは違うだろ。
こんな低レベルのことしか考えれないのにしゃべるな!というレベル。
例えばプログラミングついての動画見てよ。
https://www.youtube.com/watch?v=N9Xl2m-GZwc
コピペが最良とか言ってて、こんなんやってたら共同作業でプログラングやってたらめちゃめちゃになる。
このレベルじゃデザインパターンとかリファクタリングのことを全く知らないしろうとだとわかる。
この人さっぱりプログラミングできないのは明らか。
言語の見解としてCOBOLはやる人がいないからチャンスかも、というのもそれは違うだろ。
832デフォルトの名無しさん (ワッチョイ 196f-jLVh)
2017/08/18(金) 13:20:37.36ID:SqU1frnT0 はいはいかっこいい
833デフォルトの名無しさん (アウアウカー Sa1d-R5c0)
2017/08/18(金) 13:55:05.43ID:HoFsfG3Ua >>831
まあ、どうでも良いんだがjavascriptは詳しくないからなあ。
有用な回答が得られるかっていうと知らんということでjavascriptのスレよりは難しいんじゃないか?
ところでググることぐらいはしてるんだろうね。
OmniSharpが使えるエディタならなんでもいけるかも。
あと、マイナーかもしれんがScite4がいけるかも。
AutoItで使ってるからjavascriptはどの程度使えるかは分からんが。
まあ、どうでも良いんだがjavascriptは詳しくないからなあ。
有用な回答が得られるかっていうと知らんということでjavascriptのスレよりは難しいんじゃないか?
ところでググることぐらいはしてるんだろうね。
OmniSharpが使えるエディタならなんでもいけるかも。
あと、マイナーかもしれんがScite4がいけるかも。
AutoItで使ってるからjavascriptはどの程度使えるかは分からんが。
834デフォルトの名無しさん (アウアウカー Sa1d-R5c0)
2017/08/18(金) 14:04:26.04ID:HoFsfG3Ua >>814
うん、DOMの構造を調べて求めるデータがgetElementsByTagname("TR")の何番目なのかや、実際にはその子どもや孫の可能性もあるからその何番目かっていうのを簡易ツールで調べて欲しいんだがね。
テーブルの場合、連続した番号にならないことも多いから何個飛ばしかが分かれば取ってこれると思うんだけど。
うん、DOMの構造を調べて求めるデータがgetElementsByTagname("TR")の何番目なのかや、実際にはその子どもや孫の可能性もあるからその何番目かっていうのを簡易ツールで調べて欲しいんだがね。
テーブルの場合、連続した番号にならないことも多いから何個飛ばしかが分かれば取ってこれると思うんだけど。
835デフォルトの名無しさん (アークセー Sx4d-gUFl)
2017/08/18(金) 15:07:33.11ID:pqZlgJQex >>831
スゲー承認します
スゲー承認します
836デフォルトの名無しさん (ワッチョイ e14b-XaGt)
2017/08/18(金) 17:40:24.80ID:AdXlT0dS0 TR取れない君です
>>790に書いてますが取得は出来てます
3サイト程試したので理解は出来ているかと思います
昨日はcellに出力まで出来ました。
Set colTable = htmlDoc.getElementsByName("oppai")
Dim el As IHTMLElement
For Each el In colTable
Set colTH = el.getElementsByTagName("th")
Set colTD = el.getElementsByTagName("td")
i = 2
Cells(i, "B") = colTD(2).innerText
Cells(i, "C") = colTD(3).innerText
Cells(i, "D") = colTD(4).innerText
Next el
後はA列に記載のURLから順に情報を取得して上のcellに格納していくのと
MSXML2.XMLHTTPやMSHTML.HTMLDocument化です
A列に記載のURL(B2からB101)から順に情報を取得して上のcellに格納の
具体的なコードを教えて頂けないでしょうか
>>790に書いてますが取得は出来てます
3サイト程試したので理解は出来ているかと思います
昨日はcellに出力まで出来ました。
Set colTable = htmlDoc.getElementsByName("oppai")
Dim el As IHTMLElement
For Each el In colTable
Set colTH = el.getElementsByTagName("th")
Set colTD = el.getElementsByTagName("td")
i = 2
Cells(i, "B") = colTD(2).innerText
Cells(i, "C") = colTD(3).innerText
Cells(i, "D") = colTD(4).innerText
Next el
後はA列に記載のURLから順に情報を取得して上のcellに格納していくのと
MSXML2.XMLHTTPやMSHTML.HTMLDocument化です
A列に記載のURL(B2からB101)から順に情報を取得して上のcellに格納の
具体的なコードを教えて頂けないでしょうか
837デフォルトの名無しさん (ワッチョイ e14b-XaGt)
2017/08/18(金) 17:41:43.48ID:AdXlT0dS0 A2からA101の間違いです
838デフォルトの名無しさん (ワッチョイ 2baa-PF2c)
2017/08/18(金) 17:55:29.64ID:MkY1nhvU0 >>798
1つのドメインにつき、1日1回までにしておかないと、業務妨害で逮捕されるぞ。
同じサイトへ、しつこくアクセスするなよ
普通のサイトは、ツールでのアクセスは認めていないから
robots.txt に、検索エンジンのクローラー(ロボット)に対する、命令が書いてあって、
それに従わないアクセスは、業務妨害で逮捕される
1つのドメインにつき、1日1回までにしておかないと、業務妨害で逮捕されるぞ。
同じサイトへ、しつこくアクセスするなよ
普通のサイトは、ツールでのアクセスは認めていないから
robots.txt に、検索エンジンのクローラー(ロボット)に対する、命令が書いてあって、
それに従わないアクセスは、業務妨害で逮捕される
839デフォルトの名無しさん (ワッチョイ e14b-bEti)
2017/08/18(金) 20:31:07.04ID:AdXlT0dS0 >>838
えっ1日に2回サイトにアクセスすると逮捕って日本の法律?
じゃあスクリプト組んで商品買ってるやつみんな逮捕されてんの
コードの書き方書いてるやつやソフト屋も幇助で逮捕されてるんだ
ちなみに取りに行くの海外サイトなんだけど同じなの?
国際指名手配とかになると困るんだけど
えっ1日に2回サイトにアクセスすると逮捕って日本の法律?
じゃあスクリプト組んで商品買ってるやつみんな逮捕されてんの
コードの書き方書いてるやつやソフト屋も幇助で逮捕されてるんだ
ちなみに取りに行くの海外サイトなんだけど同じなの?
国際指名手配とかになると困るんだけど
840デフォルトの名無しさん (ワッチョイ 2b8f-jLVh)
2017/08/18(金) 20:35:27.71ID:50s8GsCc0 岡崎図書館アクセス事件か
841デフォルトの名無しさん (ワッチョイ 5b6d-9Vea)
2017/08/18(金) 20:42:49.44ID:uergmdKS0842デフォルトの名無しさん (ワッチョイ 932e-oL0b)
2017/08/18(金) 23:15:13.61ID:b4AgNHol0 >>840
> 岡崎図書館アクセス事件か
wikiを見てみると、1秒に1アクセスは「常識的で礼儀正しい」って世間の認識のようだね
男性の作成したクローラの動作
このクローラは、同時には一回しかリクエストを送らず、受信後に間隔をおいてから次のリクエストを送信していた
(1秒に1アクセス程度に調整)。これはクローラの動作としては「常識的」「礼儀正しい」程度のものであり、
応答を待たずに過大なアクセスを行うことで高負荷にさせる攻撃用のプログラムと異なる動作であった。
男性の業務妨害の強い意図が認められないとして起訴猶予処分となった
> 岡崎図書館アクセス事件か
wikiを見てみると、1秒に1アクセスは「常識的で礼儀正しい」って世間の認識のようだね
男性の作成したクローラの動作
このクローラは、同時には一回しかリクエストを送らず、受信後に間隔をおいてから次のリクエストを送信していた
(1秒に1アクセス程度に調整)。これはクローラの動作としては「常識的」「礼儀正しい」程度のものであり、
応答を待たずに過大なアクセスを行うことで高負荷にさせる攻撃用のプログラムと異なる動作であった。
男性の業務妨害の強い意図が認められないとして起訴猶予処分となった
843デフォルトの名無しさん (ワッチョイ 016f-oL0b)
2017/08/18(金) 23:45:49.18ID:tsIqQuRu0844デフォルトの名無しさん (ワッチョイ ab4b-bEti)
2017/08/19(土) 00:40:39.77ID:vs90uVQG0845デフォルトの名無しさん (アウアウカー Sa1d-Xpxm)
2017/08/19(土) 04:41:34.88ID:lWDfsp6Na サーバーの性能、サイトやデータの構成、取得の目的とか書かないの?
846デフォルトの名無しさん (ワッチョイ 09cc-Ovym)
2017/08/19(土) 08:16:52.16ID:y9n8lCwp0 転売ヤーかなんかか?こいつ
847デフォルトの名無しさん (ワッチョイ 9306-JJVS)
2017/08/19(土) 09:53:56.58ID:OPyAj3On0 必要な情報は提供せず、こちらが知りたいことだけ教えろ!
これがこのスレの質問者のデフォ
これがこのスレの質問者のデフォ
848デフォルトの名無しさん (アウアウエー Sa23-Ovym)
2017/08/19(土) 10:50:30.19ID:4AkL572wa849デフォルトの名無しさん (ワッチョイ 2baa-PF2c)
2017/08/19(土) 12:32:35.39ID:9KU7ntuJ0 岡崎図書館事件では、逮捕されている。
第三者機関である裁判所から、逮捕状も取れている
裁判所だから、警察などの行政執行機関じゃなくて、司法の判断で、ほぼ有罪になる。
単に、起訴猶予処分にしたというだけ
1秒に1回なら、アクセスしても無罪というのは、
無罪になるために、こういうのが常識ですよって広めただけで、
実際には、逮捕状も取れている
robots.txt に従っていないと、相手のサイトが訴えるのは自由だから、
各社の検索エンジンは、1日1回しかアクセスしない
第三者機関である裁判所から、逮捕状も取れている
裁判所だから、警察などの行政執行機関じゃなくて、司法の判断で、ほぼ有罪になる。
単に、起訴猶予処分にしたというだけ
1秒に1回なら、アクセスしても無罪というのは、
無罪になるために、こういうのが常識ですよって広めただけで、
実際には、逮捕状も取れている
robots.txt に従っていないと、相手のサイトが訴えるのは自由だから、
各社の検索エンジンは、1日1回しかアクセスしない
850デフォルトの名無しさん (ワッチョイ 5b6d-5Iur)
2017/08/19(土) 12:34:28.91ID:qVAbDdKi0 >>849
オンラインゲームでチート反対って言ってる人?
オンラインゲームでチート反対って言ってる人?
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 「もうキモくてキモくて…」29歳女性が語る“おぢアタック”の実態。「俺ならイケるかも」年下女性を狙う勘違い中年男性には共通点が [Hitzeschleier★]
- 高市首相、トランプ米大統領に「早期に会いたい」 日中関係悪化受け… ★4 [BFU★]
- 【コメ】卸売業者「簡単に安売りできない」「大暴落起きれば大赤字に」 JA「新米の販売進度が近年になく遅い。コメの回転が悪い」 ★5 [Hitzeschleier★]
- テレビ朝日 本社から男性が転落し死亡。関連会社社員か 当たった通行人が左肩軽傷 [阿弥陀ヶ峰★]
- 中国軍機がレーダー照射 小泉防衛大臣の説明に「矛盾している」中国外務省報道官が批判 [♪♪♪★]
- 「これいいじゃん!!!」 セブン-イレブンの1620円で買える“1人用クリスマスケーキ”🎂に注目殺到「天才すぎる」 [パンナ・コッタ★]
- 【高市速報】中国、最後通牒 [308389511]
- 【悲報】高市早苗「物価高はそのうち収まると思います」
- しね✋ーーーーー☀
- 花澤香菜似のえった美女のディルドオナニー動画見つけたわ
- 【乞食速報】プロクオリティ ビーフカレー 96食 4262円 [268244553]
- 【速報】テレビ朝日本社から20代〜30代の男性が飛び降り自殺して死亡 東京・六本木 [597533159]
