ushi2015 の回答履歴

Excel2010で履歴書を作成していますが、知らないうちに図ツールというのが出ています。セルを選択して入力したいのに、枠全体が選択されてしまい出来ません。書式のグループ化のグループ解除というやり方だと入力出来ないです。最初の何も設定してない状態に戻すには、どうすれば良いですか？

お世話になります。 Access2010 抽出方法についてご教示下さい。下記のテーブルがあります。 ＜社員テーブル＞ 社員番号　氏名　　　性別　　血液型 00100　　山田太郎　　男性　　A 00200　　鈴木一郎　　男性　　A 00300　　田中次郎　　男性　　B 00400　　鈴木花子　　女性　　O ＜人事テーブル＞ 社員番号　人事C　　　部署名C　　開始日　　　　終了日 00100　　 1　　　　　　　　　　 2000/04/01　　2000/04/01 00100　　 2　　　　　2　　　　　2000/04/01　　2005/03/31 00100　　 3　　　　　1　　　　　2005/04/01　　2008/04/01 00100　　 3　　　　　3　　　　　2008/04/01 00200　　 1　　　　　 　　　　　2005/04/01　　2004/04/01 00200　　 2　　　　　1　　　　　2005/04/01　　2007/03/31 00200　　 3　　　　　3　　　　　2008/04/01 00300　　 1　　　　　 　　　　　2010/10/01　　2010/10/01 00300　　 2　　　　　2　　　　　2010/10/01 00400　　 1　　　　　　　　　　 2011/04/01　　2011/04/01 00400　　 2　　　　　1　　　　　2011/04/01　　2015/03/31 00400　　 4　　　　　　　　　　 2015/03/31　　2015/03/31 ※人事Cの1(入社)の登録では部署名Cは登録されず、別レコードに 　登録されます。 ＜人事マスタ＞ 人事C　人事 　1　　入社 　2　　人事 　3　　部署移動 　4　　退職 ＜部署マスタ＞ 部署名C　　部署名 　1　　　　営業部 　2　　　　経理部 　3　　　　総務部 最終的にフォーム上のリストボックスに下記にように表示したいところです。 社員番号　部署名　氏名　　　性別　血液型 00100　　 総務部　山田太郎　男性　　A 00200　　 総務部　鈴木一郎　男性　　A 00300　　 経理部　田中次郎　男性　　B 00400　　 営業部　佐藤花子　女性　　O 下記のようにやって、とりあえず抽出はできたのですが。。 もっとよい方法があればお教え頂けたらと思います。 1.人事テーブルで人事Cが2 or 3で抽出し、グループ化、かつ開始日の最大 　でクエリを作成 　　00100　2008/04/01 　　00200　2008/04/01 　　00300　2010/10/01 　　00400　2011/04/01 2.1のクエリと人事テーブルを社員番号と開始日で紐づけてクエリ作成 　社員番号　　部署名C　　　開始日　　 　00100　　　　3　　　　　2008/04/01 　00200　　　　3　　　　　2008/04/01 　00300　　　　 　　　　　2010/10/01 　00300　　　　2　　　　　2010/10/01 　00400　　　　　　　　　 2011/04/01 　00400　　　　1　　　　　2011/04/01 　このように、00300と00400については入社のレコードも抽出されて 　しまうので、ここでさらに部署名CをIs Not Nullとする。 　00100　　　　3　　　　　2008/04/01 　00200　　　　3　　　　　2008/04/01 　00300　　　　2　　　　　2010/10/01 　00400　　　　1　　　　　2011/04/01 3.社員テーブルと2のクエリ、部署マスタを紐付けます。 　社員テーブル---------2のクエリ---------部署マスタ 　　　　　　（社員番号）　　　 （部署名C） 　このクエリをリストボックスのソースとしてます。 なお、実際には1と2のクエリはひとつにまとめてます。 SELECT Q.社員番号, 人事テーブル.部署名C FROM (SELECT 人事テーブル.社員番号, Max(人事テーブル.開始日) AS 開始日の最大 FROM 人事テーブル WHERE (((人事テーブル.人事C)=2 Or (人事テーブル.人事C)=3)) GROUP BY 人事テーブル.社員番号) AS Q INNER JOIN 人事テーブル ON (Q.開始日の最大 = 人事テーブル.開始日) AND (Q.社員番号 = 人事テーブル.社員番号) WHERE (((人事テーブル.部署名C) Is Not Null)); もっとシンプルに結果を出せるのでは？ということで質問させて 頂いた次第です。 宜しくお願い致します。

お世話になります。 Access2010 抽出方法についてご教示下さい。下記のテーブルがあります。 ＜社員テーブル＞ 社員番号　氏名　　　性別　　血液型 00100　　山田太郎　　男性　　A 00200　　鈴木一郎　　男性　　A 00300　　田中次郎　　男性　　B 00400　　鈴木花子　　女性　　O ＜人事テーブル＞ 社員番号　人事C　　　部署名C　　開始日　　　　終了日 00100　　 1　　　　　　　　　　 2000/04/01　　2000/04/01 00100　　 2　　　　　2　　　　　2000/04/01　　2005/03/31 00100　　 3　　　　　1　　　　　2005/04/01　　2008/04/01 00100　　 3　　　　　3　　　　　2008/04/01 00200　　 1　　　　　 　　　　　2005/04/01　　2004/04/01 00200　　 2　　　　　1　　　　　2005/04/01　　2007/03/31 00200　　 3　　　　　3　　　　　2008/04/01 00300　　 1　　　　　 　　　　　2010/10/01　　2010/10/01 00300　　 2　　　　　2　　　　　2010/10/01 00400　　 1　　　　　　　　　　 2011/04/01　　2011/04/01 00400　　 2　　　　　1　　　　　2011/04/01　　2015/03/31 00400　　 4　　　　　　　　　　 2015/03/31　　2015/03/31 ※人事Cの1(入社)の登録では部署名Cは登録されず、別レコードに 　登録されます。 ＜人事マスタ＞ 人事C　人事 　1　　入社 　2　　人事 　3　　部署移動 　4　　退職 ＜部署マスタ＞ 部署名C　　部署名 　1　　　　営業部 　2　　　　経理部 　3　　　　総務部 最終的にフォーム上のリストボックスに下記にように表示したいところです。 社員番号　部署名　氏名　　　性別　血液型 00100　　 総務部　山田太郎　男性　　A 00200　　 総務部　鈴木一郎　男性　　A 00300　　 経理部　田中次郎　男性　　B 00400　　 営業部　佐藤花子　女性　　O 下記のようにやって、とりあえず抽出はできたのですが。。 もっとよい方法があればお教え頂けたらと思います。 1.人事テーブルで人事Cが2 or 3で抽出し、グループ化、かつ開始日の最大 　でクエリを作成 　　00100　2008/04/01 　　00200　2008/04/01 　　00300　2010/10/01 　　00400　2011/04/01 2.1のクエリと人事テーブルを社員番号と開始日で紐づけてクエリ作成 　社員番号　　部署名C　　　開始日　　 　00100　　　　3　　　　　2008/04/01 　00200　　　　3　　　　　2008/04/01 　00300　　　　 　　　　　2010/10/01 　00300　　　　2　　　　　2010/10/01 　00400　　　　　　　　　 2011/04/01 　00400　　　　1　　　　　2011/04/01 　このように、00300と00400については入社のレコードも抽出されて 　しまうので、ここでさらに部署名CをIs Not Nullとする。 　00100　　　　3　　　　　2008/04/01 　00200　　　　3　　　　　2008/04/01 　00300　　　　2　　　　　2010/10/01 　00400　　　　1　　　　　2011/04/01 3.社員テーブルと2のクエリ、部署マスタを紐付けます。 　社員テーブル---------2のクエリ---------部署マスタ 　　　　　　（社員番号）　　　 （部署名C） 　このクエリをリストボックスのソースとしてます。 なお、実際には1と2のクエリはひとつにまとめてます。 SELECT Q.社員番号, 人事テーブル.部署名C FROM (SELECT 人事テーブル.社員番号, Max(人事テーブル.開始日) AS 開始日の最大 FROM 人事テーブル WHERE (((人事テーブル.人事C)=2 Or (人事テーブル.人事C)=3)) GROUP BY 人事テーブル.社員番号) AS Q INNER JOIN 人事テーブル ON (Q.開始日の最大 = 人事テーブル.開始日) AND (Q.社員番号 = 人事テーブル.社員番号) WHERE (((人事テーブル.部署名C) Is Not Null)); もっとシンプルに結果を出せるのでは？ということで質問させて 頂いた次第です。 宜しくお願い致します。

アプリをダウンロードして、Excelファイルで開こうとすると文字化けします。 いろいろ調べたところ、一旦、テキストファイルで開き、 文字コードをUFT-８に設定して保存し、その後、Excelで開くと文字化けはしません。 毎週行いたい作業ですので、できればVBAコードで一発で文字化けせずに開けると ありがたいのです よろしくお願いします 補足：アプリはiphoneのCount Logというアプリです。 メールにファイルが添付されています。それを開くと文字化けしてしまうという話です。

情報処理検定（表計算）用のタイマー付き模擬試験の教材を作りたいと考えています。 大まかなイメージは次のようになります。 生徒がタイマー(自作する）で制限時間を設定し、スタートボタンを押すと作業を開始することができる。制限時間が過ぎるとメッセージを出し、作業は続けることができなくなる。 タイマーの残り時間をExcelのVbaから参照するにはどのような方法があるのか、どなたか教えていただけませんでしょうか。 これに関連しそうなことで、今までに次のことやりました。 （１）Vbaでタイマーを作りました。 時間を設定し、スタートボタンを押すと、残り時間を1秒単位で更新する。残り時間が0になるとメッセージを表示して終了する。 　　授業では全く使っていません。タイマーが必要な時は他のフリーのソフトを使っています。 （２）Vbaで制限時間付き英単語入力教材を作りました。 　生徒が制限時間を設定し、スタートボタンを押すと作業を開始でき、英単語が表示され、同じ単語を入力セルに入力、確定すると次の英単語を表示する。以下残り時間が０になるまで作業する。入力したタイミングで残り時間を参照し、0以下になっていれば作業を終了させて、入力数と正解数を記録する。 これは授業で使っています。特に問題はないのですが、残り時間を刻々と表示するタイマーではないので緊迫感に欠けます。 （２）の中で（１）を実現しようと努力はしたのですが、うまくできませんでした。 （３）VisualBasicでタイマーを作りました。 「日経ソフトウエア」2015年8月号の記載のコードを入力しただけですが。 現在は次のようなことができれば、うまくいくのではないかと思い、その方法を探しています。 「自作タイマーとExcelを起動する。タイマーはあるタイミングで共通領域？（ファイル、メモリー、変数？）に残り時間を書き込む。Excel Vbaからあるタイミングで共通領域の値を参照する。」 　全く手探り状態で、つぎのことを調べました。 （４）MSDNで「.NET Framework でのパイプ操作」 「方法: ローカルのプロセス間通信で匿名パイプを使用する」 「方法: ネットワークのプロセス間通信で名前付きパイプを使用する」 に記載されたコードをコピーし、働きを確認できたのですが、それをどう利用したらいいのか今のところよく分かりません。(言語はC#、環境はVisual Studio 2015 Community、OSはWindows 10) 基本的な知識が不足していて、どこから手をつけたらいいのか全く分からない状況です。 ともかく今は、プロセス間通信について調べています。またC#について勉強しています。「独習　C# 第3版」第7章まできました。サンプルコードを入力して確認しているだけですが。 　よろしくお願いします。

(1) Sub 印刷() With Sheets("原本") .Cells.FormatConditions.Delete .PageSetup.PrintArea = Range("A1:K73").Address .PrintOut End With End Sub としているのですが ボタンを間違って押した時も印刷がされてしまいます 押したときに　印刷しますか？　はい　いいえ みたいなのを確認するようにしたいのですが どうすればいいでしょうか？ (2) Sub 保存() Dim MySheetName As String MySheetName = InputBox("シート名を入力してください") Sheets("9月1日").Copy After:=Sheets(Worksheets.Count) ActiveSheet.Name = MySheetName Sheets("原本").Range("A1:K73").Copy Sheets("原本").Range("A1") End Sub で原本シートをコピーして新しいシートを作成するプログラムを 作ったのですが、シート名を入力しはいを押すと作成されるのですが キャンセルを押した時も勝手にシートが作成されるのですが キャンセル時は何もシートを作成しないように したいのですが どうしたらいいでしょうか？ どちらも教えて貰いながら作成したため 自分で修正できなく困ってます お手数ですがよろしくお願いします

シートが目次、１～９まであり 全部で1３枚構成になってるエクセルのファイルがあります 目次以外非表示でしています 目次→１→４→７→１０ 目次→２→５→８→１１ 目次→３→６→９→１２ 目次から次々へ飛ぶボタンを作成しました 例えば　1→１０まで行ったときシートの表示は１、４、７，１０が残ります 10→７などに移ったときは非表示にするボタンを作成しています 各シートに目次に一気に戻るボタンを作成したのですが 目次に戻る際、目次以外の開いたシートを全部非表示に戻したいのですが どうしたらいいでしょうか？ Sub 目次() ActiveSheet.Visible = False Worksheets("目次").Activate End Sub 今現在のプログラムです

￥￥192.168.1.10￥share のファイルサーバフォルダを開かせるcmdを作りたいのですが、どのような記述をすればいいのでしょうか？ 教えてください。

よろしくお願いします。エクセルVba初心者です。 エクセルでの作業をvba化したいと思っています。 C列：苗字　 D列：名前 E列：E2=$C2&" "&$D2 …これを最終行まで　 F列：全て数字の1を自動入力 これを Function NameNumber() n = Cells(Rows.Count, "D").End(xlDown).Row Dim Name As Long For Name = 2 To n Cells(Name, "E").FormulaR1C1 "=R[0]C[-2] & R[0]C[-1]" Next Name Dim Number As Long For Number = 2 To n Cells(Number, "F").Value = 1 Next Number End Function と書いてみましたが、348エラーが出てきました。 いろいろ間違っているのかもしれませんが、ご指南いただけますと幸いです。よろしくお願いいたします。

Excel2010を利用しています。 下記について教えてください。 質問1 並び替えの機能として、予め表全体を選択さえしておけば表内に空白行などがあっても基本は正しく並び替えがされる認識でいいでしょうか？ 質問２ 元々種類每に並んだ表があり（わかりやすいように種類每に太線でも区切っています）、それに新規分は種類に関係なく下にデータを足しているため、表全体を選択して種類每に並び替えをしたいと思います。 ちなみに納品済のデータについては目立つように行全体をぬりつぶしています。 やってみたところ、見た感じぬりつぶしの行は移動することなくうまく並び替えされている感じでしたが、罫線は並び替えできなかったようです。（←この理解であっていますか？） 罫線も合わせて並び替えできる方法や、できなければ種類每にわかりやすく見られるような他の方法（太線を簡単に引く方法など）があれば教えてください。 どうぞよろしくお願いいたします。

アプリをダウンロードして、Excelファイルで開こうとすると文字化けします。 いろいろ調べたところ、一旦、テキストファイルで開き、 文字コードをUFT-８に設定して保存し、その後、Excelで開くと文字化けはしません。 毎週行いたい作業ですので、できればVBAコードで一発で文字化けせずに開けると ありがたいのです よろしくお願いします 補足：アプリはiphoneのCount Logというアプリです。 メールにファイルが添付されています。それを開くと文字化けしてしまうという話です。

アプリをダウンロードして、Excelファイルで開こうとすると文字化けします。 いろいろ調べたところ、一旦、テキストファイルで開き、 文字コードをUFT-８に設定して保存し、その後、Excelで開くと文字化けはしません。 毎週行いたい作業ですので、できればVBAコードで一発で文字化けせずに開けると ありがたいのです よろしくお願いします 補足：アプリはiphoneのCount Logというアプリです。 メールにファイルが添付されています。それを開くと文字化けしてしまうという話です。

アプリをダウンロードして、Excelファイルで開こうとすると文字化けします。 いろいろ調べたところ、一旦、テキストファイルで開き、 文字コードをUFT-８に設定して保存し、その後、Excelで開くと文字化けはしません。 毎週行いたい作業ですので、できればVBAコードで一発で文字化けせずに開けると ありがたいのです よろしくお願いします 補足：アプリはiphoneのCount Logというアプリです。 メールにファイルが添付されています。それを開くと文字化けしてしまうという話です。

いつもお世話になっております。 vlookup関数ですが、現状は検索値や参照先が未入力の場合は空白になるように、 ＝if( =" ", vlookup( , ,0)&" ")という式（…式1）を使っています。 これは文字列扱いになるらしく参照した金額などを範囲選択しても合計金額が表示されないようです。 一方でiferror関数はエラーがあると空白になるように、 =iferror(vlookup( , ,0)," ")という式（…式2）を入れると数値扱いになる認識ですが、他のエラーは表示されない（？）と把握しています。 ここで質問ですが、自分の希望としては (1)エラー表示したい（空白にしたくない）…検索値が誤っていたり（一致しない）、テーブル範囲の間違い、参照先が見つからないなど（#N/Aや#REF） (2)エラー表示したくない（無視したい）…検索値や参照先が未入力（←式1はクリア） のですが、他にも出る可能性があるエラーはありますか？ また式1は上記(1)のエラー表示はされる、式２はされない認識でいいんでしょうか？ 上記希望をできるだけ満たした算式があれば教えていただきたく（できれば数値が好ましい）よろしくお願いします。

日付の入ったセルと時刻の入ったセルを合算させようとするとエラーが生じます。 エラー13「型が一致しません」と表示されます。 エラーが生じないようにするにはどうしたよいでしょうか？ Option Explicit Public num As Integer Sub newmacro() For num = 1 To Range("a1").End(xlDown).Row Cells(num, "F").Value = (Cells(num, "D").Value + Cells(num, "E").Value) - (Cells(num, "B").Value + Cells(num, "C").Value) Next num End Sub

Ｃ１５に="田中"&TEXT(A15,"ｍ.d") Ｃ１５に田中8.31と表示されてます 別のシート作成し　田中8.31　と名前を付けておきます Ｃ１５を押した時に飛ぶように設定しようとしたのですが うまくいかないのですが どうしたらいいでしょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$14" Or Target.Address = "$C$15" Then Worksheets(Target.Value).Visible = True Worksheets(Target.Value).Select Else End If End Sub Worksheets(Target.Value).Visible = True　ここの部分でうまくいかなくなります

アプリをダウンロードして、Excelファイルで開こうとすると文字化けします。 いろいろ調べたところ、一旦、テキストファイルで開き、 文字コードをUFT-８に設定して保存し、その後、Excelで開くと文字化けはしません。 毎週行いたい作業ですので、できればVBAコードで一発で文字化けせずに開けると ありがたいのです よろしくお願いします 補足：アプリはiphoneのCount Logというアプリです。 メールにファイルが添付されています。それを開くと文字化けしてしまうという話です。

図のようなリストがあります。 「発売日」の日付けを判断するVBAを教えてください。 ・オレンジ色のセルと「発売日」のE列は固定で移動しません。 ・データの最終行は未定（表による、ここでは17行目、No.13が最後のデータ） ・データのある右端の列も未定（表による） ・表のタイトル行（No. シリアル・・・）は固定（4行目） このようなシートに対して、次のような操作ができるVBAのコードを教えてください。 1. 「発売日」のE列を調べ、"G1"の"EOL最終日"と比較し、こお日"以前"の行は、 　右端に"EOL"と入力する （EOLとは「End Of Life」で、部品サプライヤーが部品供給を終わったことを意味します） 2. "G1"の日付けの翌日から"G2"の日付け（当日含む）までの期間にある部品は現行品のため、"現行品"と入力する 3.E列でどちらにも該当しない入力、空欄、ゴミ入力などは”N/A”と入力する（これはElseでよい） 表の右端は現在の表ではF列の「備考」列ですが、表によっては誰かが列を増やしている可能性があるため、上記の入力は列の右の空いている未使用列に入力したい。 日付け形式で入力された列の、If / Elseif/ Else判定の仕方がわからずこまっています。 よろしくお願いします。

カーグラフィックTV1987北イタリア自動車紀行で流れていた女性歌手の曲

先週（8月21日）放映されたＣＧＴＶ、#1547-メモワール　イタリア’87 後編の冒頭で流れた女性ボーカルの曲名・歌手名をご存知の方、教えてください。シャンソンぽい曲だったのですが、とても気に入ってしまいました。よろしくお願いします。