n-jun の回答履歴

今年の春のことです。 年に１０回くらい、学生時代のサークル仲間と、バス旅行を利用して 軽い登山やハイキングへ行くときの幹事をしています。 旅行会社：クラブツーリ●トと言う会社で申し込みことが多く、 その会社が三●住●VIS●カードとの提携のクレジットカードを 出しているので、旅行を申し込み時に進められて、持つようになりました。 利用頻度は、サークルの旅行代金を払うときにしか使わないのですが、 仲間の分を、一度に私名義のクレジットカードで引き落とします。 旅行当日にしか仲間とは逢えないので、そのときに仲間から 現金で旅行代金を貰います。 そのクレジットカードは、旅行代金を払うたびにポイントが溜まり、 私たちの計算では年に１度、わずかですが、割引が得られるので、 お得だと判断しました。 が、いざ、ポイントが溜まり、旅行代金としてポイントが使えるほどになると、ポイントを使わせてもらえません。 ・・・電話のオペレーターさんへ、問い合わせても「できません」と 言われるばかりですし、クラブツーリ●トの電話オペレータの上司と 名乗る中年男性から掛かってきた電話も異常な感じでして・・・ 「オペレーターが理解しない言葉を喋りやがって、貴様なに様だ。 　クレームを片付けてやるから、下手にでて、丁寧に話せ、おら！」 と言う始末です。 提携先の三●住●VIS●カードへ電話連絡しても、 女性のオペレーターさんから「クラブツーリ●トの旅行代金に使いたいのですよね、対応できません。」と言われました。 仲間とバス旅行へ言った際に、 クラブツーリ●トの添乗員さんにも話したのですが、 当初は 「オペレータも悪いし、会社の上層部も悪いし、 　三●住●VIS●カードも悪い。お客様のために何とかしてあげたい」と、一緒に怒ってくれていたのですが・・・ 旅行の最中に会社と電話連絡を取った後から態度が変わり、 バスで移動している最中に、 「オペレーターが理解できないのだから、私たちの会社が理解できる 　ように、何度でも、お客さんが要求すれば良いのに、たった３回、 　会社へ要求しただけで、文句ばかり言う。 　お客さんは会社で、仕事ができない人のフォローをしながら、 　働いていないんですか、冷たいですね～。 　クラブツーリ●トを利用するお客さんには、 　私たちのやり方に添ってくれる優しい方だけにして欲しいですよね」 と、バスの中で、言い出しました。 私たちのグループで唖然として、全然、楽しめなかった。 その上、凄く、傷つきました。 旅行の翌日、クレジットカードは解約をして、 今は、他の会社のバス旅行を利用しています。 スッカリ忘れていたのに、５ケ月間も過ぎ、 今になって、当時の謝罪ということで電話が掛かってきたのです。 ポイントは使わないままで解約していたのですが、 クレジット会社：三●住●VIS●カードによると、 使わないまま解約したポイントが１２００あるので、 その１２００ポイント相当の商品が掲載されているカタログを 送付するので、商品を引き換えてくれと言われました。 今更・・・。正直、関わりたくない。それが本音です。 今になっても、会社側の言い分や言い訳を聞かされ、 「自分たちは悪くない、理解してくれ」と、勝手な言い分を言ってました。 ★これ、無視していて大丈夫でしょうか？ 　電話も拒否設定にしようかなとも思っていて。 あまりに変な会社だと感じたし、 「オペレーターの質の悪さをお客が我慢するのが当たり前」 と今回も言われて、半年くらい前の怒りがこみ上げてきたのですが 関わりたくないと思っていまして。。。 おまけに、未だに、謝罪の言葉はないんです。 自分たちの立場の説明ばかりしてきて、 「クレジットカードを募集する際に広告したとおりのサービスを、 　解約してでも受けさせてやる、 　募集当時のチラシどおりだろう、サービスは受けさせてやった。 　今後、文句いってくるな」　 と言ったりします。 が、私は５ケ月間、クレームは言っていないのですが・・・ ★５ケ月前にお願いしたときに応じてくれなかったサービスを 　解約後に応じるといわれても、サービスが適正だったとは 　思えないでいます。 　この会社が主張するような、サービスが公表しているとおりとも 　思えないでいます。 　皆様は、どう思われますか？ ★この会社、何らか（摘発か行政指導か何か）されているのですか？ 　情報など、ご存知の方、教えてください。 ★今になってフォローしてくる意味って、何でしょうか？ 　この会社側の深層心理などが分かられる方や、 　こういう風に、５ケ月間前のクレームを突然、処理を始める理由って 　どんな理由があるのか？ 　ご存知の方、教えてください。

先日、オークションで急に利用停止となりました。出品者として、取引ナビで落札者様と連絡をとっていました。停止中につき、評価欄、連絡掲示板、取引ナビが急に使用できなくなり、落札者様との連絡が途絶えてしまいました。住所も、取引ナビがいつでも見れるということで、控えていなかった私が悪いのは十分承知していますが、入金された方もいらっしゃるのに、相手の住所が分からずお送りすることができません。自己紹介欄に連絡先を書き込みましたが、決済で入金された方はまだ気がついておられず、連絡がありません。こちらからは、(落札者のID@yahoo.co.jp)へ何度もメールをお送りしていますが、連絡がありません。 自分で控えていたのは、落札者様の苗字とIDだけです。もう、どうしたらよいのか分かりません。勝手なのは分かっていますが、どなたか対応方法を教えて頂けたら幸いでございます。

私派遣社員で、ＩＳＯを取得した会社の工場で働いてます。理由は分かりませんが、審査員が来るたびに、倉庫に隠れるように言われたり、帰らされたり、その日の給料は払ってもらえず、腹がたっています。工場では免許を持ってないのに、リフトを運転させられたりと、労働基準法に違反した無茶苦茶な工場なのに、審査の日だけ工場内をきちんと整理して、ＩＳＯ９００１を取得し、素晴らしい会社と謳っていますが、とんでもない会社なのです。今月の十五日に、この工場 を辞めさせられます。労働基準監督署に違反の内容を知らせに行きますが、ＪＱＡに相談すれば、登録書の取り下げなど出来るのでしょうか？このひどい会社にお仕置きする方法を教えてください。

Word2003です　 印刷レイアウトで「用紙」をはがきに設定すると「はがきサイズ」の「文書ウィンドウ」が画面の左側に表示されます。 「文書ウィンドウ」を画面の中央に表示したいのですが教えてください。

お世話かけますがよろしくお願いします。 ACCESSファイルの「起動時の設定」をメニューフォームにしています。 メニューフォーム上にコマンドボタンを配置して、クリックイベントで 次の「次フォーム」を開くようにしています。 「次フォーム」上に閉じるコマンドボタンを配置して、この次フォームのみを閉じるようにしていますが、 右上隅にある閉じるアイコン?をクリックすると全てが終了しますので このアイコンを無効にしたいのですが

GALAXY製 GF P84GS-LP/256D2　て富士通　FMV　DESKPOWER　Ｃ４/80L　に装着できますか？

一度質問をしたのですが言葉足らずで説明不足でしたので、再質問させて頂きます。 (一度見た方も、もう一度お付き合い願います。) 全くマクロを知らないのですが、上司にマクロ作成を依頼され困っています。(無茶な...。) 下記に内容を記しますので、教えて下さい。 お願いします。 (概要) Excelで「元データシート」にて管理している障害管理表のデータを、 「まくろシート」を作成して「元データシート・D列:発生日時」をキーにして 任意の「開始月:yyyy/mm」と「終了月:yyyy/mm」をそれぞれ指定したセルに入力して、コマンドボタンを押したら、「sheet3」シートにその指定した範囲内のみのデータを表示するようにして欲しい。 ・sheet1について →・「元データ」にシート名を変更しています。 　・「元データ」には障害を管理しているデータが入力されています。 　　　(管理表はこんな感じです)→項目名:3行目・データ:4行目～ 　・セルA3～Y3が項目名(セルD3の項目名→発生日時) 　　 　・セルA4～Y303がデータ(セルD4～D303→yyyy/mm/dd hh:mm:ss) ・sheet2について →・「まくろ」にシート名を変更しています。 　・ セルA2(開始月)とセルB2(終了月)に任意の年月(yyyy/mm)を入力してセルA5にある「コマンドボタン」を押す 　・ キーは「元データシート・D列:発生日時」のデータ部分です。 　　 　 ・sheet3について →・コマンドボタンを押した結果、「sheet3」にマクロの実行結果を反映する。 (A1～Y1行目に項目名が・A2行目～Y(X)行目にデータが表示される) ・A4で印刷するのでA4用紙のサイズに設定する。 以上です。 宜しくお願いします。

俗に言う、安全確認「ルームミラー＋サイドミラー～合図（ウインカー）～目視」ですが、ルームミラーの役割、つまり後方確認の意味がわかりません。 「曲がるため速度を落とすとき、後ろからの追突を避けるため」と教わりましたが、ウインカーを出せばだいたいは気づいてくれます。ウインカーに気づかなくて追突されたとしても、こっちの後方確認の怠りが関係してるとも思えません。また、こっちが後方確認をしたとき、かなり車間が詰まっているからといってそれで右折や左折を断念するのもどうかと・・・・。 受験の神様 あきちゃん 今は、紛らわしくない程度の早めにウインカーをだして、ブレーキを踏みつつ右左折斜線へＯＲ右左折のため停車をしています。 もし、ルームミラーしなかったらどうなるんでしょう？

エクセルのマクロ（VBA）に関して、ご質問いたします。 私のレベルは入門編で、いろんなサイトや本を見て、そのまま利用しているくらいのものです。 次のコードは、他人様のサイトで見つけたものです。 Sub 結合セルを含むロックしていないセルの値の削除() Dim c As Range With ActiveSheet .Unprotect For Each c In .UsedRange If Not (c.Locked) Then c.MergeArea.ClearContents Next .Protect UserInterfaceOnly:=True End With End Sub この処理を複数シートに行いたいので、次のコードを（これも他人様のサイトからお借りしています）、上のコードの「Dim c As Range」の後に追加しましたが、アクティブシートは処理されましたが、全部のシートとはいきませんでした。 Dim Sh As Object For Each Sh In Sheets 単純に足しただけでは、だめなのでしょうか。 参考になるかどうかわかりませんが、シートの中には、値を削除しなくてもいいものも含まれています。 シートが全部で40枚弱あるので、全部のシートをチェックして、ロックされていないセル（結合セル含む）に値が入っていたら、値を削除する処理を、マクロ（VBA）で出来たらいいなっと思っております。 教えていただけますでしょうか。 どうぞよろしくお願いいたします。

XP　OFFICE2003です。 EXCEL表でオートフイルタを掛けると、抽出はしますが下欄の集計が出ません。 HELPの説明によりますと、Σボタンが表示/非表示の切り替えだと称しておりますが、押す押さないにかかわらず非表示です。 どうぞ、常に表示する方法を教えてください。 なお、こんな小さなスペースの項目表示を表示・非表示選択させる意図も分かりません。これもお願いします。

ド素人なのですが、上司にマクロ作成を依頼され困っています。 下記に内容を記しますので、教えて下さい。 お願いします。 ・VBAを使ってExcelで管理してある管理表(下記参照)を 「発生年月日」をキーにして 「開始月:yyyy/mm」と 「終了月:yyyy/mm」をそれぞれ入力して、コマンドボタンを押したら 　その指定した範囲内のみのデータを別シートに表示するように 　して欲しい。 (例) 開始月:2007/8 終了月:2007/11 →2007年8月～2007/11月分の全データが別シートに表示される) ・管理表はこんな感じです。(大体、月に4件ぐらいあります) 　　発生年月日 　 　　　件名　　　　内容　　　　　　完了日 　　(yyyy/mm/dd)　(障害件名)　 (障害内容)　　(yyyy/mm/dd) よろしくお願いします。

こんにちは。 33歳 既婚 女です。 近々 義父母と我が家で旅行に行くことになっています。 旅行の名目は「義父の古稀のお祝い」なんです。 が・・・今年春に実父を亡くしまして・・・ おまけに実父と義父は同い年。 実父は古稀のお祝いをする前に旅立ってしまいました。 それから半年なんですが 義父の古稀のお祝いという事。 旅行が近づくにつれて 微妙な気持ちです・・・ この旅行を計画する時には私も同席していましたが うちの父に対しての言葉は何もありませんでした。 まぁ　義家族からみれば他人事なのでしょうけど　 どうも気持ちが整理できません。 私一人の考えでは　義父のお祝いは　せめて来年にして欲しい と思ったのですが　勝手でしょうかね？ 旅行はちゃんと参加してくるつもりですが　義家族は私のこの気持ちに気がついてるのか　気がついてなければ悲しいです。

くだらない質問ですみません。 空欄じゃないセルの個数をだすにはどのようにすれば いいですか？ 例：A1～A100の中で、空欄ではないセルの個数を求めるにはどのように 　書けばいいでしょうか？ =countif(A1:A100,○○）だとは思うんですが・・・ よろしくお願いします。

以下でVBAでつくりたいのです。 もし、○○株式会社なら 納品書シートのK3のセルを選ぶ その○○株式会社のなかでも○○センターの分なら 「NOなし」のメッセージと「○○セ）運賃出せ」のメッセージがでる もし、NOが入っていなかったら、納品書をしたまま印刷 NOが入っていたら、印刷なしで、売上日報表のシートへ戻る そこで私が手打ちでNOを消す作業をしたいと思います。 NOを手打ちで消したあと、手動で納品書シートに切り替えて納品書にある印刷ボタンをクリックして印刷（マクロボタンを納品書シートに作っています） ○○株式会社で○○センターの分でないなら、 NOが入っていたら、納品書の画面を表示したまま、印刷 NOが入っていなかったら、NO・確認のメッセージが出て、売上日報表シートへ戻る そこで、私が売上日報表に手打ちでNOを入れる作業をしたいと思います。 NOが入ったら、納品書シートを私が手動でクリックするので、納品書シートにある印刷のマクロボタンをまた押すと印刷 ○○株式会社でないなら、NOあるなしにかかわらず印刷　　 以上です。 ○○センターの分はNOが入っていたら印刷、NOが入っていなかったら、メッセージが出て、売上日報表に戻り、印刷されないようになってしまいます。その逆になってほしいのですが、難しいです。 どうすれば、うまくいくのでしょうか？ 手打ちの部分は構文は要りません。 下記は構文です。 Public Sub msgbox○○会社() If Range("A5").Value = "○○会社" Then Worksheets("納品書").Range("k3").Select If Worksheets("納品書").Range("B17,B6") = "○○センター" Then MsgBox "ＮＯなし" MsgBox "○○セ）運賃出せ" If Worksheets("納品書").Range("k3").Value < 0 Then '納品書画面を表示 　Worksheets("納品書").Select Else Worksheets("納品書").Select 　　End If Else Worksheets("納品書").Select End If If Range("k3").Value > 0 Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True Else Worksheets("納品書").Select msgBox "ＮＯ" & vbCrLf & "確認" Worksheets("売上日報表").Select 　　 End If 　　　Else 　ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, 　　　　Copies:=1, Collate _ :=True 　　End If 　　End Sub 間違いはどこですか？

以下でVBAでつくりたいのです。 もし、○○株式会社なら 納品書シートのK3のセルを選ぶ その○○株式会社のなかでも○○センターの分なら 「NOなし」のメッセージと「○○セ）運賃出せ」のメッセージがでる もし、NOが入っていなかったら、納品書をしたまま印刷 NOが入っていたら、印刷なしで、売上日報表のシートへ戻る そこで私が手打ちでNOを消す作業をしたいと思います。 NOを手打ちで消したあと、手動で納品書シートに切り替えて納品書にある印刷ボタンをクリックして印刷（マクロボタンを納品書シートに作っています） ○○株式会社で○○センターの分でないなら、 NOが入っていたら、納品書の画面を表示したまま、印刷 NOが入っていなかったら、NO・確認のメッセージが出て、売上日報表シートへ戻る そこで、私が売上日報表に手打ちでNOを入れる作業をしたいと思います。 NOが入ったら、納品書シートを私が手動でクリックするので、納品書シートにある印刷のマクロボタンをまた押すと印刷 ○○株式会社でないなら、NOあるなしにかかわらず印刷　　 以上です。 ○○センターの分はNOが入っていたら印刷、NOが入っていなかったら、メッセージが出て、売上日報表に戻り、印刷されないようになってしまいます。その逆になってほしいのですが、難しいです。 どうすれば、うまくいくのでしょうか？ 手打ちの部分は構文は要りません。 下記は構文です。 Public Sub msgbox○○会社() If Range("A5").Value = "○○会社" Then Worksheets("納品書").Range("k3").Select If Worksheets("納品書").Range("B17,B6") = "○○センター" Then MsgBox "ＮＯなし" MsgBox "○○セ）運賃出せ" If Worksheets("納品書").Range("k3").Value < 0 Then '納品書画面を表示 　Worksheets("納品書").Select Else Worksheets("納品書").Select 　　End If Else Worksheets("納品書").Select End If If Range("k3").Value > 0 Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True Else Worksheets("納品書").Select msgBox "ＮＯ" & vbCrLf & "確認" Worksheets("売上日報表").Select 　　 End If 　　　Else 　ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, 　　　　Copies:=1, Collate _ :=True 　　End If 　　End Sub 間違いはどこですか？

VBAで、sheet(1)に以下のような数値が入力されているとします。 1.0 1.2 1.4 … END ※入力されている数値の数は場合によって変化します ここで、sheet(2)に以下のような数値が入力されていた場合に、マクロ実行後にこれらの数値をsheet(1)に入力されている値に置き換えたいと考えています（同じ数値が無い場合は、差が最も小さい数値を選択）。 1.01 1.03 1.05 1.07 1.09 1.11 … どのようにマクロを組めばよろしいでしょうか？

以下でVBAでつくりたいのです。 もし、○○株式会社なら 納品書シートのK3のセルを選ぶ その○○株式会社のなかでも○○センターの分なら 「NOなし」のメッセージと「○○セ）運賃出せ」のメッセージがでる もし、NOが入っていなかったら、納品書をしたまま印刷 NOが入っていたら、印刷なしで、売上日報表のシートへ戻る そこで私が手打ちでNOを消す作業をしたいと思います。 NOを手打ちで消したあと、手動で納品書シートに切り替えて納品書にある印刷ボタンをクリックして印刷（マクロボタンを納品書シートに作っています） ○○株式会社で○○センターの分でないなら、 NOが入っていたら、納品書の画面を表示したまま、印刷 NOが入っていなかったら、NO・確認のメッセージが出て、売上日報表シートへ戻る そこで、私が売上日報表に手打ちでNOを入れる作業をしたいと思います。 NOが入ったら、納品書シートを私が手動でクリックするので、納品書シートにある印刷のマクロボタンをまた押すと印刷 ○○株式会社でないなら、NOあるなしにかかわらず印刷　　 以上です。 ○○センターの分はNOが入っていたら印刷、NOが入っていなかったら、メッセージが出て、売上日報表に戻り、印刷されないようになってしまいます。その逆になってほしいのですが、難しいです。 どうすれば、うまくいくのでしょうか？ 手打ちの部分は構文は要りません。 下記は構文です。 Public Sub msgbox○○会社() If Range("A5").Value = "○○会社" Then Worksheets("納品書").Range("k3").Select If Worksheets("納品書").Range("B17,B6") = "○○センター" Then MsgBox "ＮＯなし" MsgBox "○○セ）運賃出せ" If Worksheets("納品書").Range("k3").Value < 0 Then '納品書画面を表示 　Worksheets("納品書").Select Else Worksheets("納品書").Select 　　End If Else Worksheets("納品書").Select End If If Range("k3").Value > 0 Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True Else Worksheets("納品書").Select msgBox "ＮＯ" & vbCrLf & "確認" Worksheets("売上日報表").Select 　　 End If 　　　Else 　ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, 　　　　Copies:=1, Collate _ :=True 　　End If 　　End Sub 間違いはどこですか？

状況としては最終的にはＦ１に表示させる文字を設定したいです 条件はＡ１が空白の場合はＦ１は空白 Ａ１に"山"が入力された場合でＥ１に"田"又は"加Ａ"が入力された場合にはＦ１に100と表示させる（ただし加ＡのＡはＢやＣにもなるので加が入った場合としたいです） Ａ１に"山"以外、Ｅ１に"田"や"加Ａ"（上と同様にＡは変わりますが、加と付いたばあい）以外が入力された場合にはＦ１に20と表示させたいですＩＦ関数の組み合わせにも思うのですが、詳しく分からないのでよろしくお願いします 一度質問したのですが、うまく質問できていなかったようなので、お願いします

会社のお客様情報を統合管理しなおさなくてはいけないのですが、 エクセルにデータが素早くコピーできずに困ってます。 お客様総数は9478人 ＨＰの管理ページですべて表示できれば一括コピー出来てよいのですが、 20人ずつしか表示されません。 最初はコピー＆ペーストでエクセルに名前とメールアドレス等を貼り付け、 お客様情報の管理ページを次のページに変え、 また20人分をコピー＆ペーストしていましたが、 あまりに時間がかかりすぎます。 次に試したのはエクセルのマクロを使ってみたのですが、 管理ページに当然ですがユーザーＩＤとパスワードでのログインは必要で、その部分で壁にぶつかり上手くいきませんでした。 ダウンローダーも考えたのですが、 ＨＰから一部のデータをコピーすることを考えると？？です。 ＵＲＬは 『https://url/scripts/admin/customer_search=1&』と表示され このページで20件のお客様情報です。 次のページのＵＲＬは最後数字の部分だけが変わります。 『https://url/scripts/admin/customer_search=2&』 エクセルにお客様の情報をコピーすることは出来ないでしょうか？ 申し訳ありませんがご助力お願い申し上げます。

Excel2003を使用しています。 あるシートを印刷するときに、その中で数ページだけ印刷が不要のページがあります。 例えば、20ページまで印刷するなかで、4,7,18ページが不要という場合、その不要ページを指定すれば、それ以外のページを印刷するというふうに、マクロで印刷範囲を指定することは可能でしょうか？ (印刷不要のページは都度変わります) 手元にある参考書で、ページ数を指定する方法はわかるのですが、不要なページを印刷しないようにすることができればと思い、質問させていただきました。 よろしくお願いします。