layy の回答履歴

今キムタクで宇宙戦艦ヤマトやってますね～。かくゆう私はもろヤマト世代ド真ん中で、キムタクヤマトを機に再びヤマト熱に火がつき、30年以上前に買った交響曲組曲宇宙戦艦ヤマトを再生してみるとばっちり歪もなく、これをぜひともCD-Rに録音して保存しておきたいと思ったのですが、世代が古いもんでやり方が・・・簡単な録音の仕方を教えてください。このアルバムに入ってる出発とイスカンダルを聞きながらドライブ道中をなんとしても楽しみたいので、よろしくおねがいします。

ボタンクリックでプロシージャーが起動します。 そのマクロの中で以下の２つの処理を追加させたいです。 マクロの記述を教えてください。 Ａ～Ｆ列までデータが有ります。 １行目は項目で２行目からデータがあります。 行数は都度相違しますが10,000行はあります。 (1) Ｆ列の値は標準で、ここが0の場合その行全体を削除します。 入っている値の例 -1234→削除しない 345→削除しない 12346→削除しない 0→削除する セルの空白はぜったいありません。 (2)－１ Ｅ列の値は標準で英数字３ケタです。ところどころ空白があります。 Ｅ列の値が先頭７Ｂ以外は行全体を削除します。 ７Ｂ１→削除しない ７Ｂ２→削除しない ７ＢＷ→削除しない ７７Ｃ→削除 ４７Ｂ→削除 空白→削除 Ｆ列を優先なのでＥ列が７Ｂで始まっている行でも Ｆ列が０なら削除となります。 (2)－２ (2)－１と同じでＥ列の値は標準で英数字３ケタです。 ところどころ空白があります。 Ｅ列の値が 先頭 ７Ｂと７２以外 又は ＣとＤと７Ｂ以外は 行全体を削除します。 のように(2)－１のように1条件ではなく２～複数になる。 それが1文字の場合、2文字の場合、3文字全部の場合がある Ｆ列を優先なのは（２）－１と同じです。 条件例 ・Ｃと７３以外 ・ＣとＦと７２以外 ・Ｇと７Ｖと８Ｄ以外 ・Ｇと８８と８Ｄ５以外 以下の記述ですが、（１）は思ったとうり動作しましたが ●の部分が分かりません。 現在の記述では７ＢＢ以外は全部行削除されてしまいます。 （２）－１と（２）－２の対応のために 記述内で（２）－１と（２）－２を 書き換える事が出来るような記述にしたいです。 あと凄く処理が遅いので高速化もしたいです。 よろしくお願いします。 Sub test01() 'A～K列のデータにて 'E,F,H,I,K列を列削除する Columns("E:F").Select Selection.Delete Shift:=xlToLeft Columns("F:G").Select Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft 'データがA～F列になりました。 With ActiveSheet 'アクティブなシートについて x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得 For i = x To 2 Step -1 '最終行から2行目まで下から順に 'F列が"0"だったらその行を削除 If .Cells(i, 6) = 0 Then .Rows(i).Delete Next '繰り返し End With With ActiveSheet 'アクティブなシートについて x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得 For i = x To 2 Step -1 '最終行から2行目まで下から順に 'E列の値の先頭文字が"7B"でなかったら削除（空白の場合も削除） ●If .Cells(i, 5) <> "7BB" Then .Rows(i).Delete Next '繰り返し End With End Sub

楽天RMS等でよくあるデータの形ですが下記の様なデータを横並びにまとめたいと考えています。 150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　すごい石鹸A　1個 150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　ミラクルシャンプー　1個 150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　ミラクルリンス　　　2個 何か良い手はありませんでしょうか。 こんなイメージです。 　↓ 150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　すごい石鹸A　1個 　ミラクルシャンプー　1個　ミラクルリンス　　　2個 よろしくお願い致します。

楽天RMS等でよくあるデータの形ですが下記の様なデータを横並びにまとめたいと考えています。 150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　すごい石鹸A　1個 150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　ミラクルシャンプー　1個 150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　ミラクルリンス　　　2個 何か良い手はありませんでしょうか。 こんなイメージです。 　↓ 150-0001　東京都渋谷区神宮前番地　山田ビル1F　山田太郎　00-0000-0000　すごい石鹸A　1個 　ミラクルシャンプー　1個　ミラクルリンス　　　2個 よろしくお願い致します。

パソコンが入っている鞄を持ち歩いていたのですが、つまづいて派手に転んでしまいました。 その際にパソコンが入った鞄も落としてしまいました。その鞄はパソコン専用の鞄でしたが、何か本体には影響あるのでしょうか？ とても心配です。

実は1月に誕生日の男友達（私も男）がいるんですが、 4，5年の付き合いにもなって最近初めてそいつが鉄道好きと打ち明けられました。私は素人です。 誕生日プレゼントに何か思い出をあげたいのですが、よくわからないのでこの気持ちがわかる方、助言などをお願いします。↓ ・JR、というか国鉄（時代？）の電車が好き ・小さい頃から好きだが模型を集めたり写真を撮りにいったりは全くない ・特にSLが好き。中でもC-56が好き。すごく好き ・京都の梅小路には小さい頃一度行ったきり。また行きたいけど何か一人では行きづらいらしい。かといって友達や彼女にこの趣味を打ち明ける勇気がなく我慢して行けてない ・かれこれ20代後半 ・北海道のSL乗りたい？って聞いたら、それなら静岡の大井川鉄道（？）に乗ってみたいと言う（この辺から考えてもわからない） ・知識だけは鉄道大好き（素人の私からしたらキハ-何系のキハの意味とか言われてすごいと思う。最近の車両の導入経緯とかも調べている） ・もっかい言うが国鉄が好きらしい（やっぱりどこを攻めればいいか考えても不明） ↑という友人です。ちなみに学生程度のお金しか私はありません。 土地柄と時期的にSL北びわこ号にいっしょに乗るのはどうかと思うんですが（2/6、13のどちらか） 改めて調べると写真を撮った個人のHPが多い。 乗るより写真を撮る方がいいのか？鉄道素人の私にはわかりません。 それに乗るとしてもそこまで国鉄好きが納得する車両などにできれば乗ってゆっくり行きたいのです。しかも日帰りで。 私達の最寄駅といえばざっくり言って川西能勢口です。JRなら川西池田。 鉄道素人の私はどこから調べればいいのかももうお手上げです。北びわこ号にたどり着けただけでも褒めてあげたいくらい。今日何気ない話題で「そういや琵琶湖の方でもたまにSL走るみたいよ」と当然のように存在はバレてましたが。 よくわからない文章でごめんなさい。ちなみに梅小路はまた別に行く予定です。 2月頃に川西から行ける国鉄好きが喜んでくれそうな日帰りルートを教えて下さい！ あとできれば北びわこ号に乗る場合の合計料金や見所・ポイントやチケットの取り具合（ジャスト1月前のみどりの窓口に10時頃に並べばとれるのか、電話でもまあ当日ならとれるのか）などもあわせて教えて頂けると真に助かります。他にもルート上ならノンジャンルでおススメなども。 長文で読みにくくとてもわがままな質問かと思いますが、是非みなさまの力をお借りしたいです。 どうぞよろしくお願いします。

Access2007にて顧客別の売掛残を抽出するクエリーを 作成しました。 過去の履歴を見るのには非常に便利なのですが、 直近の売掛残高のみを抽出する場合は どの様にすれば良いのでしょうか？ 過去からの履歴ですと顧客によっては数百行となり 直近の売掛残を見るのにかなりのスクロールを しなければなりません。 昨日時点での売掛残のみを抽出するには、 処理された日付を入力すればいいのですが、日付入力を 行わずに最後に処理された時点での売掛残を表示させるには どの様なコントロールを行えばよいのでしょうか？ ご存じの方がいらっしゃいましたらご指導いただきたいと 思っております。 よろしくお願いいたします。

お正月の３日間を独りで過ごす予定です。 今年は家にいるつもりなのですが、予定がまだ決まっていません。 なにか楽しそうな計画がありましたら参考にさせてください。

今度、プリンターを買い換えたいと思っております。 現在使用しているものが、キャノンのip2600というものです。 ただこれは、黒のインクが家電量販店などで購入すると２０００円もします。 上記の理由から、インクが安いプリンターに買い換えたいと思っているのですが、 お勧めのものをお教えいただけませんでしょうか？ 印刷するものは白黒の文章がほとんどで画質は普通で構いません。 インク代も何度も購入しているとすごい出費になります。 どうぞ良いものをお教えください。

シート1（担当者アの案件）：　A列に会社名　B列に担当者名 シート2（担当者イの案件）：　A列に会社名　B列に担当者名 シート3（担当者未定の案件）：　A列に会社名　B列に担当者名 シート4 シート1とシート3を照合して、シート1に存在する場合、シート4に抽出 シート2とシート3を照合して、シート1に存在する場合、シート4に抽出 としたいのです。やり方を教えていただけますでしょうか。 ちなみに結果の抽出はシート4でなくてもどこでもいいのです。 お手数ですがよろしくお願いいたします。

パソコンで販売管理をおこなうソフトを作りたいと思っています。 毎日の商品販売で発注書や納品書を作成するとともに、それらの情報を保存し管理情報等を作成するのが目的です。 個人での商売なので情報量はあまりありません。 処理の内容としては 顧客数は約２００人、商品種類は約２００種類程度。 毎日５、６人の顧客にそれぞれ商品５～１０種類を販売します。 このとき販売元に対して発注書を作成し、顧客に対して納品書を作成します。 また月単位程度で顧客毎や商品毎の販売情報等の管理表を作成します。 このような処理を作るのには適しているソフトはどのようなものがありますか。 エクセル（２００３）は有るのですが、エクセルでこのような処理を作ることは適当でしょうか？ （データ量的に扱える範囲でしょうか。） もう一つの問題は操作をするのがパソコン初心者なので、エクセル等の表に直接データを入れて手操作で集計をするということは出来ません。 入出力等の操作画面を作る必要があります。 あまりお金をかけたくありませんので、フリーソフトなどが有れば教えてください。 またはエクセルでがんばってみるのがいいのでしょうか。

まだ我が家にゎパソコンがありません。妹と二人で ノートパソコンを買おうと計画中ですが… あたしたち何もパソコンのコトがわからなくて… パソコンで仕事するわけでもなくただネットができればと思っています！ お金もあまりないので 休めでコレいいよ！みたいなパソコンに関する情報何でもィィのでお願いします！ ちなみに光とかヤフービービーとかまったく意味不明です(涙)

ボタンクリックでプロシージャーが起動します。 そのマクロの中で以下の２つの処理を追加させたいです。 マクロの記述を教えてください。 Ａ～Ｆ列までデータが有ります。 １行目は項目で２行目からデータがあります。 行数は都度相違しますが10,000行はあります。 (1) Ｆ列の値は標準で、ここが0の場合その行全体を削除します。 入っている値の例 -1234→削除しない 345→削除しない 12346→削除しない 0→削除する セルの空白はぜったいありません。 (2)－１ Ｅ列の値は標準で英数字３ケタです。ところどころ空白があります。 Ｅ列の値が先頭７Ｂ以外は行全体を削除します。 ７Ｂ１→削除しない ７Ｂ２→削除しない ７ＢＷ→削除しない ７７Ｃ→削除 ４７Ｂ→削除 空白→削除 Ｆ列を優先なのでＥ列が７Ｂで始まっている行でも Ｆ列が０なら削除となります。 (2)－２ (2)－１と同じでＥ列の値は標準で英数字３ケタです。 ところどころ空白があります。 Ｅ列の値が 先頭 ７Ｂと７２以外 又は ＣとＤと７Ｂ以外は 行全体を削除します。 のように(2)－１のように1条件ではなく２～複数になる。 それが1文字の場合、2文字の場合、3文字全部の場合がある Ｆ列を優先なのは（２）－１と同じです。 条件例 ・Ｃと７３以外 ・ＣとＦと７２以外 ・Ｇと７Ｖと８Ｄ以外 ・Ｇと８８と８Ｄ５以外 以下の記述ですが、（１）は思ったとうり動作しましたが ●の部分が分かりません。 現在の記述では７ＢＢ以外は全部行削除されてしまいます。 （２）－１と（２）－２の対応のために 記述内で（２）－１と（２）－２を 書き換える事が出来るような記述にしたいです。 あと凄く処理が遅いので高速化もしたいです。 よろしくお願いします。 Sub test01() 'A～K列のデータにて 'E,F,H,I,K列を列削除する Columns("E:F").Select Selection.Delete Shift:=xlToLeft Columns("F:G").Select Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft 'データがA～F列になりました。 With ActiveSheet 'アクティブなシートについて x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得 For i = x To 2 Step -1 '最終行から2行目まで下から順に 'F列が"0"だったらその行を削除 If .Cells(i, 6) = 0 Then .Rows(i).Delete Next '繰り返し End With With ActiveSheet 'アクティブなシートについて x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得 For i = x To 2 Step -1 '最終行から2行目まで下から順に 'E列の値の先頭文字が"7B"でなかったら削除（空白の場合も削除） ●If .Cells(i, 5) <> "7BB" Then .Rows(i).Delete Next '繰り返し End With End Sub

ボタンクリックでプロシージャーが起動します。 そのマクロの中で以下の２つの処理を追加させたいです。 マクロの記述を教えてください。 Ａ～Ｆ列までデータが有ります。 １行目は項目で２行目からデータがあります。 行数は都度相違しますが10,000行はあります。 (1) Ｆ列の値は標準で、ここが0の場合その行全体を削除します。 入っている値の例 -1234→削除しない 345→削除しない 12346→削除しない 0→削除する セルの空白はぜったいありません。 (2)－１ Ｅ列の値は標準で英数字３ケタです。ところどころ空白があります。 Ｅ列の値が先頭７Ｂ以外は行全体を削除します。 ７Ｂ１→削除しない ７Ｂ２→削除しない ７ＢＷ→削除しない ７７Ｃ→削除 ４７Ｂ→削除 空白→削除 Ｆ列を優先なのでＥ列が７Ｂで始まっている行でも Ｆ列が０なら削除となります。 (2)－２ (2)－１と同じでＥ列の値は標準で英数字３ケタです。 ところどころ空白があります。 Ｅ列の値が 先頭 ７Ｂと７２以外 又は ＣとＤと７Ｂ以外は 行全体を削除します。 のように(2)－１のように1条件ではなく２～複数になる。 それが1文字の場合、2文字の場合、3文字全部の場合がある Ｆ列を優先なのは（２）－１と同じです。 条件例 ・Ｃと７３以外 ・ＣとＦと７２以外 ・Ｇと７Ｖと８Ｄ以外 ・Ｇと８８と８Ｄ５以外 以下の記述ですが、（１）は思ったとうり動作しましたが ●の部分が分かりません。 現在の記述では７ＢＢ以外は全部行削除されてしまいます。 （２）－１と（２）－２の対応のために 記述内で（２）－１と（２）－２を 書き換える事が出来るような記述にしたいです。 あと凄く処理が遅いので高速化もしたいです。 よろしくお願いします。 Sub test01() 'A～K列のデータにて 'E,F,H,I,K列を列削除する Columns("E:F").Select Selection.Delete Shift:=xlToLeft Columns("F:G").Select Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft 'データがA～F列になりました。 With ActiveSheet 'アクティブなシートについて x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得 For i = x To 2 Step -1 '最終行から2行目まで下から順に 'F列が"0"だったらその行を削除 If .Cells(i, 6) = 0 Then .Rows(i).Delete Next '繰り返し End With With ActiveSheet 'アクティブなシートについて x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得 For i = x To 2 Step -1 '最終行から2行目まで下から順に 'E列の値の先頭文字が"7B"でなかったら削除（空白の場合も削除） ●If .Cells(i, 5) <> "7BB" Then .Rows(i).Delete Next '繰り返し End With End Sub

ボタンクリックでプロシージャーが起動します。 そのマクロの中で以下の２つの処理を追加させたいです。 マクロの記述を教えてください。 Ａ～Ｆ列までデータが有ります。 １行目は項目で２行目からデータがあります。 行数は都度相違しますが10,000行はあります。 (1) Ｆ列の値は標準で、ここが0の場合その行全体を削除します。 入っている値の例 -1234→削除しない 345→削除しない 12346→削除しない 0→削除する セルの空白はぜったいありません。 (2)－１ Ｅ列の値は標準で英数字３ケタです。ところどころ空白があります。 Ｅ列の値が先頭７Ｂ以外は行全体を削除します。 ７Ｂ１→削除しない ７Ｂ２→削除しない ７ＢＷ→削除しない ７７Ｃ→削除 ４７Ｂ→削除 空白→削除 Ｆ列を優先なのでＥ列が７Ｂで始まっている行でも Ｆ列が０なら削除となります。 (2)－２ (2)－１と同じでＥ列の値は標準で英数字３ケタです。 ところどころ空白があります。 Ｅ列の値が 先頭 ７Ｂと７２以外 又は ＣとＤと７Ｂ以外は 行全体を削除します。 のように(2)－１のように1条件ではなく２～複数になる。 それが1文字の場合、2文字の場合、3文字全部の場合がある Ｆ列を優先なのは（２）－１と同じです。 条件例 ・Ｃと７３以外 ・ＣとＦと７２以外 ・Ｇと７Ｖと８Ｄ以外 ・Ｇと８８と８Ｄ５以外 以下の記述ですが、（１）は思ったとうり動作しましたが ●の部分が分かりません。 現在の記述では７ＢＢ以外は全部行削除されてしまいます。 （２）－１と（２）－２の対応のために 記述内で（２）－１と（２）－２を 書き換える事が出来るような記述にしたいです。 あと凄く処理が遅いので高速化もしたいです。 よろしくお願いします。 Sub test01() 'A～K列のデータにて 'E,F,H,I,K列を列削除する Columns("E:F").Select Selection.Delete Shift:=xlToLeft Columns("F:G").Select Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft 'データがA～F列になりました。 With ActiveSheet 'アクティブなシートについて x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得 For i = x To 2 Step -1 '最終行から2行目まで下から順に 'F列が"0"だったらその行を削除 If .Cells(i, 6) = 0 Then .Rows(i).Delete Next '繰り返し End With With ActiveSheet 'アクティブなシートについて x = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得 For i = x To 2 Step -1 '最終行から2行目まで下から順に 'E列の値の先頭文字が"7B"でなかったら削除（空白の場合も削除） ●If .Cells(i, 5) <> "7BB" Then .Rows(i).Delete Next '繰り返し End With End Sub

シート1（担当者アの案件）：　A列に会社名　B列に担当者名 シート2（担当者イの案件）：　A列に会社名　B列に担当者名 シート3（担当者未定の案件）：　A列に会社名　B列に担当者名 シート4 シート1とシート3を照合して、シート1に存在する場合、シート4に抽出 シート2とシート3を照合して、シート1に存在する場合、シート4に抽出 としたいのです。やり方を教えていただけますでしょうか。 ちなみに結果の抽出はシート4でなくてもどこでもいいのです。 お手数ですがよろしくお願いいたします。

以下のような病院一覧のデータを、1レコード1病院に整理したいと考えています。 ----------- 1 01-1017-7 斉藤医院〒038-0056 斉藤　誠一斉藤　誠一医 青医17 青森市大字飛鳥字岸田２ から 2 01-1024-3 医療法人同仁会　浪打〒030-0902 医療法人　同仁会　理菊田　一貫医 青医24 病院青森市合浦二丁目１１－２４ 事長　菊田　一貫 から 3 01-1064-9 渡辺病院〒030-0823 医療法人　厚生会　理福島　彬裕医 青医64 青森市橋本一丁目７－４ 事長　福島　彬裕 から ----------- 数字で始まる行が「１,2,3」が各病院を表しているようですが、 1病院が3レコードだったり、4レコードだったりとばらばらです。 思いついたのは、数字で始まる行の先頭に記号(例：★)をつけ、 一旦、改行を全部外し、記号(例：★)のついた行で改行をする… どんな方法でも良いので処理できないものか、悩んでいます。 お力を貸していただけないでしょうか。

実は1月に誕生日の男友達（私も男）がいるんですが、 4，5年の付き合いにもなって最近初めてそいつが鉄道好きと打ち明けられました。私は素人です。 誕生日プレゼントに何か思い出をあげたいのですが、よくわからないのでこの気持ちがわかる方、助言などをお願いします。↓ ・JR、というか国鉄（時代？）の電車が好き ・小さい頃から好きだが模型を集めたり写真を撮りにいったりは全くない ・特にSLが好き。中でもC-56が好き。すごく好き ・京都の梅小路には小さい頃一度行ったきり。また行きたいけど何か一人では行きづらいらしい。かといって友達や彼女にこの趣味を打ち明ける勇気がなく我慢して行けてない ・かれこれ20代後半 ・北海道のSL乗りたい？って聞いたら、それなら静岡の大井川鉄道（？）に乗ってみたいと言う（この辺から考えてもわからない） ・知識だけは鉄道大好き（素人の私からしたらキハ-何系のキハの意味とか言われてすごいと思う。最近の車両の導入経緯とかも調べている） ・もっかい言うが国鉄が好きらしい（やっぱりどこを攻めればいいか考えても不明） ↑という友人です。ちなみに学生程度のお金しか私はありません。 土地柄と時期的にSL北びわこ号にいっしょに乗るのはどうかと思うんですが（2/6、13のどちらか） 改めて調べると写真を撮った個人のHPが多い。 乗るより写真を撮る方がいいのか？鉄道素人の私にはわかりません。 それに乗るとしてもそこまで国鉄好きが納得する車両などにできれば乗ってゆっくり行きたいのです。しかも日帰りで。 私達の最寄駅といえばざっくり言って川西能勢口です。JRなら川西池田。 鉄道素人の私はどこから調べればいいのかももうお手上げです。北びわこ号にたどり着けただけでも褒めてあげたいくらい。今日何気ない話題で「そういや琵琶湖の方でもたまにSL走るみたいよ」と当然のように存在はバレてましたが。 よくわからない文章でごめんなさい。ちなみに梅小路はまた別に行く予定です。 2月頃に川西から行ける国鉄好きが喜んでくれそうな日帰りルートを教えて下さい！ あとできれば北びわこ号に乗る場合の合計料金や見所・ポイントやチケットの取り具合（ジャスト1月前のみどりの窓口に10時頃に並べばとれるのか、電話でもまあ当日ならとれるのか）などもあわせて教えて頂けると真に助かります。他にもルート上ならノンジャンルでおススメなども。 長文で読みにくくとてもわがままな質問かと思いますが、是非みなさまの力をお借りしたいです。 どうぞよろしくお願いします。

ノートＰＣが欲しいのですが ネットが使えるようになるには 本体以外に何か必要ですか？ 購入したら回線など、 何か契約しなければ いけないんですか？ すぐに使えますか？ 基本的にOfficeとネットを 使う予定なのですが、 安いもので相場は いくらくらいでしょうか？ 全くの初心者ですみません。 教えてくださると助かります。 よろしくお願いします！

実は1月に誕生日の男友達（私も男）がいるんですが、 4，5年の付き合いにもなって最近初めてそいつが鉄道好きと打ち明けられました。私は素人です。 誕生日プレゼントに何か思い出をあげたいのですが、よくわからないのでこの気持ちがわかる方、助言などをお願いします。↓ ・JR、というか国鉄（時代？）の電車が好き ・小さい頃から好きだが模型を集めたり写真を撮りにいったりは全くない ・特にSLが好き。中でもC-56が好き。すごく好き ・京都の梅小路には小さい頃一度行ったきり。また行きたいけど何か一人では行きづらいらしい。かといって友達や彼女にこの趣味を打ち明ける勇気がなく我慢して行けてない ・かれこれ20代後半 ・北海道のSL乗りたい？って聞いたら、それなら静岡の大井川鉄道（？）に乗ってみたいと言う（この辺から考えてもわからない） ・知識だけは鉄道大好き（素人の私からしたらキハ-何系のキハの意味とか言われてすごいと思う。最近の車両の導入経緯とかも調べている） ・もっかい言うが国鉄が好きらしい（やっぱりどこを攻めればいいか考えても不明） ↑という友人です。ちなみに学生程度のお金しか私はありません。 土地柄と時期的にSL北びわこ号にいっしょに乗るのはどうかと思うんですが（2/6、13のどちらか） 改めて調べると写真を撮った個人のHPが多い。 乗るより写真を撮る方がいいのか？鉄道素人の私にはわかりません。 それに乗るとしてもそこまで国鉄好きが納得する車両などにできれば乗ってゆっくり行きたいのです。しかも日帰りで。 私達の最寄駅といえばざっくり言って川西能勢口です。JRなら川西池田。 鉄道素人の私はどこから調べればいいのかももうお手上げです。北びわこ号にたどり着けただけでも褒めてあげたいくらい。今日何気ない話題で「そういや琵琶湖の方でもたまにSL走るみたいよ」と当然のように存在はバレてましたが。 よくわからない文章でごめんなさい。ちなみに梅小路はまた別に行く予定です。 2月頃に川西から行ける国鉄好きが喜んでくれそうな日帰りルートを教えて下さい！ あとできれば北びわこ号に乗る場合の合計料金や見所・ポイントやチケットの取り具合（ジャスト1月前のみどりの窓口に10時頃に並べばとれるのか、電話でもまあ当日ならとれるのか）などもあわせて教えて頂けると真に助かります。他にもルート上ならノンジャンルでおススメなども。 長文で読みにくくとてもわがままな質問かと思いますが、是非みなさまの力をお借りしたいです。 どうぞよろしくお願いします。