FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/02«│ 2019/03| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/04
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2019/03/26
23:59:41
選択範囲の最終行を取得する方法を色々と探っていました;;;
Range(選択範囲).Cells(選択範囲.count).rowなのね……。これで今までやっていた鬱陶しいループから解放されるのね。

Sub Rowtest()
Dim r As String
Dim r1 As Range
Dim rg As Integer
r = Worksheets("Sheet5").Range("a1").Value
r = Range(r).Address
Set r1 = Range(r)
rg = r1.Cells(r1.Count).Row
Dim nyu As Variant
nyu = Range(Worksheets("Sheet2").Cells(r1.Row, 2), Worksheets("Sheet2").Cells(rg, 2))
Range(Worksheets("Sheet5").Cells(2, 1), Worksheets("Sheet5").Cells(UBound(nyu) + 1, 1)) = nyu
End Sub

後はデータの更新だけか……。
それはやっぱり一番下に追加して並び替えるのがいいかしら……。
複数個あるデータだと本当に面倒臭い。だいぶ思いついてはいるけれど。。。
これって言う方法が思いつかない自分がいけないんだけどね。







これめっちゃ欲しい。
カレと一緒にみたい← あんまり泣くっていうイメージがないけど隣で泣かれそう(笑)
三週間くらい会ってないから深刻な不足中。。。早く会いたいです。。。。。。会えなくなるとひたすら藤田麻衣子ループwww
07:49:48
dim z
sub zcopy
z = selection.value
end sub
sub zpaste
selection.value =z
end sub

これで良いのかなあ?

そして、今回のシャニライ、HARDが難しすぎて積んでます。
いや、あんなに難しいとは思ってなかった……。もうPROはしません。
カミュもセシルももらえないかもしれないけれどいいです。神宮寺さんがいれば。



これよかった
23:07:45
Function TEXTJOIN(Kugiri, Kuhaku As Boolean, ParamArray Str())
Dim i As Integer
Dim Flg As Range
TEXTJOIN = ""
For i = LBound(Str) To UBound(Str)
If TypeName(Str(i)) = "Range" Then
For Each Flg In Str(i)
If Flg.Value <> "" Or Kuhaku = False Then
TEXTJOIN = TEXTJOIN & Kugiri & Flg.Value2
End If
Next
Else
If Str(i) <> "" Or Kuhaku = False Then
TEXTJOIN = TEXTJOIN & Kugiri & Str(i)
End If
End If
Next
TEXTJOIN = Mid(TEXTJOIN, Len(Kugiri) + 1)
End Function

調べてマクロで作ったけれど、こんな関数なら欲しかったわ。
何故今までエクセルに入ってなかったの!?!? こんな関数なら最初から入れていて欲しかった……。
2016からだから、私が使ってる2010には入っていません(泣)




23:57:17
今まで、エクセルの関数で「Indirect」と「Offset」を多用していたのですが、ファイルを開くときに止まってしまってイライラしていたので、他の関数と名前の定義で回避することにしました。
sumproductは遅いと出ていますが、ちょっとの範囲(10-20行)であれば高速なので、後はそこに変更。
今まで数秒かかっていたものが、0.1秒とかにまで減りました。

Indirect&Offset回避エビデンス (1)

時間がこんなに変わるの。本当ビックリ。
0.6秒も短くなりました。ここにさらに名前の定義とかを減らして最終的に0.1秒くらいまで減りました。
もうここまで減れば良いかなと思っています。本当はもっと減らしたいですが、そこまでわがままは言えませんから……。

後はシートのコピーとかを早くして行きたいです。今のままではちょっと遅すぎる><




そして、今月はじめたチャトレで5回精算しました。5回って少ないかなぁ?

20190320235624362.jpg
5000円弱*5回で計25000円 (そこから手数料が540円*5回引かれます)
もっと音声電話とかテレビ電話したら稼げるのかな???
01:39:30
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim wb
Set wb = ActiveWorkbook
Set ws = wb.ActiveSheet
ws.Copy after:=ws
ws.UsedRange.Value = ws.UsedRange.Value
Dim wb2 As Workbook
Set wb2 = Workbooks(ListBox1.Text)
wb2.Worksheets.Add

ws.Rows(ws.UsedRange.Row & ":" & ws.UsedRange.Rows.Count).Copy
Workbooks(ListBox1.Text).ActiveSheet.Rows(ws.UsedRange.Row & ":" & ws.UsedRange.Rows.Count).PasteSpecial
ws.UsedRange.Copy
Workbooks(ListBox1.Text).ActiveSheet.Range(ws.UsedRange.Address).PasteSpecial Paste:=xlPasteColumnWidths
Workbooks(ListBox1.Text).ActiveSheet.Range(ws.UsedRange.Address).PasteSpecial xlPasteAll

Dim nm As Names
For Each nm In ws.Names
If InStr(nm.Name, ws.Name) <> 0 And InStr(nm.Name, "Print") <> 0 Then
pt = ws.PageSetup.PrintArea
Workbooks(ListBox1.Text).ActiveSheet.PageSetup.PrintArea = pt
Exit For
End If
Next

Dim wsname As String
wsname = ws.Name
Workbooks(ListBox1.Text).ActiveSheet.Name = wsname
ws.Delete

Dim ws2
For Each ws2 In wb.Worksheets
If InStr(ws2.Name, wsname) <> 0 Then
ws2.Name = wsname
Exit For
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

これでシートのコピーが少しだけ早くなりました。
とは言っても1秒くらいかかるので、改良まだまだあるけどね……。
23:51:27
いままで、データベースは全てコピーして使う!と言う形だったのですが、これからは必要なものだけ使う、と言うようにして行こうと思います。
ファイルも軽くなるし、検索も若干早くなる。とは言っても0.01秒とかそんなレベルですがwww
それで意味がある!と言う事は出来ないのかもしれないですが、私からしたら意味があるのです。

良く乾いた雑巾から絞るとか言いますが、渇いている、と思っていたものがびしょびしょに濡れていました。ちなみに私の周りは私の方が出来るようなレベルしかいないのでもう仕方がない。

まだ配列が上手に作れなくて、配列を作ろうとしてもずれてしまったりする……。配列がもっと早く作れるようになったらさらに短くなるのかな~~~。




そして、シャニライの藍ちゃんイベントが終わってしまいました。
レンさまのイベントだけは頑張ろうと思います。やっぱりスマホゲームって慣れないね……。ついつい、辞めてしまいます。

Screenshot_20190313-234326 (1)

Hard、はじめてスコアSとれました。なかなか難しいですね。Hard/Proになるとやっぱり得意、苦手な曲調が出てくる……。
リズム感はあるのになぁ。
2019/03/11
23:30:11
シャニライ、機種変更してから殆どプレイしてなくて、最近またはじめました。
音ゲーは元々得意、ですがスマホでプレイするのは慣れません……。ちょっと違うねって感じです!
苦手な曲調だとEasyでも初見フルコンボ&パーフェクト行かなくて悔しいです。
ちなみに、イベントとかはあまり参加していません。神宮寺さんと一緒にいられればいいやと言う感じです。

レン様、うたプリで一番格好いいと思います(^^)

Screenshot_20190311-233556.png

「アンドロメダでクチヅケを」は結構苦手な曲調……。後ジャズもリズムが取りにくいので、レン様の曲も割と苦手。
曲調で得意なのはトキヤ、真斗ですかね~。

後はこれをまたエクセルでつくっていこうかなと思っています。
うたプリメモ的な感じで、エクセルの勉強かねて……。


エクセル自体は、最近=Index(INdirect(範囲),縦)とかが出来るようになりました。
今まではもっと遅かったのですが、計算がだいぶ早くなりました。やっぱり計算が遅いとイライラしてきますね~。
範囲を欄外で指定して、その範囲を使ってIndexを使う、と言う流れは結構いいみたいです。
データが多い場合はね(笑)

ただ、まだ面倒な作業がすごく多いので、もう少し減らそうかな~と思っています。
例えば会社別にするかベタ打ちにするか、とか……。計算が速くなっても取ってくる時間が遅くなったら意味がないので。





こんな風にお出かけしたい……。
23:55:52
今までとメルレのサイトを変更して見ました。と言うか、新しくもう一つ登録しました。
そしたら、一日でめっちゃ稼げました!!! ボーナスも多いので、これはいいやと言う感じです。やっぱりメールだけ、には限界がありました。

Screenshot_20190310-230816.png


合計で5900円ですよ!?!? いきなり精算できてボーナスをまたゲットしました。
ただ、私はメールを送って下さる方をお客さん、として大切にしないといけないのですごく大変です。気も遣います。

会いたいとか、ライン教えてとかを上手くかわしたり……かといって求められているのは「恋人」だから恋人を演じなければならないのです。実際会わなければならないキャバクラ嬢やクラブのホステスに比べたら、感情労働と言ってもかなり楽ですけどね。
ちなみに夜職の経験は一切ありませんが、たまにありそうだと言われます。お水上がりですか?とか……。


さてあともう一つ式作成を頑張って見ます。
会社のパソコンが壊れてしまい、一時何も出来なかったのですが、復活し無事仕事が出来るようになりました。とは言ってもそのパソコンも予備機で、新しいのが来るのはもう少し後です(笑)
INDIRECTも多用していたのですが、減らそうと思いました。セル範囲の固定・エラー回避なので、Chooseで代用は出来ないですが……。ファイルサイズはかなり減少しています。

とりあえずマクロでYYYYとMに変更する式を作成して、削除する、と言う流れのものを作成しました。

Sub yyyy表示()
Dim target As Variant
For Each target In Selection
target.Formula = "=text(" & Cells(target.Row, 3).Address & "," & """" & "yyyy" & """" & ")"
target.Value = target.Value
Next

End Sub
Sub m表示()
Dim target As Variant
For Each target In Selection
target.Formula = "=text(" & Cells(target.Row, 3).Address & "," & """" & "m" & """" & ")"
target.Value = target.Value
Next

End Sub

これで大丈夫です。Cells(target.row,3).address ここはご自分で指定しないと0で1900になったりエラーになったりします。
これからもっと必要になって来ますが、頑張ろうと思います。
13:08:10
エクセルのCountifって遅いですよね……。
有無を調べて丸を付けていくような作業だったらMatchの方が早いんですよね。
=match(検索文字列,検索範囲,0)でもCountifのが早いんですよ。Countifは全部調べないと行けないのでしょっちゅう処理落ちします。
最近はMatchにして、データベースも一行で終わらせてしまいます。

Countifsなんてもっと遅いから。だからmatchで済ます。今までは全部Countifsを使っていたので、簡単な表でもしょっちゅう処理落ちしてた。それを回避するために今頑張ってる。後は和暦→西暦も多い。このまま和暦廃れるんじゃないの?ってぐらい和暦を見ることが減りました。

一目瞭然だけど、式のすっきり感が違うよね。

無題
データベース自体も合体したら不要な部分消せるので、ファイル自体も軽くなるんですよ。
今まで何を無駄なことをしていたんだろう自分は!と言う感じです。
コピーも早くなるしね(一行だけコピーすればいいから)
16:56:27
死んで来いと言われて毎日嬢として仕事をずっとしています。
嬢としての仕事、と言っても営業かメールなのでほかの人と比べたら楽かな~。でも、前みたいに簡単にかせげなくなってきたので苦しいです。せめて月に2万はいかないとなって感じですね。

前は多いときは普通に一日5千円とか行っていたので……今は月に10000円行けばいい方になってしまいました。

来年度のプロフィールは年間50万以上目指すのが一番です! ただ、営業が苦手なんですよね😂営業が上手にできてメール返信率をあげたいものです。
研究しないといけませんね。
後は支えのメンバーずっと変わらない三人。
変えてよと言われても変えるきありません。

今感じです!

プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト