keithin の回答履歴

今まで実行できていたエクセルのxlsmファイルのマクロが 最近になり実行が出来なくなってしまいました。 正常に動いていた頃はブック上のマクロ開始ボタン上ではポインタが矢印になり 実行できていた記憶があるのですが現在では開始ボタン上でも ポインタはエクセル標準のプラスポインタのままで変化がありません。 マクロのセキュリティ設定などを変更しても何も変化はありませんでした。 過去に複数バックアップをとってある全てのブックにおいて 同じ症状が出ているのでブック自体が壊れているとは考えにくいです。 正常に動いていた時と現在との違いとして心あたりあるのが ノートパソコンのバッテリー切れでエクセル、ワード、visualstudio等が途中で終了してしまい 再起動時に何か警告メッセージのような物が出ていた記憶があるのですが その時は不具合を確認できなかったのでメッセージの記録などはしていませんでした。 何か解決方法があればぜひ教えていただきたいです。 よろしくお願いします。

例えば 検査値が0.27として =LEFT(RIGHT(TEXT(A1, ".00"),1),1)　の式で 少数第二位の「7」を抽出しましたが、その「7」を使って 更に計算をしたいのですが、この抽出した「7」を数値化 することが出来ますでしょうか。 ご教授のほど、よろしくお願いいたします。

よろしくお願いします エクセルのバージョンは２０１３です セルの書式設定と条件付き書式がうまくできません なるべく自分でやって見て、だめだったらｇｏｏの皆さんに教えてもらうようにはしていますが どうもセルの書式設定と条件付き書式が喧嘩してるようです 書式設定したいセル範囲が２つあります 共通の書式は １、　桁区切りを使用する ２、　＞０の時に＋を付けて、文字色は水色 ３、　０の時に＋を付けないで０と表示する、文字色は黄色 ４、　＜０の時に－を付けて、文字色は緑 セル範囲１つ目は小数点以下の表示無し セル範囲２つ目は小数点以下１桁表示 上記ができません 検索してみると色々なサンプルが見られますが、うまくできません 手順としては 条件付き書式－セルの強調表示ルール－指定の値より大きい（小さい、値に等しい） を使えば良さそうですが、ここから先を色々やって見ますがうまくできません どなたか教えてください

マクロを修得しておりませんのでそれ以外の方法で探してます。 似たような質問はよくあがってますが、 私のエクセル知識が未熟で応用できません。 A1 B1 C1 FFF 333 1 JJJ 888 1 FFF 333 2 FFF 333 3 ZZZ 777 1 FFF 333 4 JJJ 888 2 JJJ 888 3 EEE 222 1 EEE 222 2 ZZZ 777 2 ZZZ 777 3 キーは2項目あり、キーはリスト内に順不同であります。 この様にC1へ順位付けする関数についてご教授頂けませんでしょうか。 よろしくお願い致します。

ExcelVBA2013です。 列の取得でつまづいております。 お手数ですが、ご教授下さい。 下記のコードで選択範囲のコピー貼り付けは出来ていますが、列幅がコピーされていませんでした。 CC3のセルを基準にOffsetとResizeで範囲拡大してコピーしているためだと思います。 CC3の左隣のAX3:CB3はセル結合されています（○月）。（その下の4行目は日付の１～31が入力） 列は、今回はAX3:CC3まで（1月分）取得できればよいです。（可変します） MaxCol = Range("J5").End(xlToRight).Column 　で列取得できます。 行の位置は、MaxRow = Range("I5").End(xlDown).Row 　で取得した値です。 それで、列全体を取得しようと、　MaxCol = Columns(MaxCol).Select　で最終列は取得できましたが、そこから列選択の拡大ができればと思っています。 現在は、AX3:CC237まで取得コピーして、隣の列に貼り付けで列幅が違う。 希望はAX:CCまでの列を取得選択コピーして貼り付け。 Sub SAMPLE() Dim MaxRow As Variant, MaxCol As Variant Dim r As Range, c As Range MaxRow = Range("I5").End(xlDown).Row '最終行番号 MaxCol = Range("J5").End(xlToRight).Column '最終列番号 Set c = Cells(3, Cells(3, Columns.Count).End(xlToLeft).Column) '表の右上角のセル番地を取得 c.Select c.Offset(0, -31).Resize(MaxRow - 2, 32).Copy c.Offset(0, 1) '表右上から１月分選択範囲拡大してコピー隣の列より貼りつけ End Sub

マクロを修得しておりませんのでそれ以外の方法で探してます。 似たような質問はよくあがってますが、 私のエクセル知識が未熟で応用できません。 A1 B1 C1 FFF 333 1 JJJ 888 1 FFF 333 2 FFF 333 3 ZZZ 777 1 FFF 333 4 JJJ 888 2 JJJ 888 3 EEE 222 1 EEE 222 2 ZZZ 777 2 ZZZ 777 3 キーは2項目あり、キーはリスト内に順不同であります。 この様にC1へ順位付けする関数についてご教授頂けませんでしょうか。 よろしくお願い致します。

エクセル2010を使用しています。 以下までは自分の力でも、エクセルでできました。 A＝35個＝70％ B＝10個＝20％ C＝5個＝10％ やりたいことは、 「１：Aがあと何個増えたら目標値に達するか」 「２：Aがあと何個減ったら目標値を下回るか」 「３：Cがあと何個増えたら目標値を超えてしまうか」 「４：Cがあと何個減ったら目標値以下に抑えられるか」 を自動計算することです。すなわち、Aは増やしたい数値、Cは減らしたい数値です。 目標値は80％とか70％とか、任意のパーセンテージを設定できるものとします。 上記１～４を表示するセルは、同じセルでも別なセルでも構いません。 どのような関数を組んだら、上記の計算ができるでしょうか。 何とぞ知恵をお貸しください。よろしくお願いいたします。

こんにちは。 Wordの箇条書きと段落番号の機能を使って、 以下のようなQ＆Aを作成できますでしょうか。 Part１ 　Q1-1 　A1-1 　Q1-2 　A1-2 Part２ 　Q２-1 　A２-1 　Q２-2 　A２-2 箇条書きと段落番号だと、ひとつの系列に対して一連のレベル（１、２、３・・）しか設定できず、アウトラインを増やしても、上のレベル（この例の場合Part1,2）はひとつのアウトライン内でしかセットできませんでした。 以下のようになります。 Part１ 　Q1-1 　A1-1 　Q1-2 　A1-2 Part２ 　Q1-3 　A２-1 　Q1-4 　A２-2 または、Part2が 　Q２-1 　A１-3 　Q2-2 　A１-4 のようにしかできませんでした。 QかAどちらかしかレベル１の番号を継承できない状態です。 以下も調べましたが解決できず。。。 http://office-qa.com/Word/wd220.htm http://okwave.jp/qa/q626850.html すみませんが、お知恵をお貸し下さい。 是非宜しくお願いします。

セルＣ５～Ｃ１０００には「N1309068」の様なN○○○○○○○（半角英数字）の文字が入力されています。 コマンドボタンを押すとセルＣ５～Ｃ１０００の範囲が自動でハイパーリンクが設定される様にしたいです。 リンクさせるファイルはデスクトップの「改善シート（リンク用）」のフォルダの中にある「N1309068 KAIZEN」のエクセルファイルです。 セルＣ５～Ｃ１０００の範囲に記入した数字を、リンク先のフォルダの中にあるエクセルファイルN○○○○○○○ KAIZEN（半角英数字）の○○○○○○○の数字と一緒のファイルにリンクさせるようにするＶＢＡは、どの様に組めば宜しいでしょうか？

いつもお世話になっております。 Excel2013VBAでVLOOKUP関数を使用して、商品名に対応した商品コードをとりたいのですがうまくいきません。 アクティブシートの表のA列、D列、G列に商品名を複数入力してあります。 テーブルシートのB列に同じく商品名があり、C列に商品コードがあります。 VLOOKUPを使ってテーブルシートから商品コードを取り出して、アクティブシートのA列、D列、G列の商品名の下の行に商品コードを入力するにはどうすればよろしいでしょうか？ 条件として、テーブルシートのC列の商品コードは空白のものが存在する。その場合は処理する必要なし。 アクティブシート内の商品名の下の行が空白の場合のみ処理を行う。商品名が連続して入力してある箇所で商品コードが存在する場合は、メッセージでセル番地を表示して、処理を中断。ただし連続して入力してあっても、商品コードが存在しないものは問題なしとして次の処理を行う。 一部作りかけのものを提示します。また、下記コードはブレークポイントで停止しながらだと一応動作していましたが、普通に動かすとフリーズを起こします。すいません。 たびたびすいませんが、よろしくお願いいたします。 Sub VLOOKUP検索() Dim h As Range, ac As Range Application.ScreenUpdating = False Set ac = ActiveWindow.ActiveCell On Error Resume Next For Each h In Range("A:A,D:D,G:G") If h.Offset(1, 0) = "" Then h.Offset(1, 0) = Application.WorksheetFunction.VLookup(h, Worksheets("テーブル").Range("B:C"), 2, False) End If Next Application.ScreenUpdating = True ac.Select End Sub

セルＣ５～Ｃ１０００には「N1309068」の様なN○○○○○○○（半角英数字）の文字が入力されています。 コマンドボタンを押すとセルＣ５～Ｃ１０００の範囲が自動でハイパーリンクが設定される様にしたいです。 リンクさせるファイルはデスクトップの「改善シート（リンク用）」のフォルダの中にある「N1309068 KAIZEN」のエクセルファイルです。 セルＣ５～Ｃ１０００の範囲に記入した数字を、リンク先のフォルダの中にあるエクセルファイルN○○○○○○○ KAIZEN（半角英数字）の○○○○○○○の数字と一緒のファイルにリンクさせるようにするＶＢＡは、どの様に組めば宜しいでしょうか？

エクセル関数で質問さっせてください。A1～Ａ１００間で売り上げ合計金額が入力しています。 A111セルに合計を入れたいのですが1～100まで全部数字が埋まらないと非表示になる関数は どうすればいいですか? 1～100中1個でも空白のセルがあれば合計は非表示にしたいです。 申し訳ございませんが至急ご回答をお願い致します。

エクセルで、ご教授お願いします。 関数でA001,A002,A003の集計をする式は、ありますか？ A列（作業コード）　B列（内容）　C列（数量） 作業コードをキーにして数量を集計したいのですが。 【明細】 作業コード　　内容　　　　　　　　　　数量 A001　 いちご（値札貼り） 50 A002　 いちご（仕訳）　　　 80 A003　　　　いちご（箱入れ） 　　　100 A001　　　　いちご（値札貼り） 40 A003　　　　いちご（箱入れ）　　　 40 合計数量 A001　　 いちご（値札貼り） 90 A002　 いちご（仕訳）　　　 80 A003　　　　いちご（箱入れ） 　　　140 宜しくお願い致します。

まず、Excel2013です。 filterで、例えば1,2,8,10行が表示されているとして、A1をA2,A8,A10だけにコピーするにはどうしたらよいでしょうか？ 単純にA1を選び、A2：A10にコピーすると、隠れているA3,A4,A5等にもコピーされます。 「形式を選択して貼り付け」を開いておりますが、適当な選択肢が見つかりません。

Windows Vistaを使っていますが、WORD2007の均等割り付けがうまくいかなくなりました。 たとえば、謹賀新年という文字を６字分に均等割り付けしようと思い均等割り付けを押したら、勝手 に謹賀新年の文字が一行文を丸々取って、広い間隔で表示されてしまいます。 つまり謹の字が最も左に、年の字が最も右に、これらの中に賀の字と年の字が同じ間隔で表示され ます。 従来通り、均等割り付けができるようにするには、どうすれば良いでしょうか。ご教示ください。

お世話になります。 来年の1月からお客様の入場数などをエクセルで月報形式にて記録しようと思います。 シート名「2015年1月」に過去12か月の入場者数を月毎に記録する表を作ります。 （あらかじめ過去にさかのぼって12か月分の月報を作るつもりです）。 そのシートの右にシート名「2015年２月」で同様の事をする場合、「2015年1月」にはあった2014年2月分の入場者数は自動的に消え、2014年2月分が記録されていた2014年３月分がスライドし、空欄となった2014年12月分があったところには新たに2015年1月分が自動的に入力されるようにしたいのです。つまり月替わりに最新のシートをコピーするだけで、自動的に上記の事が反映され、将来的に継続さるようにしたいのですが、このような事は可能でしょうか。よろしくお願い致します。

よろしくお願いします 保護しないシートがあります 自由に行の挿入ができますが、行数が一定以上増えると困るので その時の処置をマクロで書くにはどうしたらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range)内に書くマクロなのですが マクロの内容は次のとおりです 行が挿入されようとした時に、vbOKCancel　で　ＯＫならば行の挿入を許可 キャンセルならば挿入させない（元に戻すでしょうか？） うまく説明できていませんが、疑問点は補足させていただきますのでよろしくお願いします

セルの値が「#VALUE!」の場合、 VBAで If Cells(lastRow, Col_本体価格) = Empty Then とすると、 「実行時エラー　13　型が一致しません。」 となります。 セルの値が「#VALUE!」の場合でも、 VBAでifステートメントを使えるようにするには どうすればいいですか？

いつもお世話になります。 WINDOWS7 EXCELL2010 です。 データーを元に分かり易くするために参照図の「空室状況」の画像のような表現を考えています。 現在はシート「予約一覧」のA列(チェックイン)に日付を入力し1日のみの宿泊は下記の数式で可能です。 ただ複数の宿泊の時のアイデァが分からず困りました。 この複数の宿泊を「空室状況」に対応するにはどうすればいいか御指導いただけませんでしょうか。 宜しくお願いいたします。 参考に 1 シート　予約一覧 A 4の行の青は　=$A4=検索日　シート　検索日=見取り図F1 B 作業列1　F4 =A4&G4 作業列2　G4 =C4 2 シート　見取り図 A 条件付書式 =COUNTIFS(予約一覧の部屋番号,B5,予約一覧の宿泊日,検索日)>0 B　作業列3　I5 =F1&B5 C 顧客名　=IF(ISNA(VLOOKUP(I5,予約一覧!$F$4:$G$17,2,FALSE)),"",VLOOKUP(I5,予約一覧!$F$4:$G$17,2,FALSE))

現在、エクセルにてリストを作成しております。 お力をお借り出来ると幸甚です。 簡単に記載いたします。 【シート内容】 A列に他シートにて都道府県のリストを作成し、そこを見て、リストから都道府県名を選択するようにしております。 B列には例として、特定の数字データを入力します。(手入力) A列　　　　　　B列 (表1) 東京　　　　　　10 千葉　　　　　　20 神奈川　　　　　30 東京　　　　　　40 埼玉　　　　　　50 東京　　　　　　60 千葉　　　　　　70 --------------------------- この下に、上記表の取りまとめの情報を載せたいと考えております。 例として、(列はどこでも構いません) (表2) A列　　　　　　B列 東京　　　　　　110 千葉　　　　　　90 神奈川　　　　　30 埼玉　　　　　　50 【お力をお借りしたい部分】 (表2)に取りまとめの情報を作成する際の方法です。 (表1)のA列に、リストから選択された各都道府県名は、特定ではなく、変わります。 その為、(表2)のA列に各都道府県名を固定で記載し、B列にsumif関数等が使えないと考えております。 ・(表2)A列に(表1)A列に表示されている一覧から、重複なく、もれなく一覧を表示させる方法はありますでしょうか？(出来ればピボットテーブル等を使用せずに関数で出来たら助かります。)