開催終了北海道ミニオフ
詳細
2005年08月16日 17:28 更新
細かいことは未定だけど、ミニオフにしちゃいます。
みんな大丈夫だよね？（←誰に訊いているんだ？）
という訳で、コッチ↓から引っ越しです。
http://
あ、そうそう、宿や足の手配は各自でお願いします。
みんな大丈夫だよね？（←誰に訊いているんだ？）
という訳で、コッチ↓から引っ越しです。
http://
あ、そうそう、宿や足の手配は各自でお願いします。
コメント(40)
2005年08月20日 12:39
>テンさん
たぶん、昼間は温泉地及びその周辺で遊んで、夕刻から
飲み会という感じですから、それほどお金を掛けずに
済みそうな気がします。
人数がまとまればレンタカーの方が安くなりますしね。
まずはお気軽にご参加ください。
また、良い店の情報などありましたらお寄せください。
ちなみに、硫黄系の温泉となると定山渓か洞爺・登別などの
メジャーな温泉地でないと難しいかもしれません。
石狩平野部にある公共温泉などは単純塩泉ばかりのような
気がします。探す時間はまだまだ十分にありますけど。
あと、パークゴルフ場併設のところもありますから、
そちらで遊んでみるのも良いかもしれませんね。
2005年08月22日 10:21
・テンさん、こんにちは
ぜひ、昼間の温泉行きに来て下さい。
（ただし個人的に長湯しているかもしれませんが。それ以外はビールを飲んでいます（笑））
会費制にするわけではありませんので、一般的な原価がかかるだけです。
よって金額的には心配ないかと。
お会いできたならば、色々と地元情報を教えて下さい。
待ち合わせはＪＲ札幌（or すすきの）付近で10/9(日)AM9:00になると思います。
詳細はまたここいらか、メールでかでお伝えします。
・くまさん
>塩泉
よいですね〜。
よろしくお願いします。
・ビリーさん
>私は、蟹もウニも好きです。
こちらの手持ち情報にいまここいらのお勧めがありません。
近辺の方の情報に期待しましょう。
もし前夜に会うことができたならば、おいしいジンギスカン屋にご案内します。（前回とは違う店です。最初からごはんを食べるも全然可の店です）
では
2005年09月23日 19:13
>揃って参加いたしますですよー。
>8、9
やった〜！
お待ちしております。
では8日の夜はくまさん不在の可能性大なので飲食場所を探しておかなくては。
ぷくぷくさん、にゃをさん、是非食べておきたいものとか、行ってみたい場所がありましたならば、記しておいて下さい。
>ウチ
くまさん
お世話になります。
では9日の夜は伺わさせたていただく予定とします。（ビリーさんもＯＫかな？）
>なお、参加表明されている方には10/5頃、現地連絡先？を
よろしくお願いします。
>祖父母交えて家族で旅行になり
雫さん
それは重要ですね。
行ってらして下さい。
また機会はいくらでもありますので、その時に。
では
2005年09月25日 14:52
当方
行き 10月7日
東京羽田 14:00発 → 札幌千歳 15:30着
帰り 10月11日
札幌千歳 12:30発 → 東京羽田 14:00着
宿泊 7日のみホテル予約済み
---------------------------
ビリーさん
>10月8日
>札幌千歳 8:00着
>ホテルは満室で取れなかったので、行ってから
例の以前に使用したところでよろしければ、朝からでもチェックインできます。
こちらも朝のうちにホテルからそっちへ移動する予定でしたので、追加人数で予約しておきましょうか。
待ち合わせるとしたならば１０時くらいでしょうね。
荷物を置いて、一風呂あびて、昼でも食べに行きましょうか。
---------------------------
ぷくぷくさん、にゃをさん
札幌到着の時間が決まりましたならば教えて下さい。
では
2005年09月26日 10:24
ビリーさん、ぷくぷくさん了解しました。
いままでの情報をまとめると、以下になりますでしょうか。
（相違があった場合は教えて下さい）
※ 括弧内は、ぷくさん・にゃおさんの予定
土 AM10:00 すすきのでビリーさんと合流
チェックイン
休憩
昼食 （ぷくさん・にゃおさん千歳着）
札幌観光／ロープウェー等 （チェックイン）
休憩 （観光）
夕飯／ジンギスカン予定
日 AM9:00頃にくまさんと合流／テンさん参加予定 （観光）
温泉
休憩／テンさん帰宅予定
ぷくさん・にゃおさんと合流！
くまさんお宅におじゃま／お食事会
泊めていただく （ぷくさん・にゃおさんはホテルへ）
月 ビヤガーデンあたりへ
（飛行機)
ビリーさん飛行機
-------------------------+----------------------
では
2005年10月04日 12:16
テンさん、こんにちは
>おはようございます。いよいよ今週末ですね。
そうですね。
とても楽しみです。
注）まず一点、テンさんに、変更の伝達です。
＞日 AM9:00頃に
>合流
ですが、後の予定を考えて、「ＡＭ８：００」に変更しました。
テンさんは、よろしいでしょうか。（困る場合のみ、ここに記して下さい）
集合場所は後にメールします。
>この辺でメンバー全員での歓談に参加出来ればと
>思いますが・・・
日曜日は、夕方５〜６時頃にぷくさん、にゃをさんを含めて集合し、まずは外で一次会を行う予定になりました。
７〜８時頃まですすきの付近にいられるようでしたならば、観光からそのまま流れて、一緒に歓談（宴会）しましょう。
（費用は居酒屋レベルをワリカンですので、そんなにはかからない予定です）
では、よろしくお願いします。
2005年10月04日 12:55
ゆう さん
＞日曜日は、夕方５〜６時頃にぷくさん、にゃをさんを含めて集合
＞し、まずは外で一次会を行う予定になりました。
＞７〜８時頃まですすきの付近にいられるようでしたならば、観光
＞からそのまま流れて、一緒に歓談（宴会）しましょう。
＞（費用は居酒屋レベルをワリカンですので、そんなにはかからな
＞い予定です）
↑こちらの方だけ参加したいと思います、なんか風邪気味で
温泉とかは危険な香りが致しますので・・・
と、言うことで、夕方五時ごろ、 一次会への集合場所へ
向かいたいと思います。宜しくお願いします。
当日は、体調が許せば、11時くらいまでは大丈夫だと思い
ますが、其々に、ご予定等もあるようですので適時解散と
いうことで・・・
連絡先(携帯)をメッセージでお知らせしようと思いますが
ご連絡は「ゆう」さんでよろしいでしょうか？
では。
2005年10月13日 17:05
オフ会翌日のお話
【くまさん宅にてゴロゴロ】
〔朝〕
ちゃんと朝に起きました。
で、朝食はいくらご飯をごちそうになりました。
いくらでも食べれそうでした…って おやぢギャグを書くとセイラムさんになってしまう。
〔午前〕
くまさん謹製のExcelで作った配送システムを見せてもらいました。
微妙に手作業が残っているのがグー。
むやみに凝って全てシステム化しちゃうより、この規模なら一定の処理の区切りで手作業を入れた方が間違いが起こりにくいから。
(そもそも全てシステム化するのになじまないという事情もあるそうだが。)
そうそう、クロス集計をFindメソッドでやっているけど、ピボットテーブルでやるとどーのこーのという話をしていたが、速効でコードを書く自信がなかったので書くのは止めました。
ということで、改めて・・・
例えば、Sheet1にこんなデータ↓があって、
Key1 Key2 Data1
A0 B4 8
A3 B2 6
A1 B1 1
A1 B1 7
A4 B0 1
A1 B4 3
A0 B3 3
A0 B1 3
A4 B4 6
A0 B1 4
集計結果をSheet2に表示したいなら、こんな感じ↓です。
Public Sub TestMain()
Dim rngI As Range
Dim shtO As Worksheet
Dim shtTemp As Worksheet
Set rngI = ThisWorkbook.Worksheets("Sheet1") _
.Range("A1").CurrentRegion
Set shtO = ThisWorkbook.Worksheets("Sheet2")
Set shtTemp = Workbooks.Add.Worksheets(1)
Call MakePivottable(rngI, shtTemp)
Call CopyPivotData(shtTemp, shtO)
shtTemp.Parent.Close SaveChanges:=False
MsgBox "TestMain 終了", vbInformation
End Sub
Private Sub MakePivottable(ByRef rngI As Range _
, ByRef shtA As Worksheet)
Dim pvtTbl As PivotTable
Set pvtTbl = shtA.PivotTableWizard(SourceType:=xlDatabase _
, SourceData:=rngI _
, TableDestination:=shtA.Range("A1") _
, RowGrand:=True _
, ColumnGrand:=True)
pvtTbl.AddFields RowFields:="Key1", ColumnFields:="Key2"
With pvtTbl.PivotFields("Data1")
.Orientation = xlDataField
.Function = xlSum '個数⇒xlCount，合計⇒xlSum
End With
End Sub
Private Sub CopyPivotData(ByRef shtI As Worksheet _
, ByRef shtO As Worksheet)
Dim rngS As Range
shtO.UsedRange.Clear
Set rngS = shtI.Range("A1").CurrentRegion
rngS.Copy
shtO.Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
ピボットテーブルを本体に持つとブックのファイルサイズがでかくなるので、別ブックに一時的に作って用が済んだらポイするのがよろしいかと。
モーグ↓にも書いているけど、実は私もランキング作成のとき、
オフ会前は、全BBSはピボットテーブルで、各BBSは Findメソッドを使って集計していたんです。
http://www2.moug.net/bbs/mougle/20051006000002.htm
このオフ会後から全部ピボットテーブルでやるように変えました。
〔午後〕
答えてねっとの屑回答者にKashmircatというのがいるのだが、
何故かMOUGに奴のフリーソフトがあったのでダウンロードして、
こきおろしてました。
いやぁ、これはなかなか笑えます。
まずは、こんなもん作ってどーすんの？ってあたりから、
中身をじっくり分析して、ナニやってんだか(-_-;)って感じで。
(でも、多分一人で見ていても面白くないです。)
〔随時〕
モーグはちょっとだけレスしました。
何故か、WordVBAとか。
そのテストをしていて、くまさんのＰＣのマイドキュメントにあるWord文書をすべてテキストファイルで別名保存してしまったというのは内緒です。
- mixiユーザー
- ログインしてコメントしよう！
困ったときには
