～　備　忘　録　～ https://ameblo.jp/fromfk/ 九州は福岡、博多のお隣で奥様と一姫二太郎と過ごすごくごくありふれた一般会社員のおいさん用備忘録です。内容は釣りにキャンプに自作にゲーム…あ、Excel関係も。 ja [新規]三日月の滝キャンプ場レポート アメンバー限定公開記事です。 https://ameblo.jp/fromfk/amemberentry-12088525699.html Mon, 26 Oct 2015 15:48:33 +0900 [新規]三日月の滝温泉キャンプ場
オートサイトＡ（１６区画）※電源サイト有り
オートサイトＢ（１２区画）※川沿い
オートサイトは２８区画を常時（通年）提供
全区画約12m×8m

IN/OUT 13:00/10:00
サイト料 4,100円（入村料・ゴミ収集代込み）
（有電源区画は1,000円増し）
入湯税
大人（高校生以上） 400円
小人（小学生～中学生） 200円

大分県玖珠郡玖珠町大字小田中泊里
TEL  0973-73-2007

玖珠川の三日月の滝に隣接したキャンプ場。

 ]]> https://ameblo.jp/fromfk/entry-12040006899.html Mon, 26 Oct 2015 15:44:10 +0900 組立式テーブル1号 ～その2～ 価格、入手し易さ、加工の容易さ等を考えて使用する木材は以下のものを選択。
　骨格：杉胴縁 21x36x2000 183円/本
　天板：杉プレーナー材 9x45x2000 64円/枚
これをサクサク切断する。
このサイズのものは骨格で13本、天板で29枚使用ので、必要数は胴縁4本、天板15枚。
ハンガーボルト、鬼目ナット、その他もろもろを入れても3000円前後で完成するのではなかろうか。。。

さて作業を進める。まずはこれらの木材を切断して


次にもしグラついた時用の補強材として


次に今回使用するオイルステインを塗り込んでいく。
いろいろ調べたのだが、意見もいろいろで。
それなら、塗装が難しくなさそうなオイルステインを使用することに決めた。
塗装とはいえ、オイルステインは表面に膜を形成するものではなく、染めていく感じで染料に近いとのこと。なので、このタイミングで塗装を実施する。
 

1回目は下地がないので、塗料が吸収される感じが強い。2回目以降は徐々に吸収されにくくなる感じがする。
画像ではわかりづらいが、回数を重ねるたびに色合いが落ち着いてくる感じがする。
 

ついでにテーブルの補強材も塗装してペーパー掛けをして仕上げておいた。
テーブル補強板完成 

作業時間の都合上、各乾燥に1週間づつの時間がかかっている。
実際のところはそんなに必要ないと思うが、日曜大工なので仕方ない。。。

2度塗り後に最終仕上げのペーパーかけを実施、その後、拭きあげた。

ここまでくれば、もう一息。。。それはまた。


 

]]> https://ameblo.jp/fromfk/entry-12049206759.html Sun, 07 Sep 2014 15:47:38 +0900 [Excel VBA]ファイルを開くダイアログボックスを表示（複数選択可能） Application.GetOpenFilename(",*.*")

しかしこれでは、1ファイルしか選択ができない。
そこで複数選択したい場合は
Application.GetOpenFilename(MultiSelect:=True)
とするといい。その使用法だが

Sub 複数のExcelFile選択のダイアログ表示()
    Dim OpenFileName As Variant
    OpenFileName = Application.GetOpenFilename(MultiSelect:=True)
End Sub

単体で選択する場合とほぼ変化はない。
上記使用法で1ファイルだけ選択することも可能。その場合は OpenFileName に選択したファイルのパスが格納されるので前回と使用上の変更はない。
ただし、複数選択された場合は単体で選択された場合と違いが出てくる。
複数選択された場合、 OpenFileName に格納されるファイルのパスは配列の扱いで格納されていく。
よって選択されたファイルを利用したい場合は簡単だがそれなりの処理方法が必要となる。

☆☆☆☆☆使用例☆☆☆☆☆

Sub 複数のExcelFileを指定して開く()

    Dim OpenFileName As Variant, Target As Variant
    OpenFileName = Application.GetOpenFilename(MultiSelect:=True)

    If IsArray(OpenFileName) Then
        For Each Target In OpenFileName
            Workbooks.Open Target
        Next Target
    Else
        MsgBox "キャンセルされました。"
    End If

End Sub

☆☆☆☆☆☆☆☆☆☆☆☆☆
]]> https://ameblo.jp/fromfk/entry-12045778734.html Tue, 02 Sep 2014 17:48:18 +0900 組立式 テーブル 1号 ～その1～ うちの場合は積載量の関係で、今後絞り込んでいく必要がある。

初回のキャンプで気になったのはテーブル。使用したのは以前から手元にあった

【送料無料】Coleman(コールマン) イージーロール2ステージテーブル／65 170-7640/
￥7,880 (楽天)
Coleman(コールマン) テーブル イージーロール2ステージテーブル/65 170-7640/
￥8,640 (Amazon)

を使用したが思ったより小さい。4人分の食器を並べるとそれだけでいっぱいに…
これでは、ちょっと窮屈なので探してみたものの、大きさと価格で満足できるものが見つからない。
それならってことで自作することに。自作を決意する大方の理由はこれです。

せっかく自作するのならそれなりに満足できるの物にしたいので今回こだわるのは…

1．満足できる大きさ
2．十分な強度
3．可能な限り安価

以上を踏まえつつ、思い描いたものがコレ↓

イメージとしては「ロール式天板のコタツ」
接合部はダボを使用して、足だけはハンガーボルトと鬼目ナットを利用。天板はゴムを利用してつなぎ合わせロール可能の状態にする。
塗料はオイルステインを使用するとして、ざっと材料費が4500円くらいかと思われる。
内訳は
材木2種類で　　　  2000円しない程度
金物類で　　　　　     500円程度
オイルステインが　2000円しない程度
でおつりがくるのではと思われる。
とりあえず、近所のナフコで材料を買いそろえてくる。

木材

ハンガーボルト

鬼目ナット
 
天板接続用ゴム（自転車のチューブ）
 
塗料（オイルステイン）
 
後は手持ちの工具類とべニア材

工具類の中でドリルだけはハンガーボルトや鬼目ナットを使うには下穴が必要になるからあったほうがいい。
ドリルとはいうものの電動ドライバー程度のものでよい。
実際、2～3000円程度で購入した簡単なものを使用している。

とりあえず材料がそろったので、採寸、切断と実際の加工に入るが今回はここまで。
]]> https://ameblo.jp/fromfk/entry-12042626295.html Sun, 24 Aug 2014 14:25:56 +0900 キャンプ道具　～テント編～ 　→キャンプ道具

その中で、手始めにテントから。
テントといっても様々。
ソロ or ファミリーなのか？
オートなのかそうでないのか。
頻繁に移動するのかしないのか？
キャンプへ行く頻度はどの程度なのか？
さまざまな要因を考慮しつつ選択していくことになる。

では、うちの場合は。。。
1．冬を除いた季節に年2～3回を予定。
2．家族4人+αで使用予定。
3．オートサイト、もしくは駐車場から距離の無いフリーサイトで使用。
4．頻繁に移動するつもりはない。
5．子供が小さいので基本、ひとりで設営する


楽天で4～5人用のテントで検索すると、ランキング上位にまずは

スノーピーク アメニティドーム(ベージュ×グレー×エンジ) [ SDE-001 ] [ スノー...
￥32,184 (楽天)
スノーピーク(snow peak) アメニティドーム [4～5人用] SDE-001/スノーピーク(snow peak)
￥32,184 (Amazon)

キャンパーに人気メーカーのsnow peak　アメニティドーム（アメド）が引っ掛かる。
さすが人気メーカー。コストパフォーマンスも優れた逸品のようで、お持ちの方も多数、場所によってはsnow peakだらけということもよくあるらしい。

続いて

Coleman コールマン BCキャノピードーム V /270 2000018381 (4~5...
￥19,999 (楽天)
Coleman(コールマン) BCキャノピードーム V /270 (200018381) (4.../Coleman(コールマン)
￥19,999 (Amazon)

これも人気メーカー。普通にどこでも見かける、一番のメジャーどころではなかろうか。
価格帯と品質とちょうどいいのかと。ただ、人気なのでどこででも見かける。
多くの人が利用しているようなので、実績は十分かと。

それ以外でランキング上位には…

【あす楽】 山善(YAMAZEN) キャンパーズコレクション プロモキャノピーテント5(4-5...
￥14,800 (楽天)
キャンパーズコレクション テント プロモキャノピーテント5 グリーン [4~5人用] CPR-.../キャンパーズコレクション
￥14,800 (Amazon)

上記に比べてさらに安価になるが、その分多少の不具合があっても目をつぶる的な位置づけではないかと。レビューを見てもそれを感じさせるものがチラチラと見かける。
個人的にはキャンプ初心者が軽い気持ちで始められる、そういう初心者に優しい商品と感じた。
実際、レビューの件数も多く初心者を感じさせる人たちの意見が多い。入門編には最適かも。


と、いろいろあるが事情に応じたものを選択するのがいいのではないか。
それも人それぞれの判断になるのだろう。

さて、以上を踏まえて自分の選択したものは

ノースイーグル NE168 ワンポールテントBIG 420 【送料無料】【メール便不可】
￥19,440 (楽天)
North Eagle(ノースイーグル) テント ワンポールテントBIG420 [4~6人用].../North Eagle(ノースイーグル)
￥26,784 (Amazon)
である。これを選択した理由は

1．道具を全く持たないので、一つ一つにお金をかけられない。
2．一人で簡単に設営できる。
3．家族4人には十分な広さがある。
4．ユーザーが多くないので見つけやすい。
5．フォーム、ロゴが気に入った。

単純な理由ばかりだが、特に不満もなく使用できている。
まぁレビューなどにもあるが、テントの中の糸くずはお約束のようなもの。。。
形状的なものや大きさの関係で、サイトの広さを気にする必要があったり、それ以外にもいろいろとあるようだが使用上特に問題はない。
気になる人は気にするといったところか。
]]> https://ameblo.jp/fromfk/entry-12040742618.html Tue, 19 Aug 2014 15:55:59 +0900 [Excel VBA]ファイルを開くダイアログボックスを表示 Application.GetOpenFilename (",*.*")
使い方は…

Sub ExcelFile選択のダイアログ表示()
    Dim OpenFileName As Variant
    OpenFileName = Application.GetOpenFilename("MicrosoftExcelブック,*.xls?")
End Sub

開いたダイアログでファイルを選択すれば
 OpenFileName
にファイルパスが代入される｡

☆☆☆☆☆ 使用例 ☆☆☆☆☆

Sub ExcelFileを指定して開く()

    Dim OpenFileName As Variant
    OpenFileName = Application.GetOpenFilename("MicrosoftExcelブック,*.xls?")

    If OpenFileName <> False Then
        Workbooks.Open OpenFileName
    Else
        MsgBox "キャンセルされました"
    End If

End Sub

☆☆☆☆☆☆☆☆☆☆☆☆☆☆
]]> https://ameblo.jp/fromfk/entry-12040326120.html Mon, 18 Aug 2014 14:12:13 +0900 キャンプ道具 と言ってしまうほどの、まったくの初心者なので何が必要なのかさっぱり。。。
とりあえずググり親切な先人達の経験談を参考にし必要なものを自分なりに考えてピックアップすることにする。

☆テント関係一式
　インナーテント　フライシート　ポール　ペグ　ハンマー　ロープ　グランドシート　マット類
☆タープ関係一式
☆寝具
　シェラフ or 毛布 or タオルケット
☆照明
　ランタン　懐中電灯
☆リビング関係
　テーブル　チェア
☆衛生
　ごみ袋　虫よけ　日焼け止め　薬　絆創膏　包帯　テーピングなど
☆備品
　雨具　軍手　ハサミ　ライター　古新聞　布テープなど
☆食関係
　クーラーボックス　BBQグリル　炭　カセットコンロ　カセットボンベ　調理器具　カラトリー　調味料　洗剤
　スポンジ　たわし等
☆衣類
　着替え　防寒着　タオル　帽子等

と書き綴ってみたものの、この中には当然、状況・スタイルによっては要/不要が発生する。
たとえばBBQの予定もないのにBBQ用グリルを持っていっても仕方がない。など。。。
ないならないで何とかなるものが、、、何とかするのがキャンプではないかと思う。 ]]> https://ameblo.jp/fromfk/entry-11906079148.html Thu, 07 Aug 2014 17:19:54 +0900 140720-21 三日月の滝キャンプ場 2日目 17_三日月の滝の朝

すがすがしい朝を子供のおかげで迎えました…
少し散歩をして、子供たちが「おなかすいた」を連発するので、7時頃から朝食を。
ゆったりとした時間はあっという間に過ぎ、撤収作業開始。
9時頃から約1時間ほどで積み込みまで終了したので、一っ風呂あびて解散となる。

竜門の滝で遊ぼうかと思って車を走らせ到着してみると暑くない…
考えを変えて近くに点在するキャンプ場を下見することに。一通り見た後、ネットで見かけていた

140720_あまがたに渓谷～あいのせ茶屋～

に寄り道して、九重の名水をいただいてから

九重夢大吊橋へ

23_九重夢大吊橋

想像以上にデカイ

29_九重夢大吊橋

34_九重夢大吊橋

この時、向かうところ敵なしのバサくんが初めて
「怖い～」
を連発して可愛かったｗ 
]]> https://ameblo.jp/fromfk/entry-11905585589.html Wed, 23 Jul 2014 18:36:29 +0900 140720-21 三日月の滝キャンプ場 1日目 子供が目を赤くしており病院によったから、福岡を11:30頃に出発。
微妙な天気。。。
140720_01_出発

やっぱり。。。

140720_02_ゲリラ豪雨

12:30に天ケ瀬高塚ICで後輩と合流。そこから山道を少々走り着く頃には。。。

140720_03_三日月の滝温泉キャンプ場_到着

青空が見えてます。

しかし怪しいので受付を済まし、今回のサイトB-8へ移動してさっさと設営開始。

140720_04_設営開始

Bサイトのこちら側は芝がキレイ～。
向かい側は木の下だったりするからかここまできれいではなかった気がする。
Aサイトは立地の関係で人気なのか、ところどころ芝がはがれていたり雨の影響が出ていたりしていた。

そうこうしていると30分後には。。。

140720_05_設営終了

ハイ！設営完了。
さすがワンポール設営簡単。ペグダウン（ペグ打ち）だけ気をつければ特に問題ない。

奥に見えてるのは初心者の自分たちを気遣い付き合ってくれた会社の後輩のタープ。
いい後輩だ。

横を流れる川（玖珠川）も。。。

140720_07_横を流れる川

増水中ｗ（かなり深そうです。）
流れも速そうなのに泳いでいる人が…

まぁうちは軽く…

140720_08_川で遊ぶ

注意書きをよく読んで

140720_06_注意事項

事故の無い様に遊びましょう。

この後、さらに会社の別の後輩一家が参加しさらににぎやかになり、おかげで酒もすすみ、よっぱになってしまってNoPhotoです。。。
ただ、その時近所にある「竹やぶ」という店の地鶏のタタキを差し入れてくれたりと気遣ってくれたが、この頃にはすでに酒にやられて…申し訳ない。

ここは温泉付きなんだけど、ピーク時はイモ洗い状態に。。。
時間の制限はあるものの何度でも入ることはできる。

7月なのに夜になると少し肌寒く、短パン半そでではちょっとつらいかも。。。
個人的には長袖は必要でした。

一通り済ませると一気に眠気に襲われ子供たちと一緒に爆睡してしまった。。。

]]> https://ameblo.jp/fromfk/entry-11905577930.html Wed, 23 Jul 2014 17:34:17 +0900