HohoPapa の回答履歴

エクセルで印刷時にPDF保存をしたいですのですが、ページ毎に名前を変えて保存をしたいです。 例えば、 For i = 1 To 50 Application.ActivePrinter = "Microsoft Print to PDF on Ne02:" ActiveSheet.PrintOut From:=i, to:=i Next i であれば、1ページずつ保存は出来るのですが、ファイル名もセルを参照しながら変えていきたいです。 具体的には、G列の1行名から50行目まで取引先の名前を入れていて 印刷毎に、取引先名でPDFを保存します。 Activesheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ActiveWorkbook.Path & "\" & fName & ".pdf" のような方法は、ネットにもありますが、これだとページ毎にファイル名を変えられないので困っています。 よろしくお願いいたします。

エクセルで印刷時にPDF保存をしたいですのですが、ページ毎に名前を変えて保存をしたいです。 例えば、 For i = 1 To 50 Application.ActivePrinter = "Microsoft Print to PDF on Ne02:" ActiveSheet.PrintOut From:=i, to:=i Next i であれば、1ページずつ保存は出来るのですが、ファイル名もセルを参照しながら変えていきたいです。 具体的には、G列の1行名から50行目まで取引先の名前を入れていて 印刷毎に、取引先名でPDFを保存します。 Activesheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ActiveWorkbook.Path & "\" & fName & ".pdf" のような方法は、ネットにもありますが、これだとページ毎にファイル名を変えられないので困っています。 よろしくお願いいたします。

EXCEL VBAで別ファイルの値をコピーして貼り付けをしているのですが、セルの中の一部のみを貼り付けしたいと思いますが、 どのようにしたらいいのでしょうか？ 関数では取り出すことができたのですが、できればVBAの中で処理できればと思っています。 =IFERROR(MID(Z2,FIND("6",Z2),FIND(" has",Z2)-FIND("6",Z2)),"") やりたいこと １．左から見て6～空白までの値のみを貼り付けしたい ２．エラーの時は空白にしたい Sub SO_Copy() Dim ws As Worksheet Set ws = Worksheets("Sheet1") Dim FilePath, FileName As String 'C8&C9にファイルパス/ファイル名を入力 FilePath = ws.Range("C8").Value & "\" & ws.Range("C9").Value FileName = ws.Range("C9").Value Workbooks.Open FilePath 'Z2～コピーして、"メール送信.xlsm"のD11以降に値だけ貼り付け Range("Z2", Range("Z2").End(xlDown)).Copy Windows("メール送信.xlsm").Activate Range("D11").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Workbooks(FileName).Close End Sub

マイクロソフト365のエクセルでの質問です。 371列の横に長い表があります。ガントチャートをイメージ願います。 a,b,c,d,e列は項目の列でフィルターに使います。 f-nf列は年月日365日割当て期間を表示します。 ng列は項目の列でフィルターに使います。 質問 １．フィルター機能を使うときf-nf列にフィルターボタンを表示させない方法は？ ２．a,b,c,d,e列とng列を固定的に表示させ、中間のf-nf列はその範囲だけ表示させる方法は？ よろしくお願いいたします。

マイクロソフト365のエクセルでの質問です。 371列の横に長い表があります。ガントチャートをイメージ願います。 a,b,c,d,e列は項目の列でフィルターに使います。 f-nf列は年月日365日割当て期間を表示します。 ng列は項目の列でフィルターに使います。 質問 １．フィルター機能を使うときf-nf列にフィルターボタンを表示させない方法は？ ２．a,b,c,d,e列とng列を固定的に表示させ、中間のf-nf列はその範囲だけ表示させる方法は？ よろしくお願いいたします。

マイクロソフト365のエクセルでの質問です。 371列の横に長い表があります。ガントチャートをイメージ願います。 a,b,c,d,e列は項目の列でフィルターに使います。 f-nf列は年月日365日割当て期間を表示します。 ng列は項目の列でフィルターに使います。 質問 １．フィルター機能を使うときf-nf列にフィルターボタンを表示させない方法は？ ２．a,b,c,d,e列とng列を固定的に表示させ、中間のf-nf列はその範囲だけ表示させる方法は？ よろしくお願いいたします。

D4の時間ですが、H4に入力した時間が8:30より遅い場合H4と同じ時間を入力し、それ以外は8:30と表示させたいです。 その場合のIF関数をアドバイスいただけないでしょうか？

現状、Xlookupやフィルター、区切り位置を駆使している作業がありますが、非常に間違えるリスクが高く、 それをマクロ化したいのですが、ご助力をお願い致します。 メインブック① ブック② 検索ワード　お互いのJ列＋K列を結合して見比べる 但し、上記は見た目数字だが、数値や文字列が混じっている。 ブックは名前が変わる場合があるため、都度選択したいです。 検索ワードが①にあって②に無い場合、①の対象を行ごとデリート。 ②にあって①に無い場合、行ごとコピーし、①に貼り付け。 ブック③ 検索ワードJ列で前後ワイルドカード ブック①のA,C,E列にブック③B,D,Fのデータを書き込む。 ざっくり、この様な処理になります。 何卒ご助力をお願い致します。

添付画像の問題での質問です。ong型の変数Nを宣言し、Nの値をinputbox関数で入力すると、(N,sum())および(N,sum2())を表示するSubプロシージャのプログラムが分かりません。 言語はエクセルのビジュアルベーシックです。

添付画像の問題での質問です。ong型の変数Nを宣言し、Nの値をinputbox関数で入力すると、(N,sum())および(N,sum2())を表示するSubプロシージャのプログラムが分かりません。 言語はエクセルのビジュアルベーシックです。

VBA言語です。 以下に記述する問題について質問があります。 InpuuBoxで整数をMに入力してDo〜Loop文で総和Sを計算して得た結果を(M,N,S)の形で表記したいのですが、変数をLongで宣言する場合の表示を教えてほしいです。 問題 S＝1＋2＋2^2＋・・＋2^Nの総和がMを超える最小のNとS よろしくお願いします(＞人＜;)

VBA言語です。 以下に記述する問題について質問があります。 InpuuBoxで整数をMに入力してDo〜Loop文で総和Sを計算して得た結果を(M,N,S)の形で表記したいのですが、変数をLongで宣言する場合の表示を教えてほしいです。 問題 S＝2^1＋2^3＋2^5・・・＋2^Nの総和がMを超える最小のNとS よろしくお願いします(＞人＜;)

保険金で新しく建物などを購入すると圧縮記帳の対象だと思います。 もし、新しい建物を買うのではなく、 修繕で解決した場合、保険金をもらうと圧縮記帳の対象にはならないのですか。 もし、ならないとしたらどんな節税？ができますか。

2022年度から、売上諸掛の処理が変更になったことを不覚にも今始めて知りました。 ネット検索によると、日本商工会議所からの情報として、下記のような【問題】は、下記のような【解答】になるそうです。 https://ebiharasaccounting.com/archives/8706 が、なにが変更になったのか、いまいち理解出来ないのですが、変更前も後も、Ｂ社の認識としては、この商品を「102,000円で購入した。送料は無料である」ということであるはずですね。 一方、Ａ社の認識は、変更前も後も、「送料2,000円は自己（Ａ社）の負担とし、送料無料で商品を102,000円で販売した」ということではないでしょうか。 それを【問題】では、「商品Ａを100,000円でＢ社へ販売し、送料2,000円を加えた合計額を掛けとした。」と言っているが、「100,000円で販売した」というのは（解答者に対する）ミスリードではないでしょうか。販売額はあくまで「102,000円」ではないかと思うのですが、いかがでしょうか。 そもそも本件、送料は誰が負担したのでしょうか。 認識基準が変更になったという例題としては、不適切のような気がしますが。 【問題】 当社は商品Ａを100,000円でＢ社へ販売し、送料2,000円を加えた合計額を掛けとした。また、同時に配送業者に商品Ａを引き渡し、送料2,000円は後日支払うことにした。 【解答】 売掛金102,000／売上102,000 発送費2,000／未払金2,000

2022年度から、売上諸掛の処理が変更になったことを不覚にも今始めて知りました。 ネット検索によると、日本商工会議所からの情報として、下記のような【問題】は、下記のような【解答】になるそうです。 https://ebiharasaccounting.com/archives/8706 が、なにが変更になったのか、いまいち理解出来ないのですが、変更前も後も、Ｂ社の認識としては、この商品を「102,000円で購入した。送料は無料である」ということであるはずですね。 一方、Ａ社の認識は、変更前も後も、「送料2,000円は自己（Ａ社）の負担とし、送料無料で商品を102,000円で販売した」ということではないでしょうか。 それを【問題】では、「商品Ａを100,000円でＢ社へ販売し、送料2,000円を加えた合計額を掛けとした。」と言っているが、「100,000円で販売した」というのは（解答者に対する）ミスリードではないでしょうか。販売額はあくまで「102,000円」ではないかと思うのですが、いかがでしょうか。 そもそも本件、送料は誰が負担したのでしょうか。 認識基準が変更になったという例題としては、不適切のような気がしますが。 【問題】 当社は商品Ａを100,000円でＢ社へ販売し、送料2,000円を加えた合計額を掛けとした。また、同時に配送業者に商品Ａを引き渡し、送料2,000円は後日支払うことにした。 【解答】 売掛金102,000／売上102,000 発送費2,000／未払金2,000

https://okwave.jp/qa/q10068714.html こちらで質問をさせて頂いた者です。 ご教授して頂いております。 添付ファイルの、J列の抽出部には、★があるものは★を消し半角カッコ以降は消す、★のあるもので半角カッコがないものは★を消す、★のないもので半角カッコ以降は消す、★もカッコもないものはそのままという関数が知りたいです。 J列には上から、 みかん もも キウイ グレープフルーツ みかん レモン イチゴ みかん みかん みかん となりたいです。 もう一つは、A1：C5に、J列で抽出したものを重複なく左から表示させたいです。 ご教授、よろしくお願いします。

こんにちは。 Excel又はスプレッドシートにて 文字列(一つのセルでタイトル)から不特定の数値(商品品番)を抽出をしたいです。 (以下タイトルの感じ) 　l　　　　　　　　　　　　A　　　　　　　　　　　l　B　l　C　 1　タイトル 2　10x28mm ボルト（省略） 小型 /58-44×2 G-1 3　 段ボール　特大サイズ（省略） /4-20 G-1 4　スピーカー　低音強め（省略） 小型 /97-84 G-1 5　ドライバー　プラス（省略） 電動 /58-44+55-78 G-1 このような感じです。（品番は58-44など） 省略部分には詳細な説明などが入ります。 この品番を検索し他の列に抽出という流れになればと思います。 因みに商品カタログなどから検索して一致したものをという感じでも大丈夫です。 よろしくお願いします

VBAで現在Columns("H:H")のように特定の列をコードの中に記載して処理を行っています。(現在であればH列) これをH列以外にも他の列で行いたいことがあるのですが、毎回コードを開いて列を書き換えるのは手間がかかります。 VBAで処理の前にダイアログBoxに処理したい列を入力してその列を処理できればよいと考えているのですが、どのようなコードにすればよいでしょうか？ どなたかお詳しい方がいらっしゃいましたらご教示をよろしくお願いします。

大変初心者の質問で申し訳ありません。 名簿が送られてきてそれをCVSにしてラベルソフトに差し込みを行っています。しかし送られて来たエクセルデーターの一部のセルの線が消えていて困っています。（添付画像2段目のBとCの間） セル分割などしてみましたがどれもうまくいきません。 どなたか方法を教えていただけないでしょうか。 最初のエクセルデーターになぜだか沢山の数式などが入っていてコピペしても消えなくて、データーの入力規制の解除もしました。 どうしたらいいのでしょうか。よろしくお願いします。

下記のようなコードでエクセルVBAでOutlookメールを作成する際、「期限：10月30日」の部分だけを赤にする方法を教えてください。 HTMLBodyというのを使うようなのですが、下記のコードの基本を変えず、対応する方法を教えてください。 Sub メール() 'Outlookの定義 Set myOutLook = CreateObject("outlook.application") Set Omail = myOutLook.CreateItem(olMailItem) 'メール作成 Omail.BodyFormat = 2 'メール形式　1=テキスト　2=HTML　3=リッチテキスト Omail.Subject = "意見記入のお願い" 'subject Omail.Body = Omail.Body & "いつもお世話になっております。" & vbCrLf Omail.Body = Omail.Body & "下記の申請が提出されました。" & vbCrLf Omail.Body = Omail.Body & "期限：10月30日" Omail.Display End Sub