Excel（エクセル）

使いこなせるととても便利なExcelですが、使い方がわからなくて困ってしまう場面も多いと思います。マクロの組み方がわからない、VLOOKUP関数の設定について教えてほしい、データを元にグラフの作成をしたい等、ここで相談してみましょう。

回答数

気になる

Excelで4択問題を作成したい

Excelでクイズを作ります。選択肢は４つで、正解数は１～４つです。画像のように、問題文、選択肢、正解欄、判定欄を作成して置き、「解答欄」に「〇」などと入力すると、「正解欄」の「〇」の位置を確認し、判定欄に「正解！」などと表示したいと思います。「正解欄」と「解答欄」の「〇」の位置を確認し「判定欄」に結果をする構文を教えてくださいますか。

質問日時: 2025/05/14 09:10 質問者: tebentou

回答受付中

2

0
エクセル GROUPBY関数について教えてください。

いつもお世話になり感謝しています。エクセル　GROUPBY関数について教えてください。例えば、 =GROUPBY(D346:D394,I346:I394,SUM,3,0)では、条件範囲で合計しますが、小数点以下を切り上げで表示するにはどうすればいいですか？

質問日時: 2025/05/13 18:29 質問者: banzaiA

回答受付中

1

0
Amazonでマイクロソフトオフィス2019 MicrosoftOffice2019が10000円弱

Amazonでマイクロソフトオフィス2019 MicrosoftOffice2019が10000円弱で売っているのですが怪しいですか？ 10月にサポート終了するからですかね？

質問日時: 2025/05/12 21:52 質問者: NAGISA0006

回答受付中

2

0
エクセルシートの見出しの文字を大きくしたい

よろしくお願いします。エクセル2024,Windows11です。シートの見出しの文字が小さくて見ずらいです。ネット検索しましたが適切な策は見つかりません。方法があるのでしょうか

質問日時: 2025/05/10 20:37 質問者: yt16

ベストアンサー

3

2
エクセルの複雑なシフト表から当日の出勤者と勤務時間帯を抜き出したい

エクセルの複雑なシフト表から当日の出勤者と勤務時間帯を抜き出し、一目でわかるようにしたいです。写真の左側のシフト表から、右側に当日の出勤者の名前を一目でわかるように出せませんか？右側でなくても、下でも別ブックでも大丈夫です。色々調べて試行錯誤したのですが、お手上げでして... どうかよろしくお願いいたします。

質問日時: 2025/05/10 18:32 質問者: yuukun308

ベストアンサー

11

3
【マクロ】別ファイルへマクロを登録するコードを短くできる所があれば教えて下さい

以下は別のエクセルブックへ画像を作成。マクロを登録するコードですもう少し、コードを短くできる所があれば教えて下さい宜しくお願いします・四角形の画像を作成・同画像のサイズ、色、名前を設定・画像にマクロを登録【コード】 'マクロを登録する図形や色を設定 With ws1.Shapes.AddShape(msoShapeRectangle, 0, 0, 120, 60) .Fill.ForeColor.RGB = RGB(220, 220, 220) .Line.ForeColor.RGB = RGB(220, 220, 220) '図形の名前を登録 .Name = "あいう" '図形ボタンに、マクロの名前を記入 With .TextFrame.Characters .Text = "不要行削除" .Font.Size = 16 　　　End With '図形をブックのどこに設置するか明記 .Top = Range("f1").Top .Left = Range("f1").Left End With 'プローシージャ（マクロ）を図形あいうに登録 ws1.Shapes("あいう").OnAction = "delete1" 'プローシージャ名を記述

質問日時: 2025/05/10 15:19 質問者: aoyama-reiko

回答受付中

1

1
【マクロ】変数に入れるコードを少しでも短くする為には？

以下のコードを、もう少し短くする事はできますか？別ファイルのファイルパスを変数に入れるコード正常動作を確認【条件】マクロは、x.xlsmのに記載しています転記元.xlsmのA10セルにある　ファイルパス　を変数に入れています【コード】 Dim filepath3 As String Dim wb3 As Workbook Dim ws3 As Worksheet filepath3 = "C:\Users\2020\OneDrive\マクロ\住所転記\コントロール.xlsm" Set wb3 = Workbooks.Open(filepath3) Set ws3 = wb3.Worksheets("転記元") Dim filepath4 As String Dim wb4 As Workbook Dim ws4 As Worksheet filepath4 = ws3.Cells(10, 1) Set wb4 = Workbooks.Open(filepath4) Set ws4 = wb4.Worksheets("サーベイデータ")

質問日時: 2025/05/10 07:47 質問者: aoyama-reiko

回答受付中

2

0
エクセルの関数について

添付ファイルをご覧ください。 D2に数値を入れると、B2、C2、D3、D4に数値が現れるように関数を設定してます。・B2=D2*2.3 ・C2=D2*1.85 ・D3=D2*1.55 ・D4=D2*2.0 で、B2、C2、D3、D4はここから10の位を四捨五入させたいのですが、どのようにすればいいでしょうか？例えば、B2ならば3500、C2は2800、D3は2300になるようにしたいのです。エクセルに詳しい方、教えてください。よろしくお願いします。

質問日時: 2025/05/08 14:18 質問者: daaaago

回答受付中

2

0
エクセルのリストについて

スプレットシートの入力規則がわかりません。エクセルで、シート２に以下のようなリストを作成しています。トヨタ　　　ホンダ　　　　ニッサンノア　　　　ｽﾃｯﾌﾟﾜｺﾞﾝ　　　セレナｸﾗｳﾝ　　　　フィット　　　エルグランドシート１で A1は、入力規則で「社名」を選択するようにしています。 A2に入力規則で=INDIRECT($A1)と入力しているので、 A1が何も選択されていなければ、ここはリストが出てこずに、例えば「トヨタ」が選択された場合は、「ノア・クラウン」というリストが表示されるようになっています。（ここから質問になります）これを、スプレットシートに変換しましたところ、 A1に「トヨタ」を選択しても、「A2」にリストが表示されません。リストは表示されないものの、「ノア」と手動入力すれば反映され、セレナと入力すると ”入力規則違反”となります（トヨタなので）スプレットシートでも同じようにA2には　A1で選択されたリストが表示されるようにしたいのですが、教えて頂けませんでしょうか。

質問日時: 2025/05/08 09:01 質問者: kerokero5551003

ベストアンサー

3

0
【マクロ】左のブックと右のブックにて、同じデータに水色をぬるためには？

【やりたい事】画像をご覧ください左にあるブックと同じデータが、右のブックにもあります画像のように、右のブックの、左のデータと同じ部分に水色を塗りたい ※右のデータに水色にしたい左と右のデータの値や件数、並び方は同じですただし、右のExcelには、３パターンの存在の仕方があります１パターン目→沢山あるデータの１番下にある２パターン目→沢山あるデータの１番上にある３パターン目→沢山あるデータの真ん中辺にある ※上記３パターンは、画像の右３パターンの説明また左のExcelのパターンも画像のとおり２パターンあります ※いずれも、並び順、件数は同じコード　or　アドバイス　ご存じの方、教えて下さい例　下記のいずれかのパターンが発生します　　全部のパターンが１回で発生するという意味ではないです左のエクセルパターン１　右のエクセル　画像の１番上のパターン左のエクセルパターン１　右のエクセル　画像の１番下のパターン左のエクセルパターン２　右のエクセル　画像の１番上のパターン【左のリストの場所】【マクロが設置しているファイル】 C:\Users\user\Documents\総件数表示\リスト.xlsm 【右のリストの場所】 C:\Users\user\Documents\総件数表示\データ.xlsx 【左と右のExcelのシート名】 Sheet1 【水色】 XlRgbColor列挙→rgbAzure 値→16777200 #16進→#F0FFFF

質問日時: 2025/05/07 21:10 質問者: aoyama-reiko

回答受付中

2

0
【マクロ】数式を入力したい。カウントIFの範囲がつど変わる場合の数式の入力方法について

【やりたい事】 A列のデータの、【カウントしない】と書かれた入力データをのぞいた件数をカウントする為の関数を入れたいですただし、A列のデータは毎回、最終行が変わります。開始行A1は変わりません最終行は、以下コードで取得できますが、コードへの反映方法が分かりませんカウントする範囲が毎回変わるという意味ですご存じの方、アドバイスorコード教えて下さい【関数】 =COUNTIF(A1:A8,"<>カウントしない") ⇒A8の部分が毎回変わります【コード】 Sub 数式入力() lastrow = Cells(Rows.Count, "a").End(xlUp).Row MsgBox lastrow Cells(1, 3).Formula = "=COUNTIF(A1:A8,""<>カウントしない"")" End Sub

質問日時: 2025/05/05 18:11 質問者: aoyama-reiko

ベストアンサー

2

0
【マクロ】元データと同じお客様番号を別データから選択。その後別データに１００を入力＆色をつけるには？

【やりたい事】以下の手順をマクロにて実現したいです。画像添付ありますアドバイスorコードご存じの方、教えて下さい。宜しくお願いします１リストブックにあるデータの対象の行のセルを、どこでも良いので選択【アクティブセルにする】２同データと同じお客様番号をデータブック（別ブック）より探す３見つかったら、データブックのE列に100を入力。また、A-E列までを黄色くする４もしくは、同じお客様番号が無ければ、見つかれませんとメッセージを表示【リストブック】 C:\Users\2020\OneDrive\マクロ\住所転記\リスト.xlsm 【データブック】 C:\Users\2020\OneDrive\マクロ\住所転記\データ.xlsx 【黄色について参考】 ColorIndex⇒　6 カラー定数⇒　vbYellow XlRgbColor列挙⇒　rgbYellow #16進⇒　#FFFF00

質問日時: 2025/05/05 13:13 質問者: aoyama-reiko

ベストアンサー

2

0
【マクロ】【相談】Excelブックとマクロを早く動くようにする為には？

【質問】以下のマクロのコードを早く動くようにしたいです重さの理由は、２万行×３列×３シートへ関数が入っている事と思わますまた、ブックを開くのも時間がかかるため軽くしたいです回答は抽象的な回答にてOKです何かヒントがあれば宜しくお願いします例データが入った所だけ、関数をマクロで入れるデータが入っていない所の関数をマクロで削除してから、マクロをスタートする【マクロの内容】【手作業】シート１から３へデータを貼付関数にてABC列に表示データはシート１から３まで２０，０００行まで貼り付けられますが実際３つのシート２０，０００行まで使う事は月１回あるかないかですほぼ、シート１から３で、データ件数は３，０００までです【マクロ】 ❶A1セルのオートフィルターをソート ※あ　をのぞく　かつ　空白行をのぞく ❷ソートされたデータを集約シートへ貼付 ❶と❷を３回繰り返す【コード】 Sub 配列split() Dim シート名 As Variant シート名 = Split("Sheet1,Sheet2,Sheet3", ",") Dim i As Integer Dim privatesheet As Worksheet For i = 0 To 2 Set privatesheet = ThisWorkbook.Worksheets(シート名(i)) privatesheet.Range("A1:C20000").AutoFilter 1, "<>", xlAnd, "<>あ" LastRow = Worksheets("集約").Cells(Rows.Count, "a").End(xlUp).Row LastRow1 = privatesheet.Cells(Rows.Count, "d").End(xlUp).Row privatesheet.Cells(2, 1).Resize(LastRow1, 3).Copy Worksheets("集約").Cells(LastRow + 1, 1).PasteSpecial xlPasteValues Next i End Sub

質問日時: 2025/05/04 20:10 質問者: aoyama-reiko

回答受付中

4

0
【マクロ】実行時エラー '424': オブジェクトが必要です。について

標題のエラーが出ます。理由ご存じの方、教えて下さい【エラーメッセージ】実行時エラー '424': オブジェクトが必要です。【エラーコード】 Set name = Thisbook.Worksheets(シート(i)) 【コード⇒シート１から３のA1セルに　あいうえお　と入力するマクロ】 Sub sheetarrayの配列() Dim name As Worksheet Dim シート As Variant シート = Array("Sheet1", "Sheet2", "Sheet1") Dim i As Integer For i = 0 To 2 Set name = Thisbook.Sheets(シート(i)) name.Range("a1") = "あいうえお" Next End Sub

質問日時: 2025/05/04 09:37 質問者: aoyama-reiko

ベストアンサー

3

0
他のシートの検索

=VLOOKUP(H10,INDIRECT("'15min'!L$" & 10 & ":AK$" & 500),26,0) H10の値で　15minシートのL列検索　AK（26番目）の値をとるこれは無問題ですが検索する列　L　より　答えが　前にある　例えば　I　とした時これの書き方が？？現状　無理やり　L　より後に　I をコピーして　ごまかしているのですが・・・いささか　なもので・・・お手すきの折にでも　よろしくどうぞ。

質問日時: 2025/05/03 11:56 質問者: kozo2004

ベストアンサー

1

0
【画像あり】オートフィルターについて、データが無い関数セルを空白セルとして読まないようにしたい

【質問】以下画像をご覧くださいオートフィルターは、A5-A7セルを空白セルとして認識しています E5-E7にデータが無い為、空白セルとなっていますこの空白セルをオートフィルターが認識しないようにする方法はありますか？もちろん、A5-A7の関数を削除すれば認識するのは承知です。他方法であれば教えて欲しいです【背景】実際はA列の関数を約３０，０００行まで設置オートフィルターの絞りにて空白セルをのぞくさいすごく、時間がかかります。この時間を解消したいです E列のデータは、３０，０００近くまで使う事もありますがほぼ、５，０００未満しか利用しないです毎回、データの無い空白セルのソートに時間を解消したい為に上記、質問をした背景です

質問日時: 2025/05/03 10:09 質問者: aoyama-reiko

解決済

1

0
Office2021のエクセルで米国株価を更新表示させたい

表題の件、AIで探るとMicrosoft365あるいはOffice2021にて「STOCKHISTORY関数」で対処可能とありました。そこでワークシートの任意のセルに、 =STOCKHISTORY("SPY", TODAY(), TODAY(), 0, 0, 1) と例文記述するも「#BLOCKED!」との答えしか返ってきません。 AIの指示に従いエクセルの設定でセキュリティセンター（本当はトラストセンター）の中にある「オンラインコンテンツのダウンロードの有効化」なども確認しましたが推奨通りでした。そもそもOffice2021では無理なのでしょうか。

質問日時: 2025/05/02 08:22 質問者: kangol55

解決済

3

0
エクセルのVBAで集計をしたい

エクセルデータの集計をVBAマクロか関数でやりたいです。　添付画像のようにエクセルの1つのブックデータにおいて、5月1日のシートから5月31日のシートが含まれており、それぞれのシートの表には、ある建物の1階から8階のクレームが書かれています。クレームは、1フロアだけ書かれている日もあれば、複数階において書かれている日もあり、全フロアでクレームが無い日もあります。このクレームを添付画像の右の表のように集計シートにまとめる為のマクロは、どのようなVBAになるでしょうか? 即ちマクロのボタン1つで、各日のシートにおいて記載された文言のみを抽出して表にまとめたいです。

質問日時: 2025/04/29 23:10 質問者: Threecountry

解決済

2

0
ページが変なふうに切れる

添付図のような表を印刷しようとしたら、頁が２枚に分かれました。Ａ４、１枚に印刷したいのに。頁の切れ目が点線で示されていますが、「改ページ設定」のように任意にページを決めることはできないのでしょうか。よろしくお願いします。「画像を添付」が非常に下手ですみません

質問日時: 2025/04/29 15:06 質問者: だんちゃん16

解決済

4

0
vba テキストボックスとリフトボックスについて

お世話になります。セル上にある情報(今回は名前(姓名)、年齢、性別の3つ)をユーザーフォーム上のテキストボックスに苗字だけを打ち込み、テキストボックスに打ち込んだ苗字にヒットした該当者を表示させたいのですが中々上手くいきませんのでどなたか教えていただけないでしょうか。(例、佐藤太郎や佐藤二郎など…セル状にあった場合、「佐藤」とだけ打ち込んだら佐藤と含まれている名前や年齢、性別を表示させたい) Dim LastRow As Long, i As Long Dim name As Integer Dim name2 As Integer Dim form As Worksheet Dim shimei As String Dim age As String Dim wm As String name = Trim(searchbox2.Text) name2 = form.Cells(i, 3).Value Set form = ThisWorkbook.Worksheets("Sheet1") List_lst2.Clear 'リストボックスクリア With Sheet1 LastRow = form.Cells(Rows.Count, 3).End(xlUp).Row For i = 1 To LastRow If searchbox2 = "" Then '空白の場合 Exit Sub '処理から抜ける Else If form.Cells(i, 3) Like "*name2" & searchbox2 & "*name" Then 'セルの型式とsearchbox2の文字を比較 List_lst2.AddItem .Cells(i, 3) 'リストボックスに登録 End If Next i End With '===一覧リストへの追加=== With List_lst2 Call List_lst2.AddItem("") 'この場合リストボックスに一行追加 .List(.ListCount - 1, 0) = shimei '氏名の追加(1行目の1列目) .List(.ListCount - 1, 1) = age '年齢の追加(1行目の2列目) .List(.ListCount - 1, 2) = wm '年齢の追加(1行目の2列目) End With End Sub

質問日時: 2025/04/28 13:46 質問者: 8vba

解決済

1

0
【マクロ】【配列】３つのシートに、同じ作業をしたい

以下の配列の変数を利用して、３つのシートに同じ作業をしたいです同じ作業は、以下にあるコードの　列を折りたたむ作業です３つのシートには、列が展開（表示）されており、折りたたむ事が出来ますコードご存じの方orアドバイスお願いします【宣言】 Dim allsheet As Variant 【全シート４つの内、３つのシート名を配列として設定】 allsheet = Array("あ", "い", "う") 【非表示にしたい列を折りたたむ】 ActiveSheet.Outline.ShowLevels ColumnLevels:=1

質問日時: 2025/04/28 00:31 質問者: aoyama-reiko

ベストアンサー

1

0
【マクロ】オートフィルターの可視セルコピーSpecialCellsを入れても入れなくても変わらない？

【質問】オートフィルターにてしぼった結果のコピーにて SpecialCells(xlCellTypeVisible)あり　のコードを入れても、入れなくても同じ結果になります結論、SpecialCells(xlCellTypeVisible)あり　は入れなくても良いのでしょうか？【コード１、SpecialCells(xlCellTypeVisible)あり】 Sub 可視セルコピー() Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy Range("f1").PasteSpecial xlPasteValues End Sub 【コード２、SpecialCells(xlCellTypeVisible)なし】 Sub 可視セルコピー() Range("A1").CurrentRegion.Offset(1, 0).Copy Range("f1").PasteSpecial xlPasteValues End Sub

質問日時: 2025/04/27 17:47 質問者: aoyama-reiko

解決済

1

0
【マクロ】列を折りたたみ非表示したセルの内、可視セルをコピーするとがエラーとなる

可視セルのコピーをするとエラーとなる。可視セルにしている理由はオートフィルターのしぼりこみをした部分だけをコピーしたいからですエラーにならない、コードもしくはアドバイスをお願いします【条件】・項目１から項目３にオートフィルターを設置・項目１から項目３の列を非表示にしている。グループ化の上、AからC列を折りたたみ非表示・項目１はA1セル A　 B　　　C 項目1 項目2 項目3 1行 1 1 1 2行 2 2 2 3行 3 3 3 【エラーとなるコード】 Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy 【コード】 Sub コピー() Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Range("f1").PasteSpecial xlPasteValues End Sub

質問日時: 2025/04/26 18:50 質問者: aoyama-reiko

解決済

3

0
【条件付き書式】シートの中で文字の先頭にタスクという言葉があるセルを赤色にする方法を教えて下さい

【やりたい事】エクセルシートの中で、セルに　タスクという文字列が入っている場合セルを赤色にしたいです。ご存じの方、方法を教えて下さい例タスク研修　タスク練習　タスク交渉　等、タスクという言葉が先頭にある場合同文字列が挿入されている　セルを赤色にしたいです

質問日時: 2025/04/24 23:57 質問者: aoyama-reiko

ベストアンサー

4

0
【関数】同じ関数なのに、エラーが出るエクセルと出ないエクセルある？

本サイト回答者様に教えて頂いた関数なのですが利用できるエクセルと利用できなエクセルがあります以下の関数について、#NAME?　というエラーが出て、利用できないエクセルと #NAME?が表示されずに、普通に　利用できるエクセルがあります同じ関数なのに、エラーが出るエクセルと出ないエクセルがあるのは、なぜでしょうか？エラーが出ているエクセルでも使えるようにしたいですご存じの方、教えて下さい【officeの製品情報】 Microsoft 365⇒使えるバージョン。関数が使える Office 365 Enterprise⇒使えないバージョン。関数にエラーが出る【関数】 =LET(a,REGEXEXTRACT(C1:C10,"^売上一覧[0-9]{14}\.xls(x)?$"),INDEX(FILTER(a,NOT(ISERROR(a)),""),1)) ⇒A1セルに入力 ⇒C列にある、ファイル名の内　売上一覧20250418173839.xlsx　形式のファイル名を抽出する【抽出するファイル名は以下。日付部分はyyyymmddhhmmssです】売上一覧20250418173839.xlsx

質問日時: 2025/04/22 22:50 質問者: aoyama-reiko

解決済

2

0
【マクロ】アクティブセルの時間を別ブックから検索。見つかったセルを含めた最終行まで選択したい

以下画像をご覧ください。左のブックにてアクティブセルにある時間（12:01:01）を右の別ブックから検索見つかったセルから最終行までを範囲選択をしたい右のブックに検索してヒットしなければ、メッセージBOXにて表示したいです。「検索時間なし」メッセージ表示したいですご存じの方、マクロのコードorアドバイスお願いします【条件】左のブック C:\Users\2020\OneDrive\マクロ\E\３月度管理シート.xlsm 右のブック C:\Users\2020\OneDrive\マクロ\E\売上一覧20250418173839.csv シート名⇒２つのブック⇒Sheet1 時間の書式⇒h:mm:ss⇒ユーザー定義 ※普通に秒まで入力した場合の書式

質問日時: 2025/04/22 10:20 質問者: aoyama-reiko

解決済

4

0
【マクロ】３行に上から下に並んだ文字列を、単純に、逆に並び替えれますか？

以下のように並んだファイル名を、A1から逆に並び替えれますか？マクロor以下文字列をB列に移動して、関数でも並び替えられればいいですご存じの方、教えて下さい A1　売上一覧20250421173839.xlsx A2　あいうえお20250418173839.csv A3　売上一覧20250418173838.xlsx

質問日時: 2025/04/21 22:41 質問者: aoyama-reiko

解決済

5

0
特定のセルだけ結果がおかしいです。関数はオートフィルでコピーしており、細かく見てもどこもおかしくあ

特定のセルだけ結果がおかしいです。関数はオートフィルでコピーしており、細かく見てもどこもおかしくありません。シートCに名前を入れて、シートBの一覧表から同じ名前を抽出し、シートAにその名前と別データを返しています。1箇所はシートCに入れた名前と全然違う名前がシートAに返されています。また、1箇所はシートCに入力すらしていないのに、シートAに名前が返されています。何がいけないのかわかりません。他の箇所は正しく返されているので関数が間違えているとは思ません。

質問日時: 2025/04/20 17:21 質問者: 19730928

解決済

4

0
エクセルのdatedif関数を使って、年齢と月齢を入力しました。関数を入力して、問題なく使えたので

エクセルのdatedif関数を使って、年齢と月齢を入力しました。関数を入力して、問題なく使えたのですが、次の月を入力しても自動で1ヶ月プラスされた月齢が出ません、、終了日を変更してエンター押せば、自動で1ヶ月プラスされますよね？

質問日時: 2025/04/20 05:52 質問者: ももすけ.

解決済

3

0
エクセルドロップダウンリストの絞り込みについて

エクセルで画像左のような勤務シフト表を作成しています。その際、画像中央にある別シートに記載された記号（B2セル以降下）をドロップダウンのリストとして入力しています。また、社員は画像右にある別のシートにて管理されています質問ですが入力する勤務記号を会社一括で管理しているため、通常のドロップダウンでは数十という数のリストが表示されてしまいます。1課～3課までの社員について、それぞれの所属にあわせて使う記号だけ表示をさせたいと考えています（1課なら、E列で1が入っているものだけ、といったように）検索すると、絞り込み用のドロップダウンで部署をあらかじめ選択→それに連動させて絞り込み、という方法は見つかったのですが、画像のようなシフト表で、例えば職種に本部長が記載されていたら（実際はVLOOKUPで自動表示されています）、D以降の18行については、1課に割り当てられた記号が絞り込まれてドロップダウンで表示されるようにすることは可能でしょうか？わかりづらい点ありましたらご指摘ください。よろしくお願いします。（画像が見づらい場合も同様です）

質問日時: 2025/04/19 23:27 質問者: makun100

ベストアンサー

1

1
【マクロ】EXCELで読込したCSVファイルは通常のエクセル(xlsx)と同じようにマクロで動かせる

【やりたい事】 CSVファイルをエクセルにて読込、通常のエクセルファイルと同じようにマクロを利用し、CSVファイルを加工はできますか？？？ ※実験では出来ました例：A.CSVをB.xlsmから、マクロにて指示をし加工したい ⇒以下コードで、CSVファイルの中のデータコピー、オートフィルターの設置、文字入力 ⇒実施しましたが、普通のエクセルファイルと同じように加工できました【条件】 WEB上から出力されたCSVファイル開始行の１行目が約１０項目あり２行目からがデータとなる【ためしたコード】 Sub csvファイルをエクセルで読み込んだアクティブブック() Dim filepath1 As String Dim wb1 As Workbook Dim ws1 As Worksheet filepath1 = ActiveWorkbook.FullName sheetname1 = ActiveSheet.Name Set wb1 = Workbooks.Open(filepath1) Set ws1 = wb1.Worksheets(sheetname1) MsgBox ActiveWorkbook.FullName ws1.Activate Range("a20") = "あいうえお" Range("A1:h1").Copy Range("a10").PasteSpecial Paste:=xlPasteValues Range("A1").AutoFilter End Sub

質問日時: 2025/04/19 06:53 質問者: aoyama-reiko

解決済

1

1
９月１７日でサービス終了らしいのですが、今までのようなエクセルの質問や相談はどこですればいい？

タイトルのとおりですが、９月１７日でサービス終了らしいのですが、今までのようなエクセルの質問や相談はどこですればいいのでしょうか？推薦されるサイトなどを紹介してください。よろしく。

質問日時: 2025/04/18 13:09 質問者: banzaiA

解決済

7

0
iPhoneのExcelアプリで、別のシートのセルの値を表示したいとき、どう言う式を入れれば良いです

iPhoneのExcelアプリで、別のシートのセルの値を表示したいとき、どう言う式を入れれば良いですか？

質問日時: 2025/04/18 07:33 質問者: superwonderful

解決済

1

0
エクセルの循環参照、？

エクセルのファイルを開くと　1つ以上の循環参照が発生しています　と言うメッセージが出ます。色々調べますが、何処なのか分かりません。見つける方法はあるのでしょうか。よろしくお願いいたします。

質問日時: 2025/04/17 08:06 質問者: takatuka

解決済

2

0
【マクロ】A列にある、日付（本日：4月17日）を検索し、セルを選択するには？

A列の１~１００行目までに、１つだけ、当日の日付を表示したセルがあります例：4月17日　です。当該、日付を探し、同セルを見つけ、選択をしたいです。ご存じの方、コードもしくはアドバイスお願いします

質問日時: 2025/04/17 07:43 質問者: aoyama-reiko

解決済

2

0
【エクセル】期限アラートについて

エクセルで質問です。会社では休日出勤してから３ヶ月以内に振休取得する必要があります。振休取得のための管理シートを作成するのですが、下記の通りアラートを表示させる方法を教えていただけますでしょうか。 A1セルに休日出勤の日付【2025/4/1】と入力した場合、A2セルの振休取得日【2025/7/1】と入力すると黄色塗にアラートが出るように設定したいです。（3ヶ月を超える日数を入力した場合、黄色塗になる）難しそうであれば入力欄の近くに【3ヶ月以内の日付を記載してください】と注意書きするのみに使用かなと考えておりますよろしくお願いします。

質問日時: 2025/04/15 11:18 質問者: reinan88

解決済

2

0
エクセル

関数の使い方で困っています。 1セグの中に4の数値入っていまして、改行で入っている数値を4つのセグに横列に数値が入るようにいたいのですが？ 1セグの中の数値は区切りがなく、改行しているだけです。どのような関数を入れる事で横列にいれることができますか？どうか、知識のある方おしえてください。

質問日時: 2025/04/15 10:09 質問者: 縦横ななめ

解決済

3

0
【マクロ】WEBシステムから保存ではなく、開いたExcelデータを変数に入れる事が出来る？

【やりたい事】名前を付けて、保存をしていない、エクセルファイルを変数に入れたい可能であれば、コードorアドバイスをお願いします Web（マイクロソフトエッジ）上で動くシステムから開くボタンをクリックその後、windows10のダウンロードボタンをクリック保存or開くかの選択画面を表示⇒開くをクリックファイル名は　202504011001データ ⇒ファイル名の先頭の時間の部分はダウンロードした時間となります ⇒202504011001 ⇒ファイル名の先頭部分は毎回、変わります ※システムの為、名前は常に作成されている為、見えない所でどこかに、保存されているのかもしれないです【参考：ファイルを変数に入れるコード】 Cells(1, 1)には⇒普段は次のとおりパスが書いてあります　C:\Users\2020\OneDrive\あいうえお.xlsx Dim filepath1 As String Dim wb1 As Workbook Dim ws1 As Worksheet filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(1, 1) Set wb1 = Workbooks.Open(filepath1) Set ws1 = wb1.Worksheets("Sheet1")

質問日時: 2025/04/14 09:48 質問者: aoyama-reiko

ベストアンサー

1

0
VBA チェックボックスをオーバーラップしたインスタンスのCaptionを出力したい

VBA チェックボックスをオーバーラップしたインスタンスのCaptionを出力したい VBAの初心者で、勉強しています。最近ようやくクラスの定義方法が分かってきました、が深くは分かっていません。次のようにクラスモジュール MyClass を作成しました。 ------------------------- クラスモジュール MyClass -------------------------- Option Explicit Private WithEvents myChkBox As MSForms.CheckBox Public Sub SetCtrl(new_ctrl As MSForms.CheckBox) Set myChkBox = new_ctrl End Sub Private Sub myChkBox_Click() 　' クリックされたときの処理 End Sub ------------------------------------------------------------------------------- 次に、チェックボックスが配置されたUserFormのコードに Set myCol = New Collection Dim c As Control Dim o As Variant For Each c In Me.Controls If TypeName(c) = "ChckBox" Then Set o = New MyClass_ChkBox Call o.SetCtrl(c) myCol.Add o Set o = Nothing ★今回の質問とは関係ありませんが、このNothingは必要ですか？ End If Next として、チェックボックスを先ほど定義したクラスでオーバーラップ（？）し、コレクション myCol に格納しました。ここで myCol の内容を確認するために For i = 1 To myCol.Count Debug.Print TypeName(myCol.Item(i)) Next とすると、TypeName は期待どおりに出力されました。このとき、　　　 Debug.Print myCol.Item(i).Caption のようにして、キャプションをDebug出力したいのですが、エラーになってしまいます。標準のチェックボックスには Caption というプロパティがあるかと思いますが、オーバーラップすると、Caption は引き継がれないのでしょうか。上手く質問内容を説明できているか分かりませんが、詳しい方がいましたら是非教えてください。

質問日時: 2025/04/14 02:28 質問者: tsukita

ベストアンサー

2

0
Excelの新しい空白のブックを開く度に画像のような警告が出てきますブック59と書かれていますが

Excelの新しい空白のブックを開く度に画像のような警告が出てきますブック59と書かれていますが全くの新規で作っても同じ表記が出るのですが解決法はありますか？

質問日時: 2025/04/13 21:16 質問者: タピオカタピタピ

ベストアンサー

2

1
Excelについての質問です並べ替えの機能で社員を50音順に並べ替えたいのですが名前の横に社員番

Excelについての質問です並べ替えの機能で社員を50音順に並べ替えたいのですが名前の横に社員番号や担当業務なども横のセルにあるのですが名前で並び替えすると社員番号は変わらず名前だけ変わるのではないのでしょうか？セルのアルファベットに情報を入れておりセルの番号ごとに分けている感じです名前と他の情報を横並びで紐付けする方法を教えて頂きたいです。

質問日時: 2025/04/13 18:01 質問者: タピオカタピタピ

ベストアンサー

4

0
【マクロ】宣言は、何のためにするんですか？？？しなくても、普通に動いしまうのはなぜ？

標題の件、以下のように、宣言をして、コードを書いて下さいとマクロのルールでありますしかし、実際に書かなくても動きますルールで書いたり、忘れたりするのですが、どんな目的があるのでしょうか？ ⇒型を定義して宣言しているというのは理解できますご存じの方、教えて下さい Dim wb As Workbook　⇒エクセルブックを宣言 Dim LastRow1 As Long　⇒最終の行番号を宣言 Dim filePath As String　⇒ファイルパスを宣言 Set wb = Workbooks.Open(filePath) LastRow1 = Cells(Rows.Count, "A").End(xlUp).Row filePath = "C:\Users\2020\OneDrive\マクロ\a.xlsm"

質問日時: 2025/04/13 08:39 質問者: aoyama-reiko

ベストアンサー

4

0
【マクロ】アクティブセルの２つの条件に一致する契約を特定。データを上書きするには？

【やりたい事】アクティブセルのお客様番号と区分の２つの条件に一致している契約を⇒I列とJ列からから検索⇒特定 ●一致している⇒メッセージ表示 ●該当契約なし⇒メッセージ表示一致している場合は、以下オペ実施 ●C4セル⇒K2セルへ上書き転記 ●D4セル⇒L2セルへ上書き転記ご存じの方いらっしゃいましたら、アドバイスorコードを教えて下さい

質問日時: 2025/04/13 02:08 質問者: aoyama-reiko

ベストアンサー

2

0
スプレッドシートで複数のプルダウンから条件を設定して文字を表示させたいです

コメント:〇〇と▼▼とします。〇〇と▼▼の部分をプルダウンで選択して別のセルに上記のコメント空欄を埋めた状態で表示させたいです。例:赤(〇〇部分)とA(▼▼部分)とします。 A2セルに『色』と見出しをつけ B2セルにプルダウン作成中身は赤、青、緑、黄 A3セルに『名前』と見出しをつけ B3セルにプルダウン作成中身はA、B、C、Dと設定します。プルダウンで選択した色と名前がコメント空欄を埋めるように表示 E2セル(どこでもよい)に冒頭で記載したコメント表示させるようにしたいのですが該当関数がわかりません。このような設定は可能なのでしょうか。

質問日時: 2025/04/11 17:23 質問者: wanko2945

ベストアンサー

1

0
派遣会社とかハローワークとかがやってるパソコン研修(主にエクセル)って受けといた方がいいんでしょうか

派遣会社とかハローワークとかがやってるパソコン研修(主にエクセル)って受けといた方がいいんでしょうか、派遣会社から受けないかと言われたのですがその時はめんどくさいなと思い断りました。時間は3時間程度らしいのですが就く仕事によっては受けといて良かったとなりますかね？受けたことある方どういう感じだったか教えていただきたいです。ちなみに内容的には応用編？でROUND関数、VLOOKUP関数とかピポットテーブルの使い方等だそうです。前職でエクセルは使ってたので応用編だけでもどうですか？とのことだったんですが正直期間が空きすぎてていきなりやっても理解出来る自信がないです。

質問日時: 2025/04/08 21:09 質問者: badday_07

ベストアンサー

4

0
excelで日付関数の文字列変換の前にスペースを入れる方法をお教え下さい。

例えばe6セルに2025/4/9を入力してa2セルで参照します。a2セルのユーザー定義を「gggee"年"mm"月"dd"日"」にし、a2セルに「=e6」を入力すると令和07年04月09日と返ってきます。問題はスペースを入れるためa2セルに「=" "&e6」を入力すると「 45752」で、スペースとシリアル値に変わってしまいました。「スペース＋令和07年04月09日」を表示できる方法がございましたらどなたかお教え下さい。

質問日時: 2025/04/08 11:59 質問者: usoyaro

ベストアンサー

3

0
マクロOn Error GoTo ErrLabelとOn Error Resume Next教えて

Q1.On Error GoTo ErrLabelとOn Error Resume Nextとの違いについていまいちわかりません。以下の例のとおりで合っていますか？ Q2.On Error Resume Nextが書かれた行より下の行は全て、エラーが発生したら無視　してくれるのですか？？？ Q3.On Error GoTo ErrLabelからラベルまでの間に書かれた間で、エラーが発生した時点で　ラベルまで、飛んでくれるのですか？ご存じの方、教えて下さい On Error GoTo ErrLabel エラーなし行⇒実行されるエラーあり行⇒実行されない。飛ばされる。エラーなし行⇒実行されない。飛ばされる。 ErrLabel: On Error Resume Next エラーなし行⇒実行されるエラーあり行⇒実行されない。飛ばされる。エラーなし行⇒実行される

質問日時: 2025/04/07 08:51 質問者: aoyama-reiko

ベストアンサー

2

1
【関数】不規則な文章から●●-●●●●-●●●●-●形式の数字を抜きだしたい

不規則な文章（１行）から以下のハイフン付き数値を抜き出す関数を教えて下さいご存じの方、アドバイスor関数を教えて下さい ●●-●●●●-●●●●-●　形式の数値を抜き出したいです例あいうえお10-1234-2508-1あい　⇒ 10-1234-2508-1 あいう90-1234-2508-2あいうえお⇒ 10-1234-2508-2

質問日時: 2025/04/07 08:21 質問者: aoyama-reiko

ベストアンサー

5

1
findメソッドで、10:00:01 を検索をして、メッセージボックスにセル番地と時間が表示できない

以下をコードをご覧ください e1セルに　佐々木　と入力するとメッセージボックスの resul⇒佐々木 result.Address⇒A11 を表示します佐々木という単語が、A1-A100のどこのセルにあるか検索するコードです上記はうまくいくのですが e1セルに　10:00:01　と入力すると書式設定はみると　h:mm:ss　となっています MsgBox key⇒0.416678240740741　と表示されるその後、以下はコードいずれもエラーとなります結果、メッセージボックスには何も表示されません MsgBox result MsgBox result.Address Q1.e1セルに　10:00:01　と入力しても、検索をして、セル番地をメッセージボックスに表示したいです Q2.MsgBox key⇒0.416678240740741　と表示されるところを　10:00:0　と表示したいですご存じの方、宜しくお願いします【コード】 Sub 特定() key = Range("e1") MsgBox key Set result = Range("a1:a100" & LstRow2).Find(What:=key, lookat:=xlWhole) MsgBox result MsgBox result.Address End Sub

質問日時: 2025/04/06 18:34 質問者: aoyama-reiko

解決済

2

0
空白セルに斜線(罫線)

下図の表を作って作業して、月末締めに空白セルに斜線をいれたいと思っています 2行目、3行目には別のセルに年月を入れて、数式から日付と曜日を入れるようにしています。 29・30・31日には、" =IF(DAY(AE2+1)=29,AE2+1,"") " のような式を入れて空白セルになるようにしています。数式が入ってないセルは、 Range("A4:AH21").SpecialCells(xlCellTypeBlanks).Borders(xlDiagonalUp).LineStyle = True で斜線を入れることができました 2行目、3行目の数式が入ったセルも含めて、表のなかのすべての空白セルに斜線を入れるのは可能でしょうか? 年月を入れた時点で、2行目、3行目の29・30・31日に斜線が入るような方法もありますでしょうか? よろしくお願いします。

質問日時: 2025/04/04 22:09 質問者: ガンバルじいさん

ベストアンサー

1

0

←前の結果
1
2
3
4
5
6
7
8
9
10
11
...
20
次の結果→

【Microsoft Office】に関するカテゴリ

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

【Excel（エクセル）】に関するコラム/記事

弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
釣りと密漁の違いは？知らなかったでは済まされない？事前にできることは？

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
カスハラとクレームの違いは？カスハラの法的責任は？企業がとるべき対応は？

東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。この動きは自治体...
なぜ批判コメントをするの？その心理と向き合い方をカウンセラーにきいた！

今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...