Excel（エクセル）

エクセルのデータ セル　A1において 00123456 という数値があったとした場合 エクセルでは先頭左に00が消えてしまうので それが残るようにするために ここでアドバイスを頂き With Range("A1") .NumberFormatLocal = "@" .Value = Format(.Value, "00000000") End With If Left(Range("A1"), 2) = "00" Then Range("A1").Value = Replace(Range("A1").Value, "00", " ") End If 上記で A1には __123456 とでるようにはなったのですが A1が　00120034 という8桁の　真ん中に00が　入る数値ですと __12__34 となってしまいます おそらくReplace(Range("A1").Value, "00", " ") ここの00すべてを読み込むからだとは思います お伺いしたいのは 00120034　みたいな　間に00があるときに 左の00だけ　空白にして　間の00は残すには どうしたら　よろしいでしょうか __120034 と　でるようにしたいわけです 宜しくお願い致します office365 win10

Office365使用 Excelで、セルA1に本日の日付を入れると（今日だと2/29） 2024年2月29日と出るよう、書式設定しています。 B1のセルに「1」と入力すると、A1の日付を用いて 下記のように表記させたいです。 20240229-1 2024年10月10日の場合は、20241010-1 どなたかお詳しい方、ご教授お願い致します。

メルマガのリストを整理しているのですが、O列のメルアドはもう使われていないメルアドのリストなので、一番左のマスタのリストから削除したいのですが、削除するために特定の文字列が別のセルに入っていたら1を入力するなどの関数があれば教えて下さい。 同じ行のメルアドが重複するかどうかではなくて、例えば一番左上の メルアドがO列の下の方に存在している可能性があります。 ですのでシンプルなIF関数では解決できませんでした。 よろしくお願いいたします。

Excelについて質問です。Excelでは表やテーブルなどで複数のグループをまとめて集計する機能はありますが、逆に一つのグループのみ集計できる機能はありますでしょうか?

初めての投稿です。VBA超初心者です。 シート11のA2セルにシート1からDATE関数で取得した日付があり、右のE2～X2セルにシート３～10で取得、まとめたデータがあります。このデータを一ヶ月の日付（シート１から取得したDATE関数で取得）A14～A44から探しその行のE～X列に転記したい また、ファイル保存時に起動するようにと考えてますが行き詰っています。どうかお助け下さい。 よろしくお願いいたします。

windows7です。 エクセルファイルを相手のＦＡＸ機器に送信する方法お願いします。

初心者のためExcelに詳しい方、助けてください。 Excelで集計表を作り、ランダムに入っている項目をA→Z順に並び替え、同じ内容は台数を合計した表を作りたいです。 ・元データが入っているのはシート１の入力表で、結果をシート２の集計表にリアルタイムで表示したいです。 ・並び替える項目は添付画像の「型式」になり8000種類ほどあります。 ・同じ型式はまとめて合計して「台数」に表示したいです。 ・元データは多数の社員により頻繁に追加されていきます。（700を超えました） ・フィルター機能は都度押さないと反映されず使えませんでした。 ・項目数が多すぎるため、VLOOKUPのように特定項目を指定して取り出すのは現実的ではない？ように思えました。 ・元データは触らずにシート２の集計画面に結果をリアルタイムで表示しするための関数　数式を教えて頂きたいです。 いろいろな環境やバージョンが混在していますが ソート関数などが使えない事務用ショボPC Win10のExcel2016　です。

INDEX関数で別のエクセルファイルからデータを取得したい。 現状、ファイルパスを直接指定してデータを取得しておりますが ファイルパスを入力したセルを参照範囲に指定してデータを取得できるようにしたいです。 INDEX関数を入力するエクセルファイルをFile①、 別のエクセルファイルをFile②とする。 File②のファイルパスをFile①のA1セルに入力し、 INDEX関数の引数にA1を指定してデータを取得することはできますか？

初心者のため教えてください m(__)m 現在VBAにて処理を簡単にしたいと考えております やりたいことは、同一フォルダ「TEST」に20個ほど.xlsxファイルがあります。 そのそれぞれのブックにはシートが４つに分かれており「data」という シートのA3～AU3のデータを集約.xlsmの「まとめ」というシートに転記したいです。 また、 ・追記するされる際に一番左側（A）には番号を自動で振りたい。（1.2.3.4.....） ・データはB2から貼り付け、最終行にどんどん追記されるようにしたい ・ファイルを開かずに実行したい ・最後に転記完了のメッセージを出したい いろいろとサイトで調べているのですがなかなか進まず助けて頂けると幸いです。 よろしくお願いいたします

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

VBA初心者です。 デスクトップ上にあるフォルダ内にあるpdfデータをペアで結合したいのですが、CubePDFで結合した内容がマクロの記録ではコードが記録されませんでした。 やりたい内容として ①フォルダ内には「202401-A社」「202401-A社-2」のように、同じ名前のファイルがペアで300ほど入っている。 ②「202401-A社」を資料１、「202401-A社-2」を資料２とした場合に、 資料１の後に資料２を結合したい。 ③アクロバットリーダープロなどの有料版は利用出来ない。 ④アクロバットリーダー以外でインストールされているソフトCubePDFだけです。 色々検索してみたのですが、CubePDFを使用してPDF ファイルをペアで結合するコードを探し出すことができませんでした。 なお、使用環境は ・Windows10 64ビット ・ Office2016 となります。 初心者には難しい内容であることは重々承知しておりますが、どなたかご教示いただけますでしょうか。 よろしくお願いいたします。

このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がおみえでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、35列×6行の中に数字が１～37まであり、 　重複数字を含んでおります。また、AL列とAM列は54行で、 　数字が１～37まであり重複数字を含んでおります。 　AL1とAM1の２つの値で、35列×6行の中を検索して一致したら 　セルを黄色に塗り潰します。これを、AL列とAM列の 　最終行（54行目）まで繰り返します。 　上記を実現する方法をＶＢＡで実現する方法が知りたいです。 　 【注意事項】 　　・35列×6行の中にある数字の並びは毎回異なります。 　　・枠線や塗り潰しの黄色、検索対象～、検索値～は説明の 　　　ために付けているだけです。 　　・AL列とAM列は２つで１つの値として昇順に並んでいます。 　　・ＶＢＡで実現する方法～、と書きましたが、 　　　同様のことが他の方法でも実現できればそれを教えて下さい。 　　・使用するエクセルは２０２１です。 以上、よろしくお願いします。

パソコンに不慣れなため、質問がわかりづらかったら申し訳ありません。 えくせるの条件付き書式を行いたいのですが、 E列とH列の値が不一致ならばE列の値セルに塗りつぶしを行いたいです。 ただし、H列の値は手入力ではなく、vlookupで検索した結果を表示しています。 手入力の場合であれば、塗りつぶしが出来ましたが検索結果の場合は、条件付き書式は設定できないのでしょうか。 知識が乏しく申し訳ありませんが、ご回答よろしくお願いいたします。

現在、以下のようなコードでA列のファイル名に指定の不要文字が含まれる場合、削除して変名を行っています。 エラーは出ないのですが、同名チェックが想定と違うのか上手く処理できていません。 具体的には、 不要文字が無いのに(１)が追加されて変名される場合があります。 不具合の原因が判るでしょうか？ Option Explicit Sub ファイル変更_部分削除() Dim Fso As Object 'FileSystemObject Dim Folder As Object 'Folder Dim File As Object 'File Dim FolderPath As String 'フォルダパス Dim Target As Variant '削除したい文字列 Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = Worksheets("Target") Set ws2 = Worksheets("DEL") 'FileSystemObjectを作成 Set Fso = CreateObject("Scripting.FileSystemObject") 'フォルダパスを指定 FolderPath = "C:\Target\" 'Folderオブジェクトを取得 Set Folder = Fso.GetFolder(FolderPath) Worksheets("Target").Cells.Clear ws1.Range("A1") = "修正後のファイル名" ws1.Range("A1").Font.Bold = True ws1.Range("B1") = "拡張子" ws1.Range("B1").Font.Bold = True ws1.Range("C1") = "元ファイル名_退避" ws1.Range("C1").Font.Bold = True Dim ext As String Dim num As Long num = 2 For Each File In Folder.Files ext = Fso.getextensionname(File.Name) Select Case ext Case "ts", "mkv", "mp4" '元ファイル名及び同拡張子を出力 ws1.Cells(num, "A").Value = Fso.GetBaseName(File.Name) ws1.Cells(num, "B").Value = Fso.getextensionname(File.Name) num = num + 1 Case Else End Select Next Dim lc1 As Long, lc2 As Long lc1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row '最終行番号の取得 lc2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row '元ファイル名を退避 ws1.Range(ws1.Cells(2, "A"), ws1.Cells(lc1, "A")).Copy ws1.Cells(2, "C").PasteSpecial ws1.Columns("A:C").AutoFit '-------------------------------------------------------- 'Replacedメソッド / ワイルドカードを使って置換() Dim DelMojis As String '指定文字列を格納する変数 Dim i As Long Dim Fix1 As String For i = 2 To lc2 With ws1 .Range(.Cells(2, "A"), .Cells(lc1, "A")).Replace what:=Fix1, Replacement:="", LookAt:=xlPart End With Next For i = 2 To lc2 DelMojis = ws2.Cells(i, "B") '指定文字列を変数に代入 With ws1 .Range(.Cells(2, "A"), .Cells(lc1, "A")).Replace what:=DelMojis, Replacement:="", LookAt:=xlPart End With Next '---------------------------------------- 'ファイル名変更 Dim OldName As String '元のファイル名 Dim NewName As String '新しいファイル名 For i = 2 To lc1 With ws1 OldName = FolderPath & .Cells(i, "C") & "." & .Cells(i, "B") NewName = FolderPath & .Cells(i, "A") & "." & .Cells(i, "B") End With With Fso 'fso=CreateObject("Scripting.FileSystemObject") '移動先に同名のファイルがあるかチェック If .FileExists(NewName) Then ' 同名がある場合は、NewNameの最後に(1)を追加する Dim k As Long k = InStrRev(NewName, ".") NewName = Left(NewName, k - 1) & "(1)" & Right(NewName, Len(NewName) - k + 1) .MoveFile OldName, NewName Else 'ファイルを移動 .MoveFile OldName, NewName End If End With '-------------------------- Next End Sub

スマホ写真をExcelに入れてセルを使用したり挿入の図形から文字を入れています 画像の編集から文字を入れるといわゆる手書きの状態です、キーボードからの活字での書き込み方をお願いいたします

ExcelのUserForm内のListViewで文字位置を設定しようと思いますが、ヘッダー行とデータ行で位置が連動しているようです。 ヘッダー行はすべてセンター、データ行は文字は左、数値は右という風にはできないのでしょうか？ よろしくお願いいたします。

論文用に急遽検定を行うことになりました．先生からχ二乗検定が良いと言われ，右の件数のグラフについては調べながらχ二乗検定を行えました．しかし左についてもやれと言われ，調べたのですがよく分かりません．誰か左のグラフでのやり方を教えていただけないでしょうか？右のグラフは全体αに対して当てはまるβの件数であり，左のグラフはA1の場合，A1のβ/A1の総数，B2の場合B2のβ/B2の総数で求めた割合になります．件数や割合については適当に作ったものなので間違いがあると思うのですが，一度この数字でやり方を教えてください！

windows7です。 エクセルシートに「挿入」--「オブジェクト」でPDFファイル貼り付けたら添付画像のように網目模様が入りました。模様無しで貼り付けるにはどうすればいいでしょうか？

Excelで、いわゆる「文字化け」を検出する方法はありますか。 例えば、列方向にダーっと文字データが並んでいて、そのセルの中に文字化けがあれば、その右側のセルに○を付けて(設定して)くれる、以下のような。（には、実際には色々な文字化けデータが入ります） 高橋広 ○ 浜田信二 中井子 ○ 山田太郎 中西太 ○

Excelで別シートにあるテーブルの構造化参照ができません。 365を使っており、PCを変えました。 以前のPCでは数式を入力する際に別シートのテーブルの範囲をマウスで囲ってやれば構造化参照されました。（台帳T[[管理No兼報告書]:[備考]]） しかし新しいPCに変えると同じ操作をしてもセル番地での指定しか出来ません。（台帳!C2:F7） 試しにテーブルと同じシート内で同じ操作を行うと、構造化参照は可能でした。 なにか設定の問題でしょうか？