Excel（エクセル）

このカテゴリーのエクセルの達人の方々に質問です。 どなたか回答して頂ける方がおみえでしたらよろしくお願いします。 （ちゃんとした回答ではなく、文句やクレーム等を混ぜた記載はご遠慮ください。 　私の質問が気に入らない場合は無視して頂ければ結構です。） 【質問】 　添付図のとおり、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） 試しにテーブルと同じシート内で同じ操作を行うと、構造化参照は可能でした。 なにか設定の問題でしょうか？

CODE128のCODE-Aのバーコードを作りたいのですが プロパティにCODE-A、B、Cなどを設定するところがありません エクセル2003のバーコードコントロール9.0です

Excle365立ち上がりを早くするには？ Excleファイルをクリックした後、立ち上がりが遅いので早くしたい。 パソコン内部？Excle内部で改善できますか？ tempファイル等は削除していますが・・？ win10 32bit メモリ8GB

テキストファイルの　テキスト.txtにおいて 文字列が <a>A<b>B という文字列があるとしまして エクセルマクロを使って エクセルファイルのM.xlsxを作成して そのエクセルファイルのA1セルに テキスト.txtの 文字Aをコピーし また同様に M.xlsxのエクセルファイルのB1セルにテキスト.txtの 文字Bをコピーする そういう操作をするVBAコードを 御教示いただけますでしょうか よろしくお願い致します win10 office365

連続しない複数行にランダムに含まれているとある文字をカウントしたくて、カウントイフを＋でつなげて数式を組みました。 2か所くらい、画面上で数えた数と、数式が出した数が一致しない所がありました。よく知らないうちにセル何にスペースが入っていて文字がうまくカウントされないことがあるのは知っていたので、そこは置換で削除してあります（そもそも、スペースは入っていませんでした）。しかし、どうしても、目視と数式の数が一致せず、結局全部入力し直したら、一致しました。これって原因なんだと思いますか？参照先や数式の誤りはありません。セル内のスペースもありません。 膨大なデータなので、こういうことがあるととても困るんですよね…

エクセルのデータをアクセスのテーブルに移動入力するVBA フォルダAにおいて、a1.xlsxというファイルがあり、 そのsheet1のセル（a,1）=1 A1が1　とします その値をアクセスのデータベース（これもフォルダAにあります） 　b.accdbのテーブル1の フィールド1に入力したいときの エクセルマクロのVBAを御教示いただけると助かります さらに続けて フォルダAにおいて、a2.xlsxというファイルがあり、 そのsheet1のセル（a,1）=2 A1が2　とします その値をアクセスのデータベース上記と同じ 　b.accdbのテーブル1の フィールド1に追加で入力したいときの エクセルマクロのVBA 以上わかると助かります よろしくお願いします win10 office365

テーブルの任意の行のデータを削除し、空白削除ボタン（cmd_Blank）をクリックすると削除したデータ行（空白行）を削除するVBAを作ったのですが空白行が１つの場合は問題なく動作するのですが（添付左）、 ・空白セルがあるとその行がすべて削除されてしまう（添付中央）。 ・空白行が２つ以上あるとエラーになってしまう（添付右） という問題に悩んでいます。 空白削除ボタンクリック時のコードは Private Sub cmdBlank_Click() ActiveSheet.ListObjects("T住所").DataBodyRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub になります。 添付の図がわかりにくいかと思いますが、ボタンクリックすると テーブル内の空白行があったら、その行のみ削除され、上詰めに したいということです。 どなたか教えていただきたいです。

１５人分の複数のシートがあります。１人１枚なのですが両面と片面が混在しています。まとめて両面印刷しても各人１枚ずつに分かれる方法を教えて下さい。

エクセルファイル複数の結合について 例えばAフォルダに１０個のエクセルファイル　xmlが あったとして、各ファイルは行は１行　列は２０列あります これらの各データをひとつの　あ.xlsxに　データを結合するときに 調べたところ、データのタブを開きデータの取得　ファイルから　一番下の(フォルダから)に行き、そこをクリックしてAフォルダを選択し　左下のコンボボックスの（データの結合と変換）をクリックすると一覧がでます　ここからがご質問ですが　サンプルを示す画面がまずは出てきますが　このサンプルにおいては列の数が８列のH列までしかでなくて、実際にさらに進めると　サンプルだけでなく　集計された結果も列は８列までしか出ません　もとのAフォルダにあるxmlファイルは２０列ありますが　９列目以降が結合結果に表示されません　ここをすべて　表示するための操作を御教示頂ければ助かります　よろしくお願いします　win10 office365

Excel～Microsoft365　での現象です。 ・xlsmファイルに簡単なマクロ（印刷するといったシンプル）を組んで使用しています。 ①使用していると、上書き保存ができなくなり、 　「○○の保存中にエラーが検出されました。いくつかの機能を削除修復することにより、ファイルを保存できる場合があります。新しいファイルで修復を実行するには、［続行］をクリックしてください。ファイルの保存を中止するには、［キャンセル］をクリックしてください。」 　と出ます。これが出ると、上書き保存も名前をつけて保存もまったくできなくなります。 ②　①の現象がでると、「マクロの表示」でマクロが表示されなくなります。 　　VABの画面では普通に表示されるファイルもあれば、固まったかのように表示されないファイルもあります。 これが複数のＰＣで起こり始めているので困っています。

エクセル初心者です。 画像のような表から、令和3年度の人事部の事業費を抽出したい場合の関数を教えてください。 V LOOK UPの複数条件で、= VLOOKUP（G4&G5&G6,A2:E7,5,FALSE）を入力してみましたがエラーになります。。 D欄の空白が原因でしょうか？

パソコン教室でワードとエクセルを習いたくていくつか体験に行っているのですが、両方のバージョンが2019で10万円ちょっとと、両方2016で5万円ちょっとで習えるのだったらどちらの教室が良いと思いますか？ また、もうひとつ新しいバージョンがあるのかな？と思ったのですが、最新が習える教室を探した方が良いでしょうか？ 全くわからなくて教えてほしいです。