9.Disney's Port Orleans Resort - Riverside~お部屋紹介 [2020WDW&DCL]
さあ、お部屋の中を紹介です。
フロントで地図をもらって向かいます。
(クリックで大きくなります)
〇をつけてくれていますが、実際はその〇からは少しはみ出たところです。部屋番号を書いてくれてるあたりの左に〇があります。下の地図が切れているあたりですね。真ん中のガーデンビュー側ではなく裏手になります。
見てわかる通りバス停は4つ。空港からならフロント前のバス停に着きますが、パークからだと順番にぐるっと回って最後がフロント前で帰ってくることになります。
前を大きな川が流れていて、フロントからは橋を渡って向かいます。
雨には遭わなかったのでよかったです。
これは最終日にフロントへ行くときに撮ったもの。なので、向こう側がフロントです。
で今回のお部屋はガーデンビューではなく裏庭ビュー。
モデレートもバリューと同じく、中廊下ではなく、モーテルタイプの外にすぐ出れられるタイプの扉です。
中はこんな感じ。
ロイヤルゲストルームです。
プリンセスいっぱい。メインはPort Orleans Resort ということでティアナです。
ベッドのかわいい仕掛け。
再生できない場合、ダウンロードは🎥こちら
お手紙がプリセットされてます。
女子旅には嬉しい洗面ボール二つ。
蛇口もかわいい
シャワーカーテンも何となくロイヤル?
アメニティは備え付け
シャワーは固定。
(PR)
フロントで地図をもらって向かいます。
(クリックで大きくなります)
〇をつけてくれていますが、実際はその〇からは少しはみ出たところです。部屋番号を書いてくれてるあたりの左に〇があります。下の地図が切れているあたりですね。真ん中のガーデンビュー側ではなく裏手になります。
見てわかる通りバス停は4つ。空港からならフロント前のバス停に着きますが、パークからだと順番にぐるっと回って最後がフロント前で帰ってくることになります。
前を大きな川が流れていて、フロントからは橋を渡って向かいます。
雨には遭わなかったのでよかったです。
これは最終日にフロントへ行くときに撮ったもの。なので、向こう側がフロントです。
で今回のお部屋はガーデンビューではなく裏庭ビュー。
モデレートもバリューと同じく、中廊下ではなく、モーテルタイプの外にすぐ出れられるタイプの扉です。
中はこんな感じ。
ロイヤルゲストルームです。
プリンセスいっぱい。メインはPort Orleans Resort ということでティアナです。
ベッドのかわいい仕掛け。
再生できない場合、ダウンロードは🎥こちら
お手紙がプリセットされてます。
女子旅には嬉しい洗面ボール二つ。
蛇口もかわいい
シャワーカーテンも何となくロイヤル?
アメニティは備え付け
シャワーは固定。
(PR)
Excel VBA [その他]
今回は旅行記とかまったく関係なく、個人的覚書です。
会社でコピペしたいのですが、紙に印刷して持って行くしか方法が思いつかず、ちょっと間借りです。メールできたらいいのに…
ど素人がGoogle検索だけを頼りにVBAのコードを書きました。
もし、もっといいコードがあるとお気づきの方いらっしゃったら
アドバイスいただけると幸いです。
★1 何行もあるデータを25行ずつにシートを分割し、1行目にタイトル行を持ってくる
Sub データを分割する最初の行はタイトル行()
Dim シート As Worksheet, 元 As Worksheet '元は元データのあるシート
Dim 総行数 As Long, 回数 As Long, i As Long, 開始行 As Long
Const コピー行 = 25
Set 元 = ActiveSheet '変数の元をActiveSheetにセットする
総行数 = 元.UsedRange.Rows.Count - 1
回数 = Int(総行数 / コピー行) + IIf(総行数 Mod コピー行 > 0, 1, 0)
開始行 = 2
For i = 1 To 回数
Set シート = Sheets.Add
シート.Name = "データ" & 開始行 - 1 & "~" & 開始行 + コピー行 - 2 & "まで"
元.Rows(1).Copy シート.Range("A1")
元.Rows(開始行 & ":" & 開始行 + コピー行 - 1).Copy シート.Range("A2")
Columns("A:F").AutoFit
開始行 = 開始行 + コピー行
Next i
End Sub
★2 コピーした内容(シート1のE2:F4)を別シートの最終列の右側へペースト
Sub 最終列右側に貼付()
Sheets("sheet1").Range("E2:F4").Copy
'シート2の2行目の最終列右に「値」を貼り付け
'IVはエクセルの列数の最大列なのでそんなに使わないなら少ない列でOK「2」は2行目
Sheets("sheet2").Range("IV2").End(xlToLeft).Offset(, 1).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False 'コピーモード解除
End Sub
(PR)
会社でコピペしたいのですが、紙に印刷して持って行くしか方法が思いつかず、ちょっと間借りです。メールできたらいいのに…
ど素人がGoogle検索だけを頼りにVBAのコードを書きました。
もし、もっといいコードがあるとお気づきの方いらっしゃったら
アドバイスいただけると幸いです。
★1 何行もあるデータを25行ずつにシートを分割し、1行目にタイトル行を持ってくる
Sub データを分割する最初の行はタイトル行()
Dim シート As Worksheet, 元 As Worksheet '元は元データのあるシート
Dim 総行数 As Long, 回数 As Long, i As Long, 開始行 As Long
Const コピー行 = 25
Set 元 = ActiveSheet '変数の元をActiveSheetにセットする
総行数 = 元.UsedRange.Rows.Count - 1
回数 = Int(総行数 / コピー行) + IIf(総行数 Mod コピー行 > 0, 1, 0)
開始行 = 2
For i = 1 To 回数
Set シート = Sheets.Add
シート.Name = "データ" & 開始行 - 1 & "~" & 開始行 + コピー行 - 2 & "まで"
元.Rows(1).Copy シート.Range("A1")
元.Rows(開始行 & ":" & 開始行 + コピー行 - 1).Copy シート.Range("A2")
Columns("A:F").AutoFit
開始行 = 開始行 + コピー行
Next i
End Sub
★2 コピーした内容(シート1のE2:F4)を別シートの最終列の右側へペースト
Sub 最終列右側に貼付()
Sheets("sheet1").Range("E2:F4").Copy
'シート2の2行目の最終列右に「値」を貼り付け
'IVはエクセルの列数の最大列なのでそんなに使わないなら少ない列でOK「2」は2行目
Sheets("sheet2").Range("IV2").End(xlToLeft).Offset(, 1).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False 'コピーモード解除
End Sub
(PR)