HohoPapa の回答履歴

office365 ①GANT_DATAシートに計画と実績のGANTデータ ②GANTシートにガントのグラフを表示 したいです。 ①を元に②のグラフを自動で作成したい ガント表示させる構成は kotei1からkotei6までの計画開始計画終了実績開始実績終了の日時データがあり、Serial1からSerial2,Serial3とGANT_DATAのA列でデータがなくなるまでのガントグラフを表示。 Serialは＋30行毎に計画と実績データをデータベースから持ってくる構成。 現状は、GANTシートにひな形としてのグラフを用意しておき、 データ範囲等を１ケ１ケグラフへ反映させてガントのグラフを表示させています。 下記のイメージです。 GANTシートでのSerial1のグラフは グラフデータの範囲：=GANT_DATA!$A$9:$C$20 系列１の系列値：=GANT_DATA!$B$9:$B$20 系列２の系列値：=GANT_DATA!$C$9:$C$20 軸ラベルの範囲：=GANT_DATA!$A$9:$A$20 GANTシートでのSerial2のグラフは グラフデータの範囲：=GANT_DATA!$A$39:$C$50 系列１の系列値：=GANT_DATA!$B$39:$B$50 系列２の系列値：=GANT_DATA!$C$39:$C$50 軸ラベルの範囲：=GANT_DATA!$A$39:$A$50 の様にガントシートのデータ範囲を設定しておき、 GANT_DATAへデータをデータベースから持ってきたらガントのグラフが表示できる構成にしているのですが、グラフの数が増えると上記データ範囲の設定をするのも大変なので、①のシートから②のガントグラフを自動で作成できる様にしたいです。 VBAベタで教えていただきたくよろしくお願いします。 グラフの軸設定はなんとかなると思うので、根本のグラフ表示部分を作成する構成を教えていただけたらと思います ※ GANTグラフには工程間に細く青い線をしきりで入れてます。 これも実現化であれば教えていただきたく。 現状は実線をグラフへコピペで貼り付けています。

office365 ①GANT_DATAシートに計画と実績のGANTデータ ②GANTシートにガントのグラフを表示 したいです。 ①を元に②のグラフを自動で作成したい ガント表示させる構成は kotei1からkotei6までの計画開始計画終了実績開始実績終了の日時データがあり、Serial1からSerial2,Serial3とGANT_DATAのA列でデータがなくなるまでのガントグラフを表示。 Serialは＋30行毎に計画と実績データをデータベースから持ってくる構成。 現状は、GANTシートにひな形としてのグラフを用意しておき、 データ範囲等を１ケ１ケグラフへ反映させてガントのグラフを表示させています。 下記のイメージです。 GANTシートでのSerial1のグラフは グラフデータの範囲：=GANT_DATA!$A$9:$C$20 系列１の系列値：=GANT_DATA!$B$9:$B$20 系列２の系列値：=GANT_DATA!$C$9:$C$20 軸ラベルの範囲：=GANT_DATA!$A$9:$A$20 GANTシートでのSerial2のグラフは グラフデータの範囲：=GANT_DATA!$A$39:$C$50 系列１の系列値：=GANT_DATA!$B$39:$B$50 系列２の系列値：=GANT_DATA!$C$39:$C$50 軸ラベルの範囲：=GANT_DATA!$A$39:$A$50 の様にガントシートのデータ範囲を設定しておき、 GANT_DATAへデータをデータベースから持ってきたらガントのグラフが表示できる構成にしているのですが、グラフの数が増えると上記データ範囲の設定をするのも大変なので、①のシートから②のガントグラフを自動で作成できる様にしたいです。 VBAベタで教えていただきたくよろしくお願いします。 グラフの軸設定はなんとかなると思うので、根本のグラフ表示部分を作成する構成を教えていただけたらと思います ※ GANTグラフには工程間に細く青い線をしきりで入れてます。 これも実現化であれば教えていただきたく。 現状は実線をグラフへコピペで貼り付けています。

office365 ①GANT_DATAシートに計画と実績のGANTデータ ②GANTシートにガントのグラフを表示 したいです。 ①を元に②のグラフを自動で作成したい ガント表示させる構成は kotei1からkotei6までの計画開始計画終了実績開始実績終了の日時データがあり、Serial1からSerial2,Serial3とGANT_DATAのA列でデータがなくなるまでのガントグラフを表示。 Serialは＋30行毎に計画と実績データをデータベースから持ってくる構成。 現状は、GANTシートにひな形としてのグラフを用意しておき、 データ範囲等を１ケ１ケグラフへ反映させてガントのグラフを表示させています。 下記のイメージです。 GANTシートでのSerial1のグラフは グラフデータの範囲：=GANT_DATA!$A$9:$C$20 系列１の系列値：=GANT_DATA!$B$9:$B$20 系列２の系列値：=GANT_DATA!$C$9:$C$20 軸ラベルの範囲：=GANT_DATA!$A$9:$A$20 GANTシートでのSerial2のグラフは グラフデータの範囲：=GANT_DATA!$A$39:$C$50 系列１の系列値：=GANT_DATA!$B$39:$B$50 系列２の系列値：=GANT_DATA!$C$39:$C$50 軸ラベルの範囲：=GANT_DATA!$A$39:$A$50 の様にガントシートのデータ範囲を設定しておき、 GANT_DATAへデータをデータベースから持ってきたらガントのグラフが表示できる構成にしているのですが、グラフの数が増えると上記データ範囲の設定をするのも大変なので、①のシートから②のガントグラフを自動で作成できる様にしたいです。 VBAベタで教えていただきたくよろしくお願いします。 グラフの軸設定はなんとかなると思うので、根本のグラフ表示部分を作成する構成を教えていただけたらと思います ※ GANTグラフには工程間に細く青い線をしきりで入れてます。 これも実現化であれば教えていただきたく。 現状は実線をグラフへコピペで貼り付けています。

エクセルで納品書を作成しています。 エンター又はタブを押したときのカーソルの移動方向は右で、下記の入力項目のみセルの書式設定でロックを解除しシートの保護をしています。 入力項目の入力順は ・発送先名 ・発送先敬称 ・発送元名 ・商品名 ・型番 ・数量 ・備考 で、商品名から備考までは16行あるので繰り返しです。 商品名と型番にはマクロで入力規則（リスト）を設定しています。 内容を新規で入力するためのコマンドボタンを設置していて、このボタンを押すと入力項目の内容がクリアされカーソルは発送先名に移動するので、エンター又はタブを押すと上記の入力順にカーソルが移動します。 ですが、商品名から型番へカーソルを進め、カーソルが型番にある状態で新規入力のコマンドボタンを押すと、カーソルは発送先名に移動しますがエンター又はタブを押すと、新規入力のコマンドボタンを押す直前の型番のセルにカーソルが移動してしまいます。 何故直前のセルにカーソルが移動するのかも不明で理由があれば知りたいのですが、タイトルのとおりカーソルの移動順をリセットする方法があれば教えて頂きたいです。

office365 ①GANT_DATAシートに計画と実績のGANTデータ ②GANTシートにガントのグラフを表示 したいです。 ①を元に②のグラフを自動で作成したい ガント表示させる構成は kotei1からkotei6までの計画開始計画終了実績開始実績終了の日時データがあり、Serial1からSerial2,Serial3とGANT_DATAのA列でデータがなくなるまでのガントグラフを表示。 Serialは＋30行毎に計画と実績データをデータベースから持ってくる構成。 現状は、GANTシートにひな形としてのグラフを用意しておき、 データ範囲等を１ケ１ケグラフへ反映させてガントのグラフを表示させています。 下記のイメージです。 GANTシートでのSerial1のグラフは グラフデータの範囲：=GANT_DATA!$A$9:$C$20 系列１の系列値：=GANT_DATA!$B$9:$B$20 系列２の系列値：=GANT_DATA!$C$9:$C$20 軸ラベルの範囲：=GANT_DATA!$A$9:$A$20 GANTシートでのSerial2のグラフは グラフデータの範囲：=GANT_DATA!$A$39:$C$50 系列１の系列値：=GANT_DATA!$B$39:$B$50 系列２の系列値：=GANT_DATA!$C$39:$C$50 軸ラベルの範囲：=GANT_DATA!$A$39:$A$50 の様にガントシートのデータ範囲を設定しておき、 GANT_DATAへデータをデータベースから持ってきたらガントのグラフが表示できる構成にしているのですが、グラフの数が増えると上記データ範囲の設定をするのも大変なので、①のシートから②のガントグラフを自動で作成できる様にしたいです。 VBAベタで教えていただきたくよろしくお願いします。 グラフの軸設定はなんとかなると思うので、根本のグラフ表示部分を作成する構成を教えていただけたらと思います ※ GANTグラフには工程間に細く青い線をしきりで入れてます。 これも実現化であれば教えていただきたく。 現状は実線をグラフへコピペで貼り付けています。

エクセルで納品書を作成しています。 エンター又はタブを押したときのカーソルの移動方向は右で、下記の入力項目のみセルの書式設定でロックを解除しシートの保護をしています。 入力項目の入力順は ・発送先名 ・発送先敬称 ・発送元名 ・商品名 ・型番 ・数量 ・備考 で、商品名から備考までは16行あるので繰り返しです。 商品名と型番にはマクロで入力規則（リスト）を設定しています。 内容を新規で入力するためのコマンドボタンを設置していて、このボタンを押すと入力項目の内容がクリアされカーソルは発送先名に移動するので、エンター又はタブを押すと上記の入力順にカーソルが移動します。 ですが、商品名から型番へカーソルを進め、カーソルが型番にある状態で新規入力のコマンドボタンを押すと、カーソルは発送先名に移動しますがエンター又はタブを押すと、新規入力のコマンドボタンを押す直前の型番のセルにカーソルが移動してしまいます。 何故直前のセルにカーソルが移動するのかも不明で理由があれば知りたいのですが、タイトルのとおりカーソルの移動順をリセットする方法があれば教えて頂きたいです。

EXCEL(Home and Business2019・バージョン2111)ですが、 複数のファイル(8つとか…)を開いて、編集の履歴を戻すと、 以前編集した別のファイルに飛ぶことがあるため、 そうならず、今編集中のファイルだけの履歴に飛んでほしいのですが、 どうすれば出来ますか？ つまり、それぞれを独立させたいのですが、出来ますか？

EXCEL(Home and Business2019・バージョン2111)ですが、 複数のファイル(8つとか…)を開いて、編集の履歴を戻すと、 以前編集した別のファイルに飛ぶことがあるため、 そうならず、今編集中のファイルだけの履歴に飛んでほしいのですが、 どうすれば出来ますか？ つまり、それぞれを独立させたいのですが、出来ますか？

以下のプログラムでは、選択したシートのみマクロが動作しています。ネット検索で見よう見まねで作ったため何がまちがっているのかわかりません。ご教示いただけるとありがたいです。 ・月の予定表で利用者が休みの日に斜線を引くマクロ ・入力ミスを防ぐためシート保護をしている Sub すべてのシート() Dim s As Worksheet For Each s In Worksheets s.Select Call 斜線 Next End Sub Sub 斜線() ActiveSheet.Unprotect Password:="1234" For i = 1 To Range("E10").End(xlDown).Row Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlNone If Range("E10").Value = 0 Then Exit Sub If Cells(i, "E").Value = "日" And Range("BP9").Value = 0 Then Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlContinuous End If If Cells(i, "E").Value = "月" And Range("BP10").Value = 0 Then Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlContinuous End If If Cells(i, "E").Value = "火" And Range("BP11").Value = 0 Then Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlContinuous End If If Cells(i, "E").Value = "水" And Range("BP12").Value = 0 Then Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlContinuous End If If Cells(i, "E").Value = "木" And Range("BP13").Value = 0 Then Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlContinuous End If If Cells(i, "E").Value = "金" And Range("BP14").Value = 0 Then Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlContinuous End If If Cells(i, "E").Value = "土" And Range("BP15").Value = 0 Then Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlContinuous End If If Cells(i, "AY").Value = "祝日" And Range("BP16").Value = 0 Then Range("AS" & i).Borders(xlDiagonalUp).LineStyle = xlContinuous End If Next i ActiveSheet.Protect Password:="1234" End Sub

office365 ①GANT_DATAシートに計画と実績のGANTデータ ②GANTシートにガントのグラフを表示 したいです。 ①を元に②のグラフを自動で作成したい ガント表示させる構成は kotei1からkotei6までの計画開始計画終了実績開始実績終了の日時データがあり、Serial1からSerial2,Serial3とGANT_DATAのA列でデータがなくなるまでのガントグラフを表示。 Serialは＋30行毎に計画と実績データをデータベースから持ってくる構成。 現状は、GANTシートにひな形としてのグラフを用意しておき、 データ範囲等を１ケ１ケグラフへ反映させてガントのグラフを表示させています。 下記のイメージです。 GANTシートでのSerial1のグラフは グラフデータの範囲：=GANT_DATA!$A$9:$C$20 系列１の系列値：=GANT_DATA!$B$9:$B$20 系列２の系列値：=GANT_DATA!$C$9:$C$20 軸ラベルの範囲：=GANT_DATA!$A$9:$A$20 GANTシートでのSerial2のグラフは グラフデータの範囲：=GANT_DATA!$A$39:$C$50 系列１の系列値：=GANT_DATA!$B$39:$B$50 系列２の系列値：=GANT_DATA!$C$39:$C$50 軸ラベルの範囲：=GANT_DATA!$A$39:$A$50 の様にガントシートのデータ範囲を設定しておき、 GANT_DATAへデータをデータベースから持ってきたらガントのグラフが表示できる構成にしているのですが、グラフの数が増えると上記データ範囲の設定をするのも大変なので、①のシートから②のガントグラフを自動で作成できる様にしたいです。 VBAベタで教えていただきたくよろしくお願いします。 グラフの軸設定はなんとかなると思うので、根本のグラフ表示部分を作成する構成を教えていただけたらと思います ※ GANTグラフには工程間に細く青い線をしきりで入れてます。 これも実現化であれば教えていただきたく。 現状は実線をグラフへコピペで貼り付けています。

office365 ①GANT_DATAシートに計画と実績のGANTデータ ②GANTシートにガントのグラフを表示 したいです。 ①を元に②のグラフを自動で作成したい ガント表示させる構成は kotei1からkotei6までの計画開始計画終了実績開始実績終了の日時データがあり、Serial1からSerial2,Serial3とGANT_DATAのA列でデータがなくなるまでのガントグラフを表示。 Serialは＋30行毎に計画と実績データをデータベースから持ってくる構成。 現状は、GANTシートにひな形としてのグラフを用意しておき、 データ範囲等を１ケ１ケグラフへ反映させてガントのグラフを表示させています。 下記のイメージです。 GANTシートでのSerial1のグラフは グラフデータの範囲：=GANT_DATA!$A$9:$C$20 系列１の系列値：=GANT_DATA!$B$9:$B$20 系列２の系列値：=GANT_DATA!$C$9:$C$20 軸ラベルの範囲：=GANT_DATA!$A$9:$A$20 GANTシートでのSerial2のグラフは グラフデータの範囲：=GANT_DATA!$A$39:$C$50 系列１の系列値：=GANT_DATA!$B$39:$B$50 系列２の系列値：=GANT_DATA!$C$39:$C$50 軸ラベルの範囲：=GANT_DATA!$A$39:$A$50 の様にガントシートのデータ範囲を設定しておき、 GANT_DATAへデータをデータベースから持ってきたらガントのグラフが表示できる構成にしているのですが、グラフの数が増えると上記データ範囲の設定をするのも大変なので、①のシートから②のガントグラフを自動で作成できる様にしたいです。 VBAベタで教えていただきたくよろしくお願いします。 グラフの軸設定はなんとかなると思うので、根本のグラフ表示部分を作成する構成を教えていただけたらと思います ※ GANTグラフには工程間に細く青い線をしきりで入れてます。 これも実現化であれば教えていただきたく。 現状は実線をグラフへコピペで貼り付けています。

Excelで、自動機械のスケジュールを作りたいのですが、 添付図のように、D列に数量、E列にセット時間(ｈ)、G列にセット時間(min)、 H列に機械のサイクルタイム(min)、J列に機械のサイクルタイム(s) 合計の時間(繰り上げ)、塗りつぶす(１マス１h) 次のパーツは、上の段の次の列から塗りつぶす この形ではなくても何かいい方法教えてください 初心者なので宜しくお願い致します。

エクセルでカレンダーの作成方法が知りたいです。 日曜日始まりで、12/15～1/16、1/15～2/16…という表示で作成したいですが式がわかりません。 宜しくお願いします。

以前作成したコードを見直しています。 例えば、 A2 : 1. plat_form (5:50) A3: 2. cloud Two (4:12) の場合、マクロを実施すると B2: 0:05:50 B3: 0:04:12 と表示されました。 C列にはB列を秒([s].000）に変更後に文字列に変換した値が出るはずが 以下のように変な値になっています。 （------＞　の右の値は、C列をクリックしたときに数式バー表示される値です。 　　　C2をクリックすると数式バーに「0:05:46」と表示される。 　　　実際は、「0:05:50」のはずで350.000が正解のはずで誤差が出る？） C2: 345.600 -----> 0:05:46 C3: 259.200 -----> 0:04:19 これは、EXCELの計算誤差なのでしょうか？ その場合、 正常に表示されるコードを教えて下さい。 以下のコードを参照ください。------------------ Option Explicit Sub ①時間相当の抜き出し() Dim i As Double Dim LSN As Double '処理列の個数 LSN = Cells(Rows.Count, "A").End(xlUp).Row 'B列の文字列で最後から検索して検索文字より右側を抜き出す For i = 2 To LSN Cells(i, "B") = "0:" & カッコ内の文字列を取得する(Cells(i, "A"), "(", ")") Cells(i, "C").Value = Format(Cells(i, "B"), "[s].000") Next End Sub Function カッコ内の文字列を取得する( _ 元の文字列 As String, _ Optional 開くカッコ As String = "(", _ Optional 閉じカッコ As String = ")") _ As String Dim pos_a As Long ' 開くカッコの位置 Dim pos_z As Long ' 閉じカッコの位置 pos_a = InStr(1, 元の文字列, 開くカッコ) pos_z = InStr(pos_a + 1, 元の文字列, 閉じカッコ) カッコ内の文字列を取得する = _ Mid(元の文字列, pos_a + 1, pos_z - pos_a - 1) End Function

以前作成したコードを見直しています。 例えば、 A2 : 1. plat_form (5:50) A3: 2. cloud Two (4:12) の場合、マクロを実施すると B2: 0:05:50 B3: 0:04:12 と表示されました。 C列にはB列を秒([s].000）に変更後に文字列に変換した値が出るはずが 以下のように変な値になっています。 （------＞　の右の値は、C列をクリックしたときに数式バー表示される値です。 　　　C2をクリックすると数式バーに「0:05:46」と表示される。 　　　実際は、「0:05:50」のはずで350.000が正解のはずで誤差が出る？） C2: 345.600 -----> 0:05:46 C3: 259.200 -----> 0:04:19 これは、EXCELの計算誤差なのでしょうか？ その場合、 正常に表示されるコードを教えて下さい。 以下のコードを参照ください。------------------ Option Explicit Sub ①時間相当の抜き出し() Dim i As Double Dim LSN As Double '処理列の個数 LSN = Cells(Rows.Count, "A").End(xlUp).Row 'B列の文字列で最後から検索して検索文字より右側を抜き出す For i = 2 To LSN Cells(i, "B") = "0:" & カッコ内の文字列を取得する(Cells(i, "A"), "(", ")") Cells(i, "C").Value = Format(Cells(i, "B"), "[s].000") Next End Sub Function カッコ内の文字列を取得する( _ 元の文字列 As String, _ Optional 開くカッコ As String = "(", _ Optional 閉じカッコ As String = ")") _ As String Dim pos_a As Long ' 開くカッコの位置 Dim pos_z As Long ' 閉じカッコの位置 pos_a = InStr(1, 元の文字列, 開くカッコ) pos_z = InStr(pos_a + 1, 元の文字列, 閉じカッコ) カッコ内の文字列を取得する = _ Mid(元の文字列, pos_a + 1, pos_z - pos_a - 1) End Function

エクセルVBAのユーザーフォームのコンボボックスの入力と ファイルの保存で質問です。 エクセルVBAで ユーザーフォームのコンボボックスを使用して 1月から12月までを選択してもらい、 選択した月を コマンドボタン押した際に、 セルにその値を入力するような マクロを作成しようとしています。 またコンボボックスは標準で6月が表示されるようにしたいと思います。 ユーザーフォームのコードの一部です。 Private Sub UserForm_Initialize() Dim m As Integer For m = 1 To 12 UserForm1.ComboBox1.AddItem m Next ComboBox1.ListIndex = 6 Private Sub CommandButton1_Click() 'ユーザーフォームを閉じる Unload UserForm1 mold　 '↑フォームを閉じた後に実行される標準モジュールのマクロ名です End Sub 標準モジュールのコード 名称　「mold」 Sub mold() ActiveWorkbook.SaveAs _ Filename:="C:\_" & UserForm1.ComboBox1.Text & "月", _ FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close ThisWorkbook.Activate ' End Sub の様に作成して実行してみたのですが、 コンボボックスで11月を選択しても 6月のままのファイルになってしまいます。 どのようにしたら、 コンボボックスで選択した値を ファイル名として保存できるでしょうか？ 全部のコードを記載しますと 長くなってしまうと思い、 関連するコードを記載して質問しました。 分かりづらい所もあるかと思いますが よろしくお願いします。

エクセルVBAのユーザーフォームのコンボボックスの入力と ファイルの保存で質問です。 エクセルVBAで ユーザーフォームのコンボボックスを使用して 1月から12月までを選択してもらい、 選択した月を コマンドボタン押した際に、 セルにその値を入力するような マクロを作成しようとしています。 またコンボボックスは標準で6月が表示されるようにしたいと思います。 ユーザーフォームのコードの一部です。 Private Sub UserForm_Initialize() Dim m As Integer For m = 1 To 12 UserForm1.ComboBox1.AddItem m Next ComboBox1.ListIndex = 6 Private Sub CommandButton1_Click() 'ユーザーフォームを閉じる Unload UserForm1 mold　 '↑フォームを閉じた後に実行される標準モジュールのマクロ名です End Sub 標準モジュールのコード 名称　「mold」 Sub mold() ActiveWorkbook.SaveAs _ Filename:="C:\_" & UserForm1.ComboBox1.Text & "月", _ FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close ThisWorkbook.Activate ' End Sub の様に作成して実行してみたのですが、 コンボボックスで11月を選択しても 6月のままのファイルになってしまいます。 どのようにしたら、 コンボボックスで選択した値を ファイル名として保存できるでしょうか？ 全部のコードを記載しますと 長くなってしまうと思い、 関連するコードを記載して質問しました。 分かりづらい所もあるかと思いますが よろしくお願いします。

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

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

おはようございます。 度々申し訳ございません。 どうしても オートフィルターをVBAで操作させる方法が 見つからなかったため質問します。 やりたいこと A列セルにランダムで年月が入力されている状況にて ①今年の4月～9月までをオートフィルターで 　絞り込み ②今年の10月～来年の3月までをオートフィルターで 　絞り込み これをやりたいのですが 私がやってみても一月のみでしか選択できず 複数の月の選択のコードが書けませんでした。 すいませんが コードを記載していただけないでしょうか。 宜しくお願い致します。