watabe007 の回答履歴

つもお世話になります、めぐみと申します。 ランキング表を作成しようとしていますが元のデータを他のシートから読み込むようにしたところ、正常に動作しなくなりました。 「添付するイメージ上側」のように、同シート内で左側のデータを元に、右側でランキング順にデータを並び替えるようにしていました。 同シート内で完結している場合、問題なくランキング表示ができました。 今回は、元となるデータを他のシートから引っ張ってきて左側の元データの所に表示させるようにしたところ、 「添付するイメージ下側」のように、右側にエラーが発生してしまうようになりました。 以下のように関数を書いています。 T列の関数：=IF(SUM(B2:S2)=0,"",SUM(B2:S2)) V列の関数：=RANK.EQ(W2,$W$2:$W$2:$W$93,1) W列の関数：=SMALL($T$2:$T$93,ROWS(W$2:W2)) X列の関数：=sort(A2:T,20,true) 以下、シートを公開させていただきました。 もし、原因と解決方法を分かる方がいましたら、ご指導いただきたく何卒よろしくお願いいたします。 ■ランキングを表示するシート https://docs.google.com/spreadsheets/d/e/2PACX-1vTRLqSqFfNML4ID-wQ6... ■元データの読み込み先シート https://docs.google.com/spreadsheets/d/e/2PACX-1vTRLqSqFfNML4ID-wQ6...

ホームタブ、「条件付き書式」でセルの強調表示ルールの「重複する値」で設定すると、重複する値に色をつけられますね。 この「色のついた」セルを含む行のみを抽出する方法はありますか？ 例えば、 1 2 2 3 3 3 4 5 6 6 という列で重複チェックをすると、 2 2 3 3 3 6 6 に色をつけることはエクセルの機能で可能ですが、この行のみ表示で絞り込みたいです。 よろしくお願いします。

つもお世話になります、めぐみと申します。 ランキング表を作成しようとしていますが元のデータを他のシートから読み込むようにしたところ、正常に動作しなくなりました。 「添付するイメージ上側」のように、同シート内で左側のデータを元に、右側でランキング順にデータを並び替えるようにしていました。 同シート内で完結している場合、問題なくランキング表示ができました。 今回は、元となるデータを他のシートから引っ張ってきて左側の元データの所に表示させるようにしたところ、 「添付するイメージ下側」のように、右側にエラーが発生してしまうようになりました。 以下のように関数を書いています。 T列の関数：=IF(SUM(B2:S2)=0,"",SUM(B2:S2)) V列の関数：=RANK.EQ(W2,$W$2:$W$2:$W$93,1) W列の関数：=SMALL($T$2:$T$93,ROWS(W$2:W2)) X列の関数：=sort(A2:T,20,true) 以下、シートを公開させていただきました。 もし、原因と解決方法を分かる方がいましたら、ご指導いただきたく何卒よろしくお願いいたします。 ■ランキングを表示するシート https://docs.google.com/spreadsheets/d/e/2PACX-1vTRLqSqFfNML4ID-wQ6... ■元データの読み込み先シート https://docs.google.com/spreadsheets/d/e/2PACX-1vTRLqSqFfNML4ID-wQ6...

つもお世話になります、めぐみと申します。 ランキング表を作成しようとしていますが元のデータを他のシートから読み込むようにしたところ、正常に動作しなくなりました。 「添付するイメージ上側」のように、同シート内で左側のデータを元に、右側でランキング順にデータを並び替えるようにしていました。 同シート内で完結している場合、問題なくランキング表示ができました。 今回は、元となるデータを他のシートから引っ張ってきて左側の元データの所に表示させるようにしたところ、 「添付するイメージ下側」のように、右側にエラーが発生してしまうようになりました。 以下のように関数を書いています。 T列の関数：=IF(SUM(B2:S2)=0,"",SUM(B2:S2)) V列の関数：=RANK.EQ(W2,$W$2:$W$2:$W$93,1) W列の関数：=SMALL($T$2:$T$93,ROWS(W$2:W2)) X列の関数：=sort(A2:T,20,true) 以下、シートを公開させていただきました。 もし、原因と解決方法を分かる方がいましたら、ご指導いただきたく何卒よろしくお願いいたします。 ■ランキングを表示するシート https://docs.google.com/spreadsheets/d/e/2PACX-1vTRLqSqFfNML4ID-wQ6... ■元データの読み込み先シート https://docs.google.com/spreadsheets/d/e/2PACX-1vTRLqSqFfNML4ID-wQ6...

ワークシートＡにコマンドボタンをレイアウトして、ワークシートＢの色のついているセルがない行を非表示にしたいのですがうまくいきません。 添付画像であれば、２，６，７の行を非表示にしたいのですがどのようにすればよいか、ＶＢＡを教えてください。 よろしくお願いします。

ワークシートＡにコマンドボタンをレイアウトして、ワークシートＢの色のついているセルがない行を非表示にしたいのですがうまくいきません。 添付画像であれば、２，６，７の行を非表示にしたいのですがどのようにすればよいか、ＶＢＡを教えてください。 よろしくお願いします。

つもお世話になります、めぐみと申します。 ランキング表を作成しようとしていますが元のデータを他のシートから読み込むようにしたところ、正常に動作しなくなりました。 「添付するイメージ上側」のように、同シート内で左側のデータを元に、右側でランキング順にデータを並び替えるようにしていました。 同シート内で完結している場合、問題なくランキング表示ができました。 今回は、元となるデータを他のシートから引っ張ってきて左側の元データの所に表示させるようにしたところ、 「添付するイメージ下側」のように、右側にエラーが発生してしまうようになりました。 以下のように関数を書いています。 T列の関数：=IF(SUM(B2:S2)=0,"",SUM(B2:S2)) V列の関数：=RANK.EQ(W2,$W$2:$W$2:$W$93,1) W列の関数：=SMALL($T$2:$T$93,ROWS(W$2:W2)) X列の関数：=sort(A2:T,20,true) 以下、シートを公開させていただきました。 もし、原因と解決方法を分かる方がいましたら、ご指導いただきたく何卒よろしくお願いいたします。 ■ランキングを表示するシート https://docs.google.com/spreadsheets/d/e/2PACX-1vTRLqSqFfNML4ID-wQ6... ■元データの読み込み先シート https://docs.google.com/spreadsheets/d/e/2PACX-1vTRLqSqFfNML4ID-wQ6...

いつもお世話になっております。 ここで絶大なる支援を受けて表題に関するいくつかのマクロを教えていただいて色んな定常作業に組み込んで非常に便利に使い始めたのですが、下記の組み合わせが試行錯誤（当方の実力）ではどうしても達成出来ないのでHELPです。 １．エクセルの複数の指定セルを繋げてファイル名にする。 　　A1セルが「赤」、B1セルが「色」の場合はファイル名を「赤色」としたい。 ２．上記のファイルを指定のパスのホルダーに保存する ３．そのpdfファイルを添付したメール画面でOutlookを起動する。 １．２．＋指定アドレスに送信、まで全自動で完了する完成版はあるのですが、自動送信ではなくメールの起動までの方が非常に汎用性が高いので何とかお願いします。 また、ファイル名に2つのセルの内容をつなぐこともうまくいきませんでした。

いつもお世話になっております。 ここで絶大なる支援を受けて表題に関するいくつかのマクロを教えていただいて色んな定常作業に組み込んで非常に便利に使い始めたのですが、下記の組み合わせが試行錯誤（当方の実力）ではどうしても達成出来ないのでHELPです。 １．エクセルの複数の指定セルを繋げてファイル名にする。 　　A1セルが「赤」、B1セルが「色」の場合はファイル名を「赤色」としたい。 ２．上記のファイルを指定のパスのホルダーに保存する ３．そのpdfファイルを添付したメール画面でOutlookを起動する。 １．２．＋指定アドレスに送信、まで全自動で完了する完成版はあるのですが、自動送信ではなくメールの起動までの方が非常に汎用性が高いので何とかお願いします。 また、ファイル名に2つのセルの内容をつなぐこともうまくいきませんでした。

いつもお世話になっております。 ここで絶大なる支援を受けて表題に関するいくつかのマクロを教えていただいて色んな定常作業に組み込んで非常に便利に使い始めたのですが、下記の組み合わせが試行錯誤（当方の実力）ではどうしても達成出来ないのでHELPです。 １．エクセルの複数の指定セルを繋げてファイル名にする。 　　A1セルが「赤」、B1セルが「色」の場合はファイル名を「赤色」としたい。 ２．上記のファイルを指定のパスのホルダーに保存する ３．そのpdfファイルを添付したメール画面でOutlookを起動する。 １．２．＋指定アドレスに送信、まで全自動で完了する完成版はあるのですが、自動送信ではなくメールの起動までの方が非常に汎用性が高いので何とかお願いします。 また、ファイル名に2つのセルの内容をつなぐこともうまくいきませんでした。

いつもお世話になっております。 ここで絶大なる支援を受けて表題に関するいくつかのマクロを教えていただいて色んな定常作業に組み込んで非常に便利に使い始めたのですが、下記の組み合わせが試行錯誤（当方の実力）ではどうしても達成出来ないのでHELPです。 １．エクセルの複数の指定セルを繋げてファイル名にする。 　　A1セルが「赤」、B1セルが「色」の場合はファイル名を「赤色」としたい。 ２．上記のファイルを指定のパスのホルダーに保存する ３．そのpdfファイルを添付したメール画面でOutlookを起動する。 １．２．＋指定アドレスに送信、まで全自動で完了する完成版はあるのですが、自動送信ではなくメールの起動までの方が非常に汎用性が高いので何とかお願いします。 また、ファイル名に2つのセルの内容をつなぐこともうまくいきませんでした。

いつもご教授いただいています。 エクセル関数でお聞きしたい事があるのですが、 添付ファイルのシートのように B列の文字が基本にあり、 E列に他のシートからコピーしたものを張り付けた場合、 B列の文字や数字の並びとE列の文字や数字の並びが一致したら、 D列の数字をA列のに返すような関数を 作成したいのですが、どのようにすればよろしいでしょうか？ 言葉足らずでもうしわけありませんが、 ネットで検索しようとしても、 自分の実施したい事がうまく出力されません。

いつもご教授いただいています。 エクセル関数でお聞きしたい事があるのですが、 添付ファイルのシートのように B列の文字が基本にあり、 E列に他のシートからコピーしたものを張り付けた場合、 B列の文字や数字の並びとE列の文字や数字の並びが一致したら、 D列の数字をA列のに返すような関数を 作成したいのですが、どのようにすればよろしいでしょうか？ 言葉足らずでもうしわけありませんが、 ネットで検索しようとしても、 自分の実施したい事がうまく出力されません。

エクセルファイルを開くと「動作停止」とメッセージが出て、エクセルが 使えません。ウィルスバスター最新版のインストールと関係あるのでしょうか？

旧エクセルVBA （2003以前）で 　　ActiveCell.Interior.Color = 245678985 の様に直接色を指定したらどうなりますか。 (1)エラーになる。 (2)無視される。 (3)色が付く 　この場合、ColorIndexに無い色だったらどうなりますか。 ご存知の方、お願いします。

旧エクセルVBA （2003以前）で 　　ActiveCell.Interior.Color = 245678985 の様に直接色を指定したらどうなりますか。 (1)エラーになる。 (2)無視される。 (3)色が付く 　この場合、ColorIndexに無い色だったらどうなりますか。 ご存知の方、お願いします。

いつもお世話になります。めぐみと申します。 グーグルスプレッドシートで同シート内で 下記、「■データ」以下の数値をもとに、「■順位結果」を出力する関数ができるものでしょうか。 順位表を作成したと考えています。 自分で何度か試してみたのですが非常に難しく、質問させていただいた次第です。 もし、お分かりになる方がいましたらご指導いただきたく何卒よろしくお願いいたします。 ■データ Sheet1のA列～T列 名前,,,,,,,,,,,,,,,,,,,合計 福士ひとみ,6,4,7,5,6,5,9,5,5,5,6,6,5,5,5,6,4,5,99 堀玉枝,5,4,5,4,5,5,5,7,5,4,5,6,4,7,3,4,4,4,86 間端光子,5,4,6,5,6,4,4,11,7,6,4,6,3,5,4,7,4,6,97 水間史子,4,4,6,6,5,5,5,7,6,5,5,6,4,6,5,6,3,5,93 宮下公子,6,4,8,5,7,4,9,5,4,6,3,10,3,9,5,6,4,6,104 横山悦子,6,4,7,8,6,4,6,6,4,7,5,4,5,4,5,7,5,4,97 ■順位結果 Sheet1のV列～AP列

旧エクセルVBA （2003以前）で 　　ActiveCell.Interior.Color = 245678985 の様に直接色を指定したらどうなりますか。 (1)エラーになる。 (2)無視される。 (3)色が付く 　この場合、ColorIndexに無い色だったらどうなりますか。 ご存知の方、お願いします。

よろしくお願いします。VBAコードを読む練習のためコード印刷をしていますが、 win10では、使用中の下記のアドインが使用できません。検索しても、win10のものが見つけられませんでした。（下記以外のソフトを含め）ご存知の方がありましたら、お教え願います。 ＊ VisualBasicEditor用COMアドイン 「VBAコードHTML変換」Version 4.1.1

エクセルブックの中身が、 1番目 graphシート 2番目から19番目 ワークシート で構成されているエクセルファイルが100個 AAAというフォルダに入っています。 それぞれのエクセルブックにあるシートを、ブックのファイル名にしたフォルダを作成し、その中にcsvで書き出すプログラムを作りました。 また、AAAのフォルダの１つ上のフォルダ（VBA実行するカレントフォルダ）には、テキストファイルもあり、作成されたフォルダに合わせてコピーするようにしています。 一応、期待通りの動作をしましたが、スッキリとしたプログラムとするために、アドバイスをいただけないでしょうか？ また、できれば、それぞれのブックの2番目から7番目のワークシートのみをcsvファイルで書き出したいと思い、シートを2番目から順にアクティブにして書き出すように変更しても1番目のグラフシートからcsvになってしまいました。 特定のワークシートのみをcsvファイルで書き出すにはどのように書いたら良いでしょうか？ よろしくおねがいしむす Sub ファイル一括作成()     Application.ScreenUpdating = False         '対象ブックの選択     'フォルダ内のブックを順次選択     Dim FolderPath As String     Dim objFSO As Object     Dim objBook As Object     Dim objFiles As Object     Dim objFile As Object     Dim mysma4 As Object     Set objFSO = CreateObject("Scripting.FileSystemObject")     FolderPath = ActiveWorkbook.Path & "\AAA"     Set objBook = objFSO.GetFolder(FolderPath)     Set objFiles = objFSO.GetFolder(FolderPath).Files     Set mysma4 = objFSO.GetFile(ActiveWorkbook.Path & "\fig_all.TXT")     For Each objFile In objFiles      If objFSO.GetExtensionName(Path:=objFile) Like "xlsx" Then     'ベースファイル名フォルダ作成&sma4ファイルコピー       objFSO.CreateFolder Path:=FolderPath & "\" & objFSO.GetBaseName(objFile)       mysma4.Copy Destination:=FolderPath & "\" & objFSO.GetBaseName(objFile) & "\fig_all.TXT"     '各ファイルcsv書き出し      Workbooks.Open objFile.Path       For Each ws In Worksheets '各シートに対して処理を繰り返す           ws.Activate           'ベースファイルと同じ階層に出力           ActiveWorkbook.SaveAs _           Filename:=FolderPath & "\" & objFSO.GetBaseName(objFile) & "\" & ws.Name & ".csv", _           FileFormat:=xlCSV       Next ws       ActiveWorkbook.Close SaveChanges:=False      Else      End If     Next     MsgBox "ファイル作成が完了しました。"     Set objFSO = Nothing     Set objBook = Nothing     Set objFiles = Nothing     Set mysma4 = Nothing     Application.ScreenUpdating = True End Sub