ja-jp http://knowledge.livedoor.com/category/101006007 Fri, 22 Aug 2008 11:54:17 +0900 Sat, 14 Jun 2008 17:48:49 +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/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