watabe007 の回答履歴

EXCELを使用しています。 Sheet1のA1から下の行に、sheet2のA1から下のセルに文字列が入力されていたら入力されているセルの内容を行ごとに表示しセルが空欄になったらsheet3のA1から下のセルに文字列が入力されていたらその内容をsheet１にsheet２の文字列の続きに表示させるにはどうしたらいいのでしょうか？

エクセルのＡ1：Ａ5の範囲でセルをダブルクリックすると（色なし→赤→青→黄色）に変化する方法を教えて下さい。

請求書が10枚来ました。請求額の合計が、兄弟でほぼ同額になるように二人で分けて支払いたいと考えています。 EXCELで方法はないものでしょうか？

エクセルA列に数式を入れ 例えばB列に日付を入れるとA列のステイタスが申請中などと分かるように計算式を入れたいのですが、IF関数を使ってもうまくできません。 A列：ステイタス（1.申請中～4.完了） B列：受付日　→　A列：1.申請中 C列：申請日　→　A列：2.決裁待ち D列：決裁日　→　A列：3.承認待ち E列：契約　→　A列：4.完了 よろしくお願いいたします。

VBAプロジェクトのパスワードを解除した後VBAプロジェクトにあるモジュールを削除するというコードを書きました。 解除まではできていますが、モジュールを解除するコードにくると保護されているというエラーが出て進めません。 いくつかのことを確認しましたが、解決に至らなかったので、ご教示いただけないでしょうか。 確認した内容は以下のとおりです。 (1)パスワード解除後にブレークポイントを設定して、VBAプロジェクトを触ってみましたが、モジュールは展開されず、パスワードも要求されません。 (2)パスワード解除後プログラムを強制終了して、解除したエクセルをダブルクリックして開き、VBAプロジェクトを触ると、パスワードは解除されていて、モジュールも展開されました。 (3)パスワード解除とモジュール削除を別々のプロシージャにして、パスワード解除をしてプロシージャを終わらせて、改めてモジュール削除のプロシージャを実行してみましたが、VBAプロジェクトが保護されていますと出て、モジュール削除のコードが実行できない。 VBAで処理するのは不可能であるなら、PowerShellとの組み合わせなどでできるようになるのでしょうか？ とりあえずは、xlsmをxlsxで保存し直すことでモジュールを削除するという目的は達成しておりますが、上記の方法でもやってみたいのでご教示お願いします。

A1セルに2019/3/24　田中 A2セルに2019/3/24　鈴木 A3セルに2019/3/25　山田 （日付のあとの文字はAlt＋Enterで改行されています） という入力がされているとき 最新の日付のA3セルを A4セルに表示するにはどうすればいいでしょうか？ 日付のみの検索方法ならネットにあったのですが 文字が含まれている場合がどうしたらよいかわかりません。 ちなみにA1からA3セルの日付がすべて同じなら A1セルをA4セルに表示で大丈夫です。 A4セルに関数式などを入れておき取得できるのであれば その方法でもいいです。 よろしくお願いします。

A1セルに2019/3/24　田中 A2セルに2019/3/24　鈴木 A3セルに2019/3/25　山田 （日付のあとの文字はAlt＋Enterで改行されています） という入力がされているとき 最新の日付のA3セルを A4セルに表示するにはどうすればいいでしょうか？ 日付のみの検索方法ならネットにあったのですが 文字が含まれている場合がどうしたらよいかわかりません。 ちなみにA1からA3セルの日付がすべて同じなら A1セルをA4セルに表示で大丈夫です。 A4セルに関数式などを入れておき取得できるのであれば その方法でもいいです。 よろしくお願いします。

Excelを使用してシフトを作成しています。 下に下線（アンダーバー）が引いてある文字の合計をカウントしたいです。 また出来るのであれば、「A」と「B」の2パターンにアンダーバーを引いておりそれぞれの個数を数えることが出来ると嬉しいです。 上記内容で使えるのはありますか？

以下の文字列があるとします。 ABCDEFG12345 これを以下に変換したいです。 ABCDEFG1.2.3.4.5 プログラムのご教示頂きたいです。

office2010 WORKシートのI4802セルに2019/08/28という日付データが登録されています J2セルに2019/1/1の日付を設定し、その右セルに＋１日ずつ設定するマクロ（カレンダ日付イメージ）で、上記WORKシートのI4802セルまでの日付を設定したい。 下記がそのマクロ Sub test() Rows("1:2").Select Selection.ClearContents Range("J2") = "2019/1/1" Dim i As Long Dim day As String day = Worksheets("WORK").Range("I4802").Value i = 11 Do Until Worksheets("Sheet2").Cells(2, i + 1) = day Worksheets("Sheet2").Cells(2, i) = Worksheets("Sheet2").Cells(2, i - 1) + 1 i = i + 1 Loop End Sub 上記を実行すると、ずっと計算して、2063/10/30までいって実行時エラーで停止します。 2019/08/28で終了しないのは何故でしょう？ 日付判定になってると思うのですが、原因分からず。 また、その修正方法も教えて頂きたく

961awaawaです。 ＞シートモジュールに貼り付けてお試しください。 Private Sub Worksheet_Change(ByVal Target As Range) With Target If Intersect(.Cells, Range("L:M")) Is Nothing Then Exit Sub If .Row < 3 Or .Value = "" Then Exit Sub If Not IsNumeric(.Value) Then Exit Sub .Offset(, 3).Value = Cells(.Row, .Value).Value End With End Sub というソースを作って頂いたのですが、既に各sheetにprivate sub からなるソースが入ってましてコンパイルエラー(名前が適切ではありません Worksheet_Change)となります。他に方法等頂けましたらありがたいです。

961awaawaです。 ＞シートモジュールに貼り付けてお試しください。 Private Sub Worksheet_Change(ByVal Target As Range) With Target If Intersect(.Cells, Range("L:M")) Is Nothing Then Exit Sub If .Row < 3 Or .Value = "" Then Exit Sub If Not IsNumeric(.Value) Then Exit Sub .Offset(, 3).Value = Cells(.Row, .Value).Value End With End Sub というソースを作って頂いたのですが、既に各sheetにprivate sub からなるソースが入ってましてコンパイルエラー(名前が適切ではありません Worksheet_Change)となります。他に方法等頂けましたらありがたいです。

961awaawaです。 ＞シートモジュールに貼り付けてお試しください。 Private Sub Worksheet_Change(ByVal Target As Range) With Target If Intersect(.Cells, Range("L:M")) Is Nothing Then Exit Sub If .Row < 3 Or .Value = "" Then Exit Sub If Not IsNumeric(.Value) Then Exit Sub .Offset(, 3).Value = Cells(.Row, .Value).Value End With End Sub というソースを作って頂いたのですが、既に各sheetにprivate sub からなるソースが入ってましてコンパイルエラー(名前が適切ではありません Worksheet_Change)となります。他に方法等頂けましたらありがたいです。

シート名が 「aaa」 「bbb」 「ccc」 「ddd」 という４つのシートがあります。 シート「aaa」のD4セルに入力した値（シート名）に応じて、 （上記で設定したシート）のF7セルに "=SUM(F5:F6)"という数式を入力したいのですが、 おわかりの方がいらっしゃいましたらご教授いただければ幸いです。 例） シート「aaa」のD4セルに「ccc」と入力して実行すると、 シート「ccc」のF7セルに「=SUM(F5:F6)」の数式を入力するマクロを作成したい。 （シート「aaa」のD4セルに「ddd」と入力して実行すると、 同様に、シート「ddd」のF7セルに数式をマクロで入力したい）

ア、イ、ウ、エ、オ、カ、キ、ク、ケ、コの記号のいずれかがセルA3～J3の各セルにダブルことなく適当に入ってます。L3とM3に1～10までのどれかを入れて、 (1)L3に1が入ると、A3に入った記号がO3にコピーされ (2)M3に5が入ると、A3から5番目のE3に入った記号がP3にコピーされる という仕組みにしたいです。 今は例えで3行目を使いましたが、4行目、5行目.....とできるようにしたいです。 誰かよろしくお願いいたします。

シート名が 「aaa」 「bbb」 「ccc」 「ddd」 という４つのシートがあります。 シート「aaa」のD4セルに入力した値（シート名）に応じて、 （上記で設定したシート）のF7セルに "=SUM(F5:F6)"という数式を入力したいのですが、 おわかりの方がいらっしゃいましたらご教授いただければ幸いです。 例） シート「aaa」のD4セルに「ccc」と入力して実行すると、 シート「ccc」のF7セルに「=SUM(F5:F6)」の数式を入力するマクロを作成したい。 （シート「aaa」のD4セルに「ddd」と入力して実行すると、 同様に、シート「ddd」のF7セルに数式をマクロで入力したい）

宜しくお願いいたします アクティブになっていない同じファイルにある WORKBOOKを開く構文として sub 新規トレーニングへ() Workbooks Open Filename:="F:新規トレーニング.xlsm" Worsheets("新規").select End Sub Private ub CommandButton1_cilck() 新規トレーニングへ End Sub をＵＳＢにＦドライブに作成して問題なく動いています そこで他のＵＳＢ　Ｈドライブへコピー（移動）して（構文のＦをＨへ書き込み訂正）ＨドライブのＵＳＢでは問題なく動いています ここが質問です ところがＰＣのＣドライブのドキュメントへ（ＦドライブＵＳＢを作ったＰＣ）へコピー（移動）すると（同様に構文のＦをＣへ書き込み訂正） Workbooks Open Filename:="F:新規トレーニング.xlsm" がデバッグで黄色い色が付き動かないのです。 ＵＳＢ（Ｆドライブ）からＵＳＢ（Ｈドライブ）は問題なし ＵＳＢ（Ｆドライブ）からＰＣ（Ｃドライブ）デバッグで動かない 何故こうなるのでしょうか、ご教授お願いいたします。

タイトル行A1:D1、データの中身は、A2:D11の全く同じ様式のシートが複数あります。シート名はバラバラです。 全シートの空白ではない行を全て別の集計シートに抽出したいです。 空白行は抽出しません。 これを関数でどのようにつくればよいのでしょうか？ 関数で無理ならVBAでお願いします。

宜しくお願いいたします。 すいません式分からず丸投げでお願いです。 区分選択を作っています A1に答えを求めるブランクセル A2に小型、A3に中型、A3に大型が入っています A2をクリックしたときにA1に小型と表示され 小型が表示されている状態でA3をクリックすると 中型に変わるようにしたいのです。 関数ですと誰かがデリートをクリックして消して しまうのでVBAでお願いします。 何卒よろしくお願いします

バージョンは「EXCEL 2013」とです。 普段、EXCELはほとんど触りません。 以下の画像のように17行目から20行目まで２列にわたりセルの枠線が表示されていません。 セルの結合はしていません。 枠線が表示されていない範囲や、各々のセルを選択し、メニューバーの「表示」→「表示」の部分を見ても「枠線」にチェックが入っています。 ためしにチェックをはずして再度チェックを入れなおしてもダメでした。 セルの枠線をデフォルト通り表示させるにはどうしたら良いのでしょうか？ よろしくお願いいたします。