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/10/31
15:03:27
平成30年10月の目標。。。

1.1万円以上稼ぐ
2.100時間以上作業する
3.しっかり予習(毎日)する
4.エクセルファイル(シート)を一つのブックにまとめる。可能ならマクロを作成する。
5.一覧表形式のファイルを一つにまとめる。シートも1ファイル1枚ずつ可能にする。
6.ファイルのまとめ方を考え、少なくしていく。
7.式削除の時に消える「ふりがな」を復活させるマクロ
8.それぞれのデータ更新を各ファイルでも出来るようにする
9.済みスタンプ(ぐんまちゃん)を購入する
10.購入品のレビューと感想は必ず書く
11.全てのデータを貼り付けるマクロの作成
12.自分の中で毎日100点取れるようにする
13.タスク管理が上手に出来るようにする
14.プレゼントを探す&購入する。その為のポイントしっかりためる!!!
15.ドラマ・アニメ・ドラマCD(未視聴)を減らす
16.万年筆を購入する(自宅用、持ち歩きよう、赤色、青色が欲しい)
17.PDF印刷マクロ
18.見やすいコピーマクロ
19.ドラマなどの一覧表を作成し、見終わったらチェックするマクロ
20.ブルートゥースヘッドフォンを探す
21.管理リストの作成(ある程度の自動更新)
22.アドインに必要なものと不要なものを分ける
23.全データにデータベースをまとめる(検索機能を増やす)
24.式の修正(Valueが入っておらず日付など の数字がエラーになる)
25.ブックを開くマクロの作成(開く、開かないボタンなど)
26.印刷範囲設定マクロ(確言しボタン、別の場所へ)
27.別データ(フォームで)に入力するマクロの作成
28.書類作成用ボタン作成マクロ(本当に必要なマクロのみ追加。一覧表、一枚ずつ等で分ける)
29.移動・非移動をチェックする
30.第一データ管理システム作成
31.自動追加フォームの作成
32.整理用ケース処分、ぬいぐるみの置き場をつくる
33.こぎんざししおりの作成
34.化粧ケースを買って化粧品や香水を整理する

結構色々とありますね~~~。
忙しいですが楽しみましょう(・Д・)ノ



かまぼこーーー
07:40:48
そろそろ来月の目標を考える時期になりました。
また新しい仕事を始めたので、お金は増え始めましたよ。今回の仕事はもの凄く割が良いので楽しいです。
割が良いのは一番大切ですよね(^∇^)

今日はこんなの作りました。
一番健診個人票.xlsm
趣味特技がお金になるのが一番いいですよね。。。



よし、来月の目標また作るぞ!!!
14:57:23
無題
こんな感じのファイルを作りました。

視聴前ドラマ一覧表.xlsm

使いやすいので気楽に使って下さい。
あと、クラウドがおかしくなってダウンロード出来ないファイルが増えてますのであしからず。




「愛しすぎて大好きすぎる。」です


最近はまっていて、毎日見ています。マンガも大好きで、買ってしまいました。
もちろんスタンプも持っています。



やっぱり可愛い//////
私は絶対ねこちゃんですwww
ここまで愛情表現激しくないけど、くまほどクールではないです(笑)
16:59:42
別に大丈夫だろうと、絹の5本指靴下の上に化繊の靴下を履いたら足が冷たくて死ぬかと思いました。
お風呂に入る時に触ったら冷たくて冷たくて!!!
氷を触っているかのようでした。

これにはびっくり!!!
化繊では汗は吸えませんからね。
でもまさかここまでとは思ってませんでした。あんなになるのね。
体が異常に暑かったのもそのせいかなと思っています。

現在はタイツに関しては化繊の物を利用しているので、次に購入する時は綿やシルクなどを使用したいと思っています。
お金がかかるからなかなか難しいけどね。




後は最近また、リボーンにはまりました。
リボーンにはまっていたのは10年位前だったのですが、10年前も山本武が好きで、現在も山本武が好きです。
変わらないものってあるのね~~~。



格好良過ぎでしょ!!!
元々、時代劇とかが凄く好きで、刀剣も大好きで、ひとめで好きになりました。
山本以外では……雲雀さんとか?
あとアルコバレーノはみんな好き。

23:42:37
無題

職歴の並び替えを考えていたら、出来ました。
①会社②氏名③I列(数字の羅列)で並べ替えると簡単にできました。

きちんとしておくと出来ますね。


Sub 職歴の並び替え()
ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Clear
With ActiveWorkbook.Worksheets("職歴").UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With


ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Add Key:=Range(ActiveWorkbook.Worksheets("資格証").Range("A2"), ActiveWorkbook.Worksheets("資格証").Cells(MaxRow, 1)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Add Key:=Range(ActiveWorkbook.Worksheets("資格証").Range("B2"), ActiveWorkbook.Worksheets("資格証").Cells(MaxRow, 2)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Add Key:=Range(ActiveWorkbook.Worksheets("資格証").Range("I2"), ActiveWorkbook.Worksheets("資格証").Cells(MaxRow, 9)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("職歴").Sort
.SetRange Range(Range("A1"), Cells(MaxRow, MaxCol))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

これで配列大量に作らなくても大丈夫になりました。。。




最近またREBORN!見てます。
やっぱり山本武が好き。。。

img_1.jpg
プロフィール

はなかな

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

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

この人とブロともになる

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