ja-jp http://knowledge.livedoor.com/rss/tag/VBA Wed, 09 Dec 2009 09:21:15 +0900 Sat, 14 Jun 2008 17:48:49 +0900 http://knowledge.livedoor.com/ livedoor knowledge - VBA Copyright 1996- livedoor Co.,Ltd. http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com 43 43 15 1 15 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/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/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/33127 条件付書式で悩みがあります。カレンダーを作っていますが今日の日付に該当した場合そのセルを指定したいのですがうまくいきません。 下記のサイトにあるカレンダーをベースに万年カレンダーを作っております。 http://www.atmarkit.co.jp/fwin2k/win2ktips/291autoclndr/autoclndr.html 先日教わった（回答してくださった皆様有難うございます。　http://knowledge.livedoor.com/33038）セルの一時的配色を用いて条件付書式で=DATE($B$2,$B$3,B7)=TODAY()で何も条件をつけなければセルが該当日に移動しているはずと思うのですが出来ません。なぜでしょうか。。。。 Sun, 30 Mar 2008 12:14:33 +0900 http://knowledge.livedoor.com/33127 mr_r00 オフィスソフト 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 15:29:19 +0900 http://knowledge.livedoor.com/33038 エクセルでセルを半透明着色処理にする方法はありますでしょうか？ ご存知でしたら教えて下さい。通常Excelのセルを選択したらセルの周りが濃くなるだけかと思うのですがそれを半透明の灰色に変更することは出来ないでしょうか？ またセルにデフォルトで日付が入っていて今日の日付だったらその部分を自動で上記のような処理にすることは可能でしょうか？ Wed, 26 Mar 2008 23:42:52 +0900 http://knowledge.livedoor.com/33038 mr_r00 オフィスソフト 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 Thu, 03 Apr 2008 22:37:28 +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/32456 マイクロソフト　製品の手に入れ方で質問です。 PCの調子が悪く仕方なくリカバリーをかけました。リカバリーが成功して問題なく使えるようになったのですが・・・ PCにはもともとプリインでExcel2002など入っていたのですが・・・・CDをなくしてしまいました。 ずっと昔にあった97を今使っていますがどうしても会社のPCと同じ環境にしたいので2002には上げたいのですが買うしか方法は無いのでしょうか？ VBAを使う上で変わっている箇所が無ければよいですが私の記憶ではかなり変わっていたように思います。 どなたかいい方法がございましたらお願いします。 Sat, 01 Mar 2008 15:35:10 +0900 http://knowledge.livedoor.com/32456 mr_r00 オフィスソフト 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, 13 Mar 2008 23:51:29 +0900 http://knowledge.livedoor.com/32454 マイクロソフト製品の手に入れ方で質問です。 PCの調子が悪く仕方なくリカバリーをかけました。リカバリーが成功して問題なく使えるようになったのですが・・・ PCにはもともとプリインでExcel2002など入っていたのですが・・・・CDをなくしてしまいました。 ずっと昔にあった97を今使っていますがどうしても会社のPCと同じ環境にしたいので2002には上げたいのですが買うしか方法は無いのでしょうか？ VBAを使う上で変わっている箇所が無ければよいですが私の記憶ではかなり変わっていたように思います。 どなたかいい方法がございましたらお願いします。 Sat, 01 Mar 2008 15:29:10 +0900 http://knowledge.livedoor.com/32454 mr_r00 Windows 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, 13 Mar 2008 23:51:44 +0900