面白そうなこと探しています・・・・・・・・・・台湾ラーメンブログ

元祖まるしば屋志賀本通店

Sun, 26 Jan 2014 06:48:33 +0900

柳橋中央市場の中にある元祖まるしば屋の看板を志賀本通に発見

早速、行ってみる事にしました

駐車場は11台あり、余裕です

中に入って、ラーメン(600円)と替え玉(100円)の食券を購入

「ラーメン　カタ　ひとつください」と注文

出てきたラーメンがこれです

オーソドックスな長浜ラーメン

麺を半分ほど食べ進んだところで

「カタい玉ひとつください」と言ったら

「替え玉ですね？カタさはどうしますか？」と云われました

「だ～か～ら～、カタい・・・、あ、替え玉、カタで・・・orz」

ここでは、長浜ラーメン用語は通じないようです・・・^^;;

Excelでドット絵を作成するマクロを作ってみた

Sat, 15 Dec 2012 08:58:46 +0900

FB友達の○○○さんが、ドットでスーパーマリオの絵を描いていたので

自分もドット絵を簡単に描けるプログラムをマクロで組んでみた

中身は、カラーバーをクリックすることにより色選択をして

セルをクリックすると、セルの色が選択した色に変わるもの

色を塗るプログラムはこちら

========================================================

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r, c As Integer
Dim myColor, palletR, palletG, palletB As Long

r = ActiveCell.Row 'アクティブセルの行を取得
c = ActiveCell.Column 'アクティブセルの列を取得

Cells(9, 35) = r 'アクティブセルの行を(9,35)のセルに代入
Cells(9, 39) = c 'アクティブセルの列を(9,39)のセルに代入

'パレットの中から色を決める
If c = 31 Then              '選んだセルがパレットの範囲内かIF構文で確認(パレットは(10～23,31))
    If r > 10 Then
        If r < 24 Then

            myColor = ActiveCell.Interior.Color 'パレットの色番号を取得

            palletR = myColor Mod 256               '色のR成分を取得
            palletG = Int(myColor / 256) Mod 256    '色のG成分を取得
            palletB = Int(myColor / 256 / 256)      '色のB成分を取得

            Cells(10, 35).Value = palletR           'セル(10,35)にR成分を代入
            Cells(10, 39).Value = palletG           'セル(10,39)にG成分を代入
            Cells(10, 43).Value = palletB           'セル(10,43)にB成分を代入

        End If
    End If

End If

'選んだセルを決めた色に塗りつぶす
If c > 1 Then               '選んだセルがドット絵の範囲内かIF構文で確認(枠は(2～26,2～26))
    If c < 27 Then
        If r > 1 Then
            If r < 27 Then
                If Selection.Rows.Count > 1 Then
                    Exit Sub
                End If
                If Selection.Columns.Count > 1 Then
                    Exit Sub
                End If
            Cells(r, c).Interior.Color = RGB(Cells(10, 35).Value, Cells(10, 39).Value, Cells(10, 43).Value)
            '選んだセルを選んだ色に塗りつぶす
            End If
        End If
    End If
End If

End Sub

========================================================

複数セルの色変更はこちら(標準モジュール)

===============================

Sub ボタン5_Click()
Dim r, c As Integer
Dim numr, numc As Variant

r = ActiveCell.Row
c = ActiveCell.Column

If c > 1 Then               '選んだセルがドット絵の範囲内かIF構文で確認(枠は(2～26,2～26))
    If c < 27 Then
        If r > 1 Then
            If r < 27 Then
                Select_Range = ActiveWindow.RangeSelection.Address
                numr = Selection.Rows.Count
                numc = Selection.Columns.Count
                Range(Selection(1), Selection(Selection.Count)).Interior.Color = RGB(Cells(10, 35).Value, Cells(10, 39).Value, Cells(10, 43).Value)
            '選んだセルを選んだ色に塗りつぶす
            End If
        End If
    End If
End If

End Sub

==============================

色の消去

==============================

Sub ボタン4_Click()
'
' ボタン4_Click Macro
' マクロ記録日 : 2012/12/8 ユーザー名 : taka
'

'

Dim r, c As Integer
r = ActiveCell.Row
c = ActiveCell.Column

    Range("B2:Z26").Select
    Selection.Interior.Color = RGB(255, 255, 255)
    Cells(r, c).Select
    ActiveCell.Interior.Color = RGB(255, 255, 255)
End Sub

=============================

割と簡単に作れて、子供たちも喜んで遊んでた♪
小3の娘の作品はこちら

6月21日・・・禁酒ダイエット25日目

Thu, 21 Jun 2012 03:41:30 +0900

実は、禁酒ダイエットを始めている

25日目になる

お酒を飲みながらも運動はしてたけど

全く痩せなかった

ところが、禁酒を始めると

　1日目　体重　70.7kg 　体脂肪率　20.3%　体脂肪重量　14.4kg　骨格筋量 25.6kg

・・・・・

25日目　体重　67.4kg　　体脂肪率 20.0%　体脂肪重量　13.5kg 骨格筋量 24.6kg

覿面に減った

この調子で、どこまで減るのか・・・楽しみだ　^^

いつまで続く？？？？菅政権

Thu, 07 Jul 2011 08:08:30 +0900

菅さん。。。。3つの法案が成立し、

震災の復興にめどがついたら

後進に道を譲る・・・っていってたけど

要は、絶対にやめないということ？？？

原子炉の再開も先延ばし指示してるし

法案も成立しそうにないし、、、、、

原発事故の収束もそう簡単にはいかない

とうとう、辞めるとは一言もいってないと

言い出した・・・・・

震災からの復旧、復興を優先させるため

内閣総辞職とか、衆議院解散してる

場合じゃない、、、、と思っていたけど

菅さんが総理大臣やってたら

復興するものも復興しない

経済もよくならない・・・・・・・・・・・・・

一刻も早く、菅さんがやめるべきだと

思っているのは、野党、与党だけでなく

国民もみんな思っていると思うんだけど

だれか、菅さんをやめさせる方法を

考えてください

菅総理・・・どうなる？内閣不信任決議案

Wed, 01 Jun 2011 11:28:42 +0900

内閣不信任決議案が今日提出するとか

しないとか、騒いでいるようですが

最悪のシナリオは

不信任決議可決

↓

民主党分裂と衆議院解散

↓

総選挙

↓

政治が空転

経済混乱

↓

日本の復興が遅れる

といったところでしょうか

菅さんには、即刻やめてもらいたいけど

不信任決議は提出してもらいたくない現実

自ら、「や～～めた！！」と言ってくれた方が

救いがあるんだけどな～～～～～

中部電力、、、異例の要請に苦悩

Sun, 08 May 2011 08:29:22 +0900

2,500億円/年のコストは、国が支払うことになると思うのですが

「要請だから」ということで支払いしないのでしょうか？

そうすると電気料金値上げになるはずですが・・・^^;;

国が支払うにしても、電気料金アップするにしても

結局は国民負担に他なりません

浜岡原発停止に賛成するひとは

1.原発停止しても廃炉作業に30年かかるので危険性は変わらない

2.企業の経済的負担が増大して、業績が低下し、会社員などの給料は減る

3.節電をしても、税負担または電気料金増の形で負担は増える

　税負担にするとさらに財政赤字は増える

このことを理解しているのでしょうか？

自分が節電すればよい、というのは、

「自分さえ良ければいい、他の人のことは知らない」という

近年の傾向の形を変えたものではないですか？

そういうことを政府の皆さんにも考えていただきたいと

思うのですが・・・菅さんにはムリか・・・(泣)

浜岡原発運転停止を要請・・・菅総理大臣

Sat, 07 May 2011 06:57:00 +0900

菅総理大臣、腹をくくって原発を止めるんでしょうか？

私は何も考えてないんじゃないかと思うけど・・・

浜岡原発を止めても影響は小さいと思っているみたいだけど

他の原発も止めろ、という話になったらどうするんだろう

そもそも、原発を止める根拠の

「東海地震が今後30年以内に発生する確率が87%」

という87%の数字が胡散臭い

この数字は発生周期がほぼわかっている東南海地震(約100年周期)を

先回1854年の東海地震に当てはめただけだし・・・

東海地震説が出てきたのも1970年代・・・

「地震が起きるぞ～～～」といわれて、もう40年経ってるけど、

起きる気配は全くなし

地震学者は狼少年といわれてもしょうがないんじゃないかと思う

そもそも、東日本大震災含め、地震は想定外の場所で

想定外の時期に発生している

「地震予知は不可能で

地震予知連絡会は役に立たない」

と私は思う

福島原発ライブカメラ

Fri, 06 May 2011 14:02:07 +0900

面白いかどうかはともかく

心配な方はこちらをチェックするといいかも・・・

JNN 福島第一原発情報カメラ (Live)

九州新幹線のCM

Sat, 30 Apr 2011 16:52:08 +0900

震災後不通となっていた

東北新幹線がやっと復旧して

昨日から走り出しました

沿線には、人がたくさんでて

新幹線に向かって手を振ったりしてたって・・・

みんなこのCMをみて

自分もやってみようと思ったらしい

やっと日本がつながったって感じです

祝！九州　九州新幹線全線開CM１８０秒

田中好子さんの訃報

Fri, 22 Apr 2011 19:06:02 +0900

田中好子さんが亡くなったとのニュースを耳にし

嫁さん、私共々、月日の流れを感じるとともに

とても寂しくなりました。

TVでいつも見ていたのに・・・

彼女は闘病生活をずっと続けていたんですね・・・

心よりご冥福をお祈りします

微笑み返しもいいですが

春一番を聞きたくなりました。

キャンディーズ(Candies) - 春一番