Excel（エクセル）

UserFormにTextBoxを配置した場合、 記入した文字列がビジュアル的に明確に判るようにしたい。 例えば、３文字(スペース、ハイフォン、スペース）入力した場合は 例えば、参考画像のように ①　背景色を変える ②　罫線（格子）で囲む 等 多分、EXCEL（VBA)の標準機能では希望のような事は出来ないと思いますので 画像は、あくまで参考なので他のアイデアで判りやすくなれば方法は問いません。 記入した文字は、後で標準モジュールで値を利用したいので 表示だけを見せるは希望しません。

あけましておめでとうございます。 本年もよろしくお願いいたします。 このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がおみえでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、５列×５行の中に数字が１～31まであり、 　重複数字を含んでおり、それが４つ（A,B,C,D）あります。 　その中で、赤枠内と外の数字を分けて下段に 　「〇外」、「〇内」として左から右へ昇順に並べます。　 上記を実現する方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・５列×５行の中にある数字の並びは毎回異なります。 　　・赤枠や、塗り潰しの青色や黄色は、説明のために付けているだけです。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

数年前にエクセルをPDFにして添付ファイルとしてOUTLOOKで送信するコードを教えてもらって毎日のように便利に使っているのですが、今回は元のマクロ付きエクセルのまま同じことがしたく、試行錯誤でpdfをxlmsに変えてみたら、メールは起動して来るのですが 「ファイルが見つかりません」とエクセルが添付されません。 どなたかどこを修正すれば良いのかHELPお願いします。 Option Explicit Sub Saveaspdfandsend() Dim xSht As Worksheet 'Dim xFileDlg As FileDialog Dim xFolder As String 'Dim xYesorNo As Integer Dim xOutlookObj As Object Dim xEmailObj As Object Dim xUsedRng As Range Const PdfDir = "\\XXXX\TEST報告書成績表" 'PDFを保存するフォルダー Set xSht = ActiveSheet 'Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) ' 'If xFileDlg.Show = True Then '　 xFolder = xFileDlg.SelectedItems(1) 'Else '　 MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder" '　 Exit Sub 'End If xFolder = PdfDir & "\" & xSht.Cells(22, 5).Value & " " & xSht.Cells(1, 1).Value & ".pdf" 'Check if file already exist 'If Len(Dir(xFolder)) > 0 Then '　　xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _ '　　　　　　　　　　　vbYesNo + vbQuestion, "File Exists") '　　On Error Resume Next '　　If xYesorNo = vbYes Then '　　　　Kill xFolder '　　Else '　　　　MsgBox "if you don't overwrite the existing PDF, I can't continue." _ '　　　　　　　　　　& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro" '　　　　Exit Sub '　　End If '　　If Err.Number <> 0 Then '　　　　MsgBox "Unable to delete existing file.　Please make sure the file is not open or write protected." _ '　　　　　　　　　　& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File" '　　　　Exit Sub '　　End If 'End If Set xUsedRng = xSht.UsedRange If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then 'Save as PDF file xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard 'Create Outlook email Set xOutlookObj = CreateObject("Outlook.Application") Set xEmailObj = xOutlookObj.CreateItem(0) With xEmailObj .Display .To = "-----.co.jp" .CC = "----.co.jp" .Subject = "XXX報告書" & " " & Range("D10") .Body = "お疲れ様です。" & vbLf & "表題の件、添付の通りです。 " & vbLf & " " & vbLf & "営業部" .Attachments.Add xFolder 'If DisplayEmail = False Then '.Send 'End If End With Else MsgBox "The active worksheet cannot be blank" Exit Sub End If End Sub

EXCELのアイコンを1つタスクバーに置き、そこをカーソルでかざすと複数の小窓が表示され、ひとつを選んで立ち上げる　という仕組みにしてあるのですが、 これらのEXCELファイルが連動してしまっているようで、履歴がつながってしまっています。 この仕組みを維持しつつ、それぞれが独立するようにするにはどうすればよいですか？

お世話になります。 毎朝使用しているExcelファイルが、開くのに時間がかかるようになりました。理由は起動時に最初に出るExcelのマーク（添付図）の下側に「プリンターにアクセス中」と表示されています。 この表示時間が1分間弱かかります。このファイルは１月に１回プリントするだけです。この表示を通常の状態に戻す方法を教えていただきたいと思います。 よろしくお願いします。 OS：Windows 10　22H2 Excel : 2016

Excelで、セル内の文字の文字コードが全て、ある範囲内であるかどうかの判定はどうすればいいですか。範囲内であれば、そのセルの右セルに○を設定する、などで結構です。

取消線のある行を検索して、その行に操作を加えるといったVBAを組みたいです。 ①表のB列の最終行を取得する ②B列の13行目から最終行まで④⑤の処理を繰り返す ③取消線のある行を検索する。(行No.を取得？) ④例えば13列目が取消線該当なら　 　その行に入力されている内容をコピー＆枠外にペースト(P) 　B13,C13,G13,I13,J13,K13,L13,M13,N13をコピーする。 　R13にペースト(P) ⑤コピー元のセルを空欄にする_B13,C13,G13,I13,J13,K13,L13,M13,N13 といった流れにしたいのですが、③～が分かりません。 ③の"取消線がある行を取得"というよりは、 取消線がなければスルー、取消線があれば④⑤の処理をする流れの方が良いでしょうか。

Excelで工具の台帳管理をしようとしています。 Sheet1に工具の情報、責任者のマスタデータを、Sheet2には工具の保全履歴データを用意して、それぞれの工具の保全履歴をまとめています。 Sheet2はINDEX関数で登録番号を入力すると工具情報を抽出します。 質問の内容は ・Sheet2のテーブル上部にドロップダウンリストを設けて、工具を選択すると、選択した工具の保全履歴のみを表示し、保全履歴の登録もしたい。 ・Sheet1のマスタデータから管理台帳のフォーマットに反映させて印刷できるようにしたい。 イメージで例えると、化学薬品管理や設備保全管理のソフトのような構造です。画像のような感じです。 Excel2016 Accessは入っていません。 Power queryは出来ますが、VBAは一切できません。 詳しい方いましたらご教授下さい。

Excel2021でLET関数が使えるようになり、非常に便利を感じていたのですが、つまづく事例が出てきました。 A1に「=SEQUENCE(6)」と入力し，B1に「=LET(x,A1#,RANK(x,x))」 と入力すると正しく出力します。（結果はB1から下に順に{6,5,4,3,2,1}） ところが、C1に「=LET(x,SEQUENCE(6),RANK(x,x))」と入れても結果はC1から下にエラー値「#VALUE!」が6つ並び、正しく出力されません。 B列と同じ結果を期待したのですが、何が原因でしょうか？ なお、念のためですが、この例は実務で出てきたエラーの事例を単純化するために作った例なので、1,2,…,6に対して6,5,…1が欲しいなら他の方法があるとか、そういうことではありません…

VBAでA6が赤色なら赤色じゃなくなるまでB6からAF6の範囲の黄色い枠をランダムで優先的に選択して、黄色い枠がなくなった時はB6からAF6までランダムに選択して○を入れるにはどうすればいいですか？ シフトの自動生成ツールをつくってるのですが、月間休日数が9日未満だとA6が赤く光ります。B6からAF6の中で７日連続で休みがない場合は黄色に光ります。 自動生成後に今までは手動で直していたのですが、時間がかかるため自動化したいです。

中古のノートパソコンがあります。 Excel 2021が導入されています。 これはインターネットで安いExcelがありますが これが入っているのですか？更新とか出来るのですか?

いつもお世話になっております。 特定のフォルダ内にエクセルファイルが毎月増えていくのですが、このフォルダに入っているエクセルファイルのフルパスの一覧を別のエクセルシートのB列に毎月コピペしています。 月10-20のエクセルファイルがリストに追加されていきます。 この増分のパス（B列）にリンクを貼りたいのです。 B列には既に400件以上のファイルパスが入っているので、毎回上からB列の全部のセルにリンクを貼り直すのではなく、増分（B列の最下行＋１行目）以下のセルにリンクを張るBVAを教えて頂きたいのです。 当方教えて頂いたコードとマクロの記録の組み合わせがどうにか出来るレベルなので宜しくお願いします。 但し、B列の140行目迄には空白を含むパス以外の文字が入っています。 パスは141行目以降に空白なく入っていきます。

マクロ初心者です。 excel2002マクロ_特定のセル範囲で同じ文字列が有ったらその数によりセルを色分けしたい 特定のセル範囲で文字列が入っているところと空欄のところがあります。 空欄のところには、後から文字列が入るところと空欄のままのところがあります。 その範囲内で同じ文字列があった場合、2個の時、3個の時、4個の時、5個、6個、7個、8個、9個、10個以上の時に、それぞれ決めておいた色でセルを色分け表示したいです。 文字列の順番はランダムです。 excel2002なので、3種類までなら条件付き書式で設定できるのですが、それを超える場合は設定できません。 それで、これをマクロで設定できるでしょうか。 条件付き書式で設定した場合は、文字列を入力した時点でセルの色はすぐに反映されますが、マクロの場合もそのようにすることは可能でしょうか。 よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows11 【2 Excelのバージョン 　 】 office365 【3 VBAが使えるか　 　 .】 はい 【4 VBAでの回答の可否】 否 subtotalの結果をさらにsubtotalで参照すると、 計算対象から外れてしまうのですが これはなぜでしょうか？ https://i.imgur.com/HIlBHVM.png 仕様でしょうか

このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がお見えでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　また私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、１列×２５行の中に数字が１～31まであり、 　重複数字を含んで昇順に並んでおり、それが４列あります。 　１列毎に数字を見て以下の条件にあえばセルを塗り潰します。 　　２個重複⇒セルを黄色に塗り潰す。 　　３個重複⇒セルを青色に塗り潰す。 　　４個重複⇒セルを緑色に塗り潰す。 　　５個重複⇒セルを赤色に塗り潰す。 　 上記を実現する方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・1列×２５行の中にある数字の並びは毎回異なります。 　　・1列×２５行の中に重複数字が無い場合があります。（例：Ａ列） 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がお見えでしたら回答よろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　また私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、1行×２５列の中に数字が１～31まであり、重複して入っています。 これが４行あります。 　これをまとめて、縦に数字を昇順に並び替える方法をＶＢＡで実現する方法が知りたいです。 　（添付図はわかりやすくするためにセルに色をつけてますが、実際は無くてもＯＫです。 　 【注意事項】 　　・１行×２５列の中にある数字の並び毎回異なります。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

プルダウンに123456.....と数字の候補を出す方法を教えてください 手入力で全部せずにパッと簡単にできる方法 だいたい100くらいまで欲しいです

Excelの２つのBOOKの項目が同じリストのデータを統合できるVBAを教えてください。項目は、処理結果、金額、年月日、番号、品名の５項目がA列～E列まででデータは複数行あります。VBAは初心者です。どうぞよろしくお願いいたします。

スプレッドシート→エクセルに同期をしております。 データの読み込みをWEBから行う際に、スプレッドシートのままの書式を〇〇コピーしたいのですが、やり方をアドバイス頂けないでしょうか？ 勝手に白と緑が交互のセルになるのですが、スプレッドシートから完全コピーの書式にしたいです。

以下のようなテキストファイルを CHAPTER01=0:00:00.000 CHAPTER01NAME=test_001 CHAPTER02=0:04:02.719 CHAPTER02NAME=test_456 CHAPTER03=0:08:33.859 CHAPTER03NAME=test_741 下記のようなフォーマットにEXCELのVBAを利用して変更してテキストファイルで書き出したい 最初のモデルになるようなマクロコードを教えてください。 1 00:00:00,000 --> 00:00:10.000 test_001 2 00:04:02,719 --> 00:04:12.719 test_456 3 00:08:33,859 --> 00:08:43.859 test_456 このように、番号、開始時間と終了時間、テキストの3つの要素があります。 時間は時:分:秒,ミリ秒の形式で表されます。 各要素は空白行で区切られます。 終了時間=開始時間+10秒(00:00:10.000) ’---------------------------- 一応、何とか自前でコードは完成しましたが 運用上は問題なのですが算数的にはおこしな事になっています。 以下でDtime（10秒）を加算していますが ws2.Cells(i, "B") = DateAdd("s", Dtime, ws2.Cells(i, "A")) ws2.Cells(i, "A")　が　0:04:02.719　だとすると 0:04:12.719　になるはずが 実際は、ws2.Cells(i, "B")　は　 0:04:13.000　と小数点以下がゼロになっています。 訂正を及びコードに関してアドバイスあればお願いします。 Option Explicit Sub test() Dim ws1 As Worksheet, ws2 As Worksheet Dim ls As Long, i As Long Set ws1 = Worksheets("DATA") Set ws2 = Worksheets("Convert") ls = ws1.Cells(Rows.Count, "A").End(xlUp).Row Dim txt As String Dim Dtime As String ws2.Cells.Clear ws2.Columns("A").NumberFormatLocal = "h:mm:ss.000" ws2.Columns("B").NumberFormatLocal = "h:mm:ss.000" For i = 1 To ls Step 2 '開始時間 txt = ws1.Cells(i, "A").Value ws2.Cells(i, "A") = Mid(txt, InStr(txt, "=") + 1) '表示時間指定　（任意） Dtime = 10 '終了時間 ws2.Cells(i, "B") = DateAdd("s", Dtime, ws2.Cells(i, "A")) '開始時間に10秒を加算 '時間部（開始 --> 終了) ws2.Cells(i, "C") = ws2.Cells(i, "A").Text & " --> " & ws2.Cells(i, "B").Text 'Title txt = ws1.Cells(i + 1, "A").Value ws2.Cells(i + 1, "C") = Mid(txt, InStr(txt, "=") + 1) Next 'Plane Text 保存 ----------------- Dim R_data As Integer '行番号 R_data = 1 Open "C:\Users\ABC\Desktop\Plane_text.txt" For Output As #1 Do While ws2.Cells(R_data, "C") <> "" Print #1, ws2.Cells(R_data, "C") If R_data Mod 2 = 0 Then '2の倍数のとき Print #1, "" '空白行を出力 End If R_data = R_data + 1 Loop Close #1 End Sub ’---------------------------------