FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/03«│ 2019/04| 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 »2019/05
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
07:24:08
大多数をパソコンが行ってくれます。
頑張れば頑張るほど、やることがなくなって行く……汗
【普通】はそうなんですよね。慣れ感思い付きで増減繰り返す。

今はエクセルのマクロだけですが、次はPCのマクロとかも入れようかと思っています。

正確・高速・簡単だしね。作業を記録すれば、再生ボタンを押すだけでコンピューターが処理を行います。
人間の手で行うと時間がかかる作業も素早く処理できるので、作業の効率化が可能。

これは誰でもやるべきでは…・…?と思います。
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


やっと作れました!!!
17:00:11
平成最後の記念式(笑)ただ、キリスト教だからあんまり元号は関係ないけどね!!!
今回も渡したい人にはきちんと「招待ビラ」を渡しています。今年はいつもより多いかな~って感じですね。とはいっても10人行かないくらい。本当はもっと招待したいけれど私はそこまで友人もいないし、人望があるわけでもないので……。
人望があるような人だったら、いっぱい招待できるのかな~って思っています。

興味のありそうな人をうまく見つけられるようになりたいです。
ま、難しいかな~~~。

今年はozzの着物風ワンピース(色違い)を着ようかと思っています。
b18170_1.jpg

これです
もしくは、チャイナ風ワンピース。どちらも記念式ぐらいでしか着ません。
これめっちゃ可愛いよね。 イノワのワンピースとかもいいんだけど、ロリータは休日の普段着だからあんまりね~。
着てる人少ないからすごく目立つけどね、ロリータ。学生の頃は本当ロリ憧れで……。でも、アマロリじゃなくて、私はクラロリだったから。
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

こんな感じです! これも結構あると便利。
探すの大変だしね~~~
07:31:33
Private Sub CommandButton1_Click()
Dim ws
For Each ws In Worksheets
If InStr(ws.Name, TextBox1.Text) <> 0 Then
ws.Name = Replace(ws.Name, TextBox1.Text, TextBox2.Text)
End If
Next
End Sub

ワークシート名の置換

これはすごく使うマクロです!
会社名が変わったりしたらこれでどんどん変えていきます。使いやすいよ~~。オススメ






シャニライ、楽しい! もっとプレイしたい!!! お金ないけどね(笑)
プロフィール

はなかな

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

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

この人とブロともになる

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