ja-jp http://knowledge.livedoor.com/profile/21727 Sun, 21 Sep 2008 11:44:32 +0900 Sat, 14 Jun 2008 11:25:38 +0900 http://knowledge.livedoor.com/ livedoor knowledge - user - Lode_Runner Copyright 1996- livedoor Co.,Ltd. http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com 43 43 http://knowledge.livedoor.com/34644#answer96751 Option Explicit Sub count() Dim r As Long, LastRow As Long, FoundRow As Long Dim d As Date LastRow = Range("B1").End(xlDown).Row For r = 1 To LastRow Cells(r, 3).Value = DateAdd("d", 90, Cells(r, 2).Value) Next For r = 1 To LastRow d = Cells(r, 3).Value FoundRow = F_SearchRow(d) If FoundRow = 0 Then '見つからなかっら場合の処理を記述。 '常に見つかるように日付は余裕を持って記述した方が良いでしょう。 '本当は行の切れ目の日付判定が必要なのですが、単純に３日前を入れておきます。 Cells(r, 4).Value = DateAdd("d", -3, d) Stop '←とりあえず、Stopをかけときます。 Else Cells(r, 4).Value = F_3kkamae(FoundRow) End If Next End Sub Function F_SearchRow(d As Date) As Long Dim r As Long For r = 1 To Range("B1").End(xlDown).Row If Cells(r, 2).Value = d Then F_SearchRow = r Exit Function End If Next F_SearchRow = 0 '見つからなかったら0 End Function Function F_3kkamae(FoundRow As Long) As Variant Dim r As Long, ct As Integer ct = 0 For r = (FoundRow - 1) To 1 Step -1 If Cells(r, 1).Value <> "注射" Then ct = ct + 1 If ct = 3 Then F_3kkamae = Cells(r, 2).Value Exit Function End If End If Next F_3kkamae = "？？？" End Function Sat, 14 Jun 2008 11:25:38 +0900 http://knowledge.livedoor.com/34644#answer96751 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 http://knowledge.livedoor.com/34674#answer96748 Option Explicit Sub Macro1() Dim r As Long, FoundRow As Long Dim d As Variant For r = 2 To Cells(65536, 3).End(xlUp).Row d = Cells(r, 3).Value If IsDate(d) Then '日付だったら FoundRow = F_SearchRow(Cells(r, 3).Value) If FoundRow > 0 Then Cells(r, 4).Value = F_Search3Kadoubigo(FoundRow) End If End If Next End Sub Function F_SearchRow(d As Date) As Long Dim r As Long For r = 2 To Cells(65536, 1).End(xlUp).Row If d = Cells(r, 1).Value Then F_SearchRow = r Exit Function End If Next r = 0 '該当日付がなかったら0 End Function Function F_Search3Kadoubigo(wRow As Long) As Variant Dim r As Long, ct As Integer ct = 0 For r = wRow To Cells(65536, 1).End(xlUp).Row If Cells(r, 2).Value <> "休" Then ct = ct + 1 If ct = 3 Then '3稼働日後を探せたら抜ける F_Search3Kadoubigo = Cells(r, 1).Value Exit Function End If End If Next F_Search3Kadoubigo = "３日後不明" End Function rem 2/11の３稼働日後は、2/18じゃなくて2/15ですよね？？？ Sat, 14 Jun 2008 10:17:05 +0900 http://knowledge.livedoor.com/34674#answer96748 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 http://knowledge.livedoor.com/34209#answer95974 １．CALLを全て外す。 　　プロシージャ名だけで、呼び出せるので 　　外す。 CALL文の解釈をしなくて済むので。 ２．何回も出てくる文は、まとめる。 　　具体的には、Year(Date) は、事前にyyyy 　　などの変数に代入しておいて、 　　yyyy-2,yyyy-1,yyyy,yyyy+1を使う。 year関数の解釈をせず、変数を参照させる。 ３．Application.DisplayAlerts = Trueは、外す。 　　マクロが終了すれば、自動的にTrueになります。 Wed, 28 May 2008 11:40:11 +0900 http://knowledge.livedoor.com/34209#answer95974 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 http://knowledge.livedoor.com/34075#answer95739 >1月1日に開くと１に色がついている状態にしたい セルを全て調べて、該当すれば書式を変えるというマクロで！ >自由に動かしてアクティブセルに色 標準モジュールではなく、Sheetのところに直接記述。 以前のより、改良しました。 Option Explicit Dim r As Integer, c As Integer Dim wAddress As String, wColor As Variant Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.CutCopyMode = xlCopy Then Exit Sub If wColor <> Empty Then 'Emptyの時は、r=0:c=0でも実行されないのでエラーにならない Cells(r, c).Interior.ColorIndex = wColor 'xlNone'←無色にする場合 End If r = ActiveCell.Row c = ActiveCell.Column wColor = Cells(r, c).Interior.ColorIndex Cells(r, c).Interior.ColorIndex = 38 End Sub Thu, 22 May 2008 22:36:05 +0900 http://knowledge.livedoor.com/34075#answer95739 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 http://knowledge.livedoor.com/34241#answer95695 ちと古い記事ですが http://www.da-cha.jp/?q=node/232 Sunの側のアドインで可能かも。 でも再現性はどうなのかなぁ… Wed, 21 May 2008 08:14:57 +0900 http://knowledge.livedoor.com/34241#answer95695 bozzetto オフィスソフト 24307 http://knowledge.livedoor.com/profile/24307 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/34119#answer95535 クセロは、シリアル登録をしろ！とか、広告がうっとおしいので、アンインストールして、PrimoPDFを使っています。 無料ですし、リンクもちゃんと再現されます。 ダウンロードは、以下からどうぞ。 http://www.xlsoft.com/jp/products/primopdf/ Sat, 17 May 2008 06:12:28 +0900 http://knowledge.livedoor.com/34119#answer95535 ポストペット オフィスソフト 26663 http://knowledge.livedoor.com/profile/26663 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/34159#answer95493 テキストボックスの回転は出来ません。 回転関係は、グレィアウトしていて設定できないようになっています。 テキストボックスではなく、図形の四角形などを書いて、右クリックし「テキストの追加」で文字を挿入でき、図形の回転も出来ますが、中の文字は回転せずそのままです。 文字も回転させるには、画像として扱うか、挿入→図→ワードアートなどをシートに挿入してください。 Fri, 16 May 2008 12:34:03 +0900 http://knowledge.livedoor.com/34159#answer95493 kou87 オフィスソフト 26692 http://knowledge.livedoor.com/profile/26692 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33813#answer94779 MailWasherPro（シェアウエア） http://www.altech-ads.com/product/10003317.htm 【返送】 不要なメールをスパム送信者へ返送し、あたかもあなたのEメールアドレスが有効ではないように見せかけます。 を使っていましたが、やめました。 送信メールアドレスを偽っていることが多く、そのメールアドレスにエラーメールとして返信しても、業者は屁とも思わないようです。 昔の迷惑メール業者は、エラーメールで戻ってきた場合、そのメールアドレスを無効なものとしてリストから外していたようですが、今の迷惑メール業者は、そんな手間暇をかけず、エラーになろうがなるまいが、迷惑メールを送ってきます。 くやしいですが、エラーメールで返してやっても、業者は何もしないようです。 Sun, 27 Apr 2008 07:06:24 +0900 http://knowledge.livedoor.com/33813#answer94779 ひまな素浪人 シェアウェア 5184 http://knowledge.livedoor.com/profile/5184 /img/my/profile_img.gif /img/cmn/noimg_m.gif http://knowledge.livedoor.com/33709#answer94565 Yahoo!知恵袋にも被害者の質問がありますね。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1015342375 ３０円という低額のワンクリック詐欺業者のようです。 クリックすれば、「３０円支払え！」メールが、１日に何通も、しつこく届くことになりそうです。 http://www.lover-z.net/に行って、捨てアドレスで登録してみましたが、ちゃんと「メールアドレス変更」のボタンがあったので、この業者へ知られてしまったメールアドレスを「変更」してやれば良いです。 Yahoo!知恵袋では、「通報しろ！」という回答ですが、敢えてクリックして、捨てアドレスに変更してやれば、今お使いのYahoo!アドレスには来なくなるという訳です。 １． 新規に捨てメールアドレスを取得する。Yahoo!でも何でも良いので、適当なアドレスを取得。 ２． 今、来ているメールにログインするURLが張られていると思いますので、「敢えて」クリック。 ３． メールアドレス変更というボタンがあるので、捨てメールアドレスを入力する。 ４． 捨てメールアドレスに変更確認のメールが届いているはずなので、そこに記載のあるURLをクリックして、登録メールアドレスの変更に同意する。 ５． 業者は「３０円払え！」のメールを、捨てメールアドレスにしつこく送り続けて来ますが、その捨てメールアドレスは、放置してログイン等しない事。 IDを削除して、捨てメールアドレス自体を「無くしてしまう」とベストです。 Tue, 22 Apr 2008 07:34:26 +0900 http://knowledge.livedoor.com/33709#answer94565 サルビシアン 電子メール 748 http://knowledge.livedoor.com/profile/748 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33674#answer94498 一般のDVDプレイヤーで見れるようにするためには、単にAviファイルを焼くというのでは駄目で、オーサリングという処理を施して、ファイルを変換してやらないといけません。 無料のオーサリングソフトは、 http://www.katch.ne.jp/~kakonacl/douga/win_dvd/dvdmakers.html などを参考にして入手してください。 もちろん有料の製品でも良いですが、無料のほうが良いんですよね？ Sun, 20 Apr 2008 11:23:06 +0900 http://knowledge.livedoor.com/33674#answer94498 rode コンピューター＆インターネット 17582 http://knowledge.livedoor.com/profile/17582 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33676#answer94497 福岡の新宮町で123円のところ、プリペイドカードで２円引き、前回の１０リットル以上給油のレシートのバーコードで２円引きで、１１９円です。 Sun, 20 Apr 2008 11:12:48 +0900 http://knowledge.livedoor.com/33676#answer94497 eddy 地図 23403 http://knowledge.livedoor.com/profile/23403 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33662#answer94493 あらかじめシートのコピーを「一気に」作っておいて、「非表示」にしておいて、実際に利用するときに「表示」してやります。 時間のかかる処理は、「事前に」処理しておきます。 Sun, 20 Apr 2008 09:31:08 +0900 http://knowledge.livedoor.com/33662#answer94493 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 http://knowledge.livedoor.com/33664#answer94491 ループで、セルの内容を順に調べていって「今日の日付であれば、そのセルをアクティブにする」というコードを記述します。 使用する関数は、DateSerialです。 例のオートカレンダーのExcelファイルであれば、以下のように記述します。 Sub S_ActivecellSelect() Dim r As Integer, c As Integer Dim yyyy As Integer, mm As Integer Dim dd As Variant Dim WS As Worksheet Set WS = Sheets("Sheet1") yyyy = WS.Range("B2").Value mm = WS.Range("B3").Value For r = 7 To 12 For c = 2 To 8 dd = WS.Cells(r, c).Value If IsNumeric(dd) Then'←ddは""の場合もあるので If DateSerial(yyyy, mm, dd) = DateSerial(Year(Now), Month(Now), Day(Now)) Then WS.Cells(r, c).Select Exit Sub End If End If Next Next End Sub Sun, 20 Apr 2008 09:09:01 +0900 http://knowledge.livedoor.com/33664#answer94491 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 http://knowledge.livedoor.com/33535#answer94200 「200801実績入力」→「200801実績報告」へのシート切替は、以下のようにします。 テンプレートにあらかじめコマンドボタンを用意しておいて、以下のマクロを登録しておきます。 現在のシートを保護し、現在のシート名から左６文字を取り出し、そのyyyymmの文字列に「実績報告」を加えたシートを選択させるだけです。 Sub ボタン1_Click() With ActiveSheet .Protect Sheets(Left(.Name, 6) & "実績報告").Select End With End Sub 現在が４月だったら、 200801、200802、200803の実績入力と実績報告のシート作成とのことですが、 これのコードとかも必要ですか？ Sat, 12 Apr 2008 21:56:24 +0900 http://knowledge.livedoor.com/33535#answer94200 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 http://knowledge.livedoor.com/33494#answer94124 アドレスバーのURLの前に付くアイコンは、ファビコン（Favicon）と言います。 http://www.google.co.jp/search?hl=ja&q=%E3%83%95%E3%82%A1%E3%83%93%E3%82%B3%E3%83%B3&lr= http://ja.wikipedia.org/wiki/Favicon IE6のお気に入りでも、ファビコンは表示されますよ。 ファビコンの設定をしていないサイトが多いので、IEのアイコン表示になってしまうのです。 どういうタイミングというと、ファビコンの設定がされたか、お気に入りの同期（？）がされて情報が新しく更新されたとき？？？ Fri, 11 Apr 2008 01:31:20 +0900 http://knowledge.livedoor.com/33494#answer94124 コンセント ブラウザ 16618 http://knowledge.livedoor.com/profile/16618 http://img01.ico.frepa.livedoor.com/member_photo/e/0/e0078f04ac568450a465b0016a7eee68cfd6d5be_m.png http://img01.ico.frepa.livedoor.com/member_photo/e/0/e0078f04ac568450a465b0016a7eee68cfd6d5be_s.png http://knowledge.livedoor.com/33369#answer94121 今、自分が接続しているIPですか？ 確認くん http://www.ugtop.com/spill.shtml とかにアクセスして、「現在接続している場所（現ＩＰ）」のところ？？？ Fri, 11 Apr 2008 01:16:07 +0900 http://knowledge.livedoor.com/33369#answer94121 びりけん livedoorブログ 11638 http://knowledge.livedoor.com/profile/11638 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33382#answer94088 初心者ユーザーは、やはり「コマンドボタン」がわかりやすいようです。 「F9を押して下さい」よりも、「再計算」というボタンのほうが、わかりやすいと思います。 「ボタンを押す」＝「何かの処理がされる」というイメージがあるからです。 「シートは印刷したいので極力ボタンの表示などは避けたい」との事ですが、コマンドボタンを右クリックして、 「コントロールの書式設定」 →「プロパティ」タブ →「オブジェクトを印刷する」のチェックボックスをOFFにすれば、画面上、ボタンは見えますが、印刷はされませんよね？ Wed, 09 Apr 2008 23:17:37 +0900 http://knowledge.livedoor.com/33382#answer94088 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 http://knowledge.livedoor.com/33426#answer94034 同じＦＭシリーズの回答として以下のものが載っています。 https://www.fmworld.net/cs/azbyclub/qanavi/jsp/qacontents.jsp?rid=168&PID=3506-2322 ボリュームを調整しろというのは回答になっていないので、２番目の「BIOSセットアップで音を調整する」を試してみてはいかがでしょうか？ Wed, 09 Apr 2008 07:05:51 +0900 http://knowledge.livedoor.com/33426#answer94034 竜血樹 コンピューター＆インターネット 24766 http://knowledge.livedoor.com/profile/24766 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33231#answer93702 実際は、いいかげんな工事をしてあることも多いし、私たちも意識して差し込んではいないと思うのですが、オーディオマニアの方は敏感のようですね。 http://allabout.co.jp/computer/av/closeup/CU20070502A/ Thu, 03 Apr 2008 03:38:24 +0900 http://knowledge.livedoor.com/33231#answer93702 竜血樹 その他 24766 http://knowledge.livedoor.com/profile/24766 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33239#answer93700 女性は、その男性と接することによって、「優越感」を感じることが出来るからだと思います。 悪く言えば、「この男は私より格下」と思っているわけで、「安心」出来るのでしょう。 Thu, 03 Apr 2008 03:29:55 +0900 http://knowledge.livedoor.com/33239#answer93700 the　jumbuck 男と女 26051 http://knowledge.livedoor.com/profile/26051 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33236#answer93699 「無料期間が終了した後もサービスを続ける場合のために、予め支払いのためのクレジットカードの番号を聞きたい」というのが変ですね。 期間終了直前に聞いても十分間に合うはずです。 ショッピングでも、クレジットカード認証は、その場であっという間に終わりますよね？ 「電話」云々ではなく、そもそも現時点では「継続するか否か未定」なのですから、「教える必要性が無い」と思われますが、いかがでしょうか<emoji:question> Thu, 03 Apr 2008 03:21:29 +0900 http://knowledge.livedoor.com/33236#answer93699 zio 生活 13813 http://knowledge.livedoor.com/profile/13813 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33237#answer93697 単純に書き換えただけですが…。 １．規則性がある部分は、数字が１から５へ順に変化。 ２．変化している部分を変数（例えばi）に置き換える。 ３．For～Nextループで、iを１から５へ変化させて、囲んでやる。 Option Explicit Dim i As Integer For i = 1 To 5 Worksheet("test" & TY).Cells(i, 6).Name = "DD" & TY & "010" & i Next Thu, 03 Apr 2008 03:05:43 +0900 http://knowledge.livedoor.com/33237#answer93697 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 http://knowledge.livedoor.com/33168#answer93554 添付ファイルそのものにパスワードが設定されているわけですから、パスワード無し（解除された状態）で保存されたファイルを添付するしかありません。 Mon, 31 Mar 2008 20:24:30 +0900 http://knowledge.livedoor.com/33168#answer93554 エンヤトット その他 21300 http://knowledge.livedoor.com/profile/21300 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33136#answer93498 一度Yahoo!メッセンジャーをログアウトして、ログイン画面の「自動的にログインする」のチェックボックスを外します。 Sun, 30 Mar 2008 15:26:15 +0900 http://knowledge.livedoor.com/33136#answer93498 キャンディ コンピューター＆インターネット 1486 http://knowledge.livedoor.com/profile/1486 http://img01.ico.frepa.livedoor.com/member_photo/8/6/8659dc90a2aa55c277ccc4a4755a8ca2504f68e5_m.jpg http://img01.ico.frepa.livedoor.com/member_photo/8/6/8659dc90a2aa55c277ccc4a4755a8ca2504f68e5_s.jpg http://knowledge.livedoor.com/33127#answer93492 条件付き書式は、書式が変わるだけで、アクティブセルをそこに「移動」させることはできません。 従って、「もし今月のカレンダーだったら、アクティブセルを今日に移動」という処理を書いてやる必要があります。 サンプルとして提示されてあるカレンダーExcelファイルを前提に回答します。 標準モジュールではなく、「Sheet1」のマクロスペースに記述してください。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Integer, c As Integer Dim yyyy As Integer, mm As Integer Dim dd As Variant, mm_last As Integer yyyy = Range("B2").Value mm = Range("B3").Value 'カレンダーは、条件付き書式で4/31などありえない日付は '見せてないだけなので、指定月の最後の日は何日までか求 'めておく mm_last = Day(DateSerial(yyyy, mm + 1, 1) - 1) For r = 7 To 12 For c = 2 To 8 dd = Cells(r, c).Value If IsNumeric(dd) Then '数字だったら If dd <= mm_last Then 'あり得る日付だったら If DateSerial(yyyy, mm, dd) = DateSerial(Year(Now), Month(Now), Day(Now)) Then Cells(r, c).Select Exit Sub End If Else Exit Sub End If End If Next Next End Sub Sun, 30 Mar 2008 14:03:49 +0900 http://knowledge.livedoor.com/33127#answer93492 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 http://knowledge.livedoor.com/33085#answer93395 まぐわらず、接触して…かな？ おたまじゃくしも、勢いが良いので、長旅が大丈夫だったのではないでしょうか？ Sat, 29 Mar 2008 02:39:12 +0900 http://knowledge.livedoor.com/33085#answer93395 the　jumbuck アダルト 26051 http://knowledge.livedoor.com/profile/26051 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/33088#answer93394 画像部分を右クリックして、対象をファイルに保存というのを出来なくしているのもありますが、そもそもPrintScreenキーで、画面そのものをコピーされたら意味がない。 Windowsは画面に表示されるものは、コピー可能なのだから、悪用されるのが嫌なら「写真」は出せません。 Sat, 29 Mar 2008 02:37:01 +0900 http://knowledge.livedoor.com/33088#answer93394 KIDA livedoorブログ 26065 http://knowledge.livedoor.com/profile/26065 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/32981#answer93392 VBAのコードを実行させましたけど、シートにそもそもどんなデータが入っているのかわかりませんので、Subを実行させても駄目でした。 サンプルがないと、回答はつかないと思います。 Sat, 29 Mar 2008 02:28:57 +0900 http://knowledge.livedoor.com/32981#answer93392 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 http://knowledge.livedoor.com/33038#answer93314 とりあえず、Excelで作ってみました。 こちらにアップロードしています。 http://pub.idisk-just.com/fview/Wp6RjRvMqZ0b-PLDzXyRZdKLgvGuSkONLPboSkR_SGH5jvgrnjFnFlxA4sUSxS65JUz3gGAo5X_BpTopt6mghQ 標準モジュールではなく、Sheet1のマクロスペースに以下のように記述しています。 Option Explicit Dim r As Integer, c As Integer, old_r As Integer, old_c As Integer Private Sub Worksheet_SelectionChange(ByVal Target As Range) If old_r = 0 Then old_r = 1 If old_c = 0 Then old_c = 1 Cells(old_r, old_c).Interior.ColorIndex = xlNone ActiveCell.Interior.ColorIndex = 15 r = ActiveCell.Row c = ActiveCell.Column old_r = r old_c = c End Sub また、別のシートには、３つの条件付き書式を設定して、セルの日付が「今日であれば緑」「日曜なら赤」「土曜日なら青」としています。 セルの値が次の値に等しい =today() 数式が次の値に等しい =(WEEKDAY(A1)=1) 数式が次の値に等しい =(WEEKDAY(A1)=7) 参考までに、うちの課で現実に使っているスケジュールファイルもアップロードしておきます。 （奇数月と偶数月の２つのファイルを交互に使用する形となります。） Thu, 27 Mar 2008 22:40:38 +0900 http://knowledge.livedoor.com/33038#answer93314 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 http://knowledge.livedoor.com/32956#answer93135 １：消しておいた方がよいもの 　　個人情報（自分と自分以外）、メール、写真ファイル等。 　　単にゴミ箱から削除するだけでは、HDD上はインデックスを 　　消しているだけで、データの実体は残っていますので、ファ 　　イル復活ソフト（サルベージソフト）等で簡単に復活させら 　　れます。 　　データを上書き抹消するソフト（フリーでもあります）で、 　　完全削除が必要です。 　　削除について http://www.nikkeibp.co.jp/sj/2/special/181/index1.html ２：暗証番号などの残留。 　　WEBブラウザのIDやパスワード、Outlook Expressのパスワー 　　ドをワンクリックでずらりと表示させることが出来るソフト 　　もあります。（Protected Storage PassView など） 　　 ３：パソコンが完全にリセットされること 　　当然、あり得ます。 ４：パソコンがまったく起動しなくなってしまったとき 　　 　　HDD上のエラーであれば、外して、外付けHDDとして何とかデー 　　タをサルベージします。新品のHDDにすげ替えるだけです。 　　HDD以外の、マザーボード等の故障かどうか調べるため、HDDを 　　外すのは必須かもしれません。 　　最初からうんともすんとも言わないのか、HDDにアクセスするが、 　　それ以降起動しないのかの場合分けが必要です。 　　普通は、まずHDDの故障が多いと思われます。（一番酷使される 　　部品ですし…） 最近も香港男優が、Macを修理に出して、性行為画像が流出しました。 http://www.afpbb.com/article/entertainment/news-entertainment/2353694/2663114 自分自身で、HDDの換装を出来るくらいの技量は身につけましょう。 （HDD換装と言っても、ドライバーだけですよ！） Sun, 23 Mar 2008 02:58:51 +0900 http://knowledge.livedoor.com/32956#answer93135 ごんべえ ノートPC 7056 http://knowledge.livedoor.com/profile/7056 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/32665#answer93013 レンタルがお手軽でしょう。 ホームページビルダーとかには、掲示板作成機能がありますが、ホームページも作ったことがないのであれば、レンタルから初めて、徐々にステップアップすればよろしいかと。 Thu, 20 Mar 2008 02:53:35 +0900 http://knowledge.livedoor.com/32665#answer93013 愛美 その他 25148 http://knowledge.livedoor.com/profile/25148 http://knowledge.livedoor.com/img/my/profile_img.gif http://knowledge.livedoor.com/img/cmn/noimg_m.gif http://knowledge.livedoor.com/32827#answer93012 動的に、ボタンやシートが削除されるよりも、Visibleで非表示にしたほうがスマートのような…。 「A1に3月2日のボタンB1に3月3日のボタン・・・・E1に3月6 日のボタンというように位置を移動させます。」というのも「移動」じゃなくて、見かけ上そういう風に見えるように、「ボタンの表示」を変えてやると良いと思います。 （ボタンを移動ではなく、ボタンの表示をすげ替えてやる。） Thu, 20 Mar 2008 02:47:43 +0900 http://knowledge.livedoor.com/32827#answer93012 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 http://knowledge.livedoor.com/32854#answer93011 BLUEPIXYさんに補足。 「Ａ３：Ｇ３の書式を日付にする」は、セルの書式設定で、 「yyyy/mm/dd(aaa)」とか「yyyy/m/d(aaa)」とすれば、「曜日」も表示できますよね。 weekday関数で求めて、文字列として「つなげる」人が多いのですが、セルの書式設定で事足りると思います。 Thu, 20 Mar 2008 02:39:46 +0900 http://knowledge.livedoor.com/32854#answer93011 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 http://knowledge.livedoor.com/32825#answer92927 休日はころころ変わるのでメンテナンスが大変です。 Auto_Openで素直に分析ツールを組み込んだ方が良いでしょう。 しかし、処理が終わればAuto_Closeで、Excelの元のアドイン状態に復帰させてやるのです。 Option Explicit Dim b_BunsekiTool As Boolean Sub Auto_Open() '現在のExcelに分析ツールが組み込んであるかどうか、フラグに保存する。 b_BunsekiTool = AddIns("分析ツール").Installed 'もし分析ツールが組み込んでなければ組み込む If b_BunsekiTool = False Then AddIns("分析ツール").Installed = True End If End Sub Sub Auto_Close() 'Bookを開く前の分析ツールアドイン状態に戻してやる AddIns("分析ツール").Installed = b_BunsekiTool End Sub Tue, 18 Mar 2008 19:42:30 +0900 http://knowledge.livedoor.com/32825#answer92927 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 http://knowledge.livedoor.com/32730#answer92715 単純にマクロの記録でよいのでは？ Sub Macro1() Sheets("Sheet2").Select Range("B4").Select Application.CommandBars("Forms").Visible = True ActiveSheet.Buttons.Add(54, 40.5, 54, 13.5).Select End Sub Fri, 14 Mar 2008 08:09:55 +0900 http://knowledge.livedoor.com/32730#answer92715 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