HohoPapa の回答履歴

フォルダ内配下全てのExcelファイルのブックの保護を解除できるバッチやマクロをご存知の方ご教示していただきたくご質問させていただきました。 具体的には「関東」というフォルダ内に「東京」「神奈川」「埼玉」など複数のフォルダ内にExcelがあり関東フォルダ内でバッチを適応するとフォルダ配下全てのExcelファイルのブック保護を解除できる仕組みを探しています。 以上、よろしくお願いいたします。

VBA初心者です。 ①サブフォルダを含めた最新更新日のエクセルファイルを取得したいです。 ②そして、最新更新日のエクセルファイルは、そのエクセルが入っていたフォルダの名前に変更し、別フォルダへコピーしたいです。 お手数ですが、ご教授ください。

VBA初心者です。 ①サブフォルダを含めた最新更新日のエクセルファイルを取得したいです。 ②そして、最新更新日のエクセルファイルは、そのエクセルが入っていたフォルダの名前に変更し、別フォルダへコピーしたいです。 お手数ですが、ご教授ください。

ExcelVBAで、指定フォルダ内の全csvファイルのデータを開き 行列変換して一行毎に並べていきたいのです。 csvファイル数は、処理する時により、増減あります 似たような質問もあるようですが、いくつか見比べるとコマンドが異なってると、混乱してしまい、通しで回答いただけると、理解もできるかと質問させていただきます。 よろしくお願いいたします。 ■操作＆データ並べるファイル Sheet：menu　こちらに、指定フォルダなど入力、マクロ実行ボタン配置 Sheet：data　こちらに、1行づつ、csvファイルのデータを貼り付け ■csvデータ：1001.csv、1002.csv、・・・、1010.csv ■各csvデータ　の並び A列　B列　　C列 日付　04/01 時間　10:32 番号　1001 A1　　OK　　0.12 A2　　OK　　4.92 A3　　NG　　7.89 B1　　0.05 B2　　0.95 C1　　101.2 C2　　95.4 ・　　・ ーーーSheet：data の貼り付け後の並びーーーーーーーーーーーーーー 1001　04/01　10:32　0.12　4.92　7.89　0.05　0.95　101.2　95.4 ・ 1002　04/01　10:45　・　　・　　・　　・　　・　　・　　・　・　 1003　　・　　・　　・　　・　　・　　・　　・　　・　　・　・ ・ ・ 1010　　・　　・　　・　　・　　・　　・　　・　　・　　・　・ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー csvのデータは、3列で100行ほどありますが、 必要なデータの場所は、列が変わったりします

A列に１セルごとに、改行のある文章があります。 ーーー 例：A１ さいたさいたチューリップの花が ならんだならんだ 赤白黄色 どの花みてもきれいだな ーーー この改行のある文章を、B1に『指定したタグ』を入れて記入させたいです。 ーーー 例：A1→B１ さいたさいたチューリップの花が\r\n\r\nならんだならんだ\r\n赤白黄色\r\n\r\nどの花みてもきれいだな ーーー ※なぜ、\r\nかというと、 botbirdというサイトで、TwitterのBOTを作るためです。 このように改行のあるA1の文章を、 B1で指定したタグを入れて記入させるには、どのような式でできますか？ EXCEL2016です。 よろしくお願いいたします。

いつもお世話になっております。 最近データ処理で何度も表題にある処理をしているのですが、何とか簡単にできないかと質問させて頂きます。 決まった書式のデータシートから、指定した行から指定した行までの間で指定した行数置きに別のシートに抜出したいのですが。 例えば、18行目から1500行目迄の間で、3行おきに抽出したい、というような感じです。 現在は、条件付き書式で＝MOD（ROW（）,３）＝１というような式でセルに着色して、色フィルタで不要な行を削除してそれを別シートにコピペして・・・ で何とか処理しています。 尚、贅沢を言えば、シート上の決まったセル（A1、B1、C1・・）に上記の条件（開始行、最終行、行間隔）を入力して、「新規Sheet」に抽出出来れば最高です。 また、例えば手作業で簡単に出来る作業（空白行を削除したシートで・・）等はその旨の条件付きで全くOKですのでよろしくお願いします。

いつもお世話になっております。 最近データ処理で何度も表題にある処理をしているのですが、何とか簡単にできないかと質問させて頂きます。 決まった書式のデータシートから、指定した行から指定した行までの間で指定した行数置きに別のシートに抜出したいのですが。 例えば、18行目から1500行目迄の間で、3行おきに抽出したい、というような感じです。 現在は、条件付き書式で＝MOD（ROW（）,３）＝１というような式でセルに着色して、色フィルタで不要な行を削除してそれを別シートにコピペして・・・ で何とか処理しています。 尚、贅沢を言えば、シート上の決まったセル（A1、B1、C1・・）に上記の条件（開始行、最終行、行間隔）を入力して、「新規Sheet」に抽出出来れば最高です。 また、例えば手作業で簡単に出来る作業（空白行を削除したシートで・・）等はその旨の条件付きで全くOKですのでよろしくお願いします。

先日ここで、下記の質問をさせてもらって下記のご回答いただいた者です。 ご回答では、全部のデータが対象でこれでも良いかと締め切ったのですがやはり8:00-20:00までのデータ・・・でないと作業時間外の温度となってしまうので意味がなくなることが分かりましたので再度 質問させていただきます。 ＜前回の質問＞ エクセルの表で添付の左側の表のような、2つの部屋の温湿度が30分毎に一覧表になったシートがあります。 A列に日付、C列に部屋No①の温度、D列に部屋No①の湿度、E列、F列には部屋No②の温度、湿度が入っています。 この表から各日付の8:00から20:00までの間（可変なら非常にありがたい）の最低温度と最高温度を、右の表のように別の一覧表に抜きたいのですが。。。。 ＜ご回答＞ G6: =INT(A5) H6: =INDEX($A:$A,MATCH($G6&I6,INDEX(INT($A$1:$A$8788)&C$1:C$8788,),0)) I6: =MINIFS(C:C,$A:$A,">="&$G6,$A:$A,"<"&$G6+1) J6: =INDEX($A:$A,MATCH($G6&K6,INDEX(INT($A$1:$A$8788)&C$1:C$8788,),0)) K6: =MAXIFS(C:C,$A:$A,">="&$G6,$A:$A,"<"&$G6+1) L6: =INDEX($A:$A,MATCH($G6&M6,INDEX(INT($A$1:$A$8788)&D$1:D$8788,),0)) M6: =MINIFS(D:D,$A:$A,">="&$G6,$A:$A,"<"&$G6+1) N6: =INDEX($A:$A,MATCH($G6&O6,INDEX(INT($A$1:$A$8788)&D$1:D$8788,),0)) O6: =MAXIFS(D:D,$A:$A,">="&$G6,$A:$A,"<"&$G6+1) P6: =INDEX($A:$A,MATCH($G6&Q6,INDEX(INT($A$1:$A$8788)&E$1:E$8788,),0)) Q6: =MINIFS(E:E,$A:$A,">="&$G6,$A:$A,"<"&$G6+1) R6: =INDEX($A:$A,MATCH($G6&S6,INDEX(INT($A$1:$A$8788)&E$1:E$8788,),0)) S6: =MAXIFS(E:E,$A:$A,">="&$G6,$A:$A,"<"&$G6+1) T6: =INDEX($A:$A,MATCH($G6&U6,INDEX(INT($A$1:$A$8788)&F$1:F$8788,),0)) U6: =MINIFS(F:F,$A:$A,">="&$G6,$A:$A,"<"&$G6+1) V6: =INDEX($A:$A,MATCH($G6&W6,INDEX(INT($A$1:$A$8788)&F$1:F$8788,),0)) W6: =MAXIFS(F:F,$A:$A,">="&$G6,$A:$A,"<"&$G6+1) G7: =G6+1 H6:W6 を７行目へコピペ。 G7:W7 を纏めて下へコピペ。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ご回答に従ってデータを処理し始めたのですが、やはり8:00～20:00までのデータでないと意味がないことが分かりました。

言葉でうまく説明できないのですがファイルにあるように、 左側の見積書の部分を固定し、右側の商品名リストの空白部分を非表示させたいです。 現在、テーブルを使用している商品名リストの空白のチェックをはずすと、左側の見積書の部分も消えてしまいます。 商品名リストはテーブル使用じゃなくてもいいのですが、金額部分に金額が表示されているものは、表示したいです。 説明が上手く出来ずすみません。 何か他にいい方法があれば教えて頂けたらと思い質問しました。 よろしくお願いします。

参照するセルを指定する方法を教えていただきたいです。 現在の私の知識ですとボタン一つずつに参照セルを一つずつ手打ちするしかなくて。想定としては2000行に2000個ぐらいを想定しております。 フォームコントロールのボタンにマクロを登録して添付画像のように各行に一つづつ配置したいと考えております。 ボタンに登録するマクロは以下のようなもので、ボタンを配置した行と同じ列の特定セルを画像左側のカレンダーにペーストするといったものです。 Sub ボタン_Click() ' セルを選択してコピー Range("AE2").Copy ActiveCell.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False 'コピー状態が残るのでキャンセル End Sub 皆様のお力を貸していただけると幸いです。 よろしくお願いします。 ※エクセルのバージョンはHome and Business 2019 です。

参照するセルを指定する方法を教えていただきたいです。 現在の私の知識ですとボタン一つずつに参照セルを一つずつ手打ちするしかなくて。想定としては2000行に2000個ぐらいを想定しております。 フォームコントロールのボタンにマクロを登録して添付画像のように各行に一つづつ配置したいと考えております。 ボタンに登録するマクロは以下のようなもので、ボタンを配置した行と同じ列の特定セルを画像左側のカレンダーにペーストするといったものです。 Sub ボタン_Click() ' セルを選択してコピー Range("AE2").Copy ActiveCell.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False 'コピー状態が残るのでキャンセル End Sub 皆様のお力を貸していただけると幸いです。 よろしくお願いします。 ※エクセルのバージョンはHome and Business 2019 です。

次のような場合の関数をご教示頂けないでしょうか？ ・A列には、時々連続する通し番号が入っています。 例　1 2 3 4 4 4 5 6 7 7 7 7 7 8 ・B列には、A列が1個の数字の行には 0 が、複数の数字の行には 1 が入っています。 例　0 0 0 1 1 1 0 0 1 1 1 1 1 0 ・C列に、関数で次のように自動入力したいのです。 　B列が 0 なら 0 　B列が 1 のグループの先頭行には 1 　B列が 1 のグループの途中の行には 2 　B列が 1 のグループの最後の行には 3 例　0 0 0 1 2 3 0 0 1 2 2 2 3 0 どういう関数になりますでしょうか？　よろしくお願い致します。

次のような場合の関数をご教示頂けないでしょうか？ ・A列には、時々連続する通し番号が入っています。 例　1 2 3 4 4 4 5 6 7 7 7 7 7 8 ・B列には、A列が1個の数字の行には 0 が、複数の数字の行には 1 が入っています。 例　0 0 0 1 1 1 0 0 1 1 1 1 1 0 ・C列に、関数で次のように自動入力したいのです。 　B列が 0 なら 0 　B列が 1 のグループの先頭行には 1 　B列が 1 のグループの途中の行には 2 　B列が 1 のグループの最後の行には 3 例　0 0 0 1 2 3 0 0 1 2 2 2 3 0 どういう関数になりますでしょうか？　よろしくお願い致します。

次のような場合の関数をご教示頂けないでしょうか？ ・A列には、時々連続する通し番号が入っています。 例　1 2 3 4 4 4 5 6 7 7 7 7 7 8 ・B列には、A列が1個の数字の行には 0 が、複数の数字の行には 1 が入っています。 例　0 0 0 1 1 1 0 0 1 1 1 1 1 0 ・C列に、関数で次のように自動入力したいのです。 　B列が 0 なら 0 　B列が 1 のグループの先頭行には 1 　B列が 1 のグループの途中の行には 2 　B列が 1 のグループの最後の行には 3 例　0 0 0 1 2 3 0 0 1 2 2 2 3 0 どういう関数になりますでしょうか？　よろしくお願い致します。

次のような場合の関数をご教示頂けないでしょうか？ ・A列には、時々連続する通し番号が入っています。 例　1 2 3 4 4 4 5 6 7 7 7 7 7 8 ・B列には、A列が1個の数字の行には 0 が、複数の数字の行には 1 が入っています。 例　0 0 0 1 1 1 0 0 1 1 1 1 1 0 ・C列に、関数で次のように自動入力したいのです。 　B列が 0 なら 0 　B列が 1 のグループの先頭行には 1 　B列が 1 のグループの途中の行には 2 　B列が 1 のグループの最後の行には 3 例　0 0 0 1 2 3 0 0 1 2 2 2 3 0 どういう関数になりますでしょうか？　よろしくお願い致します。

エクセルでA4用紙1枚の帳票のひな型を作成し、紙にプリントしようと思います。 ページ設定で横1×縦1、ページ中央、垂直水平にチェックしています。 常に同じパソコンで印刷するのであれば、用紙がずれない限り常に同じ位置に文字が印字されます。しかし、そのひな型のエクセルをほかの人に配布し、入力して印刷してもらうと、パソコンやプリンターによって文字の位置がずれてしまうことが起こります。多分、プリンターの余白が人によって異なるため、A4用紙1枚に収めると横1×縦1の縮小倍率が変わってしまうのではないかと想像しますが、この想像は正しいでしょうか？ もし正しければ、初めから余白の幅を大きめに取っておけばどのプリンターでもプリント可能な範囲に収まるので横1×縦1の縮小倍率は変わらず、用紙がずれない限り常に同じ位置に文字が印字されると考えてよろしいのでしょうか？ご教示ください。

エクセルでA4用紙1枚の帳票のひな型を作成し、紙にプリントしようと思います。 ページ設定で横1×縦1、ページ中央、垂直水平にチェックしています。 常に同じパソコンで印刷するのであれば、用紙がずれない限り常に同じ位置に文字が印字されます。しかし、そのひな型のエクセルをほかの人に配布し、入力して印刷してもらうと、パソコンやプリンターによって文字の位置がずれてしまうことが起こります。多分、プリンターの余白が人によって異なるため、A4用紙1枚に収めると横1×縦1の縮小倍率が変わってしまうのではないかと想像しますが、この想像は正しいでしょうか？ もし正しければ、初めから余白の幅を大きめに取っておけばどのプリンターでもプリント可能な範囲に収まるので横1×縦1の縮小倍率は変わらず、用紙がずれない限り常に同じ位置に文字が印字されると考えてよろしいのでしょうか？ご教示ください。

エクセルでA4用紙1枚の帳票のひな型を作成し、紙にプリントしようと思います。 ページ設定で横1×縦1、ページ中央、垂直水平にチェックしています。 常に同じパソコンで印刷するのであれば、用紙がずれない限り常に同じ位置に文字が印字されます。しかし、そのひな型のエクセルをほかの人に配布し、入力して印刷してもらうと、パソコンやプリンターによって文字の位置がずれてしまうことが起こります。多分、プリンターの余白が人によって異なるため、A4用紙1枚に収めると横1×縦1の縮小倍率が変わってしまうのではないかと想像しますが、この想像は正しいでしょうか？ もし正しければ、初めから余白の幅を大きめに取っておけばどのプリンターでもプリント可能な範囲に収まるので横1×縦1の縮小倍率は変わらず、用紙がずれない限り常に同じ位置に文字が印字されると考えてよろしいのでしょうか？ご教示ください。

エクセルでA4用紙1枚の帳票のひな型を作成し、紙にプリントしようと思います。 ページ設定で横1×縦1、ページ中央、垂直水平にチェックしています。 常に同じパソコンで印刷するのであれば、用紙がずれない限り常に同じ位置に文字が印字されます。しかし、そのひな型のエクセルをほかの人に配布し、入力して印刷してもらうと、パソコンやプリンターによって文字の位置がずれてしまうことが起こります。多分、プリンターの余白が人によって異なるため、A4用紙1枚に収めると横1×縦1の縮小倍率が変わってしまうのではないかと想像しますが、この想像は正しいでしょうか？ もし正しければ、初めから余白の幅を大きめに取っておけばどのプリンターでもプリント可能な範囲に収まるので横1×縦1の縮小倍率は変わらず、用紙がずれない限り常に同じ位置に文字が印字されると考えてよろしいのでしょうか？ご教示ください。

Excelのrounddown関数について教えてください。 出勤表上で、所定勤務時間（8時間）との差を 小数点以下第3位を切り捨てて、10進法で記載したいのですが うまくいきません。 セルA（始業）→10：15 セルB（終業）→18：30 セルC（休憩）→1：00 セルD（勤務時間）→（数式：＝B-A-C）7：15 としており、セルEにセルDで求めた値と所定労働時間の8時間との 差を10進法表記で、小数点以下第3位を切り捨てて入力したく 以下の数式を入れています。 =rounddown(8-(D*24),2) 上記の場合、0.75が解答として正しいかと思いますが、 0.74という解答が返ってきます。 セルDの値を数式ではなく、直接入力すると 正しい値0.75が返ってくるので、セルDを修正する必要が あるのかなと思うのですが、どこを修正すればいいかわからず 途方に暮れています。 初歩的なところで申し訳ありませんが、お知恵を拝借できれば幸いです。 よろしくお願いいたします。