Excel（エクセル）

「特定の文字以外は入力できないようにする」場合はリストから選択するようにすればいいのですが、「特定の文字を含む文言を入力できないようにする」場合は入力規制でどのように設定すればいいのでしょうか？

excelVBAで、オブジェクトをグループ化するメリットを教えて頂けると幸いです。すみません。オブジェクトのグループ化をすると、移動、大きさの変更、枠線の変更、背景色の変更、削除、重なり順番の変更、整列、回転などが複数の図形でいっきに行う事ができるのでしょうか?教えて頂けると幸いです。

ActiveWorkbook.ActiveSheet.Range(″◯◯″) ThisWorkbook.ActiveSheet.Range(″◯◯″) 前者は、新しく開いたブックのセルの記述で、後者は、元々開いていた(プログラムの書いてある)ブックのセルの記述です。これらは、どういう所で使えるexcelVBAのプログラムなのでしょうか?教えて頂けると幸いです。なお、前者と後者の両者とも、プログラムの一部です。これらのプログラムの一部はどういう時に使うのかという疑問です。

ブックの保護を行ってから、シートの保護を設定する。また、その逆も出来ないのでしょうか?教えて頂けると幸いです。

マクロの選択の中で、セル・行・列・シートなどを選択することが多々あります。 <例1> ・セル→　Range("C1")　、　Range("C1:D20") ・行→　Rows("5:10").Select ・列→　Columns("E:E").Select ・シート→　Sheets("Sheet1").Select 固定値は例1のようなピンポイントの文言を入れればいいのですが、常に変動する場合はどのようなマクロにすればいいのでしょうか？ ググると行番号と列番号(Cells(行,列)＝上から○番目、左から○番目)での指定ばかりで、セル番地での指定方法が見つかりません。 具体的には、添付画像のように特定のセルに入力したセル番地の箇所を選択(Select)したいのです。 ・セル→　B2とB3に入力したセルの範囲がマクロの対象になる ・行→　B14とB15に入力した行がマクロの対象になる ・列→　M2とM3に入力した列がマクロの対象になる ・シート→　M13に入力したシートがマクロの対象になる 添付画像は同一シート内ですが、マクロボタンを配置するのは同一シートではなく別シートの時もあります。 <例2>　シート「設定用」内でシート「請求書」を選択し処理するセルを設定　→ マクロが実行されるシートは「請求書」のセル 分かりにくい質問で申し訳ありませんが、よろしくお願いします。

Excelに簡易電子印を押印する際【Excel電子印鑑】を利用していますが頻繁にエラー1004が発生するため、あらかじめオブジェクトで作成した電子印を画像化して貼り付けています。 毎回、Snipping Toolで範囲指定→画像保存するのが面倒なので、マクロで自動的に画像保存する方法を見つけて実行してみました。 参考リンク　→　https://vba-create.jp/vba-copypicture-save-png/ 思い通りの画像が作成できましたが、外枠に色がついています。 トリミングすればいいだけですが面倒です。 希望としては、外枠と背景が透明になれば完璧ですが、背景に関しては「透明色を指定」処理すればいいので、外枠だけでも色無しにできないでしょうか？

Sub sample050() With ActiveSheet.PageSetup .Zoom＝False .FitToPageWide ＝1 .FitToPageTall ＝1 End With End Sub の所で、AさんのPCで、ExcelVBAをプログラムしておけば、BさんのPCでも、必ず1ページに収まるのですよね?教えて頂けると幸いです。

勤務管理表を作成しておりますが、全日程において 出勤、有給休暇、休暇のいずれかを事前に入力させるべく 該当項目の全日程に、入力規則のリストを使って プルダウンメニューから選択して入力させるようにしました。 しかしながら、入力忘れもありえるので「入力必須チェック」 をかけたいのですが、単に条件付き書式でやってしまうと 画像のように日付が存在しないセルも入力必須だよ となりますから 日付があるところのみ入力必須としたいのですが、やることは 簡単ですが実現にはかなり厄介で、詰まっています ※画像の「休暇」と表示のあるセルC列がリストでの入力対象です ※当月16日から来月15日で1シートの構造なため、当月が30日までなら1行、2月28日までなら3行、最下部が非表示となります どのようにしたら、日付がないところは未入力のままでよく 日付があるとこは入力必須チェックをかけることができるように なるか？お知恵をお借りしたいです。

先日 https://okwave.jp/qa/q10301453.html と https://okwave.jp/qa/q10301885.html にて PDF化の際に『Microsoft Print to PDF』を自動選択できるマクロをご教示いただきましたが、さらに欲が出てきました。 前回・前々回は固定ファイルに埋め込むマクロでしたが、今回は不特定多数のファイルに使用したいため PERSONAL.XLSB に組み込みたいのです。 <やりたいこと> １．PDF化の際に『Microsoft Print to PDF』を自動選択 ２．PDFファイル名はExcelファイル名を初期値としてセット ３．保存場所をExcelファイル名と同じ場所を初期表示した上で名前を付けて保存画面を表示 自分なりに頑張って設定したのですが、Call Sh.PrintOutが設定されているためなのか自動保存された上で名前を付けて保存画面表示が出るという状態です。 Sub PDF_別名保存() Dim saveFolder As String: saveFolder = ActiveWorkbook.Path & "\" 'Excelファイルと同じフォルダ Dim FSO As Object Dim fname As String Dim fullname As String Dim Done As Variant Dim Sh As Object Set Sh = ActiveWindow.SelectedSheets Dim orgPrinter As String 'ファイルを操作するオブジェクト Set FSO = CreateObject("Scripting.FileSystemObject") 'Excelファイル名(拡張子なし)をPDFファイル名にする fname = FSO.GetBaseName(ActiveWorkbook.name) & ".pdf" fullname = saveFolder & fname '『Microsoft Print to PDF』を自動設定 orgPrinter = Application.ActivePrinter Call Sh.PrintOut(ActivePrinter:="Microsoft Print to PDF", PrintToFile:=True, PrToFileName:=fullname) Application.ActivePrinter = orgPrinter Set Sh = Nothing '名前を付けて保存画面表示 Done = IIf(Application.Dialogs(xlDialogSaveAs). _ Show(Arg1:=fullname, Arg2:=57), "保存", "キャンセル") If Done = "キャンセル" Then Else End If End Sub どの部分を改修すればよろしいのでしょうか？ 尚、選択したsheetをPDFファイル名にして自動保存するマクロと、Excelファイル名をPDFファイル名にして自動保存するマクロはできました。

office365使用 Excel セルの一部を入力出来ないようにしたいのですが ピボットテーブルなどの更新はかけたいです。 一部のセルを保護しながら、更新のみ許可するということは可能でしょうか。

Sub sample064() ActiveSheet．Shapes.Range(_ Array(″img01″,″img02″,″img03″)_ ).Align msoAlignTops,False End Sub の所のFalseの所が何を意味するのかが分かりません。 教えて頂けると幸いです。

エクセルの入力規則で半角数字のみ4桁の制限をかけたいのです。 1000以上9999以下とすればできるのですが、そうすると0123とか、頭が0で始まる数字が入りません。VBAを使えば簡単なのですが、今回はブックが.xlsxなので使えません。ご教示ください。

先日 https://okwave.jp/qa/q10301453.html にて PDF化の際に『Microsoft Print to PDF』を自動選択できるマクロをご教示いただきましたが、別の問題が出てきました。 先の質問にはシートの選択について記載しませんでしたが、実は質問に記載した2つのマクロの先頭にシート選択のコマンド( Sheets("シート1)").Select や Sheets(Array("シート1", "シート2")).Select )を入れてありました。 ご回答のCall Test～の前にシート選択のコマンドを入れれればいいやと思っていたのですが、なぜか左側のシート(シート1)しかPDF化できませんでした。 マクロボタンは別シートに配置するのでシートの選択コマンドが必要で、且つ選択するシートは内容毎に異なります。 どの部分を改修すれば複数シートのPDF化ができるのでしょうか？

エクセルで別々のブックのデータに同じパラメーターの表がそれぞれ１つあるとします。 この別々のブックの２つの表の値を照合して全く同じではない場合に、その値に相違があるセルに色をつけるような計算式は、どんな数式、あるいはマクロが有りますでしょうか？

Excelで工程能力指数を算出するにあたり、正規分布図を作成しようとしています。 以下のサイトを参考にしました。htt⚪︎s://bellcurve.jp/statistics/blog/15344.html 1. xは正規分布図の横軸のσの係数のことでしょうか？ 2. σは標準偏差ですが、横軸は基準値(寸法の場合、長さ？)を指しているのでしょうか？ 真ん中が基準値で、測定した値が基準値に近いと真ん中が山になる。測定値がばらつくと山が広範囲になると解釈しています。 3. xの数値は測定する対象の公差範囲によって任意で変えるのでしょうか？ 勉強不足で恐縮ですがご教示いただければ幸いです。

下記マクロでシートをPDF化しています。 <マクロ１> Sub PDF保存_指定フォルダ() Application.Dialogs(xlDialogPrinterSetup).Show Const saveFolder = "C:\PDF\" Dim fname As String Dim fullname As String fname = ActiveSheet.Range("A1").Value & ".pdf" 'A1セルの文字をファイル名にする fullname = saveFolder & fname ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fullname End Sub <マクロ２> Sub PDF保存_同一フォルダ() Application.Dialogs(xlDialogPrinterSetup).Show Dim FileName As String FileName = ActiveSheet.Range("L4").Value & "_Invoice" & ".pdf" 'A1セルの文字をファイル名にする 'Excelファイルと同じフォルダへ保存 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ FileName:=ActiveWorkbook.Path & "\" & FileName End Sub 用紙サイズをA4縦に固定したいので、「Application.Dialogs(xlDialogPrinterSetup).Show」でプリンター設定画面を表示させて『Microsoft Print to PDF』を選択するようにしています。 プリンター設定画面を表示させなくてもマクロ内で『Microsoft Print to PDF』を設定する方法はありませんか？ プリンター名確認マクロで「Microsoft Print to PDF on Ne01:」と表示されますが”Ne01”はPCによって異なる可能性がありますので、できれば「Microsoft Print to PDF」のみを指定できればありがたいです。 会社PC(Win10／Win11)ですので「Microsoft Print to PDF」がある前提で構いません。 よろしくお願いします

画像のようなシフト表があるとして 11行目から下はcountifでそれぞれの数値をカウントしています。 11行目C列「日」の個数でcountif(C3:C10,"日") 12行目は「休」の個数でcountif(C3:C10,"休") 13行目は「夜」の個数でcountif(C3:C10,"夜")で、D,Eも同じです。 ただ予定されたシフト通りにいかなかった場合、実施されたシフトのほうに変更されたシフトが書いてあります。この表の場合は、 1日では、４人目の人が「休」から「日」に変更、3日は3人目の人が「日」から「休」に代わっています。変更があった場合、実施されたシフトのみカウントしたいです。つまり、1日の4人目の予定のシフトの「休」の部分はカウントせず「日」のみ、3日目の二人目の「日」をカウントせず「休」をカウントしたいです。このようなことは可能でしょうか？ 現段階では、変更があった部分は予定のシフトもカウントされてしまい数値が正しくなりません。 よろしくお願いいたします。

Sub sample050() With ActiveSheet.PageSetup .Zoom＝False .FitToPageWide ＝1 .FitToPageTall ＝1 End With End Sub の所で、別のPCで操作する時に、印刷がずれてしまう時などは、その別のPCで、excelVBAの設定し直せば良いという事でしょうか？教えて頂けると幸いです。

添付した画像は銀行口座です。 A1日付は･･･となります（データ部分はB1～）。 入出金を入力すると残高が自動で算出される方法を知りたいのですが条件があります。 この図は上から下に時系列になっていますが、下から順に時系列になるように残高を示す式や、Excel関数を教えてください。 どうぞよろしくお願いいたします。

添付した画像は銀行口座です。 日付はA1･･･となります（データ部分はB1）。 入出金を入力すると残高が自動で算出されるExcel関数または方法を教えてください。