ushi2015 の回答履歴

エクセル2016を使っています。 aaaという名前のフォルダの中に、複数のエクセルファイルが保存されています。 エクセルファイルにはそれぞれ複数のシートがありますが、シート枚数はファイルによって異なります。 全てのエクセルファイルの結合セルを解除して上書き保存したいのですが、まとめて行うためのマクロを書けません。 なお結合されているセルはどのシートでもA1からAZ150の中にあります。 おわかりの方教えていただけますでしょうか。 よろしくお願いいたします。

Excel 2013なのですが、INDEX関数で変な現象が起こる理由が分かりません。 例えば、E9:E12のセル範囲に何らかのデータを入力した上で、別のセルで =INDEX($E$9:$E$12,0) という数式を作ると、普通は参照先に０行目は無いのでエラー（#VALUE!）が出るのですが（出る様にしたい）、数式を入れるセルがシートの9～12行目にある時だけ、9行目だとE9セルの内容が、10行目だとE10セルの内容が出力されます。数式を違うシートに入力しても同じ現象が起こります。バグのようにも思うのですが、理由分かる方いらっしゃらないでしょうか。

エクセルVBAを使った方法を教えて頂きたいです。 画像参照※○○は商品名であり、それぞれ異なる名前と仮定 画像のように商品名　個数　単価　合計金額　と分けたいです。最後には消費税とどこに送るかといった形でまとめています。 このような分解する前のデータが約１０００件あります。 これをVBAを使ってわけていきたいのです。 画像の通り商品名の後にスペースなしで個数が入ってきたりします。 それから商品名はほぼ毎月固定なので商品名自体のデータはあります。 どうかよろしくお願いします。

エクセルのコピー元シート：100行10列 コピー先シート：ペーストする先　セル10　関数5　Ｎ行（例えば150行） コピーした後にデータが張り付いていない行に関数だけ残る（50行） この不要な行の関数を毎回手でクリアしています。 マクロで関数を消すにはどうすればよろしいかご教示願いたく、 よろしくお願いいたします。

【環境】 Windows7 Office2013 【目的】 Excelで作ったcsvデータを、条件に合うものだけ抜き出して別ブックに自動で転記したい （1つの表を2つに分けたい） 【詳細】 ※オートフィルを使うという前提で説明しますが、目的の結果が得られるのであれば 　 オートフィル以外の方法でも構いません。 csvのデータがあります。 その中からオートフィルを使って「M列」で条件を選択（複数）し、その結果を 抜き出して（切り取って）別のブック（別シートではダメ）に自動転記したいです。 最終的に、元々の表Aから条件に合ったものだけを表Bとして保存。 表Aから表Bのデータを抜いたものは、そのまま表Aとして上書き保存。 ・・・したいです（添付画像参照） ネットで調べたところ、表の中に検索条件を入れる欄を作って・・・という方法 ならあったのですが、データ(ｃｓｖ）はそのままシステムに取り込むので 余計な欄を増やしたり等はできません。 そこで行き詰ってしまいました。 【表の詳細】 A～S列まであります。 項目名などの行は無く、1行目からデータが入っています。 ※行数は、都度変化します。 M列の中から「90」「95」の物だけを抜き出して、表Bとしたい。 【やってみたこと】 オートフィルでの操作を「マクロの記録」で記録しようとしたのですが、 オートフィルの結果だけを「切り取る」ことが出来ず、ダメでした。 どなたかお知恵をお貸しください。

表題が何と記載すれば良いか分からなかったので曖昧な表題となってしまい 申し訳ございません。 今回は自分的には高度でどの様にしたら良いかが分からず質問させて頂きます。 シートAとシートBとシートC　及び　項目一覧シートがあると仮定します。 シートA（検索対象シート）　　　A~D列程度あり、行数は2000行程度を想定 シートB（ピックアップシート）　A~D列程度あり、行数は2000行程度を想定 項目一覧シート（シートAの項目）開発に関する文字列 　　　　（JavaとかPHPとかの一覧になります。なので、項目数は多く２００位でしょうか？） シートC（書き出しシート） （こんな感じかなと） １．シートAのC列セル内の文字（凡そ2000文字程度入力があります）内に 　　項目一覧シートに羅列している文字列が含まれているかを検索。 　　含まれている文字列を取得し（ヒットした文字列全て）ます。 　　この時、複数の文字列を取得する事を想定します。 ２．シートBのC列セル内の文字（こちらも2000文字程度が入力）内に 　　含まれている文字列から、先程取得した文字列があるかを検索。 　　２つ以上含まれていたら抽出する。 　　シートCに対象となった、シートAのA~D列の全ての行を転記、ヒットした 　　シートBのA~D列の全ての行を転記。 　　上記をシートBの入力がある全てのセルに行う。 上記を行いたいです。 ここからがデータの持ち方になるのですが、以下の感じで良いのか。。。 A2ｌB2ｌC2ｌD2　　←　シートAから抽出したデータ 　　A100ｌB100ｌC100ｌD100 　　A189ｌB189ｌC189ｌD189 　　A1351ｌB1351ｌC1351ｌD1351　←　シートBから抽出したデータ ↑一つセルを開けるイメージです。 上記をツリー型と言うのでしょうか？ぶら下型と言った方が良いのかな？として表記させて 頂きました。 但し、エクセルのつくり上とかなどで上記はやめた方が良い場合には、お手数ですが ご教授頂けると助かります。 シートAのC列には以下の様な内容が記載あります。（内容は適当に端折ってます） ------------------------------------------------------------------------------------------------------------ 【作業内容】 広告媒体を管理するツール（Webツール）の開発 ・広告効果測定ツールとのAPI繋ぎ込みによるデータ取得 ・広告媒体とのAPI繋ぎ込みによるデータ取得 【要件スキル】 ≪求めるスキル≫ ・PHP／Javascriptを用いたWEBアプリケーション ・MySQLを使用した開発経験 ≪ 歓迎するスキル ≫ ・広告業界での開発経験 ・PHPフレームワークやCSSフレームワークを使用した開発経験 ≪ 人物像 ≫ ・ゲームが好きな方 ---------------------------------------------------------------- シートBのC列には以下の様な内容があります。 ------------------------------------------------------------------------------------------------------------ ■氏名： ■所属： ■開発経験：20年 ■スキル： 【スキル面】 基本設計～製造 VB, Java, C, PHP, HTML, JavaScript IBM Notes, SQLServer, MySQL, SQL 【人物面】 コミュニケーション能力高めです。 ■補足：PHPは1ヶ月程度の製造経験。VBとJavaScriptが得意。 ------------------------------------------------------------------------------------------------------------ 上記の場合は、PHPとJavaScriptがヒットするので、シートCへの転記をする。 （シートAのA-D列を抽出し（仮にAとします）、シートCへ転記。 及びヒットしたシートBのA-D列を抽出し（仮にBとします）、Aの下部へ転記。 複数ヒットの場合は、順次Bの下部へ転記していく） 上記の様な事はエクセルで可能でしょうか？（何とかエクセルで作り上げたいのですが。。） 宜しくお願い致します。

調べても分からなかったので質問させてください(ーー;) Findメソッドを使ってシート全体や、A1:A10などは出来るのですが、 下記の表で「位置の行」のみを検索したいのですが、 どのようなコードがありますか？ 「位置」の行で検索したい値は１つですが、 Ａ１、Ａ４のように「位置」が複数あります。 「位置」以外の行で重複する検索したい値がある可能性があるため、上記のようにしたいのです。 宜しくお願いします<(_　_)> 　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ　　Ｈ　　　 １位置　文字　文字　文字　文字　文字　文字　文字 ２文字　文字　文字　文字　文字　文字　文字　文字 ３文字　文字　文字　文字　文字　文字　文字　文字 ４位置　文字　文字 文字　文字　文字　文字　文字 ５文字　文字　文字　文字　文字　文字　文字　文字 また、指定したセル背景色のみ選択してデータを抽出するようなコードがもしあれば 教えていただければ幸いです(_ _) これは関数でもなんでも大丈夫です。

Excel VBAの質問をさせてください。 シート(sheet1)のA列、セルA1から以下のデータがあるとします。 みかん りんご バナナ 苺 梨 バナナ バナナ みかん フォームのリストボックスで"みかん"と"バナナ"を選択した際、シート(sheet2)のセルA1にコピーしていきたいのですが機能しません。 単品、"みかん"だけを選択しても何もコピーされません。 どこがいけないでしょうか?? Private Sub UserForm_Initialize() 　　With ListBox1 　　　　.AddItem "みかん" 　　　　.AddItem "りんご" 　　　　.AddItem "バナナ" 　　　　.AddItem "苺" 　　　　.AddItem "梨" .MultiSelect = fmMultiSelectMulti 　　End With End Sub Private Sub CommandButton1_Click() Dim i As Long For i = 1 To 8 If Worksheets("Sheet1").Cells(i, "A").Value = Me.ListBox1.Value Then Worksheets("Sheet1").Cells(i, "A").Copy Worksheets("Sheet2").Cells(i, "A") End If End Sub

CSVファイルをサクラエディタで開いて下記のサイトを参考にしてNUL文字と垂直タブを検索したところヒットしました。 https://harvestasya.com/blog/151 VBScriptでファイルの取り込みをするプログラムを作成しています。 このCSV内に含まれるNUL文字と垂直タブを排除しようと正規表現を用いて作成していますが全然、うまくいきません。 申し訳ありませんが些細な事でも何でも構いませんのでアドバイスいただけませんでしょうか。 何卒、宜しくお願いします。

Excel VBAの質問をさせてください。 シート(sheet1)のA列、セルA1から以下のデータがあるとします。 みかん りんご バナナ 苺 梨 バナナ バナナ みかん フォームのリストボックスで"みかん"と"バナナ"を選択した際、シート(sheet2)のセルA1にコピーしていきたいのですが機能しません。 単品、"みかん"だけを選択しても何もコピーされません。 どこがいけないでしょうか?? Private Sub UserForm_Initialize() 　　With ListBox1 　　　　.AddItem "みかん" 　　　　.AddItem "りんご" 　　　　.AddItem "バナナ" 　　　　.AddItem "苺" 　　　　.AddItem "梨" .MultiSelect = fmMultiSelectMulti 　　End With End Sub Private Sub CommandButton1_Click() Dim i As Long For i = 1 To 8 If Worksheets("Sheet1").Cells(i, "A").Value = Me.ListBox1.Value Then Worksheets("Sheet1").Cells(i, "A").Copy Worksheets("Sheet2").Cells(i, "A") End If End Sub

解凍圧縮フリーソフトを初めてダウンロードしました。zip形式の圧縮ファイルを解凍したいのですが、具体的にどのようにすれば良いのかわかりません。どなたか初心者に解りやすくご指導いただけると助かります。宜しくお願い致します。

下記のサンプル文字列がありますが、余計な文字が入っているので削除をして 目的部分のみ抽出したい。 aaaa@gmail.com> 時折、下記の様な場合があるのでドメイン部分だけ抜き出したい。 @しつもん株式会社aaaa@gmail.com> @だけでMIDとかで書き出すと「しつもん株式会社」以降も抜き出される ので、「＞」以前で「＠」以降を抜き出すって形にしたいのですが、ネットで 検索をしても？？だったので質問させて頂きます。

エクセル2013を使用しています。 エクセルの機能を使い、テキストボックスのみ自由に触れるようにする方法はありますか？ 使用イメージとしては、画像をロックしまして、その上にテキストボックスを追加して編集をしていきたいです。 これをする際に誤って画像を選択してしまい画像が移動してしまうのを防ぎたいというのが今回の目的になります。 似た方法としてオブジェクトの保護をかけてシートの保護をし、テキストボックスのみロックのチェックを外すという方法がありましたが、この方法ですと画像の上にテキストボックスを載せていく際の新規のテキストボックス追加が出来ないようでした。 何かよい方法はないでしょうか？ご教示頂けると助かります。

回答1から回答6までを数字のみにしたいのです。その際に元になった「1.良い」などをすべて消して、関数から導き出された状態ではないようにしたいのです。実際は何百もセルがあるのですが、他のプログラムへインポートするため手入力したような状態にしたいのです。どなたかご指導ください。

下記のようなSQLを「合計-検査済み=未検査」のように未検査数を表示したいのですがどう直せばよろしいでしょうか。 添付の黄色部がイメージです。 SELECT Sheet1.通し番号, Count(Sheet1.ID) AS 合計, Count(Sheet1.検査) AS 検査済み数 FROM Sheet1 GROUP BY Sheet1.通し番号; よろしくお願いします。

画像が添付されていませんでしたので再度質問します。画像の上部が出力元データで下記が前回回答の結果の新規ブック出力画像です。上記は各列の内容を例的にしてあります。 行は３０００を超えているので短くしてあります。(y)ロシクお願いします。

突き合わせ作業をおこないたいです。 同一列項目からなるデータを左右に並べて、左側を正として、例えば商品番号、売上日を連結するなりキーとしてマッチしたら右側の同一行に並へ 変えていきます。 そして、各行単位で比較して、差異があるセルに色付けしたいと考えています。 行数は不定です。 やり方がまったくわかりません。 サンプルを添付させていただきます。 アイデアをいただけませんでしょうか?

突き合わせ作業をおこないたいです。 同一列項目からなるデータを左右に並べて、左側を正として、例えば商品番号、売上日を連結するなりキーとしてマッチしたら右側の同一行に並へ 変えていきます。 そして、各行単位で比較して、差異があるセルに色付けしたいと考えています。 行数は不定です。 やり方がまったくわかりません。 サンプルを添付させていただきます。 アイデアをいただけませんでしょうか?

エクセル2010を使用しています。 VBA（マクロ）で以下の作業を実行したいと考えていますが、 初心者につき、ご教示いただけますでしょうか。 Book内の全Sheetを対象として、 特定の色（RPG：180,198,231）のセルを全て値化したいです。 他色のセルにも式が入っているのですが、それ等は崩したくないので 個々に値化してゆくしかないのですが、 指定色（RPG：180,198,231）のセル位置がまちまちな上に多数あり、 その上シートもかなりな数あるため、自動化できたらと考えています。 ※値化するセルに入っている式は、簡単なリンク式です。 尚、必要の無い（表外）セルは無色で設定してあります。 また、その表のフチ（？）を「＃」で囲っているため、 これをKyeに「次の行へ移動」や「次のSheetへ移動」等が設定できるでしょうか？ 1つづつのコードは、検索すれば（参考にできるものが）出てくるものもありますが、 それらを　どう組み合わせればうまく作動するのか または、処理条件を　どう設定すれば良いのかが、よくわかっていません。 知識不足で申し訳ありません！ ご指導いただけますと幸いです。 よろしくお願いします！！

画像が添付されていませんでしたので再度質問します。画像の上部が出力元データで下記が前回回答の結果の新規ブック出力画像です。上記は各列の内容を例的にしてあります。 行は３０００を超えているので短くしてあります。(y)ロシクお願いします。