何もない日ということで

休みということで一日中屋内にいました。

色々な動画を見て過ごしましたけれど
編集した動画はある程度外付けのハードディスクに取り込むか、それともそうしないか迷っていまして、基本的にはyoutubeにアップしておけばそれでいいのかなぁと思いながらも、NASで本当に個人的な動画写真を手元に残しておいたほうがいいのか迷っています。買うとするならば外でも見ることができるといいのでそうしたいのです。

悩むところです。大したことではないかもしれませんが、個人的には悩んでおりまして、近くのヤマダ電機に行ったのですが・・・結局迷った挙句何も買わないという結果。

少し冷静になれば買って繋ぐということになりそうです。どれがいいのかわからないので情報収集をしていきたいと考えております。


なんだかんだ何もない日でしたがしっかりと休むことができたと思います。

あとは足の調子が良くなれば何の問題もないのですがねぇ。。。

コメント

コメントを投稿

このブログの人気の投稿

エクセルマクロをすこし 2018年8月25日 リストから別のリストを作成

リストからさらにリスト作成ということで特にどう繰り返すかがなかなか思いつかなかった。 また、苦労した点は1列目の選択方法と必要な列の数えるところです。 思った通りにはなかなかならず、いろいろな方面から攻めてやっと結果が出たような気がします。これからの展開はカレンダー（Outlookで）の登録です。こちらはVBAを使うか否か、Outlookの機能そのままにしようか迷っています。 数が少ない場合りすとかする過程の中で取り込めて行ける方向で処理ができればと思います。 Googleカレンダーへの登録についてはすでに自分の中で方法が確立しできているのでここには載せないです。 Sub リストから別のリスト作成() Dim da1 As Date Dim sagyou1,  As String Dim i, j, RX, ConC As Long`この辺りはお好みになりそうです Dim FN As String Application.ScreenUpdating = False Range("A1").Select CR = Cells(Rows.Count, 1).End(xlUp).Row i = 2`1行目はタイトル行の為2行目からの処理ということで Do While i <= CR   ' Cells(i+1, 0).Value With Cells(Rows.Count, 1).End(xlUp)   End With da1 = ActiveSheet.Range("A" & CStr(i)).Value j = 1 ConC = WorksheetFunction.CountA(Range(Cells(i, 13), Cells(i, 18))) - 1`この行の処理はちょっと代替手段を考えたい                 Do While j <= ConC                 sagyo1 = Ac...
続きを読む