HohoPapa の回答履歴

エクセルに下のようなボタンマクロを設定しています。 内容は、inpシートに設定している開始番号と終了番号を入力するとその番号分だけreceptシートのでーたを入れ替えてPDFで吐き出すというコードです。 問題なく動いていたのですが、先日、PCを入れ替えた際に確認したところ、pdfが出力されなくなりました。特にエラーはでることなく完了するのですがファイルができません。 変な質問ですが、原因がつかめず困っております。 このエクセルファイルは旧PCでも、新PCでもSDカードに保存して使用しております。 宜しくお願い致します。 Sub ボタン6_Click() Dim s As Long Dim e As Long Dim i As Long Dim outputFilePath As String Dim outputFileName As String On Error Resume Next s = InputBox("開始No.を入力して下さい。") If s = 0 Then Exit Sub e = InputBox("終了No.を入力して下さい。") If e = 0 Then Exit Sub ' PDFの保存先フォルダを指定する outputFilePath = Environ("USERPROFILE") & "\Desktop\" For i = s To e ' 出力するファイル名を指定する outputFileName = "recept_" & i & ".pdf" ' 対象の番号を設定する Worksheets("Inp").Range("C1").Value = i ' PDF出力を行う With Worksheets("Recept").Range("A36:J74") .ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=outputFilePath & outputFileName, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End With ' 作成したファイル名を表示する MsgBox "PDFファイルを作成しました: " & outputFilePath & outputFileName Next i End Sub

大変お世話になっております。 ホルダーに保存した複数データ(Excel形式)の指定した列のデータを1つの出力ファイルへ追記する為に、EXCELのマクロを使用しております。マクロは手動で起動させています。 今回、ご教示を頂きたい事は、以下の2点になります。 ①出力データは、マクロファイル内のシートへ保存する設定にしていますが、別ホルダーの別ファイルの別シートへデータを出力出来るようにし、出力は1行おきに色を付けたい。 　 ②更に、マクロは手動で起動させていますが、タスクマネージャーに入れてマクロファイルを登録し、決められた時間に出力ファイルを作成したい。 　 マクロは全くの初心者で、どの部分を修正すれば、 ①が実行出来るようになるのか、色々とネットで検索しながら、 スクリプトを変更して見ましたが、できませんでした。 先ずは、①についてご教示頂けないでしょうか。 下記コードはマクロ内のシートへデータ出力である事はわかるのですが、どのように変更すべきなのかわからず大変困っております。 　　　　Set O = ThisWorkbook.ActiveSheet 　　　　 以下に、現在使用しているマクロを記載させて頂きました。　 Sub Macro1() Dim O As Worksheet Dim FileName As String Dim ROut As Long Dim REnd As Long Cells(1, "A") = "個人番号" Cells(1, "A").EntireColumn.ColumnWidth = 15 Cells(1, "B") = "職員番号" Cells(1, "B").EntireColumn.ColumnWidth = 15 Cells(1, "C") = "氏名" Cells(1, "C").EntireColumn.ColumnWidth = 15 Cells(1, "D") = "所属/拠点" Cells(1, "D").EntireColumn.ColumnWidth = 15 Cells(1, "E") = "所属/グループ" Cells(1, "E").EntireColumn.ColumnWidth = 15 Cells(1, "F") = "役職" Cells(1, "F").EntireColumn.ColumnWidth = 15 Cells(1, "G") = "開始年月日" Cells(1, "G").EntireColumn.ColumnWidth = 15 Cells(1, "H") = "終了年月日" Cells(1, "H").EntireColumn.ColumnWidth = 15 Cells(1, "I") = "申告" Cells(1, "I").EntireColumn.ColumnWidth = 15 Cells(1, "J") = "判定1" Cells(1, "J").EntireColumn.ColumnWidth = 15 Cells(1, "K") = "判定2" Cells(1, "K").EntireColumn.ColumnWidth = 15 Cells(1, "L") = "判定3" Cells(1, "L").EntireColumn.ColumnWidth = 15 Cells(1, "M") = "判定4" Cells(1, "M").EntireColumn.ColumnWidth = 15 Cells(1, "N") = "判定5" Cells(1, "N").EntireColumn.ColumnWidth = 15 ' Set O = ThisWorkbook.ActiveSheet FileName = Dir(ThisWorkbook.Path & "\参加者_*.xlsx") Range("A2:N" & Rows.Count).ClearContents ActiveSheet.CheckBoxes.Delete ROut = 2 Application.ScreenUpdating = False ' Do While FileName > "" Workbooks.Open ThisWorkbook.Path & "\" & FileName, False, True FileName = Replace(FileName, ".xlsx", "") ' If ROut < 8 Then Rows("1:" & 8 - ROut).Delete ElseIf ROut > 8 Then Rows("8:" & ROut - 1).Insert End If REnd = Cells(Rows.Count, "C").End(xlUp).Row O.Range("A" & ROut, "A" & REnd) = Mid(FileName, 7) Range("B" & ROut, "H" & REnd).Copy O.Range("B" & ROut) Range("N" & ROut, "N" & REnd).Copy O.Range("I" & ROut) Range("Q" & ROut, "U" & REnd).Copy O.Range("J" & ROut) ROut = REnd + 1 ActiveWorkbook.Close False FileName = Dir Loop ' Range("A1").Select ' Range("A1").CurrentRegion.ClearFormats ' ActiveSheet.ListObjects.Add SourceType:=xlSrcRange, Source:=ActiveSheet.Range("A1").CurrentRegion '数値へ変換 Range("B:B").Value = Range("B:B").Value Range("B:B").Replace What:=vbTab, Replacement:="" MsgBox ("完了です") End Sub

エクセルに下のようなボタンマクロを設定しています。 内容は、inpシートに設定している開始番号と終了番号を入力するとその番号分だけreceptシートのでーたを入れ替えてPDFで吐き出すというコードです。 問題なく動いていたのですが、先日、PCを入れ替えた際に確認したところ、pdfが出力されなくなりました。特にエラーはでることなく完了するのですがファイルができません。 変な質問ですが、原因がつかめず困っております。 このエクセルファイルは旧PCでも、新PCでもSDカードに保存して使用しております。 宜しくお願い致します。 Sub ボタン6_Click() Dim s As Long Dim e As Long Dim i As Long Dim outputFilePath As String Dim outputFileName As String On Error Resume Next s = InputBox("開始No.を入力して下さい。") If s = 0 Then Exit Sub e = InputBox("終了No.を入力して下さい。") If e = 0 Then Exit Sub ' PDFの保存先フォルダを指定する outputFilePath = Environ("USERPROFILE") & "\Desktop\" For i = s To e ' 出力するファイル名を指定する outputFileName = "recept_" & i & ".pdf" ' 対象の番号を設定する Worksheets("Inp").Range("C1").Value = i ' PDF出力を行う With Worksheets("Recept").Range("A36:J74") .ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=outputFilePath & outputFileName, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End With ' 作成したファイル名を表示する MsgBox "PDFファイルを作成しました: " & outputFilePath & outputFileName Next i End Sub

大変お世話になっております。 ホルダーに保存した複数データ(Excel形式)の指定した列のデータを1つの出力ファイルへ追記する為に、EXCELのマクロを使用しております。マクロは手動で起動させています。 今回、ご教示を頂きたい事は、以下の2点になります。 ①出力データは、マクロファイル内のシートへ保存する設定にしていますが、別ホルダーの別ファイルの別シートへデータを出力出来るようにし、出力は1行おきに色を付けたい。 　 ②更に、マクロは手動で起動させていますが、タスクマネージャーに入れてマクロファイルを登録し、決められた時間に出力ファイルを作成したい。 　 マクロは全くの初心者で、どの部分を修正すれば、 ①が実行出来るようになるのか、色々とネットで検索しながら、 スクリプトを変更して見ましたが、できませんでした。 先ずは、①についてご教示頂けないでしょうか。 下記コードはマクロ内のシートへデータ出力である事はわかるのですが、どのように変更すべきなのかわからず大変困っております。 　　　　Set O = ThisWorkbook.ActiveSheet 　　　　 以下に、現在使用しているマクロを記載させて頂きました。　 Sub Macro1() Dim O As Worksheet Dim FileName As String Dim ROut As Long Dim REnd As Long Cells(1, "A") = "個人番号" Cells(1, "A").EntireColumn.ColumnWidth = 15 Cells(1, "B") = "職員番号" Cells(1, "B").EntireColumn.ColumnWidth = 15 Cells(1, "C") = "氏名" Cells(1, "C").EntireColumn.ColumnWidth = 15 Cells(1, "D") = "所属/拠点" Cells(1, "D").EntireColumn.ColumnWidth = 15 Cells(1, "E") = "所属/グループ" Cells(1, "E").EntireColumn.ColumnWidth = 15 Cells(1, "F") = "役職" Cells(1, "F").EntireColumn.ColumnWidth = 15 Cells(1, "G") = "開始年月日" Cells(1, "G").EntireColumn.ColumnWidth = 15 Cells(1, "H") = "終了年月日" Cells(1, "H").EntireColumn.ColumnWidth = 15 Cells(1, "I") = "申告" Cells(1, "I").EntireColumn.ColumnWidth = 15 Cells(1, "J") = "判定1" Cells(1, "J").EntireColumn.ColumnWidth = 15 Cells(1, "K") = "判定2" Cells(1, "K").EntireColumn.ColumnWidth = 15 Cells(1, "L") = "判定3" Cells(1, "L").EntireColumn.ColumnWidth = 15 Cells(1, "M") = "判定4" Cells(1, "M").EntireColumn.ColumnWidth = 15 Cells(1, "N") = "判定5" Cells(1, "N").EntireColumn.ColumnWidth = 15 ' Set O = ThisWorkbook.ActiveSheet FileName = Dir(ThisWorkbook.Path & "\参加者_*.xlsx") Range("A2:N" & Rows.Count).ClearContents ActiveSheet.CheckBoxes.Delete ROut = 2 Application.ScreenUpdating = False ' Do While FileName > "" Workbooks.Open ThisWorkbook.Path & "\" & FileName, False, True FileName = Replace(FileName, ".xlsx", "") ' If ROut < 8 Then Rows("1:" & 8 - ROut).Delete ElseIf ROut > 8 Then Rows("8:" & ROut - 1).Insert End If REnd = Cells(Rows.Count, "C").End(xlUp).Row O.Range("A" & ROut, "A" & REnd) = Mid(FileName, 7) Range("B" & ROut, "H" & REnd).Copy O.Range("B" & ROut) Range("N" & ROut, "N" & REnd).Copy O.Range("I" & ROut) Range("Q" & ROut, "U" & REnd).Copy O.Range("J" & ROut) ROut = REnd + 1 ActiveWorkbook.Close False FileName = Dir Loop ' Range("A1").Select ' Range("A1").CurrentRegion.ClearFormats ' ActiveSheet.ListObjects.Add SourceType:=xlSrcRange, Source:=ActiveSheet.Range("A1").CurrentRegion '数値へ変換 Range("B:B").Value = Range("B:B").Value Range("B:B").Replace What:=vbTab, Replacement:="" MsgBox ("完了です") End Sub

大変お世話になっております。 ホルダーに保存した複数データ(Excel形式)の指定した列のデータを1つの出力ファイルへ追記する為に、EXCELのマクロを使用しております。マクロは手動で起動させています。 今回、ご教示を頂きたい事は、以下の2点になります。 ①出力データは、マクロファイル内のシートへ保存する設定にしていますが、別ホルダーの別ファイルの別シートへデータを出力出来るようにし、出力は1行おきに色を付けたい。 　 ②更に、マクロは手動で起動させていますが、タスクマネージャーに入れてマクロファイルを登録し、決められた時間に出力ファイルを作成したい。 　 マクロは全くの初心者で、どの部分を修正すれば、 ①が実行出来るようになるのか、色々とネットで検索しながら、 スクリプトを変更して見ましたが、できませんでした。 先ずは、①についてご教示頂けないでしょうか。 下記コードはマクロ内のシートへデータ出力である事はわかるのですが、どのように変更すべきなのかわからず大変困っております。 　　　　Set O = ThisWorkbook.ActiveSheet 　　　　 以下に、現在使用しているマクロを記載させて頂きました。　 Sub Macro1() Dim O As Worksheet Dim FileName As String Dim ROut As Long Dim REnd As Long Cells(1, "A") = "個人番号" Cells(1, "A").EntireColumn.ColumnWidth = 15 Cells(1, "B") = "職員番号" Cells(1, "B").EntireColumn.ColumnWidth = 15 Cells(1, "C") = "氏名" Cells(1, "C").EntireColumn.ColumnWidth = 15 Cells(1, "D") = "所属/拠点" Cells(1, "D").EntireColumn.ColumnWidth = 15 Cells(1, "E") = "所属/グループ" Cells(1, "E").EntireColumn.ColumnWidth = 15 Cells(1, "F") = "役職" Cells(1, "F").EntireColumn.ColumnWidth = 15 Cells(1, "G") = "開始年月日" Cells(1, "G").EntireColumn.ColumnWidth = 15 Cells(1, "H") = "終了年月日" Cells(1, "H").EntireColumn.ColumnWidth = 15 Cells(1, "I") = "申告" Cells(1, "I").EntireColumn.ColumnWidth = 15 Cells(1, "J") = "判定1" Cells(1, "J").EntireColumn.ColumnWidth = 15 Cells(1, "K") = "判定2" Cells(1, "K").EntireColumn.ColumnWidth = 15 Cells(1, "L") = "判定3" Cells(1, "L").EntireColumn.ColumnWidth = 15 Cells(1, "M") = "判定4" Cells(1, "M").EntireColumn.ColumnWidth = 15 Cells(1, "N") = "判定5" Cells(1, "N").EntireColumn.ColumnWidth = 15 ' Set O = ThisWorkbook.ActiveSheet FileName = Dir(ThisWorkbook.Path & "\参加者_*.xlsx") Range("A2:N" & Rows.Count).ClearContents ActiveSheet.CheckBoxes.Delete ROut = 2 Application.ScreenUpdating = False ' Do While FileName > "" Workbooks.Open ThisWorkbook.Path & "\" & FileName, False, True FileName = Replace(FileName, ".xlsx", "") ' If ROut < 8 Then Rows("1:" & 8 - ROut).Delete ElseIf ROut > 8 Then Rows("8:" & ROut - 1).Insert End If REnd = Cells(Rows.Count, "C").End(xlUp).Row O.Range("A" & ROut, "A" & REnd) = Mid(FileName, 7) Range("B" & ROut, "H" & REnd).Copy O.Range("B" & ROut) Range("N" & ROut, "N" & REnd).Copy O.Range("I" & ROut) Range("Q" & ROut, "U" & REnd).Copy O.Range("J" & ROut) ROut = REnd + 1 ActiveWorkbook.Close False FileName = Dir Loop ' Range("A1").Select ' Range("A1").CurrentRegion.ClearFormats ' ActiveSheet.ListObjects.Add SourceType:=xlSrcRange, Source:=ActiveSheet.Range("A1").CurrentRegion '数値へ変換 Range("B:B").Value = Range("B:B").Value Range("B:B").Replace What:=vbTab, Replacement:="" MsgBox ("完了です") End Sub

罫線が引かれた右下に移動はどのキーでしますか？

この１個前で質問させて頂きましたが、上手く伝わりませんでしたので、今1度説明させて頂きます。 0~6000秒間で、タンク内にガスを注入し続けて、圧力の変化を観察しました。 ※圧力の変化については、ここが本題では無いので無視して下さい。 時間は、0秒▶︎0.01秒▶︎0.02秒▶︎0.03秒…と順々にカウントして、6000秒まで測定を行いました。 測定データをExcelのA行に時間(秒)、B行に圧力値を記入しまとめました。 そこから、グラフを作っていくのですが、ちょっとExcelを触ろうとするならば、フリーズしてしまいます。 そこで、時間の数値で、小数点以下2桁を持っている数字は全て削除したいです。 例)0.01、20.59、300.45、1000.67等を消去。0.1、10.2、300.5、100.1は残したい。 です。 一気に整理する方法を教えて下さい。

Excel2013で作成されている大きな表があります（最終行が4000位）。そのうちAA列に「A003」「H072」（アルファベットが小文字の場合もあります）など最初の文字がアルファベットで後の3文字は数字の3桁のコードが入っている行を抜き出したいです。 AA列は、空欄のセルもありますし、コードの前や後に「NXE010025021」など別の数字が入っているセルもあります。 アドバイス頂けましたら幸いです。 宜しくお願い致します。

添付ファイルの2軸グラフですが、棒グラフの幅はそのままで、 日にちの間隔を詰めることできますか？ 棒グラフを太くしたり小さくしたりや、棒と棒の間を広げて狭くするのは無しです。棒グラフ自体を全体に左に詰めたいのです。 エクセルは2019です。 よろしくお願いします。

いつからかセルに「2023/5/28」と入力しようとすると表示は「2023-5-28」となります。素直に「2023/5/28」と表示したいのでが・・・。 ユーザー定義でyyyy/mm/ddなどにすればセルには素直に表示されますが、入力欄は「/」から「-」に変更されてしまいます。 どうすれば「/」は「/」になるのかご教示願います。

過去の質問タイトル『複数EXCELファイル中のデータを1つのファイルへ』、『複数ファイルのデータを1つのファイルへ纏めるマクロ』で大変お世話になっている者です。 HohoPapaさんからご教示頂きましたコードで、チェックボックス以外の値については、出力ファイルへ正常に纏める事が出来ました。 　更にお伝えして、入力ファイル中のチェックボックス(リンク設定有り)を出力ファイルへ吐き出すマクロのコードをご教示頂きたく質問させて頂きました。 奥が深く、私にはコードを修正出来るだけの力が有りません。 どうか、お教え下さるようお願いいたします。 ・入力ファイルの記載フォーマットは以下の通りになります。 B列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より (出力ファイルには数値として吐き出したいが、入力ファイル中の記載は所々数値以外の形式で記載されている) 数値形式でない記載を数値形式で吐き出すのは困難である為、そのまま吐き出し。 C列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より D列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より E列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より F列＝出力ファイルに付けるタイトルは5行目、データは8行目以降より G列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より出力ファイルへは、日付表示で吐き出し。 H列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より 出力ファイルへは、日付表示で吐き出し。 I列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$Q$8』 J列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$R$8』 K列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$S$8』 L列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"","右欄も要確認")』が入っています。 　　 M列＝リンク設定の有るチェックボックス 　値はオンにチェックがついており、[リンクするセル』＝『$T$8』 N列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"合同設備等利用可能",IF(T8=TRUE,"合同設備等利用可能","内部運営管轄と相談下さい"))』が入っています。 Q列、R列、S列、T列＝8行目以降より『TRUE』、『FLASE』の文字入っている。 出力ファイルの記載フォーマットは以下の通りになります。 1行目のタイトルセルは、 A列＝『参加番号』 B列～K列、N列＝上記の入力ファイルのタイトルから A列:2行目以降＝入力ファイル名の『課題参加者_23RF3001.xlsx』の『23RF3001』を入力ファイルのB列、C列、D列に記載が有る行数分記載。 B列～K列:2行目以降＝上記のB列～K列の入力データから吐き出し N列:2行目以降＝上記のN列の入力データから吐き出し

過去の質問タイトル『複数EXCELファイル中のデータを1つのファイルへ』、『複数ファイルのデータを1つのファイルへ纏めるマクロ』で大変お世話になっている者です。 HohoPapaさんからご教示頂きましたコードで、チェックボックス以外の値については、出力ファイルへ正常に纏める事が出来ました。 　更にお伝えして、入力ファイル中のチェックボックス(リンク設定有り)を出力ファイルへ吐き出すマクロのコードをご教示頂きたく質問させて頂きました。 奥が深く、私にはコードを修正出来るだけの力が有りません。 どうか、お教え下さるようお願いいたします。 ・入力ファイルの記載フォーマットは以下の通りになります。 B列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より (出力ファイルには数値として吐き出したいが、入力ファイル中の記載は所々数値以外の形式で記載されている) 数値形式でない記載を数値形式で吐き出すのは困難である為、そのまま吐き出し。 C列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より D列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より E列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より F列＝出力ファイルに付けるタイトルは5行目、データは8行目以降より G列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より出力ファイルへは、日付表示で吐き出し。 H列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より 出力ファイルへは、日付表示で吐き出し。 I列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$Q$8』 J列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$R$8』 K列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$S$8』 L列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"","右欄も要確認")』が入っています。 　　 M列＝リンク設定の有るチェックボックス 　値はオンにチェックがついており、[リンクするセル』＝『$T$8』 N列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"合同設備等利用可能",IF(T8=TRUE,"合同設備等利用可能","内部運営管轄と相談下さい"))』が入っています。 Q列、R列、S列、T列＝8行目以降より『TRUE』、『FLASE』の文字入っている。 出力ファイルの記載フォーマットは以下の通りになります。 1行目のタイトルセルは、 A列＝『参加番号』 B列～K列、N列＝上記の入力ファイルのタイトルから A列:2行目以降＝入力ファイル名の『課題参加者_23RF3001.xlsx』の『23RF3001』を入力ファイルのB列、C列、D列に記載が有る行数分記載。 B列～K列:2行目以降＝上記のB列～K列の入力データから吐き出し N列:2行目以降＝上記のN列の入力データから吐き出し

過去の質問タイトル『複数EXCELファイル中のデータを1つのファイルへ』、『複数ファイルのデータを1つのファイルへ纏めるマクロ』で大変お世話になっている者です。 HohoPapaさんからご教示頂きましたコードで、チェックボックス以外の値については、出力ファイルへ正常に纏める事が出来ました。 　更にお伝えして、入力ファイル中のチェックボックス(リンク設定有り)を出力ファイルへ吐き出すマクロのコードをご教示頂きたく質問させて頂きました。 奥が深く、私にはコードを修正出来るだけの力が有りません。 どうか、お教え下さるようお願いいたします。 ・入力ファイルの記載フォーマットは以下の通りになります。 B列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より (出力ファイルには数値として吐き出したいが、入力ファイル中の記載は所々数値以外の形式で記載されている) 数値形式でない記載を数値形式で吐き出すのは困難である為、そのまま吐き出し。 C列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より D列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より E列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より F列＝出力ファイルに付けるタイトルは5行目、データは8行目以降より G列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より出力ファイルへは、日付表示で吐き出し。 H列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より 出力ファイルへは、日付表示で吐き出し。 I列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$Q$8』 J列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$R$8』 K列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$S$8』 L列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"","右欄も要確認")』が入っています。 　　 M列＝リンク設定の有るチェックボックス 　値はオンにチェックがついており、[リンクするセル』＝『$T$8』 N列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"合同設備等利用可能",IF(T8=TRUE,"合同設備等利用可能","内部運営管轄と相談下さい"))』が入っています。 Q列、R列、S列、T列＝8行目以降より『TRUE』、『FLASE』の文字入っている。 出力ファイルの記載フォーマットは以下の通りになります。 1行目のタイトルセルは、 A列＝『参加番号』 B列～K列、N列＝上記の入力ファイルのタイトルから A列:2行目以降＝入力ファイル名の『課題参加者_23RF3001.xlsx』の『23RF3001』を入力ファイルのB列、C列、D列に記載が有る行数分記載。 B列～K列:2行目以降＝上記のB列～K列の入力データから吐き出し N列:2行目以降＝上記のN列の入力データから吐き出し

お疲れ様です。 単一セル内に3段階プルダウンを作成したいのです。 大、中、小としてまず大の名前をつけ連動させたい中に大の名前をつけて、連動させたい小に大中と名前をつける。 適切に名前を設定した後、入力規則で =if(A2="" indirect("大",indirect(A2)) を入れると2段階は出来るのですが、3段階は出来ません。エクセル初心者なので、3段階用の入力式を教えて下さい。よろしくお願いします。

過去の質問タイトル『複数EXCELファイル中のデータを1つのファイルへ』、『複数ファイルのデータを1つのファイルへ纏めるマクロ』で大変お世話になっている者です。 HohoPapaさんからご教示頂きましたコードで、チェックボックス以外の値については、出力ファイルへ正常に纏める事が出来ました。 　更にお伝えして、入力ファイル中のチェックボックス(リンク設定有り)を出力ファイルへ吐き出すマクロのコードをご教示頂きたく質問させて頂きました。 奥が深く、私にはコードを修正出来るだけの力が有りません。 どうか、お教え下さるようお願いいたします。 ・入力ファイルの記載フォーマットは以下の通りになります。 B列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より (出力ファイルには数値として吐き出したいが、入力ファイル中の記載は所々数値以外の形式で記載されている) 数値形式でない記載を数値形式で吐き出すのは困難である為、そのまま吐き出し。 C列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より D列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より E列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より F列＝出力ファイルに付けるタイトルは5行目、データは8行目以降より G列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より出力ファイルへは、日付表示で吐き出し。 H列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より 出力ファイルへは、日付表示で吐き出し。 I列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$Q$8』 J列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$R$8』 K列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$S$8』 L列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"","右欄も要確認")』が入っています。 　　 M列＝リンク設定の有るチェックボックス 　値はオンにチェックがついており、[リンクするセル』＝『$T$8』 N列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"合同設備等利用可能",IF(T8=TRUE,"合同設備等利用可能","内部運営管轄と相談下さい"))』が入っています。 Q列、R列、S列、T列＝8行目以降より『TRUE』、『FLASE』の文字入っている。 出力ファイルの記載フォーマットは以下の通りになります。 1行目のタイトルセルは、 A列＝『参加番号』 B列～K列、N列＝上記の入力ファイルのタイトルから A列:2行目以降＝入力ファイル名の『課題参加者_23RF3001.xlsx』の『23RF3001』を入力ファイルのB列、C列、D列に記載が有る行数分記載。 B列～K列:2行目以降＝上記のB列～K列の入力データから吐き出し N列:2行目以降＝上記のN列の入力データから吐き出し

過去の質問タイトル『複数EXCELファイル中のデータを1つのファイルへ』、『複数ファイルのデータを1つのファイルへ纏めるマクロ』で大変お世話になっている者です。 HohoPapaさんからご教示頂きましたコードで、チェックボックス以外の値については、出力ファイルへ正常に纏める事が出来ました。 　更にお伝えして、入力ファイル中のチェックボックス(リンク設定有り)を出力ファイルへ吐き出すマクロのコードをご教示頂きたく質問させて頂きました。 奥が深く、私にはコードを修正出来るだけの力が有りません。 どうか、お教え下さるようお願いいたします。 ・入力ファイルの記載フォーマットは以下の通りになります。 B列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より (出力ファイルには数値として吐き出したいが、入力ファイル中の記載は所々数値以外の形式で記載されている) 数値形式でない記載を数値形式で吐き出すのは困難である為、そのまま吐き出し。 C列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より D列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より E列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より F列＝出力ファイルに付けるタイトルは5行目、データは8行目以降より G列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より出力ファイルへは、日付表示で吐き出し。 H列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より 出力ファイルへは、日付表示で吐き出し。 I列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$Q$8』 J列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$R$8』 K列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$S$8』 L列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"","右欄も要確認")』が入っています。 　　 M列＝リンク設定の有るチェックボックス 　値はオンにチェックがついており、[リンクするセル』＝『$T$8』 N列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"合同設備等利用可能",IF(T8=TRUE,"合同設備等利用可能","内部運営管轄と相談下さい"))』が入っています。 Q列、R列、S列、T列＝8行目以降より『TRUE』、『FLASE』の文字入っている。 出力ファイルの記載フォーマットは以下の通りになります。 1行目のタイトルセルは、 A列＝『参加番号』 B列～K列、N列＝上記の入力ファイルのタイトルから A列:2行目以降＝入力ファイル名の『課題参加者_23RF3001.xlsx』の『23RF3001』を入力ファイルのB列、C列、D列に記載が有る行数分記載。 B列～K列:2行目以降＝上記のB列～K列の入力データから吐き出し N列:2行目以降＝上記のN列の入力データから吐き出し

過去の質問タイトル『複数EXCELファイル中のデータを1つのファイルへ』、『複数ファイルのデータを1つのファイルへ纏めるマクロ』で大変お世話になっている者です。 HohoPapaさんからご教示頂きましたコードで、チェックボックス以外の値については、出力ファイルへ正常に纏める事が出来ました。 　更にお伝えして、入力ファイル中のチェックボックス(リンク設定有り)を出力ファイルへ吐き出すマクロのコードをご教示頂きたく質問させて頂きました。 奥が深く、私にはコードを修正出来るだけの力が有りません。 どうか、お教え下さるようお願いいたします。 ・入力ファイルの記載フォーマットは以下の通りになります。 B列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より (出力ファイルには数値として吐き出したいが、入力ファイル中の記載は所々数値以外の形式で記載されている) 数値形式でない記載を数値形式で吐き出すのは困難である為、そのまま吐き出し。 C列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より D列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より E列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より F列＝出力ファイルに付けるタイトルは5行目、データは8行目以降より G列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より出力ファイルへは、日付表示で吐き出し。 H列＝出力ファイルに付けるタイトルは6行目、データは8行目以降より 出力ファイルへは、日付表示で吐き出し。 I列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$Q$8』 J列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$R$8』 K列＝リンク設定の有るチェックボックス 　　値はオンにチェックがついており、[リンクするセル』＝『$S$8』 L列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"","右欄も要確認")』が入っています。 　　 M列＝リンク設定の有るチェックボックス 　値はオンにチェックがついており、[リンクするセル』＝『$T$8』 N列＝関数式『=IF(AND(S8=TRUE,OR(Q8=TRUE,R8=TRUE)),"合同設備等利用可能",IF(T8=TRUE,"合同設備等利用可能","内部運営管轄と相談下さい"))』が入っています。 Q列、R列、S列、T列＝8行目以降より『TRUE』、『FLASE』の文字入っている。 出力ファイルの記載フォーマットは以下の通りになります。 1行目のタイトルセルは、 A列＝『参加番号』 B列～K列、N列＝上記の入力ファイルのタイトルから A列:2行目以降＝入力ファイル名の『課題参加者_23RF3001.xlsx』の『23RF3001』を入力ファイルのB列、C列、D列に記載が有る行数分記載。 B列～K列:2行目以降＝上記のB列～K列の入力データから吐き出し N列:2行目以降＝上記のN列の入力データから吐き出し

CSVについて質問です。 ある基幹システムよりCSVを出力すると、各列の列名の後方に、改行（空白）が含まれている状況です。 毎回出力する度に、改行（空白）を手動で削除するのは面倒でして、一括で操作できないかと思い、「置換」を試しましたがうまくいきません。 どなたか解決策をご教示いただけますと大変助かります。

マクロの実行で、Excel形式の約400個のファイル中のデータを１つの出力ファイルへ纏める為のマクロを作成したいのですが、VBAの初心者で、ｽｸﾘﾌﾟﾄの書き方が分からず大変困っております。 入力ファイルの中身は頻繁に追加、削除を繰り返しており、そのたびに入力ファイルを目視確認後、出力ファイルを手動で修正している状況でございます。 大変お手数ですが、マクロがお分かりの方がいらっしゃいましたら、ご教示を宜しくお願い致します。 ・入力ファイルは、以下ような名前になっております。 課題参加者_23RF3001.xlsx 課題参加者_23RF3005.xlsx 課題参加者_23RF3072★.xlsx 課題参加者_23RF3073.xlsx 課題参加者_23RF3199.xlsx 課題参加者_23RF3543.xlsx ・入力ファイルのデータは、添付しました画面イメージの通りで、 　フォーマットは全て同じです。 ・出力ファイルに吐き出す入力データはB列～K列とN列になります。 ・出力ファイルのタイトルは、1番目に呼び出したファイルのB列～K列とN列を使う。 ・出力ファイルのA列のデータは、入力ファイル名の『23RF3001』、『23RF3543』などを入力データ分入れる。 ・出力ファイルのタイトルに使う、入力ファイルのタイトルは以下のようになっています。　 　B列～E列のタイトルは、6行目、7行目が結合されたセルに入っています。 　F列のタイトルは、5行目、6行目、7行目が結合したセルに入っています。 　G列～H列のタイトルは、6行目、7行目が結合されたセルに入っています。 　I列～K列のタイトルは、7行目のセルに入っています。 　N列のタイトルは、6行目、7行目が結合されたセルに入っています。 ・出力ファイルへ吐き出したい、入力ファイルデータの範囲は、 　B列～K列の8行目以降とN列の8行目以降のデータになりますが、 　『職員番号』、『名前』、『部門』に記載が有る行のみを出力ファイルへ吐き出します。 　N列はリストの最後の行まで文字が入力されていますが、 　N列についても、上記の『職員番号』、『名前』、『部門』に記載が有る行のみを出力ファイルへ吐き出します。 ・出力データへ吐き出す時の書式フォーマットは以下の通りになります。 　A列＝文字形式 　B列＝数値形式 　C列～F列＝文字形式 　G列、H列＝日付形式 　I列～K列＝チェックボックス(フォームコントロール形式(入力データと同じ形式)) 　N列＝文字形式 ・入力データは今の所50行まで入力可能としています。

マクロの実行で、Excel形式の約400個のファイル中のデータを１つの出力ファイルへ纏める為のマクロを作成したいのですが、VBAの初心者で、ｽｸﾘﾌﾟﾄの書き方が分からず大変困っております。 入力ファイルの中身は頻繁に追加、削除を繰り返しており、そのたびに入力ファイルを目視確認後、出力ファイルを手動で修正している状況でございます。 大変お手数ですが、マクロがお分かりの方がいらっしゃいましたら、ご教示を宜しくお願い致します。 ・入力ファイルは、以下ような名前になっております。 課題参加者_23RF3001.xlsx 課題参加者_23RF3005.xlsx 課題参加者_23RF3072★.xlsx 課題参加者_23RF3073.xlsx 課題参加者_23RF3199.xlsx 課題参加者_23RF3543.xlsx ・入力ファイルのデータは、添付しました画面イメージの通りで、 　フォーマットは全て同じです。 ・出力ファイルに吐き出す入力データはB列～K列とN列になります。 ・出力ファイルのタイトルは、1番目に呼び出したファイルのB列～K列とN列を使う。 ・出力ファイルのA列のデータは、入力ファイル名の『23RF3001』、『23RF3543』などを入力データ分入れる。 ・出力ファイルのタイトルに使う、入力ファイルのタイトルは以下のようになっています。　 　B列～E列のタイトルは、6行目、7行目が結合されたセルに入っています。 　F列のタイトルは、5行目、6行目、7行目が結合したセルに入っています。 　G列～H列のタイトルは、6行目、7行目が結合されたセルに入っています。 　I列～K列のタイトルは、7行目のセルに入っています。 　N列のタイトルは、6行目、7行目が結合されたセルに入っています。 ・出力ファイルへ吐き出したい、入力ファイルデータの範囲は、 　B列～K列の8行目以降とN列の8行目以降のデータになりますが、 　『職員番号』、『名前』、『部門』に記載が有る行のみを出力ファイルへ吐き出します。 　N列はリストの最後の行まで文字が入力されていますが、 　N列についても、上記の『職員番号』、『名前』、『部門』に記載が有る行のみを出力ファイルへ吐き出します。 ・出力データへ吐き出す時の書式フォーマットは以下の通りになります。 　A列＝文字形式 　B列＝数値形式 　C列～F列＝文字形式 　G列、H列＝日付形式 　I列～K列＝チェックボックス(フォームコントロール形式(入力データと同じ形式)) 　N列＝文字形式 ・入力データは今の所50行まで入力可能としています。