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が出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2018/11/30
07:30:26
1.1万5千円以上稼ぐ
2.100時間以上作業する
3.寝坊しない
4.個数指定でコピーできるマクロを作る
5.式コピー(とびとびのもの、全て)が出来るマクロを作る
6.オートシェイプマクロの公開
7.開いているブックから直接データを更新できるようにする
8.基準データベースからチェックリスト印刷マクロ
9.開いたファイルのデータを直接コピーする
10.ファイルの整理を行う
11.TEで稼ぐ
12.MLで30000円以上。プレミアム含。
13.積ん読整理
14.ちゃんと10人分作業するぞ
15.コピーに時間がかかるから新しい方法考える!(キリッ!
16.チェックリスト・・・印刷したい、、、
17.来年のリストしっかり作る
18.こぎんざししおりの作成
19.数字エラー回避・・・出来る方法探す
20.もっと楽できるようになりたい
21.小松菜とほうれん草植えたい
22.ライティング頑張るbもう少し採用されるようにする!

今月は目標が少ないなぁ……
後からどんどん出てくるとは思いますが・・・



コウペンちゃんゆたんぽ欲しい。
湯たんぽ自体は真夏でも使ってます
07:45:12
選択範囲に条件付き書式を入れるフォームを修正しました。

忙しくて更新があまり出来ませんでした…。。。明日からは更新出来るかなと思います。

無題

On Error Resume Next
Selection.FormatConditions.Delete
On Error GoTo 0
Dim zzz As Variant
zzz = Worksheets(TextBox1.Text).Range(TextBox2.Text)
Dim i As Long
Dim j As Long
For i = 1 To UBound(zzz)
For j = 1 To UBound(zzz, 2)
zzz(i, j) = ""
Next
Next
Dim kair As Long
kair = Worksheets(TextBox1.Text).Range(TextBox2.Text).Row
Dim kaic As Long
kaic = Worksheets(TextBox1.Text).Range(TextBox2.Text).Column
For Each target In Worksheets(TextBox1.Text).Range(TextBox2.Text)
If target.HasFormula = True Then
zzz(target.Row - kair + 1, target.Column - kaic + 1) = target.FormulaLocal & "<>" & target.Address
End If
Next
For Each target In Worksheets(TextBox1.Text).Range(TextBox2.Text)
If target.HasFormula = True Then
target.FormatConditions.Add Type:=xlExpression, Formula1:= _
zzz(target.Row - kair + 1, target.Column - kaic + 1)
target.FormatConditions(target.FormatConditions.Count).SetFirstPriority
With target.FormatConditions(1).Interior
.Color = 65535
End With
target.FormatConditions(1).StopIfTrue = False
End If
Next

これ、結構難しくないですか???
今まで配列でしていなかったので、結構大変でした。。。

でも処理落ちは減るかなって思ってます(単純。。。)

07:12:44
今日、自動で名簿がない人達を抽出するマクロを作成しました。
後は、データベースのチェック、一覧のチェック、削除するデータのチェックの三つなんですね。

で、とりあえず一覧のチェックがこんな感じ。

無題

こっちがデータベースのチェック。

無題

結構楽になったかなって思っています。まだまだですけどね。







こんなの可愛いですね。
07:40:40
日付と収入を管理するマクロです。

無題

これすごくないですか?
私今月は収入多くてもう1万円超えてます!!! ただ、頑張れば一杯もらえるので、頑張ろうと思いますb



ラブラブうらやましい。。。
07:33:26
「式を貼り付けるフォーム」

無題

式を貼り付けるフォーム

式をコピーしてくれるマクロです。
指定したシート名を含むシートにのみ貼り付けてくれます。
ここ最近あまり仕事をガツガツしなくて良いのでなかなかマクロも思いつかないです。マクロは頑張っていますが。
一覧表のコピーも作りたい。。。



サックスの「Lemon」も綺麗で格好良いです。



オリジナルのこっちも好きです。


プロフィール

はなかな

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

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

この人とブロともになる

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