yokomaya の回答履歴

お尋ねします。 ＢＳデジタルのハイビジョン番組を東芝のＲＤ-Ｓ６０１にて録画しています。ＨＤに録画したハイビジョン番組を通常のＤＶＤにダビング（ムーブ）をして、別の部屋にある古いＤＶＤプレイヤーで見ようとしたら再生できませんでした。 ハイビジョン対応のＤＶＤプレイヤーを別途購入する場合、どういう規格のものを購入すればいいのでしょうか。 よろしくお願いします。

夫の浮気で数年前に離婚しました。ですが、今思うと浮気なんかで離婚するなんて間違っていたのかなと思う事があります。 子供が1人いるので色々不安になる事があるから そう思うようになったのかもしれませんが。私は間違っていたのかなと最近強く思うようになってその考えから抜け出す事ができません。質問が漠然としすぎていて申し訳ありませんが、こんな私に何かアドバイスをいただけますでしょうか。

学生なんですが子どもが生まれます。自分を後押ししてくれて変わるきっかけとなりました。生まれていませんが大切な子どもです。しかし、産むことに反対する人もいて精神的に気まずいです。それで関係が悪くなった人もいます。どうするべきでしょうか？

VBAにてシートコピーに要する時間が長くて（１０分以上）悩んでおります。ご存知の方がいらっしゃいましたら力を貸していただけないでしょうか？よろしくお願いいたします。 Bookの構成といたしまして標準モジュールに数式文字列を評価するものを かいてあります。 Function Eval(ByVal expr As String) Eval = Evaluate(expr) End Function ・Sheet1には、様々な経理データを入れるようにしてあります。 そこに入れた値などを元にセル名を作るように書いてあります。 例）A1に”1”という値でB1に”2”という値が入っていればA2のセル名を”12” とします。 ・Sheet2には予めセルに=eval(12)の様な数式をいれ評価をしております。 これが１枚のシートに2000くらい数式が入っています。 Sheet1、2ともに特定条件のとき複製を何枚か作ります。 このときすごく時間がかかります。 原因は数式が大量にあるものをコピーするのが原因なのは分かりますが コピー以外の動作が非常に快調なので大きく変えて欲しくないと言われております。 もちろん再計算の停止などはしてあります。 事前に特定条件を作りだしシートを非表示にしておき特定条件のときに表示させるのも 一つの手ではありますが何百枚もシートを隠しておくとファイルサイズがばかでかくなるという 難点もあって躊躇しています。 何分わかりづらい質問で申し訳ありませんが、ご回答いただければ幸いです。 よろしくお願いします。

一台はデスクトップPC　Ulutimeate もう一台はノートPC　Home Premium タイムゾーンは、いずれも (GMT+09:00) 大阪、札幌、東京 デスクトップのほうが１０秒ほど常に進んでいるのですが、 PCの性能のせいでしょうか？

上司からの精神的苦痛により退職されたかた、退職理由はどのように言いましたか。個人経営などは言わないといけないと思うんですが。よろしくお願いします。

WindowsXPのPCで、起動時にピーピーピーと音が出ます。10秒ほどで音は消え通常通り使用はできます。何が原因なのでしょうか？対処法があれば教えてください。

VBEでF8キーを一回ずつ押して一行ずつステップインでコードを実行していくと、 Workbooks.openの行を実行した途端、 それ以下のすべての行が通常実行されてしまいます。 すべての行をステップインで実行するにはどうすればよいのでしょうか。 例）Workbooks.Openの行でF8を一回押すと、すべて通常実行されてしまう。 　　（2行目以下も一行ずつ動作を確認したい） ---- Sub test() Workbooks.Open ("C:\test.xls") Range("A1").Value = 1 Range("A2").Value = 2 Range("A3").Value = 3 End Sub ---- よろしくお願いいたします。

パソコンから、ドコモの携帯電話へメールが送れません。 メールを送ると、サーバーからエラーメールが返ってきます。 何か解決策をご存じの方いましたら教えてください。

・動くけどライセンス違反 ・動かない ・動いて、未使用なら他のメーカーのＰＣで使ってもライセンス違反にならない。 どれでしょうか？

共有フォルダの設定をしたいのですが、 LANの外にあるPCは、どう設定すれば良いのでしょうか? 各店舗にあるPCのネット環境は、 フレッツ光でルーター経由になっています。 店内のLAN上のPCは設定できたのですが、 店外のPCはIPが固定できないため、 どう設定してよいか困っています... よろしくお願いします＜(_ _)＞

PCでメールがくると音楽（着信音）がなるようにしたいのですがどうやればできますか？ 回答よろしくお願いします。

妻宛ての　はがきが　○○様方　妻の旧姓で届きました。 はがきは親展のシールをはがすタイプのものです。 差出人はなんと弁護士からです。 なんの用件なのでしょうか？ 離婚の計画を練っているのでしょうか？ 督促状でしょうか？ 弁護士に電話したら内容を教えてくれるでしょうか？ さりげなくみなかったことにしておいたほうがよいでしょうか？

こんばんは　お時間等ございましたら、ご指摘よろしくお願いします。 ＜背景＞メインプログラムからサブプログラムに複数の数値を渡して、 　　　　文字列として編集します。 　　　　そして、その文字列から特定の文字のみを抽出し、 　　　　ファイルに出力したいと考えています。 　　　　※下記にソースイメージを記しました。 　　　　　ただ、While文の指定がうまくなく、 　　　　　想定どおり処理を抜けれません。 ＜質問＞サブプログラムでファイルに出力する文字のうち、 　　　　抽出する文字と抽出しない文字はランダムで、 　　　　メインプログラムから、渡されてきます。 　　　　※文字列の文字数は、 　　　　メインから渡され編集した文字数＞＝ファイルに出力する文字数。 　　　　サブプログラムの先頭で出力する文字列の大きさを 　　　　指定しているのですが、抽出しない文字があった場合、 　　　　抽出しない文字数分ゴミが出力されてしまうのを 　　　　防ぎたいと考えています。 ＜イメージ＞ #include <stdio.h> void sub( int a, int b, int c, FILE *fp ); int main(){ FILE *fp; fp = fopen("c:\\0511.txt","w"); int a;int b;int c; a = 1; b = 0; c = 1; sub( a, b, c, fp ); fclose(fp); } void sub( int a, int b, int c, FILE *fp ){ int j = 0; char moji[4];char moji2[4]; sprintf(moji,"%d%d%d%s",a,b,c,"\0" ); while( moji[moji[*moji]] != '\0' ){ switch( moji[moji[*moji]] ){ case '1' : moji2[j] = moji[moji[*moji]]; break; case '0' : j -= 1; break; default :;break; } moji[*moji] += 1;j += 1; } fprintf(fp,"%s\n",moji2 ); }// Run-Time Check Failure #2 - Stack around the variable 'moji' was corrupted. もし宜しければ、ご指摘の程よろしくお願いします。

yahooでグリーティングカードを送ります。重にお祝いですね。ところが、もしアドレスが変わっていて届いてないことがあっても私にはわからないのです。ＵＲＬをあけたかどうかはわかるのですが。郵便だったりイーメールだったら、「宛名に相手がいない」と戻ってきますよね。お祝いなのに、いちいち、「届いてますか？」って後から確認メールするのは趣旨が違って。どこかで宛名が違うとそれがわかる仕組みのグリーティングを知っていますか。ヤフーでは要望しているのですが、今の所変更してくれないので。よろしくお願いします。

はじめまして。PC初心者のnoaといいます。 エクセルで、金額つきの工事日報を作っているのですが、印刷するときに一部のセルだけ印刷をされないようにセルにマクロを入れました。 その状態で、シート全体に保護をかけたら、どうしても、印刷したくないセルまで表示されてしまいます。保護をかけなければちゃんと表示はされません。この解決方法ってあるのでしょうか？ ご教授お願いいたします。 セルにかけたマクロは下記のぶんです。 Dim cellColor() As Long Sub Print_ColorWhite() Dim myArray, element As Variant '印刷しないセルを配列に設定 Dim RGcot As Integer '印刷しないセル数 Dim cot As Integer 'カウンタ myArray = Array("A2", "A4", "A6") '*** これは例(印刷しないセルをセットする) *** For Each element In myArray '登録個数を数える。他に方法は？ RGcot = RGcot + 1 Next ReDim cellColor(RGcot) AS LONG For cot = 1 To RGcot '最初の色の設定を保持する(セル毎に色が違うと想定) cellColor(cot) = Range(myArray(cot - 1)).Font.ColorIndex Range(myArray(cot - 1)).Font.ColorIndex = 2 '白にする Next ActiveSheet.PrintPreview '今はプレビュー。PrintOutに変えれば印刷 For cot = 1 To RGcot '最初の設定に戻す Range(myArray(cot - 1)).Font.ColorIndex = cellColor(cot) Next End Sub

VBAにてシートコピーに要する時間が長くて（１０分以上）悩んでおります。ご存知の方がいらっしゃいましたら力を貸していただけないでしょうか？よろしくお願いいたします。 Bookの構成といたしまして標準モジュールに数式文字列を評価するものを かいてあります。 Function Eval(ByVal expr As String) Eval = Evaluate(expr) End Function ・Sheet1には、様々な経理データを入れるようにしてあります。 そこに入れた値などを元にセル名を作るように書いてあります。 例）A1に”1”という値でB1に”2”という値が入っていればA2のセル名を”12” とします。 ・Sheet2には予めセルに=eval(12)の様な数式をいれ評価をしております。 これが１枚のシートに2000くらい数式が入っています。 Sheet1、2ともに特定条件のとき複製を何枚か作ります。 このときすごく時間がかかります。 原因は数式が大量にあるものをコピーするのが原因なのは分かりますが コピー以外の動作が非常に快調なので大きく変えて欲しくないと言われております。 もちろん再計算の停止などはしてあります。 事前に特定条件を作りだしシートを非表示にしておき特定条件のときに表示させるのも 一つの手ではありますが何百枚もシートを隠しておくとファイルサイズがばかでかくなるという 難点もあって躊躇しています。 何分わかりづらい質問で申し訳ありませんが、ご回答いただければ幸いです。 よろしくお願いします。

VBAにてシートコピーに要する時間が長くて（１０分以上）悩んでおります。ご存知の方がいらっしゃいましたら力を貸していただけないでしょうか？よろしくお願いいたします。 Bookの構成といたしまして標準モジュールに数式文字列を評価するものを かいてあります。 Function Eval(ByVal expr As String) Eval = Evaluate(expr) End Function ・Sheet1には、様々な経理データを入れるようにしてあります。 そこに入れた値などを元にセル名を作るように書いてあります。 例）A1に”1”という値でB1に”2”という値が入っていればA2のセル名を”12” とします。 ・Sheet2には予めセルに=eval(12)の様な数式をいれ評価をしております。 これが１枚のシートに2000くらい数式が入っています。 Sheet1、2ともに特定条件のとき複製を何枚か作ります。 このときすごく時間がかかります。 原因は数式が大量にあるものをコピーするのが原因なのは分かりますが コピー以外の動作が非常に快調なので大きく変えて欲しくないと言われております。 もちろん再計算の停止などはしてあります。 事前に特定条件を作りだしシートを非表示にしておき特定条件のときに表示させるのも 一つの手ではありますが何百枚もシートを隠しておくとファイルサイズがばかでかくなるという 難点もあって躊躇しています。 何分わかりづらい質問で申し訳ありませんが、ご回答いただければ幸いです。 よろしくお願いします。

皆様の質問や回答を閲覧させて頂何度も試してみたのですが、 ハードディスクの　Dドライブのアイコンだけが変更できません。 窓の手で標準に戻すをクリックするのですが・・・ 一つのドライブをパーテーションで３つに区切っています。 Dドライブのアイコンだけが標準のアイコンとは別のものになってしまい 通常使用するのには別段問題はないのですが、気持ち悪いので標準に戻したいです。 解決方法を教えてください。

こんにちは ａｕのＷ５４Ｓを使っています。 Ｅメール（受信も送信も）をワード等に送り プリントアウトしたいのですが、それは可能でしょうか？ 教えて下さい。 よろしくお願い致します。