2025-08-24

レシップホールディングス

企業理念

省エネルギー、環境対策、セキュリティ強化

強み

時代の変化に合わせ柔軟に対応する

その一環でソフトの開発を行っている。

例）LIVU　GPSを用いてバスの停留所の案内アナウンスの自動音声を流すシステムを開発。運転手のボタン操作が不要になった。

ニッチな市場分野に特化

事業者はJRなどがあるが、メインとなるのは公民鉄（名古屋市営交通局）、第三セクター（樽見鉄道）

今後について

BRT（Bus Rapid System）

ICカードを用いるなどの改良により路面電車と遜色のない機能性を有した道路交通ステム

PTPS（公共車両優先システム）

雰囲気

まじめで、穏やか、飲み会などは少なく、仕事後はすぐに帰宅する人が多い。

きっちりしすぎずのびのびと仕事ができる。

逆に仕事がきっちり決まっていたほうがいいという人には合わないかもしれない。

先輩社員A（４年目）の方

高専→筑波大学→大学院→レシップ

１０社以上受けた

現在モバイル決済のシステムの開発のリーダーをされている。

備考

理系は学校推薦で選ばれる人が多い

一年目は研修

Aさんは二年目でバスもモバイルチケットの開発に携わった

採用内訳

()内は名城大学　[ ]内は交通機械科

2020年4月入社予定　20名：理系17名・文系3名 (3) [1]
2019年4月入社　　　17名：理系15名・文系2名 (3) [2]
2018年4月入社　　　14名：理系9名・文系5名 (2)
2017年4月入社　　　13名：理系8名・文系5名
2016年4月入社　　　 6名：理系3名・文系3名
2015年4月入社　　　 5名：理系3名・文系2名　

2023-10-16

マクロメモ

Option Explicit
Sub CopyDataAndSaveNewWorkbook()
Dim SourceFolder As String
Dim SourceFile As String
Dim NewWorkbook As Workbook
Dim Pathtest As Object
Dim Filename As String
Dim wb As Workbook

Set Pathtest = ThisWorkbook.ActiveSheet.Cells(2, 1) ' 指定のフォルダのパスを設定
SourceFolder = Pathtest.Value ' フォルダのパスを変更

Filename = Dir(SourceFolder & "*.xlsx")
MsgBox "1" & SourceFolder
MsgBox "2" & Filename
Do While Filename <> ""

Dim WFna As String
WFna = Dir(SourceFolder & "*ABC.xlsx")
Workbooks.Open Filename:=SourceFolder & WFna

' ファイル名の末尾に「ABC」が含まれている場合にファイルを開く
' If Right(Filename, 4) = "ABC" Then
' Set wb = Workbooks.Open(SourceFolder & Filename)
' ここでファイルごとの処理を行うことができます
' 例: ファイルを開いた後、データの操作など

' ファイルを閉じる
' wb.Close SaveChanges:=False
' MsgBox "1" & SourceFolder
' MsgBox "2" & Filename
' Exit Do
' End If
Filename = Dir
MsgBox "4" & Filename
Loop
MsgBox "3" & Filename

' フォルダ内の最新のExcelファイルを検索
' SourceFile = Dir(SourceFolder & "*.xlsx")
' Do While SourceFile <> ""
' If FileDateTime(SourceFolder & SourceFile) > FileDateTime(SourceFolder & SourceFile) Then
' SourceFile = SourceFolder & SourceFile
' End If
' SourceFile = Dir
' Loop

MsgBox SourceFile
Dim Awb As Workbook
Set Awb = ActiveWorkbook
Set NewWorkbook = Workbooks.Add
' データをコピー
Awb.Worksheets(1).Range("A:J").Copy Awb.Worksheets(1).Range("A1")

' 最新のExcelファイルを開く
' Workbooks.Open SourceFile
Set Awb = ActiveWorkbook
Awb.Worksheets("Sheet1").Range("A1").PasteSpecial

' 新しいブックに名前を付けて保存
NewWorkbook.SaveAs "C:\Users\fafur\OneDrive\ドキュメント\excel練習\test\NewWorkbook.xlsx" ' 保存パスとファイル名を変更
NewWorkbook.Close
End Sub