FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2017/11«│ 2017/12| 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 »2018/01
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
07:36:22
無題

文字列変更マクロ

Sub ひらがなからカタカナに変換する()
Dim buf As Variant
If Selection.Count <> 1 Then
buf = Selection
For i = 1 To UBound(buf)
For j = 1 To UBound(buf, 2)
buf(i, j) = StrConv(buf(i, j), vbKatakana)
Next
Next
Selection = buf
Else
Selection.Value = StrConv(Selection.Value, vbKatakana)
End If
End Sub

今までは、Variant型を使用せずに、Selectionで行っていたので、凄く遅かったのですが、これで凄く早くなりました。






ハニワ可愛い!!!!!
07:30:49
Sub ggge年m月に変更する()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim s As Variant
If Selection.Count <> 1 Then
s = Selection
Dim j As Long
Dim k As Long
For j = 1 To UBound(s)
For k = 1 To UBound(s, 2)
If IsDate(s(j, k)) = True Then
s(j, k) = Format(s(j, k), "ggge") & "年" & Format(s(j, k), "m")
Else
s(j, k) = Replace(s(j, k), ".", "/")
If IsDate(s(j, k)) = False Then
s(j, k) = s(j, k) & "/1"
End If
s(j, k) = CDate(s(j, k))
s(j, k) = Format(s(j, k), "ggge") & "年" & Format(s(j, k), "m") & "月"
End If

Next
Next
Else
If IsDate(Selection.Value) = True Then
Selection.Value = Format(Selection.Value, "ggge") & "年" & Format(Selection.Value, "m")
Else
Selection.Value = Replace(Selection.Value, ".", "/")
If IsDate(Selection.Value) = False Then
Selection.Value = Selection.Value & "/1"
End If
Selection.Value = CDate(Selection.Value)
Selection.Value = Format(Selection.Value, "ggge") & "年" & Format(Selection.Value, "m") & "月"
End If

End If
Selection = s
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 移動つめマクロ()
Dim buf As Range
Set buf = Application.InputBox(Prompt:="移動するセルを選択してください。", Type:=8)

Dim buf2 As Range
Set buf2 = Application.InputBox(Prompt:="移動先のセルを選択してください。", Type:=8)

Dim buf3 As Range
Set buf3 = Application.InputBox(Prompt:="詰めるセルを選択してください。", Type:=8)

Dim buf_buf As Variant
buf_buf = Range(buf.Address)

Range(buf2.Address) = buf_buf
buf_buf = Range(buf3.Address)
Range(buf3.Address) = ""
Range(Cells(buf.Row, buf.Column), Cells(buf.Row + UBound(buf_buf) - 1, buf3.Column + 1)) = buf_buf
End Sub


selectionを直ぐ配列代入することがお勧めです。








超可愛い~~~。こういうの好きです//////
22:39:18
行列に関するマクロ

行列に関するマクロ

こんな感じです。凄く楽になります。

Countifにifの式を入れたりとかも有ったりします;;;

行列に関するマクロ

Sub RowsClipBoard()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim rng_addr As String
Dim msg As String
Dim gyoks As Variant
Dim gyoks2 As Variant
rng_addr = Selection.Address(False, False)
rng_addr = Replace(rng_addr, ":", "")
If IsNumeric(rng_addr) Then
With ActiveSheet.UsedRange
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
gyoks2 = Selection
ReDim gyoks(MaxCol + 1)
For i = 1 To MaxCol + 1
gyoks(i - 1) = gyoks2(1, i)
Next
End If
Selection.Insert Shift:=xlDown
Range(Cells(Selection.Row, 1), Cells(Selection.Row, MaxCol + 1)) = gyoks
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


マクロは面倒な作業を簡略化するためのモノです!!!
12:27:25
無題

Sub text_GE 年m 月d 日()
Dim target As Range
Dim s As Variant
For Each target In Selection
If target.Value = "" Then
Else
s = target.Formula
If InStr(s, "=+") <> 0 Then
s = Mid(s, 3)
Else
s = Mid(s, 2)
End If
s = "=text(" & s & "," & """" & "ge 年m 月d 日" & """" & ")"
target.Value = ""
target.Value = s
End If
Next
End Sub

こんな感じのものが16種類です。
少しでも時間が短縮できるように作成しています。




そして稼ぎが減っていて死にたい。

無題
23:45:42
無題

分かりにくいだろうとのことで、建設業データベースに追加するよう言われた式の説明です。
文字列合体の簡単マクロも作成するように言われてそれも作成。

Sub 文字列合体()
On Error Resume Next
Set buf = Application.InputBox("合体する文字列を設定して下さい(一行・一列のみ)", Type:=8)
Set buf2 = Application.InputBox("入力するセルを選択してください", Type:=8)
Application.ScreenUpdating = False
Dim sh As Variant
sh = buf
Dim i As Integer
Dim kei As String
If UBound(sh) <> 1 Then
For i = 1 To UBound(sh)
If sh(i, 1) = "" Then
Else
If kei = "" Then
kei = sh(i, 1)
Else
kei = kei & "・" & sh(i, 1)
End If
End If
Next
Else
For i = 1 To UBound(sh, 2)
If sh(1, i) = "" Then
Else
If kei = "" Then
kei = sh(1, i)
Else
kei = kei & "・" & sh(1, i)
End If
End If
Next
End If
Application.ScreenUpdating = True
buf2.Value = kei
On Error GoTo 0

End Sub

今まではユーザー定義関数だったので、なかなか使いにくかったのですが、今回からはボタン一つで出来るので簡単になりました。

*その他繁忙期作業*
・時間計算表作成
・金銭計算表(出金)作成
・建設業データベース 完全マニュアル
・単純マクロ

その他にもいくつか作業が来ています。後はタスク作業がそれ以外に入ってます;;; うんざり;;;
23:33:38
「建設業データ.xlsx」の作成。

建設業データ.xlsx

資格証のデータを入力する際。
・シート「計算式」に名前を入力する
・シート「資格証取得式-1」に名前を入力する

建設業データベースのマニュアルも作成してあります☆


会社でも使用するものなので、すぐ完成しました。
会社ではない方の所属先では一応代表の一人……なので、繁忙期はほぼ毎月訪れますが、慣れてます(笑)
女は甘えてるからこういうところ怒るけどね。彼氏に会えない!とか言うならやめるか別れるかしろと。
普通に考えて「仕事>恋愛>趣味」でしょ。「恋愛>仕事>趣味」とか「恋愛>趣味>仕事」とかそういう人がいるから駄目なんだよね。
だからメンバー内でも出世できるかできないかが出て来ちゃう。N嬢のように代表の一人でフルタイムで働いて結婚して、ボランティア団体にも所属しているような方は女では珍しいですよ。



その他のデータは直接入力で作成できます。

後は掃除とか色々と出てくるので大変です。
個人メンバーさんの部屋がみんなやばいのです!!!
私も代表なので、個人部屋あるのですが、ほとんど使用していません(笑)
いらなくなったバッグとかクローゼットおいていらない洋服とかかけてある程度です。
23:38:00
平成29年10月31日付で辞退し、平成29年12月1日付で復帰しました。
さっそく思ったのが、タスク減ったな~~~営業下手になったな? という事……。
私は代表の一人で更に匿名ライター・営業資料作成・マクロ資料作成・マニュアル作成・請願資料その他雑用(ブログ管理・まとめ管理等)ってしてまして、今回もまた同じだけと聞いています。

がんばろっと。
23:50:00
20171203232838041.jpg

20171203232753377.jpg

これに後小分けの香水を入れます。小分けの香水はいいですね。何となく香水をプレゼントしたくても出来ないと言う事が多いので。
イメージが違ったりするんですよ。
香りがしっかり分かっていても、違ったりするので、小分けでプレゼントをして、合うか合わないか確認するのです!



22:48:11
やっと作り終わりました。
今回は人数を減らして9人。一昨年は20人ぐらいいたので、だいぶ減ったなぁ……と思います。
基本敦賀にいる方にしか渡さないので、一昨年はどれだけ大勢が敦賀にいたんだ!って感じです(焦)

いろいろな方に渡さなければならないので本当に大変。
しかも予定取るだけでみんな大変なんですよ~~~。
私は12月はいつも御礼回りで走り回っているのです;;;
でも、今年は人数少ない! 人数減らした! ので凄く楽しいです。皆さんの反応が楽しみですね。
それに私は毎回全部手書きなのです。最近はパソコンを使う方も多いかと思うけれど、プリンターがおかしくなってWi-Fi接続できないからしょうがないのだ。
それに後からどんどん溢れてくる書きたいことはやっぱり手書きが良いな。

好きな紙とか使いやすいし。

20171201223728374.jpg


20171201223716448.jpg

キキララとかマイメロディとかうさぎちゃんとか、女子にしか使えないような便箋ですけどね。
男性でも女性でも普通にこれを使うのですよ(笑)

来週までに作り終わって、直ぐ配りはじめないとなんだかんだで時間が無いんだろうけど……(汗)




最近はまっています。

プロフィール

はなかな

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

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

この人とブロともになる

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