HohoPapa の回答履歴

ExcelVBAでグループ化したピボットテーブルからグループ化した内容を取得したいのですが、うまくいきません。詳しい方いらっしゃったらご教示をお願いしたいです。 具体的に言うと、下記ピボットテーブルの行ヘッダの場合、「グループ1-1」を指定したら「分類１」と「分類２」だけを取得したいです。 分類 ----------------------------- + グループ１ 　+ グループ1-1 　　分類１ 　　分類２ 　+ グループ1-2 　　分類３ 　　分類４

下記のように日付（空欄含む）が並んでいて 2019年7月1日 2020年8月2日 2021年8月5日 空欄 空欄 ピボットテーブルで下記のように集計したとします 8月　2 7月　1 (空白) ここの空白の件数を数えたいのですが （今回であれば2と表示される）そういったことは可能でしょうか。 日付以外の文字を入れると集計されず…困っています。 お詳しい方、どうかご教授お願い致します。

いつもお世話になっております。 エクセルで任意の2つの列（例えばD列とF列）の下から指定数の数値でグラフ化するVBAを今年の８月に下記のご回答を頂いて便利に複数のシートに使っているのですが、今回セルに計算式が入るのでご回答のコードでは対応できません。 ＜元の質問とご回答＞https://okwave.jp/qa/q9911773.html つまり数値セルの下から任意のデータ数を遡るコードが必要になりました。 どなたかHELPお願いします。 ちなみにご回答いただいたコードは下記の通りですが、このコードを踏襲する必要はありません。 （VBAコードとシートの指定値とグラフに少し齟齬がありますがご了承ください） Option Explicit ' Sub グラフ化() 　　Dim RSta As Integer 　　Dim REnd As Integer 　　REnd = Cells(Rows.Count, [Q7].Value).End(xlUp).Row 　　RSta = WorksheetFunction.Max([Q10], REnd - [Q9] + 1) 　　Range([Q7] & [Q8] & "," & [Q7] & RSta & ":" & [Q7] & REnd).Select ' 　　If [R7] > "" Then 　　　　Range(Selection.Address & "," & _ 　　　　　　[R7] & [Q8] & "," & [R7] & RSta & ":" & [R7] & REnd).Select 　　End If 　　ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection End Sub

いつもお世話になっております。 エクセルで任意の2つの列（例えばD列とF列）の下から指定数の数値でグラフ化するVBAを今年の８月に下記のご回答を頂いて便利に複数のシートに使っているのですが、今回セルに計算式が入るのでご回答のコードでは対応できません。 ＜元の質問とご回答＞https://okwave.jp/qa/q9911773.html つまり数値セルの下から任意のデータ数を遡るコードが必要になりました。 どなたかHELPお願いします。 ちなみにご回答いただいたコードは下記の通りですが、このコードを踏襲する必要はありません。 （VBAコードとシートの指定値とグラフに少し齟齬がありますがご了承ください） Option Explicit ' Sub グラフ化() 　　Dim RSta As Integer 　　Dim REnd As Integer 　　REnd = Cells(Rows.Count, [Q7].Value).End(xlUp).Row 　　RSta = WorksheetFunction.Max([Q10], REnd - [Q9] + 1) 　　Range([Q7] & [Q8] & "," & [Q7] & RSta & ":" & [Q7] & REnd).Select ' 　　If [R7] > "" Then 　　　　Range(Selection.Address & "," & _ 　　　　　　[R7] & [Q8] & "," & [R7] & RSta & ":" & [R7] & REnd).Select 　　End If 　　ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection End Sub

いつもお世話になっております。 エクセルで任意の2つの列（例えばD列とF列）の下から指定数の数値でグラフ化するVBAを今年の８月に下記のご回答を頂いて便利に複数のシートに使っているのですが、今回セルに計算式が入るのでご回答のコードでは対応できません。 ＜元の質問とご回答＞https://okwave.jp/qa/q9911773.html つまり数値セルの下から任意のデータ数を遡るコードが必要になりました。 どなたかHELPお願いします。 ちなみにご回答いただいたコードは下記の通りですが、このコードを踏襲する必要はありません。 （VBAコードとシートの指定値とグラフに少し齟齬がありますがご了承ください） Option Explicit ' Sub グラフ化() 　　Dim RSta As Integer 　　Dim REnd As Integer 　　REnd = Cells(Rows.Count, [Q7].Value).End(xlUp).Row 　　RSta = WorksheetFunction.Max([Q10], REnd - [Q9] + 1) 　　Range([Q7] & [Q8] & "," & [Q7] & RSta & ":" & [Q7] & REnd).Select ' 　　If [R7] > "" Then 　　　　Range(Selection.Address & "," & _ 　　　　　　[R7] & [Q8] & "," & [R7] & RSta & ":" & [R7] & REnd).Select 　　End If 　　ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection End Sub

エクスプローラーで画像を選択して右クリックして、メール受信者　を押すのですが、 別のアカウント(アドレス)の添付ファイルになってしまいます。 そこはMicrosoft Exchangeという　種類　らしく、 それが影響しているのかも知れません(私にはよく分かりません)。 とにかく、いつも使っているアカウント(アドレス)に送りたいのですが、 [設定]→[アプリ]→[既定のアプリ]　で“アプリ自体は”当然ながら合ってます。 この先、どこを調べればよいですか？

いつもお世話になっております。 エクセルで任意の2つの列（例えばD列とF列）の下から指定数の数値でグラフ化するVBAを今年の８月に下記のご回答を頂いて便利に複数のシートに使っているのですが、今回セルに計算式が入るのでご回答のコードでは対応できません。 ＜元の質問とご回答＞https://okwave.jp/qa/q9911773.html つまり数値セルの下から任意のデータ数を遡るコードが必要になりました。 どなたかHELPお願いします。 ちなみにご回答いただいたコードは下記の通りですが、このコードを踏襲する必要はありません。 （VBAコードとシートの指定値とグラフに少し齟齬がありますがご了承ください） Option Explicit ' Sub グラフ化() 　　Dim RSta As Integer 　　Dim REnd As Integer 　　REnd = Cells(Rows.Count, [Q7].Value).End(xlUp).Row 　　RSta = WorksheetFunction.Max([Q10], REnd - [Q9] + 1) 　　Range([Q7] & [Q8] & "," & [Q7] & RSta & ":" & [Q7] & REnd).Select ' 　　If [R7] > "" Then 　　　　Range(Selection.Address & "," & _ 　　　　　　[R7] & [Q8] & "," & [R7] & RSta & ":" & [R7] & REnd).Select 　　End If 　　ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection End Sub

2つのExcelファイル("1月顧客別商品別.xls"と"顧客別管理.xlsx")において、顧客コードと商品コードの双方が一致しているものの売上高と粗利を顧客別管理.xlsxの対応欄(商品別になっている)(1月の売上高の入力欄：K9～K32、粗利の入力欄：K39～62)に入力させるVBAを作りたく、以下のコードを書いたのですが、コードが恐らくハチャメチャのため重たすぎて正しく動作しているかどうかわかりません。 大量のデータがあるためDictionaryを使用したものの、どん詰まりすぎてもう何もわかりません… 間違っているなら修正ポイントを、正しいなら軽量化する方法を教えていただけると大変助かります。 なお、前提条件として、 "1月顧客別商品別.xls"：”集計”シートのA~E列に”顧客コード”、”顧客名”、”商品コード”、”売上高”、”粗利”が２行目以降並んでいます。 "顧客別管理.xlsx"：左から4枚目～最後から数えて3ページ目までのシートがそれぞれ顧客別のシートで、それぞれシート名が顧客コードになっていて、B列に売上高の商品一覧(B9～B32)・粗利の商品一覧(B39～B62)が並んでおり、検索しやすくなるためにそれぞれ対応する行のA列に商品コードを入力してあります。 ----------------------------------------------------------------------------------------- Sub 最終集計シートと月次実績シートの顧客名項目名一致入力() Dim nws As Worksheet, mws As Worksheet, ynws As Worksheet, ydws As Worksheet Dim mdwb As Workbook, ydwb As Workbook Dim i Dim Dic As Object Dim dkey As Variant, data As Variant Dim dtRow As Integer Dim opRow As Long Set mdwb = Workbooks("1月顧客別商品別.xls") Set ydwb = Workbooks("顧客別管理.xlsx") Set mws = mdwb.Worksheets("集計") Set Dic = CreateObject("Scripting.Dictionary") mdwb.Activate mws.Activate dtRow = Cells(Rows.Count, 1).End(xlUp).Row dtRow = 2 '月次実績データ行設定 'C列をDictionaryオブジェクトに格納 Do Until mws.Cells(dtRow, 3).Value = "" dkey = mws.Cells(dtRow, 3).Value data = Array(mws.Cells(dtRow, 4), mws.Cells(dtRow, 5)) If Not Dic.exists(dkey) Then Dic.Add dkey, Null End If dtRow = dtRow + 1 Loop ydwb.Activate For i = 4 To ydwb.Worksheets.Count - 2 Set ydws = ydwb.Worksheets(i) ydws.Activate opRow = 9 Do Until ydws.Cells(opRow, 1).Value = 32 dkey = ydws.Cells(opRow, 1).Value If Dic.exists(dkey) And mws.Cells(dtRow, 1) = ydws.Name Then ydws.Cells(opRow, 11).Value = data(0) ydws.Cells(opRow + 30, 11).Value = data(1) End If Loop Next i End Sub

2つのExcelファイル("1月顧客別商品別.xls"と"顧客別管理.xlsx")において、顧客コードと商品コードの双方が一致しているものの売上高と粗利を顧客別管理.xlsxの対応欄(商品別になっている)(1月の売上高の入力欄：K9～K32、粗利の入力欄：K39～62)に入力させるVBAを作りたく、以下のコードを書いたのですが、コードが恐らくハチャメチャのため重たすぎて正しく動作しているかどうかわかりません。 大量のデータがあるためDictionaryを使用したものの、どん詰まりすぎてもう何もわかりません… 間違っているなら修正ポイントを、正しいなら軽量化する方法を教えていただけると大変助かります。 なお、前提条件として、 "1月顧客別商品別.xls"：”集計”シートのA~E列に”顧客コード”、”顧客名”、”商品コード”、”売上高”、”粗利”が２行目以降並んでいます。 "顧客別管理.xlsx"：左から4枚目～最後から数えて3ページ目までのシートがそれぞれ顧客別のシートで、それぞれシート名が顧客コードになっていて、B列に売上高の商品一覧(B9～B32)・粗利の商品一覧(B39～B62)が並んでおり、検索しやすくなるためにそれぞれ対応する行のA列に商品コードを入力してあります。 ----------------------------------------------------------------------------------------- Sub 最終集計シートと月次実績シートの顧客名項目名一致入力() Dim nws As Worksheet, mws As Worksheet, ynws As Worksheet, ydws As Worksheet Dim mdwb As Workbook, ydwb As Workbook Dim i Dim Dic As Object Dim dkey As Variant, data As Variant Dim dtRow As Integer Dim opRow As Long Set mdwb = Workbooks("1月顧客別商品別.xls") Set ydwb = Workbooks("顧客別管理.xlsx") Set mws = mdwb.Worksheets("集計") Set Dic = CreateObject("Scripting.Dictionary") mdwb.Activate mws.Activate dtRow = Cells(Rows.Count, 1).End(xlUp).Row dtRow = 2 '月次実績データ行設定 'C列をDictionaryオブジェクトに格納 Do Until mws.Cells(dtRow, 3).Value = "" dkey = mws.Cells(dtRow, 3).Value data = Array(mws.Cells(dtRow, 4), mws.Cells(dtRow, 5)) If Not Dic.exists(dkey) Then Dic.Add dkey, Null End If dtRow = dtRow + 1 Loop ydwb.Activate For i = 4 To ydwb.Worksheets.Count - 2 Set ydws = ydwb.Worksheets(i) ydws.Activate opRow = 9 Do Until ydws.Cells(opRow, 1).Value = 32 dkey = ydws.Cells(opRow, 1).Value If Dic.exists(dkey) And mws.Cells(dtRow, 1) = ydws.Name Then ydws.Cells(opRow, 11).Value = data(0) ydws.Cells(opRow + 30, 11).Value = data(1) End If Loop Next i End Sub

2つのExcelファイル("1月顧客別商品別.xls"と"顧客別管理.xlsx")において、顧客コードと商品コードの双方が一致しているものの売上高と粗利を顧客別管理.xlsxの対応欄(商品別になっている)(1月の売上高の入力欄：K9～K32、粗利の入力欄：K39～62)に入力させるVBAを作りたく、以下のコードを書いたのですが、コードが恐らくハチャメチャのため重たすぎて正しく動作しているかどうかわかりません。 大量のデータがあるためDictionaryを使用したものの、どん詰まりすぎてもう何もわかりません… 間違っているなら修正ポイントを、正しいなら軽量化する方法を教えていただけると大変助かります。 なお、前提条件として、 "1月顧客別商品別.xls"：”集計”シートのA~E列に”顧客コード”、”顧客名”、”商品コード”、”売上高”、”粗利”が２行目以降並んでいます。 "顧客別管理.xlsx"：左から4枚目～最後から数えて3ページ目までのシートがそれぞれ顧客別のシートで、それぞれシート名が顧客コードになっていて、B列に売上高の商品一覧(B9～B32)・粗利の商品一覧(B39～B62)が並んでおり、検索しやすくなるためにそれぞれ対応する行のA列に商品コードを入力してあります。 ----------------------------------------------------------------------------------------- Sub 最終集計シートと月次実績シートの顧客名項目名一致入力() Dim nws As Worksheet, mws As Worksheet, ynws As Worksheet, ydws As Worksheet Dim mdwb As Workbook, ydwb As Workbook Dim i Dim Dic As Object Dim dkey As Variant, data As Variant Dim dtRow As Integer Dim opRow As Long Set mdwb = Workbooks("1月顧客別商品別.xls") Set ydwb = Workbooks("顧客別管理.xlsx") Set mws = mdwb.Worksheets("集計") Set Dic = CreateObject("Scripting.Dictionary") mdwb.Activate mws.Activate dtRow = Cells(Rows.Count, 1).End(xlUp).Row dtRow = 2 '月次実績データ行設定 'C列をDictionaryオブジェクトに格納 Do Until mws.Cells(dtRow, 3).Value = "" dkey = mws.Cells(dtRow, 3).Value data = Array(mws.Cells(dtRow, 4), mws.Cells(dtRow, 5)) If Not Dic.exists(dkey) Then Dic.Add dkey, Null End If dtRow = dtRow + 1 Loop ydwb.Activate For i = 4 To ydwb.Worksheets.Count - 2 Set ydws = ydwb.Worksheets(i) ydws.Activate opRow = 9 Do Until ydws.Cells(opRow, 1).Value = 32 dkey = ydws.Cells(opRow, 1).Value If Dic.exists(dkey) And mws.Cells(dtRow, 1) = ydws.Name Then ydws.Cells(opRow, 11).Value = data(0) ydws.Cells(opRow + 30, 11).Value = data(1) End If Loop Next i End Sub

いつもお世話になっております。 エクセルで任意の2つの列（例えばD列とF列）の下から指定数の数値でグラフ化するVBAを今年の８月に下記のご回答を頂いて便利に複数のシートに使っているのですが、今回セルに計算式が入るのでご回答のコードでは対応できません。 ＜元の質問とご回答＞https://okwave.jp/qa/q9911773.html つまり数値セルの下から任意のデータ数を遡るコードが必要になりました。 どなたかHELPお願いします。 ちなみにご回答いただいたコードは下記の通りですが、このコードを踏襲する必要はありません。 （VBAコードとシートの指定値とグラフに少し齟齬がありますがご了承ください） Option Explicit ' Sub グラフ化() 　　Dim RSta As Integer 　　Dim REnd As Integer 　　REnd = Cells(Rows.Count, [Q7].Value).End(xlUp).Row 　　RSta = WorksheetFunction.Max([Q10], REnd - [Q9] + 1) 　　Range([Q7] & [Q8] & "," & [Q7] & RSta & ":" & [Q7] & REnd).Select ' 　　If [R7] > "" Then 　　　　Range(Selection.Address & "," & _ 　　　　　　[R7] & [Q8] & "," & [R7] & RSta & ":" & [R7] & REnd).Select 　　End If 　　ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection End Sub

シート１のAL列の3行目以降の中から0以外の 値が入っているAJ列～AN列の行を全てコピーして、 シート２のＢ列～Ｆ列に貼り付けたいです。 シート２のＢ列～Ｆ列の7行目から下にコピーした値を入れていきたく、 値が入っていたらその次の行に貼り付けたいです。 例えば、7行目～15行目まで値が入っていたら、16行目から貼り付けるようにしたいです。↓のように書いてみたのですが、 コピーしている状態になるだけで、シート2の方へ貼り付けができない状態です。 また、オブジェクトが必要ですと表示が出ます。 どこをどうなおしたらいいでしょうか。 文章がわかりにくく申し訳ありません。 回答よろしくお願いいたします。 sub 値をコピー() Dim rTargetRange As Range, ii As Long Set rTargetRange = Nothing For ii = 4 To Cells(Rows.CountLarge, "AL").End(xlUp).Row If (Cells(ii, "AL").Value <> 0) Then If (rTargetRange Is Nothing) Then Set rTargetRange = Cells(ii, "AJ").Resize(, 5) Else Set rTargetRange = Application.Union(rTargetRange, Cells(ii, "AJ").Resize(, 5)) End If End If Next With Worksheets("sheet2") With .Cells(.Rows.CountLarge, "B").End(xlUp) If (.Row = 1 And .Value = "") Then rTargetRange.Copy .Offset(0) Else rTargetRange.Copy .Offset(1) End If End With End With End Sub また、↓のような違ったコードも試しましたが、 うまくいきませんでした。 N=Sheet2.Cells(Rows.CountLarge, "AL").End(xlUp).Row+1 SHEET1.SELECT For ii = 4 To Cells(Rows.CountLarge, "AL").End(xlUp).Row If Cells(ii, "AL").Valu e <> 0 Then RANGE("AJ" & ii & ":AN" & ii).COPY SHEET2.RANGE("B" & N) N=N+1 END IF NEXT

シート１のAL列の3行目以降の中から0以外の 値が入っているAJ列～AN列の行を全てコピーして、 シート２のＢ列～Ｆ列に貼り付けたいです。 シート２のＢ列～Ｆ列の7行目から下にコピーした値を入れていきたく、 値が入っていたらその次の行に貼り付けたいです。 例えば、7行目～15行目まで値が入っていたら、16行目から貼り付けるようにしたいです。↓のように書いてみたのですが、 コピーしている状態になるだけで、シート2の方へ貼り付けができない状態です。 また、オブジェクトが必要ですと表示が出ます。 どこをどうなおしたらいいでしょうか。 文章がわかりにくく申し訳ありません。 回答よろしくお願いいたします。 sub 値をコピー() Dim rTargetRange As Range, ii As Long Set rTargetRange = Nothing For ii = 4 To Cells(Rows.CountLarge, "AL").End(xlUp).Row If (Cells(ii, "AL").Value <> 0) Then If (rTargetRange Is Nothing) Then Set rTargetRange = Cells(ii, "AJ").Resize(, 5) Else Set rTargetRange = Application.Union(rTargetRange, Cells(ii, "AJ").Resize(, 5)) End If End If Next With Worksheets("sheet2") With .Cells(.Rows.CountLarge, "B").End(xlUp) If (.Row = 1 And .Value = "") Then rTargetRange.Copy .Offset(0) Else rTargetRange.Copy .Offset(1) End If End With End With End Sub また、↓のような違ったコードも試しましたが、 うまくいきませんでした。 N=Sheet2.Cells(Rows.CountLarge, "AL").End(xlUp).Row+1 SHEET1.SELECT For ii = 4 To Cells(Rows.CountLarge, "AL").End(xlUp).Row If Cells(ii, "AL").Valu e <> 0 Then RANGE("AJ" & ii & ":AN" & ii).COPY SHEET2.RANGE("B" & N) N=N+1 END IF NEXT

DとEの統合したセルのＥの列の数値を取り出したいのですが統合されたセルなのでＤの列の数値がとりだされてしまいますどうにかＤとＥの統合された列のＥの列の数値を取り出し方がわかるかたいらっしゃいましたら教えてください 宜しくお願い致します

いつもお世話になっております。 エクセルで任意の2つの列（例えばD列とF列）の下から指定数の数値でグラフ化するVBAを今年の８月に下記のご回答を頂いて便利に複数のシートに使っているのですが、今回セルに計算式が入るのでご回答のコードでは対応できません。 ＜元の質問とご回答＞https://okwave.jp/qa/q9911773.html つまり数値セルの下から任意のデータ数を遡るコードが必要になりました。 どなたかHELPお願いします。 ちなみにご回答いただいたコードは下記の通りですが、このコードを踏襲する必要はありません。 （VBAコードとシートの指定値とグラフに少し齟齬がありますがご了承ください） Option Explicit ' Sub グラフ化() 　　Dim RSta As Integer 　　Dim REnd As Integer 　　REnd = Cells(Rows.Count, [Q7].Value).End(xlUp).Row 　　RSta = WorksheetFunction.Max([Q10], REnd - [Q9] + 1) 　　Range([Q7] & [Q8] & "," & [Q7] & RSta & ":" & [Q7] & REnd).Select ' 　　If [R7] > "" Then 　　　　Range(Selection.Address & "," & _ 　　　　　　[R7] & [Q8] & "," & [R7] & RSta & ":" & [R7] & REnd).Select 　　End If 　　ActiveSheet.ChartObjects(1).Chart.SetSourceData Selection End Sub

下記のようなことができる関数式があれば教えてください。 Excelカレンダーは作成済みで祝日リストで色づけも終わっています。 月曜日と金曜日に、それぞれ週１でやる業務があります。 月曜日にA. 金曜日にBが自動で入るがそれぞれの曜日が祝日だったら空白にするまではできたんです。 知りたいのは、『基本月曜日にAをいれるけど“月曜日が祝日だったら週明けに”A』と入れたいんです。 ちなみに今は =IF（COUNTIF（祝日リスト.$A3）=1,"",IF($B3=2,業務A,IF(B3=6,業務B,""))) とif式を重ねています。(B列にはWEEKDAY関数を適用してありますので、2が月曜日、6が金曜日のため上記の式になります)

Excelの５列の表があります。 この表のデータの並び替えをしたいのですが、３列目は計算式が入っているので、そのままで並び替えをしたいのですが、良い方法を教えて下さい。

office365 一定時間後（10[S]毎)にステータスバーの進捗状態を更新させたい 下記は、iを１ずつカウントしたらステータスバーを1%～100%まで表示するマクロです。 Sub sample() ' Dim i As Long Dim num As Long UserForm5.Show vbModeless UserForm5.StartUpPosition = 0 UserForm5.Top = 0 UserForm5.Left = 0 i = 1 num = 100 For　 i = 1 To 　num With UserForm5 .ProgressBar1.Value = i .パーセント.Caption = Int(i / num * 100) & "%" .Repaint End With Next End Sub 上記マクロに、10[s]毎にステータスバーの進捗状態を更新するマクロとしたいのですが、その方法がわからずべたのマクロで教えていただきたく。 10[S]たったら1% 20[S]たったら2% … 1000[s]たったら100% のステータスバーを表示する構成にしたいのです。

テキストファイルの数字データをExcelにコピーして貼り付けたいです。その際、元のデータに含まれる数字中の空白文字を削除したいのですが、文字置換で空白文字を除去しようとしてもできません。 置換ボタンを押すと、「一致するデータが見つかりません」となり、すべて置換ボタンを押すと、「置換対象が見つかりません。検索方法については［オプション］をクリックしてください。置換しようとしているデータが保護されたシートにある可能性があります。保護されたシートのデータは置換できません。」と言われます。 ちなみに、全く同じ数字のデータをエクセルのセルに直接手入力すると置換されます。また、テキストファイル内の（Windowsのメモ帳）元データの下に、手入力で全く同じ数字を追加してからエクセルに一括で貼り付け＆置換とやっても、手入力のものだけが置換されるのです。試しに、元データ中の数字データ１個を、元データファイル内にコピー＆ペーストした後、さらにエクセルに貼り付けてみたところ、これは置換されませんでした。 全く同じデータのはずなのに、なぜ手入力のものしか置換されないのか分かりません。 ちなみに、データの内容は、「98 080.21」とか「73 532.98 」というような数字です。 テキストファイルのデータの方をどうにかしたらよいのでしょうか。何か方法があったら教えてください。

A1～A100まで、都道府県が並んでいます。 それをCOUNT？を使って、件数を集計したいです。 説明が下手で申し訳ございません。 office365を使用しています。 宜しくお願い致します。