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が出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2037/05/26
18:22:54
未視聴ドラマ、アニメ、ドラマCD、音楽と未読本に囲まれて暮らす女子です。

ドラマ 20作程度
アニメ 50作程度
ドラマCD 500枚程度
音楽 500枚程度
未読本 20冊程度
積みゲー 10本程度

減少させるのに必死ですが、どんどんと増えて行きます。
きちんと計算してないから後どれだけあるか全くわかりません。
取りあえず週に5つぐらいは減らして行こうと思っています。
このブログは私の未視聴未読積みゲーの解消を書いていきます。



Love and Like...
相方さん♡
どんな時もずっと好き♡ 嫌いになることはないと思います。
一生でも足りないぐらいに好きです。感謝してもしきれないくらい!!!


うたプリ・・・神宮寺レン・聖川真斗・黒崎蘭丸
薄桜鬼・・・土方歳三
めいこい・・・泉鏡花
REBORN・・・山本武、雲雀恭弥、ディーノ
くじらのぬいぐるみ、ぷーさん、ピカチュウ、あひるのペックル
コウペンちゃん、愛しすぎて大好きすぎる、ねこぺん日和

MUSIC・・・MUSE、Mr.Children、supercell、藤田麻衣子

BOOK・・・伊坂幸太郎、綾辻幸人、我孫子武丸、池波正太郎、谷崎潤一郎   その他耽美小説系

COMIC・・・種村有菜、水瀬藍、華夜



カテゴリごとにまとめました。
エホバの証人
読書感想まとめ
CD・音楽感想まとめ
エクセルまとめ




最新版ソフト一覧。

読書感想.zip
タイムスタンプ
はな色作成ソフト
はなClipboard
はなImageListDelete
はなタイムスタンプ
はなメモ作成


入構書類.NET 別館です

Category:未分類コメント:1│ トラックバック :--
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秒くらいかかるので、改良まだまだあるけどね……。
プロフィール

はなかな

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

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

この人とブロともになる

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