nao-y の回答履歴

ＯＳはＶＩＳＴＡ、wordは２００３を使用しています。 いくつかのフリーソフトとグラフィックボードのupdateを行おうとすると、以前は直接そのサイトに飛べたのですが、今は何故かwordが起動してしまいます（読み取り専用） 自分で何か設定を変えた記憶はありません。 自分でも調べてみましたが（読み取り専用のチェックの有無など）、直し方がわからないので質問させていただきました。

ＯＳはＶＩＳＴＡ、wordは２００３を使用しています。 いくつかのフリーソフトとグラフィックボードのupdateを行おうとすると、以前は直接そのサイトに飛べたのですが、今は何故かwordが起動してしまいます（読み取り専用） 自分で何か設定を変えた記憶はありません。 自分でも調べてみましたが（読み取り専用のチェックの有無など）、直し方がわからないので質問させていただきました。

私は、30代の、女性です。営業職で外回りしてます。スーツ着用です。インナーは、シャツが、苦手なので、いつもカットソー着てます。同僚の男性は、最近配置替えで、営業職に、なったので、スーツは、慣れてなく、カッター着て、ネクタイ苦しく大変そうです。私のカットソー見て、シャツ着なくていいから、羨ましいと、いってました。私もいいでしょうと、自慢しました。だけど、五月から、上司が、変わり、男女平等に使用と、言われ、私も賛成しました。ゴールデンウイーク明けから、私のスーツインナーまで、カットソーは、ラフ過ぎていけないと、言われ、シャツと、言われました。私は、シャツが、嫌だからやっぱカットソーで、次の日も、出社しました。会社の、同僚の男性が、上司に、男女平等なら、女性のスーツインナーも、カッターと、ネクタイに、しましょうといい、私は、上司に、呼ばれてスーツのインナーカットソーは、着用禁止と、言われ、カッターと、ネクタイ着用と、言われました。最悪ですカッターの首のサイズまで、測られてしまいました。次の日出社したら、カッターと、ネクタイ支給され、今からカットソーからカッターに、着替えなさいと、言われ仕方なく着替えました。第一ボタンも、とめなさいと、言われました。ネクタイも締めさせられ、カッターの首のサイズが、指一本分と、いわれ隙間なく、苦しく我慢出来ません。緩めたらダメと、言われ、いままで、カットソーで、楽して着たから、我慢しなさいといわれました。締めてるだけで、首に、違和感感じて、カットソーに、着替えたくて我慢できません。そのまま、外回りなに、同僚の、男性と、でました。私は、カットソーに、着替えることも、できなく、取り引き先の、女性の営業職の方が、私のネクタイ姿見て、ビックリしてました。いつまは、カットソーなのに、どうしてと、言われ、上司に、いわれ、男女平等で、ネクタイ着用と、いったらカットソー着れないなんて可哀想。と、言われました。その女性も、いつもカットソー着てるので、私は、羨ましく、カットソーに、着替えたくて、たまりません。これから、カットソー着れないなんて大変です。この、苦しさ、毎日だと、大変です。 女性の、スーツの方で、インナーで、シャツじゃないと、ダメな方、おられますか？ 制服やスーツで、カッターや、ネクタイ着用の方、おられますか？ 女性のスーツのインナーは、シャツは、嫌な方おられますか？ スーツの、インナーは、シャツか、カットソーどちらを、着てますか？ 女性の方で、シャツの場合、スーツ脱いで、シャツだけに、なれますか？

最近夜寝る時間が午前４時になっています。起きる時間は午前０時頃です。私自身ちゃんと１０時頃に寝たいと思っているのですが寝れません。どのようにすれば改善出来るでしょうか？

足跡に似た機能をもつアプリがあるとしりました。 http://facebookuhowto.sblo.jp/article/46866122.html リンクした後どのようにすすめていったらよいかわかりません。 しってるひとおしえてください

「Twitter」の使い方が解りません((((；゜Д゜)))) 教えてください<m(__)m> 最近「Twitter」を始めたんですが用語から全部解りません(´；ω；｀) 自分が呟いた（呟く事を「tweet」で良いんですか？）事への返事（此れを「フォロー」って言うんですか？）の見方も解りません゜(゜´Д｀゜)゜ 「1」から教えてください<m(__)m> 御回答宜しく御願いします<m(__)m>

パソコン初心者です。 Windows XPを２人で共用しています。 必要なため、EIOfficeの無料体験版（１８６MB)をインストールしましたが、ディインストールが出来ません。ユーザーの切り替えにより、両者のタスクトレイに表示されているアイコンを右クリックし、一番下の快速起動を終了する。をクリックすると、両方ともアイコンは消えますが、いざ、「プログラムの追加と削除」で削除しても、次の段階で「タスクトレイ上の[EIOffice快速起動]を終了してから作業を進めてください。[EIOffice]快速、、、、、、ください。」と出て来て削除が出来ません。共用している場合は何か特別な削除方法があるのでしょうか。ご回答をお待ちしています。

テキストファイル（ファイル拡張子.txt）を右クリックでエクセルファイルから開いた場合、 データが途中までは開くのですが、後ろが切れてしまいます。 テキストファイルは、カンマで区切った20項目くらいの文字列です。 この14項目の1文字位から後が全く表示されません。 全項目うまくエクセル変換するにはどうしたら良いでしょうか？ エクセルの新規ファイルを開いた後、データの取り込みでテキストファイルを 取り込んだ時にはうまく入ります。 このやり方ではなく、右クリックからエクセルとして開く方法を使いたいのです。 教えてください。お願いします。

エクセルで、 A列に「日付」、 B列に「機械種類」、 C列に「作業数」を手入力して D列に「当日の総作業数」を自動入力するような、 作業工数表を作成したいと思っています。 (具体例) 2/1 Ａ機　 1000 2/1 Ｂ機　 　300 　 2/1 Ａ機　　1200　2200 2/2 Ａ機　 1200 2/2 Ｂ機 　3500 2/2 Ｂ機　12000　　15500 2/2 Ａ機　　2000　　3200 2/1　Ｂ機　1000　1300 　　　　　　　 以上のような状態にしたいのですが、 D列の「総作業数」を、 自動で集計されるようにするには、どうすればよいでしょうか…。 具体的には、 「A列が同日の日付の場合、Ｂ列の機械毎にその「作業数(C列)」を合計し、 同日日付の最後の日の、D列に合計値を記入する。 という形と考えているのですが、 日付は作業を指示する者が追記していくので必ずしも日付順に並んではいない場合での計算が理想ですが、ソート？で並べ替えをして数式が自動になればそれで構いませんが。 アドバイスを頂けると助かります。 よろしくお願いいたします。m(_ _)m

一人でパソコンを使っていて、ローカルフォルダに入っている複数のmdbファイルを開けたら 「アクティブ ユーザーが多すぎます。(Error 3239)」 というエラーが出ました。 一度全部閉じて再度開いたら通常通りに開けました。 そもそも一人でパソコンを使ってるのにこのエラーになる原因がわからないし ＭＤＢファイルは多くて５つしか開けていません。 ＡＤＯやリンクテーブルを使っているのが原因でしょうか？ ご回答よろしくお願いします。

こんにちは初心者で初めての質問です。 エクセルの折れ線グラフで規定以上は色が変わるマクロを拝見しました。 （5行のデーターで２０以上は色が変わる） 大変参考になるのですが、実際例題に従ってマクロをくみ確認したところ 手動（F8)でもステップでの動作では動きますが、押しっぱなし、及び ボタンに登録しての操作では activechart.seriescollection(1).points(i).selectの箇所で オブジェクト変数またはwithブロック変数が設定されてません。となり ストップしてしまいます。 いろいろ　ヘルプで調べましたがわかりません。 どなたかどう対応すれば解決するのか教えてください。 ちなみにOSはwindows7です。

BetMasterという競馬ソフトに記述されている 「TXT\2」のデータを抽出し、Sheets("出馬表集計")に貼り付け、 「TXT\1」のデータを抽出し、Sheets("結果集計")に貼り付ける 以下のようなマクロを組んでいます。1日終わるごとにTXT\2とTXT\1を作成してこの集計をしていたのですが、約1年間サボってしまい100回近く、このマクロを作動させなければならなくなりました。 そこで、TXT\1～100まで作成して、TXT\2とTXT\1の貼り付けが終わったら、「TXT\4とTXT\3」、「TXT\6とTXT\5」、「TXT\8とTXT\7」...............と「TXT\100とTXT\99」まで繰り返し抽出と貼り付けを行うようにしたいのですがどうしたらよいでしょうか。 問題は、50回繰り返すことと、2回目以降は前回終了の次の行に貼り付けるという点です。 よろしくお願い致します。 'BetMasterから出馬表データの取り込み ActiveWorkbook.Worksheets.Add With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\BetMaster\TXT\2.", Destination:=Range("A1")) .Name = "1." .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .Refresh BackgroundQuery:=False End With 'Sheets("出馬表集計")に貼り付け Cells.Select Application.CutCopyMode = False Selection.Copy Sheets("出馬表集計").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select ActiveWindow.SelectedSheets.Delete 'BetMasterから結果データの取り込み ActiveWorkbook.Worksheets.Add With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\BetMaster\TXT\1.", Destination:=Range("A1")) .Name = "1." .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _ , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .Refresh BackgroundQuery:=False End With 'Sheets("結果集計")に貼り付け Cells.Select Application.CutCopyMode = False Selection.Copy Sheets("結果集計").Select 　　Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select ActiveWindow.SelectedSheets.Delete

例えば　sheetが10枚で　"A1"　の値を合計するマクロで11枚目のsheetの　"A3"に表示させるのに 下記のようにすると出来ましたが、これを短く記述する方法を教えてください、よろしくお願いします。 Range("a3").value=Worksheets(1).Range("a1").valur + Worksheets(2).Range("a1").value + Worksheets(3).Range("a1").value + ・・・・・・・Worksheets(10).Range("a1").value

受信はできるのですが、送信ができません。 送信（SMTP）メールサーバーに接続できません。 このメッセージを引き続き受信する場合は、サーバー管理者かインターネットサービスプロバイダー（ISP）に問い合わせてください。 という表示がされます。 同じような例を探して 送信サーバー（SMTP）のポート番号を、「25」から「587」に変更すると、送信できるようになります。 とあったので変更してみてもできませんでした。 Outlook2010を使用しています。 どなたかわかりやすく説明してくださる方、よろしくお願いします。

VBAでフォームを作成しています。 本通りにＤａｔｅｄｉｆｆを入力したのですが、確実な年齢がでてきません。 どうすれば宜しいですか？教えて頂けたらと思います。 ちなみにプロシージャは・・・ Privaｔｅ Sub Text生年月日_AfterUpdate() Texr年齢.Value=Datediff("yyyy",Text生年月日.Value,Now()) よろしくお願いします。 　

VBAでフォームを作成しています。 本通りにＤａｔｅｄｉｆｆを入力したのですが、確実な年齢がでてきません。 どうすれば宜しいですか？教えて頂けたらと思います。 ちなみにプロシージャは・・・ Privaｔｅ Sub Text生年月日_AfterUpdate() Texr年齢.Value=Datediff("yyyy",Text生年月日.Value,Now()) よろしくお願いします。 　

任意のブックのシートをコピーしたいのです。 たとえば、いつも使用するブック【ＡＡＡ】があるとして、そこに後から開いたブック【ＢＢＢ】のシート「あああ」をコピーしたいのです。 ここでの問題は、そのブックが常に【ＢＢＢ】ではなということです。 例えはブック【ＣＣＣ】のシート「あああ」であったり、ブック【ＤＤＤ】のシート「あああ」であったり。 シート名は常に「あああ」なのですが、ブック名が毎回違うのです。 ブック【ＡＡＡ】のマクロでなんとかできますでしょうか？

Excelのシート上部に配置したボタンを押下する事で、、 行の追加と削除、さらにセルの結合、結合解除をするプログラムをVBAで作成しています。 行の追加と、セルの結合はそれぞれ単体では正常に機能するのですが、 行の追加や削除を行った後で「セルの結合」ボタンを押すと、 「RangeクラスのMergeCellsプロパティを設定できません」 上記のエラーが出てしまい原因がわからず困っております。 どなたか解決方法をご存知でしたら、教えていただきたいです。 よろしくお願いします。

受信はできるのですが、送信ができません。 送信（SMTP）メールサーバーに接続できません。 このメッセージを引き続き受信する場合は、サーバー管理者かインターネットサービスプロバイダー（ISP）に問い合わせてください。 という表示がされます。 同じような例を探して 送信サーバー（SMTP）のポート番号を、「25」から「587」に変更すると、送信できるようになります。 とあったので変更してみてもできませんでした。 Outlook2010を使用しています。 どなたかわかりやすく説明してくださる方、よろしくお願いします。

　大金持ちそうだった。　→　実は借地だった。貧乏だった　→ あれは恋愛だったのさようなら。。 　　　　　　　　　　　　　　 → 女子会の笑い話のネタ 　世の中だいたい、こんな感じかと思うのですが。。 如何ですか？