HohoPapa の回答履歴

こんにちわ。 いつもお世話になっております。 さて、毎度VBAでお世話になっており、表題については指定のシートのみxlsx、pdfファイルで保存するような場合のコードは都度教えていただいて都度うまく行っていたのですが、フォルダやファイルの種類を変えるとうまく行かない場合が多く、試行錯誤で何とかしていたので須が、今回どうしてもあれとこれとを組み合わせてもうまく行かず。 今回の目的で使えそうなpdfでの保存コードは何故かコード中の「pdf」を「xlms」に変更してもpdfファイルで保存されてしまうのは理解できず。 そこでNETで調べたら当方にも分かり易い汎用の下記のサンプルコードがあったのですが ＞ 'ドライブ等の名前を変数に ＞ hozonPath = "K:\" のドライブの書式 ”K:\” が良くわかりません。 具体的に "\\Srv01\業務g\応援チーム\MyPicture" このフォルダに保存したいのですが、どう記載するのか教えてください。 ファイル名にしたいセルは単にA1、A2というように単にセルの列行の記載すればいいのですよね? あまりに初歩的過ぎて質問の意味が分かりにくいでしょうか? Sub hozon() Dim wb As Workbook 'ワークブック Dim ws As Worksheet 'ワークシート Dim hozonPath As String 'ドライブ等のパス用 Dim FolName As String 'A1セル用のフォルダ名用 Dim FilName As String 'A2セル用のファイル名用 '自ワークブック Set wb = ThisWorkbook 'アクティブシート Set ws = ActiveSheet 'ドライブ等の名前を変数に hozonPath = "K:\" 'A1セルの値を変数に FolName = ws.Range("A1").Value 'A2セルの値を変数に FilName = ws.Range("A2").Value wb.SaveAs Filename:=hozonPath & FolName & "\" & FilName End Sub

こんにちわ。 いつもお世話になっております。 さて、毎度VBAでお世話になっており、表題については指定のシートのみxlsx、pdfファイルで保存するような場合のコードは都度教えていただいて都度うまく行っていたのですが、フォルダやファイルの種類を変えるとうまく行かない場合が多く、試行錯誤で何とかしていたので須が、今回どうしてもあれとこれとを組み合わせてもうまく行かず。 今回の目的で使えそうなpdfでの保存コードは何故かコード中の「pdf」を「xlms」に変更してもpdfファイルで保存されてしまうのは理解できず。 そこでNETで調べたら当方にも分かり易い汎用の下記のサンプルコードがあったのですが ＞ 'ドライブ等の名前を変数に ＞ hozonPath = "K:\" のドライブの書式 ”K:\” が良くわかりません。 具体的に "\\Srv01\業務g\応援チーム\MyPicture" このフォルダに保存したいのですが、どう記載するのか教えてください。 ファイル名にしたいセルは単にA1、A2というように単にセルの列行の記載すればいいのですよね? あまりに初歩的過ぎて質問の意味が分かりにくいでしょうか? Sub hozon() Dim wb As Workbook 'ワークブック Dim ws As Worksheet 'ワークシート Dim hozonPath As String 'ドライブ等のパス用 Dim FolName As String 'A1セル用のフォルダ名用 Dim FilName As String 'A2セル用のファイル名用 '自ワークブック Set wb = ThisWorkbook 'アクティブシート Set ws = ActiveSheet 'ドライブ等の名前を変数に hozonPath = "K:\" 'A1セルの値を変数に FolName = ws.Range("A1").Value 'A2セルの値を変数に FilName = ws.Range("A2").Value wb.SaveAs Filename:=hozonPath & FolName & "\" & FilName End Sub

こんにちわ。 いつもお世話になっております。 さて、毎度VBAでお世話になっており、表題については指定のシートのみxlsx、pdfファイルで保存するような場合のコードは都度教えていただいて都度うまく行っていたのですが、フォルダやファイルの種類を変えるとうまく行かない場合が多く、試行錯誤で何とかしていたので須が、今回どうしてもあれとこれとを組み合わせてもうまく行かず。 今回の目的で使えそうなpdfでの保存コードは何故かコード中の「pdf」を「xlms」に変更してもpdfファイルで保存されてしまうのは理解できず。 そこでNETで調べたら当方にも分かり易い汎用の下記のサンプルコードがあったのですが ＞ 'ドライブ等の名前を変数に ＞ hozonPath = "K:\" のドライブの書式 ”K:\” が良くわかりません。 具体的に "\\Srv01\業務g\応援チーム\MyPicture" このフォルダに保存したいのですが、どう記載するのか教えてください。 ファイル名にしたいセルは単にA1、A2というように単にセルの列行の記載すればいいのですよね? あまりに初歩的過ぎて質問の意味が分かりにくいでしょうか? Sub hozon() Dim wb As Workbook 'ワークブック Dim ws As Worksheet 'ワークシート Dim hozonPath As String 'ドライブ等のパス用 Dim FolName As String 'A1セル用のフォルダ名用 Dim FilName As String 'A2セル用のファイル名用 '自ワークブック Set wb = ThisWorkbook 'アクティブシート Set ws = ActiveSheet 'ドライブ等の名前を変数に hozonPath = "K:\" 'A1セルの値を変数に FolName = ws.Range("A1").Value 'A2セルの値を変数に FilName = ws.Range("A2").Value wb.SaveAs Filename:=hozonPath & FolName & "\" & FilName End Sub

こんにちわ。 いつもお世話になっております。 さて、毎度VBAでお世話になっており、表題については指定のシートのみxlsx、pdfファイルで保存するような場合のコードは都度教えていただいて都度うまく行っていたのですが、フォルダやファイルの種類を変えるとうまく行かない場合が多く、試行錯誤で何とかしていたので須が、今回どうしてもあれとこれとを組み合わせてもうまく行かず。 今回の目的で使えそうなpdfでの保存コードは何故かコード中の「pdf」を「xlms」に変更してもpdfファイルで保存されてしまうのは理解できず。 そこでNETで調べたら当方にも分かり易い汎用の下記のサンプルコードがあったのですが ＞ 'ドライブ等の名前を変数に ＞ hozonPath = "K:\" のドライブの書式 ”K:\” が良くわかりません。 具体的に "\\Srv01\業務g\応援チーム\MyPicture" このフォルダに保存したいのですが、どう記載するのか教えてください。 ファイル名にしたいセルは単にA1、A2というように単にセルの列行の記載すればいいのですよね? あまりに初歩的過ぎて質問の意味が分かりにくいでしょうか? Sub hozon() Dim wb As Workbook 'ワークブック Dim ws As Worksheet 'ワークシート Dim hozonPath As String 'ドライブ等のパス用 Dim FolName As String 'A1セル用のフォルダ名用 Dim FilName As String 'A2セル用のファイル名用 '自ワークブック Set wb = ThisWorkbook 'アクティブシート Set ws = ActiveSheet 'ドライブ等の名前を変数に hozonPath = "K:\" 'A1セルの値を変数に FolName = ws.Range("A1").Value 'A2セルの値を変数に FilName = ws.Range("A2").Value wb.SaveAs Filename:=hozonPath & FolName & "\" & FilName End Sub

こんにちわ。 いつもお世話になっております。 さて、毎度VBAでお世話になっており、表題については指定のシートのみxlsx、pdfファイルで保存するような場合のコードは都度教えていただいて都度うまく行っていたのですが、フォルダやファイルの種類を変えるとうまく行かない場合が多く、試行錯誤で何とかしていたので須が、今回どうしてもあれとこれとを組み合わせてもうまく行かず。 今回の目的で使えそうなpdfでの保存コードは何故かコード中の「pdf」を「xlms」に変更してもpdfファイルで保存されてしまうのは理解できず。 そこでNETで調べたら当方にも分かり易い汎用の下記のサンプルコードがあったのですが ＞ 'ドライブ等の名前を変数に ＞ hozonPath = "K:\" のドライブの書式 ”K:\” が良くわかりません。 具体的に "\\Srv01\業務g\応援チーム\MyPicture" このフォルダに保存したいのですが、どう記載するのか教えてください。 ファイル名にしたいセルは単にA1、A2というように単にセルの列行の記載すればいいのですよね? あまりに初歩的過ぎて質問の意味が分かりにくいでしょうか? Sub hozon() Dim wb As Workbook 'ワークブック Dim ws As Worksheet 'ワークシート Dim hozonPath As String 'ドライブ等のパス用 Dim FolName As String 'A1セル用のフォルダ名用 Dim FilName As String 'A2セル用のファイル名用 '自ワークブック Set wb = ThisWorkbook 'アクティブシート Set ws = ActiveSheet 'ドライブ等の名前を変数に hozonPath = "K:\" 'A1セルの値を変数に FolName = ws.Range("A1").Value 'A2セルの値を変数に FilName = ws.Range("A2").Value wb.SaveAs Filename:=hozonPath & FolName & "\" & FilName End Sub

こんにちわ。 いつもお世話になっております。 さて、毎度VBAでお世話になっており、表題については指定のシートのみxlsx、pdfファイルで保存するような場合のコードは都度教えていただいて都度うまく行っていたのですが、フォルダやファイルの種類を変えるとうまく行かない場合が多く、試行錯誤で何とかしていたので須が、今回どうしてもあれとこれとを組み合わせてもうまく行かず。 今回の目的で使えそうなpdfでの保存コードは何故かコード中の「pdf」を「xlms」に変更してもpdfファイルで保存されてしまうのは理解できず。 そこでNETで調べたら当方にも分かり易い汎用の下記のサンプルコードがあったのですが ＞ 'ドライブ等の名前を変数に ＞ hozonPath = "K:\" のドライブの書式 ”K:\” が良くわかりません。 具体的に "\\Srv01\業務g\応援チーム\MyPicture" このフォルダに保存したいのですが、どう記載するのか教えてください。 ファイル名にしたいセルは単にA1、A2というように単にセルの列行の記載すればいいのですよね? あまりに初歩的過ぎて質問の意味が分かりにくいでしょうか? Sub hozon() Dim wb As Workbook 'ワークブック Dim ws As Worksheet 'ワークシート Dim hozonPath As String 'ドライブ等のパス用 Dim FolName As String 'A1セル用のフォルダ名用 Dim FilName As String 'A2セル用のファイル名用 '自ワークブック Set wb = ThisWorkbook 'アクティブシート Set ws = ActiveSheet 'ドライブ等の名前を変数に hozonPath = "K:\" 'A1セルの値を変数に FolName = ws.Range("A1").Value 'A2セルの値を変数に FilName = ws.Range("A2").Value wb.SaveAs Filename:=hozonPath & FolName & "\" & FilName End Sub

お世話になります。 sheet1～sheet100までのシートがあるとして、 可能とバスケ、普通とバスケがあったら、並んで バスケ　バスケ 可能　　　普通 という文字を取り出したいです。 文言はいろいろな種類があり、野球、水泳などがあるとします。 それをVBAで行うにはどうすればいいでしょうか。 例）Sheet1 A B 可能 　　バスケ 可能　　野球 不可能　野球 普通　　水泳 普通　　バスケ 可能　　卓球 不可能 こういう表を作りたいです↓ 集計シート A B C D E F G~ 　　　　卓球　　卓球　バスケ　バスケ　テニス　野球　水泳 　　　　可能　不可能　　可能　　普通　　可能　不可能　可能 sheet1　　　1 5 6 3 2～ sheet2 2 3 1 1 4 sheet3 4 3 3 3 1 sheet4 1 1 1 1 9 sheet5　 2 3 1 1 4 よろしくお願いいたします。

出勤簿を作成してますが、土曜日、日曜日についてはWEEKDAY関数を使用し要就業時間は非表示できるようになりましたが、祝日、有休、特別休暇（夏季休暇）時の就業時間も非表示にする方法を教えてください。 ファイルを添付しますのでよろしくお願いします。 ファイルの黄色い部分の就業時間を表示しないようにする。

自動口座振替契約者の内、次月の振替対象者を抽出したいです。月払、半年払、年払、一括払の４種の払込の方法があります。今はまだ契約者が少ないので手動でもなんとか探せるのですが、今後契約者が増加した際に手動にも限界が来そうな気がしたので、もし可能ならばと質問を投稿いたしました。。 現在管理している帳票から抽出できると大変助かるので、可不可も含めてご教示いただけませんでしょうか。 現在使用している帳票(1) １行１名の契約者情報と振替日と振替実績を管理しています。 新規契約者は下の行に追加されていきます。 振替日は契約日を入力すると指定の払込方法に合わせて、２回目は〇年〇月〇日、３回目は□年□月□日、というように、最終の振替日まで自動的に表示されます。 　　 A B C D E F G H 1 契約番号　契約日　名前　口座　振替１回目　実績　２回目　 実績 2 1111111　2020/1/1　〇　　□　 2020/2/28　 〇 　2020/3/31　 3 2222222　2020/2/2　△　　■ 2020/3/31 　　 2020/4/30 4 3333333　2020/3/3　◎　　● 2020/4/30 2020/5/31 追加を考えている帳票(2)（次月振替対象者リストのようなもの） A B C １　振替予定日 ２　2020/3/31 ３ ４　契約番号　 名前　 口座 ５　1111111　 〇 □ ６　2222222　 △ ■ 帳票(1)(2)を利用するとした場合に、帳票(2)のA2に「2020/3/31」と入力すると５行目以降に該当するデータが表示されるようにしたい。 お力をお貸しくださる方、ご教示のほど宜しくお願いいたします。

自動口座振替契約者の内、次月の振替対象者を抽出したいです。月払、半年払、年払、一括払の４種の払込の方法があります。今はまだ契約者が少ないので手動でもなんとか探せるのですが、今後契約者が増加した際に手動にも限界が来そうな気がしたので、もし可能ならばと質問を投稿いたしました。。 現在管理している帳票から抽出できると大変助かるので、可不可も含めてご教示いただけませんでしょうか。 現在使用している帳票(1) １行１名の契約者情報と振替日と振替実績を管理しています。 新規契約者は下の行に追加されていきます。 振替日は契約日を入力すると指定の払込方法に合わせて、２回目は〇年〇月〇日、３回目は□年□月□日、というように、最終の振替日まで自動的に表示されます。 　　 A B C D E F G H 1 契約番号　契約日　名前　口座　振替１回目　実績　２回目　 実績 2 1111111　2020/1/1　〇　　□　 2020/2/28　 〇 　2020/3/31　 3 2222222　2020/2/2　△　　■ 2020/3/31 　　 2020/4/30 4 3333333　2020/3/3　◎　　● 2020/4/30 2020/5/31 追加を考えている帳票(2)（次月振替対象者リストのようなもの） A B C １　振替予定日 ２　2020/3/31 ３ ４　契約番号　 名前　 口座 ５　1111111　 〇 □ ６　2222222　 △ ■ 帳票(1)(2)を利用するとした場合に、帳票(2)のA2に「2020/3/31」と入力すると５行目以降に該当するデータが表示されるようにしたい。 お力をお貸しくださる方、ご教示のほど宜しくお願いいたします。

お世話になります。 只今、VBAでどのように複数の文言をカウントすればいいのか悩んでいます。 集計シートに、Sheet１～５０までのA列にある文言をカウントしたいです。 A列には、りんご、ばなな、メロン、他50種類あるとします。 集計シートには縦に、Sheet1~50が並んでおり、 横にりんご、ばなな、メロンが横に重複削除して並んでいます。 りんごの下にカウントした数字を入れていきたいです。 現在、Cell(3,3) =　WorksheetFunction.CountIF(Sheets("Sheet1").Range("A2:A100"),cells(2,2)) とマクロを組むと、一つだけしかとってこれない状態ですが、これを複数取ってくる場合はどのようにしたらよいのでしょうか。 よろしくお願いいたします。

お世話になります。 只今、VBAでどのように複数の文言をカウントすればいいのか悩んでいます。 集計シートに、Sheet１～５０までのA列にある文言をカウントしたいです。 A列には、りんご、ばなな、メロン、他50種類あるとします。 集計シートには縦に、Sheet1~50が並んでおり、 横にりんご、ばなな、メロンが横に重複削除して並んでいます。 りんごの下にカウントした数字を入れていきたいです。 現在、Cell(3,3) =　WorksheetFunction.CountIF(Sheets("Sheet1").Range("A2:A100"),cells(2,2)) とマクロを組むと、一つだけしかとってこれない状態ですが、これを複数取ってくる場合はどのようにしたらよいのでしょうか。 よろしくお願いいたします。

例として、 1つ目のシートは社員名簿です。 A列・社員番号 B列・氏名 C列・希望日（ここが空白になっていて、希望日を後で入れる） … のように縦に100名程度続いています。 2つ目のシートに添付画像のような縦カレンダーを作りました。 上で入れた希望日をカレンダーの日付ごとに振り分けてくれる数式はありますでしょうか？ 画像のように1つの日につき4名まで横に氏名が並ぶようにしたいです。 1日につき4名の枠を超えてしまった時は…などは考慮しなくても結構です。シート1を入力する時点で1日の定員は超えないように管理されているものとします。

VBAを利用して1つのフォルダの中にあるたくさんのファイル内にキーワードが記載されているか検索し、Hitしたファイル名をリストアップしたいです。 具体的には、Cドライブのsampleフォルダ直下にテキストファイルが複数あります。 そのテキストファイルに2019年または2020年という記載があれば、そのファイル名（2019年、2020年どちらでHitしたかも分かるように）をexcelなどにリストアップしたいと考えています。 VBA初心者です。コードも添えて回答頂けると助かります。 よろしくお願いします。

先月、時間の合計切上げ表示についてご質問しご回答をいただき解決いたしましたが、不具合が発生し再度ご質問させていただきます。 F4には始業時間を入力します。 I8：I38には出勤時間を入力します。 Z8：Z38には下記の関数を入力して遅刻時間を表示します。 =IF(F4=0,"",IF(OR(I8-F4<=0,I8=""),"",I8-F4)) ＊上記関数の「I8」はI8：I38にそって変更します。 ＊F4が未入力の場合は数値は表示しないようにしてます。 Z41にはZ8：Z38の遅刻合計時間を下記の関数を入力して表示します。 =SUM(Z8:Z38) V8:V38には中抜け時間を入力します。 V41にはV8:V38の中抜け合計時間を下記の関数を入力して表示します。 =SUM(V8:V38) H58にはV41:Z41の合計時間を30分単位で切上げて表示します。 前回、H58=CEILING(SUM(V41:Z41),"0:30"　を入力すると V41:Z41の合計が1：00ではH58に1：00と表示されますが、 1：30ですと2：00と表示され 2：00ですと2：30と表示され合計プラス30分での表示となります。 ＊30分単位の入力での表示結果となりますが、時間の合計が1：29の場合は1：30分表示となり、1：31分の場合は2：00表示と正常に表示されます。 ＊すべての対象セルの書式設定は『ユーザー定義　[h]:mm』としております。 前回、上記の問題の解決方法を質問し下記の関数の入力のご回答をいただきましてこちらの問題は解消されましたが、V41:Z41の合計が「24：00」を過ぎるとH58は「0」からに戻って表示されます。 H58=CEILING(TIME(HOUR(SUM(V41:Z41)),MINUTE(SUM(V41:Z41)),SECOND(SUM(V41:Z41))),"0:30") H58には合計が24：00が過ぎても24：30分などと正しく合計が表示される方法のご教授を何卒よろしくお願いいたします。

いつもお世話になっております。 少しややこしい内容なので説明が分かりにくくなってしまうと思うので忖度に期待して質問させていただきます。 図のように1群、2群にA、BのデータがNo１から順に最大30個（2群は４～15個）のデータの 1）A(1)列の2値の平均値と2群のA(2)列の2値の平均値の差が最小になる2つを見つける。 2）同様にB(1)列の2値の平均値とB(2)列の2値の平均値の差が最小になる組み合わせを見つける。 3）1）と2）の合計が最小になる組み合わせのデータNoを知りたいのです。 例えばイメージ（入力数値は無視）として１群からデータNo４とNo8を選んだ時に、2群のNo20とNo27を組み合わせるとA、Bの2値の平均値の誤差が最小値になる組み合わせを知りたいのです。 現在は差の絶対値を行列数式でA(1)のデータNo１とA(2)のNo16からNo30までの総当たりで、同様にB1についても総当たりで求めて、両方の差の和の一番小さくなるケースを探しているのですが精度（やり方）が悪いのでお知恵拝借したく、わかりにくくお手数ですが宜しくお願いします。

ブックオフオンラインYahoo!店の検索結果の書籍の個別ページ 例えば、 中古 サウスポー・キラー 宝島社文庫／水原秀策【著】 JANコード/ISBNコード：9784796656719 レビューを投稿する 価格 200円 （税込） https://store.shopping.yahoo.co.jp/bookoffonline/0015509916.html からISBNコードの番号 9784796656719 を抜き出してそのコードをAmazonで検索するには どうすればいいですか？ 一番簡単に実行するにはどうすればいいでしょうか？ ブックオフオンラインYahoo!店で沢山本を検索して検索した書籍のISBNコードを Amazonで検索することが多いので、 どうすれば、簡単出来るかしりたいです。 アドバイス頂けると幸いです よろしくおねがいします。(・´з`・)

いつもお世話になっております。 少しややこしい内容なので説明が分かりにくくなってしまうと思うので忖度に期待して質問させていただきます。 図のように1群、2群にA、BのデータがNo１から順に最大30個（2群は４～15個）のデータの 1）A(1)列の2値の平均値と2群のA(2)列の2値の平均値の差が最小になる2つを見つける。 2）同様にB(1)列の2値の平均値とB(2)列の2値の平均値の差が最小になる組み合わせを見つける。 3）1）と2）の合計が最小になる組み合わせのデータNoを知りたいのです。 例えばイメージ（入力数値は無視）として１群からデータNo４とNo8を選んだ時に、2群のNo20とNo27を組み合わせるとA、Bの2値の平均値の誤差が最小値になる組み合わせを知りたいのです。 現在は差の絶対値を行列数式でA(1)のデータNo１とA(2)のNo16からNo30までの総当たりで、同様にB1についても総当たりで求めて、両方の差の和の一番小さくなるケースを探しているのですが精度（やり方）が悪いのでお知恵拝借したく、わかりにくくお手数ですが宜しくお願いします。

いつもお世話になっております。 少しややこしい内容なので説明が分かりにくくなってしまうと思うので忖度に期待して質問させていただきます。 図のように1群、2群にA、BのデータがNo１から順に最大30個（2群は４～15個）のデータの 1）A(1)列の2値の平均値と2群のA(2)列の2値の平均値の差が最小になる2つを見つける。 2）同様にB(1)列の2値の平均値とB(2)列の2値の平均値の差が最小になる組み合わせを見つける。 3）1）と2）の合計が最小になる組み合わせのデータNoを知りたいのです。 例えばイメージ（入力数値は無視）として１群からデータNo４とNo8を選んだ時に、2群のNo20とNo27を組み合わせるとA、Bの2値の平均値の誤差が最小値になる組み合わせを知りたいのです。 現在は差の絶対値を行列数式でA(1)のデータNo１とA(2)のNo16からNo30までの総当たりで、同様にB1についても総当たりで求めて、両方の差の和の一番小さくなるケースを探しているのですが精度（やり方）が悪いのでお知恵拝借したく、わかりにくくお手数ですが宜しくお願いします。

ブックオフオンラインYahoo!店の検索結果の書籍の個別ページ 例えば、 中古 サウスポー・キラー 宝島社文庫／水原秀策【著】 JANコード/ISBNコード：9784796656719 レビューを投稿する 価格 200円 （税込） https://store.shopping.yahoo.co.jp/bookoffonline/0015509916.html からISBNコードの番号 9784796656719 を抜き出してそのコードをAmazonで検索するには どうすればいいですか？ 一番簡単に実行するにはどうすればいいでしょうか？ ブックオフオンラインYahoo!店で沢山本を検索して検索した書籍のISBNコードを Amazonで検索することが多いので、 どうすれば、簡単出来るかしりたいです。 アドバイス頂けると幸いです よろしくおねがいします。(・´з`・)