hide_kichiの情報

気になる情報を適当にアップしていきます

タラの芽を食べました

f:id:hide_kichi:20210427141809j:plain

今週のお題「おうち時間2021」

お隣さんから採りたてのタラの芽を頂きました。

さっそく、天ぷらにして食べました。

美味しかったです。

旬の食材はうまいです。

先日は、採りたてのタケノコを食べました。

これも柔らかくて美味しかつたです。

わらび・フキなども旬ですよね。

田舎の人は、旬なものを当たり前に食べられることで大きな感動はないのが残念です。

筆者も何年も田舎人をしているのに気づいていませんでした。

ダイコンでもスーパーのダイコンと採りたてのダイコンでは全然違います。

しかも安く手に入れることができます。


高級レストランより美味しいかもしれません????(笑)


また、車・バイクで遊びに行くときも渋滞などなく、信号も少ないので快適にドライブできます。

それから皆、車の運転になれているので運転が上手です。運転のへたなレンターカーなど少ないのです。(笑)

また、人が少ないので密になることがないです。


それでは、何時もスマイル!スマイル!で


f:id:hide_kichi:20210323110706j:plain

【EXCEL】シートのコピー&RENAMEを一瞬で!!

f:id:hide_kichi:20210416161312j:plain


お題「わたしの仕事場」

EXCEL

シートのコピーしてRENAMEする作業を


マクロ化しました。



操作手順は以下になります。

シート名:04-01(1)N1
f:id:hide_kichi:20210421114956p:plain

右ボタンで移動またはコピー
新しいシートが作成され
シート名:04-01(1)N1(2)
f:id:hide_kichi:20210421115015p:plain

になる

これを
シート名:04-02(1)N1
に変更


次に

セル
f:id:hide_kichi:20210421115135p:plain

f:id:hide_kichi:20210421115155p:plain
に変更。


以下のマクロで解決です。

マクロにショートカットキー Cntrl+Sをセットして

1.シート名:04-01(1)N1を右クリック
2.Cntrl+S
一瞬です

以上です

随分楽になりました。(Smile)

日々の作業がすこし楽になります。

プログラムに強い人に頼むほどのものではないので

自分で作っちゃいましょう!!

作れない人は、プログラミング覚えちゃいましょう!!

自分で作れるようになるとこのケースだと数時間で作成できちゃいます。

頑張りましょう!!

筆者ができるんだからきっとあなたもできます。



それから最後に、

プログラムに強い人に

「改善点は沢山ありますよ!!」



プログラムソースはこちら



Public Sub シートコピー1()


        Dim 日S As String
        Dim 日S1 As String
        Dim 日S2 As String
        Dim 機械S As String
        Dim 日夜S As String
        
        Dim 日付1 As Date
        Dim 日付2 As Date
        
        Dim sheet1 As Worksheet
        
        Set sheet1 = ActiveSheet    '現シート名をsheet1にセット
        
        
        
        sheet1.Copy After:=Worksheets(1) 'シートをコピー 1番目シートの後に
        work_s1 = sheet1.name    'シート名を取得  02-01(X)N   2月1日X機Nタイプ
        日付1 = Cells(6, 2)      '日付を取得
        ' mid$(変数,開始位置,文字数)
        日S = Mid$(work_s1, 1, 5)  '変数[WORK_S1] の1文字目から5文字分取得し変数[日S]に
        日S1 = Mid$(日S, 1, 2)     '月を取得 ⇒ 日S1 に
        日S2 = Mid$(日S, 4, 2)     '日を取得 ⇒ 日S2 に
        
        機械S = Mid$(work_s1, 7, 1)  'キカイNO
        日夜S = Mid$(work_s1, 9, 1)  'タイプ取得
        
        If Val(日S2) < 9 Then  '10日以下ならば 0を付加
        
            work_s2 = 日S1 & "-" & "0" & Val(日S2) + 1 & "(" & 機械S & ")" & 日夜S & "1"
        Else
            work_s2 = 日S1 & "-" & Val(日S2) + 1 & "(" & 機械S & ")" & 日夜S & "1"
        End If
        
        
        
       ActiveSheet.name = work_s2 'コピーしたシート名を変更
         
       日付2 = DateAdd("d", 1, 日付1)  '日付を1日増加
       Cells(6, 2) = 日付2



End Sub



  

 「☺Smile☺Smile☺」

 


今シーズン最後の「寄島カキ」をまた、また、また、食べました!!

[http://blog.hatena.ne.jp/-/odai/26006613550728076:title=お題「昨日食べたもの」

f:id:hide_kichi:20210416161052j:plain


今シーズン最後の「カキ」を食べました!!




4月にカキ食べたのおそらく初めてです。

美味しかった

今シーズンは、初めてカキフライを食べに行ったときはあまり良くなく

ダメ(裏)シーズンだと思いました。

でもそんなことはなく

4月まで食べれるとは????感激です。

明日、「海賊亭」でも行ってみよう。魚料理を食べに!!
。。。。。。。


「海賊亭」行ってきました!!

さすがにカキは終わってました。

ミックスフライ定食

イカソーメン

煮つけ定食(その日はカンパチでした)





煮つけ定食(その日はカンパチ>

f:id:hide_kichi:20210419162554j:plainf:id:hide_kichi:20210419162614j:plainf:id:hide_kichi:20210419162632j:plainf:id:hide_kichi:20210419162651j:plain
ミックスフライ、イカソーメン、煮つけ定食

【EXCEL】キーボードで入力No2

今週のお題「下書き供養」
f:id:hide_kichi:20201026105034j:plain

EXCELでキーボードをメインで入力

すると

操作が速くなります。

第2弾です。

前後のシートに移動

は以下のキーを使います。

後のシート  Cntrl+Pgdn
前のシート  Cntrl+Pgup

f:id:hide_kichi:20210415134432p:plain


左上にカーソル移動

Ctrl+Home

f:id:hide_kichi:20210415134528p:plain



f:id:hide_kichi:20210415134545p:plain


もしマクロを利用している方であれば
ショートカットキーを設定することをお勧めします。

「マクロのショートカットキーの設定方法」

「開発」-「マクロ」-「オプション」
Ctrl+ “ “
に任意の英数字を入力

今回は 「r」を入力しました。
文字を赤色にするマクロです。
内容は以下です。

f:id:hide_kichi:20210415135043p:plain

f:id:hide_kichi:20210415134653p:plain

f:id:hide_kichi:20210415134710p:plain


f:id:hide_kichi:20210415135538p:plain

f:id:hide_kichi:20210415134741p:plain

ちょっとしたことで

楽になります。

楽をしましょう!!


「時代おくれの男になりたい」

無駄が多い筆者でした。

変異株に負けるもんか!!


「☺Smile☺」

【EXCEL】少し入力を楽に!!文字付データ

お題「便利家電」

またまたEXCELです。

データ入力が省力化になります。

f:id:hide_kichi:20210409135521p:plain
Z-文字付データ

”Z-"付きデータ”Z-XXXX”を
XXXXだけ入力したい。

セルの書式を以下のようにします。


データを入力すれば 

“Z-“ を付ける

例えば
「34」を入力 ⇒ 「Z-34」になる

EXCELのセルの書式を設定します。

「セルの書式」-「ユーザー定義」-
種類に “Z-“@ を入力  -「OK」

f:id:hide_kichi:20210409135905p:plain
セルの書式

例えば
「34」を入力 ⇒ 表示は「Z-34」になる が

セルのデータは 34 です。

これを
Z-34にしたい場合は

一旦、メモ帳にコピーしてメモ帳から
コピー&貼り付け操作をしてください。


f:id:hide_kichi:20210409140008p:plain

f:id:hide_kichi:20210409140026p:plain

筆者の場合:

マクロを作成しました。

f:id:hide_kichi:20210409140754p:plain


プログラムソースはこちら



ii=8
For i = 1 To 20 'READ

ii =ii + i

If Cells(ii, 9).Value <> "" Then ‘ブランクでなく
work_s = Cells(ii, 9).Value
If Mid$(work_s, 1, 1) = "Z" Then
Cells(ii, 4).Value = work_s
Else
Cells(ii, 4).Value = "Z-" & work_s
End If
Else
Exit For
End If

Next i



  

池江璃花子さんおめでとう

池江さん、すごいですね。

元気・勇気をもらいました。

あなたのように強くはないけれど、

少しでも近づきたいと思います。

少しでも真似したいと思います。

コロナ対策も半端じゃないと思います。

我慢するところは我慢したいですね。

とにかくありがとう。

「松山」マスターズ優勝おめでとう!!すごい!!

[Smile!!Smile!!]

【EXCEL】キーボードだけで入力

お題「便利家電」

便利家電と言えばパソコンでしょうか?(無理やりお題にこじつけています)

EXCELでデータ入力をすることがあり

少し気づいた事を書きます。

データ入力する時、キーボードだけで入力

できたら

少し肩こりにいいかもです。

マウスを使うと肩こりになっちゃいます。

(もちろんマウスの方が操作しやすいものは沢山ありますが・・・・)

次のキーを使ってみてください。

①TABキー

   データ入力しENTERを押すとEXCELは下のセルにカーソルが移動します。
   右横のセル移動は、TABキーを使います。
   バックは、SHIFT+TABキーです。


②セルのデータ修正は、F2キーを使います。

f:id:hide_kichi:20210407150031p:plain



③プルダウンメニューの選択は、ALT+↓キーでメニューを表示し、↓、↑キーで選択し、ENTERです。

f:id:hide_kichi:20210407145550p:plain



ラジオボタンの選択はSPACEキーで選択です。解除もSPACEキーです。

こんなところですかね????

沢山言うと「めんどくせー」になってしまうので
こんなもんでやってみてください。

もちろん
Cntrl+C(コピー)、Cntrl+V(貼り付け)、Cntrl+A(すべて選択)は当然使います。
SHIFT+矢印キーもよく使います。


慣れたらマウスを使うよりも速く入力できると思います。

マウス・タッチパッド・キーボード混在で利用しましょう!!(マウスは無しでもいいかも??)

補足:リスト作成方法

EXCELのメニュー

[データ]―[データツール]―[データの入力規則]を選択。
f:id:hide_kichi:20210408113415p:plain

[設定]タブ―入力値の種類[リスト]を選択。
元の値
LISTにする項目を選択。
[=R34C3:R39C3]
f:id:hide_kichi:20210408113443p:plain













  

味の民芸と同じうどん、かも川手延素麺にうどんを食べに行きました

お題「昨日食べたもの」
f:id:hide_kichi:20210406143803j:plain


昨日ではないですが
2日前です。

鴨方の「かも川手延素麺」にうどんを食べに行きました。

やはり美味かったです


www.kamote.co.jp


f:id:hide_kichi:20210406143655j:plainf:id:hide_kichi:20210406143707j:plain

春のうどん祭りです。

今は、うどん・そうめんの売り出しだけです。

普段より割引があるので、お買い得です。

普段は、試食コーナーがあり大盛況なのです。(それも今はコロナで中止)

夏は、竹を使ったそうめん流しが無料で食べられます。こちらも大好評です。(それも今はコロナで中止)


何年か前、バイクのツーリングでそうめん流しを待ち合わせ場所にし、
そうめん流しをしてからツーリング出発しました。

大好評でした。

それからある日、
東京で味の民芸のうどんを食べました。

すごく美味かったので店頭販売しているうどんを買って帰り、製造元を確認すると

鴨方のうどんだったのです。

ビックリしました。

www.ajino-mingei.co.jp


最近は、四国の讃岐うどんが多く、もちろん筆者も大好きですが

かも川うどんも好きです。特に手延べそうめん・うどんはすごくおいしいです。

最初は讃岐っぽくないので違和感ありますが何回も食べると癖になっちゃいます。


是非、機会があればお試しあれ!!

http://www.kamote.co.jp/company/index.php

手延べそうめんについて説明されているホームページ

www.gerdugert.net


筆者はご近所さんなので
「かも川手延素麺」ですね