NyantaSapporo の回答履歴

ツリーランやパウダーを楽しみたくていつも2月にニセコ辺りに10日宿泊して滑りに行っていました。 今季はニセコ以外の富良野やトマムに行こうと思ってたら雪がないようです。 昔旭川の方のゲレンデに行ったらアイスバーンただ寒いだけだったので、富良野やトマムもそうなのでしょうか？ 東北や新潟のほうでパウダーやツリーランが楽しめるゲレンデはありますか？ もしかして志賀や白馬のほうがあったりするのでしょうか？ 白馬はシーズン3月とかにパーク目的でくらいしか行ったことがなくてハイシーズンは知らないのです。 今季パウダーやツリーランが楽しめるゲレンデを教えて下さい！1月下旬からか2月の初め頃から行こうと思うのでよろしくお願いいたします！！！

ツリーランやパウダーを楽しみたくていつも2月にニセコ辺りに10日宿泊して滑りに行っていました。 今季はニセコ以外の富良野やトマムに行こうと思ってたら雪がないようです。 昔旭川の方のゲレンデに行ったらアイスバーンただ寒いだけだったので、富良野やトマムもそうなのでしょうか？ 東北や新潟のほうでパウダーやツリーランが楽しめるゲレンデはありますか？ もしかして志賀や白馬のほうがあったりするのでしょうか？ 白馬はシーズン3月とかにパーク目的でくらいしか行ったことがなくてハイシーズンは知らないのです。 今季パウダーやツリーランが楽しめるゲレンデを教えて下さい！1月下旬からか2月の初め頃から行こうと思うのでよろしくお願いいたします！！！

付き合いたての彼氏と初めてのスノボに行きます。 彼氏はスノボ歴が長いみたいで教えてもらう予定です。 日焼けは絶対にしたくないので、ネックウォーマーで顔半分を覆いたいんですが、女の子でしてる人って多いですか？ 彼氏と行くので可愛くしていきたいんですが顔をゴーグルとネックウォーマーで隠すよりゴーグルだけの方が自然かな？と思って。 隠しすぎて引かれたりしないでしょうか？ あとゴーグルのラインに沿ってファンデが落ちることってあるあるですか？ 外すと痕がクッキリとかだと恥ずかしいので、何か対策とかありますか？

来年　帯広の花火大会に２家族　大人６名で一泊で行きたいと計画しています。 なるべく出費を抑えていきたいなと考えています。 札幌から車で行きます。 混むとこが予想されるので　ホテルもすぐ予約しないといっぱいになると聞きました。 ・花火大会は毎年8/13でよいですか？ ・花火大会のチケットは何時から販売されますか？ ・１３にいって宿泊して　１４に帰ってくる予定ですが　 近場でお盆でも安く泊まれるところないでしょうか？ （ちなみに帯広駅のパコだと　通常は素泊まり１人3000円が　お盆だと ツインで２人で20000円とかになってしまうので・・・） どれか一つでもいいので　お分かりになる方お願いします。

来年　帯広の花火大会に２家族　大人６名で一泊で行きたいと計画しています。 なるべく出費を抑えていきたいなと考えています。 札幌から車で行きます。 混むとこが予想されるので　ホテルもすぐ予約しないといっぱいになると聞きました。 ・花火大会は毎年8/13でよいですか？ ・花火大会のチケットは何時から販売されますか？ ・１３にいって宿泊して　１４に帰ってくる予定ですが　 近場でお盆でも安く泊まれるところないでしょうか？ （ちなみに帯広駅のパコだと　通常は素泊まり１人3000円が　お盆だと ツインで２人で20000円とかになってしまうので・・・） どれか一つでもいいので　お分かりになる方お願いします。

来年　帯広の花火大会に２家族　大人６名で一泊で行きたいと計画しています。 なるべく出費を抑えていきたいなと考えています。 札幌から車で行きます。 混むとこが予想されるので　ホテルもすぐ予約しないといっぱいになると聞きました。 ・花火大会は毎年8/13でよいですか？ ・花火大会のチケットは何時から販売されますか？ ・１３にいって宿泊して　１４に帰ってくる予定ですが　 近場でお盆でも安く泊まれるところないでしょうか？ （ちなみに帯広駅のパコだと　通常は素泊まり１人3000円が　お盆だと ツインで２人で20000円とかになってしまうので・・・） どれか一つでもいいので　お分かりになる方お願いします。

雪国の人達ってずーっと家に居なきゃいけないんでしょ？ 猛吹雪 暴風 だと しかも田舎なイメージだから店もない 何日も続いたらどうしてるんですか？ 北海道 日本海 家族と仲悪いと居心地最悪ですよね？ お金がないからストーブ 使えない とかだったらどうしてるんですか？ 仕事とかどうやって通ってるんですか？ 電車はない バスもなさそう 雪国の冬休みはいつから いつまでなんですか？

東京に住むスキーをこよなく愛する者です。 1月の週末（木・金）ですが、会社の都合で札幌出張（羽田→千歳空港→札幌泊）が決まりました。折角なので札幌出張後の土日にスキーをしたいと考えています。そこで、札幌の地理に詳しい皆様に、北海道滞在のアドバイスをいただきたく、質問させていただきます。 以下が条件です ・当方、競技（GS：ジャイアントスラローム）をしており、スピードに乗って大きな弧を描きたいです。したがって、斜面は中斜面以上の整備（圧雪）された大きなゲレンデが希望です。 ・日曜日にスキー終了後、千歳空港から羽田へ出発し、帰宅します。 ・木・金は札幌滞在ですが、金曜泊・土曜泊は札幌以外（もちろん札幌でも構わない）でも構わない。帰りが飛行機なので、比較的千歳空港への移動がしやすく、日曜日にできるだけ多くの時間滑りたい。 どこに宿泊し、どこのスキー場に行くのがよいでしょうか？わがままな希望ですが、ぜひとも皆様のアドバイスをください。

東京に住むスキーをこよなく愛する者です。 1月の週末（木・金）ですが、会社の都合で札幌出張（羽田→千歳空港→札幌泊）が決まりました。折角なので札幌出張後の土日にスキーをしたいと考えています。そこで、札幌の地理に詳しい皆様に、北海道滞在のアドバイスをいただきたく、質問させていただきます。 以下が条件です ・当方、競技（GS：ジャイアントスラローム）をしており、スピードに乗って大きな弧を描きたいです。したがって、斜面は中斜面以上の整備（圧雪）された大きなゲレンデが希望です。 ・日曜日にスキー終了後、千歳空港から羽田へ出発し、帰宅します。 ・木・金は札幌滞在ですが、金曜泊・土曜泊は札幌以外（もちろん札幌でも構わない）でも構わない。帰りが飛行機なので、比較的千歳空港への移動がしやすく、日曜日にできるだけ多くの時間滑りたい。 どこに宿泊し、どこのスキー場に行くのがよいでしょうか？わがままな希望ですが、ぜひとも皆様のアドバイスをください。

東京に住むスキーをこよなく愛する者です。 1月の週末（木・金）ですが、会社の都合で札幌出張（羽田→千歳空港→札幌泊）が決まりました。折角なので札幌出張後の土日にスキーをしたいと考えています。そこで、札幌の地理に詳しい皆様に、北海道滞在のアドバイスをいただきたく、質問させていただきます。 以下が条件です ・当方、競技（GS：ジャイアントスラローム）をしており、スピードに乗って大きな弧を描きたいです。したがって、斜面は中斜面以上の整備（圧雪）された大きなゲレンデが希望です。 ・日曜日にスキー終了後、千歳空港から羽田へ出発し、帰宅します。 ・木・金は札幌滞在ですが、金曜泊・土曜泊は札幌以外（もちろん札幌でも構わない）でも構わない。帰りが飛行機なので、比較的千歳空港への移動がしやすく、日曜日にできるだけ多くの時間滑りたい。 どこに宿泊し、どこのスキー場に行くのがよいでしょうか？わがままな希望ですが、ぜひとも皆様のアドバイスをください。

今月クラブメッドサホロに行きますが、ホテル内での服装について迷っています。 (他のクラブメッドは何度か行った事がありますが、サホロは初めてです。今まで行ったクラブメッドは全てビーチリゾートで、スノーリゾートは初めてです。) 私以外の同行者達はスキーやボードをするのですが、私はしないのでホテル内で一人のんびり過ごそうと思っています。 日中はホテル内でもスキーウェアで過ごしている方が多いと聞きましたが、スキーをしない者が少しキレイ目の格好(パンツにパンプスやショートブーツなど)を着ていたら浮きますか？(ホテルからは出ません) 逆に、レストランでの夕食時に、スウェットのようなラフなスタイルにスノーブーツやムートンブーツでウロウロしていたら失礼になりますか？ 日中用のラフな服装と、夕食時用のある程度キレイ目な服装の両方を持って行ければ一番なのですが、極力荷物を減らしたいので、どちらかに絞ろうと思っています。 １日目と最終日は外での移動があるので、スノーブーツにカジュアルで暖かい服装をする予定です。 できればクラブメッドのスノーリゾートに行かれた事がある方にご回答いただきたいです。 宜しくお願い致します。

今月クラブメッドサホロに行きますが、ホテル内での服装について迷っています。 (他のクラブメッドは何度か行った事がありますが、サホロは初めてです。今まで行ったクラブメッドは全てビーチリゾートで、スノーリゾートは初めてです。) 私以外の同行者達はスキーやボードをするのですが、私はしないのでホテル内で一人のんびり過ごそうと思っています。 日中はホテル内でもスキーウェアで過ごしている方が多いと聞きましたが、スキーをしない者が少しキレイ目の格好(パンツにパンプスやショートブーツなど)を着ていたら浮きますか？(ホテルからは出ません) 逆に、レストランでの夕食時に、スウェットのようなラフなスタイルにスノーブーツやムートンブーツでウロウロしていたら失礼になりますか？ 日中用のラフな服装と、夕食時用のある程度キレイ目な服装の両方を持って行ければ一番なのですが、極力荷物を減らしたいので、どちらかに絞ろうと思っています。 １日目と最終日は外での移動があるので、スノーブーツにカジュアルで暖かい服装をする予定です。 できればクラブメッドのスノーリゾートに行かれた事がある方にご回答いただきたいです。 宜しくお願い致します。

一月の頭に、新千歳空港18:55着（ANA）、19:55発名古屋行き（SKY）に乗りたいと思っているのですが、一時間で乗り継ぎは可能でしょうか？ 雪の影響で遅れる可能性があることも考えたら、難しいのかな...とも思うのですが。教えてください！

初襟裳岬なのですが　千歳からバスにしようかレンタカーにしようか悩んでいます。アドバイスお願いします。

この年末年始で単独でニセコにスキーに行きます。1人での、ゲレンデサイドの宿の予約は無理でしたので、倶知安駅前のビジネスホテルを予約してあります。 ニセコヒラフへの移動で迷って居ます。取り敢えずレンタカーは確保してあるのですが、峠の移動が少々不安。(雪国育ちで冬の北海道の車移動も何度もあるが) そこで質問です。倶知安駅前からヒラフ迄の、路線バスでの移動(スキー板、ブーツ等を持って)は大変なものでしょうか。余り、大勢の乗客で周りに迷惑も掛けたくないし。バスの混雑度なども教えて頂ければ有難いです。宜しくアドレスお願いします

この年末年始で単独でニセコにスキーに行きます。1人での、ゲレンデサイドの宿の予約は無理でしたので、倶知安駅前のビジネスホテルを予約してあります。 ニセコヒラフへの移動で迷って居ます。取り敢えずレンタカーは確保してあるのですが、峠の移動が少々不安。(雪国育ちで冬の北海道の車移動も何度もあるが) そこで質問です。倶知安駅前からヒラフ迄の、路線バスでの移動(スキー板、ブーツ等を持って)は大変なものでしょうか。余り、大勢の乗客で周りに迷惑も掛けたくないし。バスの混雑度なども教えて頂ければ有難いです。宜しくアドレスお願いします

この年末年始で単独でニセコにスキーに行きます。1人での、ゲレンデサイドの宿の予約は無理でしたので、倶知安駅前のビジネスホテルを予約してあります。 ニセコヒラフへの移動で迷って居ます。取り敢えずレンタカーは確保してあるのですが、峠の移動が少々不安。(雪国育ちで冬の北海道の車移動も何度もあるが) そこで質問です。倶知安駅前からヒラフ迄の、路線バスでの移動(スキー板、ブーツ等を持って)は大変なものでしょうか。余り、大勢の乗客で周りに迷惑も掛けたくないし。バスの混雑度なども教えて頂ければ有難いです。宜しくアドレスお願いします

札幌周辺エリアで、宿泊しなくても利用できる貸切温泉を探しています。本当は貸切温泉のある宿に泊まりたかったのですが、あいにく予約がいっぱいだったり、手の出ない値段だったりしたので、宿泊は別のところにしようと思っています。行くところは、札幌、美瑛、富良野、トマム、登別ですが、その周辺エリアで日帰りの貸切温泉はないでしょうか？

以前別のカテゴリで質問したのですが、そちらでは解決出来なかったので、こちらで改めて質問します。 下記のマクロで、一つのブックからSheet1だけをコピーして来て、少し処理をし、元のブックを閉じるというもので、ブックの数は多くて3000程、少ない時は300位です。 で、このマクロだと９００位までですと最後まで行くのですが、それを超えるとリストが９５位で止まってしまいます。 自宅で別データを作ってやってみるとうまくいきました。 コピー元のブックにはテキストデータのみで、２００文字から５００文字程度の大きさしかありません。 ファイル名も５０文字程度の物を全部２０文字程度まで短くしてもみましたが、ダメでした。 どうかお知恵をお貸しください。 Sub ★1★ブックの結合() Dim sFile As String Dim sWB As Workbook, dWB As Workbook, aWB As Workbook Dim dSheetCount As Long Dim i As Long Dim SOURCE_DIR As String 'エクセルデータに変換されたファイルのあるフォルダを選択します。 MsgBox "エクセルに変換されたデータのフォルダを選択" With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then SOURCE_DIR = .SelectedItems(1) & "\" End If End With Application.ScreenUpdating = False '指定したフォルダ内にあるブックのファイル名を取得 sFile = Dir(SOURCE_DIR & "*.xls") 'フォルダ内にブックが無ければ終了 If sFile = "" Then Exit Sub '集約用ブックを作成 Set dWB = Workbooks.Add '転記マクロの中のDMリストシートをコピーする Workbooks("転記用マクロ.xlsm").Worksheets("DMリスト").Copy Before:=dWB.Worksheets("Sheet1") Application.DisplayAlerts = False Worksheets(Array("Sheet1", "sheet2", "sheet3")).Select ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True '集約用ブック作成時のシート数を取得 dSheetCount = dWB.Worksheets.Count Do 'コピー元のブックを開く Set sWB = Workbooks.Open(Filename:=SOURCE_DIR & sFile) 'コピー元のsheet1を集約用ブックにコピー sWB.Worksheets("sheet1").Copy After:=dWB.Worksheets(dWB.Sheets.Count) シート転記 'コピー元ファイルを閉じる Application.DisplayAlerts = False sWB.Close Application.DisplayAlerts = True 'セルA2の名前を変更する 'シート名をセルA2の値に変更 'ActiveSheet.Name = Range("A2").Value '次のブックのファイル名を取得 sFile = Dir() Loop While sFile <> "" '集約用ブックを保存する 'dWB.SaveAs Filename:=DEST_FILE Application.ScreenUpdating = False End Sub

マクロを含むエクセルファイル（AUTO_OPEN()で起動）を共有化したところ、「実行時エラー'1004：Worksheetクラスの Unprotectメソッドが失敗しました。」という表示が出て、止まってしまいます。共有化する前は問題なく動いていたのですが、何が原因なのか、教えてください。よろしくお願いします。