タイムスタンプ作成アプリ

2017–06–28 (Wed) 22:15
タイムスタンプ

作業開始時間、作業終了時間から作業時間を計算してくれます。
1.作業開始時にまず、「時間を登録」をクリックします。
2.作業終了時に、「時間を登録」をクリックします。
3.時間計算をクリックすると計算がされます。


無題

自宅での作業中にいつも使用しています。
スポンサーサイト

メール作成アドイン

2017–06–27 (Tue) 10:20
アドインはインストールするとこちらに保存されます。
C:\Users\ユーザー名\AppData\Roaming\Microsoft\AddIns
対応:Microsoft Office2010 & Microsoft Outlook 2010

メール作成アドイン


メール作成アドイン-1

起動時のスクリーンショットです。

メール作成アドイン-2
選択するをクリックすると添付ファイルが表示されます。

メール作成アドイン-3
色の違うテキストボックスに保管されます。

メール作成アドイン-4

ファイル名をメールに入れることもできます。

メール作成アドイン-5
定型文も作れます。

作成するをクリックすると、Outlook が起動し、UserForm1が終了します。
私的には非常に使いやすいですが、どの程度の方が使うかは不明です。

読書感想入力ソフトを作りました。

2017–06–25 (Sun) 23:02
読書感想.zip

sample-1.png

EXCELを持っていない人のために、ソフトを作成しました。
私のOpenOfficeでも使えないのです……。

2017/6/25
1「2」
分類
小説
点数
3
感想1234567890


こんなタグも作ってくれます。

三ヶ月計算

2017–06–22 (Thu) 23:15
三ヶ月計算.xlsx

三ヶ月計算は本当に難しくて、私自身何度も何度も間違えてしまうような式です……。
実際、これも間違っているかもしれません(笑)
ようやっと開発者にあがれたのですが、やっぱりこう言うのは苦手みたいです;;;

3ヶ月サンプル

やっぱり開発者として生きていく私が一番いいみたいです……。
休む時間があまりないのが気になるのですが、あまり気にしてはいけないのかな?

シェイプマクロを極める。

2017–06–20 (Tue) 09:54
私の中で一番嫌いかもしれない、オートシェイプのマクロを作成いたしましたので紹介します。
まぁ・・・・・・使いやすいかな?と言うところです。
自分の中では使いやすいエクセルマクロと言うところですね~

Sub 名前を付ける()
Dim buf As String
buf = InputBox("名前を入力してください")
Selection.ShapeRange.Name = buf
End Sub
Sub シェイプ削除()
Dim sp As Shape
Dim cell As Range
Set cell = Application.InputBox(Prompt:="シェイプ名が入力された式を選択してください", Type:=8)
CKRow = 1
CRow = cell.Rows.count
CCol = Range(cell.Address(1)).Column
sakujo = 0
kazu = 0
Do Until kazu = ActiveSheet.Shapes.count
For CKRow = CKRow To CRow
For Each sp In ActiveSheet.Shapes
If cell(CKRow, 1).Value = sp.Name Then
With sp
.Fill.ForeColor.RGB = RGB(255, 0, 0)
End With
End If
Next
Next
CKRow = 1
kazu = kazu + 1
If kazu > ActiveSheet.Shapes.count Then
kazu = 0
End If
Loop

For Each sp In ActiveSheet.Shapes
If sp.Fill.ForeColor.RGB <> RGB(255, 0, 0) Then
sp.Delete
End If
Next

For Each sp In ActiveSheet.Shapes
sp.Fill.Visible = msoFalse
Next
End Sub


Sub シェイプ名前抽出()

Dim Spname As Variant
Set cell = Application.InputBox(Prompt:="シェイプ名を入力を開始するセルを選択してください", Type:=8)
Application.ScreenUpdating = False
CKRow = Range(cell.Address).Row
CCol = Range(cell.Address).Column
i = 0
CRow = CKRow
For Each sp In ActiveSheet.Shapes
If sp.Type = msoGroup Then
sp.Ungroup
End If

Next
ReDim Spname(ActiveSheet.Shapes.count, 0)

For Each sp In ActiveSheet.Shapes
Spname(i, 0) = sp.Name
i = i + 1
CRow = CRow + 1
Next

Range(Cells(CKRow, CCol), Cells(CRow, CCol)) = Spname
Application.ScreenUpdating = True
End Sub

選択したセルに同じ数を追加するマクロ

2017–06–20 (Tue) 00:24
エクセルマクロはエクセルなのに何故かセルにアクセスするともの凄く遅くなります。
その為作成したマクロになります。
これは選択したセルに数を足すマクロです。
需要があるかは分かりませんが……。

Sub 配列に代入して計算するマクロ
nyuryoku = Selection.Address
Dim Sets As Variant
Dim SetsU As Long
Sets = Range(nyuryoku)
SetsU = UBound(Sets)
SetuL = UBound(Sets, 2)
dum Kazu as Long
Kazu = InputBox("足す数を入力してください")
For i = 1 To SetsU

For j = 1 To SetuL
On Error Resume Next

Sets(i, j) = Sets(i, j) + Kazu

選択したオートシェイプに名前を付ける

2017–06–19 (Mon) 23:50
選択弑オートシェイプに名前を付けるマクロです。
これを使用することにより、エクセル内のオートシェイプを整理する事ができます。

Sub 名前を付ける
Dim buf As String
buf = InputBox("名前を入力してください")
Selection.ShapeRange = buf
End Sub

削除マクロなどと組み合わせることによりさらに使いやすくなると思います。

2017–06–15 (Thu) 17:03
Sub del()
Application.ScreenUpdating = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub

配列代入で式削除

2017–06–14 (Wed) 08:39
配列に代入し、式から文字列に変更します。
今までは、式から直接していましたが、今回のは配列なので、速度が違います。

Sub del()
nyuryoku = Selection.Address
Dim Sets As Variant
Dim SetsU As Long
Sets = Range(nyuryoku)
SetsU = UBound(Sets)
SetuL = UBound(Sets, 2)
For i = 1 To SetsU

For j = 1 To SetuL
On Error Resume Next
If Left(Sets(i, j), 1) = 0 Then
Sets(i, j) = "'" & Sets(i, j)
End If
If InStr(Sets(i, j), "-") <> 0 Then
Sets(i, j) = "'" & Sets(i, j)
End If
If Len(Sets(i, j)) > 10 Then
Sets(i, j) = "'" & Sets(i, j)
End If
If Left(Sets(i, j), 2) = "''" Then
Sets(i, j) = Right(Sets(i, j), Len(Sets(i, j)) - 2)
End If
On Error GoTo 0
Next
Next
Range(nyuryoku) = Sets
End Sub

どんな住所でも綺麗に抜き出すエクセル

2017–06–13 (Tue) 12:38
使い勝手最高です。
除外シートを必ず作らなければなりません。

=IF(LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),MAX(NOT(ISNA(MATCH(LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),{2;3;4;5}),住所除外リスト!B2:B96,0)))*{2;3;4;5}))="",IF(ISERROR(FIND("区",RIGHT(A2,LEN(A2)-LEN(B2)-1))),IF(ISERROR(FIND("市",RIGHT(A2,LEN(A2)-LEN(B2)-1))),IF(ISERROR(FIND("郡",RIGHT(A2,LEN(A2)-LEN(B2)-1))),"",LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),FIND("郡",RIGHT(A2,LEN(A2)-LEN(B2)-1))-1)),LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),FIND("市",RIGHT(A2,LEN(A2)-LEN(B2)-1))-1)),LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),FIND("区",RIGHT(A2,LEN(A2)-LEN(B2)-1))-1)),LEFT(LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),MAX(NOT(ISNA(MATCH(LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),{2;3;4;5}),住所除外リスト!B2:B96,0)))*{2;3;4;5})),LEN(LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),MAX(NOT(ISNA(MATCH(LEFT(RIGHT(A2,LEN(A2)-LEN(B2)-1),{2;3;4;5}),住所除外リスト!B2:B96,0)))*{2;3;4;5})))-1))
凄く長い式ですが……(市・区・郡)用です。

どんな住所でも綺麗に抜き出すエクセル

どんな住所でも綺麗に抜き出すエクセル


どんな住所でも綺麗に抜き出すエクセル-2

 | HOME |  次へ »

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク