ja-jp http://knowledge.livedoor.com/category/101006007 Wed, 02 Dec 2009 03:53:16 +0900 Sun, 20 Sep 2009 22:28:54 +0900 http://knowledge.livedoor.com/ livedoor knowledge - VisualBasic Copyright 1996- livedoor Co.,Ltd. http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com 43 43 http://knowledge.livedoor.com/42352 ログの書き込み終了をVBScriptで捕らえることは可能でしょうか？ とあるシステムで3分ごとに書き込みが行われるログがあります。 それをプログラムでコピーしたいのですが書き込み最中にコピーはまずいですよね・・ （ロックはされるかもしれないが・・？？） 書き込みが終了した時点をプログラムで判断することは可能でしょうか？ Sun, 20 Sep 2009 22:28:54 +0900 http://knowledge.livedoor.com/42352 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Wed, 21 Oct 2009 06:10:11 +0900 http://knowledge.livedoor.com/42351 VBScriptでExcelを操作するときfindを使うことが出来ません。 ExcelのA列に日付がずらずらと入っているのですがその中から「今日」に該当する部分を探したいと思っています。 findを使うことが出来ないでいます。 Const xlValues = -4163 Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.Workbooks.Open("C:\Book1.xls") strLastDay = Cstr(Date - 1) With objExcelApp.WorkSheets("Sheet1").Rangge("A8:A65535") Set objClm = .Find(Trim(strLastDay),,xlValues) If Not objClm Is Nothing Then intCol = objClm.Column intRow = objClm.Row このあとどうしたらいいかわかりません・・・お願いします。 Sun, 20 Sep 2009 22:21:04 +0900 http://knowledge.livedoor.com/42351 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 19 Oct 2009 21:06:03 +0900 http://knowledge.livedoor.com/42218 VBScriptで指定した範囲の中で対象の文字列が含まれている件数を数えたいと思っています。 やり方が思いつかずわからないので助けてください。 ログの内容は下記のようになっています。 /*/*/*/*/*/*/*/*/*/*/* 2009/08/08 AM9:00 LOG START /*/*/*/*/*/*/*/*/*/*/* PC01 08:00 PC05 08:10 PC100 07:00 /*/*/*/*/*/*/*/*/*/*/* LOG END /*/*/*/*/*/*/*/*/*/*/* /*/*/*/*/*/*/*/*/*/*/* 2009/08/08 AM10:00 LOG START /*/*/*/*/*/*/*/*/*/*/* PC101 09:00 PC55 09:20 PC111 08:00 PC101 09:50 /*/*/*/*/*/*/*/*/*/*/* LOG END /*/*/*/*/*/*/*/*/*/*/* . . . 一時間ごとにログに情報が書き込まれているわけですが「LOG START」から「LOG END」までの間に指定文字列が含まれる行をカウントしたいと思っています。 その一時間後との値をエクセルに保存していきたいのですが・・・ ヒントなどいただけないでしょうか？ Thu, 10 Sep 2009 23:17:05 +0900 http://knowledge.livedoor.com/42218 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 14 Sep 2009 22:45:08 +0900 http://knowledge.livedoor.com/39623 ★☆★☆私の作ったVBScriptプログラムを上司になったつもりでダメだししてくれる方お願いします★☆★☆ 厳しい言葉をいただけると幸いです。 プログラムの要件として ・MDBのデータを指定条件で抽出し表示する。 ・必要であればExcelへ転記する ・転記した場合フォルダを作成（その中へテキストも作りテンプレートに沿ったSQLを発行し記録する予定ですがそこはまだ出来て無いです） ここの処理やばくない？とかそういったことあったらどんどん言ってください。 プログラムのソース http://www10.atpages.jp/chiechie/RS.html MDB http://www10.atpages.jp/chiechie/db1.mdb 必要な配置箇所 C:\db1.mdb D:\レコード書き込みテスト.xls D:\TEST\案件.xls（B列に適当に数字１～２０くらい CとDの１行目に適当な文字列） 勝手にバナーのタグが入ってしまいます。５３７行目のBODY以降から５８９行目は削除してください。 P.S. あと今まで教えてくださった方に大変感謝しております。 Mon, 30 Mar 2009 22:05:26 +0900 http://knowledge.livedoor.com/39623 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 30 Apr 2009 06:10:08 +0900 http://knowledge.livedoor.com/39499 Do While～Loopの脱出方法とコードのまとめ方について質問させてください。 このプログラムはあるサイトの隠しデータに値を飛ばします。 １の値が入ると指定ディレクトリにテキストファイルを作ります。 一定時間が経過するとテキストファイルを消して隠しデータに２を飛ばすと新たな処理を始めるといったものです。 ここで悩んでいる部分があるのですがテキストファイルは１の値が入った後の処理が終われば自動に消えるのですが、ときたま消えない時があります。その判断基準は１３０秒過ぎたらおかしいです。 テキストファイルがある間はグルグルループをしていますがテキストファイルが消去されない場合無限ループに陥ってしまいます。 このプログラムの処理が開始してから１３０秒経ってもループしていたら脱出するといった方法はどのようにすればいいでしょうか？ 脱出する際このプログラムでテキストを消し新たに値の１を飛ばすのを２回まで行うようにはしたいと思っています。 あとこのプログラムですが似通った部分があるなーと自分では考えてしまうのですがまとめようとするとうまく動きません。 Callで呼ぶ方法でやってみたのですが・・・プログラムのまとめ方にコツはありますか？ Set shell = CreateObject("Shell.Application") For Each objWindow In shell.Windows If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.Document.URL = "http://www.yahoo.co.jp/" Then objWindow.document.getElementById("name").value = "1" End If End If Next WScript.Sleep(3000) Set objFS = CreateObject("Scripting.FileSystemObject") Do While objFS.FileExists("D:\test\test.txt") WScript.sleep(250) Loop If objFS.FileExists("D:\test\test.txt") = False Then Set shell = CreateObject("Shell.Application") For Each objWindow In shell.Windows If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.Document.URL = "http://www.yahoo.co.jp/" Then objWindow.document.getElementById("name").value = "2" End If End If Next Set shell = Nothing End If Tue, 24 Mar 2009 22:36:23 +0900 http://knowledge.livedoor.com/39499 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 30 Mar 2009 22:07:21 +0900 http://knowledge.livedoor.com/39447 HTML上のボタンをクリックしVBScriptの動作をキックさせたいと思っています。 HTAで出来たものでなくHTMLのボタンをクリックしJavaScript？でメッセージを出し起動させるというものです。 ボタンを押してVBスクリプトをキックさせるにはどうしたらいいでしょうか？ ボタンはこんな感じです。↓ <input type="button" id = start value="はじめ！" style="width:96;" Onclick=" If( Confirm('確認') ) { document.getElementById('hidSelect').value = '1' } "> <span id ="state"></span> <input type = hidden id = hidSelect value = ""> Sun, 22 Mar 2009 11:32:17 +0900 http://knowledge.livedoor.com/39447 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 24 Mar 2009 22:35:52 +0900 http://knowledge.livedoor.com/38922 VBScriptでサーバのメモリ監視用のプログラムですが本当に値が正しいのか微妙なものがあります。 物理メモリとコミットチャージなどで比較すればよいかと考えています。 物理メモリは下記のプログラムで取れました。 strComputer = "." Set wbemServices = GetObject("winmgmts://" & strComputer) Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration") For Each wbemObject In wbemObjectSet WScript.Echo "物理メモリの合計 (kb): " & wbemObject.TotalPhysicalMemory Next しかし、コミットチャージなのですが・・・ Set OSInfos = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem") For Each OSInfo In OSInfos Wscript.Echo "コミットチャージ: " & int((OSInfo.SizeStoredInPagingFiles - OSInfo.FreeSpaceInPagingFiles) / 1024) & "MB" Next でやるとタスクマネージャとほぼ一緒の値が出るマシンと出ないマシンがあります。 何故でしょうか？？ こういったメモリ情報を取得するときローカルからサーバの場合サーバの管理者権限を持ったアカウントと同じアカウントでローカルからやらなくては取得できないことはわかりました。 どうしてもそれは難しいので代替手段を考えているのですが思いつきません。 いい方法は無いでしょうか？ まだ、作り方は考えているのですがサーバにスクリプト自体を配置してローカルからコマンドでキックすれば可能かもしれないとは考えていますが・・・いい方法あったらお願いします。 Thu, 19 Feb 2009 23:12:45 +0900 http://knowledge.livedoor.com/38922 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 22 Mar 2009 06:10:12 +0900 http://knowledge.livedoor.com/38907 VBScriptでサーバのコミットチャージを取得したいと思っていますが・・・ どうしてもエラーが解決しません SWbemLocatorがアクセス拒否 80070005のエラーが出てしまいます。 いろいろ調べてみたのですがよくわかりません。 サーバのサービスでRPCが有効ではないのでは？というようなのを見つけたりしましたが・・・そんなことはありませんでした。 何がいけないのでしょうか？ Dim svc Dim sv Dim msg On Error Resume Next Set svc = CreateObject("WbemScripting.SWbemLocator") _ .ConnectServer("servername", , "administrator", "password") _ .ExecQuery("Select * from Win32_OperatingSystem") If Err.Number <> 0 Then msg = Err.Number & ":" & Err.Description Else For Each sv In svc msg = sv.TotalVisibleMemorySize & "/" & sv.FreePhysicalMemory Next End If WScript.Echo msg Thu, 19 Feb 2009 00:07:07 +0900 http://knowledge.livedoor.com/38907 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 22 Mar 2009 06:10:12 +0900 http://knowledge.livedoor.com/38820 HTML ApplicationからExcelを操作したいのですがどうにもうまく出来ないところがあります。 Excelを開きxlUPにて最終行を取得したいのですが何故か結果が返ってきません。 定数の宣言はちゃんと行っていますし、アクティブシートにしないと出来ないということもわかっているのですがどうにもこうにも動いてくれません・・・どうしたらよいのでしょうか？ objExcelPath = "D:\レコード書き込みテスト.xls" Set g_objExcelApp = GetObject(,"Excel.Application") If Err Then Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.WorkBooks.Open objExcelPath ElseIf g_objExcelApp.Workbooks.Count Then For Each i In g_objExcelApp.Workbooks If i.FullName = objExcelPath Then MsgBox objExcelPath & "が開いているので書き込めません。" & vbCrLf & vbCrLf & _ "保存して終了してください。", vbCritical, "警告" Exit Sub End If Next Else MsgBox "Excelは起動していますが" & objExcelPath & "を開いてないので開きます。" Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True objExcelApp.WorkBooks.Open objExcelPath End If objExcelApp.WorkSheets("1nosheet").Activate Set objExcelSheet = objExcelApp.WorkSheets("1nosheet") RowNo = objExcelSheet.ActiveSheet.Range("J65536").End(xlUP).Row WScript.echo RowNo 'RowNoが出ないのは何故でしょうか？？ Sun, 15 Feb 2009 00:19:44 +0900 http://knowledge.livedoor.com/38820 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 15 Feb 2009 08:00:47 +0900 http://knowledge.livedoor.com/38764 サーバ上のコミットチャージ（それかメモリ使用量）をVBSで取得したいと思っています。 サーバで動いているシステムがあれば一概に判断できないと思いますが・・・コミットチャージは物理メモリの利用可能と比較して大きいようであれば状態は良くないということでしょうか？ また最大値が制限値をたびたび超えるのもまずいということでいいのでしょうか？ 一応コミットチャージを取得するプログラムを見つけたのですがサーバ上の物理メモリとの比較や最大値と制限値の比較方法が分かりません。 どなたか教えていただけ無いでしょうか？ Set OSInfos = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem") For Each OSInfo In OSInfos Wscript.Echo "コミットチャージ: " & int((OSInfo.SizeStoredInPagingFiles - OSInfo.FreeSpaceInPagingFiles) / 1024) & "MB" Next Fri, 13 Feb 2009 00:12:06 +0900 http://knowledge.livedoor.com/38764 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 16 Mar 2009 06:10:05 +0900 http://knowledge.livedoor.com/38741 VBScript（HTA）でSQLを発行しその結果をExcelへ転記させたいのですがどうもうまく出来ません。 http://www.google.com/notebook/public/06577523275749879902/BDSNYDAoQvJKurfYj?hl=ja このような感じで書いてみているのですがうまく結果が出てくれません。シートを指定していない？のが原因でしょうか？ それとも他にまずい部分がありますでしょうか？ Wed, 11 Feb 2009 23:19:45 +0900 http://knowledge.livedoor.com/38741 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 14 Mar 2009 06:10:06 +0900 http://knowledge.livedoor.com/38674 VBScriptでIEを開きあるサイトにアクセスしリンクをクリックするプログラムを作っています。 対象としているサイト（イントラですが）が動的？にリンクが増えてしまうので「getElementsbytagname」が使えないのかなと思っております。 今ソースをにらめっこしながらやっているのですがわかったことはJavaScriptで記述されていることだけで・・・・ どうリンクを取得してあげたらいいのかというところで全く分からず悩んでいます。 <span id="TurnOffAccessibility" style="display:none"> <a href="#" class="ms-acclink" onclick="SetIsAccessibilityFeatureEnabled(false);UpdateAccessibilityUI();return false</a></span> リンク部のソースはこんな感じです。 http://www.happy2-island.com/vbs/cafe02/capter00708.shtml この辺のサイトを参考にしてやってみていますがいまいちJavaScriptが分からなくて・・・（HTMLもですが） どのようにしたらいいでしょうか？ Sun, 08 Feb 2009 00:33:37 +0900 http://knowledge.livedoor.com/38674 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 11 Mar 2009 06:10:05 +0900 http://knowledge.livedoor.com/38522 VBAで入力規則の設定がうまくいきません　どなたかご教示ください。 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim A As String If Target.Column = 3 And Target.Row >= 77 And Target.Row <= 65536 Then If Target.Value <> "" Then Worksheets("Sheet2").Range("A1:Z5").Copy _ Destination:=Target.Offset(5, -1) For i = 5 To 9 For k = 5 To 23 Step 2 A = "=INDIRECT(" & Target.Offset(0, 3).Address & ")" Target.Offset(i, k).Validation.Delete Target.Offset(i, k).Validation.Add Type:=xlValidateList, Formula1:=A Next Next End If End If End Sub 「実行時エラー '1004' : アプリケーションの定義またはオブジェクト定義のエラー」が出てしまします。 A = "=INDIRECT(" & Target.Offset(0, 3).Address & ")" Target.Offset(i, k).Validation.Delete Target.Offset(i, k).Validation.Add Type:=xlValidateList, Formula1:=A "=INDIRECT(""" & Target.Offset(0, 3).Address & """)"こうすることや"INDIRECT(" & Target.Offset(0, 3).Address & ")"こうするとエラーは発生しません。これはバグなのでしょうか？ 上記だとリストに値がうまく設定されません。 このプログラムの意味ですが・・・ ttp://??www.relief.jp/itnote/archives/000822.php?? こちらにあるような物を参考にしています。 ドロップダウンリストを連動させて使いたいのです。 Sat, 31 Jan 2009 08:13:59 +0900 http://knowledge.livedoor.com/38522 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 02 Feb 2009 23:59:59 +0900 http://knowledge.livedoor.com/38503 VBAで入力チェッカーを作っているのですが、仕様の部分でなやんでいます。 Private Sub CommandButton1_Click() Dim i As Long lastRow = Range("A65536").End(xlUp).Row For i = 10 To lastRow If Range("A" & i).Value = "" Then Range("A" & i).Value = ??? Exit For End If Next i End Sub USERがあるセルにデータを入力するとA列に５行ごと自動に値が入ります。 しかし、入力忘れで５行飛ばしたりはたまた１０行空白が出来る場合があります。 その際のチェッカーの役割なのですが。。。 したから行を見ていってA１０～最終行までの間でどこか空白があったら下から空白を探し空白箇所から5個上のセルの値を基本的にコピーをしていれる。 もし5個上のセルにも無かったら10個上みたいにやりたいのですがどうしたらよいでしょうか？ Fri, 30 Jan 2009 00:58:07 +0900 http://knowledge.livedoor.com/38503 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 03 Feb 2009 00:00:31 +0900 http://knowledge.livedoor.com/38502 VBAで入力規則を設定したいのですが、うまくいきません・・・ 指定している範囲のセルに値が入った時にイベントが起きるようにしています。 値が入ると他のシートよりコピーをしてきて５列はなれたところから１列飛ばしで２３列まででそこから５行に入力規則を入れます。 その入力規則の通常の手作業の場合「元の値」にINDIRECT関数をいれて値をターゲットから３つずれたセルを参照したいのですがうまく出来ません。 ご教示いただけないでしょうか？？？ Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Column = 3 And Target.Row >= 77 And Target.Row <= 65536 Then If Target.Value <> "" Then Worksheets("Sheet2").Range("A1:Z5").Copy Target.Offset(5, -1) For i = 5 To 9 For k = 5 To 23 Step 2 Target.Offset(i, k).Validation.Add Type:=xlValidateList, Formula1:="=INDIRECT(target.offset(0,3))" '絶対にこんなやり方では無いですよね・・・？ Next Next End If End If End Sub Fri, 30 Jan 2009 00:46:06 +0900 http://knowledge.livedoor.com/38502 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 03 Feb 2009 00:00:54 +0900 http://knowledge.livedoor.com/38394 VBAでセルに値が入ったときにイベントを起こしたいのですが、躓いています・・・ Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long ' 変更したセルに値が入った場合条件成立 If Trim(Target.Value) <> "" Then ' 行番号が10以上65530以内のとき条件成立 If Target.Row >= 10 And Target.Row <= 65530 Then ' BCD列で、5の倍数の行のとき条件成立 If (Target.Column = 2) And (Target.Row Mod 5) = 0 Then If Target.Value <> "" Then For i = 0 To 4 Target.Copy Target.Offset(i, 10).PasteSpecial Paste:=xlPasteValues Next Worksheets("Sheet4").Range("A2:K6").Copy Target.Offset(5, -1) End If ElseIf (Target.Column = 3) And (Target.Row Mod 5) = 0 Then If Target.Value <> "" Then For i = 0 To 4 Target.Copy Target.Offset(i, 10).PasteSpecial Paste:=xlPasteValues Next End If ElseIf (Target.Column = 4) And (Target.Row Mod 5) = 0 Then If Target.Value <> "" Then For i = 0 To 4 Target.Copy Target.Offset(i, 10).PasteSpecial Paste:=xlPasteValues Next End If Else Exit Sub End If End If End If End Sub ここまでは何とか出来たのですが問題点があります・・・ ・複数セルを選択してDELすると実行時エラー13が出ます。 ・別シートより範囲指定したセルをコピーして張り付けるときも出ます。 ・B列には6桁の整数値しか入らないようにしたいけど整数値限定は可能？・・・その整数値を貼り付ける際日付型へのフォーマットが難しい などあります。ヒントをいただけないでしょうか？ Thu, 22 Jan 2009 23:25:49 +0900 http://knowledge.livedoor.com/38394 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 03 Feb 2009 00:01:25 +0900 http://knowledge.livedoor.com/38337 VBAでセルに入っている文字をカウントしていますが、問題に直面しています。 Dim cnt As Long Dim i As Long Dim lastRow As Long For i = 1 to 20 step 2 lastRow = Cells(65536, i).End(xlUP).Row cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i),Cells(lastRow, i), "お世話になっております") cnt = cnt + cnt Next Excelのセルを1列ずつ飛ばして列に「お世話になっております」が含まれたら件数をカウントしています。 そのカウント数が何故かリセットされてしまいます。 カウント数を足していきたいのですが・・・考え方自体が違うのでしょうか？ Mon, 19 Jan 2009 23:27:11 +0900 http://knowledge.livedoor.com/38337 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 19 Feb 2009 06:10:07 +0900 http://knowledge.livedoor.com/38325 HTAでレコードを条件検索するプログラムを作っています。 【テーブルの作成※簡素化しています】 strMES = strMES & "<table id='strData'><tr>" & _ "<td class='c1' align=center>選択</td>" & _ "<td class='c2' align=center>時間</td></tr>" Do If objRS.Eof Then Exit Do strMES = strMES &"<tr>"& _ "<td class='c1'><input type='checkbox'>" & _ "</td>" & _ "<td class='c2'>" & objRS(7) & "</td></tr>" objRS.MoveNext Loop strMES = strMES & "</table>" objRS.Close 【取得】 For Each strTR In document.getElementByID("strData").getElementsByTagName("tr") Set strTDs = strTR.getElementsByTagName("td") For Each strCheckBox In strTDs(0).getElementsByTagName("input") If strCheckBox.Checked = True Then strID = strTDs(0).name'?getElementsByTagName("input")(0).Value strNAME = strTDs(2).Value'?getElementsByTagName("input")(0).Value strKEN = strTDs(3)'getElementsByTagName("input")(0).Value Msgbox "選んだのは" & vbcrlf & strID & "..." & strNAME & "..." & strKEN End If Exit For Next Next 「TD」内に含まれている文字列を取得する値としたいのですがオブジェクトがありませんとかいう風になってしまいます。 ValueかNameでOKかとやってみたのですがうまくいきません。それか文字列を抜き出す方が難しいでしょうか？ Sun, 18 Jan 2009 23:11:51 +0900 http://knowledge.livedoor.com/38325 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 18 Feb 2009 06:10:05 +0900 http://knowledge.livedoor.com/38283 VBScriptでウィンドウの操作をするプログラムを作っています。 JavaScriptでウィンドウサイズを変えているものを強制的にVBScriptでサイズ変更するのはテストサイトでは問題ないのですが・・・ 本当に対象としているサイトは社内インフォラサイト内なので見れないのですが・・・ http://www.google.com/notebook/public/06577523275749879902/BDQrTDAoQ6eTdiOwj?hl=ja テストサイトではobjWindow.Document.URL = URL2とすればabout:blankがURL2のサイトになるのですが・・・対象サイトのアドレスはどうしても入ってくれません。 URL2をグーグルのアドレスに変えてみればうまくいくのですがその対象サイトだけはどうしてもダメです。 そのサイトに入るにはテストサイト同様にリンクをクリックしてからでないと入れないようになっています。そのハイパーリンクで右クリックの対象ファイルを保存をすると「Internet Explorerでは、○○をダウンロードできません。インターフェイスがサポートされていません。」となるようなサイトです。 どうにかしてオープンする前にウィンドウサイズを指定してしまいたいのですがどうにもこうにもうまくいきません。 例えばなのですが、元サイトをいじることなく一旦JavaScriptなどで指定されているサイズを”一時的”に書き換えて立ち上げるとかは出来ないでしょうか？ Thu, 15 Jan 2009 23:19:23 +0900 http://knowledge.livedoor.com/38283 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 18 Jan 2009 20:18:41 +0900 http://knowledge.livedoor.com/38233 HTAでレコードを条件検索するプログラムを作っています。条件によるレコード検索までは出来ているのですが、その結果の転記が出来ないでおります。 検索を実行するとHTA上にチェックボックスが作成されます。 チェックボックスにチェックがついたものだけをエクセルへ転記を行いたいのですがどのようにしたらいいのか・・・ ひょっとしたらHTAのオブジェクトを取得してHTA自分自身を操作？？なんておもってやってみたのですが何故かHTAのプログラムだけ結果が返りません。 それかこの考え自体が間違いでしょうか？どなたかヒントで構いませんので力になっていただけないでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDRomDAoQ8pekyuwj?hl=ja Mon, 12 Jan 2009 14:31:54 +0900 http://knowledge.livedoor.com/38233 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 18 Jan 2009 20:15:38 +0900 http://knowledge.livedoor.com/38228 VBScriptでウィンドウの操作をするプログラムが出来ましたが・・・本当にこれで良いか自信がもてない部分があります。 JavaScriptでウィンドウサイズを変えているものを強制的にVBScriptでサイズ変更する方法は成功しました。 そこで新たに悩みがあるのですがobjWindow.document.getElementsByTagName・・・・ という一文がありますがobjWindowをobjIEという名前に変更してからクリック動作をさせたいと思っています。 objWindow = objIEと途中でやってみたりしていますが、オブジェクトがありませんといった怒られるエラーに遭遇します。 どこで変更すればよいのでしょうか？ またエラートラップを仕掛けていないのですが・・・どこでどんな風に仕掛けておくのがいいでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDQrTDAoQ6eTdiOwj?hl=ja Mon, 12 Jan 2009 01:16:50 +0900 http://knowledge.livedoor.com/38228 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Thu, 12 Feb 2009 06:10:09 +0900 http://knowledge.livedoor.com/38227 HTA（VBScript）で作成しているプログラムがあるのですがなかなかうまく出来ないでおります。 物が出来てきましたがエクセルの転記について四苦八苦しております。 レコードを検索するとチェックボックスを含め表が作成されます。 そのチェックボックスをクリックし転記をすると選択したものがエクセルに転記されるようにしたいのですが、検索したときと表示を変えて転記したいと思っています。 例：HTA上に表示 objRS(2),objRS(3),objRS(4)としたら エクセルに転記 objRS(4),objRS(5),objRS(7)を転記 いい方法が思いつきません。 とりあえずチェックボックスのVALUEには名前のつけ方を工夫してみましたが・・・ 転記する前に自分自身のオブジェクトの取得？を考えてみていたのですがいつまでもうまくいかず困っています。 ヒントをいただけないでしょうか？ http://www.google.com/notebook/public/06577523275749879902/BDQtSDQoQkvvPiOwj?hl=ja Mon, 12 Jan 2009 01:08:35 +0900 http://knowledge.livedoor.com/38227 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Thu, 12 Feb 2009 06:10:08 +0900 http://knowledge.livedoor.com/38182 VBScriptでIEのウィンドサイズの調整をすることに四苦八苦しています。 Dim URL Dim URL2 Dim objIE Dim objINPUT Dim Width Dim Height Dim X Dim Y Width = 500 Height = 600 X = 0 Y = 0 URL = "http://www10.atpages.jp/chiechie/football.html" URL2 = "http://www10.atpages.jp/chiechie/hello.html" Set objIE = WScript.CreateObject("InternetExplorer.Application") If Err.Number = 0 Then objIE.Navigate URL objIE.Left = X objIE.Top = Y objIE.Width = Width objIE.Height = Height objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop Else WScript.Echo "ERR" & Err.Description End If If objIE.Document.URL = URL Then Set objINPUT = objIE.document.getElementsByTagName("A") objINPUT(0).click 'クリックした時点で全画面表示で一回オープンされるはずです 'その状態だと画面がチラチラするので嫌な部分でもあります。 Else WScript.Echo "ERR" & Err.Description End If 'objIE.quit Set objIE = Nothing JavaScriptで出来たページなのですが全画面表示になるようサーバサイドで設定されています。 リンクをクリックして表示をすると全画面で立ち上がるかと思いますがこれを「VBScriptで強制的」に画面サイズを指定する方法は無いでしょうか？（このページと仕様は若干違いますが Dim URLのページが開いてないとDim URL2が開かないということで仮定してください）クリックする前に開くサイズを指定するプロパティとか見つからなくて・・・回避策に悩んでいます。 Fri, 09 Jan 2009 00:17:53 +0900 http://knowledge.livedoor.com/38182 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Mon, 09 Feb 2009 06:10:07 +0900 http://knowledge.livedoor.com/38152 HTAで日付をフォームに入れたいのですがいまいちうまくいきません。 こんな感じでつくっていますがおかしい表示になってしまいます。 Sub IptToday() Dim dtmDate dtmDate = Year(Now()) & "-" & Right("0" & Month(Now()),2) & "-" & Right("0" & Day(Now()),2) msgbox dtmDate End Sub ・ ・ ・ ・ ・ ・ 【日付】 <input type="text" name="InputDay1" value="">    ～    <input type="text" name="InputDay2" value="">    <input type="button" name="go" value="今日" onclick="IptToday()"> Tue, 06 Jan 2009 23:35:45 +0900 http://knowledge.livedoor.com/38152 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 09 Jan 2009 00:10:01 +0900 http://knowledge.livedoor.com/37982 VBScriptでIEのウィンドウを操作するときサイズなどが指定できません。 objIE.Width = 200 objIE.Height = 200 このようにすれば普通はウィンドウを操作できますよね？ でも何故か出来サイトが存在していたりします。 いろいろ調査したりテストをしましたが一向にうまくいきません。 例えばもともとそのサイトがJavaScriptなどで開くサイズを指定されているものだとしたらサイズの調整はできないのでしょうか？ Tue, 23 Dec 2008 23:37:26 +0900 http://knowledge.livedoor.com/37982 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 23 Jan 2009 06:10:03 +0900 http://knowledge.livedoor.com/37923 間違っているVBのContinueの件で書き込みをしたのですが何故か消えてしまったので再度書きます。 教わったことを参考にやってみたのですがうまくいきません。 Continueの部分がうまくいくPCといかないPCがあるのでどうしたらいいか分からなくなってしまいました・・・ Option Explicit Dim objIE Dim objShell Dim objWindow Dim WinExist Dim strURL Dim strURL2 Dim Flug strURL = "http://www.yahoo.co.jp/" strURL2 = "http://www.google.co.jp/" WinExist = False Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) <> "HTMLDocument" Then ？？？？？ Continue ？？？？？ End If WinExist = True Set objIE = objWindow If objIE.LocationURL = strURL Then Flug = True Exit For End If Next If Flug = True Then msgbox "ヤフー存在" Else msgbox "別の処理を行なう" If WinExist = False Then 'IEが無い場合 起動する Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate strURL2 objIE.Visible = True Set objIE = Nothing End If End If Thu, 18 Dec 2008 23:54:02 +0900 http://knowledge.livedoor.com/37923 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Sun, 18 Jan 2009 06:10:05 +0900 http://knowledge.livedoor.com/37913 VBでContinueを行いたいのですがよくわかりません。 このようなコードを使いたいのですが・・・ Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) <> "HTMLDocument" Then Continue End If これに対応したやり方というのを下記サイトで見つけました。 http://mga.cocolog-nifty.com/pc_info/2006/11/vbscript_tips1__7a8f.html ただどういうう風に書き直したらいいか分からなく困っています。 どなたか解説いただけないでしょうか？ Thu, 18 Dec 2008 00:58:44 +0900 http://knowledge.livedoor.com/37913 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 06 Jan 2009 23:30:54 +0900 http://knowledge.livedoor.com/37861 配列の要素の部分で例外処理を作りたいのですがどうしたらよいでしょうか？ 例えば AAAA(0) AAAA(1) AAAA(2) AAAA(3) この要素で３の要素だけ変えるにはどうしたらよいのでしょうか？ Mon, 15 Dec 2008 00:49:58 +0900 http://knowledge.livedoor.com/37861 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:37:34 +0900 http://knowledge.livedoor.com/37860 VBScriptの処理でログを出す処理作っているのですが処理中に何らかの原因で正常な処理が出来なかった 場合にエラーログを出したいのですが冗長にならないようにしたいのですが・・・どうすればよいでしょうか？ Option Explicit Const ForAppending = 8 Dim objFileSysFolder Dim objOutFile Dim objFileSysText Dim strScriptPath Dim strCheckPath Dim strCreatePath Dim strDate Dim strCreateFile ・ ・ ・ If XXXX then aaaa Else bbbb End If ・ ・ ・ If YYYY then CCCC Else DDDD End If ・ ・ ・ If ZZZZ then EEEE Else fffff End If Set objFileSysFolder = CreateObject("Scripting.FileSystemObject") strCheckPath = objFileSysFolder.BuildPath("D:\","TEST") strDate = CStr(Right("0000" & Year(Now),4) & Right("00" & Month(Now),2)) If objFileSysFolder.FolderExists(strCheckPath) = True Then Set objFileSysText = CreateObject("Scripting.FileSystemObject") strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"") strCreateFile = objFileSysText.BuildPath(strScriptPath,strDate & ".log") If objFileSysText.FileExists(strCheckPath) = True Then Set objOutFile = objFileSysText.OpenTextFile(strCreateFile,ForAppending) objOutFile.WriteLine "Date[" & date & "] " & _ "Time[" & time & "] " & _ "User[" & "OK" & "]" objOutFile.Close Else Set objOutFile = objFileSysText.OpenTextFile(strCreateFile,ForAppending) objOutFile.WriteLine "Date[" & date & "] " & _ "Time[" & time & "] " & _ "User[" & "NG" & "]"'ここでメッセージを変えたい objOutFile.Close End If End If Set objFileSysFolder = Nothing Set objFileSysText = Nothing Set objOutFile = Nothing こういったログのルーチンをあるとしますが、If～Else～End Ifの部分でElse以降の場合メッセージを変えるにはどうすればいいでしょうか？ Mon, 15 Dec 2008 00:42:28 +0900 http://knowledge.livedoor.com/37860 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:37:49 +0900 http://knowledge.livedoor.com/37858 インストーラーについて教えて下さい。VBScriptのプログラムを作ったのですがそれをインストールするような形にしたいと思っています。 インストールすると同時に指定のパスに起きたいといったことを考えています（プログラムの内容上指定のパスにしか置けないような？？） また同時にタスクスケジューラーにプログラムを動かす時間を同時に設定できるような感じも行いたいのですが・・・どうしたよいでしょうか？ Mon, 15 Dec 2008 00:25:26 +0900 http://knowledge.livedoor.com/37858 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Thu, 15 Jan 2009 06:10:13 +0900 http://knowledge.livedoor.com/37823 VBScriptで指定するサイトが開いていなかった場合とある処理を行い、とあるサイトが開いていれば別の処理をし終了させることをやっていますがうまくいきません。 自分の考えとしては １・開いているIEをくるくるループ回して探す ２・その中にヤフーがあればフラグをTrue処理 　　それ以外はFalse処理 これだけで終わりにしたいのですが・・・ Dim objIE Dim objShell Dim objWindow Dim WinExist Dim strURL Dim Flug Dim strURL2 strURL = "http://www.yahoo.co.jp/" strURL2 = "http://www.google.co.jp/" 'IEが起動して無い場合プログラムが起動しないのでダミー立ち上げ Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" objIE.Visible = True Set objIE = Nothing WinExist = False Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) = "HTMLDocument" Then WinExist = True Set objIE = objWindow End If Next If objIE.LocationURL = strURL Then Flug = True Else If objIE.LocationURL <> strURL Then Flug = False Else WScript.sleep(1) End If If Flug = False Then Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate strURL2 objIE.Visible = True Set objIE = Nothing End If ' 'いろいろな処理があるが省く ' If Flug = True Then msgbox "ヤフー存在" End If End If 絶対にフラグがTrueになることがありません。 Excelでデバッグしてみましたがなぜうまくいかないのかが理解できておりません。 自分としては開いているIEをぐるぐるとまず回ってヤフーが開いていればTrue時の処理を行い終了、 なければFalse時の処理を行うという風にしたいです（無限ループではありませんでした） For eachを使っているので途中でIf Flug以降の処理を行ってしまうのも無駄な繰り返しで困ってしまいます。 そこでフラグを立てることを考えたのですがどうも思うようにいきません。 ボキャブラリが足りませんが、いい知恵を貸していただけないでょうか？ Fri, 12 Dec 2008 01:10:48 +0900 http://knowledge.livedoor.com/37823 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:38:22 +0900 http://knowledge.livedoor.com/37791 東京から下り列車と大阪からの上り列車が同時刻にそれぞれ東京、大阪を発車したとします。平均時速270kmで、ノンストップで進行したら、どこですれ違うか？ 平均時速270kmで、ノンストップで進行したら、どこですれ違うか？またそれは発車後何分か？また名古屋ー京都間の平均時速が60kmに落ちました。 Dim x, dx, y1, y2 As Double Dim dis_osaka, dis_tokyo, dis_kyoto, dis_nagoya As Double Dim d_speed270, d_speed60, d_speed1, d_speed2 As Double Dim drawpoint, drawtext As Double Dim pen As New Drawing.Pen(Color.Red, 1) x = 0.0 y1 = 0.0 、列車１の位置を表す変数 y2 = dis_osaka 、列車２の位置を表す変数 dx = 1.0 d_speed270 = 270.0 / 60.0 * dx 、時速270kmからdxの間に進む距離を求めている。 d_speed60 = 60.0 / 60.0 * dx 、同じく時速60kmの場合 d_speed1 = d_speed270 、列車１の初期の速度 d_speed2 = d_speed270 、列車２の初期の速度 Do While (y1 <= dis_osaka And y2 >= dis_tokyo) 、2つの列車が目的地に着くまで繰り返す。 drawpoint(Pen, x, y1) 、列車１の現在地に点を打つ drawpoint(Pen, x, y2) 、列車２の現在地に点を打つ If y1 > dis_osaka Then d_speed1 = 0.0 、列車１が大阪に着いたら、速度を０にする。 ElseIf y1 <= dis_kyoto And y1 >= dis_nagoya Then d_speed2 = d_speed60 、京都ー名古屋間なら速度を60kmにする。 Else d_speed2 = d_speed270 、上記以外では270km End Iｆ If y2 < dis_tokyo Then d_speed2 = 0.0 ElseIf y2 <= dis_kyoto And y2 >= dis_nagoya Then d_speed2 = d_speed60 Else d_speed2 = d_speed270 End If y1 = y1 + d_speed1 * dx 、列車１の次の位置を計算 y2 = y2 - d_speed2 * dx 、列車２の次の位置を計算、大阪から東京に向かっているので、引き算になっている x = x + dx If Math.Abs(y1 - y2) < 0.5 Then 、２つの列車の間の距離が0.5km以下になったらすれ違ったものと判断する。 drawtext(CStr(y1), x, y1) End If Loop End Sub End Class このままではdrawpointとdrawtextのところでエラーが出ます。どうすればいいですか？ Tue, 09 Dec 2008 11:59:36 +0900 http://knowledge.livedoor.com/37791 uiftysuftuduyted8yu VisualBasic 26391 http://knowledge.livedoor.com/profile/26391 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Fri, 09 Jan 2009 06:10:07 +0900 http://knowledge.livedoor.com/37789 visual studioで複数のグラフを重ね書きする問題なのですが。 y=ax^2という関数で、aの値の次の7通りに設定し、7本のグラフを重ね書きする。 a= -3, -2, -1, 0, 1, 2, 3 x軸の範囲は -5 ～ +5, y軸の範囲は-100 ～ +100 に設定します。 Tue, 09 Dec 2008 11:53:37 +0900 http://knowledge.livedoor.com/37789 uiftysuftuduyted8yu VisualBasic 26391 http://knowledge.livedoor.com/profile/26391 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 09 Jan 2009 06:10:06 +0900 http://knowledge.livedoor.com/37785 VBScriptで様々な処理をした後ログをはいているのですが、冗長になり悩んでいます。 考えてみたり調べてみたりしましたがいいヒントが見つかりませんでした・・・ http://www.google.com/notebook/public/06577523275749879902/BDRFtDAoQkI-_t-Ej?hl=ja 上記に自分で作ってみたログファイル作成のプログラムで一部抜粋になりますがこういった構成です。 _Subプロシージャで処理成功時に呼び出し ＿＿フォルダ有り ＿＿＿＿ログ有り ＿＿＿＿ログ無い ＿＿フォルダ無い ＿＿＿＿ログ有り ＿＿＿＿ログ無い _Subプロシージャで処理失敗時に呼び出し ＿＿フォルダ有り ＿＿＿＿ログ有り ＿＿＿＿ログ無い ＿＿フォルダ無い ＿＿＿＿ログ有り ＿＿＿＿ログ無い これだけ長いと・・・・みっともないですよね 自分としては ・通常ログとエラーログを分けて出したい ・処理中に止まる可能性がある箇所がいくつかあるので処理が止まった時点でエラーメッセージを変えたい ・もっと簡潔にしたい この３つがあります。 どなたかいいヒントをいただけないでしょうか？ Mon, 08 Dec 2008 23:42:02 +0900 http://knowledge.livedoor.com/37785 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:38:39 +0900 http://knowledge.livedoor.com/37784 VBScriptでフレームの名前を取得しようとすると下のようなエラーが出て困っています。 色々調べたのですがどう対策したらよいかわかりません・・・ :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: エラー: アクセスが拒否されました。 コード: 80070005 ソース: (null) :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Option Explicit Dim URL Dim objIE Dim Count Dim TextBody Dim strText Dim FindText FindText = "議長" URL = "http://www.shugiin.go.jp/index.nsf/html/index_kousei.htm" Set objIE = WScript.CreateObject("InternetExplorer.Application") If Err.Number = 0 Then objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop Count = objIE.Document.getElementsByTagName("frame").length Msgbox "対象タグは" & Count & "個" msgbox objIE.Document.frames(0).name msgbox objIE.Document.frames(1).name msgbox objIE.Document.frames(2).name msgbox objIE.Document.frames("f2_main").Document.Body.InnerText msgbox objIE.Document.frames(2).Document.Body.InnerText TextBody = objIE.Document.frames(2).Document.Body.InnerText strText = InStr(1, TextBody, FindText) If strText > 0 Then msgbox "いたいた！" Else msgbox "おーい息子さん探してきてよ" End If Else WScript.Echo " ダメ" & Err.Description End If テスト的に衆議院のページでやってみると出来るのですが・・・ 別ページ（公開は出来なくすみません・・・構成もよくわからないページです）だとどうしてもうまくいきません。 ただし、 Count = objIE.Document.getElementsByTagName("frame").length Msgbox "対象タグは" & Count & "個"でフレームの個数は拾ってくることが出来ます。 どうやら３つで構成されていることはわかりましたが、、、 フレームの名前を拾おうとするとどうしても上記のようなエラーが出ます。 どうしたらよいでしょうか？ Mon, 08 Dec 2008 23:33:19 +0900 http://knowledge.livedoor.com/37784 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 18 Dec 2008 23:38:59 +0900 http://knowledge.livedoor.com/37766 VBScriptでフォームに値を入れることを繰り返したいのですがどうもうまくいかずに悩んでいます。いい方法を教えて下さい。 指定ページを開いた後に If objIE.Document.URL = strURL Then Set objIN = objIE.Document.getElementByTagName("INPUT") objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop ElseIf objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop Else objIE.Document.URL <> strAfterLoginPage Then objIN(0).value = ID objIN(1).value = PASSWORD objIN(2).Click Do Until objIE.Busy = False WScript.sleep(250) Loop End If 以下省略 といったように1回でログインできなかった場合何度か入力するプログラムなのですが最初のElseIfの後のところで「オブジェクトがありません」となってしまいます。 ページも遷移してないのですが何故かオブジェクトがなくなってしまいます。 そういった対策をすればよいのでしょうか？ お願いします。 Sun, 07 Dec 2008 02:14:38 +0900 http://knowledge.livedoor.com/37766 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 08 Dec 2008 23:36:02 +0900 http://knowledge.livedoor.com/37765 VBScriptでIEを探す処理をして指定したサイトがあれば処理を終了させたいのですがうまくいきません。どなたかいい方法を教えていただけないでしょうか？ Dim ObjIE Dim ObjShell Dim ObjWindow Dim WinExist Dim strURL strURL = "http://www.yahoo.co.jp" WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then WinExist = True Set ObjIE = ObjWindow End If MsgBox ObjIE.LocationURL If ObjIE.LocationURL <> strURL msgbox "開いてない" Call SHORI_strat() Else msgbox "開いている" Call WriteEndLog() End If Next ・ ・ ・ ・ もしヤフーのサイトが開いていなければ色々処理を行い、開いていればログに既に開いていることをログに書いて終了させたいのですがデスクトップにいろんなページを開いてあった場合繰り返してしまいなかなか終わりません。 あまり賢いやり方ではないと思うのでいい方法に直したいです。 １．最初にヤフーがあるかどうかをまず調べる。 ２．開いていなければ処理を行い終わった時点で全て終了。 ３．もし開いていればログを書いて終了としたいのです。 今は無駄に繰り絵してしまっているのでいい方法は無いですか？ Sun, 07 Dec 2008 02:09:16 +0900 http://knowledge.livedoor.com/37765 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 07 Jan 2009 06:10:04 +0900 http://knowledge.livedoor.com/37712 VBScriptでBODY部のHTMLソースを取得したいのですが出来ない場合があって悩んでいます。 msgbox objIE.Document.Body.InnerTextというかたちで表示させています。 ほとんどのページで問題なく出来るのですが・・・・ フレームで出来ているページに関して取得が出来ません。 そういった場合どうすればよいのでしょうか？ 極論を言えば指定HTMLソースの中に文字検索が出来れば問題はないのですがソースが取得できないので検索しようがありません。 Wed, 03 Dec 2008 23:25:52 +0900 http://knowledge.livedoor.com/37712 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 08 Dec 2008 23:36:35 +0900 http://knowledge.livedoor.com/37710 VBScriptのSubとEnd Subについて教えて下さい。 下記のようなプログラムはうまくいくのですがSubで囲むと何故か動作しなくなってしまいます。 使い方が間違っているのでしょうか？ Dim LogonID Dim Password Dim URL Dim objIE Dim objINPUT Dim BodyText Dim AriNashi LogonID = "XXXXXXXX" Password = "XXXXXXXXX" URL = "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.ya..." Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.document.URL = URL Then BodyText = objIE.document.body.innerTEXT AriNashi = InStr(1, BodyText, "Yahoo") If AriNashi > 0 Then Set objINPUT = objIE.document.getElementsByTagName("input") objINPUT(0).value = LoginID objINPUT(1).value = Password objINPUT(2).Click Else msgbox "NO" End If Else WScript.Echo " ダ メ" & Err.Description End If Set objIE = Nothing Wed, 03 Dec 2008 23:14:17 +0900 http://knowledge.livedoor.com/37710 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 08 Dec 2008 23:37:00 +0900 http://knowledge.livedoor.com/37708 VBScriptで自動的にサイトログインを行うプログラムを作っています。ログイン時にエラーがあった場合の処理対策を考えていますがどうしようか悩んでいます。 Dim LogonID Dim Password Dim URL Dim objIE Dim objINPUT Dim BodyText Dim AriNashi LogonID = "XXXXXXXX" Password = "XXXXXXXXX" URL = "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.ya..." Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate URL objIE.Visible = True Do Until objIE.Busy = False WScript.sleep(250) Loop If objIE.document.URL = URL Then BodyText = objIE.document.body.innerTEXT AriNashi = InStr(1, BodyText, "Yahoo") If AriNashi > 0 Then Set objINPUT = objIE.document.getElementsByTagName("input") objINPUT(0).value = LoginID objINPUT(1).value = Password objINPUT(2).Click Else '??????????????????????????????????????????????????? '??????????????????????????????????????????????????? '??????????????????????????????????????????????????? End If Else WScript.Echo " ダ メ" & Err.Description End If Set objIE = Nothing ※タグは適当になっています。 手作業でログインするときフォームにLoginIDとPasswordを入れてクリックしたとき何らかのサーバーエラーでエラー表示になる場合と５回クリックしたときにエラーページが表示される場合があります。 そういった場合の対策はどうしたらよいでしょうか？ Wed, 03 Dec 2008 23:08:03 +0900 http://knowledge.livedoor.com/37708 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 07 Dec 2008 02:04:01 +0900 http://knowledge.livedoor.com/37669 VBスクリプトのオートログインで成功、失敗に関わらずログを出したいのですがいい方法はないでしょうか？ Set objLogin = objIE.Document.getElementsByTagName("INPUT") objLogin(0).value = ID objLogin(1).value = PASSWORD objLogin(2).click サイトにログインの可否をログに残したいのですが、どこでログの作成を入れたらよいのでしょうか？ ログを新規に作るとき月ごとにファイルを作るかと思います。 ログファイルを探す？方法はどうしたらよいでしょうか？ スクリプトを起動した瞬間に起動時間をいれログインできた時点でOKなり失敗した時点でNG入れるなんなりがあると思いますが・・・ どのようにすればよいでしょうか？ 一応下記を参考にしていますが・・・ ??http://www.happy2-island.com/vbs/cafe02/capter00204.shtml?? Sun, 30 Nov 2008 23:46:12 +0900 http://knowledge.livedoor.com/37669 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Wed, 31 Dec 2008 06:10:05 +0900 http://knowledge.livedoor.com/37668 VBSでとある条件の時に処理をやらずに終了させる方法で悩んでいます。 Dim ObjIE Dim ObjShell Dim ObjWindow Dim WinExist WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then WinExist = True Set ObjIE = ObjWindow End If Next Set ObjShell = Nothing If Not WinExist = True Then Set ObjIE = CreateObject("InternetExplorer.Application") End If ・ ・ ・ ・ 例えばこのように起動しているIEを探します そこでもしYahoo！JAPANが起動していたら以降の処理をやらずに終わらせたいのですが・・・ どのような記述にすればよいでしょうか？ Sun, 30 Nov 2008 23:40:09 +0900 http://knowledge.livedoor.com/37668 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 07 Dec 2008 02:03:13 +0900 http://knowledge.livedoor.com/37301 VBscriptをつかってHTA上で実行した結果をHTMLへ動的に表示させたいのですがうまく出来ずに悩んでおります。 一応VBの部分はちゃんと出来ていることは確認していますが表示が全くダメです。 どなたか教えて下さい。 Option Explicit Dim objAccess Dim objDB Dim objRS Set objAccess = CreateObject("Access.Application") objAccess.Visible = True objAccess.OpenCurrentDatabase("c:\happy\island.mdb") Set objDB = objAccess.CurrentDb Set objRS = objDB.OpenRecordset("SELECT COUNT(*) AS 件 FROM 住所録テーブル") WScript.echo "件数=" & objRS("件数") objRS.Close Set objRS = Nothing Set objDB = Nothing Set objAccess = Nothing 件数をWScript.echoではなくinnerhtmlで表示したいです。 またSQLを("SELECT * FROM 住所録テーブル")にした場合データをレコードセットで抽出し必要なデータを表にして表示をしたいのですが・・・（これもinnerhtmlを使いたい） Fri, 07 Nov 2008 00:36:09 +0900 http://knowledge.livedoor.com/37301 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 03 Dec 2008 23:06:20 +0900 http://knowledge.livedoor.com/36825 visual studioでy=axの２乗のグラフにするにはどのようにすればいいですか？ aの値を次の7通りに設定し、7本のグラフを重ね書きします。 a =-3,-2,-1,0,1,2,3 x軸の範囲は　-5～+5、y軸の範囲は-100～+100です。 Tue, 14 Oct 2008 12:57:35 +0900 http://knowledge.livedoor.com/36825 uiftysuftuduyted8yu VisualBasic 26391 http://knowledge.livedoor.com/profile/26391 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 14 Nov 2008 06:10:11 +0900 http://knowledge.livedoor.com/36824 visual studioで　y=2xのグラフを表すにはどのようなコマンドが必要ですか？ x軸の範囲は-100～100です。y軸は適当に。 Tue, 14 Oct 2008 12:51:33 +0900 http://knowledge.livedoor.com/36824 uiftysuftuduyted8yu VisualBasic 26391 http://knowledge.livedoor.com/profile/26391 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 14 Nov 2008 06:10:10 +0900 http://knowledge.livedoor.com/36198 VBscriptでのコマンド発行　ver.2 一応出来たものです。 どんな感じでしょうか？ でもこれで出来るんですけどやたらPC重くなりエクスプローラで「応答なし」になるんですよね・・・ なんでだろ？？？ あとFor～Next　とSleepってこんなんで大丈夫ですか？ Option Explicit On Error Resume Next Dim objWshShell Dim strCmdLine For i = 1 to 15 Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then strCmdLine = "cmd.exe /c (cd /d D:\TEST\PDSQL\) & (pdsql.exe <D:\TEST\" & " & Right("000" & CStr(i), 4)" & ".txt)" objWshShell.Exec(strCmdLine) WScript.Sleep(300000) Next If Err.Number = 0 Then WScript.Echo strCmdLine & " を起動しました。" Else WScript.Echo "エラー: " & Err.Description End If Else WScript.Echo "エラー: " & Err.Description End If Set objWshShell = Nothing Tue, 09 Sep 2008 23:44:46 +0900 http://knowledge.livedoor.com/36198 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Fri, 10 Oct 2008 06:10:08 +0900 http://knowledge.livedoor.com/36084 VBscriptでコマンドプロンプトを起動させテキストを発行させることで悩んでおります。 コマンドラインのツールを実行させそこへテキストに記述された内容を実行させたいと思っています。 Dim strCOM For i = 1 to 15 strCOM = "cmd /C C:\○○○○\△△△△.exe 'ここがわかりません 'テキストファイルを流したいのですが・・・・ 'コマンド名を仮に＠＠＠＠とします。 "＠＠＠＠ D:\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt" 'をコマンドライン上に流したいのですが・・・ Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec(strCOM) FileCopy "D:\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt", "D:\終了\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt" 'ここにSleep関数？で5分後とカウントアップにしたいのですが調べてみてもちょっと検討がつかなかったので・・・ '教えていただけないでしょうか？ Next Wed, 03 Sep 2008 23:05:33 +0900 http://knowledge.livedoor.com/36084 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 04 Oct 2008 06:10:12 +0900 http://knowledge.livedoor.com/36065 VBscriptでうまいことテキストにあるコマンドを発行できません。 文が全然違う気がしてきて・・・・ Dim strCOM For i = 1 to 15 strCOM = "cmd /C cd /d D:\HEPPOKO & Format("0000", i) & .txt" Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("strCOM ") DドライブにあるHEPPOKO0001.txt～HEPPOKO0015.txtを順次展開したいのですが・・・ どなたかご指示ください。 Tue, 02 Sep 2008 22:38:35 +0900 http://knowledge.livedoor.com/36065 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Fri, 12 Sep 2008 06:54:25 +0900 http://knowledge.livedoor.com/34699 VBAで稼働日を求めたい件についてお世話になっております。 http://knowledge.livedoor.com/34674 ちょっと要件を変えて３稼働日前を出したいのですがうまくいきません。 ３稼働日前がでるつもりで計算をしているのですが何故か3稼働日以上マイナスしてしまっています。 また閏年の所を空欄にしているのですが空欄にしてしまうためおかしくなってしまいます。 どなたかご教示ください。 下記に作ったファイルをアップしてあります。 http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bcNR4HbBuvqy__Ra&.dir=/&.dnm=6.14.xls&.src=bc Private Sub CommandButton2_Click() Dim Count As Integer Dim k As Long Dim n As Long n = 12 Do While Cells(n, 7) <> "" k = DateDiff("d", Range("D12"), Cells(n, 7)) - 2 Count = 0 Do If Cells(k, 6) <> "休" Then Count = Count + 1 If Count = 3 Then If IsDate(Cells(k, 7)) Then Cells(n, 8) = Cells(k, 4) End If Exit Do End If End If k = k + 1 Loop n = n + 1 Loop End Sub Sat, 14 Jun 2008 17:48:49 +0900 http://knowledge.livedoor.com/34699 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 0 Tue, 15 Jul 2008 06:10:07 +0900 http://knowledge.livedoor.com/34674 VBAで稼働日を求めたいのですがうまく出来ずに困っています。 A列：日付2008/1/1～2009/3/31まで入っています。 B列：『休』とお休みに該当した日をいれます。(土日とは限らない) 例として1月1日(A1セル)が休みとしたらB1セルに『休』と入れお休み表にします。 C列：適当な日を手入力します。(規則性は全く無し) D列：C列の3稼働日後を入れたいです。 AやB列からどうスキャンし3稼働日後を出したらよいのか… 説明だと分かりづらいかもしれませんのでこんな感じの結果を得たいエクセルがあるので見ていただいた方が分かるかとも思います。 どなたかヒントでもあれば教えて下さい。 お願いします。 http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bclxRHbB_q.izEUN&.dir=/&.dnm=%b2%d4%c6%af%c6%fc.xls&.src=bc Thu, 12 Jun 2008 22:23:08 +0900 http://knowledge.livedoor.com/34674 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sat, 14 Jun 2008 17:46:02 +0900 http://knowledge.livedoor.com/34644 VBAでDateaddの日付計算で困っていることがあるので助けていただけないでしょうか｡よろしくお願いします｡ シート： A列には”注射”という文字を入れるようにします。 B列には1月1日から12月31日まで入っています。 C列はB列の90日後を入れるようにします。 D列はC列の3日前を入れます。・・・としたいのですがその3日の間A列に”注射”が入っていたらその日を入れずに3日前にしたいのです。 稼働日みたいな感じでしょうか・・・・ どうしたらよいでしょうか？お願いします。 例えば、B列の「1月1日」の90日後はC列「3月31日」でD列は通常「3月28日」が入っていますがB列「3月30日」の左のA列に”注射”があったらそこを無視して「3月27日」と入れたいのです。 Sub count() Dim i As Long Dim lastrow As Long lastrow = Range("B1").End(xlDown).Row For i = 1 To lastrow Cells(i, 3).Value = DateAdd("d", 90, Cells(i, 2).Value) Next For i = 1 To lastrow Cells(i, 4).Value = DateAdd("d", -3, Cells(i, 3).Value) Next End Sub 説明が下手なのでもしよかったら実際作ったものを見ていただいた方が分かるかもしれません。 http://briefcase.yahoo.co.jp/bc/robert_kubica_bmw/vwp2?.tok=bcf8oGbB4FXgt88k&.dir=/&.dnm=1count.xls&.src=bc Tue, 10 Jun 2008 23:25:36 +0900 http://knowledge.livedoor.com/34644 mr-r00 VisualBasic 27006 http://knowledge.livedoor.com/profile/27006 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 17 Jun 2008 22:38:01 +0900 http://knowledge.livedoor.com/34209 シートコピーのVBAでもっと早くならないか考えております。どなたか見てください Private Sub ShtCopy1(土井シート, yr) Shtname1 = 土井シート.Name & yr 'あれば作らない For Each Sht1 In Worksheets If Sht1.Name = Shtname1 Then Exit Sub Next '無ければ作る 土井シート.Copy Before:=土井シート ActiveSheet.Name = Shtname1 End Sub Private Sub ShtCopy2(井戸シート, yr) Shtname2 = 井戸シート.Name & yr 'あれば作らない For Each Sht2 In Worksheets If Sht2.Name = Shtname2 Then Exit Sub Next '無ければ作る 井戸シート.Copy Before:=井戸シート ActiveSheet.Name = Shtname2 End Sub Sub シート作成() Set Org土井 = Worksheets("土井") Call ShtCopy1(Org土井, Year(Date) - 2) Call ShtCopy1(Org土井, Year(Date) - 1) Call ShtCopy1(Org土井, Year(Date)) Call ShtCopy1(Org土井, Year(Date) + 1) Set Org井戸 = Worksheets("井戸") Call ShtCopy2(Org井戸, Year(Date) - 2) Call ShtCopy2(Org井戸, Year(Date) - 1) Call ShtCopy2(Org井戸, Year(Date)) Call ShtCopy2(Org井戸, Year(Date) + 1) '不要シートの削除 For Each Sht1 In Worksheets If Sht1.Name = ("土井") & (Year(Date) - 3) Then Application.DisplayAlerts = False Sht1.Delete Application.DisplayAlerts = True End If Next For Each Sht2 In Worksheets If Sht2.Name = ("井戸") & (Year(Date) - 3) Then Application.DisplayAlerts = False Sht2.Delete Application.DisplayAlerts = True End If Next Sun, 18 May 2008 21:05:54 +0900 http://knowledge.livedoor.com/34209 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 18 Jun 2008 06:10:07 +0900 http://knowledge.livedoor.com/34075 Excelのシート上でアクティブセルを色付けする方法で悩んでおります。 以前は教えていただき有難うございました。 http://knowledge.livedoor.com/33038 これを応用してなのですがシートに１年分のカレンダー（自宅にある壁掛けカレンダーのような形式で）が入力されているとします。 1月1日に開くと１に色がついている状態にしたいのです。 また、それを自由に動かしてアクティブセルに色をつけれたらうれしいです。 こんなのは出来ますでしょうか？ Sun, 11 May 2008 08:00:03 +0900 http://knowledge.livedoor.com/34075 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Wed, 11 Jun 2008 06:10:04 +0900 http://knowledge.livedoor.com/33664 VBAでアクティブセルを日付の位置に動かしたいと思っています。 1枚のシートに1年分の壁掛けカレンダーのようなものを作成してあります。 例： ２００７ ４ １　　２　　３　　４　　５　　６　　７ ８　　９　　10　　11　　12　　13　　14 15　　16　　17　　18　　19　　20　　21 22　　23　　24　　25　　26　　27　　28 29　　30 こうやって年月日がバラバラになっているのですが今日の日付の部分のセルを アクティブにすることは可能なのでしょうか？ Sat, 19 Apr 2008 15:36:04 +0900 http://knowledge.livedoor.com/33664 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 29 Apr 2008 12:25:48 +0900 http://knowledge.livedoor.com/33662 VBAでシートコピー時に時間がやたらと時間がかかるようになってしまいました。 http://knowledge.livedoor.com/33535でお世話になってこの問題点について解決しましたがシートのコピーが2倍くらいになってしまいました。 このやり方は変えたくないのですがシートコピーの時間の短縮を図りたいです。 現在自動再計算や画面更新は停止してはあります。 Sat, 19 Apr 2008 15:25:44 +0900 http://knowledge.livedoor.com/33662 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Tue, 29 Apr 2008 12:25:22 +0900 http://knowledge.livedoor.com/33535 VBAでシートコピー時の使い勝手で悩んでします。 営業で販売実績などに関わる資料をVBAで作成しのですが、わかりづらいので修正したいためアドバイスなどいただけないでしょうか。 まずどんなものを作成したかといいますと四半期ごとにある販売実績報告会議での資料作成用Bookです。 ●シートのトップはただのシート作成ボタンがあるページです。 （実績作成TOP）という名のシート ●シート2枚目は各ページにいけるように目次のページです。 （シート選択）という名のシート ●シート3枚目は実績入力の”テンプレート”です。 （実績入力）という名のシート ●シート4枚目は上司提出用の”テンプレート”です。 （実績報告）という名のシート 使い方として例えば今月4月に「実績作成TOP」にあるコマンドボタンを押すこ とで「シート選択」に「200801実績入力」「200802実績入力」「200803実績入 力」「200801実績報告」「200802実績報告」」「200803実績報告」のハイパー リンクを作成します。 それと同時に上記の名前のシートをテンプレートよりコピーをし名前を振りま す。 その後入力の使い方として1月のもので説明しますと「200801実績入力」でデ ータを入力した後シート上に”決定”ボタンを押します。そうするとシートに ロックがかかり編集できないようにします。それと同時に「シート選択」に遷 移させます。その後「200801実績報告」を作成するのですが、こちらは各人で リンクで飛んでもらうという風にしています。 ここに使用者から改善してもらえないかというお話をいただきました。 今は作業工程として 「実績作成TOP」→「シート選択」→「200801実績入力」→「シート選択」→ 「200801実績報告」としないとひとつきの作業を終えれないのですが、 「実績作成TOP」→「シート選択」→「200801実績入力」→「200801実績報告 」としてほしいとのことです。 最初の段階で私もそうしたかったのですがどうしてもわからず「シート選択を 」作るで回避してしまったのですがどうしても不満が出てしまいました。 テンプレートに最初からハイパーリンクを埋め込んでもシートに飛べないしというところで問題もあります。 もし作るとしたらシートをコピーすると同時に」→「200801実績入力」→「200801実績報告」へのハイパーリンクを書くということになると思うのですが同時にできるかわからずじまいでした Sat, 12 Apr 2008 12:12:29 +0900 http://knowledge.livedoor.com/33535 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 19 Apr 2008 15:23:16 +0900 http://knowledge.livedoor.com/33382 VBAでシートのコピーをしておりますが再計算が重く回避したのですがその後の計算をどうしようか悩んでいますのでどなたかご教示ください。 数式などはいったシートのコピーは重いので計算をしないようにコピーで回避 はしています。 そこで自動計算はしてくれなくなるのでシートを使いたいとき「F9」を押すか 「ツール→オプション」で再計算させるわけですが”そういうこと”を知らな いユーザーが使うこともあることを考えどこかで自動計算を一時的に使えるよ うにすべきかなと考えてはおります。 初心者が「使いやすい」ということを考えたとき皆さんはどんな処理をするこ とを考えますか？ボキャブラリがどうしても足りないので皆さんの意見や経験 をヒントにしたいと思っていますのでお願いします。 条件は、 １．数式入りシートを何枚もコピーしている ２．ユーザーが特に計算の操作をしないで済む ３．使うシートだけ計算させればよいかもしれない（アクティブシート？） ４．シートは印刷したいので極力ボタンの表示などは避けたい ５．コマンドぼっくすは見栄えが良くないので避けたい Mon, 07 Apr 2008 23:06:41 +0900 http://knowledge.livedoor.com/33382 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 12 Apr 2008 11:02:44 +0900 http://knowledge.livedoor.com/33352 シートコピーで失敗をしています。どうかご教示いただけないでしょうか？ 説明を箇条書きにさせていただきます。 ・シート名は西暦からの取得・2年分作る ・去年のシートは自動削除・シートが削除されるまで何故かシートを作ってくれない。 このマクロを起動するとシートを望んだとおり変数入りシートをコピーしてくれますがシステム日付を1年増やすと何故か作ってくれなくなっていしまいます。 Sub copySheet() Dim sheetNY As Worksheet Dim sheetTY As Worksheet 　 Dim SNameNY As String Dim SNameTY As String Dim rainen As Integer Dim kotoshi As Integer Dim Found As Boolean Found = False rainen = Year(Date) + 1 kotoshi = Year(Date) '来年用シート作成 SNameNY = "土井" & rainen For Each SheetNY In Worksheets If SheetNY.Name = SNameNY Then Found = True Exit For End If Next If Found = False Then Set SheetNY = Worksheets("土井") SheetNY.Copy Before:=SheetNY ActiveSheet.Name = SNameNY End If '今年用シート作成 SNameTY = "土井" & kotoshi For Each SheetTY In Worksheets If SheetTY.Name = SNameTY Then Found = True Exit For End If Next If Found = False Then Set SheetTY = Worksheets("土井") SheetTY.Copy Before:=SheetTY ActiveSheet.Name = SNameTY End If '去年のシート削除 Dim Sheet3 As Worksheet Dim SName3 As String Dim kyonen As Integer kyonen = Year(Date) - 1 SName3 = ("土井" & kyonen) Application.DisplayAlerts = False For Each Sheet3 In Worksheets If InStr(Sheet3.Name, SName3) <> 0 Then Sheet3.Delete End If Next Sun, 06 Apr 2008 22:48:38 +0900 http://knowledge.livedoor.com/33352 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Mon, 07 Apr 2008 23:07:26 +0900 http://knowledge.livedoor.com/33237 VBAである規則性があるコードがあるのですがうまく出来ません。どなたかお願いします。 Worksheet("test" & TY).Cells(1, 6).name ="DD" & TY & "0101" Worksheet("test" & TY).Cells(2, 6).name ="DD" & TY & "0102" Worksheet("test" & TY).Cells(3, 6).name ="DD" & TY & "0103" Worksheet("test" & TY).Cells(4, 6).name ="DD" & TY & "0104" Worksheet("test" & TY).Cells(5, 6).name ="DD" & TY & "0105" 最後の0101とかは日付に近い形にしたいのですがここをどうスマートなコーディングをしたらいいか迷っています。 フォーマットの関係で出来るだけ日付型は避けたいです。連続でセルに名前をふりたいのでお願いします。 Thu, 03 Apr 2008 01:00:51 +0900 http://knowledge.livedoor.com/33237 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Thu, 03 Apr 2008 22:40:38 +0900 http://knowledge.livedoor.com/33037 VBAでハイパーリンクを作ることについて教えていただけないでしょうか？ シートの枚数が多いので一枚”目次”的なセルを用意してそこからすぐに目的のセルにいけるようにしたいのですがどうしたらよいでしょうか？ ホームページなどでURLを貼るものを見てためしにやってみたのですがどれもただのコピペなのに何故か実行されませんでした。。。それを改変してみたりしたのですが結局うまくいかず悩んでいます。 どなたかヒントをいただけますでしょうか？お願いします。 Wed, 26 Mar 2008 23:30:24 +0900 http://knowledge.livedoor.com/33037 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 30 Mar 2008 11:36:55 +0900 http://knowledge.livedoor.com/32981 VBAについて困っています。下記コードで日付の後ろ倒しと前倒しデータの取得のもの作っています。 Dim lastRow As Long Dim firstrow As Long Sub testだよ() Dim i As Long Dim j As Long lastRow = Range("C12").End(xlDown).Row firstrow = Range("C12").End(xlUp).Row '原則26日後に期限 For i = 12 To lastRow Cells(i, 9).Value = DateAdd("d", 26, Cells(i, 3).Value) Next 'が休日の場合 For i = 12 To lastRow If Cells(i, 6).Value = "★" Then Call delay(Cells(i, 3).Value) End If Next For i = 12 To lastRow If Cells(i, 7).Value = "★" Then Call moveup(Cells(i, 3).Value) End If Next End Sub Function delay(dd As Long) Dim i As Long For i = 12 To lastRow If Cells(i, 8).Value = dd Then Cells(i, 8).Value = DateAdd("d", 1, Cells(i, 8).Value) End If Next For i = 12 To lastRow If Cells(i, 10).Value = dd Then Cells(i, 10).Value = DateAdd("d", 1, Cells(i, 10).Value) End If Next For i = 12 To lastRow If Cells(i, 12).Value = dd Then Cells(i, 12).Value = DateAdd("d", 1, Cells(i, 12).Value) End If Next End Function ここからに問題があります。 Function moveup(md As Long) Dim i As Long For i = 12 To lastRow If Cells(i, 9).Value = md Then Cells(i, 9).Value = DateAdd("d", -1, Cells(i, 9).Value) End If Next For i = 12 To lastRow If Cells(i, 11).Value = md Then Cells(i, 11).Value = DateAdd("d", -1, Cells(i, 11).Value) End If Next For i = 12 To lastRow If Cells(i, 13).Value = md Then Cells(i, 13).Value = DateAdd("d", -1, Cells(i, 13).Value) End If Next End Function どうしても複数星が入っていると前倒ししていかないのです。どなたか助けてください。 Mon, 24 Mar 2008 01:52:06 +0900 http://knowledge.livedoor.com/32981 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 30 Mar 2008 11:35:10 +0900 http://knowledge.livedoor.com/32854 VBAでちょっと悩んでいることがあるので教えて下さい。大学の研究データの処理でイレギュラーがあるのでうまくやりたいのですがお願いします。 とある実験結果をエクセルで保存しているのですがデータが「超大量」のため効率的に処理したいのですが・・・ まず基本的に実験したら５日後にデータを回収しています。データを入力するに当たって一部自動化したいことが念頭にあります。データ処理の例として： ・A1セルからG1セルまで研究データ処理開始日の日付「2008/3/1～7」が既存で入ってます。 ・A3セルからG3セルまでは5日後の日付が入るようにしたいです。 ・基本は5日で終わるのですが中には前後２，３日くらいずれるものがあります。その結果が肝心なのでしっかり記録したいのです。 ・A2セルからG3セルは研究処理失敗記録用です。 例えば＊2008/3/1に始め2008/3/6に終わるところエラーが出たのでF2セルへはイレギュラーの「E」かチェッカーボックス（なんか横に文字が入るから好きじゃないけど）を入れます。 そうするとA3セルでは2008/3/7が出るようにしたいのですが分岐がうまくわかりません・・・・ あとソースを下記に書きましたが日付の横に曜日がうまくつきません 確かこういうweekday関数で大丈夫と思ったはずですが何故か？？？申し訳ありませんがどんな方法をとればいいかわかりません。ご指導よろしくお願いします。 Dim vntEnd As Variant Dim vnt5days As Variant Dim vntWeekday As Variant ’もし5日後のセルの下にEが入っていれば日付を一日ずらす？？ ’こんな方法なんかとも思いますが・・・ vntEnd = 5 vnt5days = DateAdd("d", vntEnd, Range("A1")) vntWeekday = WeekDay(vnt5days) Range("A3") = vnt5days & vntWeekday Wed, 19 Mar 2008 00:24:31 +0900 http://knowledge.livedoor.com/32854 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sat, 22 Mar 2008 21:27:46 +0900 http://knowledge.livedoor.com/32827 VBAの処理でボタン＆リンクを作るにはどうすればよいのでしょうか？ 3月3日にシート１にあるボタンを押したときにシート２のA1に3月1日の 日付が入ったボタン、B1に3月2日の日付が入ったボタン・・・・E1に3月5日の 日付が入ったボタンを作ります。 また同時に3月1日から5日までのシートも作ります。 その処理が終わったらシート２で日付のボタンを押せばそれぞれのシートへ飛べるようリンクを入れたいのです。 そして翌日（３月４日）シート１のボタンを押すと3月1日のボタンとシートは 削除されシート２はA1に3月2日のボタンB1に3月3日のボタン・・・・E1に3月6 日のボタンというように位置を移動させます。 もちろんそれぞれの日付のシートの中身は保持したままでです。 このような技術は難解すぎますでしょうか？ ご提示いただけたらうれしいです。 Mon, 17 Mar 2008 23:41:29 +0900 http://knowledge.livedoor.com/32827 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 30 Mar 2008 11:37:22 +0900 http://knowledge.livedoor.com/32825 VBAでWORKDAY関数が使えない場合はどうすればよいでしょうか？ 仕事上の取引先との納品とかの都合上で業務効率化のためにエクセルでいろい ろツール作りをしているのですが困っているので教えて下さい。 日付が縦列に入っているセルがあるのですが西暦、月、日、曜日は全て別々の セルに入っております。（例：セルA1に西暦、セルA2に月、セルA3～A34まで 日、セルB3～B34は曜日） セルC列は空白（後で理由を示します） セルD列には納品日のを表示する７稼働日後の西暦＆月日＆曜日を入れたいで す。 WORKDAY関数を使えばよいかとも思うのですが、取引先にも確認用で配る、社 内でもPCに疎い人がいる、私自身アドインがよくわからないですし上司にむや みやたらに取引先PCにインストールを促すのはよくないということで却下され ています。 良い方法はないでしょうか？ヒントをいただければと思います。 また、セルA1の西暦は別シートのVBA処理から引っ張ってきています。また、 曜日は=TEXT($A$1・・・・"aaa")で得てしまっていますが・・・ 空白C列には商品在庫が確認できた時にOKを入れる欄です。 OKを入れるとD列の納品日が入ればよいです。 皆様よろしくお願いいたします。 Mon, 17 Mar 2008 23:31:03 +0900 http://knowledge.livedoor.com/32825 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 3 Sat, 22 Mar 2008 21:27:08 +0900 http://knowledge.livedoor.com/32730 VBAで質問ですSheet1で コマンドボタンを押すとSheet2のあるセルへコマンドボタンを作成する方法を知りたいのですがどうしたらよいでしょうか？ Fri, 14 Mar 2008 00:07:49 +0900 http://knowledge.livedoor.com/32730 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sun, 16 Mar 2008 00:42:20 +0900 http://knowledge.livedoor.com/32364 VBスクリプトでファイルを生成するソースを書いたのですがそれをバッチで実行するようにしてありますが 例えばPCが起動していなく実行できなかった場合次回実行時に「もしこの名前のファイルがなかったら先に作るはずだったファイルを作る」といったようなのが欲しいと思っております。 こういうのはプログラムで先にファイル検索をさせて無かったら作るといった感じになるのでしょうか？ ファイル検索をさせるVBSはFileSystemObjectを使う方法になる以外に無いでしょうか？ （ウイルスソフトが反応するため・・・・・） まだこの手の記述方法がわからないのでネットでサンプルを探したのですがなかったのでご存知の方ヒントをいただけないでしょうか？ よろしくお願いします。 例：VBSCRIPTを1月にタスク実行でAAA1.ｔｘｔを作成。 2月にこのタスクを実行したとき先にAAA1.ｔｘｔがあるかを確認してあればAAA2.ｔｘｔを作る。 もし無ければAAA1.ｔｘｔを作る条件を当てはめ作ってからAAA2.ｔｘｔを作る。 Wed, 27 Feb 2008 00:27:55 +0900 http://knowledge.livedoor.com/32364 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Mon, 03 Mar 2008 00:23:57 +0900 http://knowledge.livedoor.com/32336 VBscriptでの質問です。出来上がったソースとかを見ると段々右に文字がずれていくように作っていらっしゃる方がいますがあれはどういった意味合いなのでしょうか？ 僕自身が作ったものは左寄せになっています。 もちろんその状態で動くので問題は無いかと思うのですがどうなんでしょう？ あとファイルを作成するものをタスクで定期的に実行するものだったとき万が一前回実行失敗に備えて次回実行でカバーするようなものを書くべきなのでしょうか？ （繰り返し処理についてはどう書いたらよいのかまったくわからない状態ではあるのですが・・・） Tue, 26 Feb 2008 00:14:31 +0900 http://knowledge.livedoor.com/32336 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Tue, 26 Feb 2008 23:36:53 +0900 http://knowledge.livedoor.com/32278 VB Scriptに詳しい方がいらっしゃいましたらお尋ねします。日付関数で取得したもの... VB Scriptに詳しい方がいらっしゃいましたらお尋ねします。日付関数で取得したものをソースに含めることは可能でしょうか？ 日付計算をして出したもの（yyyymm)★印と★印の間に代入したいのですがうまく出来ません 初歩の初歩かもしれませんがやり方かまちがっていますでしょうか？ 教えて下さい お願いします。 Dim oLogQuery Dim oEVTInputFormat Dim oCSVOutputFormat Dim strQuery Dim b Dim yyyymm b=DateAdd("M",-1,Now) yyyymm=Year(b)*100+Month(b) Set oLogQuery = CreateObject("MSUtil.LogQuery") ' 入力形式オブジェクトを作成します。 Set oEVTInputFormat = CreateObject("MSUtil.LogQuery.EventLogInputFormat") oEVTInputFormat.direction = "BW" ' 出力形式オブジェクトを作成します。 Set oCSVOutputFormat = CreateObject("MSUtil.LogQuery.CSVOutputFormat") oCSVOutputFormat.tabs = TRUE ' クエリ テキストを作成します。 strQuery = "SELECT TimeGenerated, EventID INTO C:\output%★yyyymm★%.csv FROM System" strQuery = strQuery & " WHERE SourceName = 'Application Popup'" ' クエリを実行します。 oLogQuery.ExecuteBatch strQuery, oEVTInputFormat, oCSVOutputFormat Sat, 23 Feb 2008 01:14:14 +0900 http://knowledge.livedoor.com/32278 mr_r00 VisualBasic 25393 http://knowledge.livedoor.com/profile/25393 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 2 Sun, 24 Feb 2008 15:37:39 +0900 http://knowledge.livedoor.com/32047 ビスタ上動くエクセル２００７を使い株価のデータを自動取得する際の問題点について エクセル２００７のWEBクエリを用いてヤフーの株価時系列データを自動でダウンロードできるでしょうか？ XP上のエクセル２００３のWEBクエリなら問題なくできますが、パソコンを買い換えた場合現状では全てのパソコンがビスタになっているようなので２００７のWEBクエリが使えるかどうかは大きな問題です。 Sun, 10 Feb 2008 22:43:13 +0900 http://knowledge.livedoor.com/32047 ATR VisualBasic 22239 http://knowledge.livedoor.com/profile/22239 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Sat, 16 Feb 2008 09:56:22 +0900 http://knowledge.livedoor.com/13818 VBとVB.NETの互換性について 今学校でVB6．0を使う課題があります。 しかし、僕のＰＣにはVisualStudio2005しかないため、VBでも.NETの開発環境しかありません。 もしもVBとVB.NETに高い互換性があるのであれば、このまま.NETで作ってしまおうかとも思っておりますが、互換性はどの程度あるものなのでしょうか？？？ Thu, 21 Sep 2006 01:41:12 +0900 http://knowledge.livedoor.com/13818 よーすけ VisualBasic 10067 http://knowledge.livedoor.com/profile/10067 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 1 Thu, 21 Sep 2006 15:38:26 +0900 http://knowledge.livedoor.com/7505 表計算ソフトでのプログラムについて。 表計算ソフトでax^2+bx+c=0を満たす x を求める表を作成する方法を教えていただけないでしょうか？ 入力 a、b、c がどのような値(0を含む) になっても正しい値が出るようにしないといけないみたいです。 解は実数のみを考えても、複素数を考慮しても良いです。 宜しくお願いします。 Sun, 28 May 2006 23:48:14 +0900 http://knowledge.livedoor.com/7505 pig_tyappy VisualBasic 7496 http://knowledge.livedoor.com/profile/7496 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif 4 Mon, 05 Jun 2006 02:05:41 +0900