FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/07«│ 2019/08| 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/09
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2019/04/13
23:59:28
目標の六割は行った気がします。
六割ってことは0点ですね。100点じゃないので、0点です(笑)

完璧じゃないとだめなので、0点なんです。

そして今回、色々と買いました!スマホスタンドとか、自撮りライトとか。
キス専用美容液とか。めっちゃ気になって買ったのよ♡

あとは仕事もめっちゃ頑張りました。かなり稼げたよーでも、一サイト消されてしまったんです……。
アカウント。二万円がパーです。



これは新しいサイトです。2日くらいで稼げました! もっと頑張らないとね(*^^*)
23:54:07
今日は頑張りすぎて疲れました。
まず、お仕事4時間!
2サイトで6千円行きました。普段そんなに行くこと無いので……。大体3、4千円が……。
一カ所は電話有り、もう一カ所はメールのみです。一番稼げるのが22時~2時くらい。だからその時間に会わせてやること全て終わらせています。でも実際ほぼいつも寝不足(笑)
時給は1300-2000くらい。安い。

楽しいから良いんだけどね。後は大分整理入ったかな。こっちはまだまだだけれども。
ってか本気で来年は確定申告行かないといけないかもしれません。
1月からのチャトレで今71000円いってます。で、後10000円くらい入って来ていて、今たまっているのが20000円くらいだから……。本気でヤバイ。。。

ああ、明日からはチャトレ以外にも、招待ビラ配りも始まります! 一杯頑張りますね♪






最近back numberにめっちゃはまっています。
楽譜起こして(弾き語りver)誰かのバックでピアノ弾きたい……。カレが好きだったら一緒にライブ行きたかったな。
23:57:18
Sub DeleteNames()
On Error Resume Next
Dim n, ws
Dim z, i As Integer, j As Integer
For Each ws In Worksheets
For Each n In ws.Names
ct = 0
z = ws.UsedRange.Formula
For i = 1 To UBound(z)
For j = 1 To UBound(z, 2)
namae = Replace(n.Name, ws.Name, "")
namae = Replace(namae, "'", "")
namae = Replace(namae, "!", "")
If InStr(z(i, j), namae) <> 0 Then
ct = 1
Exit For
End If
If InStr(namae, "Print") <> 0 Then
ct = 1
Exit For
End If
Next
Next
If ct = 0 Then
n.Delete
End If

Next
Next


For Each n In ActiveWorkbook.Names
ct = 0
For Each ws In Worksheets
z = ws.UsedRange.Formula
If z <> "" Then
For i = 1 To UBound(z)
For j = 1 To UBound(z, 2)
namae = Replace(n.Name, ws.Name, "")
namae = Replace(namae, "'", "")
namae = Replace(namae, "!", "")
If InStr(z(i, j), namae) <> 0 Then
ct = 1
Exit For
End If
If InStr(namae, "Print") <> 0 Then
ct = 1
Exit For
End If
Next
If ct = 1 Then
Exit For
End If
Next
If ct = 1 Then
Exit For
End If

End If

Next
If ct = 0 Then
n.Delete
End If
Next


やっと作れました!!!
23:31:43
Sub spchange()
Dim sp
For Each sp In ActiveSheet.Shapes
If sp.TextEffect.Text = "あいうえお" Then
sp.TextEffect.Text = Replace(sp.TextEffect.Text, "あいうえお", "かきくけこ")
End If
Next
End Sub

こんな感じです! これも結構あると便利。
探すの大変だしね~~~
プロフィール

はなかな

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

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

この人とブロともになる

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