2022年02月の記事一覧 | かぶもーちゃん

採用しなかったほうはどうなった？ (2022/2/25)

システム名：AC2450出現銘柄数：4損益額389円今月累計額-31247円システム名：JJObi出現銘：1損益額122円今月累計額-31636円これは実際の結果ではありません。採用しなかったシステムの検証結果です例のランサムウェア事件でNasのhddを全初期化してしまったためデータがすっからかん。でもコアな部分はバックアップしてあったため復元できた（時間かかるしやりたくなかった）。採用していないとはいえ成績も悪いしこの機会にやめようかとも思ったのだけど思い直してもう少し続けてみることにしました。それにしてもなあ、一番アクセス数があるのはExcel.vbaネタだしね。これを増やしたらアクセス増えるかもね！でもアフィしてるわけでもなししょーもないか。

2022年02月26日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/24)

システム名：AC2450出現銘柄数：16損益額-43601円今月累計額-109762円システム名：JJObi出現銘：1損益額122円今月累計額-31636円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月26日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/22)

システム名：AC2450出現銘柄数：2損益額-228円今月累計額-66161円システム名：JJObi出現銘：0 損益額-円今月累計額-円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月25日

コメント(0)

やられちゃいました・・・

ランサムウェアにです。はじめての体験です。ロックをかけておいて解除のための身代金を要求する。nasを２台。即時、潔く初期化してしまいました。おかげでためておいたデータ類はパァーー。主要部は別のnasに残しておいたため３０％くらいは生きてるって状態だと思われます。原因はわかっているので対策はとりました。データの分散は大事ですね！！

2022年02月24日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/21)

システム名：AC2450出現銘柄数：3損益額-7208円今月累計額-65933円システム名：JJObi出現銘：損益額-円今月累計額-円これは実際の結果ではありません。採用しなかったシステムの検証結果です壊れた？みたい、かな。nasJJObiデータ保存しているのだが。調べてみます。

2022年02月22日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/18)

システム名：AC2450出現銘柄数：3損益額-6490円今月累計額-58725円システム名：JJObi出現銘：1損益額-7304円今月累計額-22552円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月19日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/17)

システム名：AC2450出現銘柄数：13損益額-57422円今月累計額-52235円システム名：JJObi出現銘：1損益額-2160円今月累計額-15248円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月18日

コメント(0)

vbaでシートの特定列内容を(log)ログに書き出す

vbaでシートの特定列内容を(log)ログに書き出す。これは何か？というとシートの特定複数列に書き込まれた文字をテキストファイル(log)に書き出すというものです。結構便利な機能だと思われるのですが時折、あれ？なんだっけ、と忘れているので忘備録として記録しておきます。私が想定した用途は抽出された銘柄をログとして書き出しておくためのものです。構成は次の３つです。(1)Sub logWriter() 本体(2)Sub WriteLogDay() 関数. Subですが関数用途として使用しています。Functionに変えるのが面倒だった。(3)Sheet3.の B3 から E5列に次のように例を記入して下さい。1 2 3 45 6 7 89 10 11 12'[]Ｆ５で実行'関数 WriteLogDay() で特定シートの特定位置のリスト（存在する場合のみ）をテキストファイルに出力する。'テキストファイルは無ければつくり、あれば上書きされる。つまり行が増えたときは上書き出力される仕組み。Sub logWriter()Dim ws3 As Worksheet: Set ws3 = Worksheets("Sheet3")Dim myArray2 As VariantDim gyoMax As LongDim strMoji As StringDim jj As Integer '+--- ws3の内容をログ書き出しする --------- gyoMax = ws3.Cells(Rows.Count, 3).End(xlUp).Row 'ws3のリスト末尾行数を取得する If gyoMax >= 3 Then 'シートに値が存在するとき処理対象とする myArray2 = ws3.Range("B3", "E" & gyoMax) 'B3--E&gyoMax Debug.Print UBound(myArray2, 1), myArray2(jj, 1), myArray2(jj, 2), myArray2(jj, 3), myArray2(jj, 4) For jj = 1 To UBound(myArray2, 1) '４列までにしている strMoji = myArray2(jj, 1) & "," & myArray2(jj, 2) & "," & myArray2(jj, 3) & "," & myArray2(jj, 4) '+--- ログファイル ---------------------------------+ Call WriteLogDay(Format(Now(), "hh:mm:ss") & " " & strMoji) Next jj End IfEnd Sub'[]ログファイルに記録する'記録先フォルダ：ThisWorkbook.Path & flName'ファイル名は ["Report" + "日付8桁(20220214)" + ".log"]'ファイル名は無ければ作りますし、あれば上書きされます。'Sub WriteLogDay(msg As String)'+--- 年月日を付加してログファイル名にした ---Dim flName As String: flName = "\Report" & Format(Now, "yyyymmdd") & ".log" 'ログファイルネームDim outPathName As String: outPathName = ThisWorkbook.Path & flName 'パス＋ファイルネームDim FSO As Object, LOG As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''ログファイルがなければ作ります If FSO.FileExists(outPathName) = False Then FSO.CreateTextFile outPathName End If ''追記で開きます Set LOG = FSO.OpenTextFile(outPathName, 8) ''日時＋タブ＋メッセージを書き込みます LOG.WriteLine msg Set LOG = Nothing Set FSO = NothingEnd Sub

2022年02月17日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/16)

システム名：AC2450出現銘柄数：10損益額27204円今月累計額5187円システム名：JJObi出現銘：3損益額1574円今月累計額-13088円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月17日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/15)

システム名：AC2450出現銘柄数：18損益額-8993円今月累計額-22017円システム名：JJObi出現銘：2損益額7693円今月累計額-14662円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月16日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/14)

システム名：AC2450出現銘柄数：20損益額-22463円今月累計額-13024円システム名：JJObi出現銘：3損益額-5230円今月累計額-22355円これは実際の結果ではありません。採用しなかったシステムの検証結果ですなんだかだんだん嫌になってる自分がいます。実際はやっていないのに。それでも成績悪いと暗くなります。ということで最近はこのデータのバックアップをとっていません。だからもしデータが飛んで行ってしまったら・・・更新はやめるかもしれません。いややめたい。やめるんだ。と、吐き出したところで楽になりました。

2022年02月15日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/10)

システム名：AC2450出現銘柄数：13損益額12102円今月累計額9439円システム名：JJObi出現銘：3損益額-532円今月累計額-17125円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月11日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/9)

システム名：AC2450出現銘柄数：9損益額15319円今月累計額-2663円システム名：JJObi出現銘：3損益額-1662円今月累計額-16593円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月10日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/8)

システム名：AC2450出現銘柄数：17損益額-20213円今月累計額-17982円システム名：JJObi出現銘：3損益額4358円今月累計額-14931円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月09日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/7)

システム名：AC2450出現銘柄数：8損益額8226円今月累計額2231円システム名：JJObi出現銘：3損益額-4816円今月累計額-19289円これは実際の結果ではありません。採用しなかったシステムの検証結果です

2022年02月08日

コメント(0)

アクオスセンス４のウィジェット文字色を白色にしたい

忘備録です。アクオスセンス４ベーシックが１円だったのでスマホを乗り換えました。その時の顛末です。私と家内の機種を同じにしましたが、私のホーム画面の時刻ウィジェットの文字色が白色ですが、家内のは黒色で表示されています。「同じにして」とリクエストされたので仕事の合間に色々検索。Googleで「アクオスセンス4 ベーシックウィジェットの時刻の文字色」で検索すると・・・https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11246709446が出てきました。エモパー時計のウィジェットの文字色は変更できるようだと判明。結局このエモパーを最後まで設定を続けなければならず、仕方なくやりました。そしたら変更できる画面にたどり着けた！！ということです。そのあとでエモパーに与えた位置情報などの権限を停止して完了しました。ここにたどり着くまでにすごく回り道したのでうれしい。乗り換え間の機種は売りましょうと勧められたけど、私のは楽天回線を契約してみました。初期費用もかからず３か月無料だそうです。固定回線に何かあった時のためにモバイル回線で信用返済が可能になりました。２台も持ち歩くのは面倒なので事務所に置きっぱなしにしようとおもいます。アクオスセンス４は5.8インチと前の機種よりもやや小さ目で持ちやすいです。iphone12 miniが５万円台だったのでぐらっと来ましたが、操作方法が一から覚える必要もあり諦めました。

2022年02月07日

コメント(0)

採用しなかったほうはどうなった？ (2022/2/4)

システム名：AC2450出現銘柄数：12損益額8367円今月累計額-5995円システム名：JJObi出現銘：4損益額-6358円今月累計額-14473円これは実際の結果ではありません。採用しなかったシステムの検証結果です昨日はビ〇クカメラでスマホとMVMO回線の切り替えをやってました。本体を日本製に替えたら使いにくくて閉口してます。

2022年02月06日

コメント(0)